File: gcl.sh

package info (click to toggle)
gcl27 2.7.1-13
  • links: PTS
  • area: main
  • in suites: forky, sid
  • size: 30,888 kB
  • sloc: lisp: 211,946; ansic: 52,944; sh: 9,347; makefile: 647; tcl: 53; awk: 52
file content (33 lines) | stat: -rwxr-xr-x 798 bytes parent folder | download | duplicates (3)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
#!/bin/sh

EXT=@EXT@
VERS=@VERS@

. /etc/default/gcl$EXT
if ! set | grep -q -w GCL_ANSI ; then GCL_ANSI=$DEFAULT_GCL_ANSI ; fi
if ! set | grep -q -w GCL_PROF ; then GCL_PROF=$DEFAULT_GCL_PROF ; fi

DIR=/usr/lib/gcl-$VERS;

if [ "$GCL_ANSI" = "" ] ; then 
    if [ "$GCL_PROF" = "" ] ; then
	EXE=saved_gcl;
    else
	EXE=saved_gcl_gprof;
    fi
else
    if [ "$GCL_PROF" = "" ] ; then
	EXE=saved_ansi_gcl;
    else
	EXE=saved_ansi_gcl_gprof;
    fi
fi
SYS=$DIR/unixport

exec $SYS/$EXE -dir $SYS/ -libdir $DIR/ \
   -eval '(setq si::*allow-gzipped-file* t)' \
   -eval '(setq si::*tk-library* "/usr/lib/tk@TKVERS@")' \
   -eval '(setq si::*default-info-files* (list "gcl@EXT@-si.info" "gcl@EXT@-tk.info" "gcl@EXT@.info"))' \
     "$@"

# other options: -load /tmp/foo.o -load jo.lsp -eval "(joe 3)"