Compare commits
11 Commits
medley-250
...
medley-250
| Author | SHA1 | Date | |
|---|---|---|---|
|
17515ef441 | ||
|
|
83bbf9e4c0 | ||
|
|
1a8a5ca90e | ||
|
|
2961670d7d | ||
|
|
0206fb6f43 | ||
|
95e015329d | ||
|
|
60e0044870 | ||
|
1df0e1b17e | ||
|
|
90fdcb9d56 | ||
|
1968021bb4 | ||
|
|
ec16fafeac |
@@ -3,7 +3,7 @@
|
||||
First, we want to thank you for helping reach the goal of restoring Medley Interlisp
|
||||
to the point where it is as useful today as it was 30 years ago.
|
||||
|
||||
This guide is meant to help you make useful contributions, whether to the [Maiko](https://github.com/Interlisp/maiko) C-based virtual machine implementation, the [Medley](https://github.com/Interlisp/medley) Lisp code (in Interlisp and Common Lisp), or [documentation](https://github.com/Interlisp/medley/wiki). There are a number of [GitHub](https://github.com/Interlisp/medley/discussions/categories/github-use) problems that could use some attention.
|
||||
This guide is meant to help you make useful contributions, whether to the [Maiko](https://github.com/Interlisp/maiko) C-based virtual machine implementation, the [Medley](https://github.com/Interlisp/medley) Lisp code (in Interlisp and Common Lisp), or [documentation](https://interlisp.org/software/using-medley). There are a number of [GitHub](https://github.com/Interlisp/medley/discussions/categories/github-use) problems that could use some attention.
|
||||
|
||||
## Working with Maiko
|
||||
|
||||
@@ -17,6 +17,8 @@ The current arrangement of files and extentions is awkward for working on the im
|
||||
* The most useful contributions are reproducible errors -- things that don't work as documented.
|
||||
* Second most useful are reports of unexpected behavior -- things that aren't documented but behave unexpectedly.
|
||||
|
||||
To report these errors and behaviors [open an issue](https://github.com/Interlisp/medley/issues).
|
||||
|
||||
## Reporting a bug or feature request
|
||||
* Ensure the bug was not already reported by searching on GitHub under [Issues](https://github.com/Interlisp/medley/issues) or [Discussions](https://github.com/Interlisp/medley/discussions). Note that all issues and Discussions are found in the Medley repository, using labels to distinguish. Discussions are for questions or topics where there is some disagreement or uncertainty about the "right" direction.
|
||||
* If you're unable to find a discussion or open issue addressing the problem, open a new one. Be sure to include a title
|
||||
@@ -24,7 +26,7 @@ and clear description, as much relevant information as possible. Use the issue t
|
||||
|
||||
## Did you write a patch that fixes a bug?
|
||||
* Some bug fixes and "improvements" have unintended consequences, well beyond what you might expect for well-written modern code. We don't have testing new builds automated or integrated. Be sure you've tested your patch.
|
||||
* Open a new [GitHub pull request](https://github.com/Interlisp/maiko/pulls) with the patch.
|
||||
* Open a new GitHub pull request with the patch.
|
||||
* Ensure the PR description clearly describes the problem and solution. Include the relevant issue number if applicable.
|
||||
* Keep Pull Requests small and easily reviewable. https://www.thedroidsonroids.com/blog/splitting-pull-request for
|
||||
a writeup of good practices.
|
||||
|
||||
@@ -20,9 +20,10 @@ invocation of medley.</p>
|
||||
<dd>
|
||||
<p>Prints out a brief summary of the flags and arguments to medley.</p>
|
||||
</dd>
|
||||
<dt>-z, --man</dt>
|
||||
<dt>-z [+], --man [+]</dt>
|
||||
<dd>
|
||||
<p>Show the man page for medley</p>
|
||||
<p>Show the man page for medley. If the <strong>+</strong> parameter is
|
||||
specified, then no pager is used when displaying the man page.</p>
|
||||
</dd>
|
||||
<dt>-c [<em>FILE</em> | -], --config [<em>FILE</em> | -]</dt>
|
||||
<dd>
|
||||
@@ -101,7 +102,7 @@ virtual display.</p>
|
||||
<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
|
||||
be Width x Height. (Full X Windows geometry 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
|
||||
@@ -293,15 +294,15 @@ that detects Xvnc server failures. Setting this flag notifies Medley
|
||||
that very short Medley sessions are possible and the Xvnc error
|
||||
detection needs to be adjusted accordingly.</p>
|
||||
</dd>
|
||||
<dt>-br [<em>BRANCH</em> | -], --branch [<em>BRANCH</em> | -]</dt>
|
||||
<dt>-tg [<em>TAG</em> | -], --tag [<em>TAG</em> | -]</dt>
|
||||
<dd>
|
||||
<p>By default, sysout files are loaded from the MEDLEYDIR/loadups
|
||||
directory. If “--branch <em>BRANCH</em>” is specified, then by default
|
||||
sysout files are loaded from the MEDLEYDIR/loadups/branches/BRANCH
|
||||
directory. The sysouts in these directories are created using a loadups
|
||||
script with the --branch flag set. See the loadup man page. If
|
||||
<em>BRANCH</em> is “-”, then the name of the active git branch for
|
||||
MEDLEYDIR (if any) is used as <em>BRANCH</em>.</p>
|
||||
directory. If “--tag <em>TAG</em>” is specified, then by default sysout
|
||||
files are loaded from the MEDLEYDIR/loadups/tagged/TAG directory. The
|
||||
sysouts in these directories are created using a loadups script with the
|
||||
--tag flag set. See the loadup man page. If <em>TAG</em> is “-”, then
|
||||
the name of the active git branch for MEDLEYDIR (if any) is used as
|
||||
<em>TAG</em>.</p>
|
||||
</dd>
|
||||
</dl>
|
||||
<h2>Other Options</h2>
|
||||
|
||||
@@ -45,8 +45,10 @@ hence MEDLEYDIR is computed on each invocation of medley.
|
||||
-h, --help
|
||||
Prints out a brief summary of the flags and arguments to medley.
|
||||
.TP
|
||||
-z, --man
|
||||
Show the man page for medley
|
||||
-z [+], --man [+]
|
||||
Show the man page for medley.
|
||||
If the \f[B]+\f[R] parameter is specified, then no pager is used when
|
||||
displaying the man page.
|
||||
.TP
|
||||
-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.
|
||||
@@ -151,7 +153,7 @@ virtual display.
|
||||
-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
|
||||
(Full X Windows geometry specification with +X+Y is not currently
|
||||
supported).
|
||||
.RS
|
||||
.PP
|
||||
@@ -396,17 +398,16 @@ failures.
|
||||
Setting this flag notifies Medley that very short Medley sessions are
|
||||
possible and the Xvnc error detection needs to be adjusted accordingly.
|
||||
.TP
|
||||
-br [\f[I]BRANCH\f[R] | -], --branch [\f[I]BRANCH\f[R] | -]
|
||||
-tg [\f[I]TAG\f[R] | -], --tag [\f[I]TAG\f[R] | -]
|
||||
By default, sysout files are loaded from the MEDLEYDIR/loadups
|
||||
directory.
|
||||
If \[lq]--branch \f[I]BRANCH\f[R]\[rq] is specified, then by default
|
||||
sysout files are loaded from the MEDLEYDIR/loadups/branches/BRANCH
|
||||
directory.
|
||||
If \[lq]--tag \f[I]TAG\f[R]\[rq] is specified, then by default sysout
|
||||
files are loaded from the MEDLEYDIR/loadups/tagged/TAG directory.
|
||||
The sysouts in these directories are created using a loadups script with
|
||||
the --branch flag set.
|
||||
the --tag flag set.
|
||||
See the loadup man page.
|
||||
If \f[I]BRANCH\f[R] is \[lq]-\[rq], then the name of the active git
|
||||
branch for MEDLEYDIR (if any) is used as \f[I]BRANCH\f[R].
|
||||
If \f[I]TAG\f[R] is \[lq]-\[rq], then the name of the active git branch
|
||||
for MEDLEYDIR (if any) is used as \f[I]TAG\f[R].
|
||||
.SS Other Options
|
||||
.PP
|
||||
\
|
||||
|
||||
Binary file not shown.
@@ -38,8 +38,9 @@ Flags
|
||||
-h, \-\-help
|
||||
: Prints out a brief summary of the flags and arguments to medley.
|
||||
|
||||
-z, \-\-man
|
||||
: Show the man page for medley
|
||||
-z [+], \-\-man [+]
|
||||
: Show the man page for medley. If the **+** parameter is specified, then no pager is used when
|
||||
displaying the man page.
|
||||
|
||||
-c [*FILE* | -], \-\-config [*FILE* | -]
|
||||
: Use *FILE* as the config file for this run of Medley. See information on *CONFIG FILE* below.
|
||||
@@ -106,7 +107,7 @@ than the window, there will be no way to pan to the non-visible parts of the vir
|
||||
|
||||
-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).
|
||||
geometry specification with +X+Y is not currently supported).
|
||||
|
||||
If a value of "-" is given, geometry is set to the default value.
|
||||
|
||||
@@ -263,14 +264,13 @@ specified in the Medley file system, not the host Windows file system.
|
||||
will run for a very short time (< a couple of seconds). This can cause issues with medley code that detects Xvnc server failures.
|
||||
Setting this flag notifies Medley that very short Medley sessions are possible and the Xvnc error detection needs to be adjusted accordingly.
|
||||
|
||||
-br [*BRANCH* | -], \-\-branch [*BRANCH* | -]
|
||||
-tg [*TAG* | -], \-\-tag [*TAG* | -]
|
||||
: By default, sysout files are loaded from the MEDLEYDIR/loadups directory.
|
||||
If "\-\-branch *BRANCH*" is specified, then by default sysout files are loaded from the
|
||||
MEDLEYDIR/loadups/branches/BRANCH directory. The sysouts in these directories are created using
|
||||
a loadups script with the \-\-branch flag set. See the loadup man page.
|
||||
If *BRANCH* is "-", then the name of the active git branch for MEDLEYDIR (if any) is used as
|
||||
*BRANCH*.
|
||||
|
||||
If "\-\-tag *TAG*" is specified, then by default sysout files are loaded from the
|
||||
MEDLEYDIR/loadups/tagged/TAG directory. The sysouts in these directories are created using
|
||||
a loadups script with the \-\-tag flag set. See the loadup man page.
|
||||
If *TAG* is "-", then the name of the active git branch for MEDLEYDIR (if any) is used as
|
||||
*TAG*.
|
||||
|
||||
|
||||
Other Options
|
||||
|
||||
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
@@ -1,12 +1,12 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
|
||||
(FILECREATED "13-Jul-2025 11:41:03" {WMEDLEY}<internal>loadups>LOADUP-FULL.;28 5184
|
||||
(FILECREATED " 1-Sep-2025 11:59:41" {WMEDLEY}<internal>loadups>LOADUP-FULL.;31 5430
|
||||
|
||||
:EDIT-BY rmk
|
||||
|
||||
:CHANGES-TO (FNS LOADFULLFONTS)
|
||||
:CHANGES-TO (FNS LOADUP-FULL)
|
||||
|
||||
:PREVIOUS-DATE "30-Jun-2025 00:04:34" {WMEDLEY}<internal>loadups>LOADUP-FULL.;27)
|
||||
:PREVIOUS-DATE "18-Aug-2025 12:09:49" {WMEDLEY}<internal>loadups>LOADUP-FULL.;29)
|
||||
|
||||
|
||||
(PRETTYCOMPRINT LOADUP-FULLCOMS)
|
||||
@@ -45,7 +45,9 @@
|
||||
(PRINTOUT T "FULL fonts loaded" T])
|
||||
|
||||
(LOADUP-FULL
|
||||
[LAMBDA (DRIBBLEFILE) (* ; "Edited 21-Jun-2025 23:33 by rmk")
|
||||
[LAMBDA (DRIBBLEFILE) (* ; "Edited 1-Sep-2025 11:59 by rmk")
|
||||
(* ; "Edited 18-Aug-2025 12:09 by rmk")
|
||||
(* ; "Edited 21-Jun-2025 23:33 by rmk")
|
||||
(* ; "Edited 18-Jan-2023 16:22 by FGH")
|
||||
(* ; "Edited 12-Aug-2022 11:17 by lmm")
|
||||
(* ; "Edited 14-Jul-2022 12:32 by rmk")
|
||||
@@ -70,16 +72,18 @@
|
||||
(PRINTOUT T T "Full loadup started at " (DATE)
|
||||
" while connected to "
|
||||
(DIRECTORYNAME T)
|
||||
T T)
|
||||
(LOADUP '(MULTI-ALIST)) (* ; "For FONTSAVAILABLE lookup")
|
||||
T T) (* ; "For FONTSAVAILABLE lookup")
|
||||
(LOADUP '(POSTSCRIPTSTREAM)) (* ; " to get PSCFONT.READFONT")
|
||||
(LOADFULLFONTS)
|
||||
(LISTPUT IDLE.PROFILE 'TIMEOUT 0)
|
||||
(SETQQ *DEFAULT-CLEANUP-COMPILER* BCOMPL)
|
||||
(LOADUP '(CHAT PRESS INTERPRESS TEDIT HRULE TEDIT-CHAT READNUMBER EDITBITMAP FILEBROWSER
|
||||
THINFILES GRAPHER SPY WHERE-IS COPYFILES MSANALYZE MSPARSE MASTERSCOPE UNIXPRINT
|
||||
ISO8859IO HELPSYS DINFO CLIPBOARD MODERNIZE WHEELSCROLL PRETTYFILEINDEX WHO-LINE
|
||||
UNIXCOMM UNIXCHAT UNIXYCD UNIXUTILS))
|
||||
|
||||
(* ;; "RMK: 2025: PRESS was after CHAT")
|
||||
|
||||
(LOADUP '(CHAT INTERPRESS TEDIT HRULE TEDIT-CHAT READNUMBER EDITBITMAP FILEBROWSER THINFILES
|
||||
GRAPHER SPY WHERE-IS COPYFILES MSANALYZE MSPARSE MASTERSCOPE UNIXPRINT ISO8859IO
|
||||
HELPSYS DINFO CLIPBOARD MODERNIZE WHEELSCROLL PRETTYFILEINDEX WHO-LINE UNIXCOMM
|
||||
UNIXCHAT UNIXYCD UNIXUTILS))
|
||||
(COND
|
||||
((WINDOWP *WHO-LINE*)
|
||||
(CLOSEW *WHO-LINE*)))
|
||||
@@ -94,5 +98,5 @@
|
||||
|
||||
(FIXMETA)
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (458 5146 (LOADFULLFONTS 468 . 2373) (LOADUP-FULL 2375 . 4896) (FIXMETA 4898 . 5144)))))
|
||||
(FILEMAP (NIL (456 5392 (LOADFULLFONTS 466 . 2371) (LOADUP-FULL 2373 . 5142) (FIXMETA 5144 . 5390)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
@@ -1,12 +1,12 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10)
|
||||
|
||||
(FILECREATED "15-Jun-2025 14:39:57" |{WMEDLEY}<internal>loadups>LOADUP-LISP.;20| 6425
|
||||
(FILECREATED "18-Aug-2025 12:09:49" |{WMEDLEY}<internal>loadups>LOADUP-LISP.;21| 6713
|
||||
|
||||
:EDIT-BY |rmk|
|
||||
|
||||
:CHANGES-TO (FNS LOADUP-LISP)
|
||||
|
||||
:PREVIOUS-DATE "24-May-2025 10:20:14" |{WMEDLEY}<internal>loadups>LOADUP-LISP.;14|)
|
||||
:PREVIOUS-DATE "15-Jun-2025 14:39:57" |{WMEDLEY}<internal>loadups>LOADUP-LISP.;20|)
|
||||
|
||||
|
||||
(PRETTYCOMPRINT LOADUP-LISPCOMS)
|
||||
@@ -19,7 +19,8 @@
|
||||
(DEFINEQ
|
||||
|
||||
(LOADUP-LISP
|
||||
(LAMBDA (DRIBBLEFILE) (* \; "Edited 15-Jun-2025 14:39 by rmk")
|
||||
(LAMBDA (DRIBBLEFILE) (* \; "Edited 18-Aug-2025 12:08 by rmk")
|
||||
(* \; "Edited 15-Jun-2025 14:39 by rmk")
|
||||
(* \; "Edited 24-May-2025 10:20 by rmk")
|
||||
(* \; "Edited 21-May-2025 09:25 by rmk")
|
||||
(* \; "Edited 5-May-2025 21:25 by rmk")
|
||||
@@ -43,6 +44,8 @@
|
||||
(* |;;| "following files are really loaded earlier, this call to LOADUP just cleans up")
|
||||
|
||||
(LOADUP '(ACODE MACHINEINDEPENDENT))
|
||||
(LOADUP '(MULTI-ALIST)) (* \;
|
||||
"So it's functions are available e.g. for FONTPROFILE")
|
||||
|
||||
(* |;;| "establish all package exports early")
|
||||
|
||||
@@ -138,5 +141,5 @@
|
||||
(GLOBALVARS MAKESYSFILENAME MEDLEY-INIT-VARS MEDLEYDIR SYSTEMINITVARS USERRECLST)
|
||||
)
|
||||
(DECLARE\: DONTCOPY
|
||||
(FILEMAP (NIL (640 6219 (LOADUP-LISP 650 . 6217)))))
|
||||
(FILEMAP (NIL (640 6507 (LOADUP-LISP 650 . 6505)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
@@ -130,8 +130,10 @@ But Medley can be installed in multiple places on any given machine and
|
||||
hence MEDLEYDIR is computed on each invocation of loadup.
|
||||
.SH OPTIONS
|
||||
.TP
|
||||
\f[B]-z, --man, -man\f[R]
|
||||
\f[B]-z [+], --man [+], -man [+], -h [+], \[en]help [+]\f[R]
|
||||
Print this manual page on the screen.
|
||||
If the \f[B]+\f[R] parameter is specified, then no pager is used when
|
||||
displaying the man page.
|
||||
.TP
|
||||
\f[B]-t STAGE, --target STAGE, -target STAGE\f[R]
|
||||
Run the sequential loadup procedure until the STAGE is complete,
|
||||
@@ -266,31 +268,47 @@ simultaneously.
|
||||
If this flag is not set and an active lock is encountered, the user will
|
||||
be asked to choose whether to override or exit.
|
||||
.TP
|
||||
\f[B]-br [ BRANCH | -], --branch [ BRANCH | - ]\f[R]
|
||||
\f[B]-tg [ TAG | -], --tag [ TAG | - ]\f[R]
|
||||
By default the sysouts and other files produced by loadup are placed at
|
||||
the top level of the <MEDLEYDIR>/loadups directory.
|
||||
If this flag is specified, then the sysout and other output files are
|
||||
placed in the directory <MEDLEYDIR>/loadups/branches/BRANCH.
|
||||
If BRANCH is \[lq]-\[rq] or not specified at all, then BRANCH is the
|
||||
name of the currently active git branch of <MEDLEYDIR>, except if git is
|
||||
not installled on the current system or if <MEDLEYDIR> is not a git
|
||||
placed in the directory <MEDLEYDIR>/loadups/tagged/TAG.
|
||||
If TAG is \[lq]-\[rq] or not specified at all, then TAG is the name of
|
||||
the currently active git branch of <MEDLEYDIR>, except if git is not
|
||||
installled on the current system or if <MEDLEYDIR> is not a git
|
||||
directory, in which case then this flag is ignored.
|
||||
BRANCH can contain alphanumerics, dashes, underscores,and periods.
|
||||
TAG can contain alphanumerics, dashes, underscores,and periods.
|
||||
Any other character is replaced by an underscore.
|
||||
The medley script has a corresponding --branch argument to load these
|
||||
The medley script has a corresponding --tag (-tg) argument to load these
|
||||
sysout files.
|
||||
.TP
|
||||
\f[B]-nc, --nocopy, -nocopy\f[R]
|
||||
Run the specified loadups, but do not copy results into loadups
|
||||
directory.
|
||||
.TP
|
||||
\f[B]-tw, --thinw, -thinw\f[R]
|
||||
\f[B]-tw [+], --thinw [+], -thinw [+]\f[R]
|
||||
Before running loadups (if any), thin the working directory by deleting
|
||||
all versioned (\f[I].\[ti][0-9]\f[R]\[ti]) files.
|
||||
all versioned (\f[I].\[ti][0-9]\f[R]\[ti]) files therein.
|
||||
If the \f[B]+\f[R] parameter is used, then instead of deleting just the
|
||||
versioned files, the working directory (and all files and subdirectories
|
||||
it contains) is deleted.
|
||||
.TP
|
||||
\f[B]-tl, --thinl, -thinl\f[R]
|
||||
\f[B]-tl [+], --thinl [+], -thinl [+]\f[R]
|
||||
Before running loadups (if any), thin the loadups directory by deleting
|
||||
all versioned (\f[I].\[ti][0-9]\f[R]\[ti]) files.
|
||||
all versioned (\f[I].\[ti][0-9]\f[R]\[ti]) files except for those
|
||||
contained in the working directory.
|
||||
If the \f[B]+\f[R] parameter is used, then instead of deleting just the
|
||||
versioned files, all files and subdirectories are deleted except for
|
||||
those contained in the working directory.
|
||||
If \f[B]+\f[R] is used and there is no working directory and
|
||||
\f[I]\[en]tag TAG\f[R] is also specified, then the tagged loadups
|
||||
directory (<MEDLEYDIR>/loadups/tagged/TAG) is also deleted.
|
||||
.TP
|
||||
\f[B]-th [+], --thin [+], -thin [+]\f[R]
|
||||
Equivalent to specifying both -tw [+] and -tl [+].
|
||||
If \f[I]\[en]tag TAG\f[R] is also specified and the \f[B]+\f[R]
|
||||
parameter is used here, then the tagged loadups directory
|
||||
(<MEDLEYDIR>/loadups/tagged/TAG) is removed.
|
||||
.TP
|
||||
\f[B]-d DIR, --maikodir DIR, -maikodir DIR\f[R]
|
||||
Use DIR as the directory from which to execute lde (Miko) when running
|
||||
|
||||
Binary file not shown.
@@ -61,8 +61,9 @@ hence MEDLEYDIR is computed on each invocation of loadup.
|
||||
|
||||
OPTIONS
|
||||
=======
|
||||
**-z, \-\-man, \-man**
|
||||
: Print this manual page on the screen.
|
||||
**-z [+], \-\-man [+], \-man [+], -h [+], --help [+]**
|
||||
: Print this manual page on the screen. If the **+** parameter is specified, then no pager is used when
|
||||
displaying the man page.
|
||||
|
||||
**-t STAGE, \-\-target STAGE, -target STAGE**
|
||||
: Run the sequential loadup procedure until the STAGE is complete, starting from the files created by the previously run STAGE specified in the --start option.
|
||||
@@ -124,25 +125,37 @@ OPTIONS
|
||||
**-ov, \-\-override, -override**
|
||||
: Automatically override the lock that prevents two loadups from running simultaneously. If this flag is not set and an active lock is encountered, the user will be asked to choose whether to override or exit.
|
||||
|
||||
**-br [ BRANCH | -], \-\-branch [ BRANCH | - ]**
|
||||
**-tg [ TAG | -], \-\-tag [ TAG | - ]**
|
||||
: By default the sysouts and other files produced by loadup are placed at the top level of
|
||||
the \<MEDLEYDIR>/loadups directory. If this flag is specified, then the sysout and other
|
||||
output files are placed in the directory \<MEDLEYDIR>/loadups/branches/BRANCH.
|
||||
If BRANCH is "-" or not specified at all, then BRANCH is the name of the currently active
|
||||
output files are placed in the directory \<MEDLEYDIR>/loadups/tagged/TAG.
|
||||
If TAG is "-" or not specified at all, then TAG is the name of the currently active
|
||||
git branch of \<MEDLEYDIR>, except if git is not installled on the current system
|
||||
or if \<MEDLEYDIR> is not a git directory, in which case then this flag is ignored.
|
||||
BRANCH can contain alphanumerics, dashes, underscores,and periods.
|
||||
TAG can contain alphanumerics, dashes, underscores,and periods.
|
||||
Any other character is replaced by an underscore.
|
||||
The medley script has a corresponding \-\-branch argument to load these sysout files.
|
||||
The medley script has a corresponding \-\-tag (-tg) argument to load these sysout files.
|
||||
|
||||
**-nc, \-\-nocopy, -nocopy**
|
||||
: Run the specified loadups, but do not copy results into loadups directory.
|
||||
|
||||
**-tw, \-\-thinw, -thinw**
|
||||
: Before running loadups (if any), thin the working directory by deleting all versioned (*.~[0-9]*~) files.
|
||||
**-tw [+], \-\-thinw [+], -thinw [+]**
|
||||
: Before running loadups (if any), thin the working directory by deleting all versioned (*.~[0-9]*~)
|
||||
files therein. If the **+** parameter is used, then instead of deleting just the versioned files, the
|
||||
working directory (and all files and subdirectories it contains) is deleted.
|
||||
|
||||
**-tl, \-\-thinl, -thinl**
|
||||
: Before running loadups (if any), thin the loadups directory by deleting all versioned (*.~[0-9]*~) files.
|
||||
**-tl [+], \-\-thinl [+], -thinl [+]**
|
||||
: Before running loadups (if any), thin the loadups directory by deleting all versioned (*.~[0-9]*~)
|
||||
files except for those contained in the working directory.
|
||||
If the **+** parameter is used, then instead of deleting just the versioned files, all files and
|
||||
subdirectories are deleted except for those contained in the working directory. If **+** is used and
|
||||
there is no working directory and *--tag TAG* is also specified,
|
||||
then the tagged loadups directory (\<MEDLEYDIR>/loadups/tagged/TAG) is also deleted.
|
||||
|
||||
**-th [+], \-\-thin [+], -thin [+]**
|
||||
: Equivalent to specifying both -tw [+] and -tl [+]. If *--tag TAG* is also specified and
|
||||
the **+** parameter is used here, then the tagged loadups directory (\<MEDLEYDIR>/loadups/tagged/TAG)
|
||||
is removed.
|
||||
|
||||
**-d DIR, \-\-maikodir DIR, -maikodir DIR**
|
||||
: Use DIR as the directory from which to execute lde (Miko) when running Medley in the loadup process. If this flag is not present, the value of the environment variable MAIKODIR will be used instead. And if MAIKODIR does not exist, then the default Maiko directory search within Medley will be used.
|
||||
|
||||
@@ -99,9 +99,11 @@ installed in multiple places on any given machine and hence MEDLEYDIR is
|
||||
computed on each invocation of loadup.</p>
|
||||
<h1>OPTIONS</h1>
|
||||
<dl>
|
||||
<dt><strong>-z, --man, -man</strong></dt>
|
||||
<dt><strong>-z [+], --man [+], -man [+], -h [+], –help [+]</strong></dt>
|
||||
<dd>
|
||||
<p>Print this manual page on the screen.</p>
|
||||
<p>Print this manual page on the screen. If the <strong>+</strong>
|
||||
parameter is specified, then no pager is used when displaying the man
|
||||
page.</p>
|
||||
</dd>
|
||||
<dt><strong>-t STAGE, --target STAGE, -target STAGE</strong></dt>
|
||||
<dd>
|
||||
@@ -208,34 +210,51 @@ running simultaneously. If this flag is not set and an active lock is
|
||||
encountered, the user will be asked to choose whether to override or
|
||||
exit.</p>
|
||||
</dd>
|
||||
<dt><strong>-br [ BRANCH | -], --branch [ BRANCH | - ]</strong></dt>
|
||||
<dt><strong>-tg [ TAG | -], --tag [ TAG | - ]</strong></dt>
|
||||
<dd>
|
||||
<p>By default the sysouts and other files produced by loadup are placed
|
||||
at the top level of the <MEDLEYDIR>/loadups directory. If this
|
||||
flag is specified, then the sysout and other output files are placed in
|
||||
the directory <MEDLEYDIR>/loadups/branches/BRANCH. If BRANCH is
|
||||
“-” or not specified at all, then BRANCH is the name of the currently
|
||||
active git branch of <MEDLEYDIR>, except if git is not installled
|
||||
on the current system or if <MEDLEYDIR> is not a git directory, in
|
||||
which case then this flag is ignored. BRANCH can contain alphanumerics,
|
||||
dashes, underscores,and periods. Any other character is replaced by an
|
||||
underscore. The medley script has a corresponding --branch argument to
|
||||
load these sysout files.</p>
|
||||
the directory <MEDLEYDIR>/loadups/tagged/TAG. If TAG is “-” or not
|
||||
specified at all, then TAG is the name of the currently active git
|
||||
branch of <MEDLEYDIR>, except if git is not installled on the
|
||||
current system or if <MEDLEYDIR> is not a git directory, in which
|
||||
case then this flag is ignored. TAG can contain alphanumerics, dashes,
|
||||
underscores,and periods. Any other character is replaced by an
|
||||
underscore. The medley script has a corresponding --tag (-tg) argument
|
||||
to load these sysout files.</p>
|
||||
</dd>
|
||||
<dt><strong>-nc, --nocopy, -nocopy</strong></dt>
|
||||
<dd>
|
||||
<p>Run the specified loadups, but do not copy results into loadups
|
||||
directory.</p>
|
||||
</dd>
|
||||
<dt><strong>-tw, --thinw, -thinw</strong></dt>
|
||||
<dt><strong>-tw [+], --thinw [+], -thinw [+]</strong></dt>
|
||||
<dd>
|
||||
<p>Before running loadups (if any), thin the working directory by
|
||||
deleting all versioned (<em>.~[0-9]</em>~) files.</p>
|
||||
deleting all versioned (<em>.~[0-9]</em>~) files therein. If the
|
||||
<strong>+</strong> parameter is used, then instead of deleting just the
|
||||
versioned files, the working directory (and all files and subdirectories
|
||||
it contains) is deleted.</p>
|
||||
</dd>
|
||||
<dt><strong>-tl, --thinl, -thinl</strong></dt>
|
||||
<dt><strong>-tl [+], --thinl [+], -thinl [+]</strong></dt>
|
||||
<dd>
|
||||
<p>Before running loadups (if any), thin the loadups directory by
|
||||
deleting all versioned (<em>.~[0-9]</em>~) files.</p>
|
||||
deleting all versioned (<em>.~[0-9]</em>~) files except for those
|
||||
contained in the working directory. If the <strong>+</strong> parameter
|
||||
is used, then instead of deleting just the versioned files, all files
|
||||
and subdirectories are deleted except for those contained in the working
|
||||
directory. If <strong>+</strong> is used and there is no working
|
||||
directory and <em>–tag TAG</em> is also specified, then the tagged
|
||||
loadups directory (<MEDLEYDIR>/loadups/tagged/TAG) is also
|
||||
deleted.</p>
|
||||
</dd>
|
||||
<dt><strong>-th [+], --thin [+], -thin [+]</strong></dt>
|
||||
<dd>
|
||||
<p>Equivalent to specifying both -tw [+] and -tl [+]. If <em>–tag
|
||||
TAG</em> is also specified and the <strong>+</strong> parameter is used
|
||||
here, then the tagged loadups directory
|
||||
(<MEDLEYDIR>/loadups/tagged/TAG) is removed.</p>
|
||||
</dd>
|
||||
<dt><strong>-d DIR, --maikodir DIR, -maikodir DIR</strong></dt>
|
||||
<dd>
|
||||
|
||||
@@ -1,12 +1,12 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
|
||||
(FILECREATED " 5-Apr-2025 11:49:04" {WMEDLEY}<library>MASTERSCOPE.;29 197994
|
||||
(FILECREATED "24-Aug-2025 13:45:51" {WMEDLEY}<library>MASTERSCOPE.;30 197199
|
||||
|
||||
:EDIT-BY rmk
|
||||
|
||||
:CHANGES-TO (FNS MSOUTPUT)
|
||||
:CHANGES-TO (FNS MSINTERPRET)
|
||||
|
||||
:PREVIOUS-DATE "14-Jul-2024 08:42:20" {WMEDLEY}<library>MASTERSCOPE.;28)
|
||||
:PREVIOUS-DATE " 5-Apr-2025 11:49:04" {WMEDLEY}<library>MASTERSCOPE.;29)
|
||||
|
||||
|
||||
(PRETTYCOMPRINT MASTERSCOPECOMS)
|
||||
@@ -2577,7 +2577,7 @@
|
||||
(* ; "interactive routines")
|
||||
|
||||
|
||||
(RPAQ MASTERSCOPEDATE " 5-Apr-2025")
|
||||
(RPAQ MASTERSCOPEDATE "24-Aug-2025")
|
||||
|
||||
(ADDTOVAR HISTORYCOMS %.)
|
||||
(DEFINEQ
|
||||
@@ -3258,7 +3258,8 @@
|
||||
(DEFINEQ
|
||||
|
||||
(MSINTERPRET
|
||||
[LAMBDA (COMMAND SUBROUTINE) (* ; "Edited 15-Aug-90 11:54 by jds")
|
||||
[LAMBDA (COMMAND SUBROUTINE) (* ; "Edited 24-Aug-2025 13:45 by rmk")
|
||||
(* ; "Edited 15-Aug-90 11:54 by jds")
|
||||
(RESETLST
|
||||
[PROG (VAL EDITQUIETFLG)
|
||||
(SELECTQ (CAR COMMAND)
|
||||
@@ -3288,12 +3289,12 @@
|
||||
(RETURN
|
||||
(SELECTQ (fetch (SENTENCE ID) of VAL)
|
||||
(REANALYZE (* ;
|
||||
"Definitly don't want to CHECKFORCHANGED before the ANALYZE is done")
|
||||
"Definitly don't want to CHECKFORCHANGED before the ANALYZE is done")
|
||||
|
||||
(* ;; "From Lanning's Loops changes for Masterscope...")
|
||||
|
||||
(* ;;
|
||||
"(MAPC (MSLISTSET (CDR VAL) T 'KNOWN) (FUNCTION (LAMBDA (X) (UPDATEFN X T)))) (CL:VALUES)")
|
||||
"(MAPC (MSLISTSET (CDR VAL) T 'KNOWN) (FUNCTION (LAMBDA (X) (UPDATEFN X T)))) (CL:VALUES)")
|
||||
|
||||
(* ;; "JRB - The MSANALYZEFNS hashtable hook is hereby flushed.")
|
||||
|
||||
@@ -3308,14 +3309,13 @@
|
||||
(* ;; "SETTYPE is allowed to be NIL here...")
|
||||
|
||||
(if [AND SETTYPE (NULL (for MT in MSFNTYPES
|
||||
thereis (EQ SETTYPE
|
||||
(fetch (MSANALYZABLE
|
||||
SETNAME)
|
||||
thereis (EQ SETTYPE (fetch (MSANALYZABLE
|
||||
SETNAME)
|
||||
of MT]
|
||||
then (PRINTOUT T "Sorry, can't analyze " SETTYPE T)
|
||||
(ERROR!)
|
||||
(ERROR!)
|
||||
else (for X in SET do (UPDATEFN X T))
|
||||
(CL:VALUES))))
|
||||
(CL:VALUES))))
|
||||
(ANALYZE (CHECKFORCHANGED (SETQ VAL (CDR VAL)))
|
||||
|
||||
(* ;; "From Lanning's Loops changes for Masterscope...")
|
||||
@@ -3331,10 +3331,9 @@
|
||||
|
||||
(COND
|
||||
([AND SETTYPE (NULL (for MT in MSFNTYPES
|
||||
thereis (EQ SETTYPE
|
||||
(fetch (MSANALYZABLE
|
||||
thereis (EQ SETTYPE (fetch (MSANALYZABLE
|
||||
SETNAME)
|
||||
of MT]
|
||||
of MT]
|
||||
(PRINTOUT T "Sorry, can't analyze " SETTYPE T)
|
||||
(ERROR!))
|
||||
((EQ SET MSBLIP)
|
||||
@@ -3343,8 +3342,7 @@
|
||||
(T (for X in SET do (UPDATEFN X T NIL SETTYPE))
|
||||
(CL:VALUES])
|
||||
((EDIT SHOW)
|
||||
[PROG (DONE NEEDUPDATE UPDATEALL TYPE (EDIT (fetch (SENTENCE ID)
|
||||
of VAL))
|
||||
[PROG (DONE NEEDUPDATE UPDATEALL TYPE (EDIT (fetch (SENTENCE ID) of VAL))
|
||||
REL SHOWSET (EDITCOMS (fetch OTHERSTUFF of VAL))
|
||||
(SUBJECT (fetch (SENTENCE SUBJECT) of VAL))
|
||||
(MSPRED (fetch (SENTENCE MSPRED) of VAL))
|
||||
@@ -3352,7 +3350,7 @@
|
||||
(DECLARE (SPECVARS TYPE SHOWSET EDIT EDITCOMS DONE))
|
||||
[COND
|
||||
((NULL MSPRED) (* ;
|
||||
"EDIT ANY CALLING FOO -- just call EDITFNS")
|
||||
"EDIT ANY CALLING FOO -- just call EDITFNS")
|
||||
(CHECKFORCHANGED SUBJECT)
|
||||
(RETURN (MAPC (MSLISTSET SUBJECT T)
|
||||
(FUNCTION (LAMBDA (FN)
|
||||
@@ -3365,10 +3363,8 @@
|
||||
)
|
||||
T))
|
||||
(PRINT "failed" T]
|
||||
[SETQ REL (fetch (THAT MSVERB) of (SETQ REP (fetch
|
||||
(MSSETPHRASE
|
||||
REP) of
|
||||
MSPRED]
|
||||
[SETQ REL (fetch (THAT MSVERB) of (SETQ REP (fetch (MSSETPHRASE REP)
|
||||
of MSPRED]
|
||||
(SETQ SHOWSET (fetch (THAT OTHERSET) of REP))
|
||||
[COND
|
||||
((EQ (fetch TENSE of REL)
|
||||
@@ -3385,10 +3381,10 @@
|
||||
(SETQ UPDATEALL (MSINTERPRETSET SUBJECT 'CHECK T))
|
||||
[for FN in NEEDUPDATE
|
||||
do (COND
|
||||
((GETHASH FN MSCHANGEDARRAY)
|
||||
(MSSHOWUSE FN TYPE SHOWSET EDIT NIL EDITCOMS)
|
||||
(SETQ DONE (CONS FN DONE)))
|
||||
(T (UPDATEFN FN]
|
||||
((GETHASH FN MSCHANGEDARRAY)
|
||||
(MSSHOWUSE FN TYPE SHOWSET EDIT NIL EDITCOMS)
|
||||
(SETQ DONE (CONS FN DONE)))
|
||||
(T (UPDATEFN FN]
|
||||
(COND
|
||||
(UPDATEALL [MAPHASH MSCHANGEDARRAY
|
||||
(FUNCTION (LAMBDA (VAL KEY)
|
||||
@@ -3397,28 +3393,28 @@
|
||||
(TESTRELQ (CALL NOTERROR)
|
||||
KEY T))
|
||||
(COND
|
||||
((MSSHOWUSE KEY TYPE
|
||||
SHOWSET EDIT
|
||||
'CHANGED EDITCOMS)
|
||||
((MSSHOWUSE KEY TYPE SHOWSET
|
||||
EDIT 'CHANGED EDITCOMS
|
||||
)
|
||||
(SETQ DONE (CONS KEY DONE]
|
||||
(MSCHECKEMPTY)))
|
||||
(MAPC (MSLISTSET (MSJOINSET 'AND MSPRED SUBJECT)
|
||||
T)
|
||||
(FUNCTION (LAMBDA (AT)
|
||||
(AND (NOT (FMEMB AT DONE))
|
||||
(MSSHOWUSE AT TYPE SHOWSET EDIT NIL EDITCOMS
|
||||
]
|
||||
(MSSHOWUSE AT TYPE SHOWSET EDIT NIL EDITCOMS]
|
||||
(CL:VALUES))
|
||||
(? [CHECKFORCHANGED (SETQ VAL (MSJOINSET 'AND (fetch MSPRED of VAL)
|
||||
(fetch SUBJECT of VAL]
|
||||
(? [CHECKFORCHANGED (SETQ VAL (MSJOINSET 'AND (fetch (SENTENCE MSPRED)
|
||||
of VAL)
|
||||
(fetch (SENTENCE SUBJECT) of VAL]
|
||||
(OR SUBROUTINE (TAB 0 0))
|
||||
(MSSOLVE VAL))
|
||||
(PATHS (PROG ([INVERTED
|
||||
(for X on (CDR VAL) bind FROMFOUND
|
||||
do (SELECTQ (CAAR X)
|
||||
(FROM (SETQ FROMFOUND T))
|
||||
(TO (RETURN (NOT FROMFOUND)))
|
||||
NIL)
|
||||
(FROM (SETQ FROMFOUND T))
|
||||
(TO (RETURN (NOT FROMFOUND)))
|
||||
NIL)
|
||||
finally
|
||||
(RETURN
|
||||
(COND
|
||||
@@ -3439,8 +3435,7 @@
|
||||
(CDR VAL)))
|
||||
NIL]
|
||||
NEEDUPDATE UPDATEALL TEM)
|
||||
(SETQ UPDATEALL (CHECKPATHS (fetch MSPATHOPTIONS of
|
||||
VAL)))
|
||||
(SETQ UPDATEALL (CHECKPATHS (fetch MSPATHOPTIONS of VAL)))
|
||||
(for X in NEEDUPDATE do (UPDATEFN X))
|
||||
(COND
|
||||
(UPDATEALL (UPDATECHANGED)
|
||||
@@ -3448,28 +3443,23 @@
|
||||
(COND
|
||||
((SETQ TEM (fetch (PATHOPTIONS OUTPUT) of (CDR VAL)))
|
||||
(MSOUTPUT TEM)))
|
||||
(AND (SETQ TEM (fetch (PATHOPTIONS LINELENGTH)
|
||||
of (CDR VAL)))
|
||||
(AND (SETQ TEM (fetch (PATHOPTIONS LINELENGTH) of (CDR VAL)))
|
||||
(RESETSAVE (LINELENGTH TEM)))
|
||||
|
||||
(* ;; "Display paths; must print all of FROM, with separate tree for all of SEPARATE (considered as a subset of FROM). Stop when you get to a function in NOTRACE, -- unless TO is NIL, only print paths that eventually reach an element of TO. If INVERTED is not NIL, print inverted tree. Do not print out functions in AVOIDING")
|
||||
|
||||
[SETQ MSTHOSE (MSPATHS [COND
|
||||
(INVERTED (fetch (PATHOPTIONS
|
||||
TO)
|
||||
of (fetch
|
||||
MSPATHOPTIONS
|
||||
of VAL)))
|
||||
(T (fetch (PATHOPTIONS FROM)
|
||||
of (fetch MSPATHOPTIONS
|
||||
of VAL]
|
||||
(INVERTED (fetch (PATHOPTIONS TO)
|
||||
of (fetch MSPATHOPTIONS
|
||||
of VAL)))
|
||||
(T (fetch (PATHOPTIONS FROM)
|
||||
of (fetch MSPATHOPTIONS of VAL]
|
||||
[COND
|
||||
(INVERTED (fetch (PATHOPTIONS FROM)
|
||||
of (fetch MSPATHOPTIONS
|
||||
of VAL)))
|
||||
of VAL)))
|
||||
(T (fetch (PATHOPTIONS TO)
|
||||
of (fetch MSPATHOPTIONS
|
||||
of VAL]
|
||||
of (fetch MSPATHOPTIONS of VAL]
|
||||
INVERTED
|
||||
(fetch (PATHOPTIONS AVOIDING)
|
||||
of (fetch MSPATHOPTIONS of VAL))
|
||||
@@ -3481,15 +3471,15 @@
|
||||
of (fetch MSPATHOPTIONS of VAL]
|
||||
(RETURN (CL:VALUES))))
|
||||
(ERASE (* ;
|
||||
"case of plain ERASE taken care of earlier")
|
||||
"case of plain ERASE taken care of earlier")
|
||||
(MSERASE (MSLISTSET (CDR VAL)
|
||||
T
|
||||
'KNOWN))
|
||||
T
|
||||
'KNOWN))
|
||||
(PRIN1 "Erased." T)
|
||||
(CL:VALUES))
|
||||
(DESCRIBE (CHECKFORCHANGED (CDR VAL)
|
||||
NIL T) (* ;
|
||||
"Need to update the world since will print out CALLED BY:")
|
||||
"Need to update the world since will print out CALLED BY:")
|
||||
(TAB 0 0)
|
||||
(MAPC (MSLISTSET (CDR VAL)
|
||||
T)
|
||||
@@ -3501,9 +3491,9 @@
|
||||
(EVAL VAL))
|
||||
(CHECK (CHECKFORCHANGED (CDR VAL))
|
||||
[MSCHECKBLOCKS (AND (CDR VAL)
|
||||
(MSLISTSET (CDR VAL)
|
||||
'HARD
|
||||
'FILES])
|
||||
(MSLISTSET (CDR VAL)
|
||||
'HARD
|
||||
'FILES])
|
||||
(SHOULDNT 18])])
|
||||
|
||||
(VERBNOTICELIST
|
||||
@@ -3752,36 +3742,36 @@
|
||||
(ADDTOVAR LAMA MSEDITE MSEDITF)
|
||||
)
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (3260 19507 (UPDATEFN 3270 . 4887) (MSGETDEF 4889 . 6295) (MSNOTICEFILE 6297 . 8690) (
|
||||
MSSHOWUSE 8692 . 14673) (MSUPDATEFN1 14675 . 15363) (MSUPDATE 15365 . 17791) (MSNLAMBDACHECK 17793 .
|
||||
18675) (MSCOLLECTDATA 18677 . 19505)) (19508 20407 (UPDATECHANGED 19518 . 19881) (UPDATECHANGED1 19883
|
||||
. 20405)) (20981 21404 (MSCLOSEFILES 20991 . 21402)) (22085 26517 (MSDESCRIBE 22095 . 24883) (
|
||||
MSDESCRIBE1 24885 . 25948) (FMAPRINT 25950 . 26515)) (26610 27050 (MSPRINTHELPFILE 26620 . 27048)) (
|
||||
27100 30238 (TEMPLATE 27110 . 28531) (GETTEMPLATE 28533 . 28668) (SETTEMPLATE 28670 . 30236)) (31108
|
||||
36032 (ADDTEMPLATEWORD 31118 . 31790) (MSADDANALYZE 31792 . 33290) (MSADDMODIFIER 33292 . 34373) (
|
||||
MSADDRELATION 34375 . 35122) (MSADDTYPE 35124 . 36030)) (37533 42754 (MSMARKCHANGE1 37543 . 38337) (
|
||||
MSINIT 38339 . 39520) (GETVERBTABLES 39522 . 40075) (MSSTOREDATA 40077 . 41756) (STORETABLE 41758 .
|
||||
42752)) (44155 49225 (PARSERELATION 44165 . 44765) (PARSERELATION1 44767 . 46222) (GETRELATION 46224
|
||||
. 47253) (MAPRELATION 47255 . 48389) (TESTRELATION 48391 . 49223)) (49226 50866 (ADDHASH 49236 .
|
||||
49714) (SUBHASH 49716 . 49944) (MAKEHASH 49946 . 50090) (MSREHASH 50092 . 50545) (EQMEMBHASH 50547 .
|
||||
50864)) (51205 57420 (MSVBTABLES 51215 . 56994) (MSUSERVBTABLES 56996 . 57418)) (57503 59714 (
|
||||
BUILDGETRELQ 57513 . 58619) (BUILDTESTRELQ 58621 . 59712)) (59885 60273 (MSERASE 59895 . 60271)) (
|
||||
60274 64734 (DUMPDATABASE 60284 . 62849) (DUMPDATABASE1 62851 . 63196) (READATABASE 63198 . 64732)) (
|
||||
65816 94875 (MSCHECKBLOCKS 65826 . 69646) (MSCHECKBLOCK 69648 . 78268) (MSCHECKFNINBLOCK 78270 . 81270
|
||||
) (MSCHECKBLOCKBASIC 81272 . 83692) (MSCHECKBOUNDFREE 83694 . 85593) (GLOBALVARP 85595 . 85762) (
|
||||
PRINTERROR 85764 . 88980) (MSCHECKVARS1 88982 . 91935) (UNECCSPEC 91937 . 92215) (NECCSPEC 92217 .
|
||||
92564) (SPECVARP 92566 . 93093) (SHORTLST 93095 . 93551) (DOERROR 93553 . 94263) (MSMSGPRINT 94265 .
|
||||
94873)) (96019 110847 (MSPATHS 96029 . 99431) (MSPATHS1 99433 . 103668) (MSPATHS2 103670 . 107080) (
|
||||
MSONPATH 107082 . 108310) (MSPATHS4 108312 . 109394) (DASHES 109396 . 109922) (DOTABS 109924 . 110165)
|
||||
(BELOWMARKER 110167 . 110630) (MSPATHSPRINTFN 110632 . 110845)) (111233 114657 (MSFIND 111243 .
|
||||
111518) (MSEDITF 111520 . 112520) (MSEDITE 112522 . 113559) (EDITGETDEF 113561 . 114655)) (115599
|
||||
124200 (MSMARKCHANGED 115609 . 117333) (CHANGEMACRO 117335 . 118040) (CHANGEVAR 118042 . 118358) (
|
||||
CHANGEI.S. 118360 . 119693) (CHANGERECORD 119695 . 120566) (MSNEEDUNSAVE 120568 . 121560) (UNSAVEFNS
|
||||
121562 . 124198)) (124633 128123 (%. 124643 . 124783) (MASTERSCOPE 124785 . 125311) (MASTERSCOPE1
|
||||
125313 . 126181) (MASTERSCOPEXEC 126183 . 128121)) (128162 167812 (MSINTERPRETSET 128172 . 156706) (
|
||||
MSINTERPA 156708 . 157242) (MSGETBLOCKDEC 157244 . 159757) (LISTHARD 159759 . 160977) (MSMEMBSET
|
||||
160979 . 161124) (MSLISTSET 161126 . 161491) (MSHASHLIST 161493 . 161660) (MSHASHLIST1 161662 . 161988
|
||||
) (CHECKPATHS 161990 . 162630) (ONFILE 162632 . 167810)) (167813 192172 (MSINTERPRET 167823 . 184676)
|
||||
(VERBNOTICELIST 184678 . 185788) (MSOUTPUT 185790 . 187300) (MSCHECKEMPTY 187302 . 188506) (
|
||||
CHECKFORCHANGED 188508 . 189028) (MSSOLVE 189030 . 192170)))))
|
||||
(FILEMAP (NIL (3263 19510 (UPDATEFN 3273 . 4890) (MSGETDEF 4892 . 6298) (MSNOTICEFILE 6300 . 8693) (
|
||||
MSSHOWUSE 8695 . 14676) (MSUPDATEFN1 14678 . 15366) (MSUPDATE 15368 . 17794) (MSNLAMBDACHECK 17796 .
|
||||
18678) (MSCOLLECTDATA 18680 . 19508)) (19511 20410 (UPDATECHANGED 19521 . 19884) (UPDATECHANGED1 19886
|
||||
. 20408)) (20984 21407 (MSCLOSEFILES 20994 . 21405)) (22088 26520 (MSDESCRIBE 22098 . 24886) (
|
||||
MSDESCRIBE1 24888 . 25951) (FMAPRINT 25953 . 26518)) (26613 27053 (MSPRINTHELPFILE 26623 . 27051)) (
|
||||
27103 30241 (TEMPLATE 27113 . 28534) (GETTEMPLATE 28536 . 28671) (SETTEMPLATE 28673 . 30239)) (31111
|
||||
36035 (ADDTEMPLATEWORD 31121 . 31793) (MSADDANALYZE 31795 . 33293) (MSADDMODIFIER 33295 . 34376) (
|
||||
MSADDRELATION 34378 . 35125) (MSADDTYPE 35127 . 36033)) (37536 42757 (MSMARKCHANGE1 37546 . 38340) (
|
||||
MSINIT 38342 . 39523) (GETVERBTABLES 39525 . 40078) (MSSTOREDATA 40080 . 41759) (STORETABLE 41761 .
|
||||
42755)) (44158 49228 (PARSERELATION 44168 . 44768) (PARSERELATION1 44770 . 46225) (GETRELATION 46227
|
||||
. 47256) (MAPRELATION 47258 . 48392) (TESTRELATION 48394 . 49226)) (49229 50869 (ADDHASH 49239 .
|
||||
49717) (SUBHASH 49719 . 49947) (MAKEHASH 49949 . 50093) (MSREHASH 50095 . 50548) (EQMEMBHASH 50550 .
|
||||
50867)) (51208 57423 (MSVBTABLES 51218 . 56997) (MSUSERVBTABLES 56999 . 57421)) (57506 59717 (
|
||||
BUILDGETRELQ 57516 . 58622) (BUILDTESTRELQ 58624 . 59715)) (59888 60276 (MSERASE 59898 . 60274)) (
|
||||
60277 64737 (DUMPDATABASE 60287 . 62852) (DUMPDATABASE1 62854 . 63199) (READATABASE 63201 . 64735)) (
|
||||
65819 94878 (MSCHECKBLOCKS 65829 . 69649) (MSCHECKBLOCK 69651 . 78271) (MSCHECKFNINBLOCK 78273 . 81273
|
||||
) (MSCHECKBLOCKBASIC 81275 . 83695) (MSCHECKBOUNDFREE 83697 . 85596) (GLOBALVARP 85598 . 85765) (
|
||||
PRINTERROR 85767 . 88983) (MSCHECKVARS1 88985 . 91938) (UNECCSPEC 91940 . 92218) (NECCSPEC 92220 .
|
||||
92567) (SPECVARP 92569 . 93096) (SHORTLST 93098 . 93554) (DOERROR 93556 . 94266) (MSMSGPRINT 94268 .
|
||||
94876)) (96022 110850 (MSPATHS 96032 . 99434) (MSPATHS1 99436 . 103671) (MSPATHS2 103673 . 107083) (
|
||||
MSONPATH 107085 . 108313) (MSPATHS4 108315 . 109397) (DASHES 109399 . 109925) (DOTABS 109927 . 110168)
|
||||
(BELOWMARKER 110170 . 110633) (MSPATHSPRINTFN 110635 . 110848)) (111236 114660 (MSFIND 111246 .
|
||||
111521) (MSEDITF 111523 . 112523) (MSEDITE 112525 . 113562) (EDITGETDEF 113564 . 114658)) (115602
|
||||
124203 (MSMARKCHANGED 115612 . 117336) (CHANGEMACRO 117338 . 118043) (CHANGEVAR 118045 . 118361) (
|
||||
CHANGEI.S. 118363 . 119696) (CHANGERECORD 119698 . 120569) (MSNEEDUNSAVE 120571 . 121563) (UNSAVEFNS
|
||||
121565 . 124201)) (124636 128126 (%. 124646 . 124786) (MASTERSCOPE 124788 . 125314) (MASTERSCOPE1
|
||||
125316 . 126184) (MASTERSCOPEXEC 126186 . 128124)) (128165 167815 (MSINTERPRETSET 128175 . 156709) (
|
||||
MSINTERPA 156711 . 157245) (MSGETBLOCKDEC 157247 . 159760) (LISTHARD 159762 . 160980) (MSMEMBSET
|
||||
160982 . 161127) (MSLISTSET 161129 . 161494) (MSHASHLIST 161496 . 161663) (MSHASHLIST1 161665 . 161991
|
||||
) (CHECKPATHS 161993 . 162633) (ONFILE 162635 . 167813)) (167816 191377 (MSINTERPRET 167826 . 183881)
|
||||
(VERBNOTICELIST 183883 . 184993) (MSOUTPUT 184995 . 186505) (MSCHECKEMPTY 186507 . 187711) (
|
||||
CHECKFORCHANGED 187713 . 188233) (MSSOLVE 188235 . 191375)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
@@ -1,14 +1,12 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
|
||||
(FILECREATED " 1-Aug-2025 14:50:15"
|
||||
{DSK}<Users>kaplan>Local>medley3.5>working-medley>library>tedit>TEDIT.;835 145114
|
||||
(FILECREATED " 8-Sep-2025 22:10:20" {WMEDLEY}<library>TEDIT>TEDIT.;838 145349
|
||||
|
||||
:EDIT-BY rmk
|
||||
|
||||
:CHANGES-TO (FNS \TEDIT.PARA.FIRST \TEDIT.PARA.LAST)
|
||||
:CHANGES-TO (FNS TEDIT.NTHCHARCODE)
|
||||
|
||||
:PREVIOUS-DATE "28-Jul-2025 23:49:50"
|
||||
{DSK}<Users>kaplan>Local>medley3.5>working-medley>library>tedit>TEDIT.;834)
|
||||
:PREVIOUS-DATE " 6-Sep-2025 09:54:48" {WMEDLEY}<library>TEDIT>TEDIT.;837)
|
||||
|
||||
|
||||
(PRETTYCOMPRINT TEDITCOMS)
|
||||
@@ -762,7 +760,8 @@
|
||||
(DEFINEQ
|
||||
|
||||
(TEDIT.INSERT.OBJECT
|
||||
[LAMBDA (OBJECT TSTREAM CH# LOOKS) (* ; "Edited 28-Jul-2025 23:48 by rmk")
|
||||
[LAMBDA (OBJECT TSTREAM CH# LOOKS) (* ; "Edited 6-Sep-2025 08:54 by rmk")
|
||||
(* ; "Edited 28-Jul-2025 23:48 by rmk")
|
||||
(* ; "Edited 7-May-2025 00:10 by rmk")
|
||||
(* ; "Edited 21-Apr-2025 22:17 by rmk")
|
||||
(* ; "Edited 6-Apr-2025 14:10 by rmk")
|
||||
@@ -824,7 +823,7 @@
|
||||
0
|
||||
'LEFT)
|
||||
(\TEDIT.FIXSEL SEL TSTREAM))
|
||||
(\TEDIT.INSERT.SELPIECES OBJSELPIECES TEXTOBJ SEL)
|
||||
(\TEDIT.INSERT.SELPIECES OBJSELPIECES TSTREAM SEL)
|
||||
(CL:WHEN LOOKS (\TEDIT.CHANGE.CHARLOOKS TSTREAM LOOKS SEL))
|
||||
(\TEDIT.SCROLL.CARET TSTREAM)
|
||||
(\TEDIT.SEL.ON TSTREAM])
|
||||
@@ -1163,7 +1162,8 @@
|
||||
(\TEDIT.RPLCHARCODE TSTREAM N NEWCHARCODE NEWCHARLOOKS DONTDISPLAY])
|
||||
|
||||
(TEDIT.NTHCHARCODE
|
||||
[LAMBDA (TSTREAM N) (* ; "Edited 28-Mar-2025 14:10 by rmk")
|
||||
[LAMBDA (TSTREAM N) (* ; "Edited 8-Sep-2025 22:09 by rmk")
|
||||
(* ; "Edited 28-Mar-2025 14:10 by rmk")
|
||||
(* ; "Edited 7-Jul-2024 11:09 by rmk")
|
||||
(* ; "Edited 29-Apr-2024 13:06 by rmk")
|
||||
(* ; "Edited 17-Mar-2024 00:27 by rmk")
|
||||
@@ -1186,7 +1186,7 @@
|
||||
(* ;; "Out of the selection: force NIL")
|
||||
|
||||
(SETQ N 0)))
|
||||
(SETQ TSTREAM (TSTREAM TSTREAM))
|
||||
(SETQ TSTREAM (TEXTSTREAM TSTREAM))
|
||||
else (SETQ TSTREAM (TEXTSTREAM TSTREAM))
|
||||
(CL:WHEN (ILESSP N 0)
|
||||
(SETQ N (IPLUS (TEDIT.NCHARS TSTREAM)
|
||||
@@ -1527,7 +1527,8 @@
|
||||
(\TEDIT.SCROLL.CARET TOTSTREAM)))])
|
||||
|
||||
(\TEDIT.REPLACE.SELPIECES
|
||||
[LAMBDA (INSERTSELPIECES TSTREAM SEL) (* ; "Edited 7-May-2025 00:13 by rmk")
|
||||
[LAMBDA (INSERTSELPIECES TSTREAM SEL) (* ; "Edited 6-Sep-2025 09:54 by rmk")
|
||||
(* ; "Edited 7-May-2025 00:13 by rmk")
|
||||
(* ; "Edited 21-Apr-2025 22:29 by rmk")
|
||||
(* ; "Edited 19-Mar-2025 15:46 by rmk")
|
||||
(* ; "Edited 8-Dec-2024 13:46 by rmk")
|
||||
@@ -1578,7 +1579,7 @@
|
||||
|
||||
(CL:WHEN (AND INSERTSELPIECES (IGEQ (SETQ ILEN (GETSPC INSERTSELPIECES SPLEN))
|
||||
0)
|
||||
(\TEDIT.INSERT.SELPIECES INSERTSELPIECES TEXTOBJ SEL T))
|
||||
(\TEDIT.INSERT.SELPIECES INSERTSELPIECES TSTREAM SEL T))
|
||||
|
||||
(* ;; "If both delete and insert happened, foush the insert event and upgrade the DELEVENT to a single :Replace. The insert has not updated the lines or the selection")
|
||||
|
||||
@@ -2325,26 +2326,26 @@
|
||||
(ADDTOVAR PRINTFILETYPES (TEDIT (TEST \TEDIT.GET.TRAILER)
|
||||
(EXTENSION (TEDIT))))
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (4922 7316 (MAKE-TEDIT-EXPORTS.ALL 4932 . 5478) (UPDATE-TEDIT 5480 . 6409) (EDIT-TEDIT
|
||||
6411 . 7314)) (8746 36804 (TEDIT 8756 . 11370) (TEXTSTREAM 11372 . 13261) (TEXTSTREAMP 13263 . 13647)
|
||||
(COERCETEXTSTREAM 13649 . 17860) (TEDIT.CONCAT 17862 . 21164) (TEDITSTRING 21166 . 22080) (TEDIT-SEE
|
||||
22082 . 22641) (TEDIT.COPY 22643 . 24788) (TEDIT.DELETE 24790 . 26151) (TEDIT.INSERT 26153 . 29527) (
|
||||
TEDIT.TERPRI 29529 . 30643) (TEDIT.KILL 30645 . 31627) (TEDIT.QUIT 31629 . 32995) (TEDIT.MOVE 32997 .
|
||||
33885) (TEDIT.STRINGWIDTH 33887 . 34558) (TEDIT.CHARWIDTH 34560 . 36802)) (36805 38746 (TEXTOBJ 36815
|
||||
. 37280) (COERCETEXTOBJ 37282 . 38744)) (40146 41796 (TDRIBBLE 40156 . 41794)) (41837 53624 (
|
||||
TEDIT.INSERT.OBJECT 41847 . 45445) (TEDIT.EDIT.OBJECT 45447 . 48387) (TEDIT.OBJECT.CHANGED 48389 .
|
||||
51579) (TEDIT.MAP.OBJECTS 51581 . 53152) (\TEDIT.FIRST.OBJPIECE 53154 . 53387) (\TEDIT.NEXT.OBJPIECE
|
||||
53389 . 53622)) (53647 61090 (\TEDIT.CONCAT.PAGEFRAMES 53657 . 58724) (\TEDIT.GET.PAGE.HEADINGS 58726
|
||||
. 59755) (\TEDIT.CONCAT.INSTALL.HEADINGS 59757 . 61088)) (61091 64698 (\TEDIT.MOVE.MSG 61101 . 63182)
|
||||
(\TEDIT.READONLY 63184 . 64696)) (64699 70474 (TEDIT.NCHARS 64709 . 65082) (TEDIT.RPLCHARCODE 65084
|
||||
. 68074) (TEDIT.NTHCHARCODE 68076 . 70003) (TEDIT.NTHCHAR 70005 . 70472)) (70520 127440 (\TEDIT1
|
||||
70530 . 72607) (\TEDIT.INSERT 72609 . 78974) (\TEDIT.MOVE 78976 . 86882) (\TEDIT.COPY 86884 . 91415) (
|
||||
\TEDIT.REPLACE.SELPIECES 91417 . 95844) (\TEDIT.INSERT.SELPIECES 95846 . 98843) (\TEDIT.RESTARTFN
|
||||
98845 . 101350) (\TEDIT.CHARDELETE 101352 . 104281) (\TEDIT.COPYPIECE 104283 . 109445) (
|
||||
\TEDIT.APPLY.OBJFN 109447 . 112533) (\TEDIT.DELETE 112535 . 116903) (\TEDIT.DIFFUSE.PARALOOKS 116905
|
||||
. 119176) (\TEDIT.WORDDELETE 119178 . 120793) (\TEDIT.WORDDELETE.FORWARD 120795 . 122584) (
|
||||
\TEDIT.FINISHEDIT? 122586 . 127438)) (127441 128100 (\TEDIT.THELP 127451 . 128098)) (128134 137265 (
|
||||
\TEDIT.PARAPIECES 128144 . 130118) (\TEDIT.PARACHNOS 130120 . 131012) (\TEDIT.PARA.FIRST 131014 .
|
||||
134115) (\TEDIT.PARA.LAST 134117 . 137263)) (137266 144361 (\TEDIT.WORD.FIRST 137276 . 141280) (
|
||||
\TEDIT.WORD.LAST 141282 . 144359)) (144562 144839 (TEDITSYSTEMDATE 144572 . 144837)))))
|
||||
(FILEMAP (NIL (4823 7217 (MAKE-TEDIT-EXPORTS.ALL 4833 . 5379) (UPDATE-TEDIT 5381 . 6310) (EDIT-TEDIT
|
||||
6312 . 7215)) (8647 36705 (TEDIT 8657 . 11271) (TEXTSTREAM 11273 . 13162) (TEXTSTREAMP 13164 . 13548)
|
||||
(COERCETEXTSTREAM 13550 . 17761) (TEDIT.CONCAT 17763 . 21065) (TEDITSTRING 21067 . 21981) (TEDIT-SEE
|
||||
21983 . 22542) (TEDIT.COPY 22544 . 24689) (TEDIT.DELETE 24691 . 26052) (TEDIT.INSERT 26054 . 29428) (
|
||||
TEDIT.TERPRI 29430 . 30544) (TEDIT.KILL 30546 . 31528) (TEDIT.QUIT 31530 . 32896) (TEDIT.MOVE 32898 .
|
||||
33786) (TEDIT.STRINGWIDTH 33788 . 34459) (TEDIT.CHARWIDTH 34461 . 36703)) (36706 38647 (TEXTOBJ 36716
|
||||
. 37181) (COERCETEXTOBJ 37183 . 38645)) (40047 41697 (TDRIBBLE 40057 . 41695)) (41738 53634 (
|
||||
TEDIT.INSERT.OBJECT 41748 . 45455) (TEDIT.EDIT.OBJECT 45457 . 48397) (TEDIT.OBJECT.CHANGED 48399 .
|
||||
51589) (TEDIT.MAP.OBJECTS 51591 . 53162) (\TEDIT.FIRST.OBJPIECE 53164 . 53397) (\TEDIT.NEXT.OBJPIECE
|
||||
53399 . 53632)) (53657 61100 (\TEDIT.CONCAT.PAGEFRAMES 53667 . 58734) (\TEDIT.GET.PAGE.HEADINGS 58736
|
||||
. 59765) (\TEDIT.CONCAT.INSTALL.HEADINGS 59767 . 61098)) (61101 64708 (\TEDIT.MOVE.MSG 61111 . 63192)
|
||||
(\TEDIT.READONLY 63194 . 64706)) (64709 70600 (TEDIT.NCHARS 64719 . 65092) (TEDIT.RPLCHARCODE 65094
|
||||
. 68084) (TEDIT.NTHCHARCODE 68086 . 70129) (TEDIT.NTHCHAR 70131 . 70598)) (70646 127675 (\TEDIT1
|
||||
70656 . 72733) (\TEDIT.INSERT 72735 . 79100) (\TEDIT.MOVE 79102 . 87008) (\TEDIT.COPY 87010 . 91541) (
|
||||
\TEDIT.REPLACE.SELPIECES 91543 . 96079) (\TEDIT.INSERT.SELPIECES 96081 . 99078) (\TEDIT.RESTARTFN
|
||||
99080 . 101585) (\TEDIT.CHARDELETE 101587 . 104516) (\TEDIT.COPYPIECE 104518 . 109680) (
|
||||
\TEDIT.APPLY.OBJFN 109682 . 112768) (\TEDIT.DELETE 112770 . 117138) (\TEDIT.DIFFUSE.PARALOOKS 117140
|
||||
. 119411) (\TEDIT.WORDDELETE 119413 . 121028) (\TEDIT.WORDDELETE.FORWARD 121030 . 122819) (
|
||||
\TEDIT.FINISHEDIT? 122821 . 127673)) (127676 128335 (\TEDIT.THELP 127686 . 128333)) (128369 137500 (
|
||||
\TEDIT.PARAPIECES 128379 . 130353) (\TEDIT.PARACHNOS 130355 . 131247) (\TEDIT.PARA.FIRST 131249 .
|
||||
134350) (\TEDIT.PARA.LAST 134352 . 137498)) (137501 144596 (\TEDIT.WORD.FIRST 137511 . 141515) (
|
||||
\TEDIT.WORD.LAST 141517 . 144594)) (144797 145074 (TEDITSYSTEMDATE 144807 . 145072)))))
|
||||
STOP
|
||||
|
||||
@@ -1,15 +1,12 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
|
||||
(FILECREATED " 1-Aug-2025 14:58:21"
|
||||
{DSK}<Users>kaplan>Local>medley3.5>working-medley>library>tedit>TEDIT-OLDFILE.;38 73837
|
||||
(FILECREATED " 8-Sep-2025 22:10:10" {WMEDLEY}<library>TEDIT>TEDIT-OLDFILE.;40 73888
|
||||
|
||||
:EDIT-BY rmk
|
||||
|
||||
:CHANGES-TO (FNS \TEDIT.GET.CHARLOOKS2 \TEDIT.GET.PCTB1 \TEDIT.GET.PCTB2
|
||||
\TEDIT.GET.SINGLE.CHARLOOKS2 \TEDIT.GET.CHARLOOKS0 \TEDIT.GET.CHARLOOKS1)
|
||||
:CHANGES-TO (FNS \TEDIT.GET.PCTB2)
|
||||
|
||||
:PREVIOUS-DATE "28-Jul-2025 23:43:57"
|
||||
{DSK}<Users>kaplan>Local>medley3.5>working-medley>library>tedit>TEDIT-OLDFILE.;34)
|
||||
:PREVIOUS-DATE " 7-Sep-2025 11:07:57" {WMEDLEY}<library>TEDIT>TEDIT-OLDFILE.;39)
|
||||
|
||||
|
||||
(PRETTYCOMPRINT TEDIT-OLDFILECOMS)
|
||||
@@ -49,7 +46,8 @@
|
||||
(DEFINEQ
|
||||
|
||||
(\TEDIT.GET.PCTB2
|
||||
[LAMBDA (TEXT TSTREAM PCCOUNT START END) (* ; "Edited 1-Aug-2025 14:55 by rmk")
|
||||
[LAMBDA (TEXT TSTREAM PCCOUNT START END) (* ; "Edited 8-Sep-2025 22:08 by rmk")
|
||||
(* ; "Edited 1-Aug-2025 14:55 by rmk")
|
||||
(* ; "Edited 28-Jul-2025 23:39 by rmk")
|
||||
(* ; "Edited 8-Feb-2025 20:21 by rmk")
|
||||
(* ; "Edited 21-Oct-2024 00:33 by rmk")
|
||||
@@ -73,7 +71,7 @@
|
||||
|
||||
(* ;; "END = use this as eofptr of file. For use in reading files within files.")
|
||||
|
||||
(LET ((TEXTOBJ (FTEXTOBJ (TSTREAM)))
|
||||
(LET ((TEXTOBJ (FTEXTOBJ TSTREAM))
|
||||
PIECEINFOCH#
|
||||
(CURFILECH# (OR START 0))
|
||||
LOOKSHASH PARAHASH)
|
||||
@@ -283,7 +281,8 @@
|
||||
(for I from 1 to (\WIN FILE) collect (\TEDIT.GET.SINGLE.CHARLOOKS2 FILE])
|
||||
|
||||
(\TEDIT.GET.SINGLE.CHARLOOKS2
|
||||
[LAMBDA (FILE) (* ; "Edited 1-Aug-2025 12:13 by rmk")
|
||||
[LAMBDA (FILE) (* ; "Edited 7-Sep-2025 11:03 by rmk")
|
||||
(* ; "Edited 1-Aug-2025 12:13 by rmk")
|
||||
(* ; "Edited 7-Jan-2025 12:29 by rmk")
|
||||
(* ; "Edited 2-Jan-2025 11:09 by rmk")
|
||||
(* ; "Edited 31-Jul-2024 00:05 by rmk")
|
||||
@@ -327,7 +326,6 @@
|
||||
(BOLD 'BOLD)
|
||||
(ITALIC 'ITALIC]
|
||||
(FSETCLOOKS LOOKS CLFONT FONT)
|
||||
(FSETCLOOKS LOOKS CLNAME (FONTUNPARSE FONT))
|
||||
(RETURN LOOKS])
|
||||
|
||||
(\TEDIT.PUT.SINGLE.PARALOOKS2
|
||||
@@ -730,7 +728,8 @@
|
||||
(\TEDIT.PARSE.PAGEFRAMES1 (pop PAGELIST])
|
||||
|
||||
(\TEDIT.GET.CHARLOOKS1
|
||||
[LAMBDA (PC FILE) (* ; "Edited 1-Aug-2025 12:18 by rmk")
|
||||
[LAMBDA (PC FILE) (* ; "Edited 7-Sep-2025 11:03 by rmk")
|
||||
(* ; "Edited 1-Aug-2025 12:18 by rmk")
|
||||
(* ; "Edited 28-Jul-2025 23:40 by rmk")
|
||||
(* ; "Edited 2-Jan-2025 11:09 by rmk")
|
||||
(* ; "Edited 31-Jul-2024 00:05 by rmk")
|
||||
@@ -788,7 +787,6 @@
|
||||
(ITALIC 'ITALIC]
|
||||
else (* ; "Should never happen")
|
||||
(FONTCREATE DEFAULTFONT)))
|
||||
(FSETCLOOKS LOOKS CLNAME (FONTUNPARSE FONT))
|
||||
(FSETCLOOKS LOOKS CLFONT FONT])
|
||||
|
||||
(\TEDIT.GET.PARALOOKS1
|
||||
@@ -956,7 +954,8 @@
|
||||
(\TEDIT.INSERTPIECE PC NIL TEXTOBJ) finally (\TEDIT.UNIQUIFY.ALL TEXTOBJ])
|
||||
|
||||
(\TEDIT.GET.CHARLOOKS0
|
||||
[LAMBDA (PC FILE) (* ; "Edited 1-Aug-2025 12:17 by rmk")
|
||||
[LAMBDA (PC FILE) (* ; "Edited 7-Sep-2025 11:03 by rmk")
|
||||
(* ; "Edited 1-Aug-2025 12:17 by rmk")
|
||||
(* ; "Edited 28-Jul-2025 23:39 by rmk")
|
||||
(* ; "Edited 2-Jan-2025 11:09 by rmk")
|
||||
(* ; "Edited 31-Jul-2024 00:05 by rmk")
|
||||
@@ -1015,7 +1014,6 @@
|
||||
else (* ; "Should never happen")
|
||||
(FONTCREATE DEFAULTFONT)))
|
||||
(FSETCLOOKS LOOKS CLFONT FONT)
|
||||
(FSETCLOOKS LOOKS CLNAME (FONTUNPARSE FONT))
|
||||
(RETURN LOOKS])
|
||||
|
||||
(\TEDIT.GET.OBJECT0
|
||||
@@ -1102,14 +1100,14 @@
|
||||
PARALOOKS])
|
||||
)
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (1867 37890 (\TEDIT.GET.PCTB2 1877 . 12526) (\TEDIT.GET.PARALOOKS2 12528 . 13117) (
|
||||
\TEDIT.GET.CHARLOOKS2 13119 . 14676) (\TEDIT.PARSE.PAGEFRAMES2 14678 . 17417) (
|
||||
\TEDIT.GET.CHARLOOKS.LIST2 17419 . 17926) (\TEDIT.GET.SINGLE.CHARLOOKS2 17928 . 21234) (
|
||||
\TEDIT.PUT.SINGLE.PARALOOKS2 21236 . 25486) (\TEDIT.PUT.SINGLE.CHARLOOKS2 25488 . 29198) (
|
||||
\TEDIT.GET.PARALOOKS.LIST2 29200 . 29707) (\TEDIT.GET.SINGLE.PARALOOKS2 29709 . 34608) (
|
||||
\TEDIT.PUT.CHARLOOKS.LIST2 34610 . 36689) (\TEDIT.PUT.PARALOOKS.LIST2 36691 . 37888)) (37967 59193 (
|
||||
\TEDIT.GET.PCTB1 37977 . 44994) (\TEDIT.GET.PAGEFRAMES1 44996 . 45448) (\TEDIT.PARSE.PAGEFRAMES1 45450
|
||||
. 48103) (\TEDIT.GET.CHARLOOKS1 48105 . 52416) (\TEDIT.GET.PARALOOKS1 52418 . 57329) (
|
||||
TEDIT.GET.OBJECT1 57331 . 59191)) (59253 73814 (\TEDIT.GET.PCTB0 59263 . 63344) (\TEDIT.GET.CHARLOOKS0
|
||||
63346 . 67732) (\TEDIT.GET.OBJECT0 67734 . 69809) (\TEDIT.GET.PARALOOKS0 69811 . 73812)))))
|
||||
(FILEMAP (NIL (1649 37832 (\TEDIT.GET.PCTB2 1659 . 12415) (\TEDIT.GET.PARALOOKS2 12417 . 13006) (
|
||||
\TEDIT.GET.CHARLOOKS2 13008 . 14565) (\TEDIT.PARSE.PAGEFRAMES2 14567 . 17306) (
|
||||
\TEDIT.GET.CHARLOOKS.LIST2 17308 . 17815) (\TEDIT.GET.SINGLE.CHARLOOKS2 17817 . 21176) (
|
||||
\TEDIT.PUT.SINGLE.PARALOOKS2 21178 . 25428) (\TEDIT.PUT.SINGLE.CHARLOOKS2 25430 . 29140) (
|
||||
\TEDIT.GET.PARALOOKS.LIST2 29142 . 29649) (\TEDIT.GET.SINGLE.PARALOOKS2 29651 . 34550) (
|
||||
\TEDIT.PUT.CHARLOOKS.LIST2 34552 . 36631) (\TEDIT.PUT.PARALOOKS.LIST2 36633 . 37830)) (37909 59190 (
|
||||
\TEDIT.GET.PCTB1 37919 . 44936) (\TEDIT.GET.PAGEFRAMES1 44938 . 45390) (\TEDIT.PARSE.PAGEFRAMES1 45392
|
||||
. 48045) (\TEDIT.GET.CHARLOOKS1 48047 . 52413) (\TEDIT.GET.PARALOOKS1 52415 . 57326) (
|
||||
TEDIT.GET.OBJECT1 57328 . 59188)) (59250 73865 (\TEDIT.GET.PCTB0 59260 . 63341) (\TEDIT.GET.CHARLOOKS0
|
||||
63343 . 67783) (\TEDIT.GET.OBJECT0 67785 . 69860) (\TEDIT.GET.PARALOOKS0 69862 . 73863)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
@@ -1,12 +1,12 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
|
||||
(FILECREATED "29-Jul-2025 11:58:01" {WMEDLEY}<library>TEDIT>TEDIT-STREAM.;912 190401
|
||||
(FILECREATED " 8-Sep-2025 22:10:32" {WMEDLEY}<library>TEDIT>TEDIT-STREAM.;913 190947
|
||||
|
||||
:EDIT-BY rmk
|
||||
|
||||
:CHANGES-TO (FNS \TEDIT.OPENTEXTSTREAM.DEFAULTLOOKS)
|
||||
:CHANGES-TO (FNS \TEDIT.OPENTEXTSTREAM.PIECES \TEDIT.OPENTEXTFILE)
|
||||
|
||||
:PREVIOUS-DATE "28-Jul-2025 23:52:41" {WMEDLEY}<library>TEDIT>TEDIT-STREAM.;911)
|
||||
:PREVIOUS-DATE "29-Jul-2025 11:58:01" {WMEDLEY}<library>TEDIT>TEDIT-STREAM.;912)
|
||||
|
||||
|
||||
(PRETTYCOMPRINT TEDIT-STREAMCOMS)
|
||||
@@ -1441,7 +1441,8 @@
|
||||
TSTREAM])
|
||||
|
||||
(\TEDIT.OPENTEXTSTREAM.PIECES
|
||||
[LAMBDA (TEXT TSTREAM START END PROPS) (* ; "Edited 29-May-2025 19:02 by rmk")
|
||||
[LAMBDA (TEXT TSTREAM START END PROPS) (* ; "Edited 8-Sep-2025 22:05 by rmk")
|
||||
(* ; "Edited 29-May-2025 19:02 by rmk")
|
||||
(* ; "Edited 26-Apr-2025 12:59 by rmk")
|
||||
(* ; "Edited 24-Apr-2025 17:09 by rmk")
|
||||
(* ; "Edited 26-Sep-2024 22:27 by rmk")
|
||||
@@ -1460,11 +1461,10 @@
|
||||
(* ;; "The intent is that the window's promptwindow is available for local messages during the fetch, and the RESETSAVE of PROMPTWINDOW would make even messages to the global promptwindow appear locally. An example is the mouseconfirm in READIMAGEOBJ that asks whether the imageobj code should be loaded from a given file. The problem is that the Tedit prompt window is usually just 1 line hight and doesn't automatically grow to show multiple lines, so key information may not be displayed. If the Tedit prompt grows (and it can be determined when/if it should later shrink), then this feature can be enabled.")
|
||||
|
||||
(RESETLST
|
||||
(LET* [(TEXTOBJ (TEXTOBJ! (fetch (TEXTSTREAM TEXTOBJ) of TSTREAM)))
|
||||
(LET* [(TEXTOBJ (FTEXTOBJ TSTREAM))
|
||||
(PWINDOW (GETTOBJ TEXTOBJ PROMPTWINDOW))
|
||||
(READONLY (GETTEXTPROP TEXTOBJ 'READONLY] (* ;
|
||||
"READONLY only after creation, if specified")
|
||||
(AND NIL (CL:WHEN PWINDOW (RESETSAVE PROMPTWINDOW PWINDOW)))
|
||||
(FSETTOBJ TEXTOBJ TXTREADONLY NIL)
|
||||
(FSETTOBJ TEXTOBJ TXTDON'TUPDATE T) (* ;
|
||||
"Don't display or record histories until done")
|
||||
@@ -1666,7 +1666,8 @@
|
||||
(SETTOBJ TEXTOBJ DEFAULTPARALOOKS PARALOOKS])
|
||||
|
||||
(\TEDIT.OPENTEXTFILE
|
||||
[LAMBDA (TEXT PROPS) (* ; "Edited 21-Nov-2024 11:38 by rmk")
|
||||
[LAMBDA (TEXT PROPS) (* ; "Edited 8-Sep-2025 21:52 by rmk")
|
||||
(* ; "Edited 21-Nov-2024 11:38 by rmk")
|
||||
(* ; "Edited 20-Dec-2023 10:49 by rmk")
|
||||
(* ; "Edited 28-Oct-2023 10:33 by rmk")
|
||||
(* ; "Edited 26-Sep-2023 18:00 by rmk")
|
||||
@@ -1678,15 +1679,19 @@
|
||||
(STRINGP TEXT)
|
||||
(CL:PATHNAMEP TEXT))
|
||||
then (* ; "String detects empty extension")
|
||||
[OPENSTREAM (OR (if (OR (CL:PATHNAMEP TEXT)
|
||||
(FILENAMEFIELD.STRING TEXT 'EXTENSION))
|
||||
then (FINDFILE TEXT T)
|
||||
elseif (FINDFILE-WITH-EXTENSIONS TEXT NIL *TEDIT-EXTENSIONS*))
|
||||
TEXT)
|
||||
'INPUT
|
||||
'OLD
|
||||
`((TYPE TEXT)
|
||||
(FORMAT ,(LISTGET PROPS 'FORMAT]
|
||||
[RESETSAVE [SETQ TEXT (OPENSTREAM (OR (if (OR (CL:PATHNAMEP TEXT)
|
||||
(FILENAMEFIELD.STRING TEXT
|
||||
'EXTENSION))
|
||||
then (FINDFILE TEXT T)
|
||||
elseif (FINDFILE-WITH-EXTENSIONS TEXT NIL
|
||||
*TEDIT-EXTENSIONS*))
|
||||
TEXT)
|
||||
'INPUT
|
||||
'OLD
|
||||
`((TYPE TEXT)
|
||||
(FORMAT ,(LISTGET PROPS 'FORMAT]
|
||||
'(PROGN (AND RESETSTATE (CLOSEF? OLDVALUE]
|
||||
TEXT
|
||||
elseif (\GETSTREAM TEXT 'INPUT T)
|
||||
else
|
||||
(* ;; "Don't know what it is")
|
||||
@@ -3123,34 +3128,34 @@
|
||||
(ADDTOVAR LAMA TEXTPROP)
|
||||
)
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (36908 67724 (\TEDIT.TEXTBIN 36918 . 47668) (\TEDIT.TEXTPEEKBIN 47670 . 53220) (
|
||||
\TEDIT.TEXTBACKFILEPTR 53222 . 58895) (\TEDIT.TEXTBOUT 58897 . 63514) (\TEDIT.INSTALL.FILEBUFFER 63516
|
||||
. 67722)) (68622 72913 (\TEDIT.TEXTOUTCHARFN 68632 . 70188) (\TEDIT.TEXTINCCODEFN 70190 . 70929) (
|
||||
\TEDIT.TEXTBACKCCODEFN 70931 . 71523) (\TEDIT.TEXTFORMATBYTESTREAM 71525 . 72362) (
|
||||
\TEDIT.TEXTFORMATBYTESTRING 72364 . 72911)) (72960 84601 (OPENTEXTSTREAM 72970 . 79922) (
|
||||
COPYTEXTSTREAM 79924 . 83824) (TEDIT.STREAMCHANGEDP 83826 . 84128) (TXTFILE 84130 . 84599)) (84602
|
||||
114584 (\TEDIT.REOPENTEXTSTREAM 84612 . 85964) (\TEDIT.OPENTEXTSTREAM.PIECES 85966 . 90900) (
|
||||
\TEDIT.OPENTEXTSTREAM.PROPS 90902 . 92004) (\TEDIT.OPENTEXTSTREAM.SETUP.SEL 92006 . 97247) (
|
||||
\TEDIT.OPENTEXTSTREAM.WINDOW 97249 . 100040) (\TEDIT.OPENTEXTSTREAM.DEFAULTLOOKS 100042 . 101981) (
|
||||
\TEDIT.OPENTEXTFILE 101983 . 103696) (\TEDIT.CREATE.TEXTSTREAM 103698 . 104845) (\TEDIT.REOPEN.STREAM
|
||||
104847 . 107183) (\TEDIT.TEXTINIT 107185 . 114582)) (114622 115810 (\TEDIT.TTYBOUT 114632 . 115808)) (
|
||||
115928 135925 (\TEDIT.TEXTCLOSEF 115938 . 117262) (\TEDIT.TEXTDSPFONT 117264 . 118462) (
|
||||
\TEDIT.TEXTEOFP 118464 . 120219) (\TEDIT.TEXTGETEOFPTR 120221 . 120544) (\TEDIT.TEXTSETEOFPTR 120546
|
||||
. 121833) (\TEDIT.TEXTGETFILEPTR 121835 . 124670) (\TEDIT.TEXTSETFILEINFO 124672 . 125180) (
|
||||
\TEDIT.TEXTOPENF 125182 . 126113) (\TEDIT.TEXTSETEOF 126115 . 126731) (\TEDIT.TEXTSETFILEPTR 126733 .
|
||||
128843) (\TEDIT.TEXTDSPXPOSITION 128845 . 129862) (\TEDIT.TEXTDSPYPOSITION 129864 . 130605) (
|
||||
\TEDIT.TEXTLEFTMARGIN 130607 . 131198) (\TEDIT.TEXTCOLOR 131200 . 131783) (\TEDIT.TEXTRIGHTMARGIN
|
||||
131785 . 135074) (\TEDIT.TEXTDSPCHARWIDTH 135076 . 135380) (\TEDIT.TEXTDSPSTRINGWIDTH 135382 . 135688)
|
||||
(\TEDIT.TEXTDSPLINEFEED 135690 . 135923)) (135963 148576 (\TEDIT.NTHCHARCODE 135973 . 137424) (
|
||||
\TEDIT.PIECE.NTHCHARCODE 137426 . 141336) (\TEDIT.RPLCHARCODE 141338 . 142796) (
|
||||
\TEDIT.PIECE.RPLCHARCODE 142798 . 148221) (\TEDIT.NTHCHARLOOKS 148223 . 148574)) (149623 170717 (
|
||||
\TEDIT.DELETE.SELPIECES 149633 . 153258) (\TEDIT.INSERTCH 153260 . 161299) (\TEDIT.INSERTCH.HISTORY
|
||||
161301 . 164765) (\TEDIT.INSERTEOL 164767 . 166592) (\TEDIT.INSERTCH.INSERTION 166594 . 169431) (
|
||||
\TEDIT.INSERTCH.EXTEND 169433 . 170715)) (170718 172222 (\TEDIT.NEXTCHANGEABLE.CHNO 170728 . 171443) (
|
||||
\TEDIT.LASTCHANGEABLE.CHNO 171445 . 172220)) (172223 173927 (\SETUPGETCH 172233 . 173925)) (173985
|
||||
178443 (\TEDIT.INSTALL.PIECE 173995 . 178441)) (178481 187582 (TEXTPROP 178491 . 178838) (GETTEXTPROP
|
||||
178840 . 179084) (PUTTEXTPROP 179086 . 179343) (GETTEXTPROPS 179345 . 179789) (PUTTEXTPROPS 179791 .
|
||||
180695) (TEXTPROP.ADD 180697 . 180960) (\TEDIT.TEXTPROP 180962 . 187580)) (187583 189653 (
|
||||
\TEDIT.TEXTOBJ.PROPNAMES 187593 . 188545) (\TEDIT.TEXTOBJ.PROPFETCHFN 188547 . 189063) (
|
||||
\TEDIT.TEXTOBJ.PROPSTOREFN 189065 . 189651)))))
|
||||
(FILEMAP (NIL (36922 67738 (\TEDIT.TEXTBIN 36932 . 47682) (\TEDIT.TEXTPEEKBIN 47684 . 53234) (
|
||||
\TEDIT.TEXTBACKFILEPTR 53236 . 58909) (\TEDIT.TEXTBOUT 58911 . 63528) (\TEDIT.INSTALL.FILEBUFFER 63530
|
||||
. 67736)) (68636 72927 (\TEDIT.TEXTOUTCHARFN 68646 . 70202) (\TEDIT.TEXTINCCODEFN 70204 . 70943) (
|
||||
\TEDIT.TEXTBACKCCODEFN 70945 . 71537) (\TEDIT.TEXTFORMATBYTESTREAM 71539 . 72376) (
|
||||
\TEDIT.TEXTFORMATBYTESTRING 72378 . 72925)) (72974 84615 (OPENTEXTSTREAM 72984 . 79936) (
|
||||
COPYTEXTSTREAM 79938 . 83838) (TEDIT.STREAMCHANGEDP 83840 . 84142) (TXTFILE 84144 . 84613)) (84616
|
||||
115130 (\TEDIT.REOPENTEXTSTREAM 84626 . 85978) (\TEDIT.OPENTEXTSTREAM.PIECES 85980 . 90908) (
|
||||
\TEDIT.OPENTEXTSTREAM.PROPS 90910 . 92012) (\TEDIT.OPENTEXTSTREAM.SETUP.SEL 92014 . 97255) (
|
||||
\TEDIT.OPENTEXTSTREAM.WINDOW 97257 . 100048) (\TEDIT.OPENTEXTSTREAM.DEFAULTLOOKS 100050 . 101989) (
|
||||
\TEDIT.OPENTEXTFILE 101991 . 104242) (\TEDIT.CREATE.TEXTSTREAM 104244 . 105391) (\TEDIT.REOPEN.STREAM
|
||||
105393 . 107729) (\TEDIT.TEXTINIT 107731 . 115128)) (115168 116356 (\TEDIT.TTYBOUT 115178 . 116354)) (
|
||||
116474 136471 (\TEDIT.TEXTCLOSEF 116484 . 117808) (\TEDIT.TEXTDSPFONT 117810 . 119008) (
|
||||
\TEDIT.TEXTEOFP 119010 . 120765) (\TEDIT.TEXTGETEOFPTR 120767 . 121090) (\TEDIT.TEXTSETEOFPTR 121092
|
||||
. 122379) (\TEDIT.TEXTGETFILEPTR 122381 . 125216) (\TEDIT.TEXTSETFILEINFO 125218 . 125726) (
|
||||
\TEDIT.TEXTOPENF 125728 . 126659) (\TEDIT.TEXTSETEOF 126661 . 127277) (\TEDIT.TEXTSETFILEPTR 127279 .
|
||||
129389) (\TEDIT.TEXTDSPXPOSITION 129391 . 130408) (\TEDIT.TEXTDSPYPOSITION 130410 . 131151) (
|
||||
\TEDIT.TEXTLEFTMARGIN 131153 . 131744) (\TEDIT.TEXTCOLOR 131746 . 132329) (\TEDIT.TEXTRIGHTMARGIN
|
||||
132331 . 135620) (\TEDIT.TEXTDSPCHARWIDTH 135622 . 135926) (\TEDIT.TEXTDSPSTRINGWIDTH 135928 . 136234)
|
||||
(\TEDIT.TEXTDSPLINEFEED 136236 . 136469)) (136509 149122 (\TEDIT.NTHCHARCODE 136519 . 137970) (
|
||||
\TEDIT.PIECE.NTHCHARCODE 137972 . 141882) (\TEDIT.RPLCHARCODE 141884 . 143342) (
|
||||
\TEDIT.PIECE.RPLCHARCODE 143344 . 148767) (\TEDIT.NTHCHARLOOKS 148769 . 149120)) (150169 171263 (
|
||||
\TEDIT.DELETE.SELPIECES 150179 . 153804) (\TEDIT.INSERTCH 153806 . 161845) (\TEDIT.INSERTCH.HISTORY
|
||||
161847 . 165311) (\TEDIT.INSERTEOL 165313 . 167138) (\TEDIT.INSERTCH.INSERTION 167140 . 169977) (
|
||||
\TEDIT.INSERTCH.EXTEND 169979 . 171261)) (171264 172768 (\TEDIT.NEXTCHANGEABLE.CHNO 171274 . 171989) (
|
||||
\TEDIT.LASTCHANGEABLE.CHNO 171991 . 172766)) (172769 174473 (\SETUPGETCH 172779 . 174471)) (174531
|
||||
178989 (\TEDIT.INSTALL.PIECE 174541 . 178987)) (179027 188128 (TEXTPROP 179037 . 179384) (GETTEXTPROP
|
||||
179386 . 179630) (PUTTEXTPROP 179632 . 179889) (GETTEXTPROPS 179891 . 180335) (PUTTEXTPROPS 180337 .
|
||||
181241) (TEXTPROP.ADD 181243 . 181506) (\TEDIT.TEXTPROP 181508 . 188126)) (188129 190199 (
|
||||
\TEDIT.TEXTOBJ.PROPNAMES 188139 . 189091) (\TEDIT.TEXTOBJ.PROPFETCHFN 189093 . 189609) (
|
||||
\TEDIT.TEXTOBJ.PROPSTOREFN 189611 . 190197)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
Binary file not shown.
@@ -1,39 +1,42 @@
|
||||
(DEFINE-FILE-INFO §PACKAGE "INTERLISP" §READTABLE "INTERLISP" §BASE 10)
|
||||
(FILECREATED " 2-Mar-87 16:07:23" {ERIS}<LISPUSERS>LYRIC>BACKGROUNDIMAGES.;6 17437
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
|
||||
changes to%: (FNS BACKGROUND.SETUP)
|
||||
(VARS BACKGROUNDIMAGESCOMS)
|
||||
(FILECREATED " 1-Sep-2025 11:35:16"
|
||||
{DSK}<Users>kaplan>Local>medley3.5>working-medley>lispusers>BACKGROUNDIMAGES.;4 18372
|
||||
|
||||
previous date%: "11-Feb-87 21:26:26" {ERIS}<LISPUSERS>LYRIC>BACKGROUNDIMAGES.;5)
|
||||
:EDIT-BY rmk
|
||||
|
||||
:CHANGES-TO (VARS BACKGROUNDIMAGESCOMS)
|
||||
|
||||
:PREVIOUS-DATE " 2-Mar-87 16:07:23"
|
||||
{DSK}<Users>kaplan>Local>medley3.5>working-medley>lispusers>BACKGROUNDIMAGES.;1)
|
||||
|
||||
(* "
|
||||
Copyright (c) 1986, 1987 by Xerox Corporation. All rights reserved.
|
||||
")
|
||||
|
||||
(PRETTYCOMPRINT BACKGROUNDIMAGESCOMS)
|
||||
|
||||
(RPAQQ BACKGROUNDIMAGESCOMS [
|
||||
(RPAQQ BACKGROUNDIMAGESCOMS
|
||||
[
|
||||
|
||||
(* ;;;
|
||||
"Enables you to load interesting backgrounds. Simplest entry is just to call (BACKGROUND.SETUP).")
|
||||
|
||||
(FNS BACKGROUND.SETUP BACKGROUND.FILES BACKGROUND.FILE BACKGROUND.FETCH
|
||||
BACKGROUND.SHORTNAME BACKGROUND.MODE BACKGROUND.SHADE)
|
||||
(FNS BACKGROUND.CENTER BACKGROUND.REFLECT BACKGROUND.TILE
|
||||
BACKGROUND.LESS)
|
||||
(INITVARS (BACKGROUNDS NIL)
|
||||
(BACKGROUND.MODE 'CENTER)
|
||||
(BACKGROUND.SHADE 34850))
|
||||
(GLOBALVARS BACKGROUNDS BackgroundMenuCommands LISPUSERSDIRECTORIES
|
||||
BACKGROUND.MODE BACKGROUND.SHADE)
|
||||
[ADDVARS (GAINSPACEFORMS ((LISTP BACKGROUNDS)
|
||||
"Delete saved background bitmaps"
|
||||
(SETQ BACKGROUNDS NIL]
|
||||
(DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS
|
||||
(ADDVARS (NLAMA)
|
||||
(NLAML)
|
||||
(LAMA])
|
||||
(FNS BACKGROUND.SETUP BACKGROUND.FILES BACKGROUND.FILE BACKGROUND.FETCH BACKGROUND.SHORTNAME
|
||||
BACKGROUND.MODE BACKGROUND.SHADE)
|
||||
(FNS BACKGROUND.CENTER BACKGROUND.REFLECT BACKGROUND.TILE BACKGROUND.LESS)
|
||||
[COMS (* ;
|
||||
"RMK 2025: Copied from now obsolete PRESS")
|
||||
(FNS PRESSFILEP)
|
||||
(DECLARE%: EVAL@COMPILE DONTCOPY (CONSTANTS (BYTESPERRECORD 512]
|
||||
(INITVARS (BACKGROUNDS NIL)
|
||||
(BACKGROUND.MODE 'CENTER)
|
||||
(BACKGROUND.SHADE 34850))
|
||||
(GLOBALVARS BACKGROUNDS BackgroundMenuCommands LISPUSERSDIRECTORIES BACKGROUND.MODE
|
||||
BACKGROUND.SHADE)
|
||||
[ADDVARS (GAINSPACEFORMS ((LISTP BACKGROUNDS)
|
||||
"Delete saved background bitmaps"
|
||||
(SETQ BACKGROUNDS NIL]
|
||||
(DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA)
|
||||
(NLAML)
|
||||
(LAMA])
|
||||
|
||||
|
||||
|
||||
@@ -330,6 +333,40 @@ Copyright (c) 1986, 1987 by Xerox Corporation. All rights reserved.
|
||||
do (add START (MINUS IMAGESIZE)) finally (RETURN START])
|
||||
)
|
||||
|
||||
|
||||
|
||||
(* ; "RMK 2025: Copied from now obsolete PRESS")
|
||||
|
||||
(DEFINEQ
|
||||
|
||||
(PRESSFILEP
|
||||
[LAMBDA (FILE) (* ; "Edited 20-Feb-87 18:41 by jds")
|
||||
|
||||
(* ;; "Returns FILE if it looks like a Press file")
|
||||
|
||||
(AND (SETQ FILE (OR (STREAMP FILE)
|
||||
(FINDFILE FILE)))
|
||||
(PROG [(LEN (GETFILEINFO FILE 'LENGTH]
|
||||
(AND (NOT (ZEROP LEN))
|
||||
(EVENP LEN BYTESPERRECORD)
|
||||
(RESETLST
|
||||
[COND
|
||||
(T (RESETSAVE (SETQ PRESS-STREAM (OPENSTREAM FILE 'INPUT 'OLD 8))
|
||||
'(PROGN (CLOSEF? OLDVALUE]
|
||||
(SETFILEPTR PRESS-STREAM (IDIFFERENCE LEN BYTESPERRECORD))
|
||||
(IEQP 27183 (\WIN PRESS-STREAM)))
|
||||
(RETURN FILE])
|
||||
)
|
||||
(DECLARE%: EVAL@COMPILE DONTCOPY
|
||||
(DECLARE%: EVAL@COMPILE
|
||||
|
||||
(RPAQQ BYTESPERRECORD 512)
|
||||
|
||||
|
||||
(CONSTANTS (BYTESPERRECORD 512))
|
||||
)
|
||||
)
|
||||
|
||||
(RPAQ? BACKGROUNDS NIL)
|
||||
|
||||
(RPAQ? BACKGROUND.MODE 'CENTER)
|
||||
@@ -351,11 +388,10 @@ Copyright (c) 1986, 1987 by Xerox Corporation. All rights reserved.
|
||||
|
||||
(ADDTOVAR LAMA )
|
||||
)
|
||||
(PUTPROPS BACKGROUNDIMAGES COPYRIGHT ("Xerox Corporation" 1986 1987))
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (1897 10963 (BACKGROUND.SETUP 1907 . 4149) (BACKGROUND.FILES 4151 . 5706) (
|
||||
BACKGROUND.FILE 5708 . 6973) (BACKGROUND.FETCH 6975 . 9284) (BACKGROUND.SHORTNAME 9286 . 10006) (
|
||||
BACKGROUND.MODE 10008 . 10460) (BACKGROUND.SHADE 10462 . 10961)) (10964 16807 (BACKGROUND.CENTER 10974
|
||||
. 11668) (BACKGROUND.REFLECT 11670 . 15603) (BACKGROUND.TILE 15605 . 16340) (BACKGROUND.LESS 16342 .
|
||||
16805)))))
|
||||
(FILEMAP (NIL (1911 10977 (BACKGROUND.SETUP 1921 . 4163) (BACKGROUND.FILES 4165 . 5720) (
|
||||
BACKGROUND.FILE 5722 . 6987) (BACKGROUND.FETCH 6989 . 9298) (BACKGROUND.SHORTNAME 9300 . 10020) (
|
||||
BACKGROUND.MODE 10022 . 10474) (BACKGROUND.SHADE 10476 . 10975)) (10978 16821 (BACKGROUND.CENTER 10988
|
||||
. 11682) (BACKGROUND.REFLECT 11684 . 15617) (BACKGROUND.TILE 15619 . 16354) (BACKGROUND.LESS 16356 .
|
||||
16819)) (16879 17682 (PRESSFILEP 16889 . 17680)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
@@ -1,13 +1,12 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
|
||||
(FILECREATED "26-Mar-2025 09:41:31" {WMEDLEY}<lispusers>COMPAREDIRECTORIES.;267 133447
|
||||
(FILECREATED "24-Aug-2025 13:38:35" {WMEDLEY}<lispusers>COMPAREDIRECTORIES.;268 133743
|
||||
|
||||
:EDIT-BY rmk
|
||||
|
||||
:CHANGES-TO (VARS COMPAREDIRECTORIESCOMS)
|
||||
(FNS CD-MENUFN)
|
||||
:CHANGES-TO (FNS CDENTRIES.SELECT CDPRINT.LINE)
|
||||
|
||||
:PREVIOUS-DATE "18-Feb-2025 23:37:14" {WMEDLEY}<lispusers>COMPAREDIRECTORIES.;264)
|
||||
:PREVIOUS-DATE "26-Mar-2025 09:41:31" {WMEDLEY}<lispusers>COMPAREDIRECTORIES.;267)
|
||||
|
||||
|
||||
(PRETTYCOMPRINT COMPAREDIRECTORIESCOMS)
|
||||
@@ -262,7 +261,8 @@
|
||||
INFO2 _ I2] FINALLY (RETURN CANDIDATES])
|
||||
|
||||
(CDENTRIES.SELECT
|
||||
[LAMBDA (CANDIDATES SELECT) (* ; "Edited 23-Feb-2022 20:45 by rmk")
|
||||
[LAMBDA (CANDIDATES SELECT) (* ; "Edited 24-Aug-2025 13:36 by rmk")
|
||||
(* ; "Edited 23-Feb-2022 20:45 by rmk")
|
||||
(* ; "Edited 4-Jan-2022 21:31 by rmk")
|
||||
|
||||
(* ;; "Does the pairwise select filter and inserts the date relation")
|
||||
@@ -273,8 +273,8 @@
|
||||
(SETQ INFO1 (FETCH (CDENTRY INFO1) OF CDE))
|
||||
(SETQ INFO2 (FETCH (CDENTRY INFO2) OF CDE))
|
||||
(if (AND INFO1 INFO2)
|
||||
then (SETQ IDATE1 (IDATE (fetch DATE of INFO1)))
|
||||
(SETQ IDATE2 (IDATE (fetch DATE of INFO2)))
|
||||
then (SETQ IDATE1 (IDATE (fetch (CDINFO DATE) of INFO1)))
|
||||
(SETQ IDATE2 (IDATE (fetch (CDINFO DATE) of INFO2)))
|
||||
(SETQ DATEREL (if (IGREATERP IDATE1 IDATE2)
|
||||
then '>
|
||||
elseif (ILESSP IDATE1 IDATE2)
|
||||
@@ -643,23 +643,24 @@
|
||||
|
||||
(CDPRINT.LINE
|
||||
[LAMBDA (STREAM ENTRY PRINTAUTHOR DATE1POS ENDDATE1 NCHARSDIR1 NCHARSDIR2 LENGTH2END)
|
||||
(* ; "Edited 24-Aug-2025 13:38 by rmk")
|
||||
(* ; "Edited 16-Jul-2022 10:19 by rmk")
|
||||
(* ; "Edited 22-Nov-2021 22:38 by rmk:")
|
||||
(* ; "Edited 9-Jan-2021 10:12 by rmk:")
|
||||
|
||||
(* ;; "Format one line of the directory comparison listing. If PRINTAUTHOR and AUTHOR1 or AUTHOR2 are non-NIL, list the author in parens; otherwise omit it.")
|
||||
|
||||
(LET ((INFO1 (fetch INFO1 of ENTRY))
|
||||
(INFO2 (fetch INFO2 of ENTRY)))
|
||||
(PRINTOUT STREAM (SELECTQ (fetch EQUIV of ENTRY)
|
||||
(LET ((INFO1 (fetch (CDENTRY INFO1) of ENTRY))
|
||||
(INFO2 (fetch (CDENTRY INFO2) of ENTRY)))
|
||||
(PRINTOUT STREAM (SELECTQ (fetch (CDENTRY EQUIV) of ENTRY)
|
||||
(T "==")
|
||||
(NIL " ")
|
||||
(CONCAT (SELECTQ (CAR (fetch EQUIV of ENTRY))
|
||||
(CONCAT (SELECTQ (CAR (fetch (CDENTRY EQUIV) of ENTRY))
|
||||
(CR 'C)
|
||||
(LF 'L)
|
||||
(CRLF 2)
|
||||
"x")
|
||||
(SELECTQ (CADR (fetch EQUIV of ENTRY))
|
||||
(SELECTQ (CADR (fetch (CDENTRY EQUIV) of ENTRY))
|
||||
(CR 'C)
|
||||
(LF 'L)
|
||||
(CRLF 2)
|
||||
@@ -677,7 +678,7 @@
|
||||
(PRINTOUT STREAM .FR (IDIFFERENCE DATE1POS 2)
|
||||
(fetch (CDINFO LENGTH) OF INFO1)
|
||||
" "
|
||||
(fetch DATE of INFO1)))
|
||||
(fetch (CDINFO DATE) of INFO1)))
|
||||
(PRINTOUT STREAM .TAB0 ENDDATE1 " " (SELECTQ (fetch DATEREL of ENTRY)
|
||||
(< "< ")
|
||||
(> " >")
|
||||
@@ -687,7 +688,7 @@
|
||||
(SHOULDNT))
|
||||
" ")
|
||||
(CL:WHEN INFO2
|
||||
(PRINTOUT STREAM (fetch DATE of INFO2)
|
||||
(PRINTOUT STREAM (fetch (CDINFO DATE) of INFO2)
|
||||
" "
|
||||
(SUBSTRING (fetch (CDINFO FULLNAME) OF INFO2)
|
||||
(ADD1 NCHARSDIR2)
|
||||
@@ -2250,25 +2251,25 @@
|
||||
|
||||
(MOVD? 'NILL 'TEDIT.FILEDATE)
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (2701 23064 (COMPAREDIRECTORIES 2711 . 8046) (COMPAREDIRECTORIES.INFOS 8048 . 11006) (
|
||||
COMPAREDIRECTORIES.CANDIDATES 11008 . 14393) (CDENTRIES.SELECT 14395 . 19170) (
|
||||
COMPAREDIRECTORIES.INFOS.TYPE 19172 . 20298) (MATCHNAME 20300 . 20980) (CD.INSURECDVALUE 20982 . 22596
|
||||
) (CD.UPDATEWIDTHS 22598 . 23062)) (23065 33687 (CDFILES 23075 . 29089) (CDFILES.MATCH 29091 . 30716)
|
||||
(CDFILES.PATS 30718 . 33685)) (33688 51509 (CDPRINT 33698 . 36215) (CDPRINT.HEADER 36217 . 37114) (
|
||||
CDPRINT.LINE 37116 . 40348) (CDPRINT.MAXWIDTHS 40350 . 44465) (CDPRINT.COLHEADERS 44467 . 45752) (
|
||||
CDPRINT.COLUMNS 45754 . 50874) (CDTEDIT 50876 . 51507)) (51510 60631 (CDMAP 51520 . 52952) (CDENTRY
|
||||
52954 . 53263) (CDSUBSET 53265 . 54704) (CDMERGE 54706 . 58690) (CDMERGE.COMMON 58692 . 60007) (
|
||||
CD.SORT 60009 . 60629)) (60632 68170 (BINCOMP 60642 . 64931) (EOLTYPE 64933 . 67495) (EOLTYPE.SHOW
|
||||
67497 . 68168)) (68698 81225 (FIND-UNCOMPILED-FILES 68708 . 72351) (FIND-UNSOURCED-FILES 72353 . 74737
|
||||
) (FIND-SOURCE-FILES 74739 . 76477) (FIND-COMPILED-FILES 76479 . 78356) (FIND-UNLOADED-FILES 78358 .
|
||||
79211) (FIND-LOADED-FILES 79213 . 79641) (FIND-MULTICOMPILED-FILES 79643 . 81223)) (81226 89657 (
|
||||
CREATED-AS 81236 . 86033) (SOURCE-FOR-COMPILED-P 86035 . 88962) (COMPILE-SOURCE-DATE-DIFF 88964 .
|
||||
89655)) (89658 100421 (FIX-DIRECTORY-DATES 89668 . 93118) (FIX-EQUIV-DATES 93120 . 94645) (
|
||||
COPY-COMPARED-FILES 94647 . 96468) (COPY-MISSING-FILES 96470 . 98627) (COMPILED-ON-SAME-SOURCE 98629
|
||||
. 100419)) (100615 108453 (CDBROWSER 100625 . 104552) (CDBROWSER.STRINGS 104554 . 108451)) (108615
|
||||
110351 (CD.TABLEITEM 108625 . 108845) (CD.TABLEITEM.PRINTFN 108847 . 109046) (CD.TABLEITEM.COPYFN
|
||||
109048 . 110106) (CDTABLEBROWSER.HEADING.REPAINTFN 110108 . 110349)) (110352 132922 (
|
||||
CDTABLEBROWSER.WHENSELECTEDFN 110362 . 110830) (CD.COMMANDSELECTEDFN 110832 . 115933) (CD-MENUFN
|
||||
115935 . 122161) (CD-COMPARE-FILES 122163 . 125515) (CDBROWSER-COPY 125517 . 129186) (
|
||||
CDBROWSER-DELETE-FILE 129188 . 132401) (CD-SWAPDIRS 132403 . 132920)))))
|
||||
(FILEMAP (NIL (2673 23163 (COMPAREDIRECTORIES 2683 . 8018) (COMPAREDIRECTORIES.INFOS 8020 . 10978) (
|
||||
COMPAREDIRECTORIES.CANDIDATES 10980 . 14365) (CDENTRIES.SELECT 14367 . 19269) (
|
||||
COMPAREDIRECTORIES.INFOS.TYPE 19271 . 20397) (MATCHNAME 20399 . 21079) (CD.INSURECDVALUE 21081 . 22695
|
||||
) (CD.UPDATEWIDTHS 22697 . 23161)) (23164 33786 (CDFILES 23174 . 29188) (CDFILES.MATCH 29190 . 30815)
|
||||
(CDFILES.PATS 30817 . 33784)) (33787 51805 (CDPRINT 33797 . 36314) (CDPRINT.HEADER 36316 . 37213) (
|
||||
CDPRINT.LINE 37215 . 40644) (CDPRINT.MAXWIDTHS 40646 . 44761) (CDPRINT.COLHEADERS 44763 . 46048) (
|
||||
CDPRINT.COLUMNS 46050 . 51170) (CDTEDIT 51172 . 51803)) (51806 60927 (CDMAP 51816 . 53248) (CDENTRY
|
||||
53250 . 53559) (CDSUBSET 53561 . 55000) (CDMERGE 55002 . 58986) (CDMERGE.COMMON 58988 . 60303) (
|
||||
CD.SORT 60305 . 60925)) (60928 68466 (BINCOMP 60938 . 65227) (EOLTYPE 65229 . 67791) (EOLTYPE.SHOW
|
||||
67793 . 68464)) (68994 81521 (FIND-UNCOMPILED-FILES 69004 . 72647) (FIND-UNSOURCED-FILES 72649 . 75033
|
||||
) (FIND-SOURCE-FILES 75035 . 76773) (FIND-COMPILED-FILES 76775 . 78652) (FIND-UNLOADED-FILES 78654 .
|
||||
79507) (FIND-LOADED-FILES 79509 . 79937) (FIND-MULTICOMPILED-FILES 79939 . 81519)) (81522 89953 (
|
||||
CREATED-AS 81532 . 86329) (SOURCE-FOR-COMPILED-P 86331 . 89258) (COMPILE-SOURCE-DATE-DIFF 89260 .
|
||||
89951)) (89954 100717 (FIX-DIRECTORY-DATES 89964 . 93414) (FIX-EQUIV-DATES 93416 . 94941) (
|
||||
COPY-COMPARED-FILES 94943 . 96764) (COPY-MISSING-FILES 96766 . 98923) (COMPILED-ON-SAME-SOURCE 98925
|
||||
. 100715)) (100911 108749 (CDBROWSER 100921 . 104848) (CDBROWSER.STRINGS 104850 . 108747)) (108911
|
||||
110647 (CD.TABLEITEM 108921 . 109141) (CD.TABLEITEM.PRINTFN 109143 . 109342) (CD.TABLEITEM.COPYFN
|
||||
109344 . 110402) (CDTABLEBROWSER.HEADING.REPAINTFN 110404 . 110645)) (110648 133218 (
|
||||
CDTABLEBROWSER.WHENSELECTEDFN 110658 . 111126) (CD.COMMANDSELECTEDFN 111128 . 116229) (CD-MENUFN
|
||||
116231 . 122457) (CD-COMPARE-FILES 122459 . 125811) (CDBROWSER-COPY 125813 . 129482) (
|
||||
CDBROWSER-DELETE-FILE 129484 . 132697) (CD-SWAPDIRS 132699 . 133216)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
@@ -1,12 +1,12 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
|
||||
(FILECREATED "17-Aug-2025 12:11:44" {WMEDLEY}<lispusers>EDITFONT.;27 23463
|
||||
(FILECREATED "29-Aug-2025 22:34:31" {WMEDLEY}<lispusers>EDITFONT.;33 24939
|
||||
|
||||
:EDIT-BY rmk
|
||||
|
||||
:CHANGES-TO (FNS EDITFONT)
|
||||
:CHANGES-TO (FNS EDITFONT EF.EDITBM EF.CHARITEMS EF.SAVE)
|
||||
|
||||
:PREVIOUS-DATE " 4-Aug-2025 13:34:06" {WMEDLEY}<lispusers>EDITFONT.;26)
|
||||
:PREVIOUS-DATE "27-Aug-2025 22:50:51" {WMEDLEY}<lispusers>EDITFONT.;30)
|
||||
|
||||
|
||||
(PRETTYCOMPRINT EDITFONTCOMS)
|
||||
@@ -80,17 +80,22 @@
|
||||
(WINDOWPROP WINDOW 'MENU NIL])
|
||||
|
||||
(EF.CHARITEMS
|
||||
[LAMBDA (FONT CHARSET) (* ; "Edited 4-Aug-2025 00:14 by rmk")
|
||||
[LAMBDA (FONT CHARSET) (* ; "Edited 29-Aug-2025 11:34 by rmk")
|
||||
(* ; "Edited 27-Aug-2025 22:50 by rmk")
|
||||
(* ; "Edited 4-Aug-2025 00:14 by rmk")
|
||||
(* ; "Edited 25-Jul-2025 10:06 by rmk")
|
||||
(* kbr%: "16-Oct-85 23:11")
|
||||
|
||||
(* ;; "Get CHARITEMS for CHARSET in FONT. ")
|
||||
(* ;; "Get CHARITEMS for CHARSET in FONT. Sort them in column-major order to build an array that corresponds to the tables in Unicode and XCCS.")
|
||||
|
||||
(for C8 from 0 to \MAXTHINCHAR as C from (LLSH CHARSET 8)
|
||||
collect (create CHARITEM
|
||||
BITMAP _ (GETCHARBITMAP C FONT)
|
||||
CHARCODE _ C8
|
||||
SLUGCHARP _ (SLUGCHARP.DISPLAY C FONT])
|
||||
(for ROW from 0 to 15 join (for COL CODE from 0 to 15
|
||||
collect (SETQ CODE (LOGOR (LLSH CHARSET 8)
|
||||
(IPLUS (TIMES COL 16)
|
||||
ROW)))
|
||||
(create CHARITEM
|
||||
BITMAP _ (GETCHARBITMAP CODE FONT)
|
||||
CHARCODE _ CODE
|
||||
SLUGCHARP _ (SLUGCHARP.DISPLAY CODE FONT])
|
||||
|
||||
(EF.BUTTONEVENTFN
|
||||
[LAMBDA (WINDOW) (* kbr%: "16-Oct-85 22:19")
|
||||
@@ -113,9 +118,11 @@
|
||||
(* Do nothing. *)])
|
||||
|
||||
(EF.EDITBM
|
||||
[LAMBDA (CHARITEM MENU) (* ; "Edited 4-Aug-2025 09:11 by rmk")
|
||||
[LAMBDA (CHARITEM MENU CHARSET) (* ; "Edited 29-Aug-2025 11:37 by rmk")
|
||||
(* ; "Edited 4-Aug-2025 09:11 by rmk")
|
||||
(* kbr%: "15-Dec-84 15:20")
|
||||
(LET ((SLUGCHARP (fetch (CHARITEM BITMAP) of CHARITEM))
|
||||
(CHARCODE (fetch (CHARITEM CHARCODE) of CHARITEM))
|
||||
BITMAP)
|
||||
(RESETLST
|
||||
[RESETSAVE (SHADEITEM CHARITEM MENU BLACKSHADE)
|
||||
@@ -126,7 +133,9 @@
|
||||
(UNINTERRUPTABLY
|
||||
(replace (CHARITEM BITMAP) of CHARITEM with BITMAP)
|
||||
(replace (CHARITEM SLUGCHARP) of CHARITEM with NIL)))
|
||||
(EDITBM BITMAP))
|
||||
[EDITBM BITMAP (CONCAT (CHARCODE.ENCODE CHARCODE T)
|
||||
" in "
|
||||
(GETMENUPROP MENU 'EDITFONTTITLE])
|
||||
|
||||
(* ;; "Update MENU image. SHADEITEM's side effects above suffice if we only changed one menu item. (I.e. we edited an ordinary CHARITEM.) ")
|
||||
|
||||
@@ -224,7 +233,8 @@
|
||||
(T (LISPERROR "ILLEGAL ARG" BITMAP])
|
||||
|
||||
(EF.SAVE
|
||||
[LAMBDA (WINDOW) (* ; "Edited 4-Aug-2025 09:22 by rmk")
|
||||
[LAMBDA (WINDOW) (* ; "Edited 29-Aug-2025 11:35 by rmk")
|
||||
(* ; "Edited 4-Aug-2025 09:22 by rmk")
|
||||
(* ; "Edited 2-Aug-2025 08:47 by rmk")
|
||||
(* kbr%: "21-Oct-85 15:39")
|
||||
(* ; "Save EDITFONT changes to FONT. *")
|
||||
@@ -264,7 +274,7 @@
|
||||
(BITBLT BM 0 0 CB OFFSET 0 WIDTH (fetch (BITMAP BITMAPHEIGHT) of BM)
|
||||
'INPUT
|
||||
'REPLACE)
|
||||
(SETQ C8 (fetch (CHARITEM CHARCODE) of CI))
|
||||
(SETQ C8 (\CHAR8CODE (fetch (CHARITEM CHARCODE) of CI)))
|
||||
(\FSETOFFSET OFFSETS C8 OFFSET)
|
||||
(\FSETWIDTH WIDTHS C8 WIDTH)
|
||||
(add OFFSET WIDTH))
|
||||
@@ -279,9 +289,9 @@
|
||||
'INPUT
|
||||
'REPLACE)
|
||||
(for CI in CHARITEMS when (fetch (CHARITEM SLUGCHARP) of CI)
|
||||
do (\FSETOFFSET OFFSETS (fetch (CHARITEM CHARCODE) of CI)
|
||||
do (\FSETOFFSET OFFSETS (\CHAR8CODE (fetch (CHARITEM CHARCODE) of CI))
|
||||
SLUGOFFSET)
|
||||
(\FSETOFFSET WIDTHS (fetch (CHARITEM CHARCODE) of CI)
|
||||
(\FSETOFFSET WIDTHS (\CHAR8CODE (fetch (CHARITEM CHARCODE) of CI))
|
||||
SLUGWIDTH)) (* ; "Store new info")
|
||||
(replace (CHARSETINFO CHARSETBITMAP) of CSINFO with CB)
|
||||
(replace (CHARSETINFO WIDTHS) of CSINFO with WIDTHS)
|
||||
@@ -408,7 +418,8 @@
|
||||
(RETURN FONT])
|
||||
|
||||
(EDITFONT
|
||||
[LAMBDA (FONT CHARSET) (* ; "Edited 17-Aug-2025 12:03 by rmk")
|
||||
[LAMBDA (FONT CHARSET) (* ; "Edited 29-Aug-2025 22:34 by rmk")
|
||||
(* ; "Edited 17-Aug-2025 12:03 by rmk")
|
||||
(* ; "Edited 3-Aug-2025 23:25 by rmk")
|
||||
(* ; "Edited 2-Aug-2025 10:11 by rmk")
|
||||
(* mjs "27-Mar-85 14:48")
|
||||
@@ -425,9 +436,14 @@
|
||||
MENUCOLUMNS _ 16
|
||||
ITEMS _ CHARITEMS
|
||||
WHENSELECTEDFN _ (FUNCTION EF.WHENSELECTEDFN)))
|
||||
[SETQ TITLE (PACK* (FONTPROP FONT 'FAMILY)
|
||||
(SETQ TITLE (PACK* (FONTPROP FONT 'FAMILY)
|
||||
" "
|
||||
(FONTPROP FONT 'SIZE)
|
||||
(PACKC (for ATOM in (FONTPROP FONT 'FACE) collect (CHCON1 ATOM]
|
||||
" "
|
||||
(PACKC (for ATOM in (FONTPROP FONT 'FACE) collect (CHCON1 ATOM)))
|
||||
" "
|
||||
(OCTALSTRING CHARSET)))
|
||||
(PUTMENUPROP MENU 'EDITFONTTITLE TITLE)
|
||||
(SETQ HEIGHT (HEIGHTIFWINDOW (fetch (MENU IMAGEHEIGHT) of MENU)
|
||||
T))
|
||||
(SETQ WIDTH (WIDTHIFWINDOW (fetch (MENU IMAGEWIDTH) of MENU)))
|
||||
@@ -461,10 +477,10 @@
|
||||
|
||||
(EF.INIT)
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (1110 14964 (EF.INIT 1120 . 1754) (EF.PROMPT 1756 . 2338) (EF.MESSAGE 2340 . 2552) (
|
||||
EF.CLOSEFN 2554 . 3081) (EF.CHARITEMS 3083 . 3741) (EF.BUTTONEVENTFN 3743 . 4155) (EF.WHENSELECTEDFN
|
||||
4157 . 4561) (EF.EDITBM 4563 . 5732) (EF.MIDDLEBUTTONFN 5734 . 5979) (EF.CHANGESIZE 5981 . 7310) (
|
||||
EF.DELETE 7312 . 8387) (EF.ENTER 8389 . 9330) (EF.REPLACE 9332 . 10305) (EF.SAVE 10307 . 14256) (
|
||||
COPYFONT 14258 . 14533) (READSTRIKEFONTFILE 14535 . 14962)) (14965 23275 (BLANKCHARSETCREATE 14975 .
|
||||
20952) (EDITFONT 20954 . 23273)))))
|
||||
(FILEMAP (NIL (1141 16132 (EF.INIT 1151 . 1785) (EF.PROMPT 1787 . 2369) (EF.MESSAGE 2371 . 2583) (
|
||||
EF.CLOSEFN 2585 . 3112) (EF.CHARITEMS 3114 . 4436) (EF.BUTTONEVENTFN 4438 . 4850) (EF.WHENSELECTEDFN
|
||||
4852 . 5256) (EF.EDITBM 5258 . 6752) (EF.MIDDLEBUTTONFN 6754 . 6999) (EF.CHANGESIZE 7001 . 8330) (
|
||||
EF.DELETE 8332 . 9407) (EF.ENTER 9409 . 10350) (EF.REPLACE 10352 . 11325) (EF.SAVE 11327 . 15424) (
|
||||
COPYFONT 15426 . 15701) (READSTRIKEFONTFILE 15703 . 16130)) (16133 24751 (BLANKCHARSETCREATE 16143 .
|
||||
22120) (EDITFONT 22122 . 24749)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
@@ -14,12 +14,13 @@ main() {
|
||||
nocopy=false
|
||||
thinw=false
|
||||
thinl=false
|
||||
thinall=false
|
||||
override_lock=false
|
||||
ignore_lock=false
|
||||
export LOADUP_USE_VNC="-"
|
||||
man_flg=false
|
||||
use_branch=""
|
||||
branch_requested=false
|
||||
use_tag=""
|
||||
tag_requested=false
|
||||
|
||||
while [ "$#" -ne 0 ];
|
||||
do
|
||||
@@ -123,18 +124,18 @@ main() {
|
||||
end=1
|
||||
end_s=init
|
||||
;;
|
||||
-br | -branch | --branch)
|
||||
branch_requested=true
|
||||
-tg | -tag | --tag)
|
||||
tag_requested=true
|
||||
if [ "$2" = "-" ]
|
||||
then
|
||||
use_branch="-"
|
||||
use_tag="-"
|
||||
shift
|
||||
else
|
||||
if check_for_no_arg "$2"
|
||||
then
|
||||
use_branch="-"
|
||||
use_tag="-"
|
||||
else
|
||||
use_branch="$2"
|
||||
use_tag="$2"
|
||||
shift
|
||||
fi
|
||||
fi
|
||||
@@ -142,11 +143,29 @@ main() {
|
||||
-nc | -nocopy | --nocopy)
|
||||
nocopy=true
|
||||
;;
|
||||
-th | -thin | --thin)
|
||||
thinall=true
|
||||
if [ "$2" = "+" ]
|
||||
then
|
||||
thinall="+"
|
||||
shift
|
||||
fi
|
||||
;;
|
||||
-tw | -thinw | --thinw)
|
||||
thinw=true
|
||||
if [ "$2" = "+" ]
|
||||
then
|
||||
thinw="+"
|
||||
shift
|
||||
fi
|
||||
;;
|
||||
-tl | -thinl | --thinl)
|
||||
thinl=true
|
||||
if [ "$2" = "+" ]
|
||||
then
|
||||
thinl="+"
|
||||
shift
|
||||
fi
|
||||
;;
|
||||
-d | -maikodir | --maikodir)
|
||||
if [ -n "$2" ]
|
||||
@@ -178,13 +197,15 @@ main() {
|
||||
# internal
|
||||
noendmsg=true
|
||||
;;
|
||||
--forcevnc)
|
||||
# internal - for testing
|
||||
# WSL only -otherwise warning msg from medley
|
||||
force_vnc="+"
|
||||
;;
|
||||
-z | -man | --man )
|
||||
-z | -man | --man | -h | -help | --help)
|
||||
man_flg=true
|
||||
if [ "$2" = "+" ]
|
||||
then
|
||||
man_no_pager=true
|
||||
shift
|
||||
else
|
||||
man_no_pager=false
|
||||
fi
|
||||
;;
|
||||
*)
|
||||
output_error_msg "Error: unknown flag: $1${EOL}Exiting"
|
||||
@@ -206,6 +227,10 @@ main() {
|
||||
#
|
||||
if [ "${man_flg}" = true ]
|
||||
then
|
||||
if [ "${man_no_pager}" = true ]
|
||||
then
|
||||
export PAGER=cat
|
||||
fi
|
||||
if [ "$(uname)" = "Darwin" ]
|
||||
then
|
||||
/usr/bin/man "${LOADUP_SOURCEDIR}/man-page/loadup.1.gz"
|
||||
@@ -223,10 +248,10 @@ main() {
|
||||
|
||||
no_loadups=false
|
||||
|
||||
# check --branch is used correctly
|
||||
if [ "${branch_requested}" = true ] && [ -z "${use_branch}" ]
|
||||
# check --tag is used correctly
|
||||
if [ "${tag_requested}" = true ] && [ -z "${use_tag}" ]
|
||||
then
|
||||
output_warn_msg "The --branch (-br) flag was used. But either git is not installed on this system or \"${LOADUP_SOURCEDIR}\" is not a git directory.${EOL}The --branch flag will be ignored"
|
||||
output_warn_msg "The --tag (-tg) flag was used. But either git is not installed on this system or \"${LOADUP_SOURCEDIR}\" is not a git directory.${EOL}The --tg flag will be ignored"
|
||||
fi
|
||||
|
||||
#
|
||||
@@ -241,7 +266,7 @@ main() {
|
||||
start_sysout=starter.sysout
|
||||
aux=true
|
||||
db=false
|
||||
if [ "${thinw}" = true ] || [ "${thinl}" = true ]
|
||||
if [ ! "${thinw}" = false ] || [ ! "${thinl}" = false ] || [ ! "${thinall}" = false ]
|
||||
then
|
||||
no_loadups=true
|
||||
nocopy=true
|
||||
@@ -312,13 +337,32 @@ main() {
|
||||
|
||||
# if requested, thin the loadups and workdirs by eliminating all versioned (*.~[0-9]*~) files
|
||||
# from these directories
|
||||
if [ "${thinw}" = true ]
|
||||
case "${thinall}" in
|
||||
true) "${LOADUP_SCRIPTDIR}"/thin_loadups.sh lw ;;
|
||||
+) "${LOADUP_SCRIPTDIR}"/thin_loadups.sh lw + ;;
|
||||
*)
|
||||
case "${thinw}" in
|
||||
true) "${LOADUP_SCRIPTDIR}"/thin_loadups.sh w ;;
|
||||
+) "${LOADUP_SCRIPTDIR}"/thin_loadups.sh w + ;;
|
||||
esac
|
||||
case "${thinl}" in
|
||||
true) "${LOADUP_SCRIPTDIR}"/thin_loadups.sh l ;;
|
||||
+) "${LOADUP_SCRIPTDIR}"/thin_loadups.sh l + ;;
|
||||
esac
|
||||
;;
|
||||
esac
|
||||
|
||||
# Exit if there's no more work to be done
|
||||
# Otherwise recreate ${LOADUP_WORKDIR} & ${LOADUP_OUTDIR} if they were
|
||||
# deleted during the thin process, if any
|
||||
if [ "${no_loadups}" = true ] && [ "${nocopy}" = true ]
|
||||
then
|
||||
"${LOADUP_SCRIPTDIR}"/thin_loadups.sh w
|
||||
fi
|
||||
if [ "${thinl}" = true ]
|
||||
then
|
||||
"${LOADUP_SCRIPTDIR}"/thin_loadups.sh l
|
||||
echo "+++++ loadup: SUCCESS +++++"
|
||||
remove_run_lock
|
||||
exit 0
|
||||
else
|
||||
mkdir -p "${LOADUP_OUTDIR}"
|
||||
mkdir -p "${LOADUP_WORKDIR}"
|
||||
fi
|
||||
|
||||
# find and place starting sysout
|
||||
|
||||
@@ -28,27 +28,34 @@ git_commit_info "${LOADUP_SOURCEDIR}"
|
||||
export LOADUP_COMMIT_ID="${COMMIT_ID}"
|
||||
export LOADUP_BRANCH="${BRANCH}"
|
||||
|
||||
if [ "${use_branch}" = "-" ]
|
||||
if [ "${use_tag}" = "-" ]
|
||||
then
|
||||
use_branch="${LOADUP_BRANCH}"
|
||||
use_tag="${LOADUP_BRANCH}"
|
||||
fi
|
||||
|
||||
slash_branch=""
|
||||
if [ -n "${use_branch}" ]
|
||||
slash_tag=""
|
||||
if [ -n "${use_tag}" ]
|
||||
then
|
||||
use_branch="$(printf %s "${use_branch}" | sed "s/[^a-zA-Z0-9_.-]/_/g")"
|
||||
slash_branch="/branches/${use_branch}"
|
||||
use_tag="$(printf %s "${use_tag}" | sed "s/[^a-zA-Z0-9_.-]/_/g")"
|
||||
slash_tag="/tagged/${use_tag}"
|
||||
# update dir structure for to use tag nomenclature rather than branch nomenclature
|
||||
# but keep compatibilty with branch nomenclature for now
|
||||
if [ -d "${MEDLEYDIR}/loadups/branches" ] && [ ! -h "${MEDLEYDIR}/loadups/branches" ]
|
||||
then
|
||||
mv "${MEDLEYDIR}/loadups/branches" "${MEDLEYDIR}/loadups/tagged"
|
||||
ln -s "${MEDLEYDIR}/loadups/tagged" "${MEDLEYDIR}/loadups/branches"
|
||||
fi
|
||||
fi
|
||||
|
||||
|
||||
if [ -z "${LOADUP_OUTDIR}" ]
|
||||
then
|
||||
export LOADUP_OUTDIR="${MEDLEYDIR}/loadups${slash_branch}"
|
||||
export LOADUP_OUTDIR="${MEDLEYDIR}/loadups${slash_tag}"
|
||||
fi
|
||||
|
||||
if [ ! -d "${LOADUP_OUTDIR}" ];
|
||||
if [ ! -d "${LOADUP_OUTDIR}" ]
|
||||
then
|
||||
if [ ! -e "${LOADUP_OUTDIR}" ];
|
||||
if [ ! -e "${LOADUP_OUTDIR}" ]
|
||||
then
|
||||
mkdir -p "${LOADUP_OUTDIR}"
|
||||
else
|
||||
@@ -159,7 +166,6 @@ loadup_finish () {
|
||||
exit ${exit_code}
|
||||
}
|
||||
|
||||
force_vnc="-"
|
||||
run_medley () {
|
||||
/bin/sh "${MEDLEYDIR}/scripts/medley/medley.command" \
|
||||
--config - \
|
||||
|
||||
@@ -12,17 +12,48 @@ main() {
|
||||
|
||||
if [ "$1" = "w" ] || [ "$1" = "lw" ] || [ "$1" = "wl" ]
|
||||
then
|
||||
find "${LOADUP_WORKDIR}" -name "*.~[0-9]*~" -delete
|
||||
if [ ! "$2" = "+" ]
|
||||
then
|
||||
find "${LOADUP_WORKDIR}" -name "*.~[0-9]*~" -delete
|
||||
else
|
||||
rm -rf "${LOADUP_WORKDIR}"/*
|
||||
if istagged "${LOADUP_WORKDIR}"
|
||||
then
|
||||
rm -rf "${LOADUP_WORKDIR}"
|
||||
if istagged "${LOADUP_OUTDIR}" && [ -z "$(ls -a -1 "${LOADUP_OUTDIR}" | tail +3)" ]
|
||||
then
|
||||
rmdir "${LOADUP_OUTDIR}"
|
||||
fi
|
||||
fi
|
||||
fi
|
||||
fi
|
||||
if [ "$1" = "l" ] || [ "$1" = "lw" ] || [ "$1" = "wl" ]
|
||||
then
|
||||
find "${LOADUP_OUTDIR}" -name "*.~[0-9]*~" -delete
|
||||
if [ ! "$2" = "+" ]
|
||||
then
|
||||
find "${LOADUP_OUTDIR}" -name "$(basename "${LOADUP_WORKDIR}")" -prune \
|
||||
-o -name "*.~[0-9]*~" -exec rm -f {} \;
|
||||
else
|
||||
find "${LOADUP_OUTDIR}" \( -name "$(basename "${LOADUP_WORKDIR}")" -prune \) \
|
||||
-o -path "${LOADUP_OUTDIR}" \
|
||||
-o -exec rm -rf {} \; 2>&1 >/dev/null \
|
||||
| grep -v "No such file"
|
||||
if istagged "${LOADUP_OUTDIR}" && [ ! -e "${LOADUP_WORKDIR}" ]
|
||||
then
|
||||
rm -rf "${LOADUP_OUTDIR}"
|
||||
fi
|
||||
fi
|
||||
fi
|
||||
|
||||
}
|
||||
|
||||
|
||||
|
||||
istagged() {
|
||||
echo "$1" | grep -q "^${MEDLEYDIR}/loadups/tagged"
|
||||
return $?
|
||||
}
|
||||
|
||||
|
||||
# shellcheck disable=SC2164,SC2034
|
||||
if [ -z "${LOADUP_SCRIPTDIR}" ]
|
||||
then
|
||||
|
||||
@@ -667,7 +667,7 @@ borderwidth_arg=""
|
||||
remcm_arg="${LDEREMCM}"
|
||||
repeat_cm=""
|
||||
automation=false
|
||||
use_branch=""
|
||||
use_tag=""
|
||||
|
||||
# Add marker at end of args so we can accumulate pass-on args in args array
|
||||
set -- "$@" "--start_of_pass_args"
|
||||
@@ -682,13 +682,13 @@ do
|
||||
sysout_arg="apps"
|
||||
sysout_stage="${args_stage}"
|
||||
;;
|
||||
-br | -branch | --branch)
|
||||
-tg | -tag | --tag)
|
||||
if [ "$2" = "-" ]
|
||||
then
|
||||
use_branch="-"
|
||||
use_tag="-"
|
||||
else
|
||||
check_for_dash_or_end "$1" "$2"
|
||||
use_branch="$2"
|
||||
use_tag="$2"
|
||||
fi
|
||||
shift
|
||||
;;
|
||||
@@ -947,6 +947,11 @@ do
|
||||
shift
|
||||
;;
|
||||
-z | --man)
|
||||
if [ "$2" = "+" ]
|
||||
then
|
||||
export PAGER=cat
|
||||
shift
|
||||
fi
|
||||
if [ "${darwin}" = true ]
|
||||
then
|
||||
/usr/bin/man "${MEDLEYDIR}/docs/man-page/medley.1.gz"
|
||||
@@ -1134,65 +1139,73 @@ else
|
||||
fi
|
||||
export LDEDESTSYSOUT
|
||||
|
||||
# expand on use_branch, if needed
|
||||
# expand on use_tag, if needed
|
||||
|
||||
if [ "${use_branch}" = "-" ]
|
||||
if [ "${use_tag}" = "-" ]
|
||||
then
|
||||
git_commit_info "${MEDLEYDIR}"
|
||||
use_branch="${BRANCH}"
|
||||
if [ -z "${use_branch}" ]
|
||||
use_tag="${BRANCH}"
|
||||
if [ -z "${use_tag}" ]
|
||||
then
|
||||
output_warn_msg "A \"--branch -\" (\"-br -\") argument was given on the command line.${EOL}But either there is no git installed on this system or MEDLEYDIR (\"${MEDLEYDIR}\") is not a git directory.${EOL}Ignoring --branch argument.${EOL}"
|
||||
output_warn_msg "A \"--tag -\" (\"-tg -\") argument was given on the command line.${EOL}But either there is no git installed on this system or MEDLEYDIR (\"${MEDLEYDIR}\") is not a git directory.${EOL}Ignoring --tag argument.${EOL}"
|
||||
fi
|
||||
fi
|
||||
|
||||
# clean use_branch of no alphanumeric chars
|
||||
# clean use_tag of no alphanumeric chars
|
||||
|
||||
if [ -n "${use_branch}" ]
|
||||
if [ -n "${use_tag}" ]
|
||||
then
|
||||
use_branch="$(printf %s "${use_branch}" | sed "s/[^a-zA-Z0-9_.-]/_/g")"
|
||||
use_tag="$(printf %s "${use_tag}" | sed "s/[^a-zA-Z0-9_.-]/_/g")"
|
||||
fi
|
||||
|
||||
# Figure out the branch/loadupsdir situation
|
||||
# Figure out the tag/loadupsdir situation
|
||||
|
||||
slash_branch=""
|
||||
if [ -n "${use_branch}" ]
|
||||
slash_tag=""
|
||||
if [ -n "${use_tag}" ]
|
||||
then
|
||||
branches_dir="${MEDLEYDIR}/loadups/branches"
|
||||
mkdir -p "${branches_dir}"
|
||||
matches="$(cd "${branches_dir}" && ls -d "${use_branch}"*)"
|
||||
# Set things up to use new tagged directory instead of old branches directory
|
||||
# but set up symlink for backward compatibility
|
||||
if [ -d "${MEDLEYDIR}/loadups/branches" ] && [ ! -e "${MEDLEYDIR}/loadups/tagged" ]
|
||||
then
|
||||
mv "${MEDLEYDIR}/loadups/branches" "${MEDLEYDIR}/loadups/tagged"
|
||||
ln -s "${MEDLEYDIR}/loadups/tagged" "${MEDLEYDIR}/loadups/branches"
|
||||
fi
|
||||
#
|
||||
tagged_dir="${MEDLEYDIR}/loadups/tagged"
|
||||
mkdir -p "${tagged_dir}"
|
||||
matches="$(cd "${tagged_dir}" && ls -d "${use_tag}"*)"
|
||||
echo ${matches}
|
||||
if [ -z "${matches}" ]
|
||||
then
|
||||
output_error_msg "The \"--branch ${use_branch}\" argument was given on the command line${EOL}but a directory matching \"${branches_dir}/${use_branch}*\" does not exist.${EOL}Exiting."
|
||||
output_error_msg "The \"--tag ${use_tag}\" argument was given on the command line${EOL}but a directory matching \"${tagged_dir}/${use_tag}*\" does not exist.${EOL}Exiting."
|
||||
exit 1
|
||||
else
|
||||
count=0
|
||||
new_branch=""
|
||||
new_tag=""
|
||||
for match in ${matches}
|
||||
do
|
||||
if [ "${match}" = "${use_branch}" ]
|
||||
if [ "${match}" = "${use_tag}" ]
|
||||
then
|
||||
new_branch="${match}"
|
||||
new_tag="${match}"
|
||||
count=1
|
||||
break
|
||||
else
|
||||
new_branch="${match}"
|
||||
new_tag="${match}"
|
||||
count=$((count + 1))
|
||||
fi
|
||||
done
|
||||
if [ "${count}" -ge 2 ]
|
||||
then
|
||||
output_error_msg "The \"--branch ${use_branch}\" argument was given on the command line${EOL}but more than one subdirectory in \"${branches_dir}\" matches \"${use_branch}*\".${EOL}Exiting."
|
||||
output_error_msg "The \"--tag ${use_tag}\" argument was given on the command line${EOL}but more than one subdirectory in \"${tagged_dir}\" matches \"${use_tag}*\".${EOL}Exiting."
|
||||
exit 1
|
||||
else
|
||||
use_branch="${new_branch}"
|
||||
use_tag="${new_tag}"
|
||||
fi
|
||||
slash_branch="/branches/${use_branch}"
|
||||
slash_tag="/tagged/${use_tag}"
|
||||
fi
|
||||
fi
|
||||
|
||||
loadups_dir="${MEDLEYDIR}/loadups${slash_branch}"
|
||||
loadups_dir="${MEDLEYDIR}/loadups${slash_tag}"
|
||||
export MEDLEY_LOADUPS_DIR="${loadups_dir}"
|
||||
|
||||
# Figure out the sysout situation
|
||||
@@ -1418,10 +1431,10 @@ then
|
||||
else
|
||||
title="$(printf %s "${title}" | sed -e "s/%i/::${run_id}/")"
|
||||
fi
|
||||
if [ -n "${use_branch}" ]
|
||||
if [ -n "${use_tag}" ]
|
||||
then
|
||||
short_branch="$(printf "%0.16s" "${use_branch}")"
|
||||
title="$(printf %s "${title}" | sed -e "s/%b/::${short_branch}/")"
|
||||
short_tag="$(printf "%0.16s" "${use_tag}")"
|
||||
title="$(printf %s "${title}" | sed -e "s/%b/::${short_tag}/")"
|
||||
else
|
||||
title="$(printf %s "${title}" | sed -e "s/%b//")"
|
||||
fi
|
||||
|
||||
@@ -49,7 +49,7 @@ borderwidth_arg=""
|
||||
remcm_arg="${LDEREMCM}"
|
||||
repeat_cm=""
|
||||
automation=false
|
||||
use_branch=""
|
||||
use_tag=""
|
||||
|
||||
# Add marker at end of args so we can accumulate pass-on args in args array
|
||||
set -- "$@" "--start_of_pass_args"
|
||||
@@ -64,13 +64,13 @@ do
|
||||
sysout_arg="apps"
|
||||
sysout_stage="${args_stage}"
|
||||
;;
|
||||
-br | -branch | --branch)
|
||||
-tg | -tag | --tag)
|
||||
if [ "$2" = "-" ]
|
||||
then
|
||||
use_branch="-"
|
||||
use_tag="-"
|
||||
else
|
||||
check_for_dash_or_end "$1" "$2"
|
||||
use_branch="$2"
|
||||
use_tag="$2"
|
||||
fi
|
||||
shift
|
||||
;;
|
||||
@@ -329,6 +329,11 @@ do
|
||||
shift
|
||||
;;
|
||||
-z | --man)
|
||||
if [ "$2" = "+" ]
|
||||
then
|
||||
export PAGER=cat
|
||||
shift
|
||||
fi
|
||||
if [ "${darwin}" = true ]
|
||||
then
|
||||
/usr/bin/man "${MEDLEYDIR}/docs/man-page/medley.1.gz"
|
||||
|
||||
@@ -52,65 +52,73 @@ else
|
||||
fi
|
||||
export LDEDESTSYSOUT
|
||||
|
||||
# expand on use_branch, if needed
|
||||
# expand on use_tag, if needed
|
||||
|
||||
if [ "${use_branch}" = "-" ]
|
||||
if [ "${use_tag}" = "-" ]
|
||||
then
|
||||
git_commit_info "${MEDLEYDIR}"
|
||||
use_branch="${BRANCH}"
|
||||
if [ -z "${use_branch}" ]
|
||||
use_tag="${BRANCH}"
|
||||
if [ -z "${use_tag}" ]
|
||||
then
|
||||
output_warn_msg "A \"--branch -\" (\"-br -\") argument was given on the command line.${EOL}But either there is no git installed on this system or MEDLEYDIR (\"${MEDLEYDIR}\") is not a git directory.${EOL}Ignoring --branch argument.${EOL}"
|
||||
output_warn_msg "A \"--tag -\" (\"-tg -\") argument was given on the command line.${EOL}But either there is no git installed on this system or MEDLEYDIR (\"${MEDLEYDIR}\") is not a git directory.${EOL}Ignoring --tag argument.${EOL}"
|
||||
fi
|
||||
fi
|
||||
|
||||
# clean use_branch of no alphanumeric chars
|
||||
# clean use_tag of no alphanumeric chars
|
||||
|
||||
if [ -n "${use_branch}" ]
|
||||
if [ -n "${use_tag}" ]
|
||||
then
|
||||
use_branch="$(printf %s "${use_branch}" | sed "s/[^a-zA-Z0-9_.-]/_/g")"
|
||||
use_tag="$(printf %s "${use_tag}" | sed "s/[^a-zA-Z0-9_.-]/_/g")"
|
||||
fi
|
||||
|
||||
# Figure out the branch/loadupsdir situation
|
||||
# Figure out the tag/loadupsdir situation
|
||||
|
||||
slash_branch=""
|
||||
if [ -n "${use_branch}" ]
|
||||
slash_tag=""
|
||||
if [ -n "${use_tag}" ]
|
||||
then
|
||||
branches_dir="${MEDLEYDIR}/loadups/branches"
|
||||
mkdir -p "${branches_dir}"
|
||||
matches="$(cd "${branches_dir}" && ls -d "${use_branch}"*)"
|
||||
# Set things up to use new tagged directory instead of old branches directory
|
||||
# but set up symlink for backward compatibility
|
||||
if [ -d "${MEDLEYDIR}/loadups/branches" ] && [ ! -e "${MEDLEYDIR}/loadups/tagged" ]
|
||||
then
|
||||
mv "${MEDLEYDIR}/loadups/branches" "${MEDLEYDIR}/loadups/tagged"
|
||||
ln -s "${MEDLEYDIR}/loadups/tagged" "${MEDLEYDIR}/loadups/branches"
|
||||
fi
|
||||
#
|
||||
tagged_dir="${MEDLEYDIR}/loadups/tagged"
|
||||
mkdir -p "${tagged_dir}"
|
||||
matches="$(cd "${tagged_dir}" && ls -d "${use_tag}"*)"
|
||||
echo ${matches}
|
||||
if [ -z "${matches}" ]
|
||||
then
|
||||
output_error_msg "The \"--branch ${use_branch}\" argument was given on the command line${EOL}but a directory matching \"${branches_dir}/${use_branch}*\" does not exist.${EOL}Exiting."
|
||||
output_error_msg "The \"--tag ${use_tag}\" argument was given on the command line${EOL}but a directory matching \"${tagged_dir}/${use_tag}*\" does not exist.${EOL}Exiting."
|
||||
exit 1
|
||||
else
|
||||
count=0
|
||||
new_branch=""
|
||||
new_tag=""
|
||||
for match in ${matches}
|
||||
do
|
||||
if [ "${match}" = "${use_branch}" ]
|
||||
if [ "${match}" = "${use_tag}" ]
|
||||
then
|
||||
new_branch="${match}"
|
||||
new_tag="${match}"
|
||||
count=1
|
||||
break
|
||||
else
|
||||
new_branch="${match}"
|
||||
new_tag="${match}"
|
||||
count=$((count + 1))
|
||||
fi
|
||||
done
|
||||
if [ "${count}" -ge 2 ]
|
||||
then
|
||||
output_error_msg "The \"--branch ${use_branch}\" argument was given on the command line${EOL}but more than one subdirectory in \"${branches_dir}\" matches \"${use_branch}*\".${EOL}Exiting."
|
||||
output_error_msg "The \"--tag ${use_tag}\" argument was given on the command line${EOL}but more than one subdirectory in \"${tagged_dir}\" matches \"${use_tag}*\".${EOL}Exiting."
|
||||
exit 1
|
||||
else
|
||||
use_branch="${new_branch}"
|
||||
use_tag="${new_tag}"
|
||||
fi
|
||||
slash_branch="/branches/${use_branch}"
|
||||
slash_tag="/tagged/${use_tag}"
|
||||
fi
|
||||
fi
|
||||
|
||||
loadups_dir="${MEDLEYDIR}/loadups${slash_branch}"
|
||||
loadups_dir="${MEDLEYDIR}/loadups${slash_tag}"
|
||||
export MEDLEY_LOADUPS_DIR="${loadups_dir}"
|
||||
|
||||
# Figure out the sysout situation
|
||||
@@ -257,10 +265,10 @@ then
|
||||
else
|
||||
title="$(printf %s "${title}" | sed -e "s/%i/::${run_id}/")"
|
||||
fi
|
||||
if [ -n "${use_branch}" ]
|
||||
if [ -n "${use_tag}" ]
|
||||
then
|
||||
short_branch="$(printf "%0.16s" "${use_branch}")"
|
||||
title="$(printf %s "${title}" | sed -e "s/%b/::${short_branch}/")"
|
||||
short_tag="$(printf "%0.16s" "${use_tag}")"
|
||||
title="$(printf %s "${title}" | sed -e "s/%b/::${short_tag}/")"
|
||||
else
|
||||
title="$(printf %s "${title}" | sed -e "s/%b//")"
|
||||
fi
|
||||
|
||||
@@ -1,23 +1,21 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
(FILECREATED "15-Mar-94 10:48:02" {DSK}<users>nilsson>mnw>HLDISPLAY.;5 206399
|
||||
|
||||
changes to%: (FNS \GETREGION.CHECKBASEPT DSPYSCREENTOWINDOW DSPXSCREENTOWINDOW
|
||||
\GETREGION.CHECKOPPT GETGRIDBOXREGION NEAREST/PT/ON/GRID EDITBMBUTTONFN)
|
||||
(FILECREATED "29-Aug-2025 11:38:16" {WMEDLEY}<sources>HLDISPLAY.;3 205136
|
||||
|
||||
previous date%: "25-Feb-94 14:50:58" {DSK}<users>nilsson>mnw>HLDISPLAY.;4)
|
||||
:EDIT-BY rmk
|
||||
|
||||
:CHANGES-TO (FNS EDITBM)
|
||||
|
||||
:PREVIOUS-DATE " 2-Aug-2025 10:16:35" {WMEDLEY}<sources>HLDISPLAY.;2)
|
||||
|
||||
(* ; "
|
||||
Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1900, 1988, 1989, 1990, 1992, 1993, 1994 by Venue & Xerox Corporation. All rights reserved.
|
||||
")
|
||||
|
||||
(PRETTYCOMPRINT HLDISPLAYCOMS)
|
||||
|
||||
(RPAQQ HLDISPLAYCOMS
|
||||
(RPAQQ HLDISPLAYCOMS
|
||||
( (* ; "GRID functions")
|
||||
(FNS GRID GRIDXCOORD GRIDYCOORD LEFTOFGRIDCOORD BOTTOMOFGRIDCOORD SHADEGRIDBOX)
|
||||
(* ;
|
||||
"Low level compatibility and extensions")
|
||||
"Low level compatibility and extensions")
|
||||
(FNS INSIDE?)
|
||||
[COMS (* ; "Mouse selection code")
|
||||
(FNS MOUSESTATE-EXPR MOUSESTATE-NAME)
|
||||
@@ -29,8 +27,7 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1900, 1988, 1989, 1990, 1992,
|
||||
(* ; "High Level Display utilities")
|
||||
(FNS DECODEBUTTONS)
|
||||
(FNS PTDIFFERENCE PTPLUS)
|
||||
(COMS (* ;
|
||||
"User interaction for regions, etc")
|
||||
(COMS (* ; "User interaction for regions, etc")
|
||||
(FNS GETPOSITION GETBOXPOSITION DSPYSCREENTOWINDOW DSPXSCREENTOWINDOW GETREGION
|
||||
\GETREGION.PACKPTS \GETREGION.CHECKBASEPT \GETREGION.CHECKOPPT
|
||||
\GETREGIONTRACKWITHBOX \UPDATEXYANDBOX GETBOXREGION \TRACKWITHBOX MOVEBOX
|
||||
@@ -323,33 +320,33 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1900, 1988, 1989, 1990, 1992,
|
||||
(HELP KEYNAME " is not a recognized key name."])
|
||||
)
|
||||
|
||||
(PUTPROPS MOUSESTATE ARGNAMES (BUTTONFORM))
|
||||
(PUTPROPS MOUSESTATE ARGNAMES (BUTTONFORM))
|
||||
|
||||
(PUTPROPS LASTMOUSESTATE ARGNAMES (BUTTONFORM))
|
||||
(PUTPROPS LASTMOUSESTATE ARGNAMES (BUTTONFORM))
|
||||
|
||||
(PUTPROPS UNTILMOUSESTATE ARGNAMES (BUTTONFORM INTERVAL))
|
||||
(PUTPROPS UNTILMOUSESTATE ARGNAMES (BUTTONFORM INTERVAL))
|
||||
|
||||
(PUTPROPS KEYSETSTATE ARGNAMES (BUTTONFORM))
|
||||
(PUTPROPS KEYSETSTATE ARGNAMES (BUTTONFORM))
|
||||
|
||||
(PUTPROPS LASTKEYSETSTATE ARGNAMES (BUTTONFORM))
|
||||
(PUTPROPS LASTKEYSETSTATE ARGNAMES (BUTTONFORM))
|
||||
(* "FOLLOWING DEFINITIONS EXPORTED")(DECLARE%: DOCOPY
|
||||
(DECLARE%: EVAL@COMPILE
|
||||
|
||||
[PUTPROPS MOUSESTATE MACRO (ARGS (LIST 'PROGN '(GETMOUSESTATE)
|
||||
(PUTPROPS MOUSESTATE MACRO (ARGS (LIST 'PROGN '(GETMOUSESTATE)
|
||||
(MOUSESTATE-EXPR (CAR ARGS)
|
||||
T]
|
||||
T))))
|
||||
|
||||
(PUTPROPS LASTMOUSESTATE MACRO (ARGS (MOUSESTATE-EXPR (CAR ARGS)
|
||||
(PUTPROPS LASTMOUSESTATE MACRO (ARGS (MOUSESTATE-EXPR (CAR ARGS)
|
||||
T)))
|
||||
|
||||
[PUTPROPS UNTILMOUSESTATE MACRO (ARGS (COND
|
||||
(PUTPROPS UNTILMOUSESTATE MACRO [ARGS (COND
|
||||
[(AND (CDR ARGS)
|
||||
(CADR ARGS)
|
||||
(NEQ (CADR ARGS)
|
||||
T))
|
||||
|
||||
(* time argument is given and is not T or NIL;
|
||||
compile in time keeping loop.)
|
||||
compile in time keeping loop.)
|
||||
|
||||
(LIST 'PROG [LIST (LIST 'TIMEOUT
|
||||
(LIST 'IPLUS '(CLOCK 0)
|
||||
@@ -374,20 +371,20 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1900, 1988, 1989, 1990, 1992,
|
||||
T))
|
||||
'(RETURN T]
|
||||
'(\BACKGROUND)
|
||||
'(GO LP]
|
||||
'(GO LP])
|
||||
|
||||
[PUTPROPS KEYSETSTATE MACRO (ARGS (LIST 'PROGN '(GETMOUSESTATE)
|
||||
(MOUSESTATE-EXPR (CAR ARGS]
|
||||
(PUTPROPS KEYSETSTATE MACRO [ARGS (LIST 'PROGN '(GETMOUSESTATE)
|
||||
(MOUSESTATE-EXPR (CAR ARGS])
|
||||
|
||||
[PUTPROPS LASTKEYSETSTATE MACRO (ARGS (MOUSESTATE-EXPR (CAR ARGS]
|
||||
(PUTPROPS LASTKEYSETSTATE MACRO (ARGS (MOUSESTATE-EXPR (CAR ARGS))))
|
||||
)
|
||||
)
|
||||
(DECLARE%: DONTCOPY
|
||||
(DECLARE%: EVAL@COMPILE
|
||||
|
||||
[PUTPROPS WITHIN MACRO ((A B C)
|
||||
(PUTPROPS WITHIN MACRO [(A B C)
|
||||
(AND (IGEQ A B)
|
||||
(ILESSP A (IPLUS B C]
|
||||
(ILESSP A (IPLUS B C])
|
||||
)
|
||||
)
|
||||
|
||||
@@ -1373,11 +1370,11 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1900, 1988, 1989, 1990, 1992,
|
||||
)
|
||||
(* "FOLLOWING DEFINITIONS EXPORTED")(DECLARE%: EVAL@COMPILE
|
||||
|
||||
[PUTPROPS IABS MACRO (OPENLAMBDA (A)
|
||||
(COND
|
||||
((IGEQ A 0)
|
||||
A)
|
||||
(T (IMINUS A]
|
||||
(PUTPROPS IABS MACRO [OPENLAMBDA (A)
|
||||
(COND
|
||||
((IGEQ A 0)
|
||||
A)
|
||||
(T (IMINUS A])
|
||||
)
|
||||
|
||||
(* "END EXPORTED DEFINITIONS")
|
||||
@@ -1512,23 +1509,23 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1900, 1988, 1989, 1990, 1992,
|
||||
(DEFINEQ
|
||||
|
||||
(EDITBM
|
||||
[LAMBDA (BMSPEC) (* ; "Edited 31-Aug-87 12:28 by FS")
|
||||
[LAMBDA (BMSPEC TITLE LEAVETTY) (* ; "Edited 29-Aug-2025 11:37 by rmk")
|
||||
(* ; "Edited 2-Aug-2025 10:14 by rmk")
|
||||
(* ; "Edited 31-Aug-87 12:28 by FS")
|
||||
|
||||
(* ;;; "A simple bitmap editor.")
|
||||
|
||||
(* ;; "The edit part of the display is from 0 to MAXGRIDWIDTH in width and from 0 to MAXGRIDHEIGHT in height. The commands and display area for the bitmap being edited are above the edit region.")
|
||||
|
||||
(* ;; "The edit part of the display is from 0 to MAXGRIDWIDTH in width and from 0 to MAXGRIDHEIGHT in height. The commands and display area for the bitmap being edited are above the edit region.")
|
||||
|
||||
(DECLARE (GLOBALVARS \CURSORDESTWIDTH \CURSORDESTHEIGHT))
|
||||
(PROG (BMW BMWINTERIOR BMWWIDTH BMWHEIGHT WIDTH HEIGHT BM CR ORIGBM GRIDSQUARE BPP ORIGBPP
|
||||
ORIGWIDTH) (* ;
|
||||
"set ORIGBM to the input bitmap if any and BM to a copy of it for editting.")
|
||||
|
||||
[COND
|
||||
((OR (EQ BMSPEC CursorBitMap)
|
||||
(AND (EQ BMSPEC 'CursorBitMap)
|
||||
(SETQ BMSPEC CursorBitMap))) (* ;
|
||||
"editing cursor, save old value and make changes to the original.")
|
||||
|
||||
(SETQ ORIGBM (BITMAPCOPY CursorBitMap))
|
||||
(SETQ BM CursorBitMap))
|
||||
[(BITMAPP BMSPEC)
|
||||
@@ -1537,34 +1534,30 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1900, 1988, 1989, 1990, 1992,
|
||||
(COND
|
||||
([BITMAPP (SETQ ORIGBM (EVALV BMSPEC 'EDITBM]
|
||||
(* ; "use value.")
|
||||
|
||||
(SETQ BM (BITMAPCOPY ORIGBM)))
|
||||
(T (SETQ ORIGBM NIL)
|
||||
(SETQ BM (\READBMDIMENSIONS]
|
||||
((REGIONP BMSPEC) (* ;
|
||||
"if BMSPEC is a region, treat it as a region of the screen.")
|
||||
|
||||
(SETQ BM (BITMAPCREATE (fetch (REGION WIDTH) of BMSPEC)
|
||||
(fetch (REGION HEIGHT) of BMSPEC)
|
||||
(BITSPERPIXEL \CURSORDESTINATION)))
|
||||
(* ;
|
||||
"note that bm has initial bits in it.")
|
||||
|
||||
(SETQ ORIGBM BMSPEC)
|
||||
(BITBLT \CURSORDESTINATION (fetch (REGION LEFT) of BMSPEC)
|
||||
(fetch (REGION BOTTOM) of BMSPEC)
|
||||
BM 0 0 NIL NIL 'INPUT 'REPLACE))
|
||||
((WINDOWP BMSPEC)
|
||||
(SETQ ORIGBM BMSPEC)
|
||||
|
||||
(* ;;
|
||||
"FS: Seems too big below, why not ClipRegion's Width & Height? That's all that's used...")
|
||||
|
||||
(* ;;
|
||||
"FS: Seems too big below, why not ClipRegion's Width & Height? That's all that's used...")
|
||||
|
||||
(SETQ BM (BITMAPCREATE (WINDOWPROP BMSPEC 'WIDTH)
|
||||
(WINDOWPROP BMSPEC 'HEIGHT)
|
||||
(BITSPERPIXEL BMSPEC))) (* ;
|
||||
"open the window and bring it to the top.")
|
||||
|
||||
(TOTOPW BMSPEC)
|
||||
(SETQ CR (DSPCLIPPINGREGION NIL BMSPEC))
|
||||
(BITBLT BMSPEC (fetch (REGION LEFT) of CR)
|
||||
@@ -1572,7 +1565,6 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1900, 1988, 1989, 1990, 1992,
|
||||
BM 0 0 (fetch (REGION WIDTH) of CR)
|
||||
(fetch (REGION HEIGHT) of CR)))
|
||||
(T (* ; "otherwise create a bitmap")
|
||||
|
||||
(SETQ BM (\READBMDIMENSIONS]
|
||||
(if (OR (EQ (BITMAPHEIGHT BM)
|
||||
0)
|
||||
@@ -1583,8 +1575,8 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1900, 1988, 1989, 1990, 1992,
|
||||
(SETQ ORIGBPP (fetch (BITMAP BITMAPBITSPERPIXEL) of BM))
|
||||
[COND
|
||||
((NOT (EQ BPP ORIGBPP))
|
||||
|
||||
(* ;; "save the actual number of bits per pixel and set it to BPP in the bitmap being edited so that it can be BITBLT ed on the screen.")
|
||||
|
||||
(* ;; "save the actual number of bits per pixel and set it to BPP in the bitmap being edited so that it can be BITBLT ed on the screen.")
|
||||
|
||||
(SETQ ORIGWIDTH (fetch (BITMAP BITMAPWIDTH) of BM))
|
||||
(replace (BITMAP BITMAPBITSPERPIXEL) of BM with BPP)
|
||||
@@ -1593,9 +1585,9 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1900, 1988, 1989, 1990, 1992,
|
||||
(replace (BITMAP BITMAPWIDTH) of BM with WIDTH))
|
||||
(T (SETQ WIDTH (fetch (BITMAP BITMAPWIDTH) of BM]
|
||||
(SETQ HEIGHT (fetch (BITMAP BITMAPHEIGHT) of BM))
|
||||
|
||||
(* ;;
|
||||
"Calculate a default window size. Start by calculating the grid size from the bitmap size.")
|
||||
|
||||
(* ;;
|
||||
"Calculate a default window size. Start by calculating the grid size from the bitmap size.")
|
||||
|
||||
(SETQ GRIDSQUARE (IMAX (IMIN (IQUOTIENT (IDIFFERENCE (IQUOTIENT (ITIMES \CURSORDESTWIDTH 2)
|
||||
3)
|
||||
@@ -1620,7 +1612,7 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1900, 1988, 1989, 1990, 1992,
|
||||
(SETQ BMW (CREATEW (GETBOXREGION (WIDTHIFWINDOW BMWWIDTH)
|
||||
(HEIGHTIFWINDOW BMWHEIGHT T)
|
||||
NIL NIL NIL "Indicate the position for the Bitmap Edit window.")
|
||||
"Bitmap Editor"))
|
||||
(OR TITLE "Bitmap Editor")))
|
||||
(WINDOWPROP BMW 'BM BM)
|
||||
(WINDOWPROP BMW 'SCROLLFN (FUNCTION EDITBMSCROLLFN))
|
||||
(WINDOWPROP BMW 'RESHAPEFN (FUNCTION EDITBMRESHAPEFN))
|
||||
@@ -1634,17 +1626,15 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1900, 1988, 1989, 1990, 1992,
|
||||
(WINDOWPROP BMW 'ORIGINALBITMAP ORIGBM)
|
||||
(WINDOWPROP BMW 'FINISHEDFLG NIL)
|
||||
(WINDOWPROP BMW 'COLOR (MAXIMUMCOLOR BPP))
|
||||
(WINDOWPROP BMW 'GRIDON T) (* ;
|
||||
(WINDOWPROP BMW 'GRIDON T)
|
||||
(MODERNWINDOW BMW) (* ;
|
||||
"call reshapefn to initialize the display and values")
|
||||
|
||||
(EDITBMRESHAPEFN BMW NIL NIL NIL (NOT ORIGBM)) (* ;
|
||||
"start a mouse process in case this process is the mouse process.")
|
||||
|
||||
(SPAWN.MOUSE)
|
||||
(while (NOT (WINDOWPROP BMW 'FINISHEDFLG)) do (DISMISS 500))
|
||||
(* ;
|
||||
"remove the closefn before closing the window.")
|
||||
|
||||
(WINDOWPROP BMW 'CLOSEFN NIL)
|
||||
(CLOSEW BMW)
|
||||
(COND
|
||||
@@ -1654,14 +1644,11 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1900, 1988, 1989, 1990, 1992,
|
||||
(RETURN (COND
|
||||
((EQ T (WINDOWPROP BMW 'FINISHEDFLG)) (* ;
|
||||
"editor exited via ok, stuff contents into original bitmap.")
|
||||
|
||||
(COND
|
||||
((EQ BMSPEC CursorBitMap) (* ;
|
||||
"editting happened in original, leave it alone.")
|
||||
|
||||
CursorBitMap)
|
||||
((REGIONP ORIGBM) (* ; "put it back into the screen.")
|
||||
|
||||
(BITBLT BM 0 0 \CURSORDESTINATION (fetch (REGION LEFT) of ORIGBM)
|
||||
(fetch (REGION BOTTOM) of ORIGBM)
|
||||
(fetch (REGION WIDTH) of ORIGBM)
|
||||
@@ -1670,7 +1657,6 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1900, 1988, 1989, 1990, 1992,
|
||||
'REPLACE)
|
||||
BM)
|
||||
((WINDOWP ORIGBM) (* ; "put it back into the window")
|
||||
|
||||
(BITBLT BM 0 0 ORIGBM (fetch (REGION LEFT) of CR)
|
||||
(fetch (REGION BOTTOM) of CR)
|
||||
(fetch (REGION WIDTH) of CR)
|
||||
@@ -1683,14 +1669,12 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1900, 1988, 1989, 1990, 1992,
|
||||
((AND BMSPEC (LITATOM BMSPEC))
|
||||
(* ;
|
||||
"if spec was an atom without a bm value, set it. in the environment above EDITBM.")
|
||||
|
||||
(MARKASCHANGED BMSPEC 'VARS)
|
||||
(STKEVAL 'EDITBM (LIST 'SETQQ BMSPEC BM]
|
||||
ORIGBM)
|
||||
(T BM)))
|
||||
(T (* ;
|
||||
"error exit, if cursor return it to original value.")
|
||||
|
||||
(COND
|
||||
((EQ BMSPEC CursorBitMap)
|
||||
(BITBLT ORIGBM NIL NIL CursorBitMap)))
|
||||
@@ -2963,15 +2947,15 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1900, 1988, 1989, 1990, 1992,
|
||||
|
||||
(DECLARE%: EVAL@COMPILE
|
||||
|
||||
[PUTPROPS BITMASK MACRO ((X)
|
||||
(LLSH 1 (IDIFFERENCE 15 X]
|
||||
(PUTPROPS BITMASK MACRO ((X)
|
||||
(LLSH 1 (IDIFFERENCE 15 X))))
|
||||
|
||||
[PUTPROPS UPDATE/BM/DISPLAY MACRO ((BM W)
|
||||
(PUTPROPS UPDATE/BM/DISPLAY MACRO ((BM W)
|
||||
(BITBLT BM (WINDOWPROP W 'DXOFFSET)
|
||||
(WINDOWPROP W 'DYOFFSET)
|
||||
W 0 (WINDOWPROP W 'BMDISPLAYBOTTOM)
|
||||
(WINDOWPROP W 'BMDISPLAYWIDTH)
|
||||
1000 NIL 'REPLACE]
|
||||
1000 NIL 'REPLACE)))
|
||||
)
|
||||
)
|
||||
(DECLARE%: DONTEVAL@LOAD DOCOPY
|
||||
@@ -3437,45 +3421,40 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1900, 1988, 1989, 1990, 1992,
|
||||
PBTDISJOINT _ T (* ; "the bitmaps are separate")
|
||||
PBTDEST _ (ffetch (BITMAP BITMAPBASE) of DESTINATION)
|
||||
(* ;
|
||||
"set the destination (held constant)")
|
||||
"set the destination (held constant)")
|
||||
PBTSOURCE _ (ffetch (BITMAP BITMAPBASE) of SOURCE)
|
||||
(* ;
|
||||
"set the source (incremented by 1 scanline per iteration)")
|
||||
PBTDESTBPL _ (UNFOLD (ffetch (BITMAP BITMAPRASTERWIDTH) of
|
||||
DESTINATION)
|
||||
"set the source (incremented by 1 scanline per iteration)")
|
||||
PBTDESTBPL _ (UNFOLD (ffetch (BITMAP BITMAPRASTERWIDTH) of DESTINATION)
|
||||
BITSPERWORD)(* ;
|
||||
"the destination is this many bits between scanlines")
|
||||
"the destination is this many bits between scanlines")
|
||||
PBTSOURCEBPL _ 1 (* ;
|
||||
"move 1 bit of each source scanline per 1 scanline of the destination")
|
||||
"move 1 bit of each source scanline per 1 scanline of the destination")
|
||||
PBTSOURCEBIT _ 0 (* ;
|
||||
"start at the first bit of each source scanline (held constant)")
|
||||
"start at the first bit of each source scanline (held constant)")
|
||||
PBTDESTBIT _ (BITMAPWIDTH DESTINATION)
|
||||
(* ;
|
||||
"start putting data into the destination on the right edge (pre-decremented) ")
|
||||
"start putting data into the destination on the right edge (pre-decremented) ")
|
||||
PBTFLAGS _ 0 (* ;
|
||||
"replace mode (paint might be faster)")
|
||||
"replace mode (paint might be faster)")
|
||||
PBTHEIGHT _ (BITMAPHEIGHT DESTINATION)
|
||||
(* ; "how high the destination is")
|
||||
PBTWIDTH _ 1 (* ;
|
||||
"how wide the destination stripe is")
|
||||
))
|
||||
"how wide the destination stripe is")))
|
||||
(SOURCE-WORD-WIDTH (ffetch (BITMAP BITMAPRASTERWIDTH) of SOURCE)))
|
||||
(for I from 1 to SOURCE-HEIGHT do (add (ffetch (PILOTBBT PBTDESTBIT)
|
||||
of ROTATE-BBT)
|
||||
-1)
|
||||
(\PILOTBITBLT ROTATE-BBT 0)
|
||||
(for I from 1 to SOURCE-HEIGHT do (add (ffetch (PILOTBBT PBTDESTBIT) of ROTATE-BBT)
|
||||
-1)
|
||||
(\PILOTBITBLT ROTATE-BBT 0)
|
||||
|
||||
(* ;; "the line below is slower than need be, but works when the source crosses a segment. A faster way (which breaks on a segment cross) is to say")
|
||||
|
||||
(* ;;
|
||||
" (|add| (|ffetch| (PILOTBBT PBTSOURCELO) |of| ROTATE-BBT) SOURCE-WORD-WIDTH)")
|
||||
(* ;;
|
||||
" (|add| (|ffetch| (PILOTBBT PBTSOURCELO) |of| ROTATE-BBT) SOURCE-WORD-WIDTH)")
|
||||
|
||||
(FREPLACE (PILOTBBT PBTSOURCE)
|
||||
OF ROTATE-BBT
|
||||
WITH (\ADDBASE (FFETCH
|
||||
(PILOTBBT PBTSOURCE)
|
||||
OF ROTATE-BBT)
|
||||
SOURCE-WORD-WIDTH)))
|
||||
(FREPLACE (PILOTBBT PBTSOURCE) OF ROTATE-BBT
|
||||
WITH (\ADDBASE (FFETCH (PILOTBBT PBTSOURCE)
|
||||
OF ROTATE-BBT)
|
||||
SOURCE-WORD-WIDTH)))
|
||||
DESTINATION))
|
||||
|
||||
(CL:DEFUN ROTATE-BITMAP-LEFT (SOURCE)
|
||||
@@ -3495,81 +3474,72 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1900, 1988, 1989, 1990, 1992,
|
||||
PBTDISJOINT _ T (* ; "the bitmaps are separate")
|
||||
PBTDEST _ (FFETCH (BITMAP BITMAPBASE) OF DESTINATION)
|
||||
(* ;
|
||||
"set the destination (held constant)")
|
||||
"set the destination (held constant)")
|
||||
PBTSOURCE _ (FFETCH (BITMAP BITMAPBASE) OF SOURCE)
|
||||
(* ; "set the source")
|
||||
PBTDESTBPL _ 1 (* ;
|
||||
"the destination is this many bits between scanlines")
|
||||
PBTSOURCEBPL _ (UNFOLD (FFETCH (BITMAP BITMAPRASTERWIDTH)
|
||||
OF SOURCE)
|
||||
"the destination is this many bits between scanlines")
|
||||
PBTSOURCEBPL _ (UNFOLD (FFETCH (BITMAP BITMAPRASTERWIDTH) OF SOURCE)
|
||||
BITSPERWORD)
|
||||
(* ; "move a scanline at a time.")
|
||||
PBTSOURCEBIT _ (BITMAPWIDTH SOURCE)
|
||||
(* ;
|
||||
"start getting data at the right edge of the source")
|
||||
"start getting data at the right edge of the source")
|
||||
PBTDESTBIT _ 0 (* ;
|
||||
"start putting data into the destination on the left edge ")
|
||||
"start putting data into the destination on the left edge ")
|
||||
PBTFLAGS _ 0 (* ;
|
||||
"replace mode (paint might be faster)")
|
||||
"replace mode (paint might be faster)")
|
||||
PBTHEIGHT _ (BITMAPHEIGHT SOURCE)
|
||||
(* ; "how high the stripe is")
|
||||
PBTWIDTH _ 1 (* ;
|
||||
"how wide the destination stripe is")
|
||||
))
|
||||
"how wide the destination stripe is")))
|
||||
(DEST-WORD-WIDTH (FFETCH (BITMAP BITMAPRASTERWIDTH) OF DESTINATION)))
|
||||
(FOR I FROM 1 TO SOURCE-WIDTH DO (add (FFETCH (PILOTBBT PBTSOURCEBIT
|
||||
) OF
|
||||
ROTATE-BBT
|
||||
)
|
||||
-1)
|
||||
(\PILOTBITBLT ROTATE-BBT 0)
|
||||
(FOR I FROM 1 TO SOURCE-WIDTH DO (add (FFETCH (PILOTBBT PBTSOURCEBIT) OF ROTATE-BBT)
|
||||
-1)
|
||||
(\PILOTBITBLT ROTATE-BBT 0)
|
||||
|
||||
(* ;; "the line below is slower than need be, but works when the source crosses a segment. A faster way (which breaks on a segment cross) is to say")
|
||||
|
||||
(* ;;
|
||||
" (|add| (|ffetch| (PILOTBBT PBTSOURCELO) |of| ROTATE-BBT) SOURCE-WORD-WIDTH)")
|
||||
(* ;;
|
||||
" (|add| (|ffetch| (PILOTBBT PBTSOURCELO) |of| ROTATE-BBT) SOURCE-WORD-WIDTH)")
|
||||
|
||||
(FREPLACE (PILOTBBT PBTDEST)
|
||||
OF ROTATE-BBT
|
||||
WITH (\ADDBASE (FFETCH
|
||||
(PILOTBBT PBTDEST)
|
||||
OF ROTATE-BBT)
|
||||
DEST-WORD-WIDTH)))
|
||||
(FREPLACE (PILOTBBT PBTDEST) OF ROTATE-BBT
|
||||
WITH (\ADDBASE (FFETCH (PILOTBBT PBTDEST) OF ROTATE-BBT)
|
||||
DEST-WORD-WIDTH)))
|
||||
DESTINATION))
|
||||
|
||||
(PUTPROPS HLDISPLAY FILETYPE CL:COMPILE-FILE)
|
||||
(PUTPROPS HLDISPLAY FILETYPE CL:COMPILE-FILE)
|
||||
|
||||
(READVARS-FROM-STRINGS '(\4BITEXPANSIONTABLE)
|
||||
"({Y16 SMALLPOSP 0 0 15 240 255 3840 3855 4080 4095 61440 61455 61680 61695 65280 65295 65520 65535 })
|
||||
")
|
||||
(PUTPROPS HLDISPLAY COPYRIGHT ("Venue & Xerox Corporation" 1982 1983 1984 1985 1986 1987 1900 1988
|
||||
1989 1990 1992 1993 1994))
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (5008 12171 (GRID 5018 . 9289) (GRIDXCOORD 9291 . 9796) (GRIDYCOORD 9798 . 10307) (
|
||||
LEFTOFGRIDCOORD 10309 . 10746) (BOTTOMOFGRIDCOORD 10748 . 11009) (SHADEGRIDBOX 11011 . 12169)) (12227
|
||||
12635 (INSIDE? 12237 . 12633)) (12673 17069 (MOUSESTATE-EXPR 12683 . 16338) (MOUSESTATE-NAME 16340 .
|
||||
17067)) (20480 21465 (DECODEBUTTONS 20490 . 21463)) (21466 22478 (PTDIFFERENCE 21476 . 21985) (PTPLUS
|
||||
21987 . 22476)) (22529 50432 (GETPOSITION 22539 . 22847) (GETBOXPOSITION 22849 . 23532) (
|
||||
DSPYSCREENTOWINDOW 23534 . 24018) (DSPXSCREENTOWINDOW 24020 . 24504) (GETREGION 24506 . 25055) (
|
||||
\GETREGION.PACKPTS 25057 . 25625) (\GETREGION.CHECKBASEPT 25627 . 27570) (\GETREGION.CHECKOPPT 27572
|
||||
. 30382) (\GETREGIONTRACKWITHBOX 30384 . 36915) (\UPDATEXYANDBOX 36917 . 39296) (GETBOXREGION 39298
|
||||
. 39772) (\TRACKWITHBOX 39774 . 44912) (MOVEBOX 44914 . 45544) (DRAWGRAYBOX 45546 . 46068) (BLTHLINE
|
||||
46070 . 46320) (BLTVLINE 46322 . 46561) (SETCORNER 46563 . 47829) (GETSCREENPOSITION 47831 . 48444) (
|
||||
GETBOXSCREENPOSITION 48446 . 49057) (GETSCREENREGION 49059 . 49715) (GETBOXSCREENREGION 49717 . 50430)
|
||||
) (50518 67334 (\MEDW.GETSCREENPOSITION 50528 . 52321) (\MEDW.GETBOXSCREENPOSITION 52323 . 55877) (
|
||||
\MEDW.GETSCREENREGION 55879 . 67332)) (67335 75073 (GETGRIDBOXREGION 67345 . 74999) (\RANGELIMIT 75001
|
||||
. 75071)) (75074 78124 (MOUSECONFIRM 75084 . 78122)) (78265 79634 (NEAREST/PT/ON/GRID 78275 . 78870)
|
||||
(PTON10GRID 78872 . 79197) (NEAREST/MULTIPLE 79199 . 79632)) (81689 85591 (\SW2BM 81699 . 84397) (
|
||||
COMPOSEREGS 84399 . 84953) (TRANSLATEREG 84955 . 85589)) (85633 176284 (EDITBM 85643 . 95768) (
|
||||
EDITBMSCROLLFN 95770 . 110923) (EDITBMCLOSEFN 110925 . 111542) (TILEAREA 111544 . 111935) (
|
||||
EDITBMBUTTONFN 111937 . 136764) (\EDITBM/PUTUP/DISPLAY 136766 . 137668) (\EDITBMHOWMUCH 137670 .
|
||||
138656) (EDITBMRESHAPEFN 138658 . 147344) (EDITBMREPAINTFN 147346 . 148665) (UPDATE/SHADE/DISPLAY
|
||||
148667 . 149114) (UPDATE/BM/DISPLAY/SELECTED/REGION 149116 . 150230) (SHOWBUTTON 150232 . 150790) (
|
||||
RESETGRID.NEW 150792 . 154141) (RESETGRID 154143 . 154967) (\READBMDIMENSIONS 154969 . 156006) (
|
||||
EDITSHADE 156008 . 164734) (\BITMAPFROMTEXTURE 164736 . 165434) (EDITSHADEREPAINTFN 165436 . 167210) (
|
||||
GRAYBOXAREA 167212 . 167895) (\SHADEBITS 167897 . 170862) (READHOTSPOT 170864 . 174729) (WBOX 174731
|
||||
. 175455) (\CLEARBM 175457 . 175656) (EDITBMTEXTURE 175658 . 176282)) (177608 185315 (SCALEBM 177618
|
||||
. 179684) (BLTPATTERN 179686 . 182204) (BLTPATTERN.REPLACEDISPLAY 182206 . 184295) (
|
||||
BLTPATTERN.GENERIC 184297 . 185313)) (185316 197135 (EXPANDBITMAP 185326 . 187850) (EXPANDBM 187852 .
|
||||
194407) (SHRINKBITMAP 194409 . 195753) (\FAST4BIT 195755 . 197133)))))
|
||||
(FILEMAP (NIL (4649 11812 (GRID 4659 . 8930) (GRIDXCOORD 8932 . 9437) (GRIDYCOORD 9439 . 9948) (
|
||||
LEFTOFGRIDCOORD 9950 . 10387) (BOTTOMOFGRIDCOORD 10389 . 10650) (SHADEGRIDBOX 10652 . 11810)) (11868
|
||||
12276 (INSIDE? 11878 . 12274)) (12314 16710 (MOUSESTATE-EXPR 12324 . 15979) (MOUSESTATE-NAME 15981 .
|
||||
16708)) (20200 21185 (DECODEBUTTONS 20210 . 21183)) (21186 22198 (PTDIFFERENCE 21196 . 21705) (PTPLUS
|
||||
21707 . 22196)) (22249 50152 (GETPOSITION 22259 . 22567) (GETBOXPOSITION 22569 . 23252) (
|
||||
DSPYSCREENTOWINDOW 23254 . 23738) (DSPXSCREENTOWINDOW 23740 . 24224) (GETREGION 24226 . 24775) (
|
||||
\GETREGION.PACKPTS 24777 . 25345) (\GETREGION.CHECKBASEPT 25347 . 27290) (\GETREGION.CHECKOPPT 27292
|
||||
. 30102) (\GETREGIONTRACKWITHBOX 30104 . 36635) (\UPDATEXYANDBOX 36637 . 39016) (GETBOXREGION 39018
|
||||
. 39492) (\TRACKWITHBOX 39494 . 44632) (MOVEBOX 44634 . 45264) (DRAWGRAYBOX 45266 . 45788) (BLTHLINE
|
||||
45790 . 46040) (BLTVLINE 46042 . 46281) (SETCORNER 46283 . 47549) (GETSCREENPOSITION 47551 . 48164) (
|
||||
GETBOXSCREENPOSITION 48166 . 48777) (GETSCREENREGION 48779 . 49435) (GETBOXSCREENREGION 49437 . 50150)
|
||||
) (50238 67054 (\MEDW.GETSCREENPOSITION 50248 . 52041) (\MEDW.GETBOXSCREENPOSITION 52043 . 55597) (
|
||||
\MEDW.GETSCREENREGION 55599 . 67052)) (67055 74793 (GETGRIDBOXREGION 67065 . 74719) (\RANGELIMIT 74721
|
||||
. 74791)) (74794 77844 (MOUSECONFIRM 74804 . 77842)) (77985 79354 (NEAREST/PT/ON/GRID 77995 . 78590)
|
||||
(PTON10GRID 78592 . 78917) (NEAREST/MULTIPLE 78919 . 79352)) (81398 85300 (\SW2BM 81408 . 84106) (
|
||||
COMPOSEREGS 84108 . 84662) (TRANSLATEREG 84664 . 85298)) (85342 176197 (EDITBM 85352 . 95681) (
|
||||
EDITBMSCROLLFN 95683 . 110836) (EDITBMCLOSEFN 110838 . 111455) (TILEAREA 111457 . 111848) (
|
||||
EDITBMBUTTONFN 111850 . 136677) (\EDITBM/PUTUP/DISPLAY 136679 . 137581) (\EDITBMHOWMUCH 137583 .
|
||||
138569) (EDITBMRESHAPEFN 138571 . 147257) (EDITBMREPAINTFN 147259 . 148578) (UPDATE/SHADE/DISPLAY
|
||||
148580 . 149027) (UPDATE/BM/DISPLAY/SELECTED/REGION 149029 . 150143) (SHOWBUTTON 150145 . 150703) (
|
||||
RESETGRID.NEW 150705 . 154054) (RESETGRID 154056 . 154880) (\READBMDIMENSIONS 154882 . 155919) (
|
||||
EDITSHADE 155921 . 164647) (\BITMAPFROMTEXTURE 164649 . 165347) (EDITSHADEREPAINTFN 165349 . 167123) (
|
||||
GRAYBOXAREA 167125 . 167808) (\SHADEBITS 167810 . 170775) (READHOTSPOT 170777 . 174642) (WBOX 174644
|
||||
. 175368) (\CLEARBM 175370 . 175569) (EDITBMTEXTURE 175571 . 176195)) (177542 185249 (SCALEBM 177552
|
||||
. 179618) (BLTPATTERN 179620 . 182138) (BLTPATTERN.REPLACEDISPLAY 182140 . 184229) (
|
||||
BLTPATTERN.GENERIC 184231 . 185247)) (185250 197069 (EXPANDBITMAP 185260 . 187784) (EXPANDBM 187786 .
|
||||
194341) (SHRINKBITMAP 194343 . 195687) (\FAST4BIT 195689 . 197067)) (197071 201060 (ROTATE-BITMAP
|
||||
197071 . 201060)) (201062 204898 (ROTATE-BITMAP-LEFT 201062 . 204898)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
@@ -1,13 +1,12 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
|
||||
(FILECREATED "11-Jul-2025 00:17:20" {WMEDLEY}<sources>MEDLEYDIR.;32 11437
|
||||
(FILECREATED "23-Aug-2025 17:25:03" {DSK}<home>larry>il>medley>sources>MEDLEYDIR.;36 12210
|
||||
|
||||
:EDIT-BY rmk
|
||||
:EDIT-BY "lmm"
|
||||
|
||||
:CHANGES-TO (VARS MEDLEY-INIT-VARS)
|
||||
(FNS MEDLEY-INIT-VARS MEDLEYDIR MEDLEYSUBSTDIR SET-SYSOUT-COMMIT)
|
||||
:CHANGES-TO (FNS MEDLEYDIR)
|
||||
|
||||
:PREVIOUS-DATE "15-May-2025 00:18:25" {WMEDLEY}<sources>MEDLEYDIR.;31)
|
||||
:PREVIOUS-DATE "18-Aug-2025 11:19:10" {DSK}<home>larry>il>medley>sources>MEDLEYDIR.;34)
|
||||
|
||||
|
||||
(PRETTYCOMPRINT MEDLEYDIRCOMS)
|
||||
@@ -100,7 +99,9 @@
|
||||
NIL])
|
||||
|
||||
(MEDLEYDIR
|
||||
[LAMBDA (DIRNAME FILENAME OUTPUT NOERROR) (* ; "Edited 29-Jun-2023 22:48 by rmk")
|
||||
[LAMBDA (DIRNAME FILENAME OUTPUT NOERROR) (* ; "Edited 23-Aug-2025 17:21 by lmm")
|
||||
(* ; "Edited 18-Aug-2025 11:15 by FGH")
|
||||
(* ; "Edited 29-Jun-2023 22:48 by rmk")
|
||||
(* ; "Edited 18-Oct-2022 17:49 by lmm")
|
||||
(* ; "Edited 5-Mar-2022 12:43 by larry")
|
||||
(* ; "Edited 2-Dec-2021 20:23 by kaplan")
|
||||
@@ -108,32 +109,48 @@
|
||||
(* ;; "RMK: MEDLEYDIR defaults to DSK")
|
||||
|
||||
(COND
|
||||
((NULL DIRNAME)
|
||||
((NULL DIRNAME) (* ;
|
||||
"Call to (MEDLEYDIR) or (MEDLEYDIR NIL ...) just set it ")
|
||||
(if (OR (NOT (BOUNDP 'MEDLEYDIR))
|
||||
(NOT MEDLEYDIR))
|
||||
then [SETQ MEDLEYDIR (DIRECTORYNAME (if (SETQ MEDLEYDIR (UNIX-GETENV "MEDLEYDIR"))
|
||||
then (DIRECTORYNAME (PACKFILENAME 'BODY MEDLEYDIR
|
||||
'HOST
|
||||
'DSK))
|
||||
else (DIRECTORYNAME T]
|
||||
then (SETQ MEDLEYDIR (DIRECTORYNAME (if (SETQ MEDLEYDIR (UNIX-GETENV "MEDLEYDIR"))
|
||||
then (PACKFILENAME 'BODY MEDLEYDIR 'HOST
|
||||
'DSK)
|
||||
else T)))
|
||||
elseif (STRPOS "/" MEDLEYDIR)
|
||||
then (SETQ MEDLEYDIR (DIRECTORYNAME MEDLEYDIR))
|
||||
else MEDLEYDIR))
|
||||
[(EQUAL DIRNAME "login") (* ; "special case for login dir")
|
||||
(DIRECTORYNAME (OR (UNIX-GETENV "LOGINDIR")
|
||||
(UNIX-GETENV "HOME"]
|
||||
((LISTP DIRNAME)
|
||||
|
||||
(* ;; "(MEDLEYDIR a list -- recurse")
|
||||
|
||||
(for X Y in DIRNAME when (SETQ Y (MEDLEYDIR X FILENAME OUTPUT NOERROR)) collect Y))
|
||||
[FILENAME (if (NULL (SETQ DIRNAME (MEDLEYDIR DIRNAME NIL OUTPUT NOERROR)))
|
||||
then (OR NOERROR (SHOULDNT))
|
||||
NIL
|
||||
else (SETQ FILENAME (CONCAT DIRNAME FILENAME))
|
||||
(if OUTPUT
|
||||
then FILENAME
|
||||
else (OR (INFILEP FILENAME)
|
||||
(if NOERROR
|
||||
then NIL
|
||||
else (ERROR "No such medley file" FILENAME]
|
||||
[FILENAME
|
||||
|
||||
(* ;; " if FILENAME, find it as a file. ")
|
||||
|
||||
(if (NULL (SETQ DIRNAME (MEDLEYDIR DIRNAME NIL OUTPUT NOERROR)))
|
||||
then (OR NOERROR (SHOULDNT))
|
||||
NIL
|
||||
else (SETQ FILENAME (CONCAT DIRNAME FILENAME))
|
||||
(if OUTPUT
|
||||
then FILENAME
|
||||
else (OR (INFILEP FILENAME)
|
||||
(if NOERROR
|
||||
then NIL
|
||||
else (ERROR "No such medley file" FILENAME]
|
||||
((EQUAL DIRNAME "login") (* ; "special case for login dir")
|
||||
(DIRECTORYNAME (OR (UNIX-GETENV "LOGINDIR")
|
||||
(UNIX-GETENV "HOME")
|
||||
DIRNAME)))
|
||||
[(EQUAL DIRNAME "loadups") (* ; "special case for loadups dir")
|
||||
(OR (DIRECTORYNAME (UNIX-GETENV "MEDLEY_LOADUPS_DIR"))
|
||||
(DIRECTORYNAME (CONCAT (MEDLEYDIR)
|
||||
"loadups" ">")
|
||||
NIL OUTPUT)
|
||||
(if NOERROR
|
||||
then NIL
|
||||
else (ERROR "Cannot find medley loadups directory" (MEDLEYDIR]
|
||||
(T (OR (DIRECTORYNAME (CONCAT (MEDLEYDIR)
|
||||
DIRNAME ">")
|
||||
NIL OUTPUT)
|
||||
@@ -228,6 +245,6 @@
|
||||
(ADDTOVAR GLOBALVARS MEDLEYDIR MEDLEY-INIT-VARS \SAVE.MEDLEYDIR DIRECTORIES SYSOUTCOMMITS)
|
||||
)
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (1731 8805 (MEDLEY-INIT-VARS 1741 . 5219) (MEDLEYDIR 5221 . 7605) (MEDLEYSUBSTDIR 7607
|
||||
. 8585) (SET-SYSOUT-COMMIT 8587 . 8803)))))
|
||||
(FILEMAP (NIL (1675 9578 (MEDLEY-INIT-VARS 1685 . 5163) (MEDLEYDIR 5165 . 8378) (MEDLEYSUBSTDIR 8380
|
||||
. 9358) (SET-SYSOUT-COMMIT 9360 . 9576)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
126
sources/TTYIN
126
sources/TTYIN
@@ -1,12 +1,12 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
|
||||
(FILECREATED "29-Feb-2024 10:48:51" {WMEDLEY}<sources>TTYIN.;20 328623
|
||||
(FILECREATED "24-Aug-2025 14:07:41" {WMEDLEY}<sources>TTYIN.;21 328618
|
||||
|
||||
:EDIT-BY rmk
|
||||
|
||||
:CHANGES-TO (FNS TTYIN TTYINPROMPTFORWORD TTUNREADBUF)
|
||||
:CHANGES-TO (MACROS AT.END.OF.LINE)
|
||||
|
||||
:PREVIOUS-DATE "19-Jul-2022 23:34:14" {WMEDLEY}<sources>TTYIN.;17)
|
||||
:PREVIOUS-DATE "29-Feb-2024 10:48:51" {WMEDLEY}<sources>TTYIN.;20)
|
||||
|
||||
|
||||
(PRETTYCOMPRINT TTYINCOMS)
|
||||
@@ -5790,7 +5790,7 @@
|
||||
|
||||
(PUTPROPS AT.END.OF.BUF MACRO (NIL (EQ \CURSOR \ENDBUFFER)))
|
||||
|
||||
(PUTPROPS AT.END.OF.LINE MACRO (NIL (EQ (fetch END of \ARROW)
|
||||
(PUTPROPS AT.END.OF.LINE MACRO (NIL (EQ (fetch (LINE END) of \ARROW)
|
||||
\CURSOR)))
|
||||
|
||||
(PUTPROPS AT.START.OF.BUF MACRO (NIL (EQ \CURSOR \BUFFER)))
|
||||
@@ -5831,7 +5831,7 @@
|
||||
|
||||
(PUTPROPS ON.FIRST.LINE MACRO (NIL (EQ \FIRSTLINE \ARROW)))
|
||||
|
||||
(PUTPROPS ON.LAST.LINE MACRO (NIL (EQ (fetch END of \ARROW)
|
||||
(PUTPROPS ON.LAST.LINE MACRO (NIL (EQ (fetch (LINE END) of \ARROW)
|
||||
\ENDBUFFER)))
|
||||
|
||||
(PUTPROPS METACHARP MACRO ((C)
|
||||
@@ -6068,62 +6068,62 @@ DONTEVAL@LOAD EVAL@COMPILE
|
||||
(ADDTOVAR LAMA )
|
||||
)
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (7690 207621 (TTYIN 7700 . 20347) (TTYIN.SETUP 20349 . 23425) (TTYIN.CLEANUP 23427 .
|
||||
24255) (TTYIN1 24257 . 51141) (TTYIN1RESTART 51143 . 52407) (TTYIN.FINISH 52409 . 61826) (
|
||||
TTYIN.BALANCE 61828 . 62954) (ADDCHAR 62956 . 65142) (TTMAKECOMPLEXCHAR 65144 . 65618) (ADDNAKEDCHAR
|
||||
65620 . 67130) (TTADDTAB 67132 . 68067) (ADJUSTLINE 68069 . 81980) (ADJUSTLINE.AND.RESTORE 81982 .
|
||||
82420) (AT.END.OF.SCREEN 82422 . 82710) (AT.END.OF.TEXT 82712 . 83167) (AUTOCR? 83169 . 83643) (
|
||||
BACKSKREAD 83645 . 88230) (BACKWARD.DELETE.TO 88232 . 88414) (BREAKLINE 88416 . 90683) (BUFTAILP 90685
|
||||
. 91003) (CHECK.MARGIN 91005 . 91628) (CLEAR.LINE? 91630 . 91923) (CURRENT.WORD 91925 . 94325) (
|
||||
DELETE.TO.END 94327 . 95046) (DELETELINE 95048 . 98005) (DELETETO 98007 . 99829) (DELETETO1 99831 .
|
||||
101174) (DO.EDIT.COMMAND 101176 . 118495) (DO.EDIT.PP 118497 . 121159) (TTDOTABS 121161 . 122531) (
|
||||
EDITCOLUMN 122533 . 122989) (EDITNUMBERP 122991 . 123222) (END.DELETE.MODE 123224 . 123741) (ENDREAD?
|
||||
123743 . 126178) (FIND.LINE 126180 . 127716) (FIND.LINE.BREAK 127718 . 128388) (FIND.MATCHING.QUOTE
|
||||
128390 . 129235) (FIND.NEXT.WORD 129237 . 130616) (FIND.NON.SPACE 130618 . 130891) (FIND.START.OF.WORD
|
||||
130893 . 131256) (FORWARD.DELETE.TO 131258 . 133480) (GO.TO.ADDRESSING 133482 . 134438) (
|
||||
GO.TO.FREELINE 134440 . 135021) (GO.TO.RELATIVE 135023 . 135803) (INIT.CURSOR 135805 . 136702) (
|
||||
INSERT.NODE 136704 . 137226) (INSERTLINE 137228 . 138732) (KILL.LINES 138734 . 139272) (KILLSEGMENT
|
||||
139274 . 140397) (L-CASECODE 140399 . 140560) (MOVE.BACK.TO 140562 . 140791) (MOVE.FORWARD.TO 140793
|
||||
. 141214) (MOVE.TO.LINE 141216 . 142131) (MOVE.TO.NEXT.LINE 142133 . 142403) (MOVE.TO.START.OF.WORD
|
||||
142405 . 143169) (MOVE.TO.WHEREVER 143171 . 143394) (NTH.COLUMN.OF 143396 . 143727) (
|
||||
NTH.RELATIVE.COLUMN.OF 143729 . 145029) (OVERFLOW? 145031 . 145979) (OVERFLOWLINE? 145981 . 146307) (
|
||||
PREVLINE 146309 . 147489) (PREVWORD 147491 . 149632) (PROPERTAILP 149634 . 149841) (READFROMBUF 149843
|
||||
. 152432) (RENUMBER.LINES 152434 . 152827) (RESTORE.CURSOR 152829 . 152983) (RESTOREBUF 152985 .
|
||||
155169) (RETYPE.BUFFER 155171 . 157434) (SAVE.CURSOR 157436 . 157608) (SCANBACK 157610 . 158968) (
|
||||
SCANFORWARD 158970 . 159838) (SCRATCHCONS 159840 . 160442) (SEGMENT.LENGTH 160444 . 160980) (
|
||||
SEGMENT.BIT.LENGTH 160982 . 161589) (SETLASTC 161591 . 161888) (SETTAIL? 161890 . 162706) (
|
||||
SHOW.MATCHING.PAREN 162708 . 165208) (SKIP/ZAP 165210 . 167689) (START.NEW.LINE 167691 . 168023) (
|
||||
START.OF.PARAGRAPH? 168025 . 168406) (TTADJUSTWORD 168408 . 169582) (TTBIN 169584 . 170790) (
|
||||
TTBITWIDTH 170792 . 170941) (TTCRLF 170943 . 171150) (TTCRLF.ACCOUNT 171152 . 171792) (TTDELETECHAR
|
||||
171794 . 172938) (TTDELETELINE 172940 . 174888) (TTDELETEWORD 174890 . 175558) (TTECHO.TO.FILE 175560
|
||||
. 179119) (TTGIVEHELP 179121 . 180386) (TTGIVEHELP1 180388 . 180970) (TTGIVEHELP2 180972 . 181667) (
|
||||
TTLASTLINE 181669 . 182037) (TTLOADBUF 182039 . 185533) (TTNEXTLINE 185535 . 185855) (TTNEXTNODE
|
||||
185857 . 186096) (TTNLEFT 186098 . 187325) (TTNTH 187327 . 187786) (TTNTHLINE 187788 . 188320) (
|
||||
TTPRIN1 188322 . 192135) (TTPRINSPACE 192137 . 192530) (TTPRIN1COMMENT 192532 . 192856) (TTPRIN2
|
||||
192858 . 195177) (TTPROMPTCHAR 195179 . 196075) (TTRUBOUT 196077 . 197040) (TTUNREADBUF 197042 .
|
||||
197933) (TTWAITFORINPUT 197935 . 202143) (TTYINSTRING 202145 . 203104) (TYPE.BUFFER 203106 . 204858) (
|
||||
U-CASECODE 204860 . 205019) (U/L-CASE 205021 . 207619)) (207776 217135 (TTRATOM 207786 . 208230) (
|
||||
TTREADLIST 208232 . 208599) (TTSKIPSEPR 208601 . 208975) (TTSKREAD 208977 . 213617) (TTYIN.READ 213619
|
||||
. 217133)) (217182 237226 (FIND.MATCHING.WORD 217192 . 217720) (TTCOMPLETEWORD 217722 . 232150) (
|
||||
WORD.MATCHES.BUFFER 232152 . 233712) (TTYIN.SHOW.?ALTERNATIVES 233714 . 237224)) (237260 255570 (
|
||||
DO?CMD 237270 . 243172) (TTYIN.PRINTARGS 243174 . 254032) (TTYIN.READ?=ARGS 254034 . 254815) (
|
||||
DO?CMD.ERRORHANDLER 254817 . 255568)) (255604 263677 (BEEP 255614 . 255789) (BITBLT.DELETE 255791 .
|
||||
256438) (BITBLT.ERASE 256440 . 256625) (BITBLT.INSERT 256627 . 256938) (DO.CRLF 256940 . 257259) (
|
||||
DO.DELETE.LINES 257261 . 258305) (DO.INSERT.LINE 258307 . 260241) (DO.LF 260243 . 260409) (
|
||||
ERASE.TO.END.OF.LINE 260411 . 260736) (ERASE.TO.END.OF.PAGE 260738 . 261343) (INSERT.TEXT 261345 .
|
||||
261849) (TTDELSECTION 261851 . 262149) (TTADJUSTWIDTH 262151 . 263015) (TTINSERTSECTION 263017 .
|
||||
263356) (TTSETCURSOR 263358 . 263675)) (263712 268843 (TTYINBUFFERDEVICE 263722 . 265038) (
|
||||
TTYINBUFFERSTREAM 265040 . 265956) (TTYINBUFFERBIN 265958 . 266494) (TTYINBUFFERPEEK 266496 . 266974)
|
||||
(TTYINBUFFERREADP 266976 . 267231) (TTYINBUFFEREOFP 267233 . 267485) (TTYINBUFFERBACKPTR 267487 .
|
||||
268039) (TTYINWORDRDTBL 268041 . 268841)) (269004 294561 (DO.MOUSE 269014 . 271771) (
|
||||
DO.SHIFTED.SELECTION 271773 . 282212) (COPY.SEGMENT 282214 . 282418) (DELETE.LONG.SEGMENT 282420 .
|
||||
282779) (DELETE.LONG.SEGMENT1 282781 . 285257) (INVERT.LONG.SEGMENT 285259 . 286288) (INVERT.SEGMENT
|
||||
286290 . 287805) (BRACKET.CURRENT.WORD 287807 . 289341) (TTBEFOREPOS 289343 . 290073) (TTNEXTPOS
|
||||
290075 . 290783) (TTRACKMOUSE 290785 . 294559)) (294705 300078 (SETREADFN 294715 . 295193) (
|
||||
TTYINENTRYFN 295195 . 295620) (TTYINREADP 295622 . 296204) (TTYINREAD 296206 . 297600) (TTYINFIX
|
||||
297602 . 298801) (CHARMACRO? 298803 . 299370) (TTYINMETA 299372 . 299500) (TTYIN.LASTINPUT 299502 .
|
||||
300076)) (300079 308348 (TTYINEDIT 300089 . 302206) (SIMPLETEXTEDIT 302208 . 305252) (
|
||||
SET.TTYINEDIT.WINDOW 305254 . 306405) (TTYIN.PPTOFILE 306407 . 308346)) (308406 308583 (
|
||||
MAKE-TTSCRATCHFILE 308416 . 308581)) (308730 309863 (TTYIN.SCRATCHFILE 308740 . 309186) (\TTYIN.RPEOF
|
||||
309188 . 309861)) (310075 313709 (TTYINPROMPTFORWORD 310085 . 313707)))))
|
||||
(FILEMAP (NIL (7671 207602 (TTYIN 7681 . 20328) (TTYIN.SETUP 20330 . 23406) (TTYIN.CLEANUP 23408 .
|
||||
24236) (TTYIN1 24238 . 51122) (TTYIN1RESTART 51124 . 52388) (TTYIN.FINISH 52390 . 61807) (
|
||||
TTYIN.BALANCE 61809 . 62935) (ADDCHAR 62937 . 65123) (TTMAKECOMPLEXCHAR 65125 . 65599) (ADDNAKEDCHAR
|
||||
65601 . 67111) (TTADDTAB 67113 . 68048) (ADJUSTLINE 68050 . 81961) (ADJUSTLINE.AND.RESTORE 81963 .
|
||||
82401) (AT.END.OF.SCREEN 82403 . 82691) (AT.END.OF.TEXT 82693 . 83148) (AUTOCR? 83150 . 83624) (
|
||||
BACKSKREAD 83626 . 88211) (BACKWARD.DELETE.TO 88213 . 88395) (BREAKLINE 88397 . 90664) (BUFTAILP 90666
|
||||
. 90984) (CHECK.MARGIN 90986 . 91609) (CLEAR.LINE? 91611 . 91904) (CURRENT.WORD 91906 . 94306) (
|
||||
DELETE.TO.END 94308 . 95027) (DELETELINE 95029 . 97986) (DELETETO 97988 . 99810) (DELETETO1 99812 .
|
||||
101155) (DO.EDIT.COMMAND 101157 . 118476) (DO.EDIT.PP 118478 . 121140) (TTDOTABS 121142 . 122512) (
|
||||
EDITCOLUMN 122514 . 122970) (EDITNUMBERP 122972 . 123203) (END.DELETE.MODE 123205 . 123722) (ENDREAD?
|
||||
123724 . 126159) (FIND.LINE 126161 . 127697) (FIND.LINE.BREAK 127699 . 128369) (FIND.MATCHING.QUOTE
|
||||
128371 . 129216) (FIND.NEXT.WORD 129218 . 130597) (FIND.NON.SPACE 130599 . 130872) (FIND.START.OF.WORD
|
||||
130874 . 131237) (FORWARD.DELETE.TO 131239 . 133461) (GO.TO.ADDRESSING 133463 . 134419) (
|
||||
GO.TO.FREELINE 134421 . 135002) (GO.TO.RELATIVE 135004 . 135784) (INIT.CURSOR 135786 . 136683) (
|
||||
INSERT.NODE 136685 . 137207) (INSERTLINE 137209 . 138713) (KILL.LINES 138715 . 139253) (KILLSEGMENT
|
||||
139255 . 140378) (L-CASECODE 140380 . 140541) (MOVE.BACK.TO 140543 . 140772) (MOVE.FORWARD.TO 140774
|
||||
. 141195) (MOVE.TO.LINE 141197 . 142112) (MOVE.TO.NEXT.LINE 142114 . 142384) (MOVE.TO.START.OF.WORD
|
||||
142386 . 143150) (MOVE.TO.WHEREVER 143152 . 143375) (NTH.COLUMN.OF 143377 . 143708) (
|
||||
NTH.RELATIVE.COLUMN.OF 143710 . 145010) (OVERFLOW? 145012 . 145960) (OVERFLOWLINE? 145962 . 146288) (
|
||||
PREVLINE 146290 . 147470) (PREVWORD 147472 . 149613) (PROPERTAILP 149615 . 149822) (READFROMBUF 149824
|
||||
. 152413) (RENUMBER.LINES 152415 . 152808) (RESTORE.CURSOR 152810 . 152964) (RESTOREBUF 152966 .
|
||||
155150) (RETYPE.BUFFER 155152 . 157415) (SAVE.CURSOR 157417 . 157589) (SCANBACK 157591 . 158949) (
|
||||
SCANFORWARD 158951 . 159819) (SCRATCHCONS 159821 . 160423) (SEGMENT.LENGTH 160425 . 160961) (
|
||||
SEGMENT.BIT.LENGTH 160963 . 161570) (SETLASTC 161572 . 161869) (SETTAIL? 161871 . 162687) (
|
||||
SHOW.MATCHING.PAREN 162689 . 165189) (SKIP/ZAP 165191 . 167670) (START.NEW.LINE 167672 . 168004) (
|
||||
START.OF.PARAGRAPH? 168006 . 168387) (TTADJUSTWORD 168389 . 169563) (TTBIN 169565 . 170771) (
|
||||
TTBITWIDTH 170773 . 170922) (TTCRLF 170924 . 171131) (TTCRLF.ACCOUNT 171133 . 171773) (TTDELETECHAR
|
||||
171775 . 172919) (TTDELETELINE 172921 . 174869) (TTDELETEWORD 174871 . 175539) (TTECHO.TO.FILE 175541
|
||||
. 179100) (TTGIVEHELP 179102 . 180367) (TTGIVEHELP1 180369 . 180951) (TTGIVEHELP2 180953 . 181648) (
|
||||
TTLASTLINE 181650 . 182018) (TTLOADBUF 182020 . 185514) (TTNEXTLINE 185516 . 185836) (TTNEXTNODE
|
||||
185838 . 186077) (TTNLEFT 186079 . 187306) (TTNTH 187308 . 187767) (TTNTHLINE 187769 . 188301) (
|
||||
TTPRIN1 188303 . 192116) (TTPRINSPACE 192118 . 192511) (TTPRIN1COMMENT 192513 . 192837) (TTPRIN2
|
||||
192839 . 195158) (TTPROMPTCHAR 195160 . 196056) (TTRUBOUT 196058 . 197021) (TTUNREADBUF 197023 .
|
||||
197914) (TTWAITFORINPUT 197916 . 202124) (TTYINSTRING 202126 . 203085) (TYPE.BUFFER 203087 . 204839) (
|
||||
U-CASECODE 204841 . 205000) (U/L-CASE 205002 . 207600)) (207757 217116 (TTRATOM 207767 . 208211) (
|
||||
TTREADLIST 208213 . 208580) (TTSKIPSEPR 208582 . 208956) (TTSKREAD 208958 . 213598) (TTYIN.READ 213600
|
||||
. 217114)) (217163 237207 (FIND.MATCHING.WORD 217173 . 217701) (TTCOMPLETEWORD 217703 . 232131) (
|
||||
WORD.MATCHES.BUFFER 232133 . 233693) (TTYIN.SHOW.?ALTERNATIVES 233695 . 237205)) (237241 255551 (
|
||||
DO?CMD 237251 . 243153) (TTYIN.PRINTARGS 243155 . 254013) (TTYIN.READ?=ARGS 254015 . 254796) (
|
||||
DO?CMD.ERRORHANDLER 254798 . 255549)) (255585 263658 (BEEP 255595 . 255770) (BITBLT.DELETE 255772 .
|
||||
256419) (BITBLT.ERASE 256421 . 256606) (BITBLT.INSERT 256608 . 256919) (DO.CRLF 256921 . 257240) (
|
||||
DO.DELETE.LINES 257242 . 258286) (DO.INSERT.LINE 258288 . 260222) (DO.LF 260224 . 260390) (
|
||||
ERASE.TO.END.OF.LINE 260392 . 260717) (ERASE.TO.END.OF.PAGE 260719 . 261324) (INSERT.TEXT 261326 .
|
||||
261830) (TTDELSECTION 261832 . 262130) (TTADJUSTWIDTH 262132 . 262996) (TTINSERTSECTION 262998 .
|
||||
263337) (TTSETCURSOR 263339 . 263656)) (263693 268824 (TTYINBUFFERDEVICE 263703 . 265019) (
|
||||
TTYINBUFFERSTREAM 265021 . 265937) (TTYINBUFFERBIN 265939 . 266475) (TTYINBUFFERPEEK 266477 . 266955)
|
||||
(TTYINBUFFERREADP 266957 . 267212) (TTYINBUFFEREOFP 267214 . 267466) (TTYINBUFFERBACKPTR 267468 .
|
||||
268020) (TTYINWORDRDTBL 268022 . 268822)) (268985 294542 (DO.MOUSE 268995 . 271752) (
|
||||
DO.SHIFTED.SELECTION 271754 . 282193) (COPY.SEGMENT 282195 . 282399) (DELETE.LONG.SEGMENT 282401 .
|
||||
282760) (DELETE.LONG.SEGMENT1 282762 . 285238) (INVERT.LONG.SEGMENT 285240 . 286269) (INVERT.SEGMENT
|
||||
286271 . 287786) (BRACKET.CURRENT.WORD 287788 . 289322) (TTBEFOREPOS 289324 . 290054) (TTNEXTPOS
|
||||
290056 . 290764) (TTRACKMOUSE 290766 . 294540)) (294686 300059 (SETREADFN 294696 . 295174) (
|
||||
TTYINENTRYFN 295176 . 295601) (TTYINREADP 295603 . 296185) (TTYINREAD 296187 . 297581) (TTYINFIX
|
||||
297583 . 298782) (CHARMACRO? 298784 . 299351) (TTYINMETA 299353 . 299481) (TTYIN.LASTINPUT 299483 .
|
||||
300057)) (300060 308329 (TTYINEDIT 300070 . 302187) (SIMPLETEXTEDIT 302189 . 305233) (
|
||||
SET.TTYINEDIT.WINDOW 305235 . 306386) (TTYIN.PPTOFILE 306388 . 308327)) (308387 308564 (
|
||||
MAKE-TTSCRATCHFILE 308397 . 308562)) (308711 309844 (TTYIN.SCRATCHFILE 308721 . 309167) (\TTYIN.RPEOF
|
||||
309169 . 309842)) (310056 313690 (TTYINPROMPTFORWORD 310066 . 313688)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
Reference in New Issue
Block a user