From d2102bfe9b3069814ba7a6d28cf1c204e6cb2052 Mon Sep 17 00:00:00 2001
From: Frank Halasz <frank@halasz.org>
Date: Mon, 31 Jul 2023 01:07:39 -0700
Subject: [PATCH] Add new files left out from last commit; add RDSYS to library
 as part of loadups-all

---
 scripts/copy-all.sh            |  3 +++
 scripts/copy-db.sh             | 12 +++++++++++
 scripts/loadup-db-from-full.sh | 17 +++++++++++++++
 scripts/loadup-setup.sh        | 38 ++++++++++++++++++++++++++++++++++
 4 files changed, 70 insertions(+)
 create mode 100755 scripts/copy-db.sh
 create mode 100755 scripts/loadup-db-from-full.sh
 create mode 100644 scripts/loadup-setup.sh

diff --git a/scripts/copy-all.sh b/scripts/copy-all.sh
index 3831f10f..6c1f9053 100755
--- a/scripts/copy-all.sh
+++ b/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
+
diff --git a/scripts/copy-db.sh b/scripts/copy-db.sh
new file mode 100755
index 00000000..25044ad1
--- /dev/null
+++ b/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
+
diff --git a/scripts/loadup-db-from-full.sh b/scripts/loadup-db-from-full.sh
new file mode 100755
index 00000000..b1793a11
--- /dev/null
+++ b/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*"
+
diff --git a/scripts/loadup-setup.sh b/scripts/loadup-setup.sh
new file mode 100644
index 00000000..194bde91
--- /dev/null
+++ b/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}
+}
+
+
+