github.com/Interlisp.medley
1
0
Fork 0
mirror of synced 2026-01-12 00:42:56 +00:00
Code Issues Projects Releases Wiki Activity

Update run-medley

Browse Source
This commit is contained in:
Larry Masinter 2020-09-02 20:02:28 -07:00
parent e4a584061c
commit 40bf2eaabd
1 changed files with 17 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
run-medley
View File

@ -32,8 +32,19 @@ setenv OSVERSION `uname -r`
# Directory variables are accessible from Lisp via UNIX-GETENV
if (! $?MEDLEYDIR ) setenv MEDLEYDIR "$HOME/medley"
if (! $?MAIKODIR ) setenv MAIKODIR $MEDLEYDIR/../maiko
if (! $?MEDLEYDIR ) setenv MEDLEYDIR `pwd`
if (! -d $MEDLEYDIR/loadups ) then
echo MEDLEYDIR not found: "$MEDLEYDIR"
exit 1
endif
if (! $?MAIKODIR ) then
setenv MAIKODIR $MEDLEYDIR/../maiko
if (! -d "$MAIKODIR"/bin ) then
echo "MAIKODIR not found: $MAIKODIR"
exit 1
endif
endif
setenv LDEINIT "$MEDLEYDIR/initfiles/local-init"
@ -124,7 +135,7 @@ if ($#argv != 0) then
set name=`expr substr $1 2 999`
setenv LDESRCESYSOUT "$MEDLEYDIR/loadups/${name}.sysout"
else # not an option so must be a sysout name
setenv LDESRCESYSOUT $1
0 setenv LDESRCESYSOUT $1
endif
breaksw
endsw
@ -183,9 +194,9 @@ echo "using emulator version $version"
case "3.5":
case "3.501":
setenv PATH .:$PATH
pushd $MAIKODIR/bin
setenv PATH $MAIKODIR/`osversion`.`machinetype`:$PATH
setenv PATH .:"$PATH"
pushd "$MAIKODIR"/bin
setenv PATH $MAIKODIR/`osversion`.`machinetype`:"$PATH"
popd
# if ${?DISPLAY} then # we are running under X