Jim Tcl
Hex Artifact Content
Not logged in

Artifact 9d1066df117ad246462f850fe51d354841c8fa75:


0000: 23 21 2f 62 69 6e 2f 73 68 0a 23 20 4c 6f 6f 6b  #!/bin/sh.# Look
0010: 73 20 66 6f 72 20 61 20 73 75 69 74 61 62 6c 65  s for a suitable
0020: 20 74 63 6c 73 68 20 6f 72 20 6a 69 6d 73 68 20   tclsh or jimsh 
0030: 69 6e 20 74 68 65 20 50 41 54 48 0a 23 20 49 66  in the PATH.# If
0040: 20 6e 6f 74 20 66 6f 75 6e 64 2c 20 62 75 69 6c   not found, buil
0050: 64 73 20 61 20 62 6f 6f 74 73 74 72 61 70 20 6a  ds a bootstrap j
0060: 69 6d 73 68 20 66 72 6f 6d 20 73 6f 75 72 63 65  imsh from source
0070: 0a 64 3d 60 64 69 72 6e 61 6d 65 20 22 24 30 22  .d=`dirname "$0"
0080: 60 0a 7b 20 22 24 64 2f 6a 69 6d 73 68 30 22 20  `.{ "$d/jimsh0" 
0090: 22 24 64 2f 74 65 73 74 2d 74 63 6c 73 68 22 3b  "$d/test-tclsh";
00a0: 20 7d 20 32 3e 2f 64 65 76 2f 6e 75 6c 6c 20 26   } 2>/dev/null &
00b0: 26 20 65 78 69 74 20 30 0a 50 41 54 48 3d 22 24  & exit 0.PATH="$
00c0: 50 41 54 48 3a 24 64 22 0a 66 6f 72 20 74 63 6c  PATH:$d".for tcl
00d0: 73 68 20 69 6e 20 6a 69 6d 73 68 20 74 63 6c 73  sh in jimsh tcls
00e0: 68 20 74 63 6c 73 68 38 2e 35 20 74 63 6c 73 68  h tclsh8.5 tclsh
00f0: 38 2e 36 3b 20 64 6f 0a 09 7b 20 24 74 63 6c 73  8.6; do..{ $tcls
0100: 68 20 22 24 64 2f 74 65 73 74 2d 74 63 6c 73 68  h "$d/test-tclsh
0110: 22 3b 20 7d 20 32 3e 2f 64 65 76 2f 6e 75 6c 6c  "; } 2>/dev/null
0120: 20 26 26 20 65 78 69 74 20 30 0a 64 6f 6e 65 0a   && exit 0.done.
0130: 65 63 68 6f 20 31 3e 26 32 20 22 4e 6f 20 69 6e  echo 1>&2 "No in
0140: 73 74 61 6c 6c 65 64 20 6a 69 6d 73 68 20 6f 72  stalled jimsh or
0150: 20 74 63 6c 73 68 2c 20 62 75 69 6c 64 69 6e 67   tclsh, building
0160: 20 6c 6f 63 61 6c 20 62 6f 6f 74 73 74 72 61 70   local bootstrap
0170: 20 6a 69 6d 73 68 30 22 0a 66 6f 72 20 63 63 20   jimsh0".for cc 
0180: 69 6e 20 24 7b 43 43 5f 46 4f 52 5f 42 55 49 4c  in ${CC_FOR_BUIL
0190: 44 3a 2d 63 63 7d 20 67 63 63 3b 20 64 6f 0a 09  D:-cc} gcc; do..
01a0: 7b 20 24 63 63 20 2d 6f 20 22 24 64 2f 6a 69 6d  { $cc -o "$d/jim
01b0: 73 68 30 22 20 22 24 64 2f 6a 69 6d 73 68 30 2e  sh0" "$d/jimsh0.
01c0: 63 22 3b 20 7d 20 32 3e 2f 64 65 76 2f 6e 75 6c  c"; } 2>/dev/nul
01d0: 6c 20 7c 7c 20 63 6f 6e 74 69 6e 75 65 0a 09 22  l || continue.."
01e0: 24 64 2f 6a 69 6d 73 68 30 22 20 22 24 64 2f 74  $d/jimsh0" "$d/t
01f0: 65 73 74 2d 74 63 6c 73 68 22 20 26 26 20 65 78  est-tclsh" && ex
0200: 69 74 20 30 0a 64 6f 6e 65 0a 65 63 68 6f 20 31  it 0.done.echo 1
0210: 3e 26 32 20 22 4e 6f 20 77 6f 72 6b 69 6e 67 20  >&2 "No working 
0220: 43 20 63 6f 6d 70 69 6c 65 72 20 66 6f 75 6e 64  C compiler found
0230: 2e 20 54 72 69 65 64 20 24 7b 43 43 5f 46 4f 52  . Tried ${CC_FOR
0240: 5f 42 55 49 4c 44 3a 2d 63 63 7d 20 61 6e 64 20  _BUILD:-cc} and 
0250: 67 63 63 2e 22 0a 65 63 68 6f 20 66 61 6c 73 65  gcc.".echo false
0260: 0a                                               .