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