unix.exp

来自「gcc编译工具没有什么特别」· EXP 代码 · 共 30 行

load_lib utils.exp   ;# Get the file of utilities for Texinfo tests

default MAKEINFO makeinfo      ;# ensure Tcl var MAKEINFO has value

#                                   Ensure we can execute this tool
if [is_executable $MAKEINFO] then {
  verbose "$MAKEINFO is executable\n" 1
} else {
  perror "$MAKEINFO: cannot execute\n"
  exit 1                      ;# no point in running any makeinfo tests
}

# makeinfo_start undefined by choice; 
# 1) it makes it clearer where the output is to start
# $MAKEINFO directly with `catch' from each test case,
# and 
# 2) this takes no more lines than it would to call makeinfo_start

proc makeinfo_exit {} {}

proc makeinfo_version {} {
	global MAKEINFO
	set tmp [ exec $MAKEINFO --version ]
	regexp "version.*$" $tmp vn      ;# "vn" undef if pattern not found
	if [info exists vn] then {
		clone_output "[which $MAKEINFO] $vn\n"
	}
}