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

fixes Issue #375 -- make 'loadup-full' start with loadups/lisp.sysout (#379)

Browse Source
This commit is contained in:
Larry Masinter 2021-08-02 20:16:09 -07:00 committed by GitHub
parent 9b7df4a022
commit b18d16b807
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
3 changed files with 27 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
scripts/loadup-all.sh
View File

@ -14,7 +14,7 @@ touch ./tmp/loadup.timestamp
./scripts/loadup-init.sh && \
./scripts/loadup-mid-from-init.sh && \
./scripts/loadup-lisp-from-mid.sh && \
./scripts/loadup-full.sh && \
./scripts/loadup-full-from-lisp.sh && \
./scripts/loadup-aux.sh && \
echo "**** DONE ****"

25
scripts/loadup-full-from-lisp.sh Normal file
View File

@ -0,0 +1,25 @@
#!/bin/sh
export MEDLEYDIR=`pwd`
if [ ! -x run-medley ] ; then
echo must run from MEDLEYDIR ;
exit 1 ;
fi
scr="-sc 1024x768 -g 1042x790"
touch tmp/loadup.timestamp
./run-medley $scr -greet "$MEDLEYDIR/sources/LOADUP-FULL.CM" "$MEDLEYDIR/tmp/lisp.sysout"
if [ tmp/full.sysout -nt tmp/loadup.timestamp ]; then
echo ---- made ----
ls -l tmp/full.*
echo --------------
else
echo XXXXX FAILURE XXXXX
ls -l tmp/full.*
exit 1
fi

2
scripts/loadup-full.sh
View File

@ -10,7 +10,7 @@ scr="-sc 1024x768 -g 1042x790"
touch tmp/loadup.timestamp
./run-medley $scr -greet "$MEDLEYDIR/sources/LOADUP-FULL.CM" "$MEDLEYDIR/tmp/lisp.sysout"
./run-medley $scr -greet "$MEDLEYDIR/sources/LOADUP-FULL.CM" "$MEDLEYDIR/loadups/lisp.sysout"
if [ tmp/full.sysout -nt tmp/loadup.timestamp ]; then