diff --git a/bin/intclinux/lde b/bin/intclinux/lde new file mode 100644 index 00000000..76ee1b93 Binary files /dev/null and b/bin/intclinux/lde differ diff --git a/bin/intclinux/ldeether b/bin/intclinux/ldeether new file mode 100644 index 00000000..1b618fe2 Binary files /dev/null and b/bin/intclinux/ldeether differ diff --git a/bin/intclinux/ldex b/bin/intclinux/ldex new file mode 100644 index 00000000..ba712bda Binary files /dev/null and b/bin/intclinux/ldex differ diff --git a/bin/lde b/bin/lde new file mode 100644 index 00000000..6fc2a24e Binary files /dev/null and b/bin/lde differ diff --git a/bin/ldeether b/bin/ldeether new file mode 100644 index 00000000..04f3916e Binary files /dev/null and b/bin/ldeether differ diff --git a/bin/ldemulti b/bin/ldemulti new file mode 100644 index 00000000..215d391c Binary files /dev/null and b/bin/ldemulti differ diff --git a/bin/ldesingle b/bin/ldesingle new file mode 100644 index 00000000..a902dff2 Binary files /dev/null and b/bin/ldesingle differ diff --git a/bin/ldex b/bin/ldex new file mode 100644 index 00000000..ed29be25 Binary files /dev/null and b/bin/ldex differ diff --git a/bin/medley b/bin/medley new file mode 100644 index 00000000..d0f4855e --- /dev/null +++ b/bin/medley @@ -0,0 +1,219 @@ +#! /bin/csh -f +# +# Run Medley +# +# Syntax: medley [-nogreet][-xns][-noxns] [-geometry pixelgeometry] [-display xdisplay-device] +# [-raw] [-t xtimeout][-prog executable-program] [-vmem savevmemfilename] | +# [-m memorylimit] [-kbd keyboardtype] [-key key] +# [sysoutfilename | -lfg | -lisp | -full | -xlfg +# -{name of any sysout on the public sysout directory} ] +# +# -xns means leave unix xns running +# -noxns means suppress Lisp xns. + +onintr cleanup +limit coredumpsize 0 +setenv HOSTNAME `hostname` +setenv OSVERSION `uname -r` +\ +# Directory variables are accessible from Lisp via UNIX-GETENV +setenv MEDLEYDIR $local/medley3.5 +setenv lispcore $MEDLEYDIR/lispcore +setenv LDEINIT "$MEDLEYDIR/current/local-init.lcom" +setenv lfghome $local/lfg + + +set mem="-m 256" # Default, has to be set +#set geometry="-g 1060x790" +# MBA screensize +set geometry="-g 1440x900" +setenv LDEKBDTYPE x +set ICONSPEC=" " + +setenv LDEFILETIMEOUT 60 +setenv TAKEXNSDOWN 0 +setenv LDELISPXNS 0 +#default is no lispxns + +if ($#argv != 0) then + while ("$1" != "") + switch ($1) + case "-m": + set mem="-m $2" + shift + breaksw + case "-makefull": + setenv LDEINIT $MEDLEYDIR/lispcore/makesysout/makefullsysout.lcom + setenv LOADUPDIR $MEDLEYDIR/lispcore + case "-xlisp": + setenv LDESRCESYSOUT "$MEDLEYDIR/lispcore/loadups/xlisp.sysout" + breaksw + case "-oldlisp": + case "-lisp": + setenv LDESRCESYSOUT "$MEDLEYDIR/basics/lisp.sysout" + breaksw + case "-full": + setenv LDESRCESYSOUT "$MEDLEYDIR/basics/full.sysout" + breaksw + case "-makelfg": + setenv LDEINIT $lfghome/parser/makelfgsysout.lcom + setenv LOADUPDIR $lfghome/parser + case "-xfull": + setenv LDESRCESYSOUT "$MEDLEYDIR/lispcore/loadups/xfull35.sysout" + breaksw + case "-lfg": + case "-lfg35": + setenv LDESRCESYSOUT "$lfghome/parser/release/lfg.sysout" + set ICONSPEC = "-iconbitmap $lfghome/release/lfg.xbm -icontitle Xerox" + breaksw + case "-oldlfg": + setenv LDESRCESYSOUT "$lfghome/parser/oldrelease/lfg35.sysout" + set ICONSPEC = "-iconbitmap $lfghome/release/lfg.xbm -icontitle Xerox" + breaksw + case "-xlfg35": + case "-xlfg": + setenv LDESRCESYSOUT "$lfghome/parser/xlfg35.sysout" + set ICONSPEC = "-iconbitmap $lfghome/release/lfg.xbm -icontitle Xerox" + breaksw + case "-makelisp": + setenv LDEINIT $lispcore/makesysout/synclispfiles.lcom + setenv LOADUPDIR $lispcore + setenv LDESRCESYSOUT "$MEDLEYDIR/basics/lisp.sysout" + breaksw + case "-xlisp": + setenv LDESRCESYSOUT "$MEDLEYDIR/lispcore/xlisp.sysout" + breaksw + case "-makeinit": + setenv LDESRCESYSOUT "$MEDLEYDIR/basics/next/INIT.DLINIT" + setenv LDEINIT "" + breaksw + case "-nogreet": + setenv LDEINIT "" + breaksw + case "-greet": + setenv LDEINIT "$2" + shift + breaksw + case "-xns": + setenv TAKEXNSDOWN 1 + setenv LDELISPXNS 1 + breaksw + case "-noxns": + setenv TAKEXNSDOWN 0 + setenv LDELISPXNS 0 + breaksw + case "-raw": + unsetenv DISPLAY + breaksw + case "-geometry": + set geometry="-g $2" + shift + breaksw + case "-display": + setenv DISPLAY $2 + shift + breaksw + case "-t": + set xtimeout=$2 + shift + breaksw + case "-prog": + set progparam=$2 + shift + breaksw + case "-vmem": + setenv LDEDESTSYSOUT $2 + shift + breaksw + case "-kbd": + setenv LDEKBDTYPE $2 + shift + breaksw + + default: + if (`expr index "$1" "[-]"` == 1) then + # public sysout name + set name=`expr substr $1 2 999` + setenv LDESRCESYSOUT "$MEDLEYDIR/basics/${name}.sysout" + else # not an option so must be a private sysout name + setenv LDESRCESYSOUT $1 + endif + breaksw + endsw + shift + end +else +# no options specified +endif + +if ($?LDEDESTSYSOUT) then +else if (-f /$HOSTNAME/$LOGNAME/lisp.virtualmem) then + setenv LDEDESTSYSOUT /$HOSTNAME/$LOGNAME/lisp.virtualmem +else if (-f ~/lisp.virtualmem) then + setenv LDEDESTSYSOUT ~/lisp.virtualmem +else if (-d /$HOSTNAME/$LOGNAME) then + setenv LDEDESTSYSOUT /$HOSTNAME/$LOGNAME/lisp.virtualmem +endif + +if (! $?LDESRCESYSOUT) then + setenv LDESRCESYSOUT $LDEDESTSYSOUT +endif + + +if (! $?LDEKBDTYPE) then +# switch (`/usr/bin/hostinfo keyboardtype`) +# endsw +endif +echo "keyboard type is " $LDEKBDTYPE + +#set hostid = `hostid` +setenv INMEDLEY 1 +echo "sysout is " $LDESRCESYSOUT +#set version = `medley-lisp-version $LDESRCESYSOUT` +set version = "35010" +if ($status) exit + +if ($LDELISPXNS) then + set prog="ldeether" + else + set prog="lde" + echo "running without xns protocols" +endif +switch ("$version") + case "35000": + set version = "3.5" + breaksw + case "35010": + set version = "3.501" + breaksw + default: + set version = "3.5" +endsw +echo "using emulator version $version" + + switch ("$version") + case "3.5": + case "3.501": + set path = ($MEDLEYDIR/bin/ $path) +# if ${?DISPLAY} then # we are running under X + $prog $mem $geometry $ICONSPEC +# else $prog $mem + endif + breaksw + +endsw +# +# Now we are done, so clean up after ourselves +# +cleanup: + +if ${?DISPLAY} then + # do X cleanup +else +# reset +endif +#clear ; this obscures error messages + + + + diff --git a/bin/solaris/3501/keymaker b/bin/solaris/3501/keymaker new file mode 100644 index 00000000..c6a16956 Binary files /dev/null and b/bin/solaris/3501/keymaker differ diff --git a/bin/solaris/3501/lde b/bin/solaris/3501/lde new file mode 100644 index 00000000..cf512551 Binary files /dev/null and b/bin/solaris/3501/lde differ diff --git a/bin/solaris/3501/ldeether b/bin/solaris/3501/ldeether new file mode 100644 index 00000000..83875408 Binary files /dev/null and b/bin/solaris/3501/ldeether differ diff --git a/bin/solaris/3501/ldex b/bin/solaris/3501/ldex new file mode 100644 index 00000000..9ef78226 Binary files /dev/null and b/bin/solaris/3501/ldex differ diff --git a/bin/solaris/3501/mkvdate b/bin/solaris/3501/mkvdate new file mode 100644 index 00000000..d73e35db Binary files /dev/null and b/bin/solaris/3501/mkvdate differ diff --git a/bin/solaris/3501/setsout b/bin/solaris/3501/setsout new file mode 100644 index 00000000..c3b728ef Binary files /dev/null and b/bin/solaris/3501/setsout differ diff --git a/bin/solaris/3501/tstsout b/bin/solaris/3501/tstsout new file mode 100644 index 00000000..2e15be7f Binary files /dev/null and b/bin/solaris/3501/tstsout differ diff --git a/bin/solaris/keymaker b/bin/solaris/keymaker new file mode 100644 index 00000000..fac0e917 Binary files /dev/null and b/bin/solaris/keymaker differ diff --git a/bin/solaris/lde b/bin/solaris/lde new file mode 100644 index 00000000..6772856a Binary files /dev/null and b/bin/solaris/lde differ diff --git a/bin/solaris/ldex b/bin/solaris/ldex new file mode 100644 index 00000000..bb85907e Binary files /dev/null and b/bin/solaris/ldex differ diff --git a/bin/solaris/ldex.bad b/bin/solaris/ldex.bad new file mode 100644 index 00000000..ff623297 Binary files /dev/null and b/bin/solaris/ldex.bad differ diff --git a/bin/solaris/mkvdate b/bin/solaris/mkvdate new file mode 100644 index 00000000..4b3afb70 Binary files /dev/null and b/bin/solaris/mkvdate differ diff --git a/bin/solaris/resource.frk/3501 b/bin/solaris/resource.frk/3501 new file mode 100644 index 00000000..e13d8988 Binary files /dev/null and b/bin/solaris/resource.frk/3501 differ diff --git a/bin/solaris/setsout b/bin/solaris/setsout new file mode 100644 index 00000000..a199284c Binary files /dev/null and b/bin/solaris/setsout differ diff --git a/bin/solaris/tstsout b/bin/solaris/tstsout new file mode 100644 index 00000000..3545fe61 Binary files /dev/null and b/bin/solaris/tstsout differ diff --git a/bin/tstsout b/bin/tstsout new file mode 100644 index 00000000..b606f475 Binary files /dev/null and b/bin/tstsout differ