github.com/Interlisp.medley
1
0
Fork 0
mirror of synced 2026-01-25 20:06:44 +00:00
Code Issues Projects Releases Wiki Activity

Rmk88 split screen updates and color, eliminate reliance on STREAMHINT xpointer (#2119)

Browse Source 
* Tedit window splitting is more robust, interface through menu items instead of split-region on the right of the window.  See TEDIT-RELEASENOTES.TEDIT

* Tedit recognizes color as specfied by DSPCOLOR, passes it to hardcopy

* N-way buttons default to unsorted--new items go at the end. Otherwise keyboard shortcut meta-3 for the 3rd font might pick a different one depending on what went before.

* USER.CM can be specified as an opening property for Bravo conversion.

* Adresses/fixes Tedit issues #2173 #2172 #2171 #2142  #2105 #2062 #2059 #1972 (maybe some others).

* Changes to rationalize internal interfaces and simplify code, and particularly to eliminate internal dependencies on the STREAMHINT Xpointer backlink.  STREAMHINT is only accessed if a client has grabbed the TEXTOBJ and passes it back in.  The stream and window are the safe/reliable way of referencing the Tedit state (and the window and stream know about each other, and know about the TEXTOBJ only through the stream).

* Many changes to TEDIT-STRESS, including new defaults CHECKARRAYS NIL, NSYSOUTS 0, ARRAYBLOCKCHECKING T

* lispusers/EQUATIONS: image object no longer saves state on the stream, not the window (which may not be there).

* Rename CHARNAME to be CHARCODE.ENCODE, parallel to CHARCODE.DECODE
This commit is contained in:
rmkaplan
2025-07-03 00:06:10 -07:00
committed by GitHub
parent d6253dbffd
commit 63d5849a15
47 changed files with 5481 additions and 4204 deletions
Download Patch File Download Diff File Expand all files Collapse all files

293
internal/TEDIT-DEBUG
View File

@@ -1,13 +1,12 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
(FILECREATED "29-Mar-2025 22:37:05" {WMEDLEY}<internal>TEDIT-DEBUG.;143 131559
(FILECREATED "31-May-2025 10:30:31" {WMEDLEY}<internal>TEDIT-DEBUG.;170 138250
:EDIT-BY rmk
:CHANGES-TO (MACROS DEBUGOUTPUT)
(FNS SP SL SSP SPF STL TEST.TEMPLATE)
:CHANGES-TO (FNS \TLVALIDATE)
:PREVIOUS-DATE "28-Mar-2025 20:51:43" {WMEDLEY}<internal>TEDIT-DEBUG.;141)
:PREVIOUS-DATE "30-May-2025 23:51:11" {WMEDLEY}<internal>TEDIT-DEBUG.;168)
(PRETTYCOMPRINT TEDIT-DEBUGCOMS)
@@ -23,7 +22,8 @@
(* ;;
 "This is stored in internal/ so that it remains compatible with the commits/branches/PRs/releases.")
(VARS (\TEDIT.THELPFLG T))
(VARS (\TEDIT.THELPFLG T)
(TFILES (CONS 'TEDIT-DEBUG TEDITFILES)))
(COMS (* ;
 "Get/set (default) object, stream, window, selection")
(FNS GTO GTS GTW GSEL)
@@ -34,7 +34,7 @@
(FNS IPC ILINES ISEL ITS IPANES ITL IHIST IPCTB IMB ICL IPL ICARET INSPECTPIECES))
(COMS (* ; "Show")
(FNS SP SL SSP SPF SLF SHOWLINE SLL STBYTES SSEL)
(FNS STL CLEARTHISLINE))
(FNS STL CLEARTHISLINE CHARSLOTP \TLVALIDATE))
(COMS (FNS NTHPIECE NPIECES NTHPIECECHAR SELPIECE PIECENUM PCBYTES))
(COMS (FNS FILEBYTES TFILEBYTES))
(FNS TRELMOVE TSCROLL TSCROLL*)
@@ -68,8 +68,10 @@
(FNS DFVENUE VSEE)
(FNS PTT)
(* ; "Plain text")
(MACROS DEBUGOUTPUT)
(COMS (MACROS DEBUGOUTPUT)
(FNS DEBUGOUTPUT.STREAM))
(FNS TEDIT-DEBUG)
(FNS HEXTOHILO CW)
(FNS TRENAME)
(FILES (NOERROR)
VERSIONDEFS)
@@ -100,6 +102,8 @@
(RPAQQ \TEDIT.THELPFLG T)
(RPAQ TFILES (CONS 'TEDIT-DEBUG TEDITFILES))
(* ; "Get/set (default) object, stream, window, selection")
@@ -157,11 +161,18 @@
(DEFINEQ
(TEST.TEMPLATE
[LAMBDA (FILE) (* ; "Edited 29-Mar-2025 09:51 by rmk")
(CL:WHEN (AND (TEXTSTREAM LASTTEXTSTREAM)
[LAMBDA (FILE) (* ; "Edited 17-Apr-2025 19:41 by rmk")
(* ; "Edited 29-Mar-2025 09:51 by rmk")
(CL:WHEN (AND (TEXTSTREAM LASTTEXTSTREAM T)
(TEDITWINDOWP LASTTEXTSTREAM)
(OPENWP (TEDITWINDOWP LASTTEXTSTREAM)))
(TEXTPROP LASTTEXTSTREAM 'DIRTY NIL)
(for ST SW in (GETTEXTPROP LASTTEXTSTREAM 'SHOWSTREAMS) when (AND (SETQ SW (
\TEDIT.PRIMARYPANE
ST))
(OPENWP SW))
do (PUTTEXTPROP ST 'DIRTY NIL)
(CLOSEW SW))
(PUTTEXTPROP LASTTEXTSTREAM 'DIRTY NIL)
(CLOSEW (TEDITWINDOWP LASTTEXTSTREAM)))
(LET [(TSTREAM (TEXTSTREAM (TEDIT FILE NIL NIL '(LEAVETTY T]
(SETQ LASTTEXTSTREAM TSTREAM)
@@ -444,7 +455,10 @@
(DEFINEQ
(SP
[LAMBDA (PC NP OFILE TOBJ FONT NOCR) (* ; "Edited 29-Mar-2025 22:34 by rmk")
[LAMBDA (PC NP OFILE TOBJ FONT NOCR) (* ; "Edited 17-Apr-2025 13:37 by rmk")
(* ; "Edited 15-Apr-2025 13:53 by rmk")
(* ; "Edited 11-Apr-2025 12:15 by rmk")
(* ; "Edited 29-Mar-2025 22:34 by rmk")
(* ; "Edited 6-Jan-2025 22:18 by rmk")
(* ; "Edited 16-Dec-2024 15:50 by rmk")
(* ; "Edited 30-Nov-2024 19:34 by rmk")
@@ -502,8 +516,7 @@
(SETQ NP (CL:IF NP
20
MAX.SMALLP)))
(DEBUGOUTPUT OFILE WTYPE TITLE (DSPFONT (OR FONT '(TERMINAL 8))
OFILE)
(DEBUGOUTPUT [DEBUGOUTPUT.STREAM OFILE WTYPE TITLE 120 (OR FONT '(TERMINAL 8]
(for P PFILES inpieces PC as I from 1 to NP as PCNO
from (OR (PIECENUM PC TEXTOBJ)
1) do
@@ -521,11 +534,16 @@
OLDVALUE])
(PRINTOUT OFILE .I3 PCNO "/")
(SPPRINT P OFILE TEXTOBJ NOCR))
(TERPRI OFILE))
(TERPRI OFILE)
(CL:WHEN (TEXTSTREAMP OFILE)
(TEXTPROP.ADD TEXTOBJ 'SHOWSTREAMS OFILE)))
(RETURN PC])
(SL
[LAMBDA (FIRSTLINE LASTLINE PANE TOBJ OFILE) (* ; "Edited 29-Mar-2025 20:27 by rmk")
[LAMBDA (FIRSTLINE LASTLINE PANE TOBJ OFILE) (* ; "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")
(* ; "Edited 21-Jan-2025 15:39 by rmk")
(* ; "Edited 6-Jan-2025 22:58 by rmk")
(* ; "Edited 7-Dec-2024 16:34 by rmk")
@@ -537,9 +555,6 @@
(* ; "Edited 27-Oct-2024 18:38 by rmk")
(* ; "Edited 25-Oct-2024 22:25 by rmk")
(* ; "Edited 21-Oct-2024 23:08 by rmk")
(* ;; "Shows a selection of the lines backing the display in PANE")
(LET (LINES WTYPE PNO TITLE)
(if OFILE
then (CL:WHEN (MEMB OFILE '(T TEDIT))
@@ -564,8 +579,9 @@
(SETQ TOBJ (pop LINES))
(SETQ PANE (pop LINES))
(SETQ PNO (pop LINES))
(DEBUGOUTPUT OFILE WTYPE TITLE (PRINTOUT OFILE .FONT '(TERMINAL 8)
"Pane " PNO " = " PANE T)
(DEBUGOUTPUT (DEBUGOUTPUT.STREAM OFILE WTYPE TITLE NIL '(TERMINAL 8))
(PRINTOUT OFILE .FONT '(TERMINAL 8)
"Pane " PNO " = " PANE T)
(PRINTOUT OFILE .FONT '(TERMINAL 8)
15 "HT" -3 "BOT" 27 .FONT '(TERMINAL 8 BOLD)
"C1" 36 "CN" .FONT '(TERMINAL 8)
@@ -577,11 +593,14 @@
(TERPRI OFILE)
(CL:WHEN (EQ FIRSTLINE LASTLINE)
(printout OFILE (for L inlines (FGETLD LASTLINE NEXTLINE) sum 1)
" lines below LASTLINE" T T)))
" lines below LASTLINE" T T))
(CL:WHEN (TEXTSTREAMP OFILE)
(TEXTPROP.ADD TOBJ 'SHOWSTREAMS OFILE)))
FIRSTLINE])
(SSP
[LAMBDA (SELPIECES NP OFILE TEXTOBJ) (* ; "Edited 29-Mar-2025 22:35 by rmk")
[LAMBDA (SELPIECES NP OFILE TEXTOBJ) (* ; "Edited 11-Apr-2025 12:16 by rmk")
(* ; "Edited 29-Mar-2025 22:35 by rmk")
(* ; "Edited 30-Jan-2025 11:25 by rmk")
(* ; "Edited 26-Nov-2024 20:54 by rmk")
(* ; "Edited 3-Mar-2024 12:58 by rmk")
@@ -600,15 +619,16 @@
then (SETQ TEXTOBJ (TEXTOBJ OFILE))
(SETQ OFILE NIL)
else (GTO TEXTOBJ))
(DEBUGOUTPUT OFILE (CL:UNLESS OFILE 'SSP)
NIL
(DEBUGOUTPUT (DEBUGOUTPUT.STREAM OFILE (CL:UNLESS OFILE 'SSP)
NIL)
(for PC inselpieces SELPIECES as I from 1 to (OR NP 50)
do (PRINTOUT OFILE .I3 I "/")
(SPPRINT PC OFILE TEXTOBJ)))
SELPIECES])
(SPF
[LAMBDA (ARG TITLE OFILE) (* ; "Edited 29-Mar-2025 22:36 by rmk")
[LAMBDA (ARG TITLE OFILE) (* ; "Edited 11-Apr-2025 12:16 by rmk")
(* ; "Edited 29-Mar-2025 22:36 by rmk")
(* ; "Edited 30-Aug-2024 21:25 by rmk")
(* ; "Edited 15-Aug-2024 22:39 by rmk")
(* ; "Edited 13-Aug-2024 10:45 by rmk")
@@ -627,9 +647,10 @@
(SETQ TEXTOBJ (TEXTOBJ (\TEDIT.MAINW TEXTOBJ))))
(SETQ PAGEREGIONS (GETTOBJ TEXTOBJ TXTPAGEFRAMES)))
(SETQ TITLE (CONCAT "Page regions for " (OR TITLE TEXTOBJ PAGEREGIONS)))
(DEBUGOUTPUT OFILE 'SPF TITLE (PRINTOUT OFILE .FONT '(TERMINAL 8 BOLD)
TITLE .FONT '(TERMINAL 8)
T)
(DEBUGOUTPUT (DEBUGOUTPUT.STREAM OFILE 'SPF TITLE)
(PRINTOUT OFILE .FONT '(TERMINAL 8 BOLD)
TITLE .FONT '(TERMINAL 8)
T)
(for TYPE PF (FIRSTPF _ (TEDIT.GET.PAGEFORMAT PAGEREGIONS 'FIRST/DEFAULT))
in '(FIRST/DEFAULT LEFT RIGHT)
collect (SETQ PF (TEDIT.GET.PAGEFORMAT PAGEREGIONS TYPE))
@@ -912,7 +933,8 @@
(DEFINEQ
(STL
[LAMBDA (THISLINE LASTCS LCHAR1 OFILE) (* ; "Edited 29-Mar-2025 22:36 by rmk")
[LAMBDA (THISLINE LASTCS LCHAR1 OFILE) (* ; "Edited 11-Apr-2025 13:02 by rmk")
(* ; "Edited 29-Mar-2025 22:36 by rmk")
(* ; "Edited 22-Aug-2024 23:51 by rmk")
(* ; "Edited 4-Aug-2024 12:08 by rmk")
(* ; "Edited 31-Jul-2024 19:55 by rmk")
@@ -933,12 +955,13 @@
(SETQ LASTCS CHARSLOT))
(SETQ THISLINE (fetch (TEXTOBJ THISLINE) of (GTO THISLINE))))
(\DTEST THISLINE 'THISLINE)
(DEBUGOUTPUT OFILE (CL:IF OFILE
NIL
'STL)
NIL
(for CSLOT EXPANDSPACES CHNO TX LENGTH CHAR CHARW (SPACEFACTOR _ (FETCH TLSPACEFACTOR
OF THISLINE))
(DEBUGOUTPUT (DEBUGOUTPUT.STREAM OFILE (CL:IF OFILE
NIL
'STL)
NIL 80)
(for CSLOT EXPANDSPACES CHNO TX LENGTH CHAR CHARW CHARCL (SPACEFACTOR _
(FETCH TLSPACEFACTOR
OF THISLINE))
(FIRSTSPACESLOT _ (fetch TLFIRSTSPACE of THISLINE))
(LINE _ (fetch (THISLINE DESC) of THISLINE))
(NSPACES _ 0)
@@ -963,6 +986,7 @@
(SETQ LENGTH TX)
(printout OFILE 29 "XLIM" T) eachtime (SETQ CHAR (CHAR CSLOT))
(SETQ CHARW (CHARW CSLOT))
(SETQ CHARCL (CHARCL CSLOT))
(CL:UNLESS (CHARSLOTP CSLOT THISLINE)
(HELP "THISLINE RUNS OFF THE EDGE"
THISLINE))
@@ -1004,7 +1028,7 @@
(PROGN (add LENGTH CHARW)
(add TX CHARW)
(CHARACTER CHAR)))
.FR 28 CHARW " " .I4 TX 35 CSLOT)
.FR 28 CHARW " " .I4 TX 35 CHARCL 64 CSLOT)
(ADD CHNO 1)
elseif [AND [OR (CHARSLOTP CHAR THISLINE)
(AND (NULL CHAR)
@@ -1048,11 +1072,69 @@
T])
(CLEARTHISLINE
[LAMBDA (TSTREAM) (* ; "Edited 6-Mar-2025 11:28 by rmk")
[LAMBDA (TSTREAM) (* ; "Edited 11-Apr-2025 11:04 by rmk")
(* ; "Edited 6-Mar-2025 11:28 by rmk")
(LET ((THISLINE (GETTOBJ (GTO TSTREAM)
THISLINE)))
(replace (THISLINE DESC) of THISLINE with NIL)
(for CSLOT incharslots THISLINE do (FILLCHARSLOT CSLOT NIL NIL])
(for CSLOT incharslots THISLINE do (FILLCHARSLOT CSLOT NIL NIL NIL])
(CHARSLOTP
[LAMBDA (X TL) (* ; "Edited 30-May-2025 21:57 by rmk")
(* ;; "True if TL is a THISLINE and X is a pointer into its CHARSLOTS block. A tool for consistency assertions.")
(CL:WHEN (TYPE? THISLINE TL)
[LET [(FIRSTSLOT (FIRSTCHARSLOT TL))
(LASTSLOT (LASTCHARSLOT TL))
(LASTUSEDSLOT (PREVCHARSLOT (fetch (THISLINE NEXTAVAILABLECHARSLOT) of TL]
(AND [OR (IGREATERP (\HILOC X)
(\HILOC FIRSTSLOT))
(AND (EQ (\HILOC X)
(\HILOC FIRSTSLOT))
(IGEQ (\LOLOC X)
(\LOLOC FIRSTSLOT]
[OR (ILESSP (\HILOC X)
(\HILOC LASTUSEDSLOT))
(AND (EQ (\HILOC X)
(\HILOC LASTUSEDSLOT))
(ILEQ (\LOLOC X)
(\LOLOC LASTUSEDSLOT]
(OR (ILESSP (\HILOC X)
(\HILOC LASTSLOT))
(AND (EQ (\HILOC X)
(\HILOC LASTSLOT))
(ILEQ (\LOLOC X)
(\LOLOC LASTSLOT])])
(\TLVALIDATE
[LAMBDA (THISLINE LINE) (* ; "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")
(* ; "Edited 7-Nov-2022 10:16 by rmk")
(* ;; "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]
(for CHARSLOT incharslots THISLINE do (CL:UNLESS (OR (CHARCODEP CHAR)
(IMAGEOBJP CHAR)
(CHARSLOTP CHAR THISLINE))
(* ;; "CHARSLOTP if spaces haven't been instantiated")
(HELP "BAD CHARSLOT CHAR" CHARSLOT))
(CL:UNLESS (SMALLP CHARW)
(HELP "BAD CHARSLOT CHARW" CHARSLOT))
(CL:UNLESS (type? CHARLOOKS CHARCL)
(HELP "BAD CHARSLOT CLOOKS" CHARSLOT])
)
(DEFINEQ
@@ -1290,7 +1372,8 @@
(DEFINEQ
(SPPRINT
[LAMBDA (P OSTREAM TEXTOBJ NOCR) (* ; "Edited 19-Feb-2025 12:21 by rmk")
[LAMBDA (P OSTREAM TEXTOBJ NOCR) (* ; "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")
(* ; "Edited 5-May-2024 12:55 by rmk")
@@ -1379,7 +1462,7 @@
(PRIN1 "i " OSTREAM))
(PRIN1 "%"" OSTREAM)
(for I C from 1 to PLEN
do (SETQ C (\TEDIT.PIECE.NTHCHARCODE TEXTOBJ P I))
do (SETQ C (\TEDIT.PIECE.NTHCHARCODE P I))
(PRIN1 (SELCHARQ C
((EOL CR)
"[EOL]")
@@ -2360,29 +2443,41 @@
(DECLARE%: EVAL@COMPILE
(PUTPROPS DEBUGOUTPUT MACRO
[ARGS
`(LET
[(OFILE ,(CAR ARGS))
(WTYPE ,(CADR ARGS))
(TITLE ,(CADDR ARGS]
(RESETLST
[if WTYPE
then [SETQ OFILE (OPENTEXTSTREAM NIL (REGIONP OFILE)
NIL NIL '(FONT DEFAULTFONT]
[RESETSAVE NIL
`(PROGN (CL:UNLESS RESETSTATE
[TEDIT OFILE WTYPE NIL
`(READONLY QUIET LEAVETTY T TITLE
,(OR TITLE WTYPE]
(WINDOWPROP (WFROMDS OFILE)
'TEDIT-DEBUG T))]
elseif OFILE
then (RESETSAVE (SETQ OFILE (OPENSTREAM OFILE 'OUTPUT 'NEW))
'(PROGN (CLOSEF? OLDVALUE]
[RESETSAVE (DSPFONT NIL OFILE)
'(PROGN (DSPFONT OLDVALUE OFILE]
,@(CDDDR ARGS))])
(PUTPROPS DEBUGOUTPUT MACRO [(FILE . FORMS)
(RESETLST
[LET ((OFILE FILE))
[RESETSAVE (DSPFONT NIL OFILE)
'(PROGN (DSPFONT OLDVALUE OFILE] . FORMS])])
)
(DEFINEQ
(DEBUGOUTPUT.STREAM
[LAMBDA (OFILE WTYPE TITLE WIDTH FONT) (* ; "Edited 25-Apr-2025 09:11 by rmk")
(* ; "Edited 15-Apr-2025 13:55 by rmk")
(* ; "Edited 11-Apr-2025 12:13 by rmk")
(* ;; "Passed as the first argument in a call to DEBUGOUTPUT")
(CL:UNLESS FONT (SETQ FONT DEFAULTFONT))
[if WTYPE
then [SETQ OFILE (OPENTEXTSTREAM
NIL
(REGIONP OFILE)
NIL NIL `(FONT ,FONT PARALOOKS
(RIGHTMARGIN ,(AND WIDTH (ITIMES WIDTH (CHARWIDTH
(CHARCODE SPACE)
FONT]
(CL:WHEN WIDTH (LINELENGTH WIDTH OFILE))
(CL:UNLESS TITLE (SETQ TITLE WTYPE))
[RESETSAVE NIL `(PROGN (CL:UNLESS RESETSTATE
[TEDIT ,OFILE ',WTYPE NIL '(READONLY QUIET LEAVETTY T TITLE
,TITLE]
(WINDOWPROP (WFROMDS ,OFILE)
'TEDIT-DEBUG T))]
elseif OFILE
then (RESETSAVE (SETQ OFILE (OPENSTREAM OFILE 'OUTPUT 'NEW))
'(PROGN (CLOSEF? OLDVALUE]
OFILE])
)
(DEFINEQ
@@ -2422,6 +2517,23 @@
)
(DEFINEQ
(HEXTOHILO
[LAMBDA (NUM) (* ; "Edited 4-May-2025 21:52 by rmk")
(* ;; "Shows NUM as a standard Medley address")
(CL:UNLESS (FIXP NUM)
(SETQ NUM (HEXNUM? NUM)))
(CONCAT (OCTALSTRING (LRSH NUM 16))
","
(OCTALSTRING (LOGAND NUM 65535])
(CW
[LAMBDA NIL (* ; "Edited 5-May-2025 00:04 by rmk")
(CLOSEW (WHICHW])
)
(DEFINEQ
(TRENAME
[LAMBDA (FNS FILES) (* ; "Edited 16-Mar-2024 09:22 by rmk")
(CL:UNLESS FILES (SETQ FILES TEDITFILES))
@@ -2469,30 +2581,33 @@
(ADDTOVAR LAMA )
)
(DECLARE%: DONTCOPY
(FILEMAP (NIL (4984 7543 (GTO 4994 . 5244) (GTS 5246 . 7017) (GTW 7019 . 7175) (GSEL 7177 . 7541)) (
7576 8135 (TEST.TEMPLATE 7586 . 8133)) (8136 9071 (TESTACTION 8146 . 9069)) (9096 22911 (IPC 9106 .
10610) (ILINES 10612 . 13153) (ISEL 13155 . 13766) (ITS 13768 . 15492) (IPANES 15494 . 15729) (ITL
15731 . 16150) (IHIST 16152 . 18814) (IPCTB 18816 . 19242) (IMB 19244 . 20003) (ICL 20005 . 20706) (
IPL 20708 . 21248) (ICARET 21250 . 21777) (INSPECTPIECES 21779 . 22909)) (22933 50561 (SP 22943 .
27587) (SL 27589 . 31035) (SSP 31037 . 32592) (SPF 32594 . 35020) (SLF 35022 . 44155) (SHOWLINE 44157
. 47719) (SLL 47721 . 48468) (STBYTES 48470 . 50196) (SSEL 50198 . 50559)) (50562 59579 (STL 50572 .
59208) (CLEARTHISLINE 59210 . 59577)) (59580 64953 (NTHPIECE 59590 . 60722) (NPIECES 60724 . 61589) (
NTHPIECECHAR 61591 . 62899) (SELPIECE 62901 . 63343) (PIECENUM 63345 . 64064) (PCBYTES 64066 . 64951))
(64954 67428 (FILEBYTES 64964 . 66388) (TFILEBYTES 66390 . 67426)) (67429 68751 (TRELMOVE 67439 .
67682) (TSCROLL 67684 . 67850) (TSCROLL* 67852 . 68749)) (68752 71801 (TRY 68762 . 70031) (TEDITCLOSEW
70033 . 70376) (PARALASTWITHOUTEOL 70378 . 71263) (FIXPARALAST 71265 . 71799)) (71802 86449 (SPPRINT
71812 . 78397) (SPPRINT.CHAR 78399 . 79383) (SPPRINT.OBJ 79385 . 82443) (SHOWPIECEBYTES 82445 . 84001)
(CHECKPLENGTHS 84003 . 84460) (SBT 84462 . 85599) (COPYPCHAIN 85601 . 86447)) (86450 88511 (POSLINE
86460 . 88509)) (88512 89395 (PRESPLIT 88522 . 89393)) (89396 91109 (ALLTL 89406 . 90659) (NTHCHARSLOT
90661 . 91107)) (91135 101348 (PLCHAIN 91145 . 91673) (PRINTLINE 91675 . 94665) (SL.GETLINES 94667 .
97960) (CHECKLINES 97962 . 98942) (COLLECTLINES 98944 . 99196) (NTHLINE 99198 . 100203) (HEIGHT 100205
. 100493) (LINEBOTS 100495 . 101346)) (101349 103797 (IPC.DECODEARGS 101359 . 103795)) (103798 104391
(SPF1 103808 . 104389)) (104420 106798 (SLF.FATPLEN 104430 . 105289) (FILEPIECE 105291 . 106796)) (
106831 107599 (SELTEDIT 106841 . 107597)) (107669 113281 (PPARA 107679 . 108101) (PRUN 108103 . 109579
) (ADDLINEPOSITIONS 109581 . 111008) (SBR 111010 . 111664) (SBC 111666 . 113279)) (113338 115114 (
OLDWI 113348 . 113723) (COMP 113725 . 113920) (DFR 113922 . 115112)) (115115 116148 (DFGV 115125 .
115651) (GDIRECTORIES 115653 . 116146)) (116149 122714 (TTEST 116159 . 120691) (LTEST 120693 . 122058)
(THC 122060 . 122712)) (123028 123720 (SHOWSAFE 123038 . 123718)) (123773 124220 (MYH 123783 . 124218
)) (124465 125560 (DFVENUE 124475 . 125354) (VSEE 125356 . 125558)) (125561 126015 (PTT 125571 .
126013)) (127250 129566 (TEDIT-DEBUG 127260 . 129564)) (129567 131303 (TRENAME 129577 . 131301)))))
(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)))))
STOP

BIN
internal/TEDIT-DEBUG.LCOM
View File

Binary file not shown.