1load_lib utils.exp ;# Get the file of utilities for Texinfo tests 2 3default MAKEINFO makeinfo ;# ensure Tcl var MAKEINFO has value 4 5# Ensure we can execute this tool 6if [is_executable $MAKEINFO] then { 7 verbose "$MAKEINFO is executable\n" 1 8} else { 9 perror "$MAKEINFO: cannot execute\n" 10 exit 1 ;# no point in running any makeinfo tests 11} 12 13# makeinfo_start undefined by choice; 14# 1) it makes it clearer where the output is to start 15# $MAKEINFO directly with `catch' from each test case, 16# and 17# 2) this takes no more lines than it would to call makeinfo_start 18 19proc makeinfo_exit {} {} 20 21proc makeinfo_version {} { 22 global MAKEINFO 23 set tmp [ exec $MAKEINFO --version ] 24 regexp "version.*$" $tmp vn ;# "vn" undef if pattern not found 25 if [info exists vn] then { 26 clone_output "[which $MAKEINFO] $vn\n" 27 } 28} 29 30