1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
|
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01//EN"
"http://www.w3.org/TR/html4/strict.dtd">
<html lang="en">
<head>
<title>
Autoconf Macro: merk_prog_tcl
</title>
<link rel="stylesheet" type="text/css" href="ac-archive.css">
</head>
<body>
<table summary="web navigation" style="width:100%;">
<tbody>
<tr>
<td style="width:50%;" align="center">
<a href="http://autoconf-archive.cryp.to/merk_prog_tcl.m4">Download M4
Source</a>
</td>
<td style="width:50%;" align="center">
<a href="macros-by-category.html">Macro Index Page</a>
</td>
</tr>
</tbody>
</table>
<hr>
<h1>
merk_prog_tcl
</h1>
<h2>
Synopsis
</h2>
<p class="indent" style="white-space:nowrap;">
<code>MERK_PROG_TCL([min-version])</code>
</p>
<h2>
Description
</h2>
<div class="indent">
<p>
Searches for tcl (tclsh and wish) in PATH and checks which version is
installed. The macro bails out if either tcl is not found or the minimum
version is not satisfied, unless minimum version is "0".
</p>
<p>
Example:
</p>
<pre>
MERK_PROG_TCL
</pre>
<p>
This checks for tcl and if not found, exits with an error. If found, it
prints tcl path and version number.
</p>
<pre>
MERK_PROG_TCL([8.0])
</pre>
<p>
Checks for tcl and exits with an error if its not found or the version is
below 8.0.
</p>
</div>
<h2>
Author
</h2>
<p class="indent">
Uwe Mayer <merkosh@hadiko.de>
</p>
<h2>
Last Modified
</h2>
<p class="indent">
2005-01-21
</p>
<h2>
M4 Source Code
</h2>
<div class="indent">
<pre class="m4source">
AC_DEFUN([MERK_PROG_TCL], [
#-- check for tclsh in PATH
AC_PATH_PROG([TCLSH], [tclsh], [no])
if [(test x"$TCLSH" == x"no") && (test x"$1" != x"0")]; then
AC_MSG_ERROR([tclsh not found])
fi
#-- check for wish in PATH
AC_PATH_PROG([WISH], [wish], [no])
#-- check vor tcl version
AC_MSG_CHECKING([tcl version])
tmp=$(tempfile)
echo ["puts [set tcl_version]"] >"$tmp"
version=$(tclsh "$tmp")
rm "$tmp"
AC_MSG_RESULT([$version])
#-- compare tcl version with min-version
required=$1
if [(test x"$1" != x"") && (test "${required/./}" -gt "${version/./}")]; then
AC_MSG_ERROR([tcl version $1 required])
fi
])dnl
</pre>
</div>
</body>
</html>
|
