Add a brief sanity check to loadup process (#314)

Each step of the loadup now starts with a 'touch' to create a timestamp. At the end of the loadup, it makes sure the files needed by the next step are newer. This will catch some of the problems.

scripts/loadup-all.sh

@@ -7,10 +7,16 @@ if [ ! -x run-medley ] ; then
     exit 1
 fi
 
+# set timestamp
+mkdir -p ./tmp
+touch ./tmp/loadup-timestamp
+
 ./scripts/loadup-init.sh && \
     ./scripts/loadup-mid-from-init.sh && \
     ./scripts/loadup-lisp-from-mid.sh && \
     ./scripts/loadup-full.sh && \
-    ./scripts/loadup-aux.sh
+    ./scripts/loadup-aux.sh && \
+    echo "**** DONE ****"
+
+
 
-echo tada!

scripts/loadup-aux.sh

@@ -7,11 +7,21 @@ if [ ! -f run-medley ] ; then
     exit 1
 fi
 
+touch tmp/loadup.timestamp
+
 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)"' > tmp/loadup-aux.cm
 ./run-medley $scr -greet "$MEDLEYDIR"/tmp/loadup-aux.cm tmp/full.sysout
 
-echo ---- made ----
+if [ tmp/whereis.hash -nt tmp/loadup.timestamp ]; then
-ls -l tmp/exports.all tmp/whereis.hash
+    
-echo --------------
+    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

scripts/loadup-full.sh

@@ -8,11 +8,18 @@ if [ ! -x run-medley ] ; then
 fi
 scr="-sc 1024x768 -g 1042x790"
 
-rm -f ~/rem.cm
+touch tmp/loadup.timestamp
 
 ./run-medley $scr -greet $MEDLEYDIR/sources/LOADUP-FULL.LCOM $MEDLEYDIR/tmp/lisp.sysout
 
+if [ tmp/full.sysout -nt tmp/loadup.timestamp ]; then
+    
+    echo ---- made ----
+    ls -l tmp/full.*
+    echo --------------
 
-echo ----- made ----
+else
-ls -l tmp/full.sysout
+    echo XXXXX FAILURE XXXXX
-echo ---------------
+    ls -l tmp/full.*
+    exit -1
+fi

scripts/loadup-init.sh

@@ -10,9 +10,17 @@ fi
 scr="-sc 1024x768 -g 1042x790"
 
 mkdir -p "$MEDLEYDIR/tmp"
+touch tmp/loadup.timestamp
 
 ./run-medley $scr -greet "$MEDLEYDIR"/sources/LOADUP-INIT.LISP -full
 
-echo ---- made ----
+if [ tmp/init.dlinit -nt tmp/loadup.timestamp ]; then
-ls -l tmp/*[WMShlet]
+    
-echo --------------
+    echo ---- made ----
+    ls -l tmp/init.* tmp/RDSYS* tmp/I-NEW*
+    echo --------------
+
+else
+    echo XXXXX FAILURE XXXXX
+    exit 1
+fi

scripts/loadup-lisp-from-mid.sh

@@ -7,12 +7,19 @@ if [ ! -f run-medley ] ; then
     exit 1
 fi
 
+touch tmp/loadup.timestamp
+
 scr="-sc 1024x768 -g 1042x790"
 
 
 ./run-medley $scr -greet $MEDLEYDIR/sources/LOADUP-LISP.CM tmp/init-mid.sysout
 
-echo ----- created: -------
+if [ tmp/lisp.sysout -nt tmp/loadup.timestamp ]; then
-ls -l tmp/lisp.*[te]
+    
-echo ----------------------
+    echo ---- made ----
-
+    ls -l tmp/lisp.*
+    echo --------------
+else
+    echo XXXXX FAILURE XXXXX
+    exit 1
+fi

scripts/loadup-mid-from-init.sh

@@ -8,10 +8,19 @@ if [ ! -x run-medley ] ; then
 fi
 
 mkdir -p "$MEDLEYDIR/tmp"
+touch tmp/loadup.timestamp
+
 scr="-sc 1024x768 -g 1042x790"
 
 ./run-medley -prog ldeinit -greet $MEDLEYDIR/sources/XREM.CM $scr -vmem tmp/init-mid.sysout tmp/init.dlinit
 
-echo ---- made ----
+if [ tmp/init-mid.sysout -nt tmp/loadup.timestamp ]; then
-ls -l tmp/
+    echo 
-echo --------------
+    echo ---- made ----
+    ls -l tmp/init-mid.sysout
+    echo --------------
+
+else
+    echo XXXXX FAILURE XXXXX
+    exit 1
+fi