30 lines
880 B
Plaintext
30 lines
880 B
Plaintext
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"
|
|
}
|
|
}
|
|
|