58 lines
1.5 KiB
Bash
Executable File
58 lines
1.5 KiB
Bash
Executable File
#!/bin/sh
|
|
|
|
if [ ! -x run-medley ] ; then
|
|
echo must run from MEDLEYDIR ;
|
|
exit 1 ;
|
|
fi
|
|
|
|
. scripts/loadup-setup.sh
|
|
|
|
loadup_start
|
|
|
|
export ROOMSDIR=${MEDLEYDIR}/rooms
|
|
export CLOSDIR=${MEDLEYDIR}/clos
|
|
|
|
export NOTECARDSDIR=${MEDLEYDIR}/notecards
|
|
if [ ! -e ${NOTECARDSDIR} ]; then
|
|
NOTECARDSDIR=$(cd ${MEDLEYDIR}/../ && pwd)/notecards
|
|
if [ ! -e ${NOTECARDSDIR} ]; then
|
|
NOTECARDSDIR=$(cd ${MEDLEYDIR}/../../ && pwd)/notecards
|
|
if [ ! -e ${NOTECARDSDIR} ]; then
|
|
NOTECARDSDIR=""
|
|
fi
|
|
fi
|
|
fi
|
|
|
|
cat >"${cmfile}" <<"EOF"
|
|
"
|
|
|
|
(PROGN
|
|
(IL:MEDLEY-INIT-VARS 'IL:GREET)
|
|
(IL:LOAD (IL:CONCAT (QUOTE {DSK}) (IL:UNIX-GETENV(QUOTE NOTECARDSDIR))(QUOTE |/system/NOTECARDS.LCOM|)) 'IL:SYSLOAD)
|
|
(IL:LOAD (IL:CONCAT (QUOTE {DSK}) (IL:UNIX-GETENV(QUOTE ROOMSDIR))(QUOTE /ROOMS)) 'IL:SYSLOAD)
|
|
(IL:LOAD (IL:CONCAT (QUOTE {DSK}) (IL:UNIX-GETENV(QUOTE CLOSDIR))(QUOTE /DEFSYS.DFASL)) 'IL:SYSLOAD)
|
|
(IL:LOAD (IL:CONCAT (QUOTE {DSK}) (IL:UNIX-GETENV(QUOTE MEDLEYDIR))(QUOTE |lispusers/BUTTONS.LCOM|)) 'IL:SYSLOAD)
|
|
(IL:LOAD
|
|
(IL:CONCAT (QUOTE {DSK}) (IL:UNIX-GETENV (QUOTE LOADUP_SOURCEDIR)) (QUOTE /LOADUP-APPS.LCOM))
|
|
'IL:SYSLOAD
|
|
)
|
|
(IL:HARDRESET)
|
|
)
|
|
SHH
|
|
(PROGN
|
|
(IL:ENDLOADUP)
|
|
(CLOS::LOAD-CLOS)
|
|
(IL:|Apps.LOADUP|)
|
|
(IL:MAKESYS
|
|
(IL:CONCAT (QUOTE {DSK})(IL:UNIX-GETENV(QUOTE LOADUP_WORKDIR))(IL:L-CASE (QUOTE /apps.sysout)))
|
|
:APPS)
|
|
)
|
|
(IL:LOGOUT T)
|
|
|
|
"
|
|
EOF
|
|
|
|
./run-medley ${scr} -loadup "${cmfile}" "${LOADUP_WORKDIR}/full.sysout"
|
|
|
|
loadup_finish "apps.sysout" "apps.*"
|