github.com/Interlisp.medley
1
0
Fork 0
mirror of synced 2026-01-13 15:37:38 +00:00
Code Issues Projects Releases Wiki Activity

Use -NF (no fork) on ldinit during loadup

Browse Source
This commit is contained in:
Larry Masinter 2022-07-20 08:04:38 -07:00
parent 96b5a70b90
commit 8441c257d5
2 changed files with 13 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
run-medley
View File

@ -9,7 +9,7 @@
# [-prog LDEFILE]
# [--vmem | --vmfile FILE]
# [--nogreet | --greet FILE |
# --loadup FILE ] # will separate from GREET
# --loadup FILE ]
# [-n | -nl | -full | -lisp |
# [SYSOUTFILE]
@ -37,7 +37,7 @@ fi
# set defaults, overridden if suppplied explicitly
prog="lde"
passthrough_args=""
pass=""
mem="-m 256"
scroll=22
noscroll=""
@ -59,7 +59,7 @@ export LDEKBDTYPE=x
while [ "$#" -ne 0 ]; do
case "$1" in
"-loadup")
# Keep (GREET) from finding adifferent init file
# Keep (GREET) from finding a different init file
mkdir -p $MEDLEYDIR/tmp/logindir
export LOGINDIR=$MEDLEYDIR/tmp/logindir
@ -130,12 +130,15 @@ while [ "$#" -ne 0 ]; do
"-nl" | "-newlisp" )
export LDESRCESYSOUT="$MEDLEYDIR/tmp/lisp.sysout"
;;
"-*")
passthrough_args="$passthrough_args $1 $2"
echo passing through unrecognized option: "$1" "$2"
shift
"-NF")
pass="$pass $1"
;;
"-*")
pass="$pass $1 $2"
shift
;;
*)
echo sysout "$1"
export LDESRCESYSOUT="$1"
;;
esac
@ -191,10 +194,10 @@ if ! command -v "$prog" > /dev/null 2>&1; then
fi
fi
echo "running: $prog $noscroll $geometry $screensize $mem $passthrough_args $LDESRCESYSOUT"
echo "running: $prog $noscroll $geometry $screensize $mem $pass $LDESRCESYSOUT"
echo "greet: $LDEINIT"
export INMEDLEY=1
"$prog" $noscroll $geometry $screensize $mem -t "Medley Interlisp" $passthrough_args "$LDESRCESYSOUT"
"$prog" $noscroll $geometry $screensize $mem -t "Medley Interlisp" $pass "$LDESRCESYSOUT"

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

@ -12,7 +12,7 @@ touch tmp/loadup.timestamp
scr="-sc 1024x768 -g 1042x790"
./run-medley -prog ldeinit -loadup $MEDLEYDIR/sources/XREM.CM $scr -vmem tmp/init-mid.sysout tmp/init.dlinit
./run-medley -prog "ldeinit" -NF -loadup $MEDLEYDIR/sources/XREM.CM $scr -vmem tmp/init-mid.sysout tmp/init.dlinit
echo