Artifact
154523ce1b18749848f7efbf8d23bbec20e29e8d:
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 60 22 0a 09 09 65 CLSH_PROG"`"...e
0630: 6c 73 65 0a 09 09 09 74 63 6c 43 6f 6e 66 69 67 lse....tclConfig
0640: 43 68 65 63 6b 44 69 72 3d 2f 64 65 76 2f 6e 75 CheckDir=/dev/nu
0650: 6c 6c 2f 6e 75 6c 6c 0a 09 09 66 69 0a 0a 09 09 ll/null...fi....
0660: 69 66 20 74 65 73 74 20 22 24 63 72 6f 73 73 5f if test "$cross_
0670: 63 6f 6d 70 69 6c 69 6e 67 22 20 3d 20 27 6e 6f compiling" = 'no
0680: 27 3b 20 74 68 65 6e 0a 09 09 09 64 69 72 73 3d '; then....dirs=
0690: 22 2f 75 73 72 2f 24 68 6f 73 74 5f 61 6c 69 61 "/usr/$host_alia
06a0: 73 2f 6c 69 62 20 2f 75 73 72 2f 6c 69 62 20 2f s/lib /usr/lib /
06b0: 75 73 72 2f 6c 69 62 36 34 20 2f 75 73 72 2f 6c usr/lib64 /usr/l
06c0: 6f 63 61 6c 2f 6c 69 62 20 2f 75 73 72 2f 6c 6f ocal/lib /usr/lo
06d0: 63 61 6c 2f 6c 69 62 36 34 22 0a 09 09 65 6c 73 cal/lib64"...els
06e0: 65 0a 09 09 09 64 69 72 73 3d 27 27 0a 09 09 66 e....dirs=''...f
06f0: 69 0a 0a 09 09 66 6f 72 20 64 69 72 20 69 6e 20 i....for dir in
0700: 22 24 74 63 6c 43 6f 6e 66 69 67 43 68 65 63 6b "$tclConfigCheck
0710: 44 69 72 22 20 24 64 69 72 73 3b 20 64 6f 0a 09 Dir" $dirs; do..
0720: 09 09 69 66 20 74 65 73 74 20 2d 66 20 22 24 64 ..if test -f "$d
0730: 69 72 2f 74 63 6c 43 6f 6e 66 69 67 2e 73 68 22 ir/tclConfig.sh"
0740: 3b 20 74 68 65 6e 0a 09 09 09 09 54 43 4c 43 4f ; then.....TCLCO
0750: 4e 46 49 47 50 41 54 48 3d 22 24 64 69 72 22 0a NFIGPATH="$dir".
0760: 0a 09 09 09 09 62 72 65 61 6b 0a 09 09 09 66 69 .....break....fi
0770: 0a 09 09 64 6f 6e 65 0a 09 5d 29 0a 0a 09 41 43 ...done..])...AC
0780: 5f 4d 53 47 5f 43 48 45 43 4b 49 4e 47 28 5b 66 _MSG_CHECKING([f
0790: 6f 72 20 70 61 74 68 20 74 6f 20 74 63 6c 43 6f or path to tclCo
07a0: 6e 66 69 67 2e 73 68 5d 29 0a 0a 09 69 66 20 74 nfig.sh])...if t
07b0: 65 73 74 20 2d 7a 20 22 24 54 43 4c 43 4f 4e 46 est -z "$TCLCONF
07c0: 49 47 50 41 54 48 22 3b 20 74 68 65 6e 0a 09 09 IGPATH"; then...
07d0: 41 43 5f 4d 53 47 5f 45 52 52 4f 52 28 5b 75 6e AC_MSG_ERROR([un
07e0: 61 62 6c 65 20 74 6f 20 6c 6f 63 61 74 65 20 74 able to locate t
07f0: 63 6c 43 6f 6e 66 69 67 2e 73 68 2e 20 20 54 72 clConfig.sh. Tr
0800: 79 20 2d 2d 77 69 74 68 2d 74 63 6c 2e 5d 29 0a y --with-tcl.]).
0810: 09 66 69 0a 0a 09 41 43 5f 53 55 42 53 54 28 54 .fi...AC_SUBST(T
0820: 43 4c 43 4f 4e 46 49 47 50 41 54 48 29 0a 0a 09 CLCONFIGPATH)...
0830: 41 43 5f 4d 53 47 5f 52 45 53 55 4c 54 28 5b 24 AC_MSG_RESULT([$
0840: 54 43 4c 43 4f 4e 46 49 47 50 41 54 48 5d 29 0a TCLCONFIGPATH]).
0850: 0a 09 64 6e 6c 20 46 69 6e 64 20 54 63 6c 20 69 ..dnl Find Tcl i
0860: 66 20 77 65 20 68 61 76 65 6e 27 74 20 61 6c 72 f we haven't alr
0870: 65 61 64 79 0a 09 69 66 20 74 65 73 74 20 2d 7a eady..if test -z
0880: 20 22 24 54 43 4c 53 48 5f 50 52 4f 47 22 3b 20 "$TCLSH_PROG";
0890: 74 68 65 6e 0a 09 09 54 43 4c 45 58 54 5f 46 49 then...TCLEXT_FI
08a0: 4e 44 5f 54 43 4c 53 48 5f 50 52 4f 47 0a 09 66 ND_TCLSH_PROG..f
08b0: 69 0a 5d 29 0a 0a 64 6e 6c 20 4d 75 73 74 20 64 i.])..dnl Must d
08c0: 65 66 69 6e 65 20 54 43 4c 43 4f 4e 46 49 47 50 efine TCLCONFIGP
08d0: 41 54 48 20 62 65 66 6f 72 65 20 63 61 6c 6c 69 ATH before calli
08e0: 6e 67 20 75 73 20 28 69 2e 65 2e 2c 20 62 79 20 ng us (i.e., by
08f0: 54 43 4c 45 58 54 5f 46 49 4e 44 5f 54 43 4c 43 TCLEXT_FIND_TCLC
0900: 4f 4e 46 49 47 29 0a 41 43 5f 44 45 46 55 4e 28 ONFIG).AC_DEFUN(
0910: 5b 54 43 4c 45 58 54 5f 4c 4f 41 44 5f 54 43 4c [TCLEXT_LOAD_TCL
0920: 43 4f 4e 46 49 47 5d 2c 20 5b 0a 09 41 43 5f 4d CONFIG], [..AC_M
0930: 53 47 5f 43 48 45 43 4b 49 4e 47 28 5b 66 6f 72 SG_CHECKING([for
0940: 20 77 6f 72 6b 69 6e 67 20 74 63 6c 43 6f 6e 66 working tclConf
0950: 69 67 2e 73 68 5d 29 0a 0a 09 69 66 20 74 65 73 ig.sh])...if tes
0960: 74 20 2d 66 20 22 24 54 43 4c 43 4f 4e 46 49 47 t -f "$TCLCONFIG
0970: 50 41 54 48 2f 74 63 6c 43 6f 6e 66 69 67 2e 73 PATH/tclConfig.s
0980: 68 22 3b 20 74 68 65 6e 0a 09 09 2e 20 22 24 54 h"; then.... "$T
0990: 43 4c 43 4f 4e 46 49 47 50 41 54 48 2f 74 63 6c CLCONFIGPATH/tcl
09a0: 43 6f 6e 66 69 67 2e 73 68 22 0a 09 65 6c 73 65 Config.sh"..else
09b0: 0a 09 09 41 43 5f 4d 53 47 5f 45 52 52 4f 52 28 ...AC_MSG_ERROR(
09c0: 5b 75 6e 61 62 6c 65 20 74 6f 20 6c 6f 61 64 20 [unable to load
09d0: 74 63 6c 43 6f 6e 66 69 67 2e 73 68 5d 29 0a 09 tclConfig.sh])..
09e0: 66 69 0a 0a 0a 09 41 43 5f 4d 53 47 5f 52 45 53 fi....AC_MSG_RES
09f0: 55 4c 54 28 5b 66 6f 75 6e 64 5d 29 0a 5d 29 0a ULT([found]).]).
0a00: 0a 41 43 5f 44 45 46 55 4e 28 5b 54 43 4c 45 58 .AC_DEFUN([TCLEX
0a10: 54 5f 49 4e 49 54 5d 2c 20 5b 0a 09 41 43 5f 43 T_INIT], [..AC_C
0a20: 41 4e 4f 4e 49 43 41 4c 5f 48 4f 53 54 0a 0a 09 ANONICAL_HOST...
0a30: 54 43 4c 45 58 54 5f 46 49 4e 44 5f 54 43 4c 43 TCLEXT_FIND_TCLC
0a40: 4f 4e 46 49 47 0a 09 54 43 4c 45 58 54 5f 4c 4f ONFIG..TCLEXT_LO
0a50: 41 44 5f 54 43 4c 43 4f 4e 46 49 47 0a 0a 09 41 AD_TCLCONFIG...A
0a60: 43 5f 44 45 46 49 4e 45 5f 55 4e 51 55 4f 54 45 C_DEFINE_UNQUOTE
0a70: 44 28 5b 4d 4f 44 55 4c 45 5f 53 43 4f 50 45 5d D([MODULE_SCOPE]
0a80: 2c 20 5b 73 74 61 74 69 63 5d 2c 20 5b 44 65 66 , [static], [Def
0a90: 69 6e 65 20 68 6f 77 20 74 6f 20 64 65 63 6c 61 ine how to decla
0aa0: 72 65 20 61 20 66 75 6e 63 74 69 6f 6e 20 73 68 re a function sh
0ab0: 6f 75 6c 64 20 6f 6e 6c 79 20 62 65 20 76 69 73 ould only be vis
0ac0: 69 62 6c 65 20 74 6f 20 74 68 65 20 63 75 72 72 ible to the curr
0ad0: 65 6e 74 20 6d 6f 64 75 6c 65 5d 29 0a 0a 09 54 ent module])...T
0ae0: 43 4c 45 58 54 5f 42 55 49 4c 44 3d 27 73 68 61 CLEXT_BUILD='sha
0af0: 72 65 64 27 0a 09 41 43 5f 41 52 47 5f 45 4e 41 red'..AC_ARG_ENA
0b00: 42 4c 45 28 5b 73 74 61 74 69 63 5d 2c 20 41 53 BLE([static], AS
0b10: 5f 48 45 4c 50 5f 53 54 52 49 4e 47 28 5b 2d 2d _HELP_STRING([--
0b20: 65 6e 61 62 6c 65 2d 73 74 61 74 69 63 5d 2c 20 enable-static],
0b30: 5b 65 6e 61 62 6c 65 20 61 20 73 74 61 74 69 63 [enable a static
0b40: 20 62 75 69 6c 64 5d 29 2c 20 5b 0a 09 09 69 66 build]), [...if
0b50: 20 74 65 73 74 20 22 24 65 6e 61 62 6c 65 76 61 test "$enableva
0b60: 6c 22 20 3d 20 22 79 65 73 22 3b 20 74 68 65 6e l" = "yes"; then
0b70: 0a 09 09 09 54 43 4c 45 58 54 5f 42 55 49 4c 44 ....TCLEXT_BUILD
0b80: 3d 27 73 74 61 74 69 63 27 0a 09 09 09 54 43 4c ='static'....TCL
0b90: 5f 53 55 50 50 4f 52 54 53 5f 53 54 55 42 53 3d _SUPPORTS_STUBS=
0ba0: 30 0a 09 09 66 69 0a 09 5d 29 0a 0a 09 41 43 5f 0...fi..])...AC_
0bb0: 41 52 47 5f 45 4e 41 42 4c 45 28 5b 73 74 75 62 ARG_ENABLE([stub
0bc0: 73 5d 2c 20 41 53 5f 48 45 4c 50 5f 53 54 52 49 s], AS_HELP_STRI
0bd0: 4e 47 28 5b 2d 2d 64 69 73 61 62 6c 65 2d 73 74 NG([--disable-st
0be0: 75 62 73 5d 2c 20 5b 64 69 73 61 62 6c 65 20 75 ubs], [disable u
0bf0: 73 65 20 6f 66 20 54 63 6c 20 73 74 75 62 73 5d se of Tcl stubs]
0c00: 29 2c 20 5b 0a 09 09 69 66 20 74 65 73 74 20 22 ), [...if test "
0c10: 24 65 6e 61 62 6c 65 76 61 6c 22 20 3d 20 22 6e $enableval" = "n
0c20: 6f 22 3b 20 74 68 65 6e 0a 09 09 09 54 43 4c 5f o"; then....TCL_
0c30: 53 55 50 50 4f 52 54 53 5f 53 54 55 42 53 3d 30 SUPPORTS_STUBS=0
0c40: 0a 09 09 65 6c 73 65 0a 09 09 09 54 43 4c 5f 53 ...else....TCL_S
0c50: 55 50 50 4f 52 54 53 5f 53 54 55 42 53 3d 31 0a UPPORTS_STUBS=1.
0c60: 09 09 66 69 0a 09 5d 29 0a 0a 09 69 66 20 74 65 ..fi..])...if te
0c70: 73 74 20 22 24 54 43 4c 5f 53 55 50 50 4f 52 54 st "$TCL_SUPPORT
0c80: 53 5f 53 54 55 42 53 22 20 3d 20 22 31 22 3b 20 S_STUBS" = "1";
0c90: 74 68 65 6e 0a 09 09 41 43 5f 44 45 46 49 4e 45 then...AC_DEFINE
0ca0: 28 5b 55 53 45 5f 54 43 4c 5f 53 54 55 42 53 5d ([USE_TCL_STUBS]
0cb0: 2c 20 5b 31 5d 2c 20 5b 44 65 66 69 6e 65 20 69 , [1], [Define i
0cc0: 66 20 79 6f 75 20 61 72 65 20 75 73 69 6e 67 20 f you are using
0cd0: 74 68 65 20 54 63 6c 20 53 74 75 62 73 20 4d 65 the Tcl Stubs Me
0ce0: 63 68 61 6e 69 73 6d 5d 29 0a 0a 09 09 54 43 4c chanism])....TCL
0cf0: 5f 53 54 55 42 5f 4c 49 42 5f 53 50 45 43 3d 22 _STUB_LIB_SPEC="
0d00: 60 65 76 61 6c 20 65 63 68 6f 20 22 24 7b 54 43 `eval echo "${TC
0d10: 4c 5f 53 54 55 42 5f 4c 49 42 5f 53 50 45 43 7d L_STUB_LIB_SPEC}
0d20: 22 60 22 0a 09 09 4c 49 42 53 3d 22 24 7b 4c 49 "`"...LIBS="${LI
0d30: 42 53 7d 20 24 7b 54 43 4c 5f 53 54 55 42 5f 4c BS} ${TCL_STUB_L
0d40: 49 42 5f 53 50 45 43 7d 22 0a 09 65 6c 73 65 0a IB_SPEC}"..else.
0d50: 09 09 54 43 4c 5f 4c 49 42 5f 53 50 45 43 3d 22 ..TCL_LIB_SPEC="
0d60: 60 65 76 61 6c 20 65 63 68 6f 20 22 24 7b 54 43 `eval echo "${TC
0d70: 4c 5f 4c 49 42 5f 53 50 45 43 7d 22 60 22 0a 09 L_LIB_SPEC}"`"..
0d80: 09 4c 49 42 53 3d 22 24 7b 4c 49 42 53 7d 20 24 .LIBS="${LIBS} $
0d90: 7b 54 43 4c 5f 4c 49 42 5f 53 50 45 43 7d 22 0a {TCL_LIB_SPEC}".
0da0: 09 66 69 0a 0a 09 54 43 4c 5f 49 4e 43 4c 55 44 .fi...TCL_INCLUD
0db0: 45 5f 53 50 45 43 3d 22 60 65 76 61 6c 20 65 63 E_SPEC="`eval ec
0dc0: 68 6f 20 22 24 7b 54 43 4c 5f 49 4e 43 4c 55 44 ho "${TCL_INCLUD
0dd0: 45 5f 53 50 45 43 7d 22 60 22 0a 0a 09 43 46 4c E_SPEC}"`"...CFL
0de0: 41 47 53 3d 22 24 7b 43 46 4c 41 47 53 7d 20 24 AGS="${CFLAGS} $
0df0: 7b 54 43 4c 5f 49 4e 43 4c 55 44 45 5f 53 50 45 {TCL_INCLUDE_SPE
0e00: 43 7d 22 0a 09 43 50 50 46 4c 41 47 53 3d 22 24 C}"..CPPFLAGS="$
0e10: 7b 43 50 50 46 4c 41 47 53 7d 20 24 7b 54 43 4c {CPPFLAGS} ${TCL
0e20: 5f 49 4e 43 4c 55 44 45 5f 53 50 45 43 7d 22 0a _INCLUDE_SPEC}".
0e30: 09 54 43 4c 5f 44 45 46 53 5f 54 43 4c 5f 4f 4e .TCL_DEFS_TCL_ON
0e40: 4c 59 3d 60 28 0a 09 09 65 76 61 6c 20 22 73 65 LY=`(...eval "se
0e50: 74 20 2d 2d 20 24 7b 54 43 4c 5f 44 45 46 53 7d t -- ${TCL_DEFS}
0e60: 22 0a 09 09 66 6f 72 20 66 6c 61 67 20 69 6e 20 "...for flag in
0e70: 22 5b 24 5d 40 22 3b 20 64 6f 0a 09 09 09 63 61 "[$]@"; do....ca
0e80: 73 65 20 22 24 7b 66 6c 61 67 7d 22 20 69 6e 0a se "${flag}" in.
0e90: 09 09 09 09 2d 44 54 43 4c 5f 2a 29 0a 09 09 09 ....-DTCL_*)....
0ea0: 09 09 41 53 5f 45 43 48 4f 5f 4e 28 22 24 7b 66 ..AS_ECHO_N("${f
0eb0: 6c 61 67 7d 20 22 29 0a 09 09 09 09 09 3b 3b 0a lag} ")......;;.
0ec0: 09 09 09 65 73 61 63 0a 09 09 64 6f 6e 65 0a 09 ...esac...done..
0ed0: 29 60 0a 09 54 43 4c 5f 44 45 46 53 3d 22 24 7b )`..TCL_DEFS="${
0ee0: 54 43 4c 5f 44 45 46 53 5f 54 43 4c 5f 4f 4e 4c TCL_DEFS_TCL_ONL
0ef0: 59 7d 22 0a 09 41 43 5f 53 55 42 53 54 28 54 43 Y}"..AC_SUBST(TC
0f00: 4c 5f 44 45 46 53 29 0a 0a 09 64 6e 6c 20 4e 65 L_DEFS)...dnl Ne
0f10: 65 64 65 64 20 66 6f 72 20 70 61 63 6b 61 67 65 eded for package
0f20: 20 69 6e 73 74 61 6c 6c 61 74 69 6f 6e 0a 09 54 installation..T
0f30: 43 4c 5f 50 41 43 4b 41 47 45 5f 50 41 54 48 3d CL_PACKAGE_PATH=
0f40: 22 60 65 63 68 6f 20 22 24 7b 54 43 4c 5f 50 41 "`echo "${TCL_PA
0f50: 43 4b 41 47 45 5f 50 41 54 48 7d 22 20 7c 20 73 CKAGE_PATH}" | s
0f60: 65 64 20 27 73 40 20 20 2a 24 27 27 40 40 27 20 ed 's@ *$''@@'
0f70: 7c 20 61 77 6b 20 27 7b 20 70 72 69 6e 74 20 5b | awk '{ print [
0f80: 24 5d 31 20 7d 27 60 22 0a 09 41 43 5f 53 55 42 $]1 }'`"..AC_SUB
0f90: 53 54 28 54 43 4c 5f 50 41 43 4b 41 47 45 5f 50 ST(TCL_PACKAGE_P
0fa0: 41 54 48 29 0a 0a 09 41 43 5f 53 55 42 53 54 28 ATH)...AC_SUBST(
0fb0: 4c 49 42 53 29 0a 5d 29 0a LIBS).]).