Artifact
f30bc6b766ac600b0d2383acc8de796de1d5c096:
0000: 64 6e 6c 20 54 63 6c 20 4d 34 20 52 6f 75 74 69 dnl Tcl M4 Routi
0010: 6e 65 73 0a 0a 64 6e 6c 20 46 69 6e 64 20 61 20 nes..dnl Find a
0020: 72 75 6e 6e 61 62 6c 65 20 54 63 6c 0a 41 43 5f runnable Tcl.AC_
0030: 44 45 46 55 4e 28 5b 54 43 4c 45 58 54 5f 46 49 DEFUN([TCLEXT_FI
0040: 4e 44 5f 54 43 4c 53 48 5f 50 52 4f 47 5d 2c 20 ND_TCLSH_PROG],
0050: 5b 0a 09 41 43 5f 43 41 43 48 45 5f 43 48 45 43 [..AC_CACHE_CHEC
0060: 4b 28 5b 72 75 6e 6e 61 62 6c 65 20 74 63 6c 73 K([runnable tcls
0070: 68 5d 2c 20 5b 74 63 6c 5f 63 76 5f 74 63 6c 73 h], [tcl_cv_tcls
0080: 68 5f 6e 61 74 69 76 65 5f 70 61 74 68 5d 2c 20 h_native_path],
0090: 5b 0a 09 09 64 6e 6c 20 54 72 79 20 74 6f 20 66 [...dnl Try to f
00a0: 69 6e 64 20 61 20 72 75 6e 6e 61 62 6c 65 20 74 ind a runnable t
00b0: 63 6c 73 68 0a 09 09 69 66 20 74 65 73 74 20 2d clsh...if test -
00c0: 7a 20 22 24 54 43 4c 43 4f 4e 46 49 47 50 41 54 z "$TCLCONFIGPAT
00d0: 48 22 3b 20 74 68 65 6e 0a 09 09 09 54 43 4c 43 H"; then....TCLC
00e0: 4f 4e 46 49 47 50 41 54 48 3d 2f 64 65 76 2f 6e ONFIGPATH=/dev/n
00f0: 75 6c 6c 2f 6e 75 6c 6c 0a 09 09 66 69 0a 0a 09 ull/null...fi...
0100: 09 66 6f 72 20 74 72 79 5f 74 63 6c 73 68 20 69 .for try_tclsh i
0110: 6e 20 22 24 54 43 4c 53 48 5f 4e 41 54 49 56 45 n "$TCLSH_NATIVE
0120: 22 20 22 24 54 43 4c 43 4f 4e 46 49 47 50 41 54 " "$TCLCONFIGPAT
0130: 48 2f 2e 2e 2f 62 69 6e 2f 74 63 6c 73 68 22 20 H/../bin/tclsh"
0140: 5c 0a 09 09 20 20 20 20 20 20 20 20 20 20 20 20 \...
0150: 20 20 20 20 20 22 24 54 43 4c 43 4f 4e 46 49 47 "$TCLCONFIG
0160: 50 41 54 48 2f 2e 2e 2f 62 69 6e 2f 74 63 6c 73 PATH/../bin/tcls
0170: 68 38 2e 36 22 20 5c 0a 09 09 20 20 20 20 20 20 h8.6" \...
0180: 20 20 20 20 20 20 20 20 20 20 20 22 24 54 43 4c "$TCL
0190: 43 4f 4e 46 49 47 50 41 54 48 2f 2e 2e 2f 62 69 CONFIGPATH/../bi
01a0: 6e 2f 74 63 6c 73 68 38 2e 35 22 20 5c 0a 09 09 n/tclsh8.5" \...
01b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01c0: 20 22 24 54 43 4c 43 4f 4e 46 49 47 50 41 54 48 "$TCLCONFIGPATH
01d0: 2f 2e 2e 2f 62 69 6e 2f 74 63 6c 73 68 38 2e 34 /../bin/tclsh8.4
01e0: 22 20 5c 0a 09 09 20 20 20 20 20 20 20 20 20 20 " \...
01f0: 20 20 20 20 20 20 20 60 77 68 69 63 68 20 74 63 `which tc
0200: 6c 73 68 20 32 3e 2f 64 65 76 2f 6e 75 6c 6c 60 lsh 2>/dev/null`
0210: 20 5c 0a 09 09 20 20 20 20 20 20 20 20 20 20 20 \...
0220: 20 20 20 20 20 20 60 77 68 69 63 68 20 74 63 6c `which tcl
0230: 73 68 38 2e 36 20 32 3e 2f 64 65 76 2f 6e 75 6c sh8.6 2>/dev/nul
0240: 6c 60 20 5c 0a 09 09 20 20 20 20 20 20 20 20 20 l` \...
0250: 20 20 20 20 20 20 20 20 60 77 68 69 63 68 20 74 `which t
0260: 63 6c 73 68 38 2e 35 20 32 3e 2f 64 65 76 2f 6e clsh8.5 2>/dev/n
0270: 75 6c 6c 60 20 5c 0a 09 09 20 20 20 20 20 20 20 ull` \...
0280: 20 20 20 20 20 20 20 20 20 20 60 77 68 69 63 68 `which
0290: 20 74 63 6c 73 68 38 2e 34 20 32 3e 2f 64 65 76 tclsh8.4 2>/dev
02a0: 2f 6e 75 6c 6c 60 20 5c 0a 09 09 20 20 20 20 20 /null` \...
02b0: 20 20 20 20 20 20 20 20 20 20 20 20 74 63 6c 73 tcls
02c0: 68 3b 20 64 6f 0a 09 09 09 69 66 20 74 65 73 74 h; do....if test
02d0: 20 2d 7a 20 22 24 74 72 79 5f 74 63 6c 73 68 22 -z "$try_tclsh"
02e0: 3b 20 74 68 65 6e 0a 09 09 09 09 63 6f 6e 74 69 ; then.....conti
02f0: 6e 75 65 0a 09 09 09 66 69 0a 09 09 09 69 66 20 nue....fi....if
0300: 74 65 73 74 20 2d 78 20 22 24 74 72 79 5f 74 63 test -x "$try_tc
0310: 6c 73 68 22 3b 20 74 68 65 6e 0a 09 09 09 09 69 lsh"; then.....i
0320: 66 20 65 63 68 6f 20 27 65 78 69 74 20 30 27 20 f echo 'exit 0'
0330: 7c 20 22 24 74 72 79 5f 74 63 6c 73 68 22 20 32 | "$try_tclsh" 2
0340: 3e 2f 64 65 76 2f 6e 75 6c 6c 20 3e 2f 64 65 76 >/dev/null >/dev
0350: 2f 6e 75 6c 6c 3b 20 74 68 65 6e 0a 09 09 09 09 /null; then.....
0360: 09 74 63 6c 5f 63 76 5f 74 63 6c 73 68 5f 6e 61 .tcl_cv_tclsh_na
0370: 74 69 76 65 5f 70 61 74 68 3d 22 24 74 72 79 5f tive_path="$try_
0380: 74 63 6c 73 68 22 0a 0a 09 09 09 09 09 62 72 65 tclsh".......bre
0390: 61 6b 0a 09 09 09 09 66 69 0a 09 09 09 66 69 0a ak.....fi....fi.
03a0: 09 09 64 6f 6e 65 0a 0a 09 09 69 66 20 74 65 73 ..done....if tes
03b0: 74 20 22 24 54 43 4c 43 4f 4e 46 49 47 50 41 54 t "$TCLCONFIGPAT
03c0: 48 22 20 3d 20 27 2f 64 65 76 2f 6e 75 6c 6c 2f H" = '/dev/null/
03d0: 6e 75 6c 6c 27 3b 20 74 68 65 6e 0a 09 09 09 75 null'; then....u
03e0: 6e 73 65 74 20 54 43 4c 43 4f 4e 46 49 47 50 41 nset TCLCONFIGPA
03f0: 54 48 0a 09 09 66 69 0a 09 5d 29 0a 0a 09 54 43 TH...fi..])...TC
0400: 4c 53 48 5f 50 52 4f 47 3d 22 24 7b 74 63 6c 5f LSH_PROG="${tcl_
0410: 63 76 5f 74 63 6c 73 68 5f 6e 61 74 69 76 65 5f cv_tclsh_native_
0420: 70 61 74 68 7d 22 0a 09 41 43 5f 53 55 42 53 54 path}"..AC_SUBST
0430: 28 54 43 4c 53 48 5f 50 52 4f 47 29 0a 5d 29 0a (TCLSH_PROG).]).
0440: 0a 0a 64 6e 6c 20 4d 75 73 74 20 63 61 6c 6c 20 ..dnl Must call
0450: 41 43 5f 43 41 4e 4f 4e 49 43 41 4c 5f 48 4f 53 AC_CANONICAL_HOS
0460: 54 20 20 62 65 66 6f 72 65 20 63 61 6c 6c 69 6e T before callin
0470: 67 20 75 73 0a 41 43 5f 44 45 46 55 4e 28 5b 54 g us.AC_DEFUN([T
0480: 43 4c 45 58 54 5f 46 49 4e 44 5f 54 43 4c 43 4f CLEXT_FIND_TCLCO
0490: 4e 46 49 47 5d 2c 20 5b 0a 0a 09 54 43 4c 43 4f NFIG], [...TCLCO
04a0: 4e 46 49 47 50 41 54 48 3d 22 22 0a 09 41 43 5f NFIGPATH=""..AC_
04b0: 41 52 47 5f 57 49 54 48 28 5b 74 63 6c 5d 2c 20 ARG_WITH([tcl],
04c0: 41 53 5f 48 45 4c 50 5f 53 54 52 49 4e 47 28 5b AS_HELP_STRING([
04d0: 2d 2d 77 69 74 68 2d 74 63 6c 5d 2c 20 5b 64 69 --with-tcl], [di
04e0: 72 65 63 74 6f 72 79 20 63 6f 6e 74 61 69 6e 69 rectory containi
04f0: 6e 67 20 74 63 6c 20 63 6f 6e 66 69 67 75 72 61 ng tcl configura
0500: 74 69 6f 6e 20 28 74 63 6c 43 6f 6e 66 69 67 2e tion (tclConfig.
0510: 73 68 29 5d 29 2c 20 5b 0a 09 09 69 66 20 74 65 sh)]), [...if te
0520: 73 74 20 22 78 24 77 69 74 68 76 61 6c 22 20 3d st "x$withval" =
0530: 20 22 78 6e 6f 22 3b 20 74 68 65 6e 0a 09 09 09 "xno"; then....
0540: 41 43 5f 4d 53 47 5f 45 52 52 4f 52 28 5b 63 61 AC_MSG_ERROR([ca
0550: 6e 74 20 62 75 69 6c 64 20 77 69 74 68 6f 75 74 nt build without
0560: 20 74 63 6c 5d 29 0a 09 09 66 69 0a 0a 09 09 54 tcl])...fi....T
0570: 43 4c 43 4f 4e 46 49 47 50 41 54 48 3d 22 24 77 CLCONFIGPATH="$w
0580: 69 74 68 76 61 6c 22 0a 09 5d 2c 20 5b 0a 09 09 ithval"..], [...
0590: 69 66 20 74 65 73 74 20 22 24 63 72 6f 73 73 5f if test "$cross_
05a0: 63 6f 6d 70 69 6c 69 6e 67 22 20 3d 20 27 6e 6f compiling" = 'no
05b0: 27 3b 20 74 68 65 6e 0a 09 09 09 54 43 4c 45 58 '; then....TCLEX
05c0: 54 5f 46 49 4e 44 5f 54 43 4c 53 48 5f 50 52 4f T_FIND_TCLSH_PRO
05d0: 47 0a 09 09 09 74 63 6c 43 6f 6e 66 69 67 43 68 G....tclConfigCh
05e0: 65 63 6b 44 69 72 3d 22 60 65 63 68 6f 20 27 70 eckDir="`echo 'p
05f0: 75 74 73 20 5b 5b 74 63 6c 3a 3a 70 6b 67 63 6f uts [[tcl::pkgco
0600: 6e 66 69 67 20 67 65 74 20 6c 69 62 64 69 72 2c nfig get libdir,
0610: 72 75 6e 74 69 6d 65 5d 5d 27 20 7c 20 22 24 54 runtime]]' | "$T
0620: 43 4c 53 48 5f 50 52 4f 47 22 20 32 3e 2f 64 65 CLSH_PROG" 2>/de
0630: 76 2f 6e 75 6c 6c 60 22 0a 09 09 65 6c 73 65 0a v/null`"...else.
0640: 09 09 09 74 63 6c 43 6f 6e 66 69 67 43 68 65 63 ...tclConfigChec
0650: 6b 44 69 72 3d 2f 64 65 76 2f 6e 75 6c 6c 2f 6e kDir=/dev/null/n
0660: 75 6c 6c 0a 09 09 66 69 0a 0a 09 09 69 66 20 74 ull...fi....if t
0670: 65 73 74 20 22 24 63 72 6f 73 73 5f 63 6f 6d 70 est "$cross_comp
0680: 69 6c 69 6e 67 22 20 3d 20 27 6e 6f 27 3b 20 74 iling" = 'no'; t
0690: 68 65 6e 0a 09 09 09 64 69 72 73 3d 22 2f 75 73 hen....dirs="/us
06a0: 72 2f 24 68 6f 73 74 5f 61 6c 69 61 73 2f 6c 69 r/$host_alias/li
06b0: 62 20 2f 75 73 72 2f 6c 69 62 20 2f 75 73 72 2f b /usr/lib /usr/
06c0: 6c 69 62 36 34 20 2f 75 73 72 2f 6c 6f 63 61 6c lib64 /usr/local
06d0: 2f 6c 69 62 20 2f 75 73 72 2f 6c 6f 63 61 6c 2f /lib /usr/local/
06e0: 6c 69 62 36 34 22 0a 09 09 65 6c 73 65 0a 09 09 lib64"...else...
06f0: 09 64 69 72 73 3d 27 27 0a 09 09 66 69 0a 0a 09 .dirs=''...fi...
0700: 09 66 6f 72 20 64 69 72 20 69 6e 20 22 24 74 63 .for dir in "$tc
0710: 6c 43 6f 6e 66 69 67 43 68 65 63 6b 44 69 72 22 lConfigCheckDir"
0720: 20 24 64 69 72 73 3b 20 64 6f 0a 09 09 09 69 66 $dirs; do....if
0730: 20 74 65 73 74 20 2d 66 20 22 24 64 69 72 2f 74 test -f "$dir/t
0740: 63 6c 43 6f 6e 66 69 67 2e 73 68 22 3b 20 74 68 clConfig.sh"; th
0750: 65 6e 0a 09 09 09 09 54 43 4c 43 4f 4e 46 49 47 en.....TCLCONFIG
0760: 50 41 54 48 3d 22 24 64 69 72 22 0a 0a 09 09 09 PATH="$dir".....
0770: 09 62 72 65 61 6b 0a 09 09 09 66 69 0a 09 09 64 .break....fi...d
0780: 6f 6e 65 0a 09 5d 29 0a 0a 09 41 43 5f 4d 53 47 one..])...AC_MSG
0790: 5f 43 48 45 43 4b 49 4e 47 28 5b 66 6f 72 20 70 _CHECKING([for p
07a0: 61 74 68 20 74 6f 20 74 63 6c 43 6f 6e 66 69 67 ath to tclConfig
07b0: 2e 73 68 5d 29 0a 0a 09 69 66 20 74 65 73 74 20 .sh])...if test
07c0: 2d 7a 20 22 24 54 43 4c 43 4f 4e 46 49 47 50 41 -z "$TCLCONFIGPA
07d0: 54 48 22 3b 20 74 68 65 6e 0a 09 09 41 43 5f 4d TH"; then...AC_M
07e0: 53 47 5f 45 52 52 4f 52 28 5b 75 6e 61 62 6c 65 SG_ERROR([unable
07f0: 20 74 6f 20 6c 6f 63 61 74 65 20 74 63 6c 43 6f to locate tclCo
0800: 6e 66 69 67 2e 73 68 2e 20 20 54 72 79 20 2d 2d nfig.sh. Try --
0810: 77 69 74 68 2d 74 63 6c 2e 5d 29 0a 09 66 69 0a with-tcl.])..fi.
0820: 0a 09 41 43 5f 53 55 42 53 54 28 54 43 4c 43 4f ..AC_SUBST(TCLCO
0830: 4e 46 49 47 50 41 54 48 29 0a 0a 09 41 43 5f 4d NFIGPATH)...AC_M
0840: 53 47 5f 52 45 53 55 4c 54 28 5b 24 54 43 4c 43 SG_RESULT([$TCLC
0850: 4f 4e 46 49 47 50 41 54 48 5d 29 0a 0a 09 64 6e ONFIGPATH])...dn
0860: 6c 20 46 69 6e 64 20 54 63 6c 20 69 66 20 77 65 l Find Tcl if we
0870: 20 68 61 76 65 6e 27 74 20 61 6c 72 65 61 64 79 haven't already
0880: 0a 09 69 66 20 74 65 73 74 20 2d 7a 20 22 24 54 ..if test -z "$T
0890: 43 4c 53 48 5f 50 52 4f 47 22 3b 20 74 68 65 6e CLSH_PROG"; then
08a0: 0a 09 09 54 43 4c 45 58 54 5f 46 49 4e 44 5f 54 ...TCLEXT_FIND_T
08b0: 43 4c 53 48 5f 50 52 4f 47 0a 09 66 69 0a 5d 29 CLSH_PROG..fi.])
08c0: 0a 0a 64 6e 6c 20 4d 75 73 74 20 64 65 66 69 6e ..dnl Must defin
08d0: 65 20 54 43 4c 43 4f 4e 46 49 47 50 41 54 48 20 e TCLCONFIGPATH
08e0: 62 65 66 6f 72 65 20 63 61 6c 6c 69 6e 67 20 75 before calling u
08f0: 73 20 28 69 2e 65 2e 2c 20 62 79 20 54 43 4c 45 s (i.e., by TCLE
0900: 58 54 5f 46 49 4e 44 5f 54 43 4c 43 4f 4e 46 49 XT_FIND_TCLCONFI
0910: 47 29 0a 41 43 5f 44 45 46 55 4e 28 5b 54 43 4c G).AC_DEFUN([TCL
0920: 45 58 54 5f 4c 4f 41 44 5f 54 43 4c 43 4f 4e 46 EXT_LOAD_TCLCONF
0930: 49 47 5d 2c 20 5b 0a 09 41 43 5f 4d 53 47 5f 43 IG], [..AC_MSG_C
0940: 48 45 43 4b 49 4e 47 28 5b 66 6f 72 20 77 6f 72 HECKING([for wor
0950: 6b 69 6e 67 20 74 63 6c 43 6f 6e 66 69 67 2e 73 king tclConfig.s
0960: 68 5d 29 0a 0a 09 69 66 20 74 65 73 74 20 2d 66 h])...if test -f
0970: 20 22 24 54 43 4c 43 4f 4e 46 49 47 50 41 54 48 "$TCLCONFIGPATH
0980: 2f 74 63 6c 43 6f 6e 66 69 67 2e 73 68 22 3b 20 /tclConfig.sh";
0990: 74 68 65 6e 0a 09 09 2e 20 22 24 54 43 4c 43 4f then.... "$TCLCO
09a0: 4e 46 49 47 50 41 54 48 2f 74 63 6c 43 6f 6e 66 NFIGPATH/tclConf
09b0: 69 67 2e 73 68 22 0a 09 65 6c 73 65 0a 09 09 41 ig.sh"..else...A
09c0: 43 5f 4d 53 47 5f 45 52 52 4f 52 28 5b 75 6e 61 C_MSG_ERROR([una
09d0: 62 6c 65 20 74 6f 20 6c 6f 61 64 20 74 63 6c 43 ble to load tclC
09e0: 6f 6e 66 69 67 2e 73 68 5d 29 0a 09 66 69 0a 0a onfig.sh])..fi..
09f0: 0a 09 41 43 5f 4d 53 47 5f 52 45 53 55 4c 54 28 ..AC_MSG_RESULT(
0a00: 5b 66 6f 75 6e 64 5d 29 0a 5d 29 0a 0a 41 43 5f [found]).])..AC_
0a10: 44 45 46 55 4e 28 5b 54 43 4c 45 58 54 5f 49 4e DEFUN([TCLEXT_IN
0a20: 49 54 5d 2c 20 5b 0a 09 41 43 5f 43 41 4e 4f 4e IT], [..AC_CANON
0a30: 49 43 41 4c 5f 48 4f 53 54 0a 0a 09 54 43 4c 45 ICAL_HOST...TCLE
0a40: 58 54 5f 46 49 4e 44 5f 54 43 4c 43 4f 4e 46 49 XT_FIND_TCLCONFI
0a50: 47 0a 09 54 43 4c 45 58 54 5f 4c 4f 41 44 5f 54 G..TCLEXT_LOAD_T
0a60: 43 4c 43 4f 4e 46 49 47 0a 0a 09 41 43 5f 44 45 CLCONFIG...AC_DE
0a70: 46 49 4e 45 5f 55 4e 51 55 4f 54 45 44 28 5b 4d FINE_UNQUOTED([M
0a80: 4f 44 55 4c 45 5f 53 43 4f 50 45 5d 2c 20 5b 73 ODULE_SCOPE], [s
0a90: 74 61 74 69 63 5d 2c 20 5b 44 65 66 69 6e 65 20 tatic], [Define
0aa0: 68 6f 77 20 74 6f 20 64 65 63 6c 61 72 65 20 61 how to declare a
0ab0: 20 66 75 6e 63 74 69 6f 6e 20 73 68 6f 75 6c 64 function should
0ac0: 20 6f 6e 6c 79 20 62 65 20 76 69 73 69 62 6c 65 only be visible
0ad0: 20 74 6f 20 74 68 65 20 63 75 72 72 65 6e 74 20 to the current
0ae0: 6d 6f 64 75 6c 65 5d 29 0a 0a 09 54 43 4c 45 58 module])...TCLEX
0af0: 54 5f 42 55 49 4c 44 3d 27 73 68 61 72 65 64 27 T_BUILD='shared'
0b00: 0a 09 41 43 5f 41 52 47 5f 45 4e 41 42 4c 45 28 ..AC_ARG_ENABLE(
0b10: 5b 73 74 61 74 69 63 5d 2c 20 41 53 5f 48 45 4c [static], AS_HEL
0b20: 50 5f 53 54 52 49 4e 47 28 5b 2d 2d 65 6e 61 62 P_STRING([--enab
0b30: 6c 65 2d 73 74 61 74 69 63 5d 2c 20 5b 65 6e 61 le-static], [ena
0b40: 62 6c 65 20 61 20 73 74 61 74 69 63 20 62 75 69 ble a static bui
0b50: 6c 64 5d 29 2c 20 5b 0a 09 09 69 66 20 74 65 73 ld]), [...if tes
0b60: 74 20 22 24 65 6e 61 62 6c 65 76 61 6c 22 20 3d t "$enableval" =
0b70: 20 22 79 65 73 22 3b 20 74 68 65 6e 0a 09 09 09 "yes"; then....
0b80: 54 43 4c 45 58 54 5f 42 55 49 4c 44 3d 27 73 74 TCLEXT_BUILD='st
0b90: 61 74 69 63 27 0a 09 09 09 54 43 4c 5f 53 55 50 atic'....TCL_SUP
0ba0: 50 4f 52 54 53 5f 53 54 55 42 53 3d 30 0a 09 09 PORTS_STUBS=0...
0bb0: 66 69 0a 09 5d 29 0a 0a 09 41 43 5f 41 52 47 5f fi..])...AC_ARG_
0bc0: 45 4e 41 42 4c 45 28 5b 73 74 75 62 73 5d 2c 20 ENABLE([stubs],
0bd0: 41 53 5f 48 45 4c 50 5f 53 54 52 49 4e 47 28 5b AS_HELP_STRING([
0be0: 2d 2d 64 69 73 61 62 6c 65 2d 73 74 75 62 73 5d --disable-stubs]
0bf0: 2c 20 5b 64 69 73 61 62 6c 65 20 75 73 65 20 6f , [disable use o
0c00: 66 20 54 63 6c 20 73 74 75 62 73 5d 29 2c 20 5b f Tcl stubs]), [
0c10: 0a 09 09 69 66 20 74 65 73 74 20 22 24 65 6e 61 ...if test "$ena
0c20: 62 6c 65 76 61 6c 22 20 3d 20 22 6e 6f 22 3b 20 bleval" = "no";
0c30: 74 68 65 6e 0a 09 09 09 54 43 4c 5f 53 55 50 50 then....TCL_SUPP
0c40: 4f 52 54 53 5f 53 54 55 42 53 3d 30 0a 09 09 65 ORTS_STUBS=0...e
0c50: 6c 73 65 0a 09 09 09 54 43 4c 5f 53 55 50 50 4f lse....TCL_SUPPO
0c60: 52 54 53 5f 53 54 55 42 53 3d 31 0a 09 09 66 69 RTS_STUBS=1...fi
0c70: 0a 09 5d 29 0a 0a 09 69 66 20 74 65 73 74 20 22 ..])...if test "
0c80: 24 54 43 4c 5f 53 55 50 50 4f 52 54 53 5f 53 54 $TCL_SUPPORTS_ST
0c90: 55 42 53 22 20 3d 20 22 31 22 3b 20 74 68 65 6e UBS" = "1"; then
0ca0: 0a 09 09 41 43 5f 44 45 46 49 4e 45 28 5b 55 53 ...AC_DEFINE([US
0cb0: 45 5f 54 43 4c 5f 53 54 55 42 53 5d 2c 20 5b 31 E_TCL_STUBS], [1
0cc0: 5d 2c 20 5b 44 65 66 69 6e 65 20 69 66 20 79 6f ], [Define if yo
0cd0: 75 20 61 72 65 20 75 73 69 6e 67 20 74 68 65 20 u are using the
0ce0: 54 63 6c 20 53 74 75 62 73 20 4d 65 63 68 61 6e Tcl Stubs Mechan
0cf0: 69 73 6d 5d 29 0a 0a 09 09 54 43 4c 5f 53 54 55 ism])....TCL_STU
0d00: 42 5f 4c 49 42 5f 53 50 45 43 3d 22 60 65 76 61 B_LIB_SPEC="`eva
0d10: 6c 20 65 63 68 6f 20 22 24 7b 54 43 4c 5f 53 54 l echo "${TCL_ST
0d20: 55 42 5f 4c 49 42 5f 53 50 45 43 7d 22 60 22 0a UB_LIB_SPEC}"`".
0d30: 09 09 4c 49 42 53 3d 22 24 7b 4c 49 42 53 7d 20 ..LIBS="${LIBS}
0d40: 24 7b 54 43 4c 5f 53 54 55 42 5f 4c 49 42 5f 53 ${TCL_STUB_LIB_S
0d50: 50 45 43 7d 22 0a 09 65 6c 73 65 0a 09 09 54 43 PEC}"..else...TC
0d60: 4c 5f 4c 49 42 5f 53 50 45 43 3d 22 60 65 76 61 L_LIB_SPEC="`eva
0d70: 6c 20 65 63 68 6f 20 22 24 7b 54 43 4c 5f 4c 49 l echo "${TCL_LI
0d80: 42 5f 53 50 45 43 7d 22 60 22 0a 09 09 4c 49 42 B_SPEC}"`"...LIB
0d90: 53 3d 22 24 7b 4c 49 42 53 7d 20 24 7b 54 43 4c S="${LIBS} ${TCL
0da0: 5f 4c 49 42 5f 53 50 45 43 7d 22 0a 09 66 69 0a _LIB_SPEC}"..fi.
0db0: 0a 09 54 43 4c 5f 49 4e 43 4c 55 44 45 5f 53 50 ..TCL_INCLUDE_SP
0dc0: 45 43 3d 22 60 65 76 61 6c 20 65 63 68 6f 20 22 EC="`eval echo "
0dd0: 24 7b 54 43 4c 5f 49 4e 43 4c 55 44 45 5f 53 50 ${TCL_INCLUDE_SP
0de0: 45 43 7d 22 60 22 0a 0a 09 43 46 4c 41 47 53 3d EC}"`"...CFLAGS=
0df0: 22 24 7b 43 46 4c 41 47 53 7d 20 24 7b 54 43 4c "${CFLAGS} ${TCL
0e00: 5f 49 4e 43 4c 55 44 45 5f 53 50 45 43 7d 22 0a _INCLUDE_SPEC}".
0e10: 09 43 50 50 46 4c 41 47 53 3d 22 24 7b 43 50 50 .CPPFLAGS="${CPP
0e20: 46 4c 41 47 53 7d 20 24 7b 54 43 4c 5f 49 4e 43 FLAGS} ${TCL_INC
0e30: 4c 55 44 45 5f 53 50 45 43 7d 22 0a 09 54 43 4c LUDE_SPEC}"..TCL
0e40: 5f 44 45 46 53 5f 54 43 4c 5f 4f 4e 4c 59 3d 60 _DEFS_TCL_ONLY=`
0e50: 28 0a 09 09 65 76 61 6c 20 22 73 65 74 20 2d 2d (...eval "set --
0e60: 20 24 7b 54 43 4c 5f 44 45 46 53 7d 22 0a 09 09 ${TCL_DEFS}"...
0e70: 66 6f 72 20 66 6c 61 67 20 69 6e 20 22 5b 24 5d for flag in "[$]
0e80: 40 22 3b 20 64 6f 0a 09 09 09 63 61 73 65 20 22 @"; do....case "
0e90: 24 7b 66 6c 61 67 7d 22 20 69 6e 0a 09 09 09 09 ${flag}" in.....
0ea0: 2d 44 54 43 4c 5f 2a 29 0a 09 09 09 09 09 41 53 -DTCL_*)......AS
0eb0: 5f 45 43 48 4f 5f 4e 28 22 24 7b 66 6c 61 67 7d _ECHO_N("${flag}
0ec0: 20 22 29 0a 09 09 09 09 09 3b 3b 0a 09 09 09 65 ")......;;....e
0ed0: 73 61 63 0a 09 09 64 6f 6e 65 0a 09 29 60 0a 09 sac...done..)`..
0ee0: 54 43 4c 5f 44 45 46 53 3d 22 24 7b 54 43 4c 5f TCL_DEFS="${TCL_
0ef0: 44 45 46 53 5f 54 43 4c 5f 4f 4e 4c 59 7d 22 0a DEFS_TCL_ONLY}".
0f00: 09 41 43 5f 53 55 42 53 54 28 54 43 4c 5f 44 45 .AC_SUBST(TCL_DE
0f10: 46 53 29 0a 0a 09 64 6e 6c 20 4e 65 65 64 65 64 FS)...dnl Needed
0f20: 20 66 6f 72 20 70 61 63 6b 61 67 65 20 69 6e 73 for package ins
0f30: 74 61 6c 6c 61 74 69 6f 6e 0a 09 54 43 4c 5f 50 tallation..TCL_P
0f40: 41 43 4b 41 47 45 5f 50 41 54 48 3d 22 60 65 63 ACKAGE_PATH="`ec
0f50: 68 6f 20 22 24 7b 54 43 4c 5f 50 41 43 4b 41 47 ho "${TCL_PACKAG
0f60: 45 5f 50 41 54 48 7d 22 20 7c 20 73 65 64 20 27 E_PATH}" | sed '
0f70: 73 40 20 20 2a 24 27 27 40 40 27 20 7c 20 61 77 s@ *$''@@' | aw
0f80: 6b 20 27 7b 20 70 72 69 6e 74 20 5b 24 5d 31 20 k '{ print [$]1
0f90: 7d 27 60 22 0a 09 41 43 5f 53 55 42 53 54 28 54 }'`"..AC_SUBST(T
0fa0: 43 4c 5f 50 41 43 4b 41 47 45 5f 50 41 54 48 29 CL_PACKAGE_PATH)
0fb0: 0a 0a 09 41 43 5f 53 55 42 53 54 28 4c 49 42 53 ...AC_SUBST(LIBS
0fc0: 29 0a 5d 29 0a ).]).