github.com/Interlisp.medley
1
0
Fork 0
mirror of synced 2026-01-12 00:42:56 +00:00
Code Issues Projects Releases Wiki Activity

fix oklibrary and use to not fail when file has been renamed (#842)

Browse Source
This commit is contained in:
Larry Masinter 2022-07-17 05:55:03 -07:00 committed by GitHub
parent 6ff047828e
commit c437b6c3bb
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
10 changed files with 413 additions and 429 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
internal/MEDLEY-UTILS
View File

@ -1,10 +1,10 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10)
(FILECREATED "25-Jun-2022 17:17:53" |{DSK}<home>larry>medley>internal>MEDLEY-UTILS.;4| 15853
(FILECREATED "16-Jul-2022 22:08:34" |{DSK}<home>larry>medley>internal>MEDLEY-UTILS.;2| 15771
:CHANGES-TO (FNS PICK)
:CHANGES-TO (FNS MAKE-FULLER-DB)
:PREVIOUS-DATE "25-Jun-2022 10:57:30" |{DSK}<home>larry>medley>internal>MEDLEY-UTILS.;3|)
:PREVIOUS-DATE "25-Jun-2022 17:17:53" |{DSK}<home>larry>medley>internal>MEDLEY-UTILS.;1|)
(PRETTYCOMPRINT MEDLEY-UTILSCOMS)
@ -107,11 +107,13 @@
(HELP))))
(MAKE-FULLER-DB
(LAMBDA NIL (* \; "Edited 20-Jun-2022 17:23 by larry")
(LAMBDA NIL (* \; "Edited 16-Jul-2022 22:07 by larry")
(* \; "Edited 20-Jun-2022 17:23 by larry")
(FILESLOAD (SOURCE)
FILESETS)
(DRIBBLE (MEDLEYDIR "tmp" "fuller.dribble" T T))
(DOFILESLOAD (APPEND OKSOURCES OKLIBRARY OKLISPUSERS OKINTERNAL))
(DOFILESLOAD (SUBSET (APPEND OKSOURCES OKLIBRARY OKLISPUSERS OKINTERNAL)
'FINDFILE))
(GATHER-INFO 'ALL)
(MASTERSCOPE '(WHO CALLS XYZZY))
(DUMPDATABASE NIL (MKATOM (MEDLEYDIR "tmp" "fuller.database" T T)))
@ -153,13 +155,10 @@
(RPAQQ OKSOURCES (RENAMEFNS VMEM READSYS CASH-FILE HASH-FILE MEDLEYDIR MAKEINIT))
(RPAQQ OKLIBRARY
(POSTSCRIPTSTREAM CHATTERMINAL DMCHAT CHAT PRESS TEDITDCL PCTREE TEXTOFD TEDITCOMMAND
TEDITSCREEN TEDITABBREV TEDITLOOKS TEDITFIND TEDITHISTORY TEDITFILE TEDITWINDOW
TEDITSELECTION READNUMBER EDITBITMAP IMAGEOBJ TFBRAVO TEDITHCPY TEDITPAGE TEDITMENU
TEDITFNKEYS TEDIT HRULE TEDITCHAT TABLEBROWSER FILEBROWSER GRAPHER SPY WHERE-IS
COPYFILES MSANALYZE MSPARSE MSCOMMON MASTERSCOPE UNIXCOMM UNIXPRINT UNICODE HASH
CLIPBOARD UNIXCHAT VT100KP VTCHAT SKETCH SKETCHBMELT SCALEBITMAP SKETCHOBJ SKETCHEDIT
SKETCHELEMENTS SKETCHOPS MATMULT SAMEDIR))
(POSTSCRIPTSTREAM CHATTERMINAL DMCHAT CHAT PRESS READNUMBER EDITBITMAP IMAGEOBJ TEDIT HRULE
TABLEBROWSER FILEBROWSER GRAPHER SPY WHERE-IS COPYFILES MSANALYZE MSPARSE MSCOMMON
MASTERSCOPE UNIXCOMM UNIXPRINT UNICODE HASH CLIPBOARD UNIXCHAT VT100KP VTCHAT SKETCH
SKETCHBMELT SCALEBITMAP SKETCHOBJ SKETCHEDIT SKETCHELEMENTS SKETCHOPS MATMULT SAMEDIR))
(RPAQQ OKLISPUSERS (THINFILES ISO8859IO DINFO HELPSYS MODERNIZE WHEELSCROLL PRETTYFILEINDEX WHO-LINE
BACKGROUND-YIELD OBJECTWINDOW REGIONMANAGER COMPARETEXT EXAMINEDEFS
@ -288,10 +287,9 @@
(RPAQ? BADFILES )
(DEFCOMMAND "pick" (FIRST . REST)
(PICK FIRST REST))
(DEFCOMMAND "pick" (FIRST . REST) (PICK FIRST REST))
(DECLARE\: DONTCOPY
(FILEMAP (NIL (724 8547 (GATHER-INFO 734 . 6144) (MAKE-FULLER-DB 6146 . 6684) (MEDLEY-FIX-LINKS 6686
. 7083) (MEDLEY-FIX-DATES 7085 . 7327) (PICK 7329 . 8545)) (9823 11616 (MAKE-EXPORTS-ALL 9833 . 10792
) (MAKE-WHEREIS-HASH 10794 . 11614)) (11651 15716 (HCFILES 11661 . 15401) (BADFILE 15403 . 15714)))))
(FILEMAP (NIL (734 8709 (GATHER-INFO 744 . 6154) (MAKE-FULLER-DB 6156 . 6846) (MEDLEY-FIX-LINKS 6848
. 7245) (MEDLEY-FIX-DATES 7247 . 7489) (PICK 7491 . 8707)) (9748 11541 (MAKE-EXPORTS-ALL 9758 . 10717
) (MAKE-WHEREIS-HASH 10719 . 11539)) (11576 15641 (HCFILES 11586 . 15326) (BADFILE 15328 . 15639)))))
STOP

BIN
internal/MEDLEY-UTILS.LCOM
View File

Binary file not shown.

662
library/TEXEC
View File

@ -1,12 +1,12 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10)
(FILECREATED " 1-Feb-2022 09:24:13" |{DSK}<Users>kaplan>Local>medley3.5>my-medley>library>TEXEC.;2| 195948
(FILECREATED "16-Jul-2022 23:42:20" 
|{DSK}<Users>kaplan>Local>medley3.5>working-medley>library>TEXEC.;3| 196212
:CHANGES-TO (VARS TEXECCOMS TEXEC.ICON TEXEC.ICON.MASK TEXEC.TITLED.ICON.TEMPLATE)
(FNS TEXEC.OPENTEXTSTREAM TEXEC.INCLUDE)
:PREVIOUS-DATE "30-May-91 19:21:21"
|{DSK}<Users>kaplan>Local>medley3.5>my-medley>library>TEXEC.;1|)
:PREVIOUS-DATE " 1-Feb-2022 09:24:13"
|{DSK}<Users>kaplan>Local>medley3.5>working-medley>library>TEXEC.;2|)
; Copyright (c) 1985, 1900, 1986-1991 by Venue & Xerox Corporation.
@ -17,7 +17,7 @@
((COMS (* \;
 "To support development and compilation")
(DECLARE\: DONTCOPY EVAL@COMPILE (FILES (LOADCOMP)
ATERM TEDITDCL)))
ATERM TEDIT-DCL)))
(COMS
(* |;;| "THE FILLBUFFER REPLACEMENT CODE")
@ -57,7 +57,7 @@
(DECLARE\: DONTCOPY EVAL@COMPILE
(FILESLOAD (LOADCOMP)
ATERM TEDITDCL)
ATERM TEDIT-DCL)
)
@ -2833,314 +2833,314 @@
"Starts TEXEC in a new window."))
(READVARS-FROM-STRINGS '(TEXEC.ICON TEXEC.ICON.MASK TEXEC.TITLED.ICON.TEMPLATE)
" ( {(READBITMAP)(64 77
\"@@@@@@@@@@@@@@@@\"
\"@@@@@@@@@@@@@@@@\"
\"@@@@@@@@@@@@@@@@\"
\"@@@@@@@@@@@@@@@@\"
\"@@@@@@@@@@@@@@@@\"
\"@@@@@@@@@@@@@@@@\"
\"@@@@@@@@@@@@@@@@\"
\"@@@@@@@@@@@@@@@@\"
\"@@@@@@@@@@@@@@@@\"
\"@@@@@@@@@@@@@@@@\"
\"@@@@@@@@@@@@@@@@\"
\"@@@@@@@@@@@@@@@@\"
\"@@@@@@@@@@@@@@@@\"
\"@@@@@@@@@@@@@@@@\"
\"@@@@@@@@@@@@@@@@\"
\"@@@@@@@@@@@@@@@@\"
\"@@@@@@@@@@@@@@@@\"
\"@@@@@@@@@@@@@@@@\"
\"@@@@@@@@@@@@@@@@\"
\"@@@@@@@@@@@@@@@@\"
\"@@@@@@@@@@@@@@@@\"
\"@@@@@OH@@@@@@@@@\"
\"@@@@COL@@@@@@@@@\"
\"@@@@CON@@@@@@@@@\"
\"@@@@GHC@@@@@@@@@\"
\"@@@@O@AH@@@@@@@@\"
\"@@@AKBEL@@@@@@@@\"
\"@@@AC@BD@@@@@@@@\"
\"@@@AAHBD@@@@@@@@\"
\"@@@A@LBD@@@@@@@@\"
\"@@@A@NDD@@@@@@@@\"
\"@@@AGOOL@@@@@@@@\"
\"@@@AHFDF@@@@@@@@\"
\"@@@AHBDB@@@@@@@@\"
\"@@@A@BDC@@@@@@@@\"
\"@@@A@AHA@@@@@@@@\"
\"@@@A@AIAH@@@@@@@\"
\"@@@AA@I@H@@@@@@@\"
\"@@@CA@HHH@@@@@@@\"
\"@@@BA@HHHC@@@@@@\"
\"@@@CA@I@DB@@@@@@\"
\"@@@AAH@HBF@@@@@@\"
\"@@@AHF@HNL@@@@@@\"
\"@@@ALC@GIL@@@@@@\"
\"@@@ADNLC@H@@@@@@\"
\"OOOOOHGOMOOOH@@@\"
\"O@@@@HDDGH@@O@@@\"
\"ON@@@GHC@F@@AN@@\"
\"LOL@@@@AOOH@@CL@\"
\"LAOH@@@@@@@@@@GH\"
\"L@COOOOOOOOOOOOO\"
\"L@@GOOOOOOOOOOOO\"
\"L@@CH@@@@@@@@@@C\"
\"L@@CH@@@@@@@@@@C\"
\"L@@CH@@@@@@@@@@C\"
\"L@@CH@@@@@@@@@@C\"
\"L@@CH@@@@@@@@@@C\"
\"L@@CH@@@@@@@@@@C\"
\"L@@CH@@@@@@@@@@C\"
\"L@@CH@@@@@@@@@@C\"
\"L@@CH@@@@@@@@@@C\"
\"L@@CH@@@@@@@@@@C\"
\"L@@CH@@@@@@@@@@C\"
\"L@@CH@@@@@@@@@@C\"
\"L@@CH@@@@@@@@@@C\"
\"L@@CH@@@@@@@@@@C\"
\"L@@CH@@@@@@@@@@C\"
\"L@@CH@@@@@@@@@@C\"
\"O@@CH@@@@@@@@@@C\"
\"ON@CH@@@@@@@@@@C\"
\"LOLCH@@@@@@@@@@C\"
\"LAOKH@@@@@@@@@@C\"
\"@@COOOOOOOOOOOOO\"
\"@@@GH@@@@@@@@@@C\"
\"@@@CH@@@@@@@@@@C\"
\"@@@CH@@@@@@@@@@C\"
\"@@@AH@@@@@@@@@@C\")} {(READBITMAP)(64 77
\"OOOOOOOOOOOOOOOO\"
\"OOOOOOOOOOOOOOOO\"
\"OOOOOOOOOOOOOOOO\"
\"OOOOOOOOOOOOOOOO\"
\"OOOOOOOOOOOOOOOO\"
\"OOOOOOOOOOOOOOOO\"
\"OOOOOOOOOOOOOOOO\"
\"OOOOOOOOOOOOOOOO\"
\"OOOOOOOOOOOOOOOO\"
\"OOOOOOOOOOOOOOOO\"
\"OOOOOOOOOOOOOOOO\"
\"OOOOOOOOOOOOOOOO\"
\"OOOOOOOOOOOOOOOO\"
\"OOOOOOOOOOOOOOOO\"
\"OOOOOOOOOOOOOOOO\"
\"OOOOOOOOOOOOOOOO\"
\"OOOOOOOOOOOOOOOO\"
\"OOOOOOOOOOOOOOOO\"
\"OOOOOOOOOOOOOOOO\"
\"OOOOOOOOOOOOOOOO\"
\"@@@@@@@@@@@@@@@@\"
\"@@@@@OH@@@@@@@@@\"
\"@@@@COL@@@@@@@@@\"
\"@@@@CON@@@@@@@@@\"
\"@@@@GOO@@@@@@@@@\"
\"@@@@OOOH@@@@@@@@\"
\"@@@AOOOL@@@@@@@@\"
\"@@@AOOOL@@@@@@@@\"
\"@@@AOOOL@@@@@@@@\"
\"@@@AOOOL@@@@@@@@\"
\"@@@AOOOL@@@@@@@@\"
\"@@@AOOOL@@@@@@@@\"
\"@@@AOOON@@@@@@@@\"
\"@@@AOOON@@@@@@@@\"
\"@@@AOOOO@@@@@@@@\"
\"@@@AOOOO@@@@@@@@\"
\"@@@AOOOOH@@@@@@@\"
\"@@@AOOOOH@@@@@@@\"
\"@@@COOOOH@@@@@@@\"
\"@@@COOOOHC@@@@@@\"
\"@@@COOOOLB@@@@@@\"
\"@@@AOOOONF@@@@@@\"
\"@@@AOOOONL@@@@@@\"
\"@@@AOOOOOL@@@@@@\"
\"@@@AOOOOOH@@@@@@\"
\"OOOOOOOOOOOOH@@@\"
\"OOOOOOOOOOOOO@@@\"
\"OOOOOOOOOOOOON@@\"
\"OOOOOOOOOOOOOOL@\"
\"OOOOOOOOOOOOOOOH\"
\"OOOOOOOOOOOOOOOO\"
\"OOOOOOOOOOOOOOOO\"
\"OOOOOOOOOOOOOOOO\"
\"OOOOOOOOOOOOOOOO\"
\"OOOOOOOOOOOOOOOO\"
\"OOOOOOOOOOOOOOOO\"
\"OOOOOOOOOOOOOOOO\"
\"OOOOOOOOOOOOOOOO\"
\"OOOOOOOOOOOOOOOO\"
\"OOOOOOOOOOOOOOOO\"
\"OOOOOOOOOOOOOOOO\"
\"OOOOOOOOOOOOOOOO\"
\"OOOOOOOOOOOOOOOO\"
\"OOOOOOOOOOOOOOOO\"
\"OOOOOOOOOOOOOOOO\"
\"OOOOOOOOOOOOOOOO\"
\"OOOOOOOOOOOOOOOO\"
\"OOOOOOOOOOOOOOOO\"
\"OOOOOOOOOOOOOOOO\"
\"OOOOOOOOOOOOOOOO\"
\"LOOOOOOOOOOOOOOO\"
\"LAOOOOOOOOOOOOOO\"
\"@@COOOOOOOOOOOOO\"
\"@@@GH@@@@@@@@@@C\"
\"@@@CH@@@@@@@@@@C\"
\"@@@CH@@@@@@@@@@C\"
\"@@@AH@@@@@@@@@@C\")} ( {(READBITMAP)(64 77
\"@@@@@@@@@@@@@@@@\"
\"@@@@@@@@@@@@@@@@\"
\"@@@@@@@@@@@@@@@@\"
\"@@@@@@@@@@@@@@@@\"
\"@@@@@@@@@@@@@@@@\"
\"@@@@@@@@@@@@@@@@\"
\"@@@@@@@@@@@@@@@@\"
\"@@@@@@@@@@@@@@@@\"
\"@@@@@@@@@@@@@@@@\"
\"@@@@@@@@@@@@@@@@\"
\"@@@@@@@@@@@@@@@@\"
\"@@@@@@@@@@@@@@@@\"
\"@@@@@@@@@@@@@@@@\"
\"@@@@@@@@@@@@@@@@\"
\"@@@@@@@@@@@@@@@@\"
\"@@@@@@@@@@@@@@@@\"
\"@@@@@@@@@@@@@@@@\"
\"@@@@@@@@@@@@@@@@\"
\"@@@@@@@@@@@@@@@@\"
\"@@@@@@@@@@@@@@@@\"
\"@@@@@@@@@@@@@@@@\"
\"@@@@@OH@@@@@@@@@\"
\"@@@@COL@@@@@@@@@\"
\"@@@@CON@@@@@@@@@\"
\"@@@@GHC@@@@@@@@@\"
\"@@@@O@AH@@@@@@@@\"
\"@@@AKBEL@@@@@@@@\"
\"@@@AC@BD@@@@@@@@\"
\"@@@AAHBD@@@@@@@@\"
\"@@@A@LBD@@@@@@@@\"
\"@@@A@NDD@@@@@@@@\"
\"@@@AGOOL@@@@@@@@\"
\"@@@AHFDF@@@@@@@@\"
\"@@@AHBDB@@@@@@@@\"
\"@@@A@BDC@@@@@@@@\"
\"@@@A@AHA@@@@@@@@\"
\"@@@A@AIAH@@@@@@@\"
\"@@@AA@I@H@@@@@@@\"
\"@@@CA@HHH@@@@@@@\"
\"@@@BA@HHHC@@@@@@\"
\"@@@CA@I@DB@@@@@@\"
\"@@@AAH@HBF@@@@@@\"
\"@@@AHF@HNL@@@@@@\"
\"@@@ALC@GIL@@@@@@\"
\"@@@ADNLC@H@@@@@@\"
\"OOOOOHGOMOOOH@@@\"
\"O@@@@HDDGH@@O@@@\"
\"ON@@@GHC@F@@AN@@\"
\"LOL@@@@AOOH@@CL@\"
\"LAOH@@@@@@@@@@GH\"
\"L@COOOOOOOOOOOOO\"
\"L@@GOOOOOOOOOOOO\"
\"L@@CH@@@@@@@@@@C\"
\"L@@CH@@@@@@@@@@C\"
\"L@@CH@@@@@@@@@@C\"
\"L@@CH@@@@@@@@@@C\"
\"L@@CH@@@@@@@@@@C\"
\"L@@CH@@@@@@@@@@C\"
\"L@@CH@@@@@@@@@@C\"
\"L@@CH@@@@@@@@@@C\"
\"L@@CH@@@@@@@@@@C\"
\"L@@CH@@@@@@@@@@C\"
\"L@@CH@@@@@@@@@@C\"
\"L@@CH@@@@@@@@@@C\"
\"L@@CH@@@@@@@@@@C\"
\"L@@CH@@@@@@@@@@C\"
\"L@@CH@@@@@@@@@@C\"
\"L@@CH@@@@@@@@@@C\"
\"O@@CH@@@@@@@@@@C\"
\"ON@CH@@@@@@@@@@C\"
\"LOLCH@@@@@@@@@@C\"
\"LAOKH@@@@@@@@@@C\"
\"@@COOOOOOOOOOOOO\"
\"@@@GH@@@@@@@@@@C\"
\"@@@CH@@@@@@@@@@C\"
\"@@@CH@@@@@@@@@@C\"
\"@@@AH@@@@@@@@@@C\")} {(READBITMAP)(64 77
\"OOOOOOOOOOOOOOOO\"
\"OOOOOOOOOOOOOOOO\"
\"OOOOOOOOOOOOOOOO\"
\"OOOOOOOOOOOOOOOO\"
\"OOOOOOOOOOOOOOOO\"
\"OOOOOOOOOOOOOOOO\"
\"OOOOOOOOOOOOOOOO\"
\"OOOOOOOOOOOOOOOO\"
\"OOOOOOOOOOOOOOOO\"
\"OOOOOOOOOOOOOOOO\"
\"OOOOOOOOOOOOOOOO\"
\"OOOOOOOOOOOOOOOO\"
\"OOOOOOOOOOOOOOOO\"
\"OOOOOOOOOOOOOOOO\"
\"OOOOOOOOOOOOOOOO\"
\"OOOOOOOOOOOOOOOO\"
\"OOOOOOOOOOOOOOOO\"
\"OOOOOOOOOOOOOOOO\"
\"OOOOOOOOOOOOOOOO\"
\"OOOOOOOOOOOOOOOO\"
\"@@@@@@@@@@@@@@@@\"
\"@@@@@OH@@@@@@@@@\"
\"@@@@COL@@@@@@@@@\"
\"@@@@CON@@@@@@@@@\"
\"@@@@GOO@@@@@@@@@\"
\"@@@@OOOH@@@@@@@@\"
\"@@@AOOOL@@@@@@@@\"
\"@@@AOOOL@@@@@@@@\"
\"@@@AOOOL@@@@@@@@\"
\"@@@AOOOL@@@@@@@@\"
\"@@@AOOOL@@@@@@@@\"
\"@@@AOOOL@@@@@@@@\"
\"@@@AOOON@@@@@@@@\"
\"@@@AOOON@@@@@@@@\"
\"@@@AOOOO@@@@@@@@\"
\"@@@AOOOO@@@@@@@@\"
\"@@@AOOOOH@@@@@@@\"
\"@@@AOOOOH@@@@@@@\"
\"@@@COOOOH@@@@@@@\"
\"@@@COOOOHC@@@@@@\"
\"@@@COOOOLB@@@@@@\"
\"@@@AOOOONF@@@@@@\"
\"@@@AOOOONL@@@@@@\"
\"@@@AOOOOOL@@@@@@\"
\"@@@AOOOOOH@@@@@@\"
\"OOOOOOOOOOOOH@@@\"
\"OOOOOOOOOOOOO@@@\"
\"OOOOOOOOOOOOON@@\"
\"OOOOOOOOOOOOOOL@\"
\"OOOOOOOOOOOOOOOH\"
\"OOOOOOOOOOOOOOOO\"
\"OOOOOOOOOOOOOOOO\"
\"OOOOOOOOOOOOOOOO\"
\"OOOOOOOOOOOOOOOO\"
\"OOOOOOOOOOOOOOOO\"
\"OOOOOOOOOOOOOOOO\"
\"OOOOOOOOOOOOOOOO\"
\"OOOOOOOOOOOOOOOO\"
\"OOOOOOOOOOOOOOOO\"
\"OOOOOOOOOOOOOOOO\"
\"OOOOOOOOOOOOOOOO\"
\"OOOOOOOOOOOOOOOO\"
\"OOOOOOOOOOOOOOOO\"
\"OOOOOOOOOOOOOOOO\"
\"OOOOOOOOOOOOOOOO\"
\"OOOOOOOOOOOOOOOO\"
\"OOOOOOOOOOOOOOOO\"
\"OOOOOOOOOOOOOOOO\"
\"OOOOOOOOOOOOOOOO\"
\"OOOOOOOOOOOOOOOO\"
\"LOOOOOOOOOOOOOOO\"
\"LAOOOOOOOOOOOOOO\"
\"@@COOOOOOOOOOOOO\"
\"@@@GH@@@@@@@@@@C\"
\"@@@CH@@@@@@@@@@C\"
\"@@@CH@@@@@@@@@@C\"
" ( {(READBITMAP)(64 77\
\"@@@@@@@@@@@@@@@@\"\
\"@@@@@@@@@@@@@@@@\"\
\"@@@@@@@@@@@@@@@@\"\
\"@@@@@@@@@@@@@@@@\"\
\"@@@@@@@@@@@@@@@@\"\
\"@@@@@@@@@@@@@@@@\"\
\"@@@@@@@@@@@@@@@@\"\
\"@@@@@@@@@@@@@@@@\"\
\"@@@@@@@@@@@@@@@@\"\
\"@@@@@@@@@@@@@@@@\"\
\"@@@@@@@@@@@@@@@@\"\
\"@@@@@@@@@@@@@@@@\"\
\"@@@@@@@@@@@@@@@@\"\
\"@@@@@@@@@@@@@@@@\"\
\"@@@@@@@@@@@@@@@@\"\
\"@@@@@@@@@@@@@@@@\"\
\"@@@@@@@@@@@@@@@@\"\
\"@@@@@@@@@@@@@@@@\"\
\"@@@@@@@@@@@@@@@@\"\
\"@@@@@@@@@@@@@@@@\"\
\"@@@@@@@@@@@@@@@@\"\
\"@@@@@OH@@@@@@@@@\"\
\"@@@@COL@@@@@@@@@\"\
\"@@@@CON@@@@@@@@@\"\
\"@@@@GHC@@@@@@@@@\"\
\"@@@@O@AH@@@@@@@@\"\
\"@@@AKBEL@@@@@@@@\"\
\"@@@AC@BD@@@@@@@@\"\
\"@@@AAHBD@@@@@@@@\"\
\"@@@A@LBD@@@@@@@@\"\
\"@@@A@NDD@@@@@@@@\"\
\"@@@AGOOL@@@@@@@@\"\
\"@@@AHFDF@@@@@@@@\"\
\"@@@AHBDB@@@@@@@@\"\
\"@@@A@BDC@@@@@@@@\"\
\"@@@A@AHA@@@@@@@@\"\
\"@@@A@AIAH@@@@@@@\"\
\"@@@AA@I@H@@@@@@@\"\
\"@@@CA@HHH@@@@@@@\"\
\"@@@BA@HHHC@@@@@@\"\
\"@@@CA@I@DB@@@@@@\"\
\"@@@AAH@HBF@@@@@@\"\
\"@@@AHF@HNL@@@@@@\"\
\"@@@ALC@GIL@@@@@@\"\
\"@@@ADNLC@H@@@@@@\"\
\"OOOOOHGOMOOOH@@@\"\
\"O@@@@HDDGH@@O@@@\"\
\"ON@@@GHC@F@@AN@@\"\
\"LOL@@@@AOOH@@CL@\"\
\"LAOH@@@@@@@@@@GH\"\
\"L@COOOOOOOOOOOOO\"\
\"L@@GOOOOOOOOOOOO\"\
\"L@@CH@@@@@@@@@@C\"\
\"L@@CH@@@@@@@@@@C\"\
\"L@@CH@@@@@@@@@@C\"\
\"L@@CH@@@@@@@@@@C\"\
\"L@@CH@@@@@@@@@@C\"\
\"L@@CH@@@@@@@@@@C\"\
\"L@@CH@@@@@@@@@@C\"\
\"L@@CH@@@@@@@@@@C\"\
\"L@@CH@@@@@@@@@@C\"\
\"L@@CH@@@@@@@@@@C\"\
\"L@@CH@@@@@@@@@@C\"\
\"L@@CH@@@@@@@@@@C\"\
\"L@@CH@@@@@@@@@@C\"\
\"L@@CH@@@@@@@@@@C\"\
\"L@@CH@@@@@@@@@@C\"\
\"L@@CH@@@@@@@@@@C\"\
\"O@@CH@@@@@@@@@@C\"\
\"ON@CH@@@@@@@@@@C\"\
\"LOLCH@@@@@@@@@@C\"\
\"LAOKH@@@@@@@@@@C\"\
\"@@COOOOOOOOOOOOO\"\
\"@@@GH@@@@@@@@@@C\"\
\"@@@CH@@@@@@@@@@C\"\
\"@@@CH@@@@@@@@@@C\"\
\"@@@AH@@@@@@@@@@C\")} {(READBITMAP)(64 77\
\"OOOOOOOOOOOOOOOO\"\
\"OOOOOOOOOOOOOOOO\"\
\"OOOOOOOOOOOOOOOO\"\
\"OOOOOOOOOOOOOOOO\"\
\"OOOOOOOOOOOOOOOO\"\
\"OOOOOOOOOOOOOOOO\"\
\"OOOOOOOOOOOOOOOO\"\
\"OOOOOOOOOOOOOOOO\"\
\"OOOOOOOOOOOOOOOO\"\
\"OOOOOOOOOOOOOOOO\"\
\"OOOOOOOOOOOOOOOO\"\
\"OOOOOOOOOOOOOOOO\"\
\"OOOOOOOOOOOOOOOO\"\
\"OOOOOOOOOOOOOOOO\"\
\"OOOOOOOOOOOOOOOO\"\
\"OOOOOOOOOOOOOOOO\"\
\"OOOOOOOOOOOOOOOO\"\
\"OOOOOOOOOOOOOOOO\"\
\"OOOOOOOOOOOOOOOO\"\
\"OOOOOOOOOOOOOOOO\"\
\"@@@@@@@@@@@@@@@@\"\
\"@@@@@OH@@@@@@@@@\"\
\"@@@@COL@@@@@@@@@\"\
\"@@@@CON@@@@@@@@@\"\
\"@@@@GOO@@@@@@@@@\"\
\"@@@@OOOH@@@@@@@@\"\
\"@@@AOOOL@@@@@@@@\"\
\"@@@AOOOL@@@@@@@@\"\
\"@@@AOOOL@@@@@@@@\"\
\"@@@AOOOL@@@@@@@@\"\
\"@@@AOOOL@@@@@@@@\"\
\"@@@AOOOL@@@@@@@@\"\
\"@@@AOOON@@@@@@@@\"\
\"@@@AOOON@@@@@@@@\"\
\"@@@AOOOO@@@@@@@@\"\
\"@@@AOOOO@@@@@@@@\"\
\"@@@AOOOOH@@@@@@@\"\
\"@@@AOOOOH@@@@@@@\"\
\"@@@COOOOH@@@@@@@\"\
\"@@@COOOOHC@@@@@@\"\
\"@@@COOOOLB@@@@@@\"\
\"@@@AOOOONF@@@@@@\"\
\"@@@AOOOONL@@@@@@\"\
\"@@@AOOOOOL@@@@@@\"\
\"@@@AOOOOOH@@@@@@\"\
\"OOOOOOOOOOOOH@@@\"\
\"OOOOOOOOOOOOO@@@\"\
\"OOOOOOOOOOOOON@@\"\
\"OOOOOOOOOOOOOOL@\"\
\"OOOOOOOOOOOOOOOH\"\
\"OOOOOOOOOOOOOOOO\"\
\"OOOOOOOOOOOOOOOO\"\
\"OOOOOOOOOOOOOOOO\"\
\"OOOOOOOOOOOOOOOO\"\
\"OOOOOOOOOOOOOOOO\"\
\"OOOOOOOOOOOOOOOO\"\
\"OOOOOOOOOOOOOOOO\"\
\"OOOOOOOOOOOOOOOO\"\
\"OOOOOOOOOOOOOOOO\"\
\"OOOOOOOOOOOOOOOO\"\
\"OOOOOOOOOOOOOOOO\"\
\"OOOOOOOOOOOOOOOO\"\
\"OOOOOOOOOOOOOOOO\"\
\"OOOOOOOOOOOOOOOO\"\
\"OOOOOOOOOOOOOOOO\"\
\"OOOOOOOOOOOOOOOO\"\
\"OOOOOOOOOOOOOOOO\"\
\"OOOOOOOOOOOOOOOO\"\
\"OOOOOOOOOOOOOOOO\"\
\"OOOOOOOOOOOOOOOO\"\
\"LOOOOOOOOOOOOOOO\"\
\"LAOOOOOOOOOOOOOO\"\
\"@@COOOOOOOOOOOOO\"\
\"@@@GH@@@@@@@@@@C\"\
\"@@@CH@@@@@@@@@@C\"\
\"@@@CH@@@@@@@@@@C\"\
\"@@@AH@@@@@@@@@@C\")} ( {(READBITMAP)(64 77\
\"@@@@@@@@@@@@@@@@\"\
\"@@@@@@@@@@@@@@@@\"\
\"@@@@@@@@@@@@@@@@\"\
\"@@@@@@@@@@@@@@@@\"\
\"@@@@@@@@@@@@@@@@\"\
\"@@@@@@@@@@@@@@@@\"\
\"@@@@@@@@@@@@@@@@\"\
\"@@@@@@@@@@@@@@@@\"\
\"@@@@@@@@@@@@@@@@\"\
\"@@@@@@@@@@@@@@@@\"\
\"@@@@@@@@@@@@@@@@\"\
\"@@@@@@@@@@@@@@@@\"\
\"@@@@@@@@@@@@@@@@\"\
\"@@@@@@@@@@@@@@@@\"\
\"@@@@@@@@@@@@@@@@\"\
\"@@@@@@@@@@@@@@@@\"\
\"@@@@@@@@@@@@@@@@\"\
\"@@@@@@@@@@@@@@@@\"\
\"@@@@@@@@@@@@@@@@\"\
\"@@@@@@@@@@@@@@@@\"\
\"@@@@@@@@@@@@@@@@\"\
\"@@@@@OH@@@@@@@@@\"\
\"@@@@COL@@@@@@@@@\"\
\"@@@@CON@@@@@@@@@\"\
\"@@@@GHC@@@@@@@@@\"\
\"@@@@O@AH@@@@@@@@\"\
\"@@@AKBEL@@@@@@@@\"\
\"@@@AC@BD@@@@@@@@\"\
\"@@@AAHBD@@@@@@@@\"\
\"@@@A@LBD@@@@@@@@\"\
\"@@@A@NDD@@@@@@@@\"\
\"@@@AGOOL@@@@@@@@\"\
\"@@@AHFDF@@@@@@@@\"\
\"@@@AHBDB@@@@@@@@\"\
\"@@@A@BDC@@@@@@@@\"\
\"@@@A@AHA@@@@@@@@\"\
\"@@@A@AIAH@@@@@@@\"\
\"@@@AA@I@H@@@@@@@\"\
\"@@@CA@HHH@@@@@@@\"\
\"@@@BA@HHHC@@@@@@\"\
\"@@@CA@I@DB@@@@@@\"\
\"@@@AAH@HBF@@@@@@\"\
\"@@@AHF@HNL@@@@@@\"\
\"@@@ALC@GIL@@@@@@\"\
\"@@@ADNLC@H@@@@@@\"\
\"OOOOOHGOMOOOH@@@\"\
\"O@@@@HDDGH@@O@@@\"\
\"ON@@@GHC@F@@AN@@\"\
\"LOL@@@@AOOH@@CL@\"\
\"LAOH@@@@@@@@@@GH\"\
\"L@COOOOOOOOOOOOO\"\
\"L@@GOOOOOOOOOOOO\"\
\"L@@CH@@@@@@@@@@C\"\
\"L@@CH@@@@@@@@@@C\"\
\"L@@CH@@@@@@@@@@C\"\
\"L@@CH@@@@@@@@@@C\"\
\"L@@CH@@@@@@@@@@C\"\
\"L@@CH@@@@@@@@@@C\"\
\"L@@CH@@@@@@@@@@C\"\
\"L@@CH@@@@@@@@@@C\"\
\"L@@CH@@@@@@@@@@C\"\
\"L@@CH@@@@@@@@@@C\"\
\"L@@CH@@@@@@@@@@C\"\
\"L@@CH@@@@@@@@@@C\"\
\"L@@CH@@@@@@@@@@C\"\
\"L@@CH@@@@@@@@@@C\"\
\"L@@CH@@@@@@@@@@C\"\
\"L@@CH@@@@@@@@@@C\"\
\"O@@CH@@@@@@@@@@C\"\
\"ON@CH@@@@@@@@@@C\"\
\"LOLCH@@@@@@@@@@C\"\
\"LAOKH@@@@@@@@@@C\"\
\"@@COOOOOOOOOOOOO\"\
\"@@@GH@@@@@@@@@@C\"\
\"@@@CH@@@@@@@@@@C\"\
\"@@@CH@@@@@@@@@@C\"\
\"@@@AH@@@@@@@@@@C\")} {(READBITMAP)(64 77\
\"OOOOOOOOOOOOOOOO\"\
\"OOOOOOOOOOOOOOOO\"\
\"OOOOOOOOOOOOOOOO\"\
\"OOOOOOOOOOOOOOOO\"\
\"OOOOOOOOOOOOOOOO\"\
\"OOOOOOOOOOOOOOOO\"\
\"OOOOOOOOOOOOOOOO\"\
\"OOOOOOOOOOOOOOOO\"\
\"OOOOOOOOOOOOOOOO\"\
\"OOOOOOOOOOOOOOOO\"\
\"OOOOOOOOOOOOOOOO\"\
\"OOOOOOOOOOOOOOOO\"\
\"OOOOOOOOOOOOOOOO\"\
\"OOOOOOOOOOOOOOOO\"\
\"OOOOOOOOOOOOOOOO\"\
\"OOOOOOOOOOOOOOOO\"\
\"OOOOOOOOOOOOOOOO\"\
\"OOOOOOOOOOOOOOOO\"\
\"OOOOOOOOOOOOOOOO\"\
\"OOOOOOOOOOOOOOOO\"\
\"@@@@@@@@@@@@@@@@\"\
\"@@@@@OH@@@@@@@@@\"\
\"@@@@COL@@@@@@@@@\"\
\"@@@@CON@@@@@@@@@\"\
\"@@@@GOO@@@@@@@@@\"\
\"@@@@OOOH@@@@@@@@\"\
\"@@@AOOOL@@@@@@@@\"\
\"@@@AOOOL@@@@@@@@\"\
\"@@@AOOOL@@@@@@@@\"\
\"@@@AOOOL@@@@@@@@\"\
\"@@@AOOOL@@@@@@@@\"\
\"@@@AOOOL@@@@@@@@\"\
\"@@@AOOON@@@@@@@@\"\
\"@@@AOOON@@@@@@@@\"\
\"@@@AOOOO@@@@@@@@\"\
\"@@@AOOOO@@@@@@@@\"\
\"@@@AOOOOH@@@@@@@\"\
\"@@@AOOOOH@@@@@@@\"\
\"@@@COOOOH@@@@@@@\"\
\"@@@COOOOHC@@@@@@\"\
\"@@@COOOOLB@@@@@@\"\
\"@@@AOOOONF@@@@@@\"\
\"@@@AOOOONL@@@@@@\"\
\"@@@AOOOOOL@@@@@@\"\
\"@@@AOOOOOH@@@@@@\"\
\"OOOOOOOOOOOOH@@@\"\
\"OOOOOOOOOOOOO@@@\"\
\"OOOOOOOOOOOOON@@\"\
\"OOOOOOOOOOOOOOL@\"\
\"OOOOOOOOOOOOOOOH\"\
\"OOOOOOOOOOOOOOOO\"\
\"OOOOOOOOOOOOOOOO\"\
\"OOOOOOOOOOOOOOOO\"\
\"OOOOOOOOOOOOOOOO\"\
\"OOOOOOOOOOOOOOOO\"\
\"OOOOOOOOOOOOOOOO\"\
\"OOOOOOOOOOOOOOOO\"\
\"OOOOOOOOOOOOOOOO\"\
\"OOOOOOOOOOOOOOOO\"\
\"OOOOOOOOOOOOOOOO\"\
\"OOOOOOOOOOOOOOOO\"\
\"OOOOOOOOOOOOOOOO\"\
\"OOOOOOOOOOOOOOOO\"\
\"OOOOOOOOOOOOOOOO\"\
\"OOOOOOOOOOOOOOOO\"\
\"OOOOOOOOOOOOOOOO\"\
\"OOOOOOOOOOOOOOOO\"\
\"OOOOOOOOOOOOOOOO\"\
\"OOOOOOOOOOOOOOOO\"\
\"OOOOOOOOOOOOOOOO\"\
\"LOOOOOOOOOOOOOOO\"\
\"LAOOOOOOOOOOOOOO\"\
\"@@COOOOOOOOOOOOO\"\
\"@@@GH@@@@@@@@@@C\"\
\"@@@CH@@@@@@@@@@C\"\
\"@@@CH@@@@@@@@@@C\"\
\"@@@AH@@@@@@@@@@C\")} (8 30 60 60)))
")
@ -3160,21 +3160,21 @@
(RPAQ? TEXEC.BUFFERLIMIT 10000)
(PUTPROPS TEXEC COPYRIGHT ("Venue & Xerox Corporation" 1985 1900 1986 1987 1988 1989 1990 1991))
(DECLARE\: DONTCOPY
(FILEMAP (NIL (3269 182029 (TEXEC.BACKSKREAD 3279 . 7903) (TEXEC.OPENTEXTSTREAM 7905 . 9963) (
TEXEC.DEFAULT.MENUFN 9965 . 14519) (TEXEC.DO?CMD 14521 . 19839) (TEXEC.CREATEMENU 19841 . 20299) (
TEXEC.GET 20301 . 29136) (TEXEC.INCLUDE 29138 . 42523) (TEXEC.FIND.FORWARD 42525 . 55413) (
TEXEC.FIND.BACKWARD 55415 . 68917) (TEDIT.FIND.BACKWARD 68919 . 74396) (TEDIT.BASICFIND.BACKWARD 74398
. 79052) (TEXEC.MENU.WHENHELDFN 79054 . 79713) (TEXEC.SHRINK.ICONCREATE 79715 . 82518) (
TEXEC.FILLBUFFER 82520 . 98954) (TEXEC.FILLBUFFER.TCLASS 98956 . 105296) (TEXEC.CHSELPENDING 105298 .
113788) (TEXEC.FILLBUFFER.CHARDELETE 113790 . 115845) (TEXEC.FILLBUFFER.WORDDELETE 115847 . 120975) (
TEXEC.FILLBUFFER.LINEDELETE 120977 . 123859) (TEXEC.PARENCOUNT 123861 . 125250) (TEXEC.PARENMATCH
125252 . 126792) (TEXEC.FLASHCARET 126794 . 129453) (TEXEC.TEXTSTREAM.TO.LINEBUF 129455 . 132142) (
TEXEC.FIX 132144 . 135313) (TEXEC.NTHBUFCHARBACK 135315 . 136378) (TEXEC.NTHBACKCHNUM 136380 . 137665)
(TEXEC.EOTP 137667 . 138400) (TEXEC.GETKEY 138402 . 141318) (TEXEC.INSERTCHAR 141320 . 143621) (
TEXEC.DELETE 143623 . 144398) (TEXEC.\\CHDEL1 144400 . 147525) (TEXEC.?EQUAL 147527 . 148576) (
TEDIT.SCROLL? 148578 . 153541) (TEXEC.DISPLAYTEXT 153543 . 160318) (\\TEXEC.TEXTBOUT 160320 . 163328)
(\\TEXEC.TEXTBOUT1 163330 . 168964) (\\TEXEC.TEXTBOUT2 168966 . 171297) (\\TEXEC.TEXTBOUT3 171299 .
172689) (\\TEXEC.TEXTBOUT4 172691 . 174734) (\\TEXEC.SELFN 174736 . 176111) (TEXEC.PRINTARGS 176113 .
181076) (TEXEC.PROCENTRYFN 181078 . 181619) (TEXEC.PROCEXITFN 181621 . 182027)) (182089 188464 (TEXEC
182099 . 186521) (TTEXEC 186523 . 188462)))))
(FILEMAP (NIL (3225 181985 (TEXEC.BACKSKREAD 3235 . 7859) (TEXEC.OPENTEXTSTREAM 7861 . 9919) (
TEXEC.DEFAULT.MENUFN 9921 . 14475) (TEXEC.DO?CMD 14477 . 19795) (TEXEC.CREATEMENU 19797 . 20255) (
TEXEC.GET 20257 . 29092) (TEXEC.INCLUDE 29094 . 42479) (TEXEC.FIND.FORWARD 42481 . 55369) (
TEXEC.FIND.BACKWARD 55371 . 68873) (TEDIT.FIND.BACKWARD 68875 . 74352) (TEDIT.BASICFIND.BACKWARD 74354
. 79008) (TEXEC.MENU.WHENHELDFN 79010 . 79669) (TEXEC.SHRINK.ICONCREATE 79671 . 82474) (
TEXEC.FILLBUFFER 82476 . 98910) (TEXEC.FILLBUFFER.TCLASS 98912 . 105252) (TEXEC.CHSELPENDING 105254 .
113744) (TEXEC.FILLBUFFER.CHARDELETE 113746 . 115801) (TEXEC.FILLBUFFER.WORDDELETE 115803 . 120931) (
TEXEC.FILLBUFFER.LINEDELETE 120933 . 123815) (TEXEC.PARENCOUNT 123817 . 125206) (TEXEC.PARENMATCH
125208 . 126748) (TEXEC.FLASHCARET 126750 . 129409) (TEXEC.TEXTSTREAM.TO.LINEBUF 129411 . 132098) (
TEXEC.FIX 132100 . 135269) (TEXEC.NTHBUFCHARBACK 135271 . 136334) (TEXEC.NTHBACKCHNUM 136336 . 137621)
(TEXEC.EOTP 137623 . 138356) (TEXEC.GETKEY 138358 . 141274) (TEXEC.INSERTCHAR 141276 . 143577) (
TEXEC.DELETE 143579 . 144354) (TEXEC.\\CHDEL1 144356 . 147481) (TEXEC.?EQUAL 147483 . 148532) (
TEDIT.SCROLL? 148534 . 153497) (TEXEC.DISPLAYTEXT 153499 . 160274) (\\TEXEC.TEXTBOUT 160276 . 163284)
(\\TEXEC.TEXTBOUT1 163286 . 168920) (\\TEXEC.TEXTBOUT2 168922 . 171253) (\\TEXEC.TEXTBOUT3 171255 .
172645) (\\TEXEC.TEXTBOUT4 172647 . 174690) (\\TEXEC.SELFN 174692 . 176067) (TEXEC.PRINTARGS 176069 .
181032) (TEXEC.PROCENTRYFN 181034 . 181575) (TEXEC.PROCEXITFN 181577 . 181983)) (182045 188420 (TEXEC
182055 . 186477) (TTEXEC 186479 . 188418)))))
STOP

BIN
library/TEXEC.LCOM
View File

Binary file not shown.

28
library/lafite/LAFITETEDIT
View File

@ -1,14 +1,12 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
(FILECREATED "30-Sep-2021 23:07:55" 
{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>lafite>LAFITETEDIT.;3 12516
changes to%: (VARS LAFITETEDITCOMS)
(FNS LA.ADJUST.FORMATTING LA.SKIP.LOOKS.LIST LA.DETACH.TEDIT LA.TEDIT.INCLUDE
LA.WINDOW.FROM.TEXTSTREAM TEDIT.ASSURE.NO.BACKING.FILE)
(FILES LAFITEDECLS)
(FILECREATED "16-Jul-2022 23:37:24" 
{DSK}<users>kaplan>local>medley3.5>working-medley>library>lafite>LAFITETEDIT.;5 12306
previous date%: "30-Sep-2021 22:59:28"
{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>lafite>LAFITETEDIT.;2)
:CHANGES-TO (VARS LAFITETEDITCOMS)
:PREVIOUS-DATE "30-Sep-2021 23:07:55"
{DSK}<users>kaplan>local>medley3.5>working-medley>library>lafite>LAFITETEDIT.;4)
(* ; "
@ -27,8 +25,8 @@ Copyright (c) 1988, 1990, 1992, 2021 by Xerox Corporation.
(* ;; "Need TEDIT internal declarations for LA.ADJUST.FORMATTING. Can't just do (FILES (SOURCE) TEDITDCL), because there is a compiled version that is already loaded that isn't enough.")
(P (CL:UNLESS (GET 'TEDITDCL 'FILE)
(FILESLOAD TEDITDCL)))
(P (CL:UNLESS (GET 'TEDIT-DCL 'FILE)
(FILESLOAD TEDIT-DCL)))
(FILES (SOURCE)
LAFITEDECLS)
(GLOBALVARS *TEDIT-FILE-READTABLE*)
@ -185,8 +183,8 @@ Copyright (c) 1988, 1990, 1992, 2021 by Xerox Corporation.
)
(DECLARE%: EVAL@COMPILE DONTCOPY
(CL:UNLESS (GET 'TEDITDCL 'FILE)
(FILESLOAD TEDITDCL))
(CL:UNLESS (GET 'TEDIT-DCL 'FILE)
(FILESLOAD TEDIT-DCL))
(FILESLOAD (SOURCE)
@ -204,7 +202,7 @@ Copyright (c) 1988, 1990, 1992, 2021 by Xerox Corporation.
)
(PUTPROPS LAFITETEDIT COPYRIGHT ("Xerox Corporation" 1988 1990 1992 2021))
(DECLARE%: DONTCOPY
(FILEMAP (NIL (1549 12147 (LA.ADJUST.FORMATTING 1559 . 7695) (LA.SKIP.LOOKS.LIST 7697 . 8271) (
LA.DETACH.TEDIT 8273 . 8638) (LA.TEDIT.INCLUDE 8640 . 9129) (LA.WINDOW.FROM.TEXTSTREAM 9131 . 9577) (
TEDIT.ASSURE.NO.BACKING.FILE 9579 . 12145)))))
(FILEMAP (NIL (1337 11935 (LA.ADJUST.FORMATTING 1347 . 7483) (LA.SKIP.LOOKS.LIST 7485 . 8059) (
LA.DETACH.TEDIT 8061 . 8426) (LA.TEDIT.INCLUDE 8428 . 8917) (LA.WINDOW.FROM.TEXTSTREAM 8919 . 9365) (
TEDIT.ASSURE.NO.BACKING.FILE 9367 . 11933)))))
STOP

BIN
library/lafite/LAFITETEDIT.LCOM
View File

Binary file not shown.

60
lispusers/TEDITDORADOKEYS
View File

@ -1,22 +1,23 @@
(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE "INTERLISP")
(FILECREATED "19-Apr-2018 12:27:21" 
|{DSK}<Users>kaplan>Local>medley3.5>lispcore>lispusers>TEDITDORADOKEYS.;2| 22264
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10)
|changes| |to:| (VARS TEDITDORADOKEYSCOMS)
(FILECREATED "16-Jul-2022 23:40:36" 
|{DSK}<Users>kaplan>Local>medley3.5>working-medley>lispusers>TEDITDORADOKEYS.;2| 22214
|previous| |date:| "28-Oct-87 19:53:12"
|{DSK}<Users>kaplan>Local>medley3.5>lispcore>lispusers>TEDITDORADOKEYS.;1|)
:CHANGES-TO (VARS TEDITDORADOKEYSCOMS)
:PREVIOUS-DATE "19-Apr-2018 12:27:21"
|{DSK}<Users>kaplan>Local>medley3.5>working-medley>lispusers>TEDITDORADOKEYS.;1|)
; Copyright (c) 1987, 2018 by Xerox Corporation. All rights reserved.
; Copyright (c) 1987, 2018 by Xerox Corporation.
(PRETTYCOMPRINT TEDITDORADOKEYSCOMS)
(RPAQQ TEDITDORADOKEYSCOMS
((FILES TEDITDCL TEDITFNKEYS)
((FILES TEDIT-DCL TEDIT-FNKEYS)
(COMS
(* |;;|
 "These functions were fixed after Lyric went out so they'll ignore the meta key being down.")
(* |;;|
 "These functions were fixed after Lyric went out so they'll ignore the meta key being down.")
(FNS \\TEDIT.BOLD.SEL.OFF \\TEDIT.BOLD.SEL.ON \\TEDIT.CENTER.SEL \\TEDIT.CENTER.SEL.REV
\\TEDIT.DEFAULTS.CARET \\TEDIT.DEFAULTSSEL \\TEDIT.SETDEFAULT.FROM.SEL
@ -25,7 +26,7 @@
\\TEDIT.SUPERSCRIPTSEL \\TEDIT.UCASE.SEL \\TEDIT.UNDERLINE.SEL.OFF
\\TEDIT.UNDERLINE.SEL.ON \\TEDIT.STRIKEOUT.SEL.ON \\TEDIT.STRIKEOUT.SEL.OFF))
(COMS
(* |;;| "Specialized functions for this module")
(* |;;| "Specialized functions for this module")
(FNS \\TEDIT.DK.ABORT \\TEDIT.DK.FIND \\TEDIT.DK.SUBSTITUTE \\TEDIT.DK.INSERT-PARENS
\\TEDIT.DK.INSERT-NEUTRAL-DOUBLEQUOTES \\TEDIT.DK.INSERT-REAL-DOUBLEQUOTES))
@ -65,12 +66,11 @@
(TEDIT.SETSYNTAX (CAR ENTRY)
(CADR ENTRY)))))))
(FILESLOAD TEDITDCL TEDITFNKEYS)
(FILESLOAD TEDIT-DCL TEDIT-FNKEYS)
(* |;;| "These functions were fixed after Lyric went out so they'll ignore the meta key being down."
)
(* |;;| "These functions were fixed after Lyric went out so they'll ignore the meta key being down.")
(DEFINEQ
@ -442,22 +442,22 @@
("1,'" FN \\TEDIT.DK.INSERT-REAL-DOUBLEQUOTES)))
(FOR ENTRY IN \\TEDIT.DORADO.KEYS DO (SELECTQ (CADR ENTRY)
(FN (TEDIT.SETFUNCTION (CAR ENTRY)
(CADDR ENTRY)))
(TEDIT.SETSYNTAX (CAR ENTRY)
(CADR ENTRY))))
(FN (TEDIT.SETFUNCTION (CAR ENTRY)
(CADDR ENTRY)))
(TEDIT.SETSYNTAX (CAR ENTRY)
(CADR ENTRY))))
(PUTPROPS TEDITDORADOKEYS COPYRIGHT ("Xerox Corporation" 1987 2018))
(DECLARE\: DONTCOPY
(FILEMAP (NIL (4082 15770 (\\TEDIT.BOLD.SEL.OFF 4092 . 4330) (\\TEDIT.BOLD.SEL.ON 4332 . 4566) (
\\TEDIT.CENTER.SEL 4568 . 5638) (\\TEDIT.CENTER.SEL.REV 5640 . 6735) (\\TEDIT.DEFAULTS.CARET 6737 .
7029) (\\TEDIT.DEFAULTSSEL 7031 . 7369) (\\TEDIT.SETDEFAULT.FROM.SEL 7371 . 7828) (\\TEDIT.FIND 7830
. 10691) (\\TEDIT.ITALIC.SEL.OFF 10693 . 10935) (\\TEDIT.ITALIC.SEL.ON 10937 . 11123) (
\\TEDIT.LARGERSEL 11125 . 11420) (\\TEDIT.LCASE.SEL 11422 . 12138) (\\TEDIT.SHOWCARETLOOKS 12140 .
13523) (\\TEDIT.SMALLERSEL 13525 . 13823) (\\TEDIT.SUBSCRIPTSEL 13825 . 14032) (\\TEDIT.SUPERSCRIPTSEL
14034 . 14242) (\\TEDIT.UCASE.SEL 14244 . 15000) (\\TEDIT.UNDERLINE.SEL.OFF 15002 . 15193) (
\\TEDIT.UNDERLINE.SEL.ON 15195 . 15384) (\\TEDIT.STRIKEOUT.SEL.ON 15386 . 15575) (
\\TEDIT.STRIKEOUT.SEL.OFF 15577 . 15768)) (15828 20622 (\\TEDIT.DK.ABORT 15838 . 15905) (
\\TEDIT.DK.FIND 15907 . 18936) (\\TEDIT.DK.SUBSTITUTE 18938 . 19195) (\\TEDIT.DK.INSERT-PARENS 19197
. 19584) (\\TEDIT.DK.INSERT-NEUTRAL-DOUBLEQUOTES 19586 . 20078) (\\TEDIT.DK.INSERT-REAL-DOUBLEQUOTES
20080 . 20620)))))
(FILEMAP (NIL (4080 15768 (\\TEDIT.BOLD.SEL.OFF 4090 . 4328) (\\TEDIT.BOLD.SEL.ON 4330 . 4564) (
\\TEDIT.CENTER.SEL 4566 . 5636) (\\TEDIT.CENTER.SEL.REV 5638 . 6733) (\\TEDIT.DEFAULTS.CARET 6735 .
7027) (\\TEDIT.DEFAULTSSEL 7029 . 7367) (\\TEDIT.SETDEFAULT.FROM.SEL 7369 . 7826) (\\TEDIT.FIND 7828
. 10689) (\\TEDIT.ITALIC.SEL.OFF 10691 . 10933) (\\TEDIT.ITALIC.SEL.ON 10935 . 11121) (
\\TEDIT.LARGERSEL 11123 . 11418) (\\TEDIT.LCASE.SEL 11420 . 12136) (\\TEDIT.SHOWCARETLOOKS 12138 .
13521) (\\TEDIT.SMALLERSEL 13523 . 13821) (\\TEDIT.SUBSCRIPTSEL 13823 . 14030) (\\TEDIT.SUPERSCRIPTSEL
14032 . 14240) (\\TEDIT.UCASE.SEL 14242 . 14998) (\\TEDIT.UNDERLINE.SEL.OFF 15000 . 15191) (
\\TEDIT.UNDERLINE.SEL.ON 15193 . 15382) (\\TEDIT.STRIKEOUT.SEL.ON 15384 . 15573) (
\\TEDIT.STRIKEOUT.SEL.OFF 15575 . 15766)) (15826 20620 (\\TEDIT.DK.ABORT 15836 . 15903) (
\\TEDIT.DK.FIND 15905 . 18934) (\\TEDIT.DK.SUBSTITUTE 18936 . 19193) (\\TEDIT.DK.INSERT-PARENS 19195
. 19582) (\\TEDIT.DK.INSERT-NEUTRAL-DOUBLEQUOTES 19584 . 20076) (\\TEDIT.DK.INSERT-REAL-DOUBLEQUOTES
20078 . 20618)))))
STOP

BIN
lispusers/TEDITDORADOKEYS.LCOM
View File

Binary file not shown.

60
sources/MAIKOLOADUPFNS
View File

@ -1,14 +1,15 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
(FILECREATED "26-Oct-2021 09:55:14" {DSK}<home>larry>medley>sources>MAIKOLOADUPFNS.;2 5969
(FILECREATED "16-Jul-2022 22:45:28" {DSK}<home>larry>medley>sources>MAIKOLOADUPFNS.;2 5827
changes to%: (FNS \BITBLTSUB \BLTCHAR)
:CHANGES-TO (VARS MAIKOLOADUPFNSCOMS)
(FNS CL::%%COPY-TIME-STATS CHECKPAGEMAP CLOCK CLOCK0 DAYTIME SETTIME)
previous date%: " 2-Mar-2021 23:12:27" {DSK}<home>larry>medley>sources>MAIKOLOADUPFNS.;1)
:PREVIOUS-DATE "26-Oct-2021 09:55:14" {DSK}<home>larry>medley>sources>MAIKOLOADUPFNS.;1)
(* ; "
Copyright (c) 1989, 2018, 2021 by ENVOS Corporation.
Copyright (c) 1989, 2018, 2021-2022 by ENVOS Corporation.
")
(PRETTYCOMPRINT MAIKOLOADUPFNSCOMS)
@ -20,39 +21,36 @@ Copyright (c) 1989, 2018, 2021 by ENVOS Corporation.
\CHECKSUM \CLOCK0 \COUNTREALPAGES \DAYTIME0 \DIRTYBACKGROUND \DOLOCKPAGES \DONEWPAGE
\DORECLAIM \DOTEMPLOCKPAGES \LOADVMEMPAGE \LOCKEDPAGEP \LOCKPAGES \MOVEVMEMFILEPAGE
\NEWPAGE \PAGEFAULT \SHOWPAGETABLE \TEMPUNLOCKPAGES \UNLOCKPAGES \WRITEDIRTYPAGE)
(GLOBALVARS \TimeZoneComp \RAWTRACING \MAXWATCHERGETS)
(DECLARE%: EVAL@COMPILE DONTCOPY (LOCALVARS . T)
(FILES (SOURCE)
TEDITDCL))))
(GLOBALVARS \TimeZoneComp)))
(PUTPROPS MAIKOLOADUPFNS FILETYPE CL:COMPILE-FILE)
(PUTPROPS MAIKOLOADUPFNS MAKEFILE-ENVIRONMENT (:PACKAGE "INTERLISP" :READTABLE "INTERLISP"
:BASE 10))
(PUTPROPS MAIKOLOADUPFNS MAKEFILE-ENVIRONMENT (:PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10))
(DEFINEQ
(CL::%%COPY-TIME-STATS
[LAMBDA (REFERENCE-BLOCK DESTINIATION-BLOCK) (* ; "Edited 2-May-88 17:16 by MASINTER")
[LAMBDA (REFERENCE-BLOCK DESTINIATION-BLOCK) (* ; "Edited 2-May-88 17:16 by MASINTER")
(SUBRCALL COPYTIMESTATS REFERENCE-BLOCK DESTINIATION-BLOCK])
(CHECKPAGEMAP
[LAMBDA NIL (* ; "Edited 25-Feb-2021 10:07 by larry")
[LAMBDA NIL (* ; "Edited 25-Feb-2021 10:07 by larry")
NIL])
(CLOCK
[LAMBDA (N BOX) (* ; "Edited 2-May-88 16:11 by MASINTER")
[LAMBDA (N BOX) (* ; "Edited 2-May-88 16:11 by MASINTER")
(SUBRCALL GETUNIXTIME N BOX])
(CLOCK0
[LAMBDA (BOX) (* ; "Edited 2-May-88 16:19 by MASINTER")
[LAMBDA (BOX) (* ; "Edited 2-May-88 16:19 by MASINTER")
(SUBRCALL GETUNIXTIME 0 BOX])
(DAYTIME
[LAMBDA (BOX) (* ; "Edited 2-May-88 16:20 by MASINTER")
[LAMBDA (BOX) (* ; "Edited 2-May-88 16:20 by MASINTER")
(SUBRCALL GETUNIXTIME 5 BOX])
(SETTIME
[LAMBDA (RETFLG) (* ; "Edited 13-May-88 15:22 by MASINTER")
[LAMBDA (RETFLG) (* ; "Edited 16-Jul-2022 22:44 by larry")
(* ; "Edited 13-May-88 15:22 by lmm")
(CL:UNLESS (AND RETFLG (NOT (STRINGP RETFLG)))
(SETQ \TimeZoneComp (SUBRCALL GETUNIXTIME 8 NIL)))
(\PROCESS.RESET.TIMERS)
@ -149,26 +147,16 @@ Copyright (c) 1989, 2018, 2021 by ENVOS Corporation.
)
(DECLARE%: DOEVAL@COMPILE DONTCOPY
(GLOBALVARS \TimeZoneComp \RAWTRACING \MAXWATCHERGETS)
(GLOBALVARS \TimeZoneComp)
)
(DECLARE%: EVAL@COMPILE DONTCOPY
(DECLARE%: DOEVAL@COMPILE DONTCOPY
(LOCALVARS . T)
)
(FILESLOAD (SOURCE)
TEDITDCL)
)
(PUTPROPS MAIKOLOADUPFNS COPYRIGHT ("ENVOS Corporation" 1989 2018 2021))
(PUTPROPS MAIKOLOADUPFNS COPYRIGHT ("ENVOS Corporation" 1989 2018 2021 2022))
(DECLARE%: DONTCOPY
(FILEMAP (NIL (1335 5651 (CL::%%COPY-TIME-STATS 1345 . 1541) (CHECKPAGEMAP 1543 . 1675) (CLOCK 1677 .
1826) (CLOCK0 1828 . 1978) (DAYTIME 1980 . 2131) (SETTIME 2133 . 2407) (\BITBLTSUB 2409 . 2831) (
\BLTCHAR 2833 . 3014) (\CHECKSUM 3016 . 3181) (\CLOCK0 3183 . 3334) (\COUNTREALPAGES 3336 . 3469) (
\DAYTIME0 3471 . 3624) (\DIRTYBACKGROUND 3626 . 3762) (\DOLOCKPAGES 3764 . 3896) (\DONEWPAGE 3898 .
4047) (\DORECLAIM 4049 . 4195) (\DOTEMPLOCKPAGES 4197 . 4333) (\LOADVMEMPAGE 4335 . 4468) (
\LOCKEDPAGEP 4470 . 4586) (\LOCKPAGES 4588 . 4718) (\MOVEVMEMFILEPAGE 4720 . 4841) (\NEWPAGE 4843 .
4990) (\PAGEFAULT 4992 . 5104) (\SHOWPAGETABLE 5106 . 5240) (\TEMPUNLOCKPAGES 5242 . 5378) (
\UNLOCKPAGES 5380 . 5512) (\WRITEDIRTYPAGE 5514 . 5649)))))
(FILEMAP (NIL (1214 5661 (CL::%%COPY-TIME-STATS 1224 . 1424) (CHECKPAGEMAP 1426 . 1562) (CLOCK 1564 .
1717) (CLOCK0 1719 . 1873) (DAYTIME 1875 . 2030) (SETTIME 2032 . 2417) (\BITBLTSUB 2419 . 2841) (
\BLTCHAR 2843 . 3024) (\CHECKSUM 3026 . 3191) (\CLOCK0 3193 . 3344) (\COUNTREALPAGES 3346 . 3479) (
\DAYTIME0 3481 . 3634) (\DIRTYBACKGROUND 3636 . 3772) (\DOLOCKPAGES 3774 . 3906) (\DONEWPAGE 3908 .
4057) (\DORECLAIM 4059 . 4205) (\DOTEMPLOCKPAGES 4207 . 4343) (\LOADVMEMPAGE 4345 . 4478) (
\LOCKEDPAGEP 4480 . 4596) (\LOCKPAGES 4598 . 4728) (\MOVEVMEMFILEPAGE 4730 . 4851) (\NEWPAGE 4853 .
5000) (\PAGEFAULT 5002 . 5114) (\SHOWPAGETABLE 5116 . 5250) (\TEMPUNLOCKPAGES 5252 . 5388) (
\UNLOCKPAGES 5390 . 5522) (\WRITEDIRTYPAGE 5524 . 5659)))))
STOP

BIN
sources/MAIKOLOADUPFNS.LCOM
View File

Binary file not shown.