Skip to content

Commit 3aa58b6

Browse files
rmkaplanrmkaplan
authored
TEDIT: Align paralooks with charlooks, recompile all files, miscellaneous updates (#2021)
* Fix up Move command * change paralooks record, recompile, other updates * Fix right arrow and EOF * Caret position after NEXT, add FILESTREAM textprop, CH#/LEN args to TEDIT.SEL.AS.STRING * Added LLK * Arrows-movement in menus is confined to fields * Slightly better menu test * TEXTPROP glitch, create window after getting file * remove a debug call * forward/backward forgets original x position * Opentext stream preps for window-region prompt width * typing resets the leftarrow X position * Removing cached X position for up and down arrows I tied this to the DIRTY flag and recompiled its users. Also separately fixed the setsel and find functions to clobber the cache * Fencepost glitrch * add OPENWIDTH property * Selection past the middle goes to the right * bug fix * Set up for paralooks name changes to avoid future confusions * Update tedit-exports.all * One more systematic name change for char/para looks parallelism * TEDITSTRING applies initial props * TEDIT.CARETLOOKS returns oldlooks, TEDIT.PUT has a QUIET flag QUITEFLAG suppresses prompt printing
1 parent 0400c1e commit 3aa58b6

Some content is hidden

Large Commits have some content hidden by default. Use the searchbox below for content that may be hidden.

44 files changed

+2360
-1925
lines changed

‎internal/TEDIT-DEBUG

+46-35
Original file line numberDiff line numberDiff line change
@@ -1,12 +1,12 @@
11
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
22

3-
(FILECREATED " 1-Feb-2025 10:15:55" {WMEDLEY}<internal>TEDIT-DEBUG.;131 130299
3+
(FILECREATED "19-Feb-2025 12:21:45" {WMEDLEY}<internal>TEDIT-DEBUG.;135 130829
44

55
:EDIT-BY rmk
66

7-
:CHANGES-TO (MACROS DEBUGOUTPUT)
7+
:CHANGES-TO (FNS SPPRINT)
88

9-
:PREVIOUS-DATE " 1-Feb-2025 08:28:14" {WMEDLEY}<internal>TEDIT-DEBUG.;130)
9+
:PREVIOUS-DATE " 8-Feb-2025 22:41:55" {WMEDLEY}<internal>TEDIT-DEBUG.;134)
1010

1111

1212
(PRETTYCOMPRINT TEDIT-DEBUGCOMS)
@@ -30,7 +30,7 @@
3030
(COMS (* ; "Inspect")
3131
(FNS IPC ILINES ISEL ITS IPANES ITL IHIST IPCTB IMB ICL IPL ICARET INSPECTPIECES))
3232
(COMS (* ; "Show")
33-
(FNS SP SL SSP STL SPF SLF SHOWLINE SLL STBYTES))
33+
(FNS SP SL SSP STL SPF SLF SHOWLINE SLL STBYTES SSEL))
3434
(COMS (FNS NTHPIECE NPIECES NTHPIECECHAR SELPIECE PIECENUM PCBYTES))
3535
(COMS (FNS FILEBYTES TFILEBYTES))
3636
(FNS TRELMOVE TSCROLL TSCROLL*)
@@ -975,6 +975,15 @@
975975
(SETQ VERSION (\SMALLPIN STREAM))
976976
(PRINTOUT OUTFILE VERSION " (" (IDIFFERENCE VERSION 31415)
977977
")" T])
978+
979+
(SSEL
980+
[LAMBDA (SEL TEXTOBJ OFILE) (* ; "Edited 3-Feb-2025 23:05 by rmk")
981+
(SETQ TEXTOBJ (GTO TEXTOBJ))
982+
(CL:UNLESS SEL
983+
(SETQ SEL (TEXTSEL TEXTOBJ)))
984+
(for I from (GETSEL SEL CH#) to (GETSEL SEL CHLAST) do (PRINTOUT OFILE (TEDIT.NTHCHAR TEXTOBJ I))
985+
)
986+
(TERPRI OFILE])
978987
)
979988
(DEFINEQ
980989

@@ -1212,7 +1221,9 @@
12121221
(DEFINEQ
12131222

12141223
(SPPRINT
1215-
[LAMBDA (P OSTREAM TEXTOBJ NOCR) (* ; "Edited 5-Aug-2024 00:30 by rmk")
1224+
[LAMBDA (P OSTREAM TEXTOBJ NOCR) (* ; "Edited 19-Feb-2025 12:21 by rmk")
1225+
(* ; "Edited 8-Feb-2025 22:41 by rmk")
1226+
(* ; "Edited 5-Aug-2024 00:30 by rmk")
12161227
(* ; "Edited 5-May-2024 12:55 by rmk")
12171228
(* ; "Edited 23-Apr-2024 08:54 by rmk")
12181229
(* ; "Edited 17-Mar-2024 12:58 by rmk")
@@ -1275,12 +1286,12 @@
12751286
.I4 PLEN (CL:IF (PPARALAST P)
12761287
"*"
12771288
"")
1278-
(CL:IF (type? FMTSPEC PARALOOKS)
1279-
(if (fetch (FMTSPEC FMTNEWPAGEBEFORE) of PARALOOKS)
1280-
then (CL:IF (fetch (FMTSPEC FMTNEWPAGEAFTER) of PARALOOKS)
1289+
(CL:IF (type? PARALOOKS PARALOOKS)
1290+
(if (GETPLOOKS PARALOOKS FMTNEWPAGEBEFORE)
1291+
then (CL:IF (GETPLOOKS PARALOOKS FMTNEWPAGEAFTER)
12811292
"ba"
12821293
"b")
1283-
elseif (fetch (FMTSPEC FMTNEWPAGEAFTER) of PARALOOKS)
1294+
elseif (GETPLOOKS PARALOOKS FMTNEWPAGEAFTER)
12841295
then "a"
12851296
else "")
12861297
"")
@@ -2430,30 +2441,30 @@
24302441
(ADDTOVAR LAMA )
24312442
)
24322443
(DECLARE%: DONTCOPY
2433-
(FILEMAP (NIL (4852 7411 (GTO 4862 . 5112) (GTS 5114 . 6885) (GTW 6887 . 7043) (GSEL 7045 . 7409)) (
2434-
7468 20599 (IPC 7478 . 8982) (ILINES 8984 . 11525) (ISEL 11527 . 12138) (ITS 12140 . 13864) (IPANES
2435-
13866 . 14101) (ITL 14103 . 14522) (IHIST 14524 . 17186) (IPCTB 17188 . 17496) (IMB 17498 . 18113) (
2436-
ICL 18115 . 18680) (IPL 18682 . 19086) (ICARET 19088 . 19465) (INSPECTPIECES 19467 . 20597)) (20621
2437-
55720 (SP 20631 . 25148) (SL 25150 . 28294) (SSP 28296 . 29727) (STL 29729 . 38241) (SPF 38243 . 40542
2438-
) (SLF 40544 . 49677) (SHOWLINE 49679 . 53241) (SLL 53243 . 53990) (STBYTES 53992 . 55718)) (55721
2439-
61094 (NTHPIECE 55731 . 56863) (NPIECES 56865 . 57730) (NTHPIECECHAR 57732 . 59040) (SELPIECE 59042 .
2440-
59484) (PIECENUM 59486 . 60205) (PCBYTES 60207 . 61092)) (61095 63569 (FILEBYTES 61105 . 62529) (
2441-
TFILEBYTES 62531 . 63567)) (63570 64892 (TRELMOVE 63580 . 63823) (TSCROLL 63825 . 63991) (TSCROLL*
2442-
63993 . 64890)) (64893 67942 (TRY 64903 . 66172) (TEDITCLOSEW 66174 . 66517) (PARALASTWITHOUTEOL 66519
2443-
. 67404) (FIXPARALAST 67406 . 67940)) (67943 82273 (SPPRINT 67953 . 74369) (SPPRINT.CHAR 74371 .
2444-
75355) (SPPRINT.OBJ 75357 . 78415) (SHOWPIECEBYTES 78417 . 79973) (CHECKPLENGTHS 79975 . 80432) (SBT
2445-
80434 . 81423) (COPYPCHAIN 81425 . 82271)) (82274 84335 (POSLINE 82284 . 84333)) (84336 85219 (
2446-
PRESPLIT 84346 . 85217)) (85220 86933 (ALLTL 85230 . 86483) (NTHCHARSLOT 86485 . 86931)) (86959 97172
2447-
(PLCHAIN 86969 . 87497) (PRINTLINE 87499 . 90489) (SL.GETLINES 90491 . 93784) (CHECKLINES 93786 .
2448-
94766) (COLLECTLINES 94768 . 95020) (NTHLINE 95022 . 96027) (HEIGHT 96029 . 96317) (LINEBOTS 96319 .
2449-
97170)) (97173 99621 (IPC.DECODEARGS 97183 . 99619)) (99622 100215 (SPF1 99632 . 100213)) (100244
2450-
102622 (SLF.FATPLEN 100254 . 101113) (FILEPIECE 101115 . 102620)) (102655 103423 (SELTEDIT 102665 .
2451-
103421)) (103493 109105 (PPARA 103503 . 103925) (PRUN 103927 . 105403) (ADDLINEPOSITIONS 105405 .
2452-
106832) (SBR 106834 . 107488) (SBC 107490 . 109103)) (109162 113837 (DFOV 109172 . 111642) (OLDWI
2453-
111644 . 112019) (DFOV.OLDEST 112021 . 112446) (COMP 112448 . 112643) (DFR 112645 . 113835)) (113838
2454-
114871 (DFGV 113848 . 114374) (GDIRECTORIES 114376 . 114869)) (114872 121437 (TTEST 114882 . 119414) (
2455-
LTEST 119416 . 120781) (THC 120783 . 121435)) (121751 122443 (SHOWSAFE 121761 . 122441)) (122496
2456-
122943 (MYH 122506 . 122941)) (123188 124283 (DFVENUE 123198 . 124077) (VSEE 124079 . 124281)) (124284
2457-
124738 (PTT 124294 . 124736)) (125985 128301 (TEDIT-DEBUG 125995 . 128299)) (128302 130038 (TRENAME
2458-
128312 . 130036)))))
2444+
(FILEMAP (NIL (4850 7409 (GTO 4860 . 5110) (GTS 5112 . 6883) (GTW 6885 . 7041) (GSEL 7043 . 7407)) (
2445+
7466 20597 (IPC 7476 . 8980) (ILINES 8982 . 11523) (ISEL 11525 . 12136) (ITS 12138 . 13862) (IPANES
2446+
13864 . 14099) (ITL 14101 . 14520) (IHIST 14522 . 17184) (IPCTB 17186 . 17494) (IMB 17496 . 18111) (
2447+
ICL 18113 . 18678) (IPL 18680 . 19084) (ICARET 19086 . 19463) (INSPECTPIECES 19465 . 20595)) (20619
2448+
56081 (SP 20629 . 25146) (SL 25148 . 28292) (SSP 28294 . 29725) (STL 29727 . 38239) (SPF 38241 . 40540
2449+
) (SLF 40542 . 49675) (SHOWLINE 49677 . 53239) (SLL 53241 . 53988) (STBYTES 53990 . 55716) (SSEL 55718
2450+
. 56079)) (56082 61455 (NTHPIECE 56092 . 57224) (NPIECES 57226 . 58091) (NTHPIECECHAR 58093 . 59401)
2451+
(SELPIECE 59403 . 59845) (PIECENUM 59847 . 60566) (PCBYTES 60568 . 61453)) (61456 63930 (FILEBYTES
2452+
61466 . 62890) (TFILEBYTES 62892 . 63928)) (63931 65253 (TRELMOVE 63941 . 64184) (TSCROLL 64186 .
2453+
64352) (TSCROLL* 64354 . 65251)) (65254 68303 (TRY 65264 . 66533) (TEDITCLOSEW 66535 . 66878) (
2454+
PARALASTWITHOUTEOL 66880 . 67765) (FIXPARALAST 67767 . 68301)) (68304 82803 (SPPRINT 68314 . 74899) (
2455+
SPPRINT.CHAR 74901 . 75885) (SPPRINT.OBJ 75887 . 78945) (SHOWPIECEBYTES 78947 . 80503) (CHECKPLENGTHS
2456+
80505 . 80962) (SBT 80964 . 81953) (COPYPCHAIN 81955 . 82801)) (82804 84865 (POSLINE 82814 . 84863)) (
2457+
84866 85749 (PRESPLIT 84876 . 85747)) (85750 87463 (ALLTL 85760 . 87013) (NTHCHARSLOT 87015 . 87461))
2458+
(87489 97702 (PLCHAIN 87499 . 88027) (PRINTLINE 88029 . 91019) (SL.GETLINES 91021 . 94314) (CHECKLINES
2459+
94316 . 95296) (COLLECTLINES 95298 . 95550) (NTHLINE 95552 . 96557) (HEIGHT 96559 . 96847) (LINEBOTS
2460+
96849 . 97700)) (97703 100151 (IPC.DECODEARGS 97713 . 100149)) (100152 100745 (SPF1 100162 . 100743))
2461+
(100774 103152 (SLF.FATPLEN 100784 . 101643) (FILEPIECE 101645 . 103150)) (103185 103953 (SELTEDIT
2462+
103195 . 103951)) (104023 109635 (PPARA 104033 . 104455) (PRUN 104457 . 105933) (ADDLINEPOSITIONS
2463+
105935 . 107362) (SBR 107364 . 108018) (SBC 108020 . 109633)) (109692 114367 (DFOV 109702 . 112172) (
2464+
OLDWI 112174 . 112549) (DFOV.OLDEST 112551 . 112976) (COMP 112978 . 113173) (DFR 113175 . 114365)) (
2465+
114368 115401 (DFGV 114378 . 114904) (GDIRECTORIES 114906 . 115399)) (115402 121967 (TTEST 115412 .
2466+
119944) (LTEST 119946 . 121311) (THC 121313 . 121965)) (122281 122973 (SHOWSAFE 122291 . 122971)) (
2467+
123026 123473 (MYH 123036 . 123471)) (123718 124813 (DFVENUE 123728 . 124607) (VSEE 124609 . 124811))
2468+
(124814 125268 (PTT 124824 . 125266)) (126515 128831 (TEDIT-DEBUG 126525 . 128829)) (128832 130568 (
2469+
TRENAME 128842 . 130566)))))
24592470
STOP

‎internal/TEDIT-DEBUG.LCOM

209 Bytes
Binary file not shown.

0 commit comments

Comments
 (0)