From 66acfd3f3f4b5b48b4b69c7751ee11d05241a682 Mon Sep 17 00:00:00 2001 From: rmkaplan Date: Sat, 7 Feb 2026 21:30:22 -0800 Subject: [PATCH] TEDIT-DEBUG--add dribble file --- internal/TEDIT-DEBUG | 80 ++++++++++++++++++++------------------ internal/TEDIT-DEBUG.LCOM | Bin 61431 -> 62331 bytes 2 files changed, 43 insertions(+), 37 deletions(-) diff --git a/internal/TEDIT-DEBUG b/internal/TEDIT-DEBUG index 32b6966f..7b08db5c 100644 --- a/internal/TEDIT-DEBUG +++ b/internal/TEDIT-DEBUG @@ -1,12 +1,12 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED "13-Oct-2025 16:52:28" {WMEDLEY}TEDIT-DEBUG.;175 138298 +(FILECREATED " 7-Feb-2026 17:00:39" {WMEDLEY}TEDIT-DEBUG.;178 138742 :EDIT-BY rmk - :CHANGES-TO (FNS SP) + :CHANGES-TO (FNS TEDIT-DEBUG) - :PREVIOUS-DATE "29-Jul-2025 11:42:21" {WMEDLEY}TEDIT-DEBUG.;174) + :PREVIOUS-DATE " 7-Feb-2026 10:41:45" {WMEDLEY}TEDIT-DEBUG.;177) (PRETTYCOMPRINT TEDIT-DEBUGCOMS) @@ -540,7 +540,8 @@ (RETURN PC]) (SL - [LAMBDA (FIRSTLINE LASTLINE PANE TOBJ OFILE) (* ; "Edited 17-Apr-2025 13:36 by rmk") + [LAMBDA (FIRSTLINE LASTLINE PANE TOBJ OFILE) (* ; "Edited 9-Jan-2026 11:12 by rmk") + (* ; "Edited 17-Apr-2025 13:36 by rmk") (* ; "Edited 15-Apr-2025 13:57 by rmk") (* ; "Edited 11-Apr-2025 12:15 by rmk") (* ; "Edited 29-Mar-2025 20:27 by rmk") @@ -580,6 +581,7 @@ (SETQ PANE (pop LINES)) (SETQ PNO (pop LINES)) (DEBUGOUTPUT (DEBUGOUTPUT.STREAM OFILE WTYPE TITLE NIL '(TERMINAL 8)) + (RESETSAVE (LINELENGTH MAX.SMALLP OFILE)) (PRINTOUT OFILE .FONT '(TERMINAL 8) "Pane " PNO " = " PANE T) (PRINTOUT OFILE .FONT '(TERMINAL 8) @@ -805,7 +807,8 @@ else (RETURN OUTFILE))))]) (SHOWLINE - [LAMBDA (LINE FILE TEXTOBJ) (* ; "Edited 20-Nov-2024 00:31 by rmk") + [LAMBDA (LINE FILE TEXTOBJ) (* ; "Edited 9-Jan-2026 11:09 by rmk") + (* ; "Edited 20-Nov-2024 00:31 by rmk") (* ; "Edited 17-Nov-2024 15:56 by rmk") (* ; "Edited 9-Nov-2024 10:37 by rmk") (* ; "Edited 1-Sep-2024 16:49 by rmk") @@ -836,7 +839,7 @@ "*" " ") .FONT - '(TERMINAL 6) + '(TERMINAL 8) " ") (if (GETLD LINE LDUMMY) then (PRINTOUT FILE -8 (CL:IF (GETLD LINE LDUMMY) @@ -2480,7 +2483,8 @@ (DEFINEQ (TEDIT-DEBUG - [LAMBDA (DONTOVERLOAD) (* ; "Edited 9-Aug-2024 13:20 by rmk") + [LAMBDA (DONTOVERLOAD) (* ; "Edited 7-Feb-2026 17:00 by rmk") + (* ; "Edited 9-Aug-2024 13:20 by rmk") (* ; "Edited 16-Jul-2024 12:37 by rmk") (* ; "Edited 6-Jul-2024 21:16 by rmk") (* ; "Edited 10-Jun-2024 14:21 by rmk") @@ -2493,6 +2497,7 @@ (* ; "Edited 3-Dec-2023 21:00 by rmk") (* ; "Edited 29-Nov-2023 10:49 by rmk") (* ; "Edited 24-Nov-2023 12:53 by rmk") + (DRIBBLE "TEDIT-DEBUG.DRIBBLE") (CL:WHEN (DIRECTORYNAMEP (MEDLEYDIR "../oldtedit/")) (PSEUDOHOST 'OT (MEDLEYDIR "../oldtedit/"))) (FILESLOAD (NOERROR FROM LOADUPS) @@ -2511,7 +2516,8 @@ (FILESLOAD (NOERROR) {OT}OTWHEREIS) (PRINTOUT T T "Connected to " (PSEUDOFILENAME (MEDLEYDIR "library/tedit")) - T]) + T) + (DRIBBLE]) ) (DEFINEQ @@ -2579,33 +2585,33 @@ (ADDTOVAR LAMA ) ) (DECLARE%: DONTCOPY - (FILEMAP (NIL (5115 7674 (GTO 5125 . 5375) (GTS 5377 . 7148) (GTW 7150 . 7306) (GSEL 7308 . 7672)) ( -7707 8828 (TEST.TEMPLATE 7717 . 8826)) (8829 9764 (TESTACTION 8839 . 9762)) (9789 23604 (IPC 9799 . -11303) (ILINES 11305 . 13846) (ISEL 13848 . 14459) (ITS 14461 . 16185) (IPANES 16187 . 16422) (ITL -16424 . 16843) (IHIST 16845 . 19507) (IPCTB 19509 . 19935) (IMB 19937 . 20696) (ICL 20698 . 21399) ( -IPL 21401 . 21941) (ICARET 21943 . 22470) (INSPECTPIECES 22472 . 23602)) (23626 52365 (SP 23636 . -28751) (SL 28753 . 32588) (SSP 32590 . 34292) (SPF 34294 . 36824) (SLF 36826 . 45959) (SHOWLINE 45961 - . 49523) (SLL 49525 . 50272) (STBYTES 50274 . 52000) (SSEL 52002 . 52363)) (52366 64879 (STL 52376 . -61377) (CLEARTHISLINE 61379 . 61859) (CHARSLOTP 61861 . 63180) (\TLVALIDATE 63182 . 64877)) (64880 -70253 (NTHPIECE 64890 . 66022) (NPIECES 66024 . 66889) (NTHPIECECHAR 66891 . 68199) (SELPIECE 68201 . -68643) (PIECENUM 68645 . 69364) (PCBYTES 69366 . 70251)) (70254 72728 (FILEBYTES 70264 . 71688) ( -TFILEBYTES 71690 . 72726)) (72729 74051 (TRELMOVE 72739 . 72982) (TSCROLL 72984 . 73150) (TSCROLL* -73152 . 74049)) (74052 77101 (TRY 74062 . 75331) (TEDITCLOSEW 75333 . 75676) (PARALASTWITHOUTEOL 75678 - . 76563) (FIXPARALAST 76565 . 77099)) (77102 91989 (SPPRINT 77112 . 83937) (SPPRINT.CHAR 83939 . -84923) (SPPRINT.OBJ 84925 . 87983) (SHOWPIECEBYTES 87985 . 89541) (CHECKPLENGTHS 89543 . 90000) (SBT -90002 . 91139) (COPYPCHAIN 91141 . 91987)) (91990 94051 (POSLINE 92000 . 94049)) (94052 94935 ( -PRESPLIT 94062 . 94933)) (94936 96649 (ALLTL 94946 . 96199) (NTHCHARSLOT 96201 . 96647)) (96675 106888 - (PLCHAIN 96685 . 97213) (PRINTLINE 97215 . 100205) (SL.GETLINES 100207 . 103500) (CHECKLINES 103502 - . 104482) (COLLECTLINES 104484 . 104736) (NTHLINE 104738 . 105743) (HEIGHT 105745 . 106033) (LINEBOTS - 106035 . 106886)) (106889 109337 (IPC.DECODEARGS 106899 . 109335)) (109338 109931 (SPF1 109348 . -109929)) (109960 112338 (SLF.FATPLEN 109970 . 110829) (FILEPIECE 110831 . 112336)) (112371 113139 ( -SELTEDIT 112381 . 113137)) (113209 118821 (PPARA 113219 . 113641) (PRUN 113643 . 115119) ( -ADDLINEPOSITIONS 115121 . 116548) (SBR 116550 . 117204) (SBC 117206 . 118819)) (118878 120654 (OLDWI -118888 . 119263) (COMP 119265 . 119460) (DFR 119462 . 120652)) (120655 121688 (DFGV 120665 . 121191) ( -GDIRECTORIES 121193 . 121686)) (121689 128254 (TTEST 121699 . 126231) (LTEST 126233 . 127598) (THC -127600 . 128252)) (128568 129260 (SHOWSAFE 128578 . 129258)) (129313 129760 (MYH 129323 . 129758)) ( -130005 131100 (DFVENUE 130015 . 130894) (VSEE 130896 . 131098)) (131101 131555 (PTT 131111 . 131553)) -(131914 133495 (DEBUGOUTPUT.STREAM 131924 . 133493)) (133496 135812 (TEDIT-DEBUG 133506 . 135810)) ( -135813 136305 (HEXTOHILO 135823 . 136163) (CW 136165 . 136303)) (136306 138042 (TRENAME 136316 . -138040))))) + (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 52650 (SP 23645 . +28760) (SL 28762 . 32764) (SSP 32766 . 34468) (SPF 34470 . 37000) (SLF 37002 . 46135) (SHOWLINE 46137 + . 49808) (SLL 49810 . 50557) (STBYTES 50559 . 52285) (SSEL 52287 . 52648)) (52651 65164 (STL 52661 . +61662) (CLEARTHISLINE 61664 . 62144) (CHARSLOTP 62146 . 63465) (\TLVALIDATE 63467 . 65162)) (65165 +70538 (NTHPIECE 65175 . 66307) (NPIECES 66309 . 67174) (NTHPIECECHAR 67176 . 68484) (SELPIECE 68486 . +68928) (PIECENUM 68930 . 69649) (PCBYTES 69651 . 70536)) (70539 73013 (FILEBYTES 70549 . 71973) ( +TFILEBYTES 71975 . 73011)) (73014 74336 (TRELMOVE 73024 . 73267) (TSCROLL 73269 . 73435) (TSCROLL* +73437 . 74334)) (74337 77386 (TRY 74347 . 75616) (TEDITCLOSEW 75618 . 75961) (PARALASTWITHOUTEOL 75963 + . 76848) (FIXPARALAST 76850 . 77384)) (77387 92274 (SPPRINT 77397 . 84222) (SPPRINT.CHAR 84224 . +85208) (SPPRINT.OBJ 85210 . 88268) (SHOWPIECEBYTES 88270 . 89826) (CHECKPLENGTHS 89828 . 90285) (SBT +90287 . 91424) (COPYPCHAIN 91426 . 92272)) (92275 94336 (POSLINE 92285 . 94334)) (94337 95220 ( +PRESPLIT 94347 . 95218)) (95221 96934 (ALLTL 95231 . 96484) (NTHCHARSLOT 96486 . 96932)) (96960 107173 + (PLCHAIN 96970 . 97498) (PRINTLINE 97500 . 100490) (SL.GETLINES 100492 . 103785) (CHECKLINES 103787 + . 104767) (COLLECTLINES 104769 . 105021) (NTHLINE 105023 . 106028) (HEIGHT 106030 . 106318) (LINEBOTS + 106320 . 107171)) (107174 109622 (IPC.DECODEARGS 107184 . 109620)) (109623 110216 (SPF1 109633 . +110214)) (110245 112623 (SLF.FATPLEN 110255 . 111114) (FILEPIECE 111116 . 112621)) (112656 113424 ( +SELTEDIT 112666 . 113422)) (113494 119106 (PPARA 113504 . 113926) (PRUN 113928 . 115404) ( +ADDLINEPOSITIONS 115406 . 116833) (SBR 116835 . 117489) (SBC 117491 . 119104)) (119163 120939 (OLDWI +119173 . 119548) (COMP 119550 . 119745) (DFR 119747 . 120937)) (120940 121973 (DFGV 120950 . 121476) ( +GDIRECTORIES 121478 . 121971)) (121974 128539 (TTEST 121984 . 126516) (LTEST 126518 . 127883) (THC +127885 . 128537)) (128853 129545 (SHOWSAFE 128863 . 129543)) (129598 130045 (MYH 129608 . 130043)) ( +130290 131385 (DFVENUE 130300 . 131179) (VSEE 131181 . 131383)) (131386 131840 (PTT 131396 . 131838)) +(132199 133780 (DEBUGOUTPUT.STREAM 132209 . 133778)) (133781 136256 (TEDIT-DEBUG 133791 . 136254)) ( +136257 136749 (HEXTOHILO 136267 . 136607) (CW 136609 . 136747)) (136750 138486 (TRENAME 136760 . +138484))))) STOP diff --git a/internal/TEDIT-DEBUG.LCOM b/internal/TEDIT-DEBUG.LCOM index f3afda41eed9c334432254e84a7d68337a1794e4..7b7aa1013bdd1d9e4344ddd349d6bc35b4f81adc 100644 GIT binary patch delta 2414 zcmZuy-EZ4e6mQnCbz$s-Q6ajmJM&u97LwZ6PV59t;MzB_JIA(cCutwsHDY05`R7sn5OV``q6- z=dYjp|GC}&PW>rRGo{9ShKM8&l3EnSqFi|QyfUMWLt23RLne`nL@VYr0p?d5XO~}H zX)ZPvpz+4a>e^@#%8`e^5Px+jhtz?HhEX=672nY#%1^ox*`6C;zg;;9p%0-0A^Z3x zh}}ESJeCeoEq?9JSQ^~O@@;BRh%evCijXeZ4xO4six72@0d*=~4Q+=;;5q0q`A)>+ zcPF1lyMAE15u~?>tYPT^#IN5~N5J<&$95_B0S$e}jzD*u$bmHaWm2KzMe*NvUoA3&*Q!Vfuvu=ao zReUf@0i?}Rxdvs^4yX}%fz2{w1p`#V{}={@mRAq;5{1gFg*r9rRw>j%icv=qm~^UI z_NtLzjj~}BP`!dBMt2#`fV4$tBG0lN4~#lQa{+br3Weqp2&F2Ps{38D*{lEybL;q+ zJKnoc6!XG(dW_{|pcnLkLjQx9_><_^qLTh zid0l`0;J=MDIuk{zfRF(u`qt*SPmRLjQCTPAP>HdZ&m^oB5!Is)`p9zAL6y)v7^z@ z*@2h)@NenC11rslb3;SthS+ud>2M}hi?0oDwA^Zq3vq!xOzPX+$!GZf#_^pztA5~d zCbfCQ+Q+{2L)H5mGp`&z++V#k!4+q>MeGISy}xY6;W!K>SNNrK5%cGf$FCdeq5w zB_wHERzz6vLKHezTF1EB6DWr7?88RJHZ4b1{NBmY(Ogonq|_lOB8s4dNpXI#lO*lX5;2x-al#^dc+z$_Q50?<2@IPJ6wFkB#pY6D4dxq* z%NJVPeINkI6+m#@$%)gx9_Xw;@J?1?3{g_CUEKkk+=S#nFkIwdPJ$r`AQhx;5tzb> zG@b@2kJfOup#TC;uo!`hpvRab4vHAhY1XzV?awVWkj$&?y{9}#Y3;i4=iYuIDedx^ z-})I5PkNMJT<|_SfkZBTcKLh$o%Bfj{K_Ds+vdvkmyl4~!{d~bts)%KqD zTLVZG;tljl>_Vqnh+7GfNoNeF8seHy8alCq*iw2pa>oQTB`jXD zDp(tasD{ncwL1U{k{s!b?*&nq#a#_Jbi9bQ3PEXMu{pmwxBBKJuCV4hgE~RXFE1@M z&a$PpzKm!^bbWO5_?UwDBBjOqZ&|5aT)p*NQO<*q d%}y>aE^u|Gh>m-2@S-d5>=umL7jM-L{|8-NbK(F1 delta 1828 zcmZuy&2Jl35RdEhg8)@RTLC4I$&w(uU}xXkZ=)jC-gUguW_Pu_j*|;gJ`5O4T*XF# z_TUQ=SE@ZA!KHryhqgvVy^yF}KuA;^5TXZ4D!~OIapS;+d24TCM_BT{c{9KHc(e0+ z`|ls=e;%ekshuZ6&fV`Gaf;0PHq3I(1P2;pF3r@q;G?@FUt z--7xFS9aR-1qeK7Yy(%W+BOV(<@0$Cw$?ic{hw%*=du%-vSphk-_%3XKv2J)Cr1mq zHg^Wg6I80HQ8*5nz{^6x^UW2@tp+&*U4f%oZt4Bz;3T9V;z`K$YjY{F_x-pz{erCr zp=~)PltBVdj|CY*x448FC0c*wd{mrOQg@@Pvzb%1vllndwxXHb)6q|}7gE*e&)M7Q z<**vv;4YS@t8b0rZ-PBevB!7gm6gYtuy?NV7+Y(T;orAw?@Udl!<*R{vX&sMEi`?$ zck@Pc;>FjxXIJ7-mDqc7EF%gkgyw4K`L37O4Fg0f#)=@s1}%Fa5(W3Z=UXW9haxWk zsvH7>MiNO9AgH*t_{;)5bQ6ensPBTnOR#8$HOn#F8p{e)QI2b*!$ed}5>bIbs271! z0;P)XEShE434!w3AV1MCB?5@5BpO8;h7wum_7PZVzj`7PoFu(u2KcgRqNJFf1;X&d+s430Uh4Gbs6% z7rH(OSO6Ow)+WU9!#k>K$Kh1PDh}b4)pWFz$uT(c0AHR095fr-^)_@j>dn?JBvZ=) z70_rq3zsf?y00@m>WBmx9EWAg(QQz(*nR=HlEY!w2?|J7B5T7CD7vQU)iWpv(KlZ| zidSZQu=i>#KeJ!JmG-LpKQK=kdp_8kjNZQYL~Pi-_w92he;GS5mWrHTZ*^OYi;bA4 zu^4kRe)N@%SVr1W!dMowit_4Ui0}piFEFcy%PuHKUp9fw^s;H#=9*#oBa@9cN#CC+ zJTQDxMn9qYE zC*d)=EP-iYbi6sO5F{Ky7q$3m2NmE(kOxsKZV=)K4+X^NM%VJOB-dYK=kq{2GUGrJ zQ3G?eWLE>rb&!%`QVz0H9I?>E5n@`hni!vg05sNFwl~aTbrGawYp!~(9|qC=-%bj6 zg}5Oj06{8q&Bn&g`p$<7_|0f^l1XlDZ`U{3SESRzAtZ8i`r!GDpaB=7a-Dj+(_UaR tjH=N96QD-+!KIWE?H*K8Vzhto@+=$qe14(T+=|`NQ5;qD<{zz0{RiVG*c|`>