diff --git a/run-medley b/run-medley old mode 100644 new mode 100755 index fe683589..03227d45 --- a/run-medley +++ b/run-medley @@ -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