github.com/Interlisp.medley
1
0
Fork 0
mirror of synced 2026-02-11 19:04:55 +00:00
Code Issues Projects Releases Wiki Activity

Tedit PLOOKS cleanup plus default paralooks (#2259)

Browse Source
This commit is contained in:
rmkaplan
2025-08-16 13:45:28 -07:00
committed by GitHub
parent 8fa61304a3
commit 74f518ca02
32 changed files with 752 additions and 777 deletions
Download Patch File Download Diff File Expand all files Collapse all files

86
internal/TEDIT-DEBUG
View File

@@ -1,12 +1,12 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
(FILECREATED "31-May-2025 10:30:31" {WMEDLEY}<internal>TEDIT-DEBUG.;170 138250
(FILECREATED "29-Jul-2025 11:42:21" {WMEDLEY}<internal>TEDIT-DEBUG.;174 138232
:EDIT-BY rmk
:CHANGES-TO (FNS \TLVALIDATE)
:CHANGES-TO (FNS SPPRINT)
:PREVIOUS-DATE "30-May-2025 23:51:11" {WMEDLEY}<internal>TEDIT-DEBUG.;168)
:PREVIOUS-DATE " 3-Jun-2025 23:12:40" {WMEDLEY}<internal>TEDIT-DEBUG.;173)
(PRETTYCOMPRINT TEDIT-DEBUGCOMS)
@@ -1108,7 +1108,8 @@
(\LOLOC LASTSLOT])])
(\TLVALIDATE
[LAMBDA (THISLINE LINE) (* ; "Edited 31-May-2025 10:29 by rmk")
[LAMBDA (THISLINE LINE) (* ; "Edited 3-Jun-2025 23:12 by rmk")
(* ; "Edited 31-May-2025 10:29 by rmk")
(* ; "Edited 29-May-2025 15:28 by rmk")
(* ; "Edited 21-Oct-2024 00:26 by rmk")
(* ; "Edited 15-Mar-2024 19:33 by rmk")
@@ -1116,14 +1117,9 @@
(* ;; "Check validity of THISLINE, anytime after \TEDIT.FORMATLINE")
(CL:WHEN LINE
(CL:UNLESS (EQ (fetch (THISLINE DESC) of THISLINE)
LINE)
(HELP "THISLINE-DESC is not LINE" THISLINE)))
[LET ((CHARSLOTS (fetch (THISLINE CHARSLOTS) of THISLINE)))
(CL:UNLESS (type? ARRAYBLOCK CHARSLOTS)
(HELP "CHARSLOTS is not an ARRAYBLOCK" THISLINE))
(\CHECKARRAYBLOCK (\ADDBASE CHARSLOTS (IMINUS \ArrayBlockHeaderWords]
(LET ((CHARSLOTS (fetch (THISLINE CHARSLOTS) of THISLINE)))
(CL:UNLESS (\BLOCKDATAP CHARSLOTS)
(HELP "CHARSLOTS is not an arrayblock" THISLINE)))
(for CHARSLOT incharslots THISLINE do (CL:UNLESS (OR (CHARCODEP CHAR)
(IMAGEOBJP CHAR)
(CHARSLOTP CHAR THISLINE))
@@ -1372,7 +1368,8 @@
(DEFINEQ
(SPPRINT
[LAMBDA (P OSTREAM TEXTOBJ NOCR) (* ; "Edited 24-Apr-2025 16:04 by rmk")
[LAMBDA (P OSTREAM TEXTOBJ NOCR) (* ; "Edited 29-Jul-2025 11:42 by rmk")
(* ; "Edited 24-Apr-2025 16:04 by rmk")
(* ; "Edited 19-Feb-2025 12:21 by rmk")
(* ; "Edited 8-Feb-2025 22:41 by rmk")
(* ; "Edited 5-Aug-2024 00:30 by rmk")
@@ -1457,8 +1454,9 @@
elseif (EQ OBJECT.PTYPE (PTYPE P))
then (PRINTOUT OSTREAM PCONTENTS -3)
(SPPRINT.OBJ PCONTENTS OSTREAM (IPLUS POS 43))
else (CL:WHEN (AND (type? CHARLOOKS (PLOOKS P))
(fetch (CHARLOOKS CLINVISIBLE) of (PLOOKS P)))
else (CL:WHEN (AND (type? CHARLOOKS (PCHARLOOKS P))
(GETCLOOKS (PCHARLOOKS P)
CLINVISIBLE))
(PRIN1 "i " OSTREAM))
(PRIN1 "%"" OSTREAM)
(for I C from 1 to PLEN
@@ -2581,33 +2579,33 @@
(ADDTOVAR LAMA )
)
(DECLARE%: DONTCOPY
(FILEMAP (NIL (5124 7683 (GTO 5134 . 5384) (GTS 5386 . 7157) (GTW 7159 . 7315) (GSEL 7317 . 7681)) (
7716 8837 (TEST.TEMPLATE 7726 . 8835)) (8838 9773 (TESTACTION 8848 . 9771)) (9798 23613 (IPC 9808 .
11312) (ILINES 11314 . 13855) (ISEL 13857 . 14468) (ITS 14470 . 16194) (IPANES 16196 . 16431) (ITL
16433 . 16852) (IHIST 16854 . 19516) (IPCTB 19518 . 19944) (IMB 19946 . 20705) (ICL 20707 . 21408) (
IPL 21410 . 21950) (ICARET 21952 . 22479) (INSPECTPIECES 22481 . 23611)) (23635 52303 (SP 23645 .
28689) (SL 28691 . 32526) (SSP 32528 . 34230) (SPF 34232 . 36762) (SLF 36764 . 45897) (SHOWLINE 45899
. 49461) (SLL 49463 . 50210) (STBYTES 50212 . 51938) (SSEL 51940 . 52301)) (52304 64970 (STL 52314 .
61315) (CLEARTHISLINE 61317 . 61797) (CHARSLOTP 61799 . 63118) (\TLVALIDATE 63120 . 64968)) (64971
70344 (NTHPIECE 64981 . 66113) (NPIECES 66115 . 66980) (NTHPIECECHAR 66982 . 68290) (SELPIECE 68292 .
68734) (PIECENUM 68736 . 69455) (PCBYTES 69457 . 70342)) (70345 72819 (FILEBYTES 70355 . 71779) (
TFILEBYTES 71781 . 72817)) (72820 74142 (TRELMOVE 72830 . 73073) (TSCROLL 73075 . 73241) (TSCROLL*
73243 . 74140)) (74143 77192 (TRY 74153 . 75422) (TEDITCLOSEW 75424 . 75767) (PARALASTWITHOUTEOL 75769
. 76654) (FIXPARALAST 76656 . 77190)) (77193 91941 (SPPRINT 77203 . 83889) (SPPRINT.CHAR 83891 .
84875) (SPPRINT.OBJ 84877 . 87935) (SHOWPIECEBYTES 87937 . 89493) (CHECKPLENGTHS 89495 . 89952) (SBT
89954 . 91091) (COPYPCHAIN 91093 . 91939)) (91942 94003 (POSLINE 91952 . 94001)) (94004 94887 (
PRESPLIT 94014 . 94885)) (94888 96601 (ALLTL 94898 . 96151) (NTHCHARSLOT 96153 . 96599)) (96627 106840
(PLCHAIN 96637 . 97165) (PRINTLINE 97167 . 100157) (SL.GETLINES 100159 . 103452) (CHECKLINES 103454
. 104434) (COLLECTLINES 104436 . 104688) (NTHLINE 104690 . 105695) (HEIGHT 105697 . 105985) (LINEBOTS
105987 . 106838)) (106841 109289 (IPC.DECODEARGS 106851 . 109287)) (109290 109883 (SPF1 109300 .
109881)) (109912 112290 (SLF.FATPLEN 109922 . 110781) (FILEPIECE 110783 . 112288)) (112323 113091 (
SELTEDIT 112333 . 113089)) (113161 118773 (PPARA 113171 . 113593) (PRUN 113595 . 115071) (
ADDLINEPOSITIONS 115073 . 116500) (SBR 116502 . 117156) (SBC 117158 . 118771)) (118830 120606 (OLDWI
118840 . 119215) (COMP 119217 . 119412) (DFR 119414 . 120604)) (120607 121640 (DFGV 120617 . 121143) (
GDIRECTORIES 121145 . 121638)) (121641 128206 (TTEST 121651 . 126183) (LTEST 126185 . 127550) (THC
127552 . 128204)) (128520 129212 (SHOWSAFE 128530 . 129210)) (129265 129712 (MYH 129275 . 129710)) (
129957 131052 (DFVENUE 129967 . 130846) (VSEE 130848 . 131050)) (131053 131507 (PTT 131063 . 131505))
(131866 133447 (DEBUGOUTPUT.STREAM 131876 . 133445)) (133448 135764 (TEDIT-DEBUG 133458 . 135762)) (
135765 136257 (HEXTOHILO 135775 . 136115) (CW 136117 . 136255)) (136258 137994 (TRENAME 136268 .
137992)))))
(FILEMAP (NIL (5120 7679 (GTO 5130 . 5380) (GTS 5382 . 7153) (GTW 7155 . 7311) (GSEL 7313 . 7677)) (
7712 8833 (TEST.TEMPLATE 7722 . 8831)) (8834 9769 (TESTACTION 8844 . 9767)) (9794 23609 (IPC 9804 .
11308) (ILINES 11310 . 13851) (ISEL 13853 . 14464) (ITS 14466 . 16190) (IPANES 16192 . 16427) (ITL
16429 . 16848) (IHIST 16850 . 19512) (IPCTB 19514 . 19940) (IMB 19942 . 20701) (ICL 20703 . 21404) (
IPL 21406 . 21946) (ICARET 21948 . 22475) (INSPECTPIECES 22477 . 23607)) (23631 52299 (SP 23641 .
28685) (SL 28687 . 32522) (SSP 32524 . 34226) (SPF 34228 . 36758) (SLF 36760 . 45893) (SHOWLINE 45895
. 49457) (SLL 49459 . 50206) (STBYTES 50208 . 51934) (SSEL 51936 . 52297)) (52300 64813 (STL 52310 .
61311) (CLEARTHISLINE 61313 . 61793) (CHARSLOTP 61795 . 63114) (\TLVALIDATE 63116 . 64811)) (64814
70187 (NTHPIECE 64824 . 65956) (NPIECES 65958 . 66823) (NTHPIECECHAR 66825 . 68133) (SELPIECE 68135 .
68577) (PIECENUM 68579 . 69298) (PCBYTES 69300 . 70185)) (70188 72662 (FILEBYTES 70198 . 71622) (
TFILEBYTES 71624 . 72660)) (72663 73985 (TRELMOVE 72673 . 72916) (TSCROLL 72918 . 73084) (TSCROLL*
73086 . 73983)) (73986 77035 (TRY 73996 . 75265) (TEDITCLOSEW 75267 . 75610) (PARALASTWITHOUTEOL 75612
. 76497) (FIXPARALAST 76499 . 77033)) (77036 91923 (SPPRINT 77046 . 83871) (SPPRINT.CHAR 83873 .
84857) (SPPRINT.OBJ 84859 . 87917) (SHOWPIECEBYTES 87919 . 89475) (CHECKPLENGTHS 89477 . 89934) (SBT
89936 . 91073) (COPYPCHAIN 91075 . 91921)) (91924 93985 (POSLINE 91934 . 93983)) (93986 94869 (
PRESPLIT 93996 . 94867)) (94870 96583 (ALLTL 94880 . 96133) (NTHCHARSLOT 96135 . 96581)) (96609 106822
(PLCHAIN 96619 . 97147) (PRINTLINE 97149 . 100139) (SL.GETLINES 100141 . 103434) (CHECKLINES 103436
. 104416) (COLLECTLINES 104418 . 104670) (NTHLINE 104672 . 105677) (HEIGHT 105679 . 105967) (LINEBOTS
105969 . 106820)) (106823 109271 (IPC.DECODEARGS 106833 . 109269)) (109272 109865 (SPF1 109282 .
109863)) (109894 112272 (SLF.FATPLEN 109904 . 110763) (FILEPIECE 110765 . 112270)) (112305 113073 (
SELTEDIT 112315 . 113071)) (113143 118755 (PPARA 113153 . 113575) (PRUN 113577 . 115053) (
ADDLINEPOSITIONS 115055 . 116482) (SBR 116484 . 117138) (SBC 117140 . 118753)) (118812 120588 (OLDWI
118822 . 119197) (COMP 119199 . 119394) (DFR 119396 . 120586)) (120589 121622 (DFGV 120599 . 121125) (
GDIRECTORIES 121127 . 121620)) (121623 128188 (TTEST 121633 . 126165) (LTEST 126167 . 127532) (THC
127534 . 128186)) (128502 129194 (SHOWSAFE 128512 . 129192)) (129247 129694 (MYH 129257 . 129692)) (
129939 131034 (DFVENUE 129949 . 130828) (VSEE 130830 . 131032)) (131035 131489 (PTT 131045 . 131487))
(131848 133429 (DEBUGOUTPUT.STREAM 131858 . 133427)) (133430 135746 (TEDIT-DEBUG 133440 . 135744)) (
135747 136239 (HEXTOHILO 135757 . 136097) (CW 136099 . 136237)) (136240 137976 (TRENAME 136250 .
137974)))))
STOP

BIN
internal/TEDIT-DEBUG.LCOM
View File

Binary file not shown.