File: find-tclsh

package info (click to toggle)
fossil 1%3A2.8-1
  • links: PTS
  • area: main
  • in suites: buster
  • size: 22,508 kB
  • sloc: ansic: 267,238; tcl: 12,722; sh: 5,623; makefile: 3,986; asm: 3,071; ada: 1,681; pascal: 1,139; cpp: 1,001; cs: 879; sql: 376; perl: 224; xml: 95
file content (16 lines) | stat: -rwxr-xr-x 622 bytes parent folder | download | duplicates (12) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
#!/bin/sh
# Looks for a suitable tclsh or jimsh in the PATH
# If not found, builds a bootstrap jimsh from source
d=`dirname "$0"`
{ "$d/jimsh0" "$d/test-tclsh"; } 2>/dev/null && exit 0
PATH="$PATH:$d"; export PATH
for tclsh in jimsh tclsh tclsh8.5 tclsh8.6; do
	{ $tclsh "$d/test-tclsh"; } 2>/dev/null && exit 0
done
echo 1>&2 "No installed jimsh or tclsh, building local bootstrap jimsh0"
for cc in ${CC_FOR_BUILD:-cc} gcc; do
	{ $cc -o "$d/jimsh0" "$d/jimsh0.c"; } 2>/dev/null || continue
	"$d/jimsh0" "$d/test-tclsh" && exit 0
done
echo 1>&2 "No working C compiler found. Tried ${CC_FOR_BUILD:-cc} and gcc."
echo false