github.com/Interlisp.medley
1
0
Fork 0
mirror of synced 2026-01-25 20:06:44 +00:00
Code Issues Projects Releases Wiki Activity

run-medley -prog option for selecting ldeinit; update screen dimensions

Browse Source
This commit is contained in:
Larry Masinter
2021-02-18 10:15:01 -08:00
parent c46e57fabc
commit 7b1c12989f
8 changed files with 29 additions and 85 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
scripts/loadup-all.sh
View File

@@ -2,7 +2,7 @@
export MEDLEYDIR=`pwd`
if [ ! -f run-medley ] ; then
if [ ! -x run-medley ] ; then
echo run from MEDLEYDIR
exit 1
fi

10
scripts/loadup-full.sh
View File

@@ -2,11 +2,17 @@
export MEDLEYDIR=`pwd`
if [ ! -f run-medley ] ; then
if [ ! -x run-medley ] ; then
echo must run from MEDLEYDIR ;
exit 1 ;
fi
scr="-sc 1024x768 -gr 1042x790"
./run-medley -greet $MEDLEYDIR/sources/LOADUP-FULL.LCOM $MEDLEYDIR/loadups/lisp.sysout
rm -f ~/rem.cm
./run-medley $scr -greet $MEDLEYDIR/sources/LOADUP-FULL.LCOM $MEDLEYDIR/loadups/lisp.sysout
echo ----- made ----
ls -l loadups/full.sysout
echo ---------------

9
scripts/loadup-init.sh
View File

@@ -7,10 +7,13 @@ if [ ! -f run-medley ] ; then
exit 1
fi
export LOADUPDIR="$MEDLEYDIR"
scr="-sc 1024x768 -gr 1042x790"
mkdir -p "$MEDLEYDIR/tmp"
rm -f ~/rem.cm
./run-medley -greet "$MEDLEYDIR"/sources/LOADUP-INIT.LISP -full
./run-medley $scr -greet "$MEDLEYDIR"/sources/LOADUP-INIT.LISP -full
echo ---- made ----
ls -l tmp loadups/init*
echo --------------

44
scripts/loadup-lisp-from-init.sh
View File

@@ -1,44 +0,0 @@
#!/bin/sh
export MEDLEYDIR=`pwd`
if [ ! -f run-medley ] ; then
echo run from MEDLEYDIR
exit 1
fi
export LOADUPDIR="$MEDLEYDIR"
mkdir -p "$MEDLEYDIR/tmp"
rm -f ~/rem.cm ~/lisp.virtualmem ./tmp/* loadups/init*~
cp sources/XREM.CM ~/rem.cm
prog=../maiko/linux.x86_64/ldeinit
if [ ! -x $prog ] ; then
echo $prog not found
prog=../maiko/darwin.aarch64/ldeinit
fi
$prog -sc 1000x900 -g 1000x900 loadups/init.dlinit
echo init run
cp ~/lisp.virtualmem tmp/init-mid.sysout
echo '"' > ~/rem.cm
echo '(PROGN(LOAD(QUOTE {DSK}'$MEDLEYDIR'/sources/LOADUP.LISP))(HARDRESET))' >> ~/rem.cm
echo 'SHH(PROGN (IL:ENDLOADUP) (IL:SPECVARS . T) (IL:MAKESYS (QUOTE {DSK}'$MEDLEYDIR'/loadups/lisp.sysout)))' >> ~/rem.cm
echo '(IL:LOGOUT)' >> ~/rem.cm
echo '"' >> ~/rem.cm
echo -----rem.cm
cat ~/rem.cm
echo -----
./run-medley -greet $MEDLEYDIR/sources/LOADUP-GREET tmp/init-mid.sysout
rm ~/rem.cm
echo ----- created: -------
ls -l loadups/lisp.sysout
echo ----------------------

7
scripts/loadup-lisp-from-mid.sh
View File

@@ -7,8 +7,7 @@ if [ ! -f run-medley ] ; then
exit 1
fi
rm -f ~/rem.cm loadups/LISP.SYSOUT* loadups/lisp.sysout*
touch loadups/lisp.sysout
scr="-sc 1024x768 -gr 1042x790"
echo '"' > ~/rem.cm
echo '(PROGN(LOAD(QUOTE {DSK}'$MEDLEYDIR'/sources/LOADUP.LISP))(HARDRESET))' >> ~/rem.cm
@@ -19,7 +18,9 @@ echo '"' >> ~/rem.cm
echo -----rem.cm -----
cat ~/rem.cm
echo ----------------
./run-medley -greet $MEDLEYDIR/sources/LOADUP-GREET tmp/init-mid.sysout
./run-medley $scr -greet $MEDLEYDIR/sources/LOADUP-GREET tmp/init-mid.sysout
rm ~/rem.cm
echo ----- created: -------

12
scripts/loadup-lisp.sh
View File

@@ -1,12 +0,0 @@
#!/bin/sh
export MEDLEYDIR=`pwd`
if [ ! -f run-medley ] ; then
echo run from MEDLEYDIR
exit 1
fi
./scripts/loadup-init.sh && ./scripts/loadup-lisp-from-init.sh && ./scripts/loadup-full.sh
echo tada!

26
scripts/loadup-mid-from-init.sh
View File

@@ -2,32 +2,18 @@
export MEDLEYDIR=`pwd`
if [ ! -f run-medley ] ; then
if [ ! -x run-medley ] ; then
echo run from MEDLEYDIR
exit 1
fi
mkdir -p "$MEDLEYDIR/tmp"
rm -f ~/rem.cm ~/lisp.virtualmem ./tmp/* loadups/init*~
scr="-sc 1024x768 -gr 1042x790"
cp sources/XREM.CM ~/rem.cm
prog=../maiko/linux.x86_64/ldeinit
if [ ! -x $prog ] ; then
prog=../maiko/darwin.aarch64/ldeinit
fi
if [ ! -x $prog ] ; then
prog=../maiko/linux.armv7l/ldeinit
fi
$prog -sc 1000x900 -g 1000x900 loadups/init.dlinit
echo -
echo --- init run --
ls -l ~
cp ~/lisp.virtualmem tmp/init-mid.sysout
./run-medley -prog ldeinit $scr -vmem tmp/init-mid.sysout loadups/init.dlinit
echo ---- made ----
ls -l tmp/
echo --------------