Delete run-medley-mac: run-medley works on macOS
This commit is contained in:
Abe Jellinek
parent
3aaa8c9837
commit
c66fd9a4d8
219
run-medley-mac
219
run-medley-mac
@ -1,219 +0,0 @@
|
||||
#! /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
|
||||
|
||||
|
||||
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user