Restore REM.CM to be separate file from greet file; Enable chaining of medley runs using REM.CM file (#2027)

fghalasz · web-flow · commit 58f8fbdc53a9 · 2025-02-26T09:52:01.000-08:00
- Fixed INTERPRET.REM.CM so that it no longer tries to load the file pointed to by LDEINIT and instead loads the file pointed to by LDEREMCM. 
 LDEINIT remains the file used by greet. 
- Adjusted the medley script to have a new argument -cm (or --rem.cm) which sets LDEREMCM as appropriate before launching lde.  
- Updated the loadup scripts as required to use this new -cm argument when calling medley. 
 Finally, added a new feature to the medley script -cc (or --repeat) whereby which when medley finishes it checks for a nonzero file given as the argument to -cc.  If that file exists, medley is run again (i.e., repeated) with LDEREMCM set to that file.  This repeats until this file no longer exists or is zero-length.  The file can be found as the vale of LDEREPEATCM so that each invocation of medley can modify (or delete) this file so as to change the subsequent run of medley.
diff --git a/docs/man-page/man_medley.html b/docs/man-page/man_medley.html
diff --git a/docs/man-page/medley.1 b/docs/man-page/medley.1
@@ -1,5 +1,19 @@
-.\" Automatically generated by Pandoc 2.9.2.1
+.\" Automatically generated by Pandoc 3.1.3
 .\"
+.\" Define V font for inline verbatim, using C font in formats
+.\" that render this, and otherwise B font.
+.ie "\f[CB]x\f[]"x" \{\
+. ftr V B
+. ftr VI BI
+. ftr VB B
+. ftr VBI BI
+.\}
+.el \{\
+. ftr V CR
+. ftr VI CI
+. ftr VB CB
+. ftr VBI CBI
+.\}
 .ad l
 .TH "MEDLEY" "1" "" "" "Start Medley Interlisp"
 .nh
@@ -8,8 +22,8 @@
 \f[B]medley\f[R] \[em] starts up Medley Interlisp
 .SH SYNOPSIS
 .PP
-\f[B]medley\f[R] [ flags \&... ] [ \f[I]SYSOUT_FILE\f[R] ] [ --
-\f[I]PASS_ON_ARGS\f[R] ]
+\f[B]medley\f[R] [ flags \&...
+] [ \f[I]SYSOUT_FILE\f[R] ] [ -- \f[I]PASS_ON_ARGS\f[R] ]
 .SH DESCRIPTION
 .PP
 Starts Medley Interlisp in a window.
@@ -291,6 +305,21 @@ On Windows/Cygwin installations, \f[I]FILE\f[R] is specified in the
 Medley file system, not the host Windows file system.
 .RE
 .TP
+-cm [\f[I]FILE\f[R] | -], --rem.cm [\f[I]FILE\f[R] | -]
+Use \f[I]FILE\f[R] as the REM.CM file that Medley reads and executes at
+startup - after any greet files.
+Usually used only for loadups and other maintenance operations .
+.RS
+.PP
+If the given value is \[lq]-\[rq], Medley will start up without using
+REM.CM file.
+.PP
+There is no default Medley REM.CM file.
+.PP
+On Windows/Cygwin installations, \f[I]FILE\f[R] is specified in the
+Medley file system, not the host Windows file system.
+.RE
+.TP
 -x [\f[I]DIR\f[R] | - | \[en]], --logindir [\f[I]DIR\f[R] | - | \[en]]
 Use \f[I]DIR\f[R] as LOGINDIR in Medley.
 \f[I]DIR\f[R] must be writeable by the current user.
@@ -341,6 +370,22 @@ Relevant only to the Medley loadup workflow.
 \[en]maikodir \f[I]DIR\f[R]
 Use \f[I]DIR\f[R] as the directory containing the Maiko emulator.
 For testing purposes only.
+.TP
+-cc [\f[I]FILE\f[R] | -], --repeat [\f[I]FILE\f[R] | -]
+Run Medley once.
+And then as long as \f[I]FILE\f[R] exists and is greater then zero
+length, repeatedly run Medley using \f[I]FILE\f[R] as the REM.CM file
+that Medley reads and executes at startup.
+Each run of Medley can change the contents of \f[I]FILE\f[R] to effect
+the subsequent run of Medley.
+To end the cycle, Medley needs to delete \f[I]FILE\f[R].
+WIthin Medley, \f[I]FILE\f[R] can be found as the value of the
+environment variable LDEREPEATCM.
+.RS
+.PP
+On Windows/Cygwin installations, \f[I]FILE\f[R] is specified in the
+Medley file system, not the host Windows file system.
+.RE
 .SS Other Options
 .PP
 \ 
diff --git a/docs/man-page/medley.1.gz b/docs/man-page/medley.1.gz
diff --git a/docs/man-page/medley.1.md b/docs/man-page/medley.1.md
@@ -1,4 +1,4 @@
-% MEDLEY(1) | Start Medley Interlisp
+﻿% MEDLEY(1) | Start Medley Interlisp
 
 ---
 adjusting: l
@@ -210,6 +210,16 @@ in which case it is $MEDLEYDIR/greetfiles/APPS-INIT.
     On Windows/Cygwin installations, *FILE* is
 specified in the Medley file system, not the host Windows file system.
 
+-cm \[*FILE* | -], \-\-rem.cm \[*FILE* | -]
+: Use *FILE* as the REM&#46;CM file that Medley reads and executes at startup - after any greet files.  Usually used only for loadups and other maintenance operations .
+
+    If the given value is "-",  Medley will start up without using REM&#46;CM file.
+
+    There is no default Medley REM&#46;CM file.
+    
+    On Windows/Cygwin installations, *FILE* is
+specified in the Medley file system, not the host Windows file system.
+
 -x \[*DIR* | - | --], \-\-logindir \[*DIR* | - | --]
 : Use *DIR* as LOGINDIR in Medley.  *DIR* must be writeable by the current user.
 
@@ -242,6 +252,12 @@ for the parameter will be reset to the default value - which in the case of *Hos
 --maikodir *DIR*
 : Use *DIR* as the directory containing the Maiko emulator.  For testing purposes only.
 
+-cc \[*FILE* | -], \-\-repeat \[*FILE* | -]
+: Run Medley once.  And then as long as *FILE* exists and is greater then zero length, repeatedly run Medley using *FILE* as the REM&#46;CM file that Medley reads and executes at startup.  Each run of Medley can change the contents of *FILE* to effect the subsequent run of Medley.  To end the cycle, Medley needs to delete *FILE*.  WIthin Medley, *FILE* can be found as the value of the environment variable LDEREPEATCM.
+    
+    On Windows/Cygwin installations, *FILE* is
+specified in the Medley file system, not the host Windows file system.
+
 
 Other Options
 -------------
diff --git a/scripts/loadup-apps-from-full.sh b/scripts/loadup-apps-from-full.sh
@@ -32,10 +32,11 @@ main() {
 	    exit 1
 	fi
 
-    git_commit_ID "${NOTECARDSDIR}"
-    NOTECARDS_COMMIT_ID="${COMMIT_ID}"
-    export NOTECARDS_COMMIT_ID
+        git_commit_ID "${NOTECARDSDIR}"
+        NOTECARDS_COMMIT_ID="${COMMIT_ID}"
+        export NOTECARDS_COMMIT_ID
 
+        initfile="-"
 	cat >"${cmfile}" <<-"EOF"
 	"
 
diff --git a/scripts/loadup-aux.sh b/scripts/loadup-aux.sh
@@ -8,6 +8,7 @@ main() {
 
 	loadup_start
 
+        initfile="-"
 	cat >"${cmfile}" <<-"EOF"
 	"
 	(PROG
diff --git a/scripts/loadup-db-from-full.sh b/scripts/loadup-db-from-full.sh
@@ -13,6 +13,7 @@ main() {
 	  exit 1
 	fi
 
+        initfile="-"
 	cat >"${cmfile}" <<-"EOF"
 	"
 
diff --git a/scripts/loadup-full-from-lisp.sh b/scripts/loadup-full-from-lisp.sh
@@ -6,6 +6,7 @@ main() {
 
 	loadup_start
 
+        initfile="-"
 	cat >"${cmfile}" <<-"EOF"
 	"
 
diff --git a/scripts/loadup-init.sh b/scripts/loadup-init.sh
@@ -6,7 +6,8 @@ main() {
 
 	loadup_start
 
-	cat >"${cmfile}" <<-"EOF"
+        cmfile="-"
+	cat >"${initfile}" <<-"EOF"
 	(* "make init files; this file is loaded as a 'greet' file by scripts/loadup-init.sh")
 
 	(SETQ MEDLEYDIR NIL)
@@ -40,7 +41,7 @@ main() {
 	(LOGOUT T)
 	STOP
 	EOF
-    
+
 	run_medley "${LOADUP_SOURCEDIR}/starter.sysout"
 
 	loadup_finish "init.dlinit" "init.*" "RDSYS*" "I-NEW*"
diff --git a/scripts/loadup-lisp-from-mid.sh b/scripts/loadup-lisp-from-mid.sh
@@ -5,7 +5,8 @@ main() {
 	. "${LOADUP_SCRIPTDIR}/loadup-setup.sh"
 
 	loadup_start
-    
+
+        initfile="-"
 	cat >"${cmfile}" <<-"EOF"
 	"
 
diff --git a/scripts/loadup-mid-from-init.sh b/scripts/loadup-mid-from-init.sh
@@ -6,6 +6,7 @@ main() {
 
 	loadup_start
 
+        initfile="-"
 	cat >"${cmfile}" <<-"EOF"
 	"
 	(MOVD? (QUOTE NILL) (QUOTE PROMPTPRINT))
diff --git a/scripts/loadup-setup.sh b/scripts/loadup-setup.sh
@@ -72,6 +72,7 @@ touch "${LOADUP_WORKDIR}"/loadup.timestamp
 
 script_name=$(basename "$0" ".sh")
 cmfile="${LOADUP_WORKDIR}/${script_name}.cm"
+initfile="${LOADUP_WORKDIR}/${script_name}.init"
 
 # look thru args looking to see if oldschool was specified in args
 j=1
@@ -153,13 +154,14 @@ loadup_finish () {
 run_medley () {
   if [ ! "${LOADUP_OLDSCHOOL}" = true ]
   then
-    /bin/sh "${MEDLEYDIR}/scripts/medley/medley.command"  \
+    /bin/sh "${MEDLEYDIR}/scripts/medley/medley.command"         \
              --config -                                          \
              --id loadup_+                                       \
              --geometry "${geometry}"                            \
              --noscroll                                          \
              --logindir "${LOADUP_LOGINDIR}"                     \
-             --greet "${cmfile}"                                 \
+             --rem.cm "${cmfile}"                                \
+             --greet "${initfile}"                               \
              --sysout "$1"                                       \
              "$2" "$3" "$4" "$5" "$6" "$7"                       ;
     exit_code=$?
diff --git a/scripts/medley/medley.command b/scripts/medley/medley.command
@@ -586,6 +586,13 @@ flags:
 
     -x - | --logindir -        : use MEDLEYDIR/logindir as LOGINDIR in Medley
 
+    -cm FILE | --rem.cm FILE   : use FILE as the REM.CM when starting up Medley.  FILE must be absolute pathname.
+
+    -cm - | --rem.cm -         : do not use an REM.CM.  Negate any prior setting, e.g., from config file.
+
+    -cc FILE | --repeat FILE   : as long as FILE exists and is greater than 0 length, repeat Medley run
+                                 using FILE as REM.CM
+
 sysout:
     The pathname of the file to use as a sysout for Medley to start from.
     If sysout is not provided and none of the flags [-a, -f & -l] is used, then Medley will start from
@@ -629,7 +636,8 @@ nh_mac_arg=""
 nh_debug_arg=""
 pixelscale_arg=""
 borderwidth_arg=""
-
+remcm_arg="${LDEREMCM}"
+repeat_cm=""
 
 # Add marker at end of args so we can accumulate pass-on args in args array
 set -- "$@" "--start_of_pass_args"
@@ -648,6 +656,28 @@ do
         # already handled so just skip both flag and value
         shift;
         ;;
+      -cm | --rem.cm | --remcm)
+        if [ "$2" = "-" ] || [ "$2" = "--" ]
+        then
+          remcm_arg=""
+        else
+          check_for_dash_or_end "$1" "$2"
+          check_file_readable "$1" "$2"
+          remcm_arg="$2"
+        fi
+        shift
+        ;;
+      -cc | --repeat.cm | --repeat)
+        if [ "$2" = "-" ] || [ "$2" = "--" ]
+        then
+          repeat_cm=""
+        else
+          check_for_dash_or_end "$1" "$2"
+          # check_file_readable "$1" "$2"
+          repeat_cm="$2"
+        fi
+        shift
+        ;;
       -d | --display)
         if [ "$2" = "-" ]
         then
@@ -1219,6 +1249,10 @@ else
 fi
 export LDEINIT
 
+# figure out rem.cm and repeat.cm situation
+export LDEREMCM="${remcm_arg}"
+export LDEREPEATCM="${repeat_cm}"
+
 # figure out noscroll situation
 noscroll_arg=""
 if [ "${noscroll}" = true ]
@@ -1415,12 +1449,24 @@ then
 fi
 
 
-# Run maiko either directly or with vnc
-if [ "${use_vnc}" = true ]
-then
-  # do the vnc thing - if called for
-  # shellcheck source=./medley_vnc.sh
-#   . "${SCRIPTDIR}/medley_vnc.sh"
+# Repeatedly run medley as long as there is a repeat_cm file called for and it exists and is not zero length
+# In most cases, there will be no repeat_cm and hence medley will only run once
+
+loop_ctr=0
+while [ ${loop_ctr} -eq 0 ] || { [ -n "${repeat_cm}" ] && [ -f "${repeat_cm}" ] && [ -s "${repeat_cm}" ] ; }
+do
+  if [ ${loop_ctr} -eq 1 ]
+  then
+    LDEREMCM="${repeat_cm}"
+  fi
+  loop_ctr=1
+
+  # Run maiko either directly or with vnc
+  if [ "${use_vnc}" = true ]
+  then
+    # do the vnc thing - if called for
+    # shellcheck source=./medley_vnc.sh
+#     . "${SCRIPTDIR}/medley_vnc.sh"
 # shellcheck shell=sh
 # shellcheck disable=SC2154,SC2162
 ###############################################################################
@@ -1658,9 +1704,15 @@ then
   true
 
 #######################################
-else
-  # If not using vnc, just exec maiko directly
-  # handing over the pass-on args which are all thats left in the main args array
-  start_maiko "$@"
-fi
+  else
+    # If not using vnc, just exec maiko directly
+    # handing over the pass-on args which are all thats left in the main args array
+    start_maiko "$@"
+  fi
+  if [ -n "${exit_code}" ] && [ ${exit_code} -ne 0 ]
+  then
+    exit ${exit_code}
+  fi
+
+done
 exit ${exit_code}
diff --git a/scripts/medley/medley_args.sh b/scripts/medley/medley_args.sh
@@ -46,7 +46,8 @@ nh_mac_arg=""
 nh_debug_arg=""
 pixelscale_arg=""
 borderwidth_arg=""
-
+remcm_arg="${LDEREMCM}"
+repeat_cm=""
 
 # Add marker at end of args so we can accumulate pass-on args in args array
 set -- "$@" "--start_of_pass_args"
@@ -65,6 +66,28 @@ do
         # already handled so just skip both flag and value
         shift;
         ;;
+      -cm | --rem.cm | --remcm)
+        if [ "$2" = "-" ] || [ "$2" = "--" ]
+        then
+          remcm_arg=""
+        else
+          check_for_dash_or_end "$1" "$2"
+          check_file_readable "$1" "$2"
+          remcm_arg="$2"
+        fi
+        shift
+        ;;
+      -cc | --repeat.cm | --repeat)
+        if [ "$2" = "-" ] || [ "$2" = "--" ]
+        then
+          repeat_cm=""
+        else
+          check_for_dash_or_end "$1" "$2"
+          # check_file_readable "$1" "$2"
+          repeat_cm="$2"
+        fi
+        shift
+        ;;
       -d | --display)
         if [ "$2" = "-" ]
         then
diff --git a/scripts/medley/medley_run.sh b/scripts/medley/medley_run.sh
diff --git a/scripts/medley/medley_usage.sh b/scripts/medley/medley_usage.sh
diff --git a/sources/ADIR b/sources/ADIR
diff --git a/sources/ADIR.LCOM b/sources/ADIR.LCOM

Original file line number	Diff line number	Diff line change
`@@ -8,6 +8,7 @@ main() {`
`8`	`8`
`9`	`9`	`loadup_start`
`10`	`10`
	`11`	`+ initfile="-"`
`11`	`12`	`cat >"${cmfile}" <<-"EOF"`
`12`	`13`	`"`
`13`	`14`	`(PROG`
Original file line number	Diff line number	Diff line change
`@@ -13,6 +13,7 @@ main() {`
`13`	`13`	`exit 1`
`14`	`14`	`fi`
`15`	`15`
	`16`	`+ initfile="-"`
`16`	`17`	`cat >"${cmfile}" <<-"EOF"`
`17`	`18`	`"`
`18`	`19`
Original file line number	Diff line number	Diff line change
`@@ -6,6 +6,7 @@ main() {`
`6`	`6`
`7`	`7`	`loadup_start`
`8`	`8`
	`9`	`+ initfile="-"`
`9`	`10`	`cat >"${cmfile}" <<-"EOF"`
`10`	`11`	`"`
`11`	`12`
Original file line number	Diff line number	Diff line change
`@@ -5,7 +5,8 @@ main() {`
`5`	`5`	`. "${LOADUP_SCRIPTDIR}/loadup-setup.sh"`
`6`	`6`
`7`	`7`	`loadup_start`
`8`		`-`
	`8`	`+`
	`9`	`+ initfile="-"`
`9`	`10`	`cat >"${cmfile}" <<-"EOF"`
`10`	`11`	`"`
`11`	`12`