1
0
mirror of synced 2026-01-13 15:37:38 +00:00
Interlisp.medley/scripts/loadup-aux.sh
2023-08-01 12:08:55 -07:00

25 lines
580 B
Bash
Executable File

#!/bin/sh
if [ ! -f run-medley ] ; then
echo run from MEDLEYDIR
exit 1
fi
. scripts/loadup-setup.sh
loadup_start "loadup-aux"
cat >"${LOADUP_WORKDIR}"/loadup-aux.cm <<"EOF"
"
(IL:MEDLEY-INIT-VARS)
(IL:LOAD(QUOTE MEDLEY-UTILS))
(IL:MAKE-EXPORTS-ALL)
(IL:MAKE-WHEREIS-HASH (IL:CONCAT (QUOTE {DSK}) (IL:UNIX-GETENV(QUOTE LOADUP_WORKDIR))(IL:L-CASE (QUOTE /whereis.dribble))))
(IL:LOGOUT T)
"
EOF
./run-medley $scr -loadup "${LOADUP_WORKDIR}"/loadup-aux.cm "${LOADUP_WORKDIR}"/full.sysout
loadup_finish "loadup-aux" "whereis.hash" "whereis.hash" "exports.all"