Change Medley release builds from Mon 2:00a PT to Wed 2:00a PT ... (#1722)

Change Medley release builds from Mon 2:00a PT to Wed 2:00a PT

.github/workflows/buildReleaseInclDocker.yml

@@ -19,7 +19,7 @@ name: "Build/Push Release & Docker"
 # Run this workflow on ...
 on:
   schedule:
-    - cron: '0 9 * * 1'
+    - cron: '0 9 * * 3'
 
   workflow_dispatch:
     inputs:

docs/man-page/man_medley.html

@@ -15,64 +15,109 @@
 <dd><p>Show the man page for medley</p>
 </dd>
 <dt>-c [<em>FILE</em> | -], --config [<em>FILE</em> | -]</dt>
-<dd><p>Use <em>FILE</em> as the config file for this run of Medley. See information on <em>CONFIG FILE</em> below. If <em>FILE</em> is “-”, then suppress the use of a config file for this run of Medley.</p>
+<dd><p>Use <em>FILE</em> as the config file for this run of Medley. See information on <em>CONFIG FILE</em> below.</p>
+<p>If the given value is “-”, then suppress the use of a config file for this run of Medley.</p>
 </dd>
 <dt>-f, --full</dt>
-<dd><p>Start Medley from the standard “full” sysout. full.sysout includes a complete Interlisp and CommonLisp environment with a standard set of development tools. It does not include any of the applications built using Medley. (See <em>SYSOUT_FILE</em> below for more information on starting sysouts.)</p>
+<dd><p>Start Medley from the standard “full” sysout. full.sysout includes a complete Interlisp and CommonLisp environment with a standard set of development tools. It does not include any of the applications built using Medley.</p>
+<p>(See <em>SYSOUT_FILE</em> below for more information on starting sysouts.)</p>
 </dd>
 <dt>-l, --lisp</dt>
-<dd><p>Start Medley from the standard “lisp” sysout. lisp.sysout only includes the basic Interlisp and CommonLisp environment. (See <em>SYSOUT_FILE</em> below for more information on starting sysouts.)</p>
+<dd><p>Start Medley from the standard “lisp” sysout. lisp.sysout only includes the basic Interlisp and CommonLisp environment.</p>
+<p>(See <em>SYSOUT_FILE</em> below for more information on starting sysouts.)</p>
 </dd>
 <dt>-a, --apps</dt>
-<dd><p>Start Medley from the standard “apps” sysout. apps.sysout includes everything in full.sysout plus Medley applications including Notecards, Rooms and CLOS. It also includes pre-installed links to key Medley documentation. (See <em>SYSOUT_FILE</em> below for more information on starting sysouts.)</p>
+<dd><p>Start Medley from the standard “apps” sysout. apps.sysout includes everything in full.sysout plus Medley applications including Notecards, Rooms and CLOS. It also includes pre-installed links to key Medley documentation.</p>
+<p>(See <em>SYSOUT_FILE</em> below for more information on starting sysouts.)</p>
 </dd>
 <dt>-u, --continue</dt>
-<dd><p>Nullify any prior setting of the sysout file (e.g., from the config file) - causing Medley to start from the virtual memory file resulting from the previous invocation (with the same values for –id and –logindir), if any. If there is no matching virtual memory file, Medley will start from the full.sysout (see -f/–full above). Equivalent to “-y -”. (See <em>SYSOUT FILE</em> section below.)</p>
+<dd><p>Nullify any prior setting of the sysout file (e.g., from the config file) - causing Medley to start from the virtual memory file resulting from the previous invocation (with the same values for –id and –logindir), if any. If there is no matching virtual memory file, Medley will start from the full.sysout (see -f/–full above).</p>
+<p>Equivalent to “-y -”.</p>
+<p>(See <em>SYSOUT FILE</em> section below.)</p>
 </dd>
 <dt>-y [<em>SYSOUT_FILE</em> | -], --sysout [<em>SYSOUT-FILE</em> | -]</dt>
-<dd><p>Start Medley from the specified <em>SYSOUT-FILE</em>. This is an alternative to specifying the <em>SYSOUT-FILE</em> as the last argument on the command line (but before any <em>PASS_ON_ARGS</em>). It can be used to specify the <em>SYSOUT-FILE</em> in the config file (see information on <em>CONFIG FILE</em> below). If <em>SYSOUT-FILE</em> is “-”, then any prior setting of the sysout file (e.g., from the config file) is nullified (see -u/–continue above). (See <em>SYSOUT FILE</em> section below.)</p>
+<dd><p>Start Medley from the specified <em>SYSOUT-FILE</em>. This is an alternative to specifying the <em>SYSOUT-FILE</em> as the last argument on the command line (but before any <em>PASS_ON_ARGS</em>). It can be used to specify the <em>SYSOUT-FILE</em> in the config file (see information on <em>CONFIG FILE</em> below).</p>
+<p>If the given value is “-”, then any prior setting of the sysout file (e.g., from the config file) is nullified (see -u/–continue above).</p>
+<p>(See <em>SYSOUT FILE</em> section below.)</p>
 </dd>
 <dt>-e [+ | -], --interlisp [+ | -]</dt>
-<dd><p>If value is “+” or no value, make the initial Exec window within Medley be an Interlisp Exec. If value is “-”, make the initial Exec window be the default XCL Exec. This flag applies only when the –apps flag is used.</p>
+<dd><p>If value is “+” or no value, make the initial Exec window within Medley be an Interlisp Exec. If value is “-”, make the initial Exec window be the default XCL Exec.</p>
+<p>This flag applies only when the –apps flag is used.</p>
 </dd>
 <dt>-n [+ | -], --noscroll [+ | -]</dt>
-<dd><p>Medley ordinarily displays scroll bars to enable the user to pan the Medley virtual display within the Medley window. This is true even when the entire virtual display fits within the window. Specifying “-n +” (–noscroll +) turns off scroll bars. Specifying “-n -” (–scroll -) turns on scroll bars. Specifying -n (–noscroll) with no value is equivalent to specifying “–noscroll +”. Default is scroll bars off. Note: If scroll bars are off and the virtual screen is larger than the window, there will be no way to pan to the non-visible parts of the virtual display.</p>
+<dd><p>Medley ordinarily displays scroll bars to enable the user to pan the Medley virtual display within the Medley window. This is true even when the entire virtual display fits within the window.</p>
+<p>Specifying “-n +” (–noscroll +) turns off scroll bars. Specifying “-n -” (–scroll -) turns on scroll bars. Specifying -n (–noscroll) with no value is equivalent to specifying “–noscroll +”.</p>
+<p>Default is scroll bars off.</p>
+<p>Note: If scroll bars are off and the virtual screen is larger than the window, there will be no way to pan to the non-visible parts of the virtual display.</p>
 </dd>
 <dt>-g [<em>WxH</em> | -], --geometry [<em>WxH</em> | -]</dt>
-<dd><p>Sets the size of the X Window (or VNC window) that Medley runs in to be Width x Height. (Full X Windows geomtery specification with +X+Y is not currently supported). If a value of “-” is given, geometry is set to the default value. If --geometry is not specified but --screensize is, then the window size will be determined based on the --screensize values and the --noscroll flag. If neither --geometry nor --screensize is provided, then the window size is set to 1440x900 if --noscroll is set and 1462x922 if --noscroll is not set. (Also see note below under <em>CONFIG FILE</em> on the use of geometry and screensize in config files.)</p>
+<dd><p>Sets the size of the X Window (or VNC window) that Medley runs in to be Width x Height. (Full X Windows geomtery specification with +X+Y is not currently supported).</p>
+<p>If a value of “-” is given, geometry is set to the default value.</p>
+<p>If --geometry is not specified but --screensize is, then the window size will be determined based on the --screensize values and the --noscroll flag. If neither --geometry nor --screensize is provided, then the window size is set to 1440x900 if --noscroll is set and 1462x922 if --noscroll is not set.</p>
+<p>(Also see note below under <em>CONFIG FILE</em> on the use of geometry and screensize in config files.)</p>
 </dd>
 <dt>-s [<em>WxH</em> | -], --screensize [<em>WxH</em> | -]</dt>
-<dd><p>Sets the size of the virtual display as seen from Medley’s point of view. If a value of “-” is given, screensize is set to the default value. The Medley window is an unscaled viewport onto this virtual display. If --screensize is not specified but --geometry is, then the virtual display size will be set so that the entire virtual display fits into the given window geometry. If neither --screensize nor --geometry is provided, then the screen size is set to 1440x900. (Also see note below under <em>CONFIG FILE</em> on the use of geometry and screensize in config files.)</p>
+<dd><p>Sets the size of the virtual display as seen from Medley’s point of view. The Medley window is an unscaled viewport onto this virtual display.</p>
+<p>If a value of “-” is given, screensize is set to the default value.</p>
+<p>If --screensize is not specified but --geometry is, then the virtual display size will be set so that the entire virtual display fits into the given window geometry. If neither --screensize nor --geometry is provided, then the screen size is set to 1440x900.</p>
+<p>(Also see note below under <em>CONFIG FILE</em> on the use of geometry and screensize in config files.)</p>
 </dd>
 <dt>-ps [<em>N</em> | -], –pixelscale [<em>N</em> | -] ** <strong>Applicable only when display is SDL-based (e.g., on Windows/Cygwin)</strong> **</dt>
-<dd><p>Sets the pixel scaling factor to <em>N</em>. If value of “-” is given, the pixel scale factor is set to its default of 1.</p>
+<dd><p>Sets the pixel scaling factor to <em>N</em>, an integer</p>
+<p>If value of “-” is given, the pixel scale factor is set to its default of 1.</p>
 </dd>
 <dt>-t [<em>STRING</em> | -], --title [<em>STRING</em> | -]</dt>
-<dd><p>Use STRING as title of Medley window. If the value of “-” is given, sets the title to its default value (“Medley Interlisp”). Ignored when when the --vnc flag is set.</p>
+<dd><p>Use <em>STRING</em> as title of Medley window.</p>
+<p>If <em>STRING</em> includes the character sequence “%i”, then the value of the id string (see –id flag below) prefixed by “::” will be substituited for the “%i”. Example: if the id is “run_45” and <em>STRING</em> is “Medley Interlisp %i”, then the actual window title will be “Medley Interlisp :: run_45”.</p>
+<p>If the value of “-” is given, sets the title to its default value (“Medley Interlisp %i”).</p>
+<p>This flag is ignored when when the --vnc flag is set.</p>
 </dd>
 <dt>-d [<em>:N</em> | -], --display [<em>:N</em> | -]</dt>
-<dd><p>Use X display :N. If value is “-”, reset display to its default value. Default value is the value of $DISPLAY. On platforms that support X Windows as well as SDL, the value of -d (–display) should be set to “SDL” to select using SDL instead of X Windows. This flag is ignored on the Windows/Cygwin platform and when the --vnc flag is set on Windows System for Linux.</p>
+<dd><p>Use X display <em>:N</em>.</p>
+<p>If value is “-”, reset display to its default value. Default value is the value of $DISPLAY.</p>
+<p>On platforms that support both SDL and X Windows, set the value of -d (–display) to “SDL” to select using SDL instead of X Windows.</p>
+<p>This flag is ignored on the Windows/Cygwin platform and when the --vnc flag is set on Windows System for Linux.</p>
 </dd>
 <dt>-v [+ | -] , --vnc [+ | -] ** <strong>Applicable only to WSL installations</strong> **</dt>
-<dd><p>If value is “+” or no value is given, then use a VNC window running on the Windows side instead of an X window. If value is “-”, then do not use a VNC window, relying instead on a standard X Window. A VNC window will folllow the Windows desktop scaling setting allowing for much more usable Medley on high resolution displays. On WSL, X windows do not scale well. This flag is always set for WSL1 installations.</p>
+<dd><p>If value is “+” or no value is given, then use a VNC window running on the Windows side instead of an X window. If value is “-”, then do not use a VNC window, relying instead on a standard X Window.</p>
+<p>A VNC window will folllow the Windows desktop scaling setting allowing for much more usable Medley on high resolution displays. On WSL, X windows do not scale well.</p>
+<p>This flag is always set for WSL1 installations.</p>
 </dd>
 <dt>-i [<em>ID_STRING</em> | - | --], --id [<em>ID_STRING</em> | - | --]</dt>
-<dd><p>Use ID_STRING as the id for this run of Medley, unless ID_STRING is “-”, “--”, or “---”. If ID_STRING is “-”, then reset the id to “default” (e.g., if it was previously set in the config file). If ID_STRING is “--”, then use the basename of $MEDLEYDIR as the id. If ID_STRING is “---”, then use the basename of the parent directory of $MEDLEYDIR as the id. Only one instance of Medley with a given id can run at a time. The id is used to distinguish the virtual memory stores so that multiple instances of Medley can run simultaneously. Default id is “default”.</p>
+<dd><p>Use <em>ID_STRING</em> as the id for this run of Medley, unless the given value is “-”, “--”, or “---”.</p>
+<p>Only one instance of Medley can be run simultaneously for any given id.</p>
+<p><em>ID-STRING</em> can consist of any alphanumeric character plus the underscore (_) character, ending (optionally) in a “+” character. If <em>ID_STRING</em> ends with a “+” (including just a singleton “+”), then Medley will add a number to the id to make it unique among currently running Medley intsances.</p>
+<p>If the given value is “-”, then the id will be (re)set to “default” (e.g., if it was previously set in the config file). If it is “--”, then id will be set to the basename of $MEDLEYDIR. If ID_STRING is “---”, then id will be set to the basename of the parent directory of $MEDLEYDIR.</p>
+<p>Default id is “default”.</p>
 </dd>
 <dt>-m [<em>N</em> | -], --mem [<em>N</em> | -]</dt>
-<dd><p>Set Medley to run in <em>N</em> MB of virtual memory. Defaults to 256MB. If a value of “-” is given, resets to default value.</p>
+<dd><p>Set Medley to run in <em>N</em> MB of virtual memory. Defaults to 256MB.</p>
 </dd>
+</dl>
+<p>If a value of “-” is given, resets to default value.</p>
+<dl>
 <dt>-p [<em>FILE</em> | -], --vmem [<em>FILE</em> | -]</dt>
-<dd><p>Use FILE as the Medley virtual memory (vmem) store. FILE must be writeable by the current user. Care must be taken not to use the same vmem FILE for two instances of Medley running simultaneously. The --id flag will not protect against vmem collisions when the --vmem flag is used. If the value “-” is given, then resets the vmem file to the default. Default is to store the vmem in LOGINDIR/vmem/lisp_III.virtualmem, where III is the id of this Medley run (see --id flag above). See --logindir below for setting of LOGINDIR.</p>
+<dd><p>Use <em>FILE</em> as the Medley virtual memory (vmem) store. <em>FILE</em> must be writeable by the current user.</p>
+<p>Care must be taken not to use the same vmem FILE for two instances of Medley running simultaneously. The --id flag will not protect against vmem collisions when the --vmem flag is used.</p>
+<p>If the value “-” is given, then resets the vmem file to the default.</p>
+<p>Default is to store the vmem in LOGINDIR/vmem/lisp_III.virtualmem, where III is the id of this Medley run (see --id flag above). See --logindir below for setting of LOGINDIR.</p>
 </dd>
 <dt>-r [<em>FILE</em> | -], --greet [<em>FILE</em> | -]</dt>
-<dd><p>Use FILE as the Medley greetfile, unless FILE is “-” in which case Medley will start up without using a greetfile. The default Medley greetfile is $MEDLEYDIR/greetfiles/MEDLEYDIR-INIT, except when the --apps flag is used in which case it is $MEDLEYDIR/greetfiles/APPS-INIT. On Windows/Cygwin installations, <em>FILE</em> is specified in the Medley file system, not the host Windows file system.</p>
+<dd><p>Use <em>FILE</em> as the Medley greetfile.</p>
+<p>If the given value is “-”, Medley will start up without using a greetfile.</p>
+<p>The default Medley greetfile is $MEDLEYDIR/greetfiles/MEDLEYDIR-INIT, except when the --apps flag is used in which case it is $MEDLEYDIR/greetfiles/APPS-INIT.</p>
+<p>On Windows/Cygwin installations, <em>FILE</em> is specified in the Medley file system, not the host Windows file system.</p>
 </dd>
 <dt>-x [<em>DIR</em> | - | –], --logindir [<em>DIR</em> | - | –]</dt>
-<dd><p>Use DIR as LOGINDIR in Medley. If the value is “–”, use $MEDLEYDIR/logindir as LOGINDIR. If a value of “-” is given, then reset LOGINDIR to its default value. DIR (or $MEDLEYDIR/logindir) must be writeable by the current user. LOGINDIR defaults to $HOME/il. LOGINDIR is used by Medley as the working directory on start-up and where it loads any “personal” initialization file from. On Windows/Cygwin installations, <em>FILE</em> is specified in the Medley file system, not the host Windows file system.</p>
+<dd><p>Use <em>DIR</em> as LOGINDIR in Medley. <em>DIR</em> must be writeable by the current user.</p>
+<p>LOGINDIR is used by Medley as the working directory on start-up and where it loads any “personal” initialization file from.</p>
+<p>If the given value is “-”, then reset LOGINDIR to its default value. If the given value is “–”, uses $MEDLEYDIR/logindir as LOGINDIR.</p>
+<p>LOGINDIR defaults to $HOME/il.</p>
+<p>On Windows/Cygwin installations, <em>FILE</em> is specified in the Medley file system, not the host Windows file system.</p>
 </dd>
 <dt>-nh <em>Host:Port:Mac:Debug</em>, --nethub <em>Host:Port:Mac:Debug</em></dt>
-<dd><p>Set the parameters for using Nethub XNS networking. <em>Host</em> is the full domain name of the nethub host. <em>Port</em> is the port on <em>Host</em> that nethub is using. <em>Mac</em> is the Mac address that this instance of Medley should use when contacting the nethub host. <em>Debug</em> is the level of nethub debug information that should be printed on stdout (value is 0, 1, or 2). A <em>Host</em> value is required and serves to turn nethub functionality on. <em>Port</em>, <em>Mac</em> and <em>Debug</em> parameters are optional and will default if left off. Finally, if any of the parameters have a value of “-”, any previous setting (e.g., in a config file) for the parameter will be reset to the default value - which in the case of <em>Host</em> is the null string, turning nethub functionality off.</p>
+<dd><p>Set the parameters for using Nethub XNS networking. <em>Host</em> is the full domain name of the nethub host. <em>Port</em> is the port on <em>Host</em> that nethub is using. <em>Mac</em> is the Mac address that this instance of Medley should use when contacting the nethub host. <em>Debug</em> is the level of nethub debug information that should be printed on stdout (value is 0, 1, or 2). A <em>Host</em> value is required and serves to turn nethub functionality on. <em>Port</em>, <em>Mac</em> and <em>Debug</em> parameters are optional and will default if left off.</p>
+<p>If any of the parameters have a value of “-”, any previous setting (e.g., in a config file) for the parameter will be reset to the default value - which in the case of <em>Host</em> is the null string, turning nethub functionality off.</p>
 </dd>
 <dt>-nf, -NF, –nofork</dt>
 <dd><p>No fork. Relevant only to the Medley loadup workflow.</p>

docs/man-page/medley.1

@@ -37,31 +37,43 @@ Show the man page for medley
 -c [\f[I]FILE\f[R] | -], --config [\f[I]FILE\f[R] | -]
 Use \f[I]FILE\f[R] as the config file for this run of Medley.
 See information on \f[I]CONFIG FILE\f[R] below.
-If \f[I]FILE\f[R] is \[lq]-\[rq], then suppress the use of a config file
-for this run of Medley.
+.RS
+.PP
+If the given value is \[lq]-\[rq], then suppress the use of a config
+file for this run of Medley.
+.RE
 .TP
 -f, --full
 Start Medley from the standard \[lq]full\[rq] sysout.
 full.sysout includes a complete Interlisp and CommonLisp environment
 with a standard set of development tools.
 It does not include any of the applications built using Medley.
+.RS
+.PP
 (See \f[I]SYSOUT_FILE\f[R] below for more information on starting
 sysouts.)
+.RE
 .TP
 -l, --lisp
 Start Medley from the standard \[lq]lisp\[rq] sysout.
 lisp.sysout only includes the basic Interlisp and CommonLisp
 environment.
+.RS
+.PP
 (See \f[I]SYSOUT_FILE\f[R] below for more information on starting
 sysouts.)
+.RE
 .TP
 -a, --apps
 Start Medley from the standard \[lq]apps\[rq] sysout.
 apps.sysout includes everything in full.sysout plus Medley applications
 including Notecards, Rooms and CLOS.
 It also includes pre-installed links to key Medley documentation.
+.RS
+.PP
 (See \f[I]SYSOUT_FILE\f[R] below for more information on starting
 sysouts.)
+.RE
 .TP
 -u, --continue
 Nullify any prior setting of the sysout file (e.g., from the config
@@ -70,8 +82,12 @@ from the previous invocation (with the same values for \[en]id and
 \[en]logindir), if any.
 If there is no matching virtual memory file, Medley will start from the
 full.sysout (see -f/\[en]full above).
+.RS
+.PP
 Equivalent to \[lq]-y -\[rq].
+.PP
 (See \f[I]SYSOUT FILE\f[R] section below.)
+.RE
 .TP
 -y [\f[I]SYSOUT_FILE\f[R] | -], --sysout [\f[I]SYSOUT-FILE\f[R] | -]
 Start Medley from the specified \f[I]SYSOUT-FILE\f[R].
@@ -80,145 +96,219 @@ last argument on the command line (but before any
 \f[I]PASS_ON_ARGS\f[R]).
 It can be used to specify the \f[I]SYSOUT-FILE\f[R] in the config file
 (see information on \f[I]CONFIG FILE\f[R] below).
-If \f[I]SYSOUT-FILE\f[R] is \[lq]-\[rq], then any prior setting of the
-sysout file (e.g., from the config file) is nullified (see
--u/\[en]continue above).
+.RS
+.PP
+If the given value is \[lq]-\[rq], then any prior setting of the sysout
+file (e.g., from the config file) is nullified (see -u/\[en]continue
+above).
+.PP
 (See \f[I]SYSOUT FILE\f[R] section below.)
+.RE
 .TP
 -e [+ | -], --interlisp [+ | -]
 If value is \[lq]+\[rq] or no value, make the initial Exec window within
 Medley be an Interlisp Exec.
 If value is \[lq]-\[rq], make the initial Exec window be the default XCL
 Exec.
+.RS
+.PP
 This flag applies only when the \[en]apps flag is used.
+.RE
 .TP
 -n [+ | -], --noscroll [+ | -]
 Medley ordinarily displays scroll bars to enable the user to pan the
 Medley virtual display within the Medley window.
 This is true even when the entire virtual display fits within the
 window.
+.RS
+.PP
 Specifying \[lq]-n +\[rq] (\[en]noscroll +) turns off scroll bars.
 Specifying \[lq]-n -\[rq] (\[en]scroll -) turns on scroll bars.
 Specifying -n (\[en]noscroll) with no value is equivalent to specifying
 \[lq]\[en]noscroll +\[rq].
+.PP
 Default is scroll bars off.
+.PP
 Note: If scroll bars are off and the virtual screen is larger than the
 window, there will be no way to pan to the non-visible parts of the
 virtual display.
+.RE
 .TP
 -g [\f[I]WxH\f[R] | -], --geometry [\f[I]WxH\f[R] | -]
 Sets the size of the X Window (or VNC window) that Medley runs in to be
 Width x Height.
 (Full X Windows geomtery specification with +X+Y is not currently
 supported).
+.RS
+.PP
 If a value of \[lq]-\[rq] is given, geometry is set to the default
 value.
+.PP
 If --geometry is not specified but --screensize is, then the window size
 will be determined based on the --screensize values and the --noscroll
 flag.
 If neither --geometry nor --screensize is provided, then the window size
 is set to 1440x900 if --noscroll is set and 1462x922 if --noscroll is
 not set.
+.PP
 (Also see note below under \f[I]CONFIG FILE\f[R] on the use of geometry
 and screensize in config files.)
+.RE
 .TP
 -s [\f[I]WxH\f[R] | -], --screensize [\f[I]WxH\f[R] | -]
 Sets the size of the virtual display as seen from Medley\[cq]s point of
 view.
+The Medley window is an unscaled viewport onto this virtual display.
+.RS
+.PP
 If a value of \[lq]-\[rq] is given, screensize is set to the default
 value.
-The Medley window is an unscaled viewport onto this virtual display.
+.PP
 If --screensize is not specified but --geometry is, then the virtual
 display size will be set so that the entire virtual display fits into
 the given window geometry.
 If neither --screensize nor --geometry is provided, then the screen size
 is set to 1440x900.
+.PP
 (Also see note below under \f[I]CONFIG FILE\f[R] on the use of geometry
 and screensize in config files.)
+.RE
 .TP
 -ps [\f[I]N\f[R] | -], \[en]pixelscale [\f[I]N\f[R] | -]\ \ \ \ ** \f[B]Applicable only when display is SDL-based (e.g., on Windows/Cygwin)\f[R] **
-Sets the pixel scaling factor to \f[I]N\f[R].
+Sets the pixel scaling factor to \f[I]N\f[R], an integer
+.RS
+.PP
 If value of \[lq]-\[rq] is given, the pixel scale factor is set to its
 default of 1.
+.RE
 .TP
 -t [\f[I]STRING\f[R] | -], --title [\f[I]STRING\f[R] | -]
-Use STRING as title of Medley window.
+Use \f[I]STRING\f[R] as title of Medley window.
+.RS
+.PP
+If \f[I]STRING\f[R] includes the character sequence \[lq]%i\[rq], then
+the value of the id string (see \[en]id flag below) prefixed by
+\[lq]::\[rq] will be substituited for the \[lq]%i\[rq].
+Example: if the id is \[lq]run_45\[rq] and \f[I]STRING\f[R] is
+\[lq]Medley Interlisp %i\[rq], then the actual window title will be
+\[lq]Medley Interlisp :: run_45\[rq].
+.PP
 If the value of \[lq]-\[rq] is given, sets the title to its default
-value (\[lq]Medley Interlisp\[rq]).
-Ignored when when the --vnc flag is set.
+value (\[lq]Medley Interlisp %i\[rq]).
+.PP
+This flag is ignored when when the --vnc flag is set.
+.RE
 .TP
 -d [\f[I]:N\f[R] | -], --display [\f[I]:N\f[R] | -]
-Use X display :N.
+Use X display \f[I]:N\f[R].
+.RS
+.PP
 If value is \[lq]-\[rq], reset display to its default value.
 Default value is the value of $DISPLAY.
-On platforms that support X Windows as well as SDL, the value of -d
-(\[en]display) should be set to \[lq]SDL\[rq] to select using SDL
-instead of X Windows.
+.PP
+On platforms that support both SDL and X Windows, set the value of -d
+(\[en]display) to \[lq]SDL\[rq] to select using SDL instead of X
+Windows.
+.PP
 This flag is ignored on the Windows/Cygwin platform and when the --vnc
 flag is set on Windows System for Linux.
+.RE
 .TP
 -v [+ | -] , --vnc [+ | -]\ \ \ \ ** \f[B]Applicable only to WSL installations\f[R] **
 If value is \[lq]+\[rq] or no value is given, then use a VNC window
 running on the Windows side instead of an X window.
 If value is \[lq]-\[rq], then do not use a VNC window, relying instead
 on a standard X Window.
+.RS
+.PP
 A VNC window will folllow the Windows desktop scaling setting allowing
 for much more usable Medley on high resolution displays.
 On WSL, X windows do not scale well.
+.PP
 This flag is always set for WSL1 installations.
+.RE
 .TP
 -i [\f[I]ID_STRING\f[R] | - | --], --id [\f[I]ID_STRING\f[R] | - | --]
-Use ID_STRING as the id for this run of Medley, unless ID_STRING is
-\[lq]-\[rq], \[lq]--\[rq], or \[lq]---\[rq].
-If ID_STRING is \[lq]-\[rq], then reset the id to \[lq]default\[rq]
-(e.g., if it was previously set in the config file).
-If ID_STRING is \[lq]--\[rq], then use the basename of $MEDLEYDIR as the
-id.
-If ID_STRING is \[lq]---\[rq], then use the basename of the parent
-directory of $MEDLEYDIR as the id.
-Only one instance of Medley with a given id can run at a time.
-The id is used to distinguish the virtual memory stores so that multiple
-instances of Medley can run simultaneously.
+Use \f[I]ID_STRING\f[R] as the id for this run of Medley, unless the
+given value is \[lq]-\[rq], \[lq]--\[rq], or \[lq]---\[rq].
+.RS
+.PP
+Only one instance of Medley can be run simultaneously for any given id.
+.PP
+\f[I]ID-STRING\f[R] can consist of any alphanumeric character plus the
+underscore (_) character, ending (optionally) in a \[lq]+\[rq]
+character.
+If \f[I]ID_STRING\f[R] ends with a \[lq]+\[rq] (including just a
+singleton \[lq]+\[rq]), then Medley will add a number to the id to make
+it unique among currently running Medley intsances.
+.PP
+If the given value is \[lq]-\[rq], then the id will be (re)set to
+\[lq]default\[rq] (e.g., if it was previously set in the config file).
+If it is \[lq]--\[rq], then id will be set to the basename of
+$MEDLEYDIR.
+If ID_STRING is \[lq]---\[rq], then id will be set to the basename of
+the parent directory of $MEDLEYDIR.
+.PP
 Default id is \[lq]default\[rq].
+.RE
 .TP
 -m [\f[I]N\f[R] | -], --mem [\f[I]N\f[R] | -]
 Set Medley to run in \f[I]N\f[R] MB of virtual memory.
 Defaults to 256MB.
+.PP
 If a value of \[lq]-\[rq] is given, resets to default value.
 .TP
 -p [\f[I]FILE\f[R] | -], --vmem [\f[I]FILE\f[R] | -]
-Use FILE as the Medley virtual memory (vmem) store.
-FILE must be writeable by the current user.
+Use \f[I]FILE\f[R] as the Medley virtual memory (vmem) store.
+\f[I]FILE\f[R] must be writeable by the current user.
+.RS
+.PP
 Care must be taken not to use the same vmem FILE for two instances of
 Medley running simultaneously.
 The --id flag will not protect against vmem collisions when the --vmem
 flag is used.
+.PP
 If the value \[lq]-\[rq] is given, then resets the vmem file to the
 default.
+.PP
 Default is to store the vmem in LOGINDIR/vmem/lisp_III.virtualmem, where
 III is the id of this Medley run (see --id flag above).
 See --logindir below for setting of LOGINDIR.
+.RE
 .TP
 -r [\f[I]FILE\f[R] | -], --greet [\f[I]FILE\f[R] | -]
-Use FILE as the Medley greetfile, unless FILE is \[lq]-\[rq] in which
-case Medley will start up without using a greetfile.
+Use \f[I]FILE\f[R] as the Medley greetfile.
+.RS
+.PP
+If the given value is \[lq]-\[rq], Medley will start up without using a
+greetfile.
+.PP
 The default Medley greetfile is $MEDLEYDIR/greetfiles/MEDLEYDIR-INIT,
 except when the --apps flag is used in which case it is
 $MEDLEYDIR/greetfiles/APPS-INIT.
+.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 DIR as LOGINDIR in Medley.
-If the value is \[lq]\[en]\[rq], use $MEDLEYDIR/logindir as LOGINDIR.
-If a value of \[lq]-\[rq] is given, then reset LOGINDIR to its default
-value.
-DIR (or $MEDLEYDIR/logindir) must be writeable by the current user.
-LOGINDIR defaults to $HOME/il.
+Use \f[I]DIR\f[R] as LOGINDIR in Medley.
+\f[I]DIR\f[R] must be writeable by the current user.
+.RS
+.PP
 LOGINDIR is used by Medley as the working directory on start-up and
 where it loads any \[lq]personal\[rq] initialization file from.
+.PP
+If the given value is \[lq]-\[rq], then reset LOGINDIR to its default
+value.
+If the given value is \[lq]\[en]\[rq], uses $MEDLEYDIR/logindir as
+LOGINDIR.
+.PP
+LOGINDIR defaults to $HOME/il.
+.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
 -nh \f[I]Host:Port:Mac:Debug\f[R], --nethub \f[I]Host:Port:Mac:Debug\f[R]
 Set the parameters for using Nethub XNS networking.
@@ -232,10 +322,13 @@ A \f[I]Host\f[R] value is required and serves to turn nethub
 functionality on.
 \f[I]Port\f[R], \f[I]Mac\f[R] and \f[I]Debug\f[R] parameters are
 optional and will default if left off.
-Finally, if any of the parameters have a value of \[lq]-\[rq], any
-previous setting (e.g., in a config file) for the parameter will be
-reset to the default value - which in the case of \f[I]Host\f[R] is the
-null string, turning nethub functionality off.
+.RS
+.PP
+If any of the parameters have a value of \[lq]-\[rq], any previous
+setting (e.g., in a config file) for the parameter will be reset to the
+default value - which in the case of \f[I]Host\f[R] is the null string,
+turning nethub functionality off.
+.RE
 .TP
 -nf, -NF, \[en]nofork
 No fork.

docs/man-page/medley.1.md

@@ -42,131 +42,195 @@ Flags
 : Show the man page for medley
 
 -c [*FILE* | -], \-\-config [*FILE* | -]
-: Use *FILE* as the config file for this run of Medley. See information on *CONFIG FILE* below.  If *FILE* is "-",
+: Use *FILE* as the config file for this run of Medley. See information on *CONFIG FILE* below.
+
+    If the given value is "-",
 then suppress the use of a config file for this run of Medley. 
 
 -f, \-\-full
 : Start Medley from the standard "full" sysout. full.sysout includes a complete Interlisp and CommonLisp environment
 with a standard set of development tools.  It does not include any of the applications built using Medley.
-(See *SYSOUT_FILE* below for more information on starting sysouts.)
+
+    (See *SYSOUT_FILE* below for more information on starting sysouts.)
 
 -l, \-\-lisp
 : Start Medley from the standard "lisp" sysout.  lisp.sysout only includes the basic Interlisp and
 CommonLisp environment.
-(See *SYSOUT_FILE* below for more information on starting sysouts.)
+
+    (See *SYSOUT_FILE* below for more information on starting sysouts.)
 
 -a, \-\-apps
 : Start Medley from the standard "apps" sysout.  apps.sysout includes everything in full.sysout plus Medley
 applications including Notecards, Rooms and CLOS.  It also includes pre-installed links to key Medley
 documentation.
-(See *SYSOUT_FILE* below for more information on starting sysouts.)
+
+    (See *SYSOUT_FILE* below for more information on starting sysouts.)
 
 -u, \-\-continue
 :  Nullify any prior setting of the sysout file (e.g., from the config file) - causing Medley to start from
 the virtual memory file resulting from the previous invocation (with the same values for --id and --logindir),
 if any.  If there is no matching virtual memory file, Medley will start from the full.sysout (see -f/--full above).
-Equivalent to "-y -".  (See *SYSOUT FILE* section below.) 
+
+    Equivalent to "-y -".
+
+    (See *SYSOUT FILE* section below.) 
 
 -y [*SYSOUT_FILE* | -], \-\-sysout [*SYSOUT-FILE* | -]
 : Start Medley from the specified *SYSOUT-FILE*.  This is an alternative to specifying the *SYSOUT-FILE*
 as the last argument on the command line (but before any *PASS_ON_ARGS*).  It can be used to specify the
-*SYSOUT-FILE* in the config file (see information on *CONFIG FILE* below). If *SYSOUT-FILE* is "-", then
+*SYSOUT-FILE* in the config file (see information on *CONFIG FILE* below). 
+
+    If the given value is "-", then
 any prior setting of the sysout file (e.g., from the config file) is nullified (see -u/--continue above).
-(See *SYSOUT FILE* section below.) 
+
+    (See *SYSOUT FILE* section below.) 
 
 -e [+ | -], \-\-interlisp [+ | -]
 : If value is "+" or no value, make the initial Exec window within Medley be an Interlisp Exec.
 If value is "-", make the initial Exec window be the default XCL Exec.
-This flag applies only when the --apps flag is used.
+
+    This flag applies only when the --apps flag is used.
 
 -n [+ | -], \-\-noscroll [+ | -]
 : Medley ordinarily displays scroll bars to enable the user to pan the Medley virtual display within the
-Medley window.  This is true even when the entire virtual display fits within the window.  Specifying
+Medley window.  This is true even when the entire virtual display fits within the window.
+
+    Specifying
 "-n +" (--noscroll +) turns off scroll bars.  Specifying "-n -" (--scroll -) turns on scroll bars.
-Specifying -n (--noscroll) with no value is equivalent to specifying "--noscroll +".  Default
-is scroll bars off. Note: If scroll bars are off and the virtual screen is larger
+Specifying -n (--noscroll) with no value is equivalent to specifying "--noscroll +".
+
+    Default is scroll bars off. 
+
+    Note: If scroll bars are off and the virtual screen is larger
 than the window, there will be no way to pan to the non-visible parts of the virtual display.
 
 -g [*WxH* | -], \-\-geometry [*WxH* | -]
 : Sets the size of the X Window (or VNC window) that Medley runs in to be Width x Height. (Full X Windows
 geomtery specification with +X+Y is not currently supported).
-If a value of "-" is given, geometry is set to the default value.
-If \-\-geometry is not specified but \-\-screensize is,
+
+    If a value of "-" is given, geometry is set to the default value.
+
+    If \-\-geometry is not specified but \-\-screensize is,
 then the window size will be determined based on the \-\-screensize values and the \-\-noscroll flag.  If neither
 \-\-geometry nor \-\-screensize is provided, then the window size is set to 1440x900 if \-\-noscroll is set and 1462x922
-if \-\-noscroll is not set.  (Also see note below under *CONFIG FILE* on the use of geometry and screensize
+if \-\-noscroll is not set.
+
+    (Also see note below under *CONFIG FILE* on the use of geometry and screensize
 in config files.)
 
 -s [*WxH* | -], \-\-screensize [*WxH* | -]
-: Sets the size of the virtual display as seen from Medley's point of view.
-If a value of "-" is given, screensize is set to the default value.
-The Medley window is an unscaled viewport onto this virtual display. If \-\-screensize is not specified but
+: Sets the size of the virtual display as seen from Medley's point of view. The Medley window is an unscaled viewport onto this virtual display. 
+
+    If a value of "-" is given, screensize is set to the default value.
+
+    If \-\-screensize is not specified but
 \-\-geometry is, then the virtual display size will be set so that the entire virtual display fits into the given
 window geometry.  If neither \-\-screensize nor \-\-geometry is provided, then the screen size is set to 1440x900.
-(Also see note below under *CONFIG FILE* on the use of geometry and screensize in config files.)
+
+    (Also see note below under *CONFIG FILE* on the use of geometry and screensize in config files.)
 
 -ps [*N* | -], --pixelscale [*N* | -]    \*\* **Applicable only when display is SDL-based (e.g., on Windows/Cygwin)** \*\*
-: Sets the pixel scaling factor to *N*. If value of "-" is given, the pixel scale factor is set to its default of 1.
+: Sets the pixel scaling factor to *N*, an integer
+
+    If value of "-" is given, the pixel scale factor is set to its default of 1.
 
 -t [*STRING* | -], \-\-title [*STRING* | -]
-: Use STRING as title of Medley window.  If the value of "-" is given, sets the title to its default value ("Medley Interlisp").
-Ignored when when the \-\-vnc flag is set.
+: Use *STRING* as title of Medley window.
+
+    If *STRING* includes the character sequence "%i", then the value of the id string (see --id flag below)
+prefixed by ":: " will be substituited for the "%i".  Example: if the id is "run_45" and *STRING* is "Medley Interlisp %i", then the actual window
+title will be "Medley Interlisp :: run_45". 
+
+    If the value of "-" is given, sets the title to its default value ("Medley Interlisp %i").
+
+    This flag is ignored when when the \-\-vnc flag is set.
 
 -d [*:N* | -], \-\-display [*:N* | -]
-: Use X display :N.  If value is "-", reset display to its default value. Default value is the value of $DISPLAY. 
-On platforms that support X Windows as well as SDL, the value of -d (--display) should
-be set to "SDL" to select using SDL instead of X Windows.  This flag is ignored on the Windows/Cygwin platform and when the \-\-vnc flag is
+: Use X display *:N*.
+
+    If value is "-", reset display to its default value. Default value is the value of $DISPLAY.
+ 
+    On platforms that support both SDL and X Windows, set the value of -d (--display) to "SDL" to select using SDL instead of X Windows.  
+
+    This flag is ignored on the Windows/Cygwin platform and when the \-\-vnc flag is
 set on Windows System for Linux.
 
 -v [+ | -] , \-\-vnc [+ | -]    \*\* **Applicable only to WSL installations** \*\*
 : If value is "+" or no value is given, then use a VNC window running on the Windows side instead of an X window.  If value is "-", then do not
 use a VNC window, relying instead on a standard X Window.
-A VNC window will folllow the Windows desktop scaling setting allowing
+
+    A VNC window will folllow the Windows desktop scaling setting allowing
 for much more usable Medley on high resolution displays.  On WSL, X windows
-do not scale well.  This flag is always set for WSL1 installations.
+do not scale well.
+
+    This flag is always set for WSL1 installations.
 
 -i [*ID_STRING* | - | \-\-], \-\-id [*ID_STRING* | - | \-\-]
-: Use ID_STRING as the id for this run of Medley, unless ID_STRING is "-", "\-\-", or "\-\-\-". 
-If ID_STRING is "-", then reset the id to "default" (e.g., if it was previously set in the
-config file).  If ID_STRING is "\-\-", then use the basename of $MEDLEYDIR as the id.
-If ID_STRING is "\-\-\-", then use the basename of the parent directory of $MEDLEYDIR as the id.
-Only one instance of Medley with a given id can run at a time.
-The id is used to distinguish the virtual memory stores so that multiple
-instances of Medley can run simultaneously.  Default id is "default".
+: Use *ID_STRING* as the id for this run of Medley, unless the given value is "-", "\-\-", or "\-\-\-".
+
+    Only one instance of Medley can be run simultaneously for any given id.
+
+    *ID-STRING* can consist of any alphanumeric
+character plus the underscore (_) character, ending (optionally) in a "+" character.  If *ID_STRING* ends with a "+"
+(including just a singleton "+"),
+then Medley will add a number to the id to make it unique among currently running Medley intsances.
+
+    If the given value is "-", then the id will be (re)set to "default" (e.g., if it was previously set in the
+config file).  If it is "\-\-", then id will be set to the basename of $MEDLEYDIR.
+If ID_STRING is "\-\-\-", then id will be set to the basename of the parent directory of $MEDLEYDIR.
+
+    Default id is "default".
 
 -m [*N* | -], \-\-mem [*N* | -]
-: Set Medley to run in *N* MB of virtual memory.  Defaults to 256MB. If a value of "-" is given, resets
+: Set Medley to run in *N* MB of virtual memory.  Defaults to 256MB.
+
+   If a value of "-" is given, resets
 to default value.
 
 -p [*FILE* | -], \-\-vmem [*FILE* | -]
-: Use FILE as the Medley virtual memory (vmem) store.  FILE must be writeable by the current user.
-Care must be taken not to use the same vmem FILE for two instances of Medley running simultaneously.
+: Use *FILE* as the Medley virtual memory (vmem) store.  *FILE* must be writeable by the current user.
+
+    Care must be taken not to use the same vmem FILE for two instances of Medley running simultaneously.
 The \-\-id flag will not protect against vmem collisions when the \-\-vmem flag is used.
-If the value "-" is given, then resets the vmem file to the default.
-Default is to store the vmem in LOGINDIR/vmem/lisp_III.virtualmem, where III is the id of this
+
+    If the value "-" is given, then resets the vmem file to the default.
+
+    Default is to store the vmem in LOGINDIR/vmem/lisp_III.virtualmem, where III is the id of this
 Medley run (see \-\-id flag above).  See \-\-logindir below for setting of LOGINDIR. 
 
 -r \[*FILE* | -], \-\-greet \[*FILE* | -]
-: Use FILE as the Medley greetfile, unless FILE is "-" in which case
-Medley will start up without using a greetfile. The default Medley greetfile
+: Use *FILE* as the Medley greetfile.
+
+    If the given value is "-",  Medley will start up without using a greetfile.
+
+    The default Medley greetfile
 is $MEDLEYDIR/greetfiles/MEDLEYDIR-INIT, except when the \-\-apps flag is used
-in which case it is $MEDLEYDIR/greetfiles/APPS-INIT. On Windows/Cygwin installations, *FILE* is
+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.
 
 -x \[*DIR* | - | --], \-\-logindir \[*DIR* | - | --]
-: Use DIR as LOGINDIR in Medley.  If the value is "--", use
-\$MEDLEYDIR/logindir as LOGINDIR.
-If a value of "-" is given, then reset LOGINDIR to its default value.
-DIR (or \$MEDLEYDIR/logindir) must be writeable by the current user.
-LOGINDIR defaults to \$HOME/il.  LOGINDIR is used by Medley as the working directory on start-up
-and where it loads any "personal" initialization file from. On Windows/Cygwin installations, *FILE* is
+: Use *DIR* as LOGINDIR in Medley.  *DIR* must be writeable by the current user.
+
+    LOGINDIR is used by Medley as the working directory on start-up
+and where it loads any "personal" initialization file from. 
+
+    If the given value is "-", then reset LOGINDIR to its default value.
+If the given value is "--", uses \$MEDLEYDIR/logindir as LOGINDIR.
+
+    LOGINDIR defaults to \$HOME/il.
+
+    On Windows/Cygwin installations, *FILE* is
 specified in the Medley file system, not the host Windows file system.
 
 -nh *Host:Port:Mac:Debug*, \-\-nethub *Host:Port:Mac:Debug*
 : Set the parameters for using Nethub XNS networking.  *Host* is the full domain name of the nethub host.  *Port* is the port on *Host* that nethub is using.
 *Mac* is the Mac address that this instance of Medley should use when contacting the nethub host.  *Debug* is the level of nethub debug information 
 that should be printed on stdout (value is 0, 1, or 2).  A *Host* value is required and serves to turn nethub functionality on.  *Port*, *Mac* and *Debug*
-parameters are optional and will default if left off.  Finally, if any of the parameters have a value of "-", any previous setting (e.g., in a config file)
+parameters are optional and will default if left off.
+
+    If any of the parameters have a value of "-", any previous setting (e.g., in a config file)
 for the parameter will be reset to the default value - which in the case of *Host* is the null string, turning nethub functionality off.
 
 -nf, -NF, --nofork

installers/cygwin/makeflix.iss

@@ -1,128 +0,0 @@
-; -- makeflix.iss --
-; fgh 2016-08-19
-
-#define x86_or_x64 "x86"
-#define version "1.0.1"
-
-#if x86_or_x64 == "x86" 
-#define exe_dir "Win32"
-#else
-#define exe_dir "x64"
-#endif
-
-[Setup]
-ArchitecturesAllowed={#x86_or_x64}
-AppName=Makeflix
-AppVersion={#version}
-AppPublisher=Lellan, Inc.
-AppPublisherURL=http://www.lellan.com/
-AppCopyright=Copyright (C) 2012-2017 Lellan, Inc.
-DefaultDirName={pf}\Lellan\Makeflix
-DefaultGroupName=Lellan
-UninstallDisplayIcon={app}\makeflix.exe
-Compression=lzma2
-SolidCompression=yes
-; "ArchitecturesInstallIn64BitMode=x64" requests that the install be
-; done in "64-bit mode" on x64, meaning it should use the native
-; 64-bit Program Files directory and the 64-bit view of the registry.
-ArchitecturesInstallIn64BitMode=x64
-; Source Dir is lellan/toolchain/makeflix/windows
-SourceDir="..\"
-OutputDir="deploy"
-OutputBaseFilename="makeflix_v{#version}_{#x86_or_x64}"
-SetupIconFile="..\images\Lellan_Logo_20130221.ico"
-LicenseFile="..\deploy\EULA.rtf"
-DisableWelcomePage=no
-
-[Files]
-Source: "makeflix\{#exe_dir}\Release\makeflix.exe"; DestDir: "{app}"; DestName: "makeflix.exe"; Flags: ignoreversion
-Source: "deploy\DLLs\{#x86_or_x64}\Qt5Core.dll"; DestDir: "{app}"; Flags: ignoreversion
-Source: "deploy\DLLs\{#x86_or_x64}\Qt5Gui.dll"; DestDir: "{app}"; Flags: ignoreversion
-Source: "deploy\DLLs\{#x86_or_x64}\Qt5Widgets.dll"; DestDir: "{app}"; Flags: ignoreversion
-Source: "deploy\DLLs\{#x86_or_x64}\Qt5Network.dll"; DestDir: "{app}"; Flags: ignoreversion
-Source: "deploy\DLLs\{#x86_or_x64}\platforms\qwindows.dll"; DestDir: "{app}\platforms"; Flags: ignoreversion
-Source: "deploy\gstreamer\{#x86_or_x64}\*"; DestDir: "{app}\gstreamer"; Flags: recursesubdirs ignoreversion
-Source: "deploy\vc_redist\vc_redist.{#x86_or_x64}.exe"; DestDir: "{tmp}"; Flags: deleteafterinstall 
-Source: "deploy\bonjour\Bonjour.{#x86_or_x64}.msi"; DestDir: "{tmp}" ; Flags: deleteafterinstall
-
-Source: "..\deploy\Makeflix_Open_Source_Libraries.pdf"; DestDir: "{app}"
-
-[Icons]
-Name: "{group}\Makeflix"; Filename: "{app}\makeflix.exe"
-Name: "{group}\Uninstall Makeflix"; Filename: "{uninstallexe}"
-
-
-[Run]
-#define VCmsg "Installing Microsoft Visual C++ Redistributable ..."
-Filename: "{tmp}\vc_redist{#x86_or_x64}.exe"; StatusMsg: "{#VCmsg}"; Check: not VCinstalled
-#define BonjourMsg "Installing Apple Bonjour support ..."
-Filename: "msiexec"; Parameters: "/i {tmp}\Bonjour.{#x86_or_x64}.msi"; StatusMsg: "{#BonjourMsg}"; Check: not BonjourInstalled
-
-[Registry]
-Root: HKLM; Subkey: "SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\makeflix.exe"; ValueType: string; ValueName: "(Default)"; ValueData: "{app}\makeflix.exe"; Flags: uninsdeletekey
-Root: HKLM; Subkey: "SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\makeflix.exe"; ValueType: string; ValueName: "Path"; ValueData: "{app}\gstreamer\bin"; Flags: uninsdeletekey
-
-[Code]
-function VCinstalled: Boolean;
- // By Michael Weiner <mailto:spam@cogit.net>
- // Function for Inno Setup Compiler
- // 13 November 2015
- // Modified by Frank G Halasz to handle WOW case
- // 23 August 2016
- // Returns True if Microsoft Visual C++ Redistributable is installed, otherwise False.
- // The programmer may set the year of redistributable to find; see below.
- var
-  names: TArrayOfString;
-  i: Integer;
-  dName, key, year, platfm: String;
- begin
-  // Year of redistributable to find; leave null to find installation for any year.
-  year := '2015';
-  Result := False;
-  if Is64BitInstallMode then
-    begin
-      platfm := 'x64'; 
-      key := 'Software\WOW6432Node\Microsoft\Windows\CurrentVersion\Uninstall';
-    end
-  else if not IsWin64 then
-    begin
-      platfm := 'x86';
-      key := 'Software\Microsoft\Windows\CurrentVersion\Uninstall';
-    end
-  else
-    begin
-      platfm := 'x86';
-      key := 'Software\WOW6432Node\Microsoft\Windows\CurrentVersion\Uninstall';
-    end;
-  // Get an array of all of the uninstall subkey names.
-  if RegGetSubkeyNames(HKEY_LOCAL_MACHINE, key, names) then
-   // Uninstall subkey names were found.
-   begin
-    i := 0
-    while ((i < GetArrayLength(names)) and (Result = False)) do
-     // The loop will end as soon as one instance of a Visual C++ redistributable is found.
-     begin
-      // For each uninstall subkey, look for a DisplayName value.
-      // If not found, then the subkey name will be used instead.
-      if not RegQueryStringValue(HKEY_LOCAL_MACHINE, key + '\' + names[i], 'DisplayName', dName) then
-       dName := names[i];
-      // See if the value contains both of the strings below.
-      Result := (Pos(Trim('Visual C++ ' + year),dName) * Pos('Redistributable',dName) * Pos(platfm, dName) <> 0)
-      i := i + 1;
-     end;
-   end;
- end;
-
- function BonjourInstalled: Boolean;
- // Returns True if Apple Bonjour is installed, otherwise False.
- // Ignores date/version of Bonjour.
- begin
-  Result := False;
-  // If this key exists, then
-  // bonjour services must already be installed
-  if RegKeyExists(HKEY_LOCAL_MACHINE, 'SYSTEM\CurrentControlSet\Services\Bonjour Service') then
-   // Uninstall subkey names were found.
-   begin
-     Result := True;
-   end;
- end;

installers/cygwin/medley.iss

@@ -68,7 +68,7 @@ Name: "{group}\Medley\Uninstall_Medley"; Filename: "{uninstallexe}"
 ; Name: "{group}\Medley\Medley"; Filename: "powershell"; Parameters: "-NoExit -File {app}\medley.ps1 --help"; IconFilename: "{app}\Medley.ico"
 
 [Run]
-Filename: "{app}\cygwin\setup-x86_64.exe"; Parameters: "--quiet-mode --no-admin --wait --no-shortcuts --no-write-registry --verbose --root {app} --site http://www.gtlib.gatech.edu/pub/cygwin/ --only-site --local-package-dir {app}\cygwin --packages nano,xdg-utils"; StatusMsg: "Installing Cygwin ..."
+Filename: "{app}\cygwin\setup-x86_64.exe"; Parameters: "--quiet-mode --no-admin --wait --no-shortcuts --no-write-registry --verbose --root {app} --site https://mirrors.kernel.org/sourceware/cygwin --only-site --local-package-dir {app}\cygwin --packages nano,xdg-utils"; StatusMsg: "Installing Cygwin ..."
 Filename: "{app}\bin\bash"; Parameters: "-login -c 'sed -i -e s/^none/#none/ /etc/fstab && echo none / cygdrive binary,posix=0,user 0 0 >>/etc/fstab'"; Flags: runhidden
 Filename: "tar"; Parameters: "-x -z -C {app} -f {app}\install\medley.tgz"; Flags: runhidden; StatusMsg: "Installing Medley ..."
 Filename: "powershell"; Parameters: "remove-item -force -recurse {app}\maiko"; Flags: runhidden; StatusMsg: "Installing Maiko ..."

lispusers/MANAGER

@@ -1,13 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED "13-Oct-2023 16:41:52" {LU}MANAGER.;3
 112648 
+
(FILECREATED "17-May-2024 09:44:49" {LU}MANAGER.;2
 112772 
 
       :EDIT-BY "mth"
 
       :CHANGES-TO (FNS Manager.DO.COMMAND)
-                  (VARS MANAGERCOMS MANAGER-FILE-OPERATIONS-COMMANDS)
 
-      :PREVIOUS-DATE "10-Oct-2023 11:27:25" {LU}MANAGER.;1)
+      :PREVIOUS-DATE "13-Oct-2023 16:41:52" {LU}MANAGER.;1)
 
 
 (PRETTYCOMPRINT MANAGERCOMS)
@@ -563,7 +562,8 @@ Will load DataBaseFNS if necessary" (SUBITEMS ("All" 'DB
                 YCOORD _ YPOS])
 
 (Manager.DO.COMMAND

-  [LAMBDA (COMMAND ITEM COMSTYPE FILE MENU)
                  (* ; "Edited 13-Oct-2023 16:28 by mth")

+  [LAMBDA (COMMAND ITEM COMSTYPE FILE MENU)
                  (* ; "Edited 17-May-2024 09:41 by mth")


+                                                             (* ; "Edited 13-Oct-2023 16:28 by mth")

     (if
 (EQ COMSTYPE 'FILEVARS)
         then
 (SETQ COMSTYPE 'VARS)                           (* ; "The Manager currently does unnatural things with the FILEVARS type, this is a hack to compensate for it. E.g., editing a FILEVARS = editing the VARS, etc.")

         )
@@ -660,10 +660,10 @@ Will load DataBaseFNS if necessary" (SUBITEMS ("All" 'DB
                                              (printout T .FONT LAMBDAFONT "Description of " ITEM ":"
                                                     .FONT DEFAULTFONT T)
                                              (CL:DESCRIBE ITEM))
-                                          (CLDOC 
-                                             (printout T .FONT LAMBDAFONT "Documentation for " ITEM 
-                                                    ":" .FONT DEFAULTFONT T)
-                                             (CL:DOCUMENTATION ITEM))
+                                          (CLDOC (printout T .FONT LAMBDAFONT "Documentation for " 
+                                                        ITEM ":" .FONT DEFAULTFONT T (
+                                                                                     CL:DOCUMENTATION
+                                                                                      ITEM)))
                                           (FIELDS (printout T .FONT LAMBDAFONT "Fields of " ITEM ":"
                                                          .FONT DEFAULTFONT T (REVERSE (
                                                                                      RECORDFIELDNAMES
@@ -1773,20 +1773,20 @@ Will load DataBaseFNS if necessary" (SUBITEMS ("All" 'DB
 (ADDTOVAR LAMA
 )
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (25676 102848 (MANAGER 25686 . 26485) (MANAGER.RESET 26487 . 28001) (Manager.ADDADV 
-28003 . 29356) (Manager.ADDTOFILES? 29358 . 29636) (Manager.ALTERMARKING 29638 . 31248) (
-Manager.ANCHORED-SET-POSITION 31250 . 32353) (Manager.DO.COMMAND 32355 . 62991) (Manager.HIGHLIGHT 
-62993 . 63290) (Manager.PROMPT 63292 . 63605) (Manager.WINDOW 63607 . 64240) (
-Manager.insurefilehighlights 64242 . 65313) (Manager.CHANGED? 65315 . 65864) (Manager.CHECKFILE 65866
- . 66965) (Manager.COLLECTCOMS 66967 . 68405) (Manager.COMS.WSF 68407 . 71077) (Manager.COMSOPEN 71079
- . 75817) (Manager.COMSUPDATE 75819 . 76911) (Manager.HIGHLIGHTED 76913 . 77219) (
-Manager.INSUREHIGHLIGHTS 77221 . 77779) (Manager.FILECHANGES 77781 . 78080) (Manager.FILELSTCHANGED? 
-78082 . 78410) (Manager.FILESUBTYPES 78412 . 79050) (Manager.GET.ENVIRONMENT 79052 . 81590) (
-Manager.GETFILE 81592 . 83906) (Manager.INTITLE? 83908 . 84586) (Manager.MAIN.WSF 84588 . 87232) (
-Manager.MAINCLOSE 87234 . 88344) (Manager.MAINMENUITEMS 88346 . 89423) (Manager.MAINOPEN 89425 . 94818
-) (Manager.MAINUPDATE 94820 . 95456) (Manager.MAKEFILE.ADV 95458 . 96494) (Manager.MENUCOLUMNS 96496
- . 97300) (Manager.MENUHASITEM 97302 . 97659) (Manager.MENUITEMS 97661 . 97906) (
-Manager.REMOVE.DUPLICATE.ADVICE 97908 . 99514) (Manager.RESETSUBITEMS 99516 . 100753) (
-Manager.SET-ANCHOR 100755 . 101074) (Manager.SORT.COMS 101076 . 101608) (Manager.SORTBYCOLUMN 101610
- . 102846)))))
+  (FILEMAP (NIL (25606 102972 (MANAGER 25616 . 26415) (MANAGER.RESET 26417 . 27931) (Manager.ADDADV 
+27933 . 29286) (Manager.ADDTOFILES? 29288 . 29566) (Manager.ALTERMARKING 29568 . 31178) (
+Manager.ANCHORED-SET-POSITION 31180 . 32283) (Manager.DO.COMMAND 32285 . 63115) (Manager.HIGHLIGHT 
+63117 . 63414) (Manager.PROMPT 63416 . 63729) (Manager.WINDOW 63731 . 64364) (
+Manager.insurefilehighlights 64366 . 65437) (Manager.CHANGED? 65439 . 65988) (Manager.CHECKFILE 65990
+ . 67089) (Manager.COLLECTCOMS 67091 . 68529) (Manager.COMS.WSF 68531 . 71201) (Manager.COMSOPEN 71203
+ . 75941) (Manager.COMSUPDATE 75943 . 77035) (Manager.HIGHLIGHTED 77037 . 77343) (
+Manager.INSUREHIGHLIGHTS 77345 . 77903) (Manager.FILECHANGES 77905 . 78204) (Manager.FILELSTCHANGED? 
+78206 . 78534) (Manager.FILESUBTYPES 78536 . 79174) (Manager.GET.ENVIRONMENT 79176 . 81714) (
+Manager.GETFILE 81716 . 84030) (Manager.INTITLE? 84032 . 84710) (Manager.MAIN.WSF 84712 . 87356) (
+Manager.MAINCLOSE 87358 . 88468) (Manager.MAINMENUITEMS 88470 . 89547) (Manager.MAINOPEN 89549 . 94942
+) (Manager.MAINUPDATE 94944 . 95580) (Manager.MAKEFILE.ADV 95582 . 96618) (Manager.MENUCOLUMNS 96620
+ . 97424) (Manager.MENUHASITEM 97426 . 97783) (Manager.MENUITEMS 97785 . 98030) (
+Manager.REMOVE.DUPLICATE.ADVICE 98032 . 99638) (Manager.RESETSUBITEMS 99640 . 100877) (
+Manager.SET-ANCHOR 100879 . 101198) (Manager.SORT.COMS 101200 . 101732) (Manager.SORTBYCOLUMN 101734
+ . 102970)))))
 STOP

scripts/medley/medley.command

@@ -197,7 +197,7 @@ the value begins with a \"-\", which is not allowed."
 check_file_writeable_or_creatable() {
   local_msg_core="\"$2\" given as the value of the \"$1\" flag"
   local_err_msg=""
-  if [ -e "$%2" ]
+  if [ -e "$2" ]
   then
     if [ ! -f "$2" ]
     then
@@ -228,7 +228,7 @@ Exiting"
 check_dir_writeable_or_creatable() {
   local_msg_core="\"$2\" given as the value of the \"$1\" flag"
   local_err_msg=""
-  if [ -e "$%2" ]
+  if [ -e "$2" ]
   then
     if [ ! -d "$2" ]
     then
@@ -593,7 +593,7 @@ run_id="default"
 screensize=""
 sysout_arg=""
 sysout_stage=""
-title="Medley Interlisp %i"
+title=""
 use_vnc=false
 windows=false
 maikodir_arg=""
@@ -1235,6 +1235,10 @@ if [ -z "${LDEKBDTYPE}" ]; then
 fi
 
 # figure out title situation
+if [ -z "${title}" ]
+then
+  title="Medley Interlisp %i"
+fi
 if [ ! "${run_id}" = default ]
 then
   title="$(printf %s "${title}" | sed -e "s/%i/:: ${run_id}/")"

scripts/medley/medley_args.sh

@@ -27,7 +27,7 @@ run_id="default"
 screensize=""
 sysout_arg=""
 sysout_stage=""
-title="Medley Interlisp %i"
+title=""
 use_vnc=false
 windows=false
 maikodir_arg=""

scripts/medley/medley_run.sh

@@ -182,6 +182,10 @@ if [ -z "${LDEKBDTYPE}" ]; then
 fi
 
 # figure out title situation
+if [ -z "${title}" ]
+then
+  title="Medley Interlisp %i"
+fi
 if [ ! "${run_id}" = default ]
 then
   title="$(printf %s "${title}" | sed -e "s/%i/:: ${run_id}/")"

scripts/medley/medley_utils.sh

@@ -51,7 +51,7 @@ the value begins with a \"-\", which is not allowed."
 check_file_writeable_or_creatable() {
   local_msg_core="\"$2\" given as the value of the \"$1\" flag"
   local_err_msg=""
-  if [ -e "$%2" ]
+  if [ -e "$2" ]
   then
     if [ ! -f "$2" ]
     then
@@ -82,7 +82,7 @@ Exiting"
 check_dir_writeable_or_creatable() {
   local_msg_core="\"$2\" given as the value of the \"$1\" flag"
   local_err_msg=""
-  if [ -e "$%2" ]
+  if [ -e "$2" ]
   then
     if [ ! -d "$2" ]
     then

sources/ADIR

@@ -1,12 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED " 9-Mar-2024 10:24:39" {WMEDLEY}<sources>ADIR.;38
 67777  
+
(FILECREATED " 6-May-2024 15:54:01" {WMEDLEY}<sources>ADIR.;45
 67756  
 
       :EDIT-BY rmk
 
-      :CHANGES-TO (FNS UNPACKFILENAME.STRING FILENAMEFIELD FILENAMEFIELD.STRING \UPF.DIRECTORY)
+      :CHANGES-TO (FNS \UPF.DIRECTORY)
 
-      :PREVIOUS-DATE "13-Nov-2023 20:28:57" {WMEDLEY}<sources>ADIR.;31)
+      :PREVIOUS-DATE " 4-May-2024 16:25:09" {WMEDLEY}<sources>ADIR.;44)
 
 
 (PRETTYCOMPRINT ADIRCOMS)
@@ -317,7 +317,8 @@
 (DEFINEQ
 
 (UNPACKFILENAME.STRING

-  [LAMBDA (FILE ONEFIELDFLG DIRFLG OSTYPE PACKFLG CLFLG)
     (* ; "Edited  9-Mar-2024 10:23 by rmk")


+  [LAMBDA (FILE ONEFIELDFLG DIRFLG OSTYPE PACKFLG CLFLG)
     (* ; "Edited  4-May-2024 12:45 by rmk")


+                                                             (* ; "Edited  9-Mar-2024 10:23 by rmk")


                                                              (* ; "Edited 13-Nov-2023 20:28 by rmk")


                                                              (* ; "Edited 28-Apr-2022 11:40 by rmk")


                                                              (* ; "Edited 24-Apr-2022 14:11 by rmk")

@@ -350,7 +351,6 @@
     (* ;; "")

 
     (* ;; "     If there is at least one / or > then the last one ends the directory, anything before is possibly a relative or subdirectory.  Anything after is a name")

-                                                             (* ; "")

 
     (* ;; "              (Rationale:  Those are not sub-directory brackets)")

 
@@ -662,52 +662,48 @@
                                                   (PUSH
 $$VAL F FVAL])
 
 (\UPF.DIRECTORY

-  [LAMBDA (DIRSTART DIREND DIRDIRTY $$BASE $$FATP $$READONLY)
(* ; "Edited  8-Mar-2024 23:03 by rmk")


+  [LAMBDA (DIRSTART DIREND DIRDIRTY $$BASE $$FATP $$READONLY)
(* ; "Edited  6-May-2024 15:53 by rmk")


+                                                             (* ; "Edited  4-May-2024 16:25 by rmk")


+                                                             (* ; "Edited  8-Mar-2024 23:03 by rmk")


                                                              (* ; "Edited 28-Apr-2022 09:15 by rmk")


                                                              (* ; "Edited 27-Apr-2022 08:50 by rmk")


                                                              (* ; "Edited 23-Apr-2022 17:09 by rmk")

 
-    (* ;; "Relative directory {abc}<foo or {abc}< with no >, subdirectory >foo or > with no host or device (DIRSTART=1).  ")

+    (* ;; "Extract the directory field, producing <> for the empty (top-level) directory, normalizing / to < or >.")

 
-    (* ;; "Advance DIRSTART through initial duplicates")

+    (if
 (ILEQ DIREND DIRSTART)
+        then
 
+             (* ;; "An empty directory field is interpreted as the top as per issue #1685:  <xy  >xy  /xy all map to <>")

 
-    (LET ((BRACKET (SELCHARQ (\GETBASECHAR $$FATP $$BASE DIRSTART)
-                        ((< /) 
-                             "<")
-                        (> ">")
-                        NIL)))
-         (IF
 (EQ DIREND DIRSTART)
-             THEN
 
-                  (* ;; "If EQ, the directory is is empty.")

+             (MKSTRING "<")
+      else
 (CL:WHEN (MEMB (\GETBASECHAR $$FATP $$BASE DIRSTART)
+                          (CHARCODE (< / >)))                (* ; "Skip leading brackets")

+               (ADD
 DIRSTART 1)) 
 
-                  (MKSTRING "")
-           ELSE
 (CL:WHEN BRACKET                             (* ; "Skip the < or /")

-                    (ADD
 DIRSTART 1)) 
+           (* ;; 
+
           "If DIRDIRTY, the string contained at least one / that has to be converted to < or >")

 
-                (* ;; 
-
         "Convert / to >, remove all  // /> >> duplicate sequences (keep the first, skip the others)")

+           (IF
 DIRDIRTY
+               THEN
 (FOR
 DIROFF C DEST DESTBASE (DESTPOS _ -1) FROM
 DIRSTART TO
 DIREND
+                       FIRST
 (SETQ DEST (ALLOCSTRING (ADD1 (IDIFFERENCE DIREND DIRSTART))
+                                               NIL NIL $$FATP))
+                             (SETQ DESTBASE (FETCH
 (STRINGP BASE) OF
 DEST))
+                       DO
 (ADD
 DESTPOS 1)
+                          (SETQ C (\GETBASECHAR $$FATP $$BASE DIROFF))
+                          (SELCHARQ C
+                               ((> /) 
+                                    (\PUTBASECHAR $$FATP DESTBASE DESTPOS (CHARCODE >))
 
-                (IF
 DIRDIRTY
-                    THEN
 (FOR
 DIROFF C DEST DESTBASE (DESTPOS _ -1) FROM
 DIRSTART TO
 DIREND
-                            FIRST
 (SETQ DEST (ALLOCSTRING (ADD1 (IDIFFERENCE DIREND DIRSTART))
-                                                    NIL NIL $$FATP))
-                                  (SETQ DESTBASE (FETCH
 (STRINGP BASE) OF
 DEST))
-                            DO
 (ADD
 DESTPOS 1)
-                               (SETQ C (\GETBASECHAR $$FATP $$BASE DIROFF))
-                               (SELCHARQ C
-                                    ((> /) 
-                                         (\PUTBASECHAR $$FATP DESTBASE DESTPOS (CHARCODE >))
+                                    (* ;; "Advance past duplicates")

 
-                                         (* ;; "Advance past duplicates")

-
-                                         (FIND
 I FROM
 (ADD1 DIROFF) TO
 DIREND
-                                            WHILE
 (FMEMB (\GETBASECHAR $$FATP $$BASE I)
-                                                         (CHARCODE (> /)))
-                                            FINALLY
 (SETQ DIROFF (SUB1 I))))
-                                    (\PUTBASECHAR $$FATP DESTBASE DESTPOS C))
-                            FINALLY
 (REPLACE
 (STRINGP LENGTH) OF
 DEST WITH
 DESTPOS)
-                                  (RETURN DEST))
-                  ELSE
 (\UPF.EXTRACT DIRSTART (SUB1 DIREND])
+                                    (FIND
 I FROM
 (ADD1 DIROFF) TO
 DIREND
+                                       WHILE
 (FMEMB (\GETBASECHAR $$FATP $$BASE I)
+                                                    (CHARCODE (> /))) FINALLY
 (SETQ DIROFF
+                                                                               (SUB1 I))))
+                               (\PUTBASECHAR $$FATP DESTBASE DESTPOS C))
+                       FINALLY
 (REPLACE
 (STRINGP LENGTH) OF
 DEST WITH
 DESTPOS)
+                             (RETURN DEST))
+             ELSE
 (\UPF.EXTRACT DIRSTART (SUB1 DIREND])
 )
 (DECLARE%: DONTCOPY 
 (DECLARE%: EVAL@COMPILE 
@@ -1254,14 +1250,14 @@
 (ADDTOVAR LAMA
 PACKFILENAME.STRING PACKFILENAME)
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (3169 15826 (DELFILE 3179 . 3340) (FULLNAME 3342 . 3709) (INFILE 3711 . 3970) (INFILEP 
-3972 . 4107) (IOFILE 4109 . 4360) (OPENFILE 4362 . 4665) (OPENSTREAM 4667 . 9007) (OUTFILE 9009 . 9271
-) (OUTFILEP 9273 . 9409) (RENAMEFILE 9411 . 9717) (SIMPLE.FINDFILE 9719 . 10129) (VMEMSIZE 10131 . 
-10298) (\COPYSYS 10300 . 14545) (\FLUSHVM 14547 . 15619) (\LOGOUT0 15621 . 15824)) (16284 38972 (
-UNPACKFILENAME.STRING 16294 . 36274) (\UPF.DIRECTORY 36276 . 38970)) (40500 42806 (UNPACKFILENAME 
-40510 . 40696) (LASTCHPOS 40698 . 41392) (FILENAMEFIELD 41394 . 41688) (FILENAMEFIELD.STRING 41690 . 
-42094) (PACKFILENAME 42096 . 42439) (PACKFILENAME.STRING 42441 . 42804)) (57276 58189 (
-FILEDIRCASEARRAY 57286 . 58187)) (58356 65536 (LOGOUT 58366 . 59283) (MAKESYS 59285 . 60914) (SYSOUT 
-60916 . 62468) (SAVEVM 62470 . 63270) (HERALD 63272 . 63432) (INTERPRET.REM.CM 63434 . 65159) (
-\USEREVENT 65161 . 65534)) (65718 67445 (USERNAME 65728 . 66684) (SETUSERNAME 66686 . 67443)))))
+  (FILEMAP (NIL (3112 15769 (DELFILE 3122 . 3283) (FULLNAME 3285 . 3652) (INFILE 3654 . 3913) (INFILEP 
+3915 . 4050) (IOFILE 4052 . 4303) (OPENFILE 4305 . 4608) (OPENSTREAM 4610 . 8950) (OUTFILE 8952 . 9214
+) (OUTFILEP 9216 . 9352) (RENAMEFILE 9354 . 9660) (SIMPLE.FINDFILE 9662 . 10072) (VMEMSIZE 10074 . 
+10241) (\COPYSYS 10243 . 14488) (\FLUSHVM 14490 . 15562) (\LOGOUT0 15564 . 15767)) (16227 38951 (
+UNPACKFILENAME.STRING 16237 . 36252) (\UPF.DIRECTORY 36254 . 38949)) (40479 42785 (UNPACKFILENAME 
+40489 . 40675) (LASTCHPOS 40677 . 41371) (FILENAMEFIELD 41373 . 41667) (FILENAMEFIELD.STRING 41669 . 
+42073) (PACKFILENAME 42075 . 42418) (PACKFILENAME.STRING 42420 . 42783)) (57255 58168 (
+FILEDIRCASEARRAY 57265 . 58166)) (58335 65515 (LOGOUT 58345 . 59262) (MAKESYS 59264 . 60893) (SYSOUT 
+60895 . 62447) (SAVEVM 62449 . 63249) (HERALD 63251 . 63411) (INTERPRET.REM.CM 63413 . 65138) (
+\USEREVENT 65140 . 65513)) (65697 67424 (USERNAME 65707 . 66663) (SETUSERNAME 66665 . 67422)))))
 STOP