github.com/Interlisp.medley
1
0
Fork 0
mirror of synced 2026-03-06 19:41:53 +00:00
Code Issues Projects Releases Wiki Activity

Update run-medley

Browse Source
This commit is contained in:
Larry Masinter
2020-09-02 09:00:06 -07:00
parent 1357d69391
commit e4a584061c
1 changed files with 11 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
run-medley Normal file → Executable file
View File

@@ -32,7 +32,9 @@ setenv OSVERSION `uname -r`
# Directory variables are accessible from Lisp via UNIX-GETENV
setenv MEDLEYDIR "$HOME/medley"
if (! $?MEDLEYDIR ) setenv MEDLEYDIR "$HOME/medley"
if (! $?MAIKODIR ) setenv MAIKODIR $MEDLEYDIR/../maiko
setenv LDEINIT "$MEDLEYDIR/initfiles/local-init"
@@ -133,12 +135,13 @@ else
endif
if ($?LDEDESTSYSOUT) then
else if (-f /$HOSTNAME/$LOGNAME/lisp.virtualmem) then
if (-f /$HOSTNAME/$LOGNAME/lisp.virtualmem) then
setenv LDEDESTSYSOUT /$HOSTNAME/$LOGNAME/lisp.virtualmem
else if (-f ~/lisp.virtualmem) then
else if (-f ~/lisp.virtualmem) then
setenv LDEDESTSYSOUT ~/lisp.virtualmem
else if (-d /$HOSTNAME/$LOGNAME) then
else if (-d /$HOSTNAME/$LOGNAME) then
setenv LDEDESTSYSOUT /$HOSTNAME/$LOGNAME/lisp.virtualmem
endif
endif
if (! $?LDESRCESYSOUT) then
@@ -180,8 +183,10 @@ echo "using emulator version $version"
case "3.5":
case "3.501":
set path = ($MEDLEYDIR/maiko/bin $MEDLEYDIR/../maiko/bin $path)
set path = ($MEDLEYDIR/../maiko/`osversion`/`machintype` $path)
setenv PATH .:$PATH
pushd $MAIKODIR/bin
setenv PATH $MAIKODIR/`osversion`.`machinetype`:$PATH
popd
# if ${?DISPLAY} then # we are running under X
$prog $mem $geometry $ICONSPEC