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

WIP updating loadups scripts

Browse Source
This commit is contained in:
Frank Halasz 2023-08-01 12:08:55 -07:00
parent d2102bfe9b
commit 656bb53ef6
16 changed files with 80 additions and 47 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
internal/MEDLEY-UTILS
View File

@ -1,12 +1,11 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10)
(FILECREATED "23-May-2023 07:10:58" |{DSK}<home>larry>il>medley>internal>MEDLEY-UTILS.;12| 10354
(FILECREATED "31-Jul-2023 18:34:20" |{DSK}<home>frank>il>medley>gmedley>internal>MEDLEY-UTILS.;3| 10550
:EDIT-BY "lmm"
:CHANGES-TO (FNS MAKE-WHEREIS-HASH)
:CHANGES-TO (FNS GATHER-INFO)
:PREVIOUS-DATE "22-May-2023 22:57:21" |{DSK}<home>larry>il>medley>internal>MEDLEY-UTILS.;11|)
:PREVIOUS-DATE "31-Jul-2023 18:07:23"
|{DSK}<home>frank>il>medley>gmedley>internal>MEDLEY-UTILS.;2|)
(PRETTYCOMPRINT MEDLEY-UTILSCOMS)
@ -156,24 +155,27 @@
 "Edited September 29, 1986 by van Melle")
(CNDIR (MEDLEYDIR "sources"))
(LOAD 'FILESETS)
(GATHEREXPORTS EXPORTFILES (MEDLEYDIR "tmp" "exports.all" T))))
(GATHEREXPORTS EXPORTFILES (CONCAT '{DSK} (UNIX-GETENV "LOADUP_WORKDIR")
"/" "exports.all"))))
(MAKE-WHEREIS-HASH
(LAMBDA NIL (* \; "Edited 12-Mar-2022 12:46 by rmk")
(LAMBDA (DRIBBLEFILE) (* \; "Edited 12-Mar-2022 12:46 by rmk")
(* \; "Edited 24-Mar-2021 13:26 by larry")
(LET ((FILING.ENUMERATION.DEPTH 2)
HASHFILE)
(DRIBBLE (MEDLEYDIR "tmp" "whereis.dribble" T))
(SETQ HASHFILE (XCL::WHERE-IS-NOTICE (MEDLEYDIR "tmp" "whereis.hash-tmp" T)
(DRIBBLE DRIBBLEFILE)
(SETQ HASHFILE (XCL::WHERE-IS-NOTICE (CONCAT "{DSK}" (UNIX-GETENV "LOADUP_WORKDIR")
"/" "whereis.hash-tmp")
:FILES
(|for| X |in| MEDLEY-FIX-DIRS |collect| (CONCAT (MEDLEYDIR X)
"*.;"))
:HASH-FILE-SIZE 60000 :NEW T))
(RENAMEFILE HASHFILE (MEDLEYDIR "tmp" "whereis.hash" T))
(RENAMEFILE HASHFILE (CONCAT "{DSK}" (UNIX-GETENV "LOADUP_WORKDIR")
"/" "whereis.hash"))
(DRIBBLE))))
)
(DECLARE\: DONTCOPY
(FILEMAP (NIL (624 7499 (GATHER-INFO 634 . 6162) (MAKE-FULLER-DB 6164 . 6854) (MEDLEY-FIX-LINKS 6856
. 7253) (MEDLEY-FIX-DATES 7255 . 7497)) (8538 10331 (MAKE-EXPORTS-ALL 8548 . 9507) (MAKE-WHEREIS-HASH
9509 . 10329)))))
(FILEMAP (NIL (623 7498 (GATHER-INFO 633 . 6161) (MAKE-FULLER-DB 6163 . 6853) (MEDLEY-FIX-LINKS 6855
. 7252) (MEDLEY-FIX-DATES 7254 . 7496)) (8537 10527 (MAKE-EXPORTS-ALL 8547 . 9575) (MAKE-WHEREIS-HASH
9577 . 10525)))))
STOP

BIN
internal/MEDLEY-UTILS.LCOM
View File

Binary file not shown.

28
scripts/cpv
View File

@ -4,6 +4,13 @@
# could extend with -r or copying multiple files
# could change from cp to ln
ln_or_cp () {
f=$(df $(dirname $1) | tail -1 | awk '{ print $1 }')
d=$(df $(dirname $2) | tail -1 | awk '{ print $1 }')
if [ "$f" != "$d" ]; then cmd="cp -p"; else cmd="ln"; fi
echo $cmd
}
file="$1"
dest="$2"
@ -18,9 +25,15 @@ if [ -d "$dest" ]; then
dest=$dest/`basename $file`
fi
# if (the new) $dest is a directory, then just bail
if [ -d "$dest" ]; then
echo "Error: destination file ($dest) is a directory. Exiting."
exit 1
fi
# if no such file $dest then just copy
if [ ! -f "$dest" ]; then
ln $file $dest #WAS cp -p $file $dest
$(ln_or_cp $file $dest) $file $dest
exit 0
fi
@ -41,7 +54,7 @@ if [ $max -eq 0 ]; then # no current versions
new=2
else
if cmp -q $dest $dest.~$max~ >/dev/null 2>&1
then # they're different
then # they're different
max=`expr $max + 1` # make newer version
mv $dest $dest.~$max~
new=`expr $max + 1`
@ -51,11 +64,8 @@ else
fi
fi
# make new version
# make new version and link it
ln $file $dest.~$new~ # cp -p $file $dest.~$new~
ln $dest.~$new~ $dest # and link it
$(ln_or_cp $file $dest.~new~) $file $dest.~$new~
rm -f $dest
ln $dest.~$new~ $dest

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

@ -7,6 +7,8 @@ fi
. scripts/loadup-setup.sh
loadup_start "loadup-apps-from-full"
export ROOMSDIR=${MEDLEYDIR}/rooms
export CLOSDIR=${MEDLEYDIR}/clos
@ -21,7 +23,7 @@ if [ ! -e ${NOTECARDSDIR} ]; then
fi
fi
./run-medley $scr -loadup "${MEDLEYDIR}/sources/LOADUP-APPS.CM" "${LOADUP_TMP}/full.sysout"
./run-medley $scr -loadup "${MEDLEYDIR}/sources/LOADUP-APPS.CM" "${LOADUP_WORKDIR}/full.sysout"
loadup_finish "loadup-apps-from-full" "apps.sysout" "apps.*"

14
scripts/loadup-aux.sh
View File

@ -7,8 +7,18 @@ fi
. scripts/loadup-setup.sh
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
loadup_start "loadup-aux"
./run-medley $scr -loadup "${LOADUP_WORKDIR}/loadup-aux.cm ${LOADUP_WORKDIR}/full.sysout
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"

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

@ -7,6 +7,8 @@ fi
. scripts/loadup-setup.sh
loadup_start "loadup-full-from-lisp"
./run-medley $scr -loadup "$MEDLEYDIR/sources/LOADUP-FULL.CM" "${LOADUP_WORKDIR}/lisp.sysout"
loadup_finish "loadup-full-from-lisp" "full.sysout" "full.*"

2
scripts/loadup-init.sh
View File

@ -7,6 +7,8 @@ fi
. scripts/loadup-setup.sh
loadup_start "loadup-init"
./run-medley $scr -loadup "${MEDLEYDIR}"/sources/LOADUP-INIT.LISP loadups/starter.sysout
loadup_finish "loadup-init" "init.dlinit" "init.*" "RDSYS*" "I-NEW*"

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

@ -7,6 +7,8 @@ fi
. scripts/loadup-setup.sh
loadup_start "loadup-lisp-from-mid"
./run-medley $scr -loadup "$MEDLEYDIR/sources/LOADUP-LISP.CM" ${LOADUP_WORKDIR}/init-mid.sysout
loadup_finish "loadup-lisp-from-mid" "lisp.sysout" "lisp.*"

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

@ -7,6 +7,8 @@ fi
. scripts/loadup-setup.sh
./run-medley -prog "ldeinit" -NF -loadup $MEDLEYDIR/sources/XREM.CM $scr -vmem tmp/init-mid.sysout ${LOADUP_WORKDIR}/init.dlinit
loadup_start "loadup-mid-from-init"
./run-medley -prog "ldeinit" -NF -loadup $MEDLEYDIR/sources/XREM.CM $scr -vmem ${LOADUP_WORKDIR}/init-mid.sysout ${LOADUP_WORKDIR}/init.dlinit
loadup_finish "loadup-mid-from-init" "init-mid.sysout" "init-mid.sysout"

14
scripts/loadup-setup.sh
View File

@ -1,8 +1,6 @@
export MEDLEYDIR=`pwd`
# echo "%%%%%%%%%%%%%%%%%%%%%%%%%%%%%${LOADUP_WORKDIR}============="
if [ -z "${LOADUP_WORKDIR}" ];
then
export LOADUP_WORKDIR=/tmp/loadups-$$
@ -14,8 +12,13 @@ scr="-sc 1024x768 -g 1042x790"
touch "${LOADUP_WORKDIR}"/loadup.timestamp
loadup_start () {
echo ">>>>> START ${1}"
}
loadup_finish () {
echo "===== ${1}"
local script_name=${1}
if [ "${LOADUP_WORKDIR}/${2}" -nt "${LOADUP_WORKDIR}"/loadup.timestamp ];
then
echo "+++++ SUCCESS +++++"
@ -24,13 +27,14 @@ loadup_finish () {
echo "----- FAILURE -----"
exit_code=1
fi
echo "===== files created ======"
echo "..... files created ....."
shift; shift
for f in ${*};
do
ls -l "${LOADUP_WORKDIR}"/$f 2>/dev/null
done
echo "======================================="
echo "<<<<< END ${script_name}"
echo ""
exit ${exit_code}
}

12
sources/LOADUP-FULL
View File

@ -1,10 +1,10 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
(FILECREATED "18-Jan-2023 16:23:36" {DSK}<home>frank>il>medley>gmedley>sources>LOADUP-FULL.;2 4636
(FILECREATED "31-Jul-2023 18:28:53" {DSK}<home>frank>il>medley>gmedley>sources>LOADUP-FULL.;4 4521
:CHANGES-TO (FNS LOADUP-FULL)
:PREVIOUS-DATE "12-Aug-2022 12:30:09" {DSK}<home>frank>il>medley>gmedley>sources>LOADUP-FULL.;1
:PREVIOUS-DATE "18-Jan-2023 16:23:36" {DSK}<home>frank>il>medley>gmedley>sources>LOADUP-FULL.;3
)
@ -39,7 +39,7 @@
(PRINTOUT T "FULL fonts loaded" T])
(LOADUP-FULL
[LAMBDA NIL (* ; "Edited 18-Jan-2023 16:22 by FGH")
[LAMBDA (DRIBBLEFILE) (* ; "Edited 18-Jan-2023 16:22 by FGH")
(* ; "Edited 12-Aug-2022 11:17 by lmm")
(* ; "Edited 14-Jul-2022 12:32 by rmk")
(* ; "Edited 12-Jul-2022 21:57 by rmk")
@ -55,9 +55,7 @@
(PROGN (SETQ MEDLEYDIR)
(CNDIR (MEDLEYDIR)))
(MEDLEY-INIT-VARS)
(SETQ MAKESYSFILENAME (MEDLEYDIR "tmp" "full.sysout" T))
(SETQ MAKESYSNAME :MEDLEY)
(DRIBBLE (MEDLEYDIR "tmp" "full.dribble" T))
(DRIBBLE DRIBBLEFILE)
(* ;; "BKSYSBUF stops page holding ")
@ -88,5 +86,5 @@
(FIXMETA)
(DECLARE%: DONTCOPY
(FILEMAP (NIL (467 4598 (LOADFULLFONTS 477 . 1918) (LOADUP-FULL 1920 . 4348) (FIXMETA 4350 . 4596)))))
(FILEMAP (NIL (467 4483 (LOADFULLFONTS 477 . 1918) (LOADUP-FULL 1920 . 4233) (FIXMETA 4235 . 4481)))))
STOP

2
sources/LOADUP-FULL.CM
View File

@ -1 +1 @@
" (PROGN(IL:LOAD(IL:CONCAT(QUOTE {DSK})(IL:UNIX-GETENV(QUOTE MEDLEYDIR))(QUOTE /sources/LOADUP-FULL.LCOM)))(IL:LOADUP-FULL)(IL:HARDRESET)) SHH(PROGN(IL:ENDLOADUP)(IL:MAKESYS (IL:CONCAT (QUOTE {DSK})(IL:UNIX-GETENV(QUOTE LOADUP_WORKDIR))(IL:L-CASE (QUOTE /full.sysout))) :FULL)) (IL:LOGOUT T) "
" (PROGN (IL:LOAD(IL:CONCAT(QUOTE {DSK})(IL:UNIX-GETENV(QUOTE MEDLEYDIR))(QUOTE /sources/LOADUP-FULL.LCOM))) (IL:LOADUP-FULL (IL:CONCAT (QUOTE {DSK}) (IL:UNIX-GETENV(QUOTE LOADUP_WORKDIR))(IL:L-CASE (QUOTE /full.dribble)))) (IL:HARDRESET) ) SHH (PROGN (IL:ENDLOADUP) (IL:MAKESYS (IL:CONCAT (QUOTE {DSK})(IL:UNIX-GETENV(QUOTE LOADUP_WORKDIR))(IL:L-CASE (QUOTE /full.sysout))) :FULL)) (IL:LOGOUT T) ) "

BIN
sources/LOADUP-FULL.LCOM
View File

Binary file not shown.

13
sources/LOADUP-LISP
View File

@ -1,12 +1,11 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10)
(FILECREATED "27-Feb-2023 17:15:53" |{DSK}<home>larry>il>medley>sources>LOADUP-LISP.;2| 5263
:EDIT-BY "lmm"
(FILECREATED "31-Jul-2023 18:22:53" |{DSK}<home>frank>il>medley>gmedley>sources>LOADUP-LISP.;2| 5235
:CHANGES-TO (FNS LOADUP-LISP)
:PREVIOUS-DATE "12-Aug-2022 12:29:57" |{DSK}<home>larry>il>medley>sources>LOADUP-LISP.;1|)
:PREVIOUS-DATE "27-Feb-2023 17:15:53"
|{DSK}<home>frank>il>medley>gmedley>sources>LOADUP-LISP.;1|)
(PRETTYCOMPRINT LOADUP-LISPCOMS)
@ -19,13 +18,13 @@
(DEFINEQ
(LOADUP-LISP
(LAMBDA NIL (* \; "Edited 26-Feb-2023 12:17 by lmm")
(LAMBDA (DRIBBLEFILE) (* \; "Edited 26-Feb-2023 12:17 by lmm")
(* \; "Edited 13-Jul-2022 14:09 by rmk")
(* \; "Edited 4-Mar-2022 19:13 by larry")
(* \; "Edited 29-Apr-2021 22:30 by rmk:")
(SETQQ COMPILE.EXT LCOM)
(MEDLEY-INIT-VARS) (* \; "should be set earlier")
(DRIBBLE (MEDLEYDIR "tmp" "lisp.dribble" T))
(DRIBBLE DRIBBLEFILE)
(FOR X IN BOOTLOADEDFILES DO (CL:UNLESS (MEMB X SYSFILES)
(PRINTOUT T X " bootloaded" T)
(SETQ SYSFILES (CONS X SYSFILES))))
@ -124,5 +123,5 @@
(GLOBALVARS MAKESYSFILENAME MEDLEY-INIT-VARS MEDLEYDIR SYSTEMINITVARS USERRECLST)
)
(DECLARE\: DONTCOPY
(FILEMAP (NIL (654 5057 (LOADUP-LISP 664 . 5055)))))
(FILEMAP (NIL (649 5029 (LOADUP-LISP 659 . 5027)))))
STOP

2
sources/LOADUP-LISP.CM
View File

@ -1 +1 @@
" (PROGN(LOAD(CONCAT(QUOTE {DSK})(UNIX-GETENV(QUOTE MEDLEYDIR))(QUOTE /sources/LOADUP-LISP.LCOM)))(LOADUP-LISP)(HARDRESET)) SHH(PROGN(IL:ENDLOADUP)':MEDLEY)(IL:MAKESYS (IL:CONCAT (QUOTE {DSK})(IL:UNIX-GETENV(QUOTE LOADUP_WORKDIR))(IL:L-CASE (QUOTE /lisp.sysout))))) (IL:LOGOUT T) "
" (PROGN (LOAD(CONCAT(QUOTE {DSK})(UNIX-GETENV(QUOTE MEDLEYDIR))(QUOTE /sources/LOADUP-LISP.LCOM))) (LOADUP-LISP(CONCAT(QUOTE {DSK})(UNIX-GETENV(QUOTE LOADUP_WORKDIR))(QUOTE /lisp.dribble))) (HARDRESET) ) SHH (PROGN (IL:ENDLOADUP)':MEDLEY) (IL:MAKESYS (IL:CONCAT (QUOTE {DSK})(IL:UNIX-GETENV(QUOTE LOADUP_WORKDIR))(IL:L-CASE (QUOTE /lisp.sysout))))) (IL:LOGOUT T) ) "

BIN
sources/LOADUP-LISP.LCOM
View File

Binary file not shown.