Hex Artifact Content

Artifact 4c6596ca036691f0026e61f6170239d248a1b3f8:


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 66 6f 72 20 72 75 6e 6e 61 62 6c 65 20  K([for runnable 
0070: 74 63 6c 73 68 5d 2c 20 5b 74 63 6c 5f 63 76 5f  tclsh], [tcl_cv_
0080: 74 63 6c 73 68 5f 6e 61 74 69 76 65 5f 70 61 74  tclsh_native_pat
0090: 68 5d 2c 20 5b 0a 09 09 64 6e 6c 20 54 72 79 20  h], [...dnl Try 
00a0: 74 6f 20 66 69 6e 64 20 61 20 72 75 6e 6e 61 62  to find a runnab
00b0: 6c 65 20 74 63 6c 73 68 0a 09 09 69 66 20 74 65  le tclsh...if te
00c0: 73 74 20 2d 7a 20 22 24 54 43 4c 43 4f 4e 46 49  st -z "$TCLCONFI
00d0: 47 50 41 54 48 22 3b 20 74 68 65 6e 0a 09 09 09  GPATH"; then....
00e0: 54 43 4c 43 4f 4e 46 49 47 50 41 54 48 3d 2f 64  TCLCONFIGPATH=/d
00f0: 65 76 2f 6e 75 6c 6c 2f 6e 75 6c 6c 0a 09 09 66  ev/null/null...f
0100: 69 0a 0a 09 09 66 6f 72 20 74 72 79 5f 74 63 6c  i....for try_tcl
0110: 73 68 20 69 6e 20 22 24 54 43 4c 53 48 5f 4e 41  sh in "$TCLSH_NA
0120: 54 49 56 45 22 20 22 24 54 43 4c 43 4f 4e 46 49  TIVE" "$TCLCONFI
0130: 47 50 41 54 48 2f 2e 2e 2f 62 69 6e 2f 74 63 6c  GPATH/../bin/tcl
0140: 73 68 22 20 5c 0a 09 09 20 20 20 20 20 20 20 20  sh" \...        
0150: 20 20 20 20 20 20 20 20 20 22 24 54 43 4c 43 4f           "$TCLCO
0160: 4e 46 49 47 50 41 54 48 2f 2e 2e 2f 62 69 6e 2f  NFIGPATH/../bin/
0170: 74 63 6c 73 68 38 2e 36 22 20 5c 0a 09 09 20 20  tclsh8.6" \...  
0180: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22                 "
0190: 24 54 43 4c 43 4f 4e 46 49 47 50 41 54 48 2f 2e  $TCLCONFIGPATH/.
01a0: 2e 2f 62 69 6e 2f 74 63 6c 73 68 38 2e 35 22 20  ./bin/tclsh8.5" 
01b0: 5c 0a 09 09 20 20 20 20 20 20 20 20 20 20 20 20  \...            
01c0: 20 20 20 20 20 22 24 54 43 4c 43 4f 4e 46 49 47       "$TCLCONFIG
01d0: 50 41 54 48 2f 2e 2e 2f 62 69 6e 2f 74 63 6c 73  PATH/../bin/tcls
01e0: 68 38 2e 34 22 20 5c 0a 09 09 20 20 20 20 20 20  h8.4" \...      
01f0: 20 20 20 20 20 20 20 20 20 20 20 60 77 68 69 63             `whic
0200: 68 20 74 63 6c 73 68 20 32 3e 2f 64 65 76 2f 6e  h tclsh 2>/dev/n
0210: 75 6c 6c 60 20 5c 0a 09 09 20 20 20 20 20 20 20  ull` \...       
0220: 20 20 20 20 20 20 20 20 20 20 60 77 68 69 63 68            `which
0230: 20 74 63 6c 73 68 38 2e 36 20 32 3e 2f 64 65 76   tclsh8.6 2>/dev
0240: 2f 6e 75 6c 6c 60 20 5c 0a 09 09 20 20 20 20 20  /null` \...     
0250: 20 20 20 20 20 20 20 20 20 20 20 20 60 77 68 69              `whi
0260: 63 68 20 74 63 6c 73 68 38 2e 35 20 32 3e 2f 64  ch tclsh8.5 2>/d
0270: 65 76 2f 6e 75 6c 6c 60 20 5c 0a 09 09 20 20 20  ev/null` \...   
0280: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 60 77                `w
0290: 68 69 63 68 20 74 63 6c 73 68 38 2e 34 20 32 3e  hich tclsh8.4 2>
02a0: 2f 64 65 76 2f 6e 75 6c 6c 60 20 5c 0a 09 09 20  /dev/null` \... 
02b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
02c0: 74 63 6c 73 68 3b 20 64 6f 0a 09 09 09 69 66 20  tclsh; do....if 
02d0: 74 65 73 74 20 2d 7a 20 22 24 74 72 79 5f 74 63  test -z "$try_tc
02e0: 6c 73 68 22 3b 20 74 68 65 6e 0a 09 09 09 09 63  lsh"; then.....c
02f0: 6f 6e 74 69 6e 75 65 0a 09 09 09 66 69 0a 09 09  ontinue....fi...
0300: 09 69 66 20 74 65 73 74 20 2d 78 20 22 24 74 72  .if test -x "$tr
0310: 79 5f 74 63 6c 73 68 22 3b 20 74 68 65 6e 0a 09  y_tclsh"; then..
0320: 09 09 09 69 66 20 65 63 68 6f 20 27 65 78 69 74  ...if echo 'exit
0330: 20 30 27 20 7c 20 22 24 74 72 79 5f 74 63 6c 73   0' | "$try_tcls
0340: 68 22 20 32 3e 2f 64 65 76 2f 6e 75 6c 6c 20 3e  h" 2>/dev/null >
0350: 2f 64 65 76 2f 6e 75 6c 6c 3b 20 74 68 65 6e 0a  /dev/null; then.
0360: 09 09 09 09 09 74 63 6c 5f 63 76 5f 74 63 6c 73  .....tcl_cv_tcls
0370: 68 5f 6e 61 74 69 76 65 5f 70 61 74 68 3d 22 24  h_native_path="$
0380: 74 72 79 5f 74 63 6c 73 68 22 0a 0a 09 09 09 09  try_tclsh"......
0390: 09 62 72 65 61 6b 0a 09 09 09 09 66 69 0a 09 09  .break.....fi...
03a0: 09 66 69 0a 09 09 64 6f 6e 65 0a 0a 09 09 69 66  .fi...done....if
03b0: 20 74 65 73 74 20 22 24 54 43 4c 43 4f 4e 46 49   test "$TCLCONFI
03c0: 47 50 41 54 48 22 20 3d 20 27 2f 64 65 76 2f 6e  GPATH" = '/dev/n
03d0: 75 6c 6c 2f 6e 75 6c 6c 27 3b 20 74 68 65 6e 0a  ull/null'; then.
03e0: 09 09 09 75 6e 73 65 74 20 54 43 4c 43 4f 4e 46  ...unset TCLCONF
03f0: 49 47 50 41 54 48 0a 09 09 66 69 0a 09 5d 29 0a  IGPATH...fi..]).
0400: 0a 09 54 43 4c 53 48 5f 50 52 4f 47 3d 22 24 7b  ..TCLSH_PROG="${
0410: 74 63 6c 5f 63 76 5f 74 63 6c 73 68 5f 6e 61 74  tcl_cv_tclsh_nat
0420: 69 76 65 5f 70 61 74 68 7d 22 0a 09 41 43 5f 53  ive_path}"..AC_S
0430: 55 42 53 54 28 54 43 4c 53 48 5f 50 52 4f 47 29  UBST(TCLSH_PROG)
0440: 0a 5d 29 0a 0a 0a 64 6e 6c 20 4d 75 73 74 20 63  .])...dnl Must c
0450: 61 6c 6c 20 41 43 5f 43 41 4e 4f 4e 49 43 41 4c  all AC_CANONICAL
0460: 5f 48 4f 53 54 20 20 62 65 66 6f 72 65 20 63 61  _HOST  before ca
0470: 6c 6c 69 6e 67 20 75 73 0a 41 43 5f 44 45 46 55  lling us.AC_DEFU
0480: 4e 28 5b 54 43 4c 45 58 54 5f 46 49 4e 44 5f 54  N([TCLEXT_FIND_T
0490: 43 4c 43 4f 4e 46 49 47 5d 2c 20 5b 0a 0a 09 54  CLCONFIG], [...T
04a0: 43 4c 43 4f 4e 46 49 47 50 41 54 48 3d 22 22 0a  CLCONFIGPATH="".
04b0: 09 41 43 5f 41 52 47 5f 57 49 54 48 28 5b 74 63  .AC_ARG_WITH([tc
04c0: 6c 5d 2c 20 41 53 5f 48 45 4c 50 5f 53 54 52 49  l], AS_HELP_STRI
04d0: 4e 47 28 5b 2d 2d 77 69 74 68 2d 74 63 6c 5d 2c  NG([--with-tcl],
04e0: 20 5b 64 69 72 65 63 74 6f 72 79 20 63 6f 6e 74   [directory cont
04f0: 61 69 6e 69 6e 67 20 74 63 6c 20 63 6f 6e 66 69  aining tcl confi
0500: 67 75 72 61 74 69 6f 6e 20 28 74 63 6c 43 6f 6e  guration (tclCon
0510: 66 69 67 2e 73 68 29 5d 29 2c 20 5b 0a 09 09 69  fig.sh)]), [...i
0520: 66 20 74 65 73 74 20 22 78 24 77 69 74 68 76 61  f test "x$withva
0530: 6c 22 20 3d 20 22 78 6e 6f 22 3b 20 74 68 65 6e  l" = "xno"; then
0540: 0a 09 09 09 41 43 5f 4d 53 47 5f 45 52 52 4f 52  ....AC_MSG_ERROR
0550: 28 5b 63 61 6e 74 20 62 75 69 6c 64 20 77 69 74  ([cant build wit
0560: 68 6f 75 74 20 74 63 6c 5d 29 0a 09 09 66 69 0a  hout tcl])...fi.
0570: 0a 09 09 54 43 4c 43 4f 4e 46 49 47 50 41 54 48  ...TCLCONFIGPATH
0580: 3d 22 24 77 69 74 68 76 61 6c 22 0a 09 5d 2c 20  ="$withval"..], 
0590: 5b 0a 09 09 69 66 20 74 65 73 74 20 22 24 63 72  [...if test "$cr
05a0: 6f 73 73 5f 63 6f 6d 70 69 6c 69 6e 67 22 20 3d  oss_compiling" =
05b0: 20 27 6e 6f 27 3b 20 74 68 65 6e 0a 09 09 09 54   'no'; then....T
05c0: 43 4c 45 58 54 5f 46 49 4e 44 5f 54 43 4c 53 48  CLEXT_FIND_TCLSH
05d0: 5f 50 52 4f 47 0a 09 09 09 74 63 6c 43 6f 6e 66  _PROG....tclConf
05e0: 69 67 43 68 65 63 6b 44 69 72 30 3d 22 60 65 63  igCheckDir0="`ec
05f0: 68 6f 20 27 70 75 74 73 20 5b 5b 74 63 6c 3a 3a  ho 'puts [[tcl::
0600: 70 6b 67 63 6f 6e 66 69 67 20 67 65 74 20 6c 69  pkgconfig get li
0610: 62 64 69 72 2c 72 75 6e 74 69 6d 65 5d 5d 27 20  bdir,runtime]]' 
0620: 7c 20 22 24 54 43 4c 53 48 5f 50 52 4f 47 22 20  | "$TCLSH_PROG" 
0630: 32 3e 2f 64 65 76 2f 6e 75 6c 6c 60 22 0a 09 09  2>/dev/null`"...
0640: 09 74 63 6c 43 6f 6e 66 69 67 43 68 65 63 6b 44  .tclConfigCheckD
0650: 69 72 31 3d 22 60 65 63 68 6f 20 27 70 75 74 73  ir1="`echo 'puts
0660: 20 5b 5b 74 63 6c 3a 3a 70 6b 67 63 6f 6e 66 69   [[tcl::pkgconfi
0670: 67 20 67 65 74 20 73 63 72 69 70 74 64 69 72 2c  g get scriptdir,
0680: 72 75 6e 74 69 6d 65 5d 5d 27 20 7c 20 22 24 54  runtime]]' | "$T
0690: 43 4c 53 48 5f 50 52 4f 47 22 20 32 3e 2f 64 65  CLSH_PROG" 2>/de
06a0: 76 2f 6e 75 6c 6c 60 22 0a 09 09 65 6c 73 65 0a  v/null`"...else.
06b0: 09 09 09 74 63 6c 43 6f 6e 66 69 67 43 68 65 63  ...tclConfigChec
06c0: 6b 44 69 72 30 3d 2f 64 65 76 2f 6e 75 6c 6c 2f  kDir0=/dev/null/
06d0: 6e 75 6c 6c 0a 09 09 09 74 63 6c 43 6f 6e 66 69  null....tclConfi
06e0: 67 43 68 65 63 6b 44 69 72 31 3d 2f 64 65 76 2f  gCheckDir1=/dev/
06f0: 6e 75 6c 6c 2f 6e 75 6c 6c 0a 09 09 66 69 0a 0a  null/null...fi..
0700: 09 09 69 66 20 74 65 73 74 20 22 24 63 72 6f 73  ..if test "$cros
0710: 73 5f 63 6f 6d 70 69 6c 69 6e 67 22 20 3d 20 27  s_compiling" = '
0720: 6e 6f 27 3b 20 74 68 65 6e 0a 09 09 09 64 69 72  no'; then....dir
0730: 73 3d 22 2f 75 73 72 2f 24 68 6f 73 74 5f 61 6c  s="/usr/$host_al
0740: 69 61 73 2f 6c 69 62 20 2f 75 73 72 2f 6c 69 62  ias/lib /usr/lib
0750: 20 2f 75 73 72 2f 6c 69 62 36 34 20 2f 75 73 72   /usr/lib64 /usr
0760: 2f 6c 6f 63 61 6c 2f 6c 69 62 20 2f 75 73 72 2f  /local/lib /usr/
0770: 6c 6f 63 61 6c 2f 6c 69 62 36 34 22 0a 09 09 65  local/lib64"...e
0780: 6c 73 65 0a 09 09 09 64 69 72 73 3d 27 27 0a 09  lse....dirs=''..
0790: 09 66 69 0a 0a 09 09 66 6f 72 20 64 69 72 20 69  .fi....for dir i
07a0: 6e 20 22 24 74 63 6c 43 6f 6e 66 69 67 43 68 65  n "$tclConfigChe
07b0: 63 6b 44 69 72 30 22 20 22 24 74 63 6c 43 6f 6e  ckDir0" "$tclCon
07c0: 66 69 67 43 68 65 63 6b 44 69 72 31 22 20 24 64  figCheckDir1" $d
07d0: 69 72 73 3b 20 64 6f 0a 09 09 09 69 66 20 74 65  irs; do....if te
07e0: 73 74 20 2d 66 20 22 24 64 69 72 2f 74 63 6c 43  st -f "$dir/tclC
07f0: 6f 6e 66 69 67 2e 73 68 22 3b 20 74 68 65 6e 0a  onfig.sh"; then.
0800: 09 09 09 09 54 43 4c 43 4f 4e 46 49 47 50 41 54  ....TCLCONFIGPAT
0810: 48 3d 22 24 64 69 72 22 0a 0a 09 09 09 09 62 72  H="$dir"......br
0820: 65 61 6b 0a 09 09 09 66 69 0a 09 09 64 6f 6e 65  eak....fi...done
0830: 0a 09 5d 29 0a 0a 09 41 43 5f 4d 53 47 5f 43 48  ..])...AC_MSG_CH
0840: 45 43 4b 49 4e 47 28 5b 66 6f 72 20 70 61 74 68  ECKING([for path
0850: 20 74 6f 20 74 63 6c 43 6f 6e 66 69 67 2e 73 68   to tclConfig.sh
0860: 5d 29 0a 0a 09 69 66 20 74 65 73 74 20 2d 7a 20  ])...if test -z 
0870: 22 24 54 43 4c 43 4f 4e 46 49 47 50 41 54 48 22  "$TCLCONFIGPATH"
0880: 3b 20 74 68 65 6e 0a 09 09 41 43 5f 4d 53 47 5f  ; then...AC_MSG_
0890: 45 52 52 4f 52 28 5b 75 6e 61 62 6c 65 20 74 6f  ERROR([unable to
08a0: 20 6c 6f 63 61 74 65 20 74 63 6c 43 6f 6e 66 69   locate tclConfi
08b0: 67 2e 73 68 2e 20 20 54 72 79 20 2d 2d 77 69 74  g.sh.  Try --wit
08c0: 68 2d 74 63 6c 2e 5d 29 0a 09 66 69 0a 0a 09 41  h-tcl.])..fi...A
08d0: 43 5f 53 55 42 53 54 28 54 43 4c 43 4f 4e 46 49  C_SUBST(TCLCONFI
08e0: 47 50 41 54 48 29 0a 0a 09 41 43 5f 4d 53 47 5f  GPATH)...AC_MSG_
08f0: 52 45 53 55 4c 54 28 5b 24 54 43 4c 43 4f 4e 46  RESULT([$TCLCONF
0900: 49 47 50 41 54 48 5d 29 0a 0a 09 64 6e 6c 20 46  IGPATH])...dnl F
0910: 69 6e 64 20 54 63 6c 20 69 66 20 77 65 20 68 61  ind Tcl if we ha
0920: 76 65 6e 27 74 20 61 6c 72 65 61 64 79 0a 09 69  ven't already..i
0930: 66 20 74 65 73 74 20 2d 7a 20 22 24 54 43 4c 53  f test -z "$TCLS
0940: 48 5f 50 52 4f 47 22 3b 20 74 68 65 6e 0a 09 09  H_PROG"; then...
0950: 54 43 4c 45 58 54 5f 46 49 4e 44 5f 54 43 4c 53  TCLEXT_FIND_TCLS
0960: 48 5f 50 52 4f 47 0a 09 66 69 0a 5d 29 0a 0a 64  H_PROG..fi.])..d
0970: 6e 6c 20 4d 75 73 74 20 64 65 66 69 6e 65 20 54  nl Must define T
0980: 43 4c 43 4f 4e 46 49 47 50 41 54 48 20 62 65 66  CLCONFIGPATH bef
0990: 6f 72 65 20 63 61 6c 6c 69 6e 67 20 75 73 20 28  ore calling us (
09a0: 69 2e 65 2e 2c 20 62 79 20 54 43 4c 45 58 54 5f  i.e., by TCLEXT_
09b0: 46 49 4e 44 5f 54 43 4c 43 4f 4e 46 49 47 29 0a  FIND_TCLCONFIG).
09c0: 41 43 5f 44 45 46 55 4e 28 5b 54 43 4c 45 58 54  AC_DEFUN([TCLEXT
09d0: 5f 4c 4f 41 44 5f 54 43 4c 43 4f 4e 46 49 47 5d  _LOAD_TCLCONFIG]
09e0: 2c 20 5b 0a 09 41 43 5f 4d 53 47 5f 43 48 45 43  , [..AC_MSG_CHEC
09f0: 4b 49 4e 47 28 5b 66 6f 72 20 77 6f 72 6b 69 6e  KING([for workin
0a00: 67 20 74 63 6c 43 6f 6e 66 69 67 2e 73 68 5d 29  g tclConfig.sh])
0a10: 0a 0a 09 69 66 20 74 65 73 74 20 2d 66 20 22 24  ...if test -f "$
0a20: 54 43 4c 43 4f 4e 46 49 47 50 41 54 48 2f 74 63  TCLCONFIGPATH/tc
0a30: 6c 43 6f 6e 66 69 67 2e 73 68 22 3b 20 74 68 65  lConfig.sh"; the
0a40: 6e 0a 09 09 2e 20 22 24 54 43 4c 43 4f 4e 46 49  n.... "$TCLCONFI
0a50: 47 50 41 54 48 2f 74 63 6c 43 6f 6e 66 69 67 2e  GPATH/tclConfig.
0a60: 73 68 22 0a 09 65 6c 73 65 0a 09 09 41 43 5f 4d  sh"..else...AC_M
0a70: 53 47 5f 45 52 52 4f 52 28 5b 75 6e 61 62 6c 65  SG_ERROR([unable
0a80: 20 74 6f 20 6c 6f 61 64 20 74 63 6c 43 6f 6e 66   to load tclConf
0a90: 69 67 2e 73 68 5d 29 0a 09 66 69 0a 0a 0a 09 41  ig.sh])..fi....A
0aa0: 43 5f 4d 53 47 5f 52 45 53 55 4c 54 28 5b 66 6f  C_MSG_RESULT([fo
0ab0: 75 6e 64 5d 29 0a 5d 29 0a 0a 41 43 5f 44 45 46  und]).])..AC_DEF
0ac0: 55 4e 28 5b 54 43 4c 45 58 54 5f 49 4e 49 54 5d  UN([TCLEXT_INIT]
0ad0: 2c 20 5b 0a 09 41 43 5f 43 41 4e 4f 4e 49 43 41  , [..AC_CANONICA
0ae0: 4c 5f 48 4f 53 54 0a 0a 09 54 43 4c 45 58 54 5f  L_HOST...TCLEXT_
0af0: 46 49 4e 44 5f 54 43 4c 43 4f 4e 46 49 47 0a 09  FIND_TCLCONFIG..
0b00: 54 43 4c 45 58 54 5f 4c 4f 41 44 5f 54 43 4c 43  TCLEXT_LOAD_TCLC
0b10: 4f 4e 46 49 47 0a 0a 09 41 43 5f 44 45 46 49 4e  ONFIG...AC_DEFIN
0b20: 45 5f 55 4e 51 55 4f 54 45 44 28 5b 4d 4f 44 55  E_UNQUOTED([MODU
0b30: 4c 45 5f 53 43 4f 50 45 5d 2c 20 5b 73 74 61 74  LE_SCOPE], [stat
0b40: 69 63 5d 2c 20 5b 44 65 66 69 6e 65 20 68 6f 77  ic], [Define how
0b50: 20 74 6f 20 64 65 63 6c 61 72 65 20 61 20 66 75   to declare a fu
0b60: 6e 63 74 69 6f 6e 20 73 68 6f 75 6c 64 20 6f 6e  nction should on
0b70: 6c 79 20 62 65 20 76 69 73 69 62 6c 65 20 74 6f  ly be visible to
0b80: 20 74 68 65 20 63 75 72 72 65 6e 74 20 6d 6f 64   the current mod
0b90: 75 6c 65 5d 29 0a 0a 09 54 43 4c 45 58 54 5f 42  ule])...TCLEXT_B
0ba0: 55 49 4c 44 3d 27 73 68 61 72 65 64 27 0a 09 41  UILD='shared'..A
0bb0: 43 5f 41 52 47 5f 45 4e 41 42 4c 45 28 5b 73 74  C_ARG_ENABLE([st
0bc0: 61 74 69 63 5d 2c 20 41 53 5f 48 45 4c 50 5f 53  atic], AS_HELP_S
0bd0: 54 52 49 4e 47 28 5b 2d 2d 65 6e 61 62 6c 65 2d  TRING([--enable-
0be0: 73 74 61 74 69 63 5d 2c 20 5b 65 6e 61 62 6c 65  static], [enable
0bf0: 20 61 20 73 74 61 74 69 63 20 62 75 69 6c 64 5d   a static build]
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 79  $enableval" = "y
0c20: 65 73 22 3b 20 74 68 65 6e 0a 09 09 09 54 43 4c  es"; then....TCL
0c30: 45 58 54 5f 42 55 49 4c 44 3d 27 73 74 61 74 69  EXT_BUILD='stati
0c40: 63 27 0a 09 09 09 54 43 4c 5f 53 55 50 50 4f 52  c'....TCL_SUPPOR
0c50: 54 53 5f 53 54 55 42 53 3d 30 0a 09 09 66 69 0a  TS_STUBS=0...fi.
0c60: 09 5d 29 0a 0a 09 41 43 5f 41 52 47 5f 45 4e 41  .])...AC_ARG_ENA
0c70: 42 4c 45 28 5b 73 74 75 62 73 5d 2c 20 41 53 5f  BLE([stubs], AS_
0c80: 48 45 4c 50 5f 53 54 52 49 4e 47 28 5b 2d 2d 64  HELP_STRING([--d
0c90: 69 73 61 62 6c 65 2d 73 74 75 62 73 5d 2c 20 5b  isable-stubs], [
0ca0: 64 69 73 61 62 6c 65 20 75 73 65 20 6f 66 20 54  disable use of T
0cb0: 63 6c 20 73 74 75 62 73 5d 29 2c 20 5b 0a 09 09  cl stubs]), [...
0cc0: 69 66 20 74 65 73 74 20 22 24 65 6e 61 62 6c 65  if test "$enable
0cd0: 76 61 6c 22 20 3d 20 22 6e 6f 22 3b 20 74 68 65  val" = "no"; the
0ce0: 6e 0a 09 09 09 54 43 4c 5f 53 55 50 50 4f 52 54  n....TCL_SUPPORT
0cf0: 53 5f 53 54 55 42 53 3d 30 0a 09 09 65 6c 73 65  S_STUBS=0...else
0d00: 0a 09 09 09 54 43 4c 5f 53 55 50 50 4f 52 54 53  ....TCL_SUPPORTS
0d10: 5f 53 54 55 42 53 3d 31 0a 09 09 66 69 0a 09 5d  _STUBS=1...fi..]
0d20: 29 0a 0a 09 69 66 20 74 65 73 74 20 22 24 54 43  )...if test "$TC
0d30: 4c 5f 53 55 50 50 4f 52 54 53 5f 53 54 55 42 53  L_SUPPORTS_STUBS
0d40: 22 20 3d 20 22 31 22 3b 20 74 68 65 6e 0a 09 09  " = "1"; then...
0d50: 41 43 5f 44 45 46 49 4e 45 28 5b 55 53 45 5f 54  AC_DEFINE([USE_T
0d60: 43 4c 5f 53 54 55 42 53 5d 2c 20 5b 31 5d 2c 20  CL_STUBS], [1], 
0d70: 5b 44 65 66 69 6e 65 20 69 66 20 79 6f 75 20 61  [Define if you a
0d80: 72 65 20 75 73 69 6e 67 20 74 68 65 20 54 63 6c  re using the Tcl
0d90: 20 53 74 75 62 73 20 4d 65 63 68 61 6e 69 73 6d   Stubs Mechanism
0da0: 5d 29 0a 0a 09 09 54 43 4c 5f 53 54 55 42 5f 4c  ])....TCL_STUB_L
0db0: 49 42 5f 53 50 45 43 3d 22 60 65 76 61 6c 20 65  IB_SPEC="`eval e
0dc0: 63 68 6f 20 22 24 7b 54 43 4c 5f 53 54 55 42 5f  cho "${TCL_STUB_
0dd0: 4c 49 42 5f 53 50 45 43 7d 22 60 22 0a 09 09 4c  LIB_SPEC}"`"...L
0de0: 49 42 53 3d 22 24 7b 4c 49 42 53 7d 20 24 7b 54  IBS="${LIBS} ${T
0df0: 43 4c 5f 53 54 55 42 5f 4c 49 42 5f 53 50 45 43  CL_STUB_LIB_SPEC
0e00: 7d 22 0a 09 65 6c 73 65 0a 09 09 54 43 4c 5f 4c  }"..else...TCL_L
0e10: 49 42 5f 53 50 45 43 3d 22 60 65 76 61 6c 20 65  IB_SPEC="`eval e
0e20: 63 68 6f 20 22 24 7b 54 43 4c 5f 4c 49 42 5f 53  cho "${TCL_LIB_S
0e30: 50 45 43 7d 22 60 22 0a 09 09 4c 49 42 53 3d 22  PEC}"`"...LIBS="
0e40: 24 7b 4c 49 42 53 7d 20 24 7b 54 43 4c 5f 4c 49  ${LIBS} ${TCL_LI
0e50: 42 5f 53 50 45 43 7d 22 0a 09 66 69 0a 0a 09 54  B_SPEC}"..fi...T
0e60: 43 4c 5f 49 4e 43 4c 55 44 45 5f 53 50 45 43 3d  CL_INCLUDE_SPEC=
0e70: 22 60 65 76 61 6c 20 65 63 68 6f 20 22 24 7b 54  "`eval echo "${T
0e80: 43 4c 5f 49 4e 43 4c 55 44 45 5f 53 50 45 43 7d  CL_INCLUDE_SPEC}
0e90: 22 60 22 0a 0a 09 43 46 4c 41 47 53 3d 22 24 7b  "`"...CFLAGS="${
0ea0: 43 46 4c 41 47 53 7d 20 24 7b 54 43 4c 5f 49 4e  CFLAGS} ${TCL_IN
0eb0: 43 4c 55 44 45 5f 53 50 45 43 7d 22 0a 09 43 50  CLUDE_SPEC}"..CP
0ec0: 50 46 4c 41 47 53 3d 22 24 7b 43 50 50 46 4c 41  PFLAGS="${CPPFLA
0ed0: 47 53 7d 20 24 7b 54 43 4c 5f 49 4e 43 4c 55 44  GS} ${TCL_INCLUD
0ee0: 45 5f 53 50 45 43 7d 22 0a 09 54 43 4c 5f 44 45  E_SPEC}"..TCL_DE
0ef0: 46 53 5f 54 43 4c 5f 4f 4e 4c 59 3d 60 28 0a 09  FS_TCL_ONLY=`(..
0f00: 09 65 76 61 6c 20 22 73 65 74 20 2d 2d 20 24 7b  .eval "set -- ${
0f10: 54 43 4c 5f 44 45 46 53 7d 22 0a 09 09 66 6f 72  TCL_DEFS}"...for
0f20: 20 66 6c 61 67 20 69 6e 20 22 5b 24 5d 40 22 3b   flag in "[$]@";
0f30: 20 64 6f 0a 09 09 09 63 61 73 65 20 22 24 7b 66   do....case "${f
0f40: 6c 61 67 7d 22 20 69 6e 0a 09 09 09 09 2d 44 54  lag}" in.....-DT
0f50: 43 4c 5f 2a 29 0a 09 09 09 09 09 65 63 68 6f 20  CL_*)......echo 
0f60: 22 24 7b 66 6c 61 67 7d 22 20 7c 20 73 65 64 20  "${flag}" | sed 
0f70: 22 73 2f 27 2f 27 5c 5c 27 27 2f 67 22 20 7c 20  "s/'/'\\''/g" | 
0f80: 73 65 64 20 22 73 40 5e 40 27 40 3b 73 40 22 27  sed "s@^@'@;s@"'
0f90: 5b 24 5d 27 22 40 27 40 22 20 7c 20 74 72 20 24  [$]'"@'@" | tr $
0fa0: 27 5c 6e 27 20 27 20 27 0a 09 09 09 09 09 3b 3b  '\n' ' '......;;
0fb0: 0a 09 09 09 65 73 61 63 0a 09 09 64 6f 6e 65 0a  ....esac...done.
0fc0: 09 29 60 0a 09 54 43 4c 5f 44 45 46 53 3d 22 24  .)`..TCL_DEFS="$
0fd0: 7b 54 43 4c 5f 44 45 46 53 5f 54 43 4c 5f 4f 4e  {TCL_DEFS_TCL_ON
0fe0: 4c 59 7d 22 0a 09 41 43 5f 53 55 42 53 54 28 54  LY}"..AC_SUBST(T
0ff0: 43 4c 5f 44 45 46 53 29 0a 0a 09 64 6e 6c 20 4e  CL_DEFS)...dnl N
1000: 65 65 64 65 64 20 66 6f 72 20 70 61 63 6b 61 67  eeded for packag
1010: 65 20 69 6e 73 74 61 6c 6c 61 74 69 6f 6e 0a 09  e installation..
1020: 54 43 4c 5f 50 41 43 4b 41 47 45 5f 50 41 54 48  TCL_PACKAGE_PATH
1030: 3d 22 60 65 63 68 6f 20 22 24 7b 54 43 4c 5f 50  ="`echo "${TCL_P
1040: 41 43 4b 41 47 45 5f 50 41 54 48 7d 22 20 7c 20  ACKAGE_PATH}" | 
1050: 73 65 64 20 27 73 40 20 20 2a 24 27 27 40 40 27  sed 's@  *$''@@'
1060: 20 7c 20 61 77 6b 20 27 7b 20 70 72 69 6e 74 20   | awk '{ print 
1070: 5b 24 5d 31 20 7d 27 60 22 0a 09 41 43 5f 53 55  [$]1 }'`"..AC_SU
1080: 42 53 54 28 54 43 4c 5f 50 41 43 4b 41 47 45 5f  BST(TCL_PACKAGE_
1090: 50 41 54 48 29 0a 0a 09 41 43 5f 53 55 42 53 54  PATH)...AC_SUBST
10a0: 28 4c 49 42 53 29 0a 5d 29 0a                    (LIBS).]).