github.com/Interlisp.medley
1
0
Fork 0
mirror of synced 2026-01-26 04:12:03 +00:00
Code Issues Projects Releases Wiki Activity

Remake loadup scripts to not use MEDLEYDIR/tmp as a working dir AND cleanly separate loadup-all from loadup-db; adjust buildLoadup.yml accordingly

Browse Source
This commit is contained in:
Frank Halasz
2023-07-31 00:42:23 -07:00
parent 94269303d0
commit b59e37b703
16 changed files with 92 additions and 209 deletions
Download Patch File Download Diff File Expand all files Collapse all files

28
scripts/copy-all.sh
View File

@@ -1,30 +1,28 @@
#!/bin/sh
export MEDLEYDIR=`pwd`
if [ ! -x run-medley ] ; then
echo run from MEDLEYDIR
exit 1
fi
. scripts/loadup-setup.sh
# was
# cp -p tmp/full.sysout tmp/lisp.sysout tmp/*.dribble tmp/whereis.hash loadups/
# cp -p tmp/exports.all tmp/RDSYS tmp/RDSYS.LCOM library/
# just copy the files that are released
./scripts/cpv tmp/init.dribble loadups
./scripts/cpv tmp/lisp.dribble loadups
./scripts/cpv tmp/full.dribble loadups
./scripts/cpv tmp/fuller.dribble loadups
./scripts/cpv tmp/whereis.dribble loadups
./scripts/cpv tmp/fuller.database loadups
./scripts/cpv tmp/full.sysout loadups
./scripts/cpv tmp/lisp.sysout loadups
./scripts/cpv tmp/whereis.hash loadups
./scripts/cpv tmp/exports.all loadups
./scripts/cpv ${LOADUP_WORKDIR}/full.sysout loadups
./scripts/cpv ${LOADUP_WORKDIR}/lisp.sysout loadups
if [ "${1}" = "-apps" ]; then
./scripts/cpv tmp/apps.sysout loadups
./scripts/cpv ${LOADUP_WORKDIR}/apps.sysout loadups
fi
./scripts/cpv ${LOADUP_WORKDIR}/whereis.hash loadups
./scripts/cpv ${LOADUP_WORKDIR}/exports.all loadups
./scripts/cpv ${LOADUP_WORKDIR}/init.dribble loadups
./scripts/cpv ${LOADUP_WORKDIR}/lisp.dribble loadups
./scripts/cpv ${LOADUP_WORKDIR}/full.dribble loadups
./scripts/cpv ${LOADUP_WORKDIR}/whereis.dribble loadups

12
scripts/loadup-all.sh
View File

@@ -1,12 +1,12 @@
#!/bin/sh
export MEDLEYDIR=`pwd`
if [ ! -x run-medley ] ; then
echo run from MEDLEYDIR
exit 1
fi
. scripts/loadup-setup.sh
if [ "$1" = "-apps" ]; then
apps="./scripts/loadup-apps-from-full.sh"
else
@@ -21,7 +21,13 @@ fi
./scripts/loadup-aux.sh && \
./scripts/copy-all.sh $1
echo "**** DONE ****"
if [ $? -eq 0 ];
then
echo "+++++ loadup-all.sh: SUCCESS +++++"
else
echo "----- loadup-all.sh: FAILURE -----"
fi

61
scripts/loadup-apps-from-full.sh
View File

@@ -1,32 +1,12 @@
#!/bin/bash
#!/bin/sh
#set -x
if [ ! -x run-medley ] ; then
echo must run from MEDLEYDIR ;
exit 1 ;
fi
# function to discover what directory this script is being executed from
where_am_i() {
. scripts/loadup-setup.sh
# call this with ${BASH_SOURCE[0]:-$0} as its (only) parameter
local SCRIPT_PATH="$1";
pushd . > '/dev/null';
while [ -h "$SCRIPT_PATH" ];
do
cd "$( dirname -- "$SCRIPT_PATH"; )";
SCRIPT_PATH="$( readlink -f -- "$SCRIPT_PATH"; )";
done
cd "$( dirname -- "$SCRIPT_PATH"; )" > '/dev/null';
SCRIPT_PATH="$( pwd; )";
popd > '/dev/null';
echo "${SCRIPT_PATH}"
}
SCRIPTDIR=$(where_am_i "${BASH_SOURCE[0]:-$0}")
export MEDLEYDIR=$(cd ${SCRIPTDIR} && cd .. && pwd)
export ROOMSDIR=${MEDLEYDIR}/rooms
export CLOSDIR=${MEDLEYDIR}/clos
@@ -41,33 +21,8 @@ if [ ! -e ${NOTECARDSDIR} ]; then
fi
fi
if [ -z "${SYSOUTDIR}" ]; then
export SYSOUTDIR=${MEDLEYDIR}/tmp
fi
./run-medley $scr -loadup "${MEDLEYDIR}/sources/LOADUP-APPS.CM" "${LOADUP_TMP}/full.sysout"
if [ -z "${FULLSYSOUTPATH}" ]; then
FULLSYSOUTPATH=${SYSOUTDIR}/full.sysout
if [ ! -e ${FULLSYSOUTPATH} ]; then
FULLSYSOUTPATH=${MEDLEYDIR}/loadups/full.sysout
fi
fi
loadup_finish "loadup-apps-from-full" "apps.sysout" "apps.*"
cd ${MEDLEYDIR}
scr="-sc 1024x768 -g 1042x790"
mkdir -p ${SYSOUTDIR}
touch ${SYSOUTDIR}/loadup.timestamp
./run-medley $scr -loadup "${MEDLEYDIR}/sources/LOADUP-APPS.CM" "${FULLSYSOUTPATH}"
if [ ${SYSOUTDIR}/apps.sysout -nt ${SYSOUTDIR}/loadup.timestamp ]; then
echo ---- made ----
ls -l ${SYSOUTDIR}/apps.*
echo --------------
else
echo XXXXX FAILURE XXXXX
ls -l ${SYSOUTDIR}/apps.*
exit 1
fi

22
scripts/loadup-aux.sh
View File

@@ -1,28 +1,14 @@
#!/bin/sh
export MEDLEYDIR=`pwd`
if [ ! -f run-medley ] ; then
echo run from MEDLEYDIR
exit 1
fi
mkdir -p tmp
touch tmp/loadup.timestamp
. scripts/loadup-setup.sh
scr="-sc 1024x768 -g 1042x790"
echo '" (IL:MEDLEY-INIT-VARS)(IL:LOAD(QUOTE MEDLEY-UTILS))(IL:MAKE-EXPORTS-ALL)(IL:MAKE-WHEREIS-HASH)(IL:LOGOUT T)"' > ${LOADUP_WORKDIR}/loadup-aux.cm
echo '" (IL:MEDLEY-INIT-VARS)(IL:LOAD(QUOTE MEDLEY-UTILS))(IL:MAKE-EXPORTS-ALL)(IL:MAKE-WHEREIS-HASH)(IL:LOGOUT T)"' > tmp/loadup-aux.cm
./run-medley $scr -loadup "$MEDLEYDIR"/tmp/loadup-aux.cm tmp/full.sysout
./run-medley $scr -loadup "${LOADUP_WORKDIR}/loadup-aux.cm ${LOADUP_WORKDIR}/full.sysout
if [ tmp/whereis.hash -nt tmp/loadup.timestamp ]; then
echo ---- made ----
ls -l tmp/whereis.hash tmp/exports.all
echo --------------
else
echo XXXXX FAILURE XXXXX
ls -l tmp/whereis.hash tmp/exports.all
exit 1
fi
loadup_finish "loadup-aux" "whereis.hash" "whereis.hash" "exports.all"

28
scripts/loadup-db.sh
View File

@@ -1,26 +1,22 @@
#!/bin/sh
export MEDLEYDIR=`pwd`
if [ ! -f run-medley ] ; then
if [ ! -x run-medley ] ; then
echo run from MEDLEYDIR
exit 1
fi
touch tmp/db.timestamp
. scripts/loadup-setup.sh
scr="-sc 1024x768 -g 1042x790"
echo '" (IL:MEDLEY-INIT-VARS)(IL:FILESLOAD MEDLEY-UTILS)(IL:MAKE-FULLER-DB)(IL:LOGOUT T)"' > tmp/db.cm
./run-medley $scr -loadup "$MEDLEYDIR"/tmp/db.cm -n
if [ tmp/fuller.database -nt tmp/db.timestamp ]; then
echo ---- made ----
ls -l tmp/fuller*
echo --------------
./scripts/loadup-db-from-full.sh && ./scripts/copy-db.sh
if [ $? -eq 0 ];
then
echo "+++++ loadup-db.sh: SUCCESS +++++"
else
echo XXXXX FAILURE XXXXX
ls -l tmp/fuller*
exit 1
echo "----- loadup-db.sh: FAILURE -----"
fi

18
scripts/loadup-full-from-lisp.sh
View File

@@ -1,25 +1,13 @@
#!/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
. scripts/loadup-setup.sh
./run-medley $scr -loadup "$MEDLEYDIR/sources/LOADUP-FULL.CM" "$MEDLEYDIR/tmp/lisp.sysout"
./run-medley $scr -loadup "$MEDLEYDIR/sources/LOADUP-FULL.CM" "${LOADUP_WORKDIR}/lisp.sysout"
if [ tmp/full.sysout -nt tmp/loadup.timestamp ]; then
echo ---- made ----
ls -l tmp/full.*
echo --------------
loadup_finish "loadup-full-from-lisp" "full.sysout" "full.*"
else
echo XXXXX FAILURE XXXXX
ls -l tmp/full.*
exit 1
fi

20
scripts/loadup-init.sh
View File

@@ -1,26 +1,12 @@
#!/bin/sh
export MEDLEYDIR=`pwd`
if [ ! -f run-medley ] ; then
echo run from MEDLEYDIR
exit 1
fi
scr="-sc 1024x768 -g 1042x790"
. scripts/loadup-setup.sh
mkdir -p tmp
touch tmp/loadup.timestamp
./run-medley $scr -loadup "${MEDLEYDIR}"/sources/LOADUP-INIT.LISP loadups/starter.sysout
./run-medley $scr -loadup "$MEDLEYDIR"/sources/LOADUP-INIT.LISP loadups/starter.sysout
if [ tmp/init.dlinit -nt tmp/loadup.timestamp ]; then
echo ---- made ----
ls -l tmp/init.* tmp/RDSYS* tmp/I-NEW*
echo --------------
else
echo XXXXX FAILURE XXXXX
exit 1
fi
loadup_finish "loadup-init" "init.dlinit" "init.*" "RDSYS*" "I-NEW*"

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

@@ -1,25 +1,12 @@
#!/bin/sh
export MEDLEYDIR=`pwd`
if [ ! -f run-medley ] ; then
echo run from MEDLEYDIR
exit 1
fi
touch tmp/loadup.timestamp
. scripts/loadup-setup.sh
scr="-sc 1024x768 -g 1042x790"
./run-medley $scr -loadup "$MEDLEYDIR/sources/LOADUP-LISP.CM" ${LOADUP_WORKDIR}/init-mid.sysout
./run-medley $scr -loadup "$MEDLEYDIR/sources/LOADUP-LISP.CM" tmp/init-mid.sysout
if [ tmp/lisp.sysout -nt tmp/loadup.timestamp ]; then
echo ---- made ----
ls -l tmp/lisp.*
echo --------------
else
echo XXXXX FAILURE XXXXX
exit 1
fi
loadup_finish "loadup-lisp-from-mid" "lisp.sysout" "lisp.*"

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

@@ -1,26 +1,12 @@
#!/bin/sh
export MEDLEYDIR=`pwd`
if [ ! -x run-medley ] ; then
echo run from MEDLEYDIR
exit 1
fi
mkdir -p "$MEDLEYDIR/tmp"
touch tmp/loadup.timestamp
. scripts/loadup-setup.sh
scr="-sc 1024x768 -g 1042x790"
./run-medley -prog "ldeinit" -NF -loadup $MEDLEYDIR/sources/XREM.CM $scr -vmem tmp/init-mid.sysout ${LOADUP_WORKDIR}/init.dlinit
./run-medley -prog "ldeinit" -NF -loadup $MEDLEYDIR/sources/XREM.CM $scr -vmem tmp/init-mid.sysout tmp/init.dlinit
echo
if [ tmp/loadup.timestamp -nt tmp/init-mid.sysout ]; then
echo XXXXX FAILURE XXXXX
exit 1
else
echo ---- made ----
ls -l tmp/init-mid.sysout
echo --------------
fi
loadup_finish "loadup-mid-from-init" "init-mid.sysout" "init-mid.sysout"