Add new files left out from last commit; add RDSYS to library as part of loadups-all

scripts/copy-all.sh

@@ -26,3 +26,6 @@ fi
 ./scripts/cpv ${LOADUP_WORKDIR}/full.dribble loadups
 ./scripts/cpv ${LOADUP_WORKDIR}/whereis.dribble loadups
 
+./scripts/cpv ${LOADUP_WORKDIR}/RDSYS library
+./scripts/cpv ${LOADUP_WORKDIR}/RDSYS.LCOM library
+

scripts/copy-db.sh

@@ -0,0 +1,12 @@
+#!/bin/sh
+
+if [ ! -x run-medley ] ; then
+    echo run from MEDLEYDIR
+    exit 1
+fi
+
+. scripts/loadup-setup.sh
+
+./scripts/cpv ${LOADUP_WORKDIR}/fuller.database loadups
+./scripts/cpv ${LOADUP_WORKDIR}/fuller.dribble loadups
+

scripts/loadup-db-from-full.sh

@@ -0,0 +1,17 @@
+#!/bin/sh
+
+if [ ! -x run-medley ] ; then
+    echo run from MEDLEYDIR
+    exit 1
+fi
+
+. scripts/loadup-setup.sh
+
+DBCM="${LOADUP_WORKDIR}"/db.cm
+
+echo '" (IL:MEDLEY-INIT-VARS)(IL:FILESLOAD MEDLEY-UTILS)(IL:MAKE-FULLER-DB)(IL:LOGOUT T)"' > ${DBCM}
+
+./run-medley $scr -loadup "${DBCM}" -full
+
+loadup_finish "loadup-db" "fuller.database" "fuller*"
+

scripts/loadup-setup.sh

@@ -0,0 +1,38 @@
+
+export MEDLEYDIR=`pwd`
+
+# echo "%%%%%%%%%%%%%%%%%%%%%%%%%%%%%${LOADUP_WORKDIR}============="
+
+if [ -z "${LOADUP_WORKDIR}" ];
+then
+  export LOADUP_WORKDIR=/tmp/loadups-$$
+fi
+
+mkdir -p "${LOADUP_WORKDIR}"
+
+scr="-sc 1024x768 -g 1042x790"
+
+touch "${LOADUP_WORKDIR}"/loadup.timestamp
+
+loadup_finish () {
+  echo "===== ${1}"
+  if [ "${LOADUP_WORKDIR}/${2}" -nt "${LOADUP_WORKDIR}"/loadup.timestamp ];
+  then
+    echo "+++++ SUCCESS +++++"
+    exit_code=0
+  else
+    echo "----- FAILURE -----"
+    exit_code=1
+  fi
+  echo "===== files created ======"
+    shift; shift
+    for f in ${*};
+    do
+      ls -l "${LOADUP_WORKDIR}"/$f 2>/dev/null
+    done
+  echo "======================================="
+  exit ${exit_code}
+}
+
+
+