github.com/Interlisp.medley
1
0
Fork 0
mirror of synced 2026-04-13 00:06:45 +00:00
Code Issues Projects Releases Wiki Activity

Tedit: eliminate some CHARLOOKS fields, change Charlooks menu, add pagenum object, a few cleanups (#2004)

Browse Source 
* CHARLOOKS fields, Charlooks menu, pagenum object, a few cleanups

* Add TEDIT-DEBUG

* Glitch in redo

* Select left of EOL
This commit is contained in:
rmkaplan
2025-02-03 12:14:49 -08:00
committed by GitHub
parent fc36176134
commit 86f5aadf95
29 changed files with 1791 additions and 1661 deletions
Download Patch File Download Diff File Expand all files Collapse all files

161
internal/TEDIT-DEBUG
View File

@@ -1,12 +1,12 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
(FILECREATED " 9-Jan-2025 16:40:25" {MEDLEY}<internal>TEDIT-DEBUG.;11 130460
(FILECREATED " 1-Feb-2025 10:15:55" {WMEDLEY}<internal>TEDIT-DEBUG.;131 130299
:EDIT-BY rmk
:CHANGES-TO (FNS SPPRINT.OBJ)
:CHANGES-TO (MACROS DEBUGOUTPUT)
:PREVIOUS-DATE "16-Dec-2024 20:38:14" {MEDLEY}<internal>TEDIT-DEBUG.;10)
:PREVIOUS-DATE " 1-Feb-2025 08:28:14" {WMEDLEY}<internal>TEDIT-DEBUG.;130)
(PRETTYCOMPRINT TEDIT-DEBUGCOMS)
@@ -109,14 +109,16 @@
(fetch (TEXTSTREAM TEXTOBJ) of TSTREAM))])
(GTS
[LAMBDA (ARG NOERROR) (* ; "Edited 23-Nov-2024 11:38 by rmk")
[LAMBDA (ARG NOERROR) (* ; "Edited 1-Feb-2025 08:25 by rmk")
(* ; "Edited 23-Nov-2024 11:38 by rmk")
(* ; "Edited 4-Oct-2024 22:13 by rmk")
(* ; "Edited 21-Sep-2024 21:51 by rmk")
(* ; "Edited 11-Aug-2024 21:53 by rmk")
(CL:UNLESS (AND (TEXTSTREAM LASTTEXTSTREAM T)
(OPENWP (\TEDIT.PRIMARYPANE LASTTEXTSTREAM)))
(SETQ LASTTEXTSTREAM NIL))
(LET* ((TWINDOWS (for W in (OPENWINDOWS) when (WINDOWPROP W 'TEDITCREATED) collect W))
(LET* ((TWINDOWS (for W in (OPENWINDOWS) when (WINDOWPROP W 'TEDITCREATED)
unless (WINDOWPROP W 'TEDIT-DEBUG) collect W))
(TSTREAM (TEXTSTREAM (OR ARG (CL:IF (CDR TWINDOWS)
(WHICHW)
(CAR TWINDOWS)))
@@ -393,25 +395,16 @@
(DEFINEQ
(SP
[LAMBDA (PC NP OFILE TOBJ FONT NOCR) (* ; "Edited 16-Dec-2024 15:50 by rmk")
[LAMBDA (PC NP OFILE TOBJ FONT NOCR) (* ; "Edited 6-Jan-2025 22:18 by rmk")
(* ; "Edited 16-Dec-2024 15:50 by rmk")
(* ; "Edited 30-Nov-2024 19:34 by rmk")
(* ; "Edited 26-Nov-2024 20:53 by rmk")
(* ; "Edited 23-Nov-2024 15:35 by rmk")
(* ; "Edited 9-Sep-2024 14:53 by rmk")
(* ; "Edited 1-Sep-2024 00:05 by rmk")
(* ; "Edited 11-Aug-2024 21:06 by rmk")
(* ; "Edited 15-Jun-2024 11:52 by rmk")
(* ; "Edited 21-May-2024 11:29 by rmk")
(* ; "Edited 13-May-2024 12:16 by rmk")
(* ; "Edited 5-May-2024 12:56 by rmk")
(* ; "Edited 29-Apr-2024 12:46 by rmk")
(* ; "Edited 17-Mar-2024 12:58 by rmk")
(* ; "Edited 16-Mar-2024 10:07 by rmk")
(* ; "Edited 11-Jan-2024 22:19 by rmk")
(* ; "Edited 3-Jan-2024 00:41 by rmk")
(* ; "Edited 27-Dec-2023 13:02 by rmk")
(* ; "Edited 25-Nov-2023 10:49 by rmk")
(* ; "Edited 23-Nov-2023 11:47 by rmk")
(* ; "Edited 21-Oct-2023 10:56 by rmk")
(* ;; "PC is the starting piece, NP is the number of pieces including it.")
@@ -422,12 +415,15 @@
PC
(GTO TOBJ)))
WTYPE)
(CL:WHEN (AND NP (LITATOM NP)
(NULL OFILE))
(SETQ WTYPE (CL:IF (EQ NP T)
'SP
NP))
(SETQ NP NIL))
(if OFILE
then (CL:WHEN (MEMB OFILE '(T TEDIT))
(SETQ WTYPE 'SP)
(SETQ OFILE NIL))
elseif (AND NP (LITATOM NP))
then (SETQ WTYPE (CL:IF (EQ NP T)
'SP
NP))
(SETQ NP NIL))
(CL:WHEN (EQ 0 (TEXTLEN TEXTOBJ))
(PRINTOUT T "Document is empty" T)
(RETURN))
@@ -479,7 +475,9 @@
(RETURN PC])
(SL
[LAMBDA (FIRSTLINE LASTLINE PANE TOBJ OFILE) (* ; "Edited 7-Dec-2024 16:34 by rmk")
[LAMBDA (FIRSTLINE LASTLINE PANE TOBJ OFILE) (* ; "Edited 21-Jan-2025 15:39 by rmk")
(* ; "Edited 6-Jan-2025 22:58 by rmk")
(* ; "Edited 7-Dec-2024 16:34 by rmk")
(* ; "Edited 3-Dec-2024 10:29 by rmk")
(* ; "Edited 25-Nov-2024 21:42 by rmk")
(* ; "Edited 18-Nov-2024 21:28 by rmk")
@@ -492,10 +490,13 @@
(* ;; "Shows a selection of the lines backing the display in PANE")
(LET (LINES WTYPE PNO)
(CL:UNLESS OFILE
(CL:WHEN (EQ LASTLINE T)
(SETQ WTYPE 'SL)
(SETQ LASTLINE NIL)))
(if OFILE
then (CL:WHEN (MEMB OFILE '(T TEDIT))
(SETQ WTYPE 'SL)
(SETQ OFILE NIL))
elseif (MEMB LASTLINE '(T TEDIT))
then (SETQ WTYPE 'SL)
(SETQ LASTLINE NIL))
(CL:WHEN [AND (type? LINEDESCRIPTOR (CAR (LISTP FIRSTLINE)))
(NULL LASTLINE)
(OR (NULL (CDR FIRSTLINE))
@@ -518,11 +519,15 @@
finally (CL:WHEN (EQ LASTLINE (PANEBOTTOMLINE PANE))
(SHOWLINE (PANESUFFIX PANE)
OFILE TOBJ)))
(TERPRI OFILE))
(TERPRI OFILE)
(CL:WHEN (EQ FIRSTLINE LASTLINE)
(printout OFILE (for L inlines (FGETLD LASTLINE NEXTLINE) sum 1)
" lines below LASTLINE" T T)))
FIRSTLINE])
(SSP
[LAMBDA (SELPIECES NP OFILE TEXTOBJ) (* ; "Edited 26-Nov-2024 20:54 by rmk")
[LAMBDA (SELPIECES NP OFILE TEXTOBJ) (* ; "Edited 30-Jan-2025 11:25 by rmk")
(* ; "Edited 26-Nov-2024 20:54 by rmk")
(* ; "Edited 3-Mar-2024 12:58 by rmk")
(* ; "Edited 12-Feb-2024 12:33 by rmk")
(* ; "Edited 22-Nov-2023 20:23 by rmk")
@@ -532,7 +537,13 @@
(* ;; "Prints up to NP pieces from SELPIECES.")
(SETQ TEXTOBJ (GTO TEXTOBJ))
(if (TEXTOBJ NP T)
then (SETQ TEXTOBJ (TEXTOBJ NP))
(SETQ NP NIL)
elseif (TEXTOBJ OFILE T)
then (SETQ TEXTOBJ (TEXTOBJ OFILE))
(SETQ OFILE NIL)
else (GTO TEXTOBJ))
(DEBUGOUTPUT OFILE (CL:UNLESS OFILE 'SSP)
(for PC inselpieces SELPIECES as I from 1 to (OR NP 50)
do (PRINTOUT OFILE .I3 I "/")
@@ -1345,7 +1356,7 @@
OSTREAM)))])
(SPPRINT.OBJ
[LAMBDA (OBJ STREAM POS) (* ; "Edited 9-Jan-2025 16:37 by rmk")
[LAMBDA (OBJ STREAM POS) (* ; "Edited 9-Jan-2025 16:48 by rmk")
(* ; "Edited 6-Oct-2024 20:54 by rmk")
(* ; "Edited 29-Sep-2024 14:45 by rmk")
(* ; "Edited 29-Aug-2024 10:44 by rmk")
@@ -1884,7 +1895,8 @@
(for R in (fetch (PARA RUNS) of PARA) do (PRUN R BSTR)))])
(PRUN
[LAMBDA (RUN BSTR) (* ; "Edited 22-Aug-2023 10:59 by rmk")
[LAMBDA (RUN BSTR) (* ; "Edited 2-Jan-2025 10:28 by rmk")
(* ; "Edited 22-Aug-2023 10:59 by rmk")
(* ; "Edited 8-Aug-2023 16:47 by rmk")
(* ;; "Shows the characters in RUN, with font information")
@@ -1903,26 +1915,15 @@
(LET (FONT (CL (fetch (RUN RUNLOOKS) of RUN)))
(SETQ FONT (fetch (CHARLOOKS CLFONT) of CL))
(TAB 13 NIL T)
(if FONT
then (for X in (FONTUNPARSE FONT)
do (if (MEMB X '(MEDIUM BOLD ITALIC REGULAR))
then (PRIN1 (NTHCHAR X 1)
T)
elseif (NUMBERP X)
then (PRINTOUT T " " X " ")
else (PRIN1 X T)))
(TERPRI T)
else (PRINTOUT T (fetch (CHARLOOKS CLNAME) of CL)
" "
(fetch (CHARLOOKS CLSIZE) of CL)
" "
(CL:IF (fetch (CHARLOOKS CLBOLD) of CL)
"B"
"M")
(CL:IF (fetch (CHARLOOKS CLITAL) of CL)
"I"
"R")
T)))
(PRINTOUT T (FONTPROP FONT 'FAMILY)
(FONTPROP FONT 'SIZE)
(CL:IF [EQ 'BOLD (CAR (FONTPROP FONT 'FACE]
'B
"")
(CL:IF [EQ 'ITALIC (CADR (FONTPROP FONT 'FACE]
'I
"")
T))
RUN)])
(ADDLINEPOSITIONS
@@ -2334,7 +2335,9 @@
`(PROGN (CL:UNLESS RESETSTATE
[TEDIT OFILE WTYPE NIL
`(READONLY QUIET LEAVETTY T TITLE
,WTYPE])]
,WTYPE]
(WINDOWPROP (WFROMDS OFILE)
'TEDIT-DEBUG T))]
elseif OFILE
then (RESETSAVE (SETQ OFILE (OPENSTREAM OFILE 'OUTPUT 'NEW))
'(PROGN (CLOSEF? OLDVALUE]
@@ -2427,30 +2430,30 @@
(ADDTOVAR LAMA )
)
(DECLARE%: DONTCOPY
(FILEMAP (NIL (4845 7232 (GTO 4855 . 5105) (GTS 5107 . 6706) (GTW 6708 . 6864) (GSEL 6866 . 7230)) (
7289 20420 (IPC 7299 . 8803) (ILINES 8805 . 11346) (ISEL 11348 . 11959) (ITS 11961 . 13685) (IPANES
13687 . 13922) (ITL 13924 . 14343) (IHIST 14345 . 17007) (IPCTB 17009 . 17317) (IMB 17319 . 17934) (
ICL 17936 . 18501) (IPL 18503 . 18907) (ICARET 18909 . 19286) (INSPECTPIECES 19288 . 20418)) (20442
55484 (SP 20452 . 25798) (SL 25800 . 28376) (SSP 28378 . 29491) (STL 29493 . 38005) (SPF 38007 . 40306
) (SLF 40308 . 49441) (SHOWLINE 49443 . 53005) (SLL 53007 . 53754) (STBYTES 53756 . 55482)) (55485
60858 (NTHPIECE 55495 . 56627) (NPIECES 56629 . 57494) (NTHPIECECHAR 57496 . 58804) (SELPIECE 58806 .
59248) (PIECENUM 59250 . 59969) (PCBYTES 59971 . 60856)) (60859 63333 (FILEBYTES 60869 . 62293) (
TFILEBYTES 62295 . 63331)) (63334 64656 (TRELMOVE 63344 . 63587) (TSCROLL 63589 . 63755) (TSCROLL*
63757 . 64654)) (64657 67706 (TRY 64667 . 65936) (TEDITCLOSEW 65938 . 66281) (PARALASTWITHOUTEOL 66283
. 67168) (FIXPARALAST 67170 . 67704)) (67707 82037 (SPPRINT 67717 . 74133) (SPPRINT.CHAR 74135 .
75119) (SPPRINT.OBJ 75121 . 78179) (SHOWPIECEBYTES 78181 . 79737) (CHECKPLENGTHS 79739 . 80196) (SBT
80198 . 81187) (COPYPCHAIN 81189 . 82035)) (82038 84099 (POSLINE 82048 . 84097)) (84100 84983 (
PRESPLIT 84110 . 84981)) (84984 86697 (ALLTL 84994 . 86247) (NTHCHARSLOT 86249 . 86695)) (86723 96936
(PLCHAIN 86733 . 87261) (PRINTLINE 87263 . 90253) (SL.GETLINES 90255 . 93548) (CHECKLINES 93550 .
94530) (COLLECTLINES 94532 . 94784) (NTHLINE 94786 . 95791) (HEIGHT 95793 . 96081) (LINEBOTS 96083 .
96934)) (96937 99385 (IPC.DECODEARGS 96947 . 99383)) (99386 99979 (SPF1 99396 . 99977)) (100008 102386
(SLF.FATPLEN 100018 . 100877) (FILEPIECE 100879 . 102384)) (102419 103187 (SELTEDIT 102429 . 103185))
(103257 109415 (PPARA 103267 . 103689) (PRUN 103691 . 105713) (ADDLINEPOSITIONS 105715 . 107142) (SBR
107144 . 107798) (SBC 107800 . 109413)) (109472 114147 (DFOV 109482 . 111952) (OLDWI 111954 . 112329)
(DFOV.OLDEST 112331 . 112756) (COMP 112758 . 112953) (DFR 112955 . 114145)) (114148 115181 (DFGV
114158 . 114684) (GDIRECTORIES 114686 . 115179)) (115182 121747 (TTEST 115192 . 119724) (LTEST 119726
. 121091) (THC 121093 . 121745)) (122061 122753 (SHOWSAFE 122071 . 122751)) (122806 123253 (MYH
122816 . 123251)) (123498 124593 (DFVENUE 123508 . 124387) (VSEE 124389 . 124591)) (124594 125048 (PTT
124604 . 125046)) (126146 128462 (TEDIT-DEBUG 126156 . 128460)) (128463 130199 (TRENAME 128473 .
130197)))))
(FILEMAP (NIL (4852 7411 (GTO 4862 . 5112) (GTS 5114 . 6885) (GTW 6887 . 7043) (GSEL 7045 . 7409)) (
7468 20599 (IPC 7478 . 8982) (ILINES 8984 . 11525) (ISEL 11527 . 12138) (ITS 12140 . 13864) (IPANES
13866 . 14101) (ITL 14103 . 14522) (IHIST 14524 . 17186) (IPCTB 17188 . 17496) (IMB 17498 . 18113) (
ICL 18115 . 18680) (IPL 18682 . 19086) (ICARET 19088 . 19465) (INSPECTPIECES 19467 . 20597)) (20621
55720 (SP 20631 . 25148) (SL 25150 . 28294) (SSP 28296 . 29727) (STL 29729 . 38241) (SPF 38243 . 40542
) (SLF 40544 . 49677) (SHOWLINE 49679 . 53241) (SLL 53243 . 53990) (STBYTES 53992 . 55718)) (55721
61094 (NTHPIECE 55731 . 56863) (NPIECES 56865 . 57730) (NTHPIECECHAR 57732 . 59040) (SELPIECE 59042 .
59484) (PIECENUM 59486 . 60205) (PCBYTES 60207 . 61092)) (61095 63569 (FILEBYTES 61105 . 62529) (
TFILEBYTES 62531 . 63567)) (63570 64892 (TRELMOVE 63580 . 63823) (TSCROLL 63825 . 63991) (TSCROLL*
63993 . 64890)) (64893 67942 (TRY 64903 . 66172) (TEDITCLOSEW 66174 . 66517) (PARALASTWITHOUTEOL 66519
. 67404) (FIXPARALAST 67406 . 67940)) (67943 82273 (SPPRINT 67953 . 74369) (SPPRINT.CHAR 74371 .
75355) (SPPRINT.OBJ 75357 . 78415) (SHOWPIECEBYTES 78417 . 79973) (CHECKPLENGTHS 79975 . 80432) (SBT
80434 . 81423) (COPYPCHAIN 81425 . 82271)) (82274 84335 (POSLINE 82284 . 84333)) (84336 85219 (
PRESPLIT 84346 . 85217)) (85220 86933 (ALLTL 85230 . 86483) (NTHCHARSLOT 86485 . 86931)) (86959 97172
(PLCHAIN 86969 . 87497) (PRINTLINE 87499 . 90489) (SL.GETLINES 90491 . 93784) (CHECKLINES 93786 .
94766) (COLLECTLINES 94768 . 95020) (NTHLINE 95022 . 96027) (HEIGHT 96029 . 96317) (LINEBOTS 96319 .
97170)) (97173 99621 (IPC.DECODEARGS 97183 . 99619)) (99622 100215 (SPF1 99632 . 100213)) (100244
102622 (SLF.FATPLEN 100254 . 101113) (FILEPIECE 101115 . 102620)) (102655 103423 (SELTEDIT 102665 .
103421)) (103493 109105 (PPARA 103503 . 103925) (PRUN 103927 . 105403) (ADDLINEPOSITIONS 105405 .
106832) (SBR 106834 . 107488) (SBC 107490 . 109103)) (109162 113837 (DFOV 109172 . 111642) (OLDWI
111644 . 112019) (DFOV.OLDEST 112021 . 112446) (COMP 112448 . 112643) (DFR 112645 . 113835)) (113838
114871 (DFGV 113848 . 114374) (GDIRECTORIES 114376 . 114869)) (114872 121437 (TTEST 114882 . 119414) (
LTEST 119416 . 120781) (THC 120783 . 121435)) (121751 122443 (SHOWSAFE 121761 . 122441)) (122496
122943 (MYH 122506 . 122941)) (123188 124283 (DFVENUE 123198 . 124077) (VSEE 124079 . 124281)) (124284
124738 (PTT 124294 . 124736)) (125985 128301 (TEDIT-DEBUG 125995 . 128299)) (128302 130038 (TRENAME
128312 . 130036)))))
STOP

BIN
internal/TEDIT-DEBUG.LCOM
View File

Binary file not shown.

25
library/IMAGEOBJ
View File

@@ -1,12 +1,12 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
(FILECREATED " 7-Jul-2024 21:04:16" {WMEDLEY}<library>IMAGEOBJ.;3 34260
(FILECREATED " 7-Dec-2024 19:44:25" {WMEDLEY}<library>IMAGEOBJ.;4 34381
:EDIT-BY rmk
:CHANGES-TO (FNS GET.OBJ.FROM.USER)
:PREVIOUS-DATE " 7-Dec-95 13:21:56" {WMEDLEY}<library>IMAGEOBJ.;1)
:PREVIOUS-DATE " 7-Jul-2024 21:04:16" {WMEDLEY}<library>IMAGEOBJ.;3)
(PRETTYCOMPRINT IMAGEOBJCOMS)
@@ -674,7 +674,8 @@
(DEFINEQ
(GET.OBJ.FROM.USER
[LAMBDA (TEXTSTREAM TEXTOBJ) (* ; "Edited 7-Jul-2024 21:04 by rmk")
[LAMBDA (TEXTSTREAM TEXTOBJ) (* ; "Edited 7-Dec-2024 19:44 by rmk")
(* ; "Edited 7-Jul-2024 21:04 by rmk")
(* ; "Edited 26-Apr-91 10:54 by jds")
(* ;; "reads an expression from the user and puts the result into the textstream at the current position of its caret.")
@@ -688,7 +689,7 @@
(TEDIT.INSERT TEXTSTREAM VAL))
(LITATOM (* ;
 "Atoms and strings get inserted as text.")
(TEDIT.INSERT TEXTSTREAM (MKSTRING VAL T)))
(AND VAL (TEDIT.INSERT TEXTSTREAM (MKSTRING VAL T))))
(IMAGEOBJ (* ; "IMAGEOBJs get inserted as is")
(TEDIT.INSERT.OBJECT VAL TEXTSTREAM))
(T [COND
@@ -769,12 +770,12 @@
(FILESLOAD EDITBITMAP)
(DECLARE%: DONTCOPY
(FILEMAP (NIL (2973 7469 (BITMAPTEDITOBJ 2983 . 3626) (COERCETOBITMAP 3628 . 5672) (WINDOWTITLEFONT
5674 . 6021) (\PRINTBINARYBITMAP 6023 . 6814) (\READBINARYBITMAP 6816 . 7467)) (7520 23638 (
BMOBJ.BUTTONEVENTINFN 7530 . 12076) (BMOBJ.COPYFN 12078 . 12704) (BMOBJ.DISPLAYFN 12706 . 16435) (
BMOBJ.IMAGEBOXFN 16437 . 18852) (BMOBJ.PUTFN 18854 . 19786) (BMOBJ.INIT 19788 . 20827) (BMOBJ.GETFN5
20829 . 21419) (BMOBJ.CREATE.MENU 21421 . 23636)) (23728 27012 (SCALED.BITMAP.GETFN 23738 . 24164) (
BMOBJ.GETFN 24166 . 24701) (BMOBJ.GETFN2 24703 . 25188) (BMOBJ.GETFN3 25190 . 25978) (BMOBJ.GETFN4
25980 . 27010)) (28947 34160 (GET.OBJ.FROM.USER 28957 . 30804) (BITMAPOBJ.SNAPW 30806 . 31932) (
PROMPTFOREVALED 31934 . 34158)))))
(FILEMAP (NIL (2975 7471 (BITMAPTEDITOBJ 2985 . 3628) (COERCETOBITMAP 3630 . 5674) (WINDOWTITLEFONT
5676 . 6023) (\PRINTBINARYBITMAP 6025 . 6816) (\READBINARYBITMAP 6818 . 7469)) (7522 23640 (
BMOBJ.BUTTONEVENTINFN 7532 . 12078) (BMOBJ.COPYFN 12080 . 12706) (BMOBJ.DISPLAYFN 12708 . 16437) (
BMOBJ.IMAGEBOXFN 16439 . 18854) (BMOBJ.PUTFN 18856 . 19788) (BMOBJ.INIT 19790 . 20829) (BMOBJ.GETFN5
20831 . 21421) (BMOBJ.CREATE.MENU 21423 . 23638)) (23730 27014 (SCALED.BITMAP.GETFN 23740 . 24166) (
BMOBJ.GETFN 24168 . 24703) (BMOBJ.GETFN2 24705 . 25190) (BMOBJ.GETFN3 25192 . 25980) (BMOBJ.GETFN4
25982 . 27012)) (28949 34281 (GET.OBJ.FROM.USER 28959 . 30925) (BITMAPOBJ.SNAPW 30927 . 32053) (
PROMPTFOREVALED 32055 . 34279)))))
STOP

BIN
library/IMAGEOBJ.LCOM
View File

Binary file not shown.

121
library/tedit/TEDIT
View File

@@ -1,12 +1,13 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
(FILECREATED "11-Jan-2025 00:09:59" {WMEDLEY}<library>TEDIT>TEDIT.;737 155171
(FILECREATED " 2-Feb-2025 11:37:42" {WMEDLEY}<library>tedit>TEDIT.;742 154343
:EDIT-BY rmk
:CHANGES-TO (FNS \TEDIT.PARA.FIRST)
:CHANGES-TO (FNS TEDIT.INSERT.OBJECT)
(VARS TEDITCOMS)
:PREVIOUS-DATE " 7-Jan-2025 13:31:36" {WMEDLEY}<library>TEDIT>TEDIT.;736)
:PREVIOUS-DATE "31-Jan-2025 09:36:11" {WMEDLEY}<library>tedit>TEDIT.;741)
(PRETTYCOMPRINT TEDITCOMS)
@@ -52,8 +53,7 @@
(FNS TEDIT.INSERT.OBJECT TEDIT.EDIT.OBJECT TEDIT.FIND.OBJECT TEDIT.FIND.OBJECT.BACKWARD
TEDIT.OBJECT.CHANGED TEDIT.MAP.OBJECTS \TEDIT.FIRST.OBJPIECE \TEDIT.NEXT.OBJPIECE)
(FILES IMAGEOBJ))
(FNS \TEDIT.CONCAT.PAGEFRAMES \TEDIT.GET.PAGE.HEADINGS \TEDIT.CONCAT.INSTALL.HEADINGS
\TEDIT.DO.BLUEPENDINGDELETE)
(FNS \TEDIT.CONCAT.PAGEFRAMES \TEDIT.GET.PAGE.HEADINGS \TEDIT.CONCAT.INSTALL.HEADINGS)
(FNS \TEDIT.MOVE.MSG \TEDIT.READONLY)
(FNS TEDIT.NCHARS TEDIT.RPLCHARCODE TEDIT.NTHCHARCODE TEDIT.NTHCHAR \TEDIT.PIECE.NTHCHARCODE)
@@ -747,7 +747,8 @@
(DEFINEQ
(TEDIT.INSERT.OBJECT
[LAMBDA (OBJECT TSTREAM CH# LOOKS) (* ; "Edited 26-Dec-2024 10:13 by rmk")
[LAMBDA (OBJECT TSTREAM CH# LOOKS) (* ; "Edited 2-Feb-2025 11:37 by rmk")
(* ; "Edited 26-Dec-2024 10:13 by rmk")
(* ; "Edited 21-Oct-2024 00:26 by rmk")
(* ; "Edited 2-Aug-2024 08:46 by rmk")
(* ; "Edited 30-Jul-2024 22:19 by rmk")
@@ -811,8 +812,8 @@
(\TEDIT.SHOWSEL SEL NIL TEXTOBJ)
(CL:WHEN (type? SELECTION CH#)
(SETQ CH# (GETSEL CH# CH#)))
(\TEDIT.DO.BLUEPENDINGDELETE SEL TEXTOBJ) (* ;
 "Do the pending delete, if there is one.")
(CL:WHEN (FGETTOBJ TEXTOBJ BLUEPENDINGDELETE)
(\TEDIT.DELETE TEXTOBJ SEL T))
(CL:WHEN CH#
(\TEDIT.UPDATE.SEL SEL (IMIN CH# (ADD1 (TEXTLEN TEXTOBJ)))
0
@@ -1080,22 +1081,6 @@
REGIONFILLMETHOD _ 'HEADING
REGIONLOCALINFO _ (LIST 'HEADINGTYPE (CAR R))
REGIONSPEC _ (CADR R])])
(\TEDIT.DO.BLUEPENDINGDELETE
[LAMBDA (SEL TEXTOBJ) (* ; "Edited 27-Nov-2024 12:05 by rmk")
(* ; "Edited 9-Mar-2024 11:33 by rmk")
(* ; "Edited 24-Dec-2023 00:01 by rmk")
(* ; "Edited 8-Jul-2023 22:48 by rmk")
(* ; "Edited 4-May-2023 00:05 by rmk")
(* ; "Edited 22-Apr-2023 18:31 by rmk")
(* ; "Edited 29-May-91 18:21 by jds")
(* ;; "Check for blue-pending-delete, and do it if it's there.")
(* ;; "Return T if the deletion was made. For people who need to know")
(CL:WHEN (GETTOBJ TEXTOBJ BLUEPENDINGDELETE)
(\TEDIT.DELETE TEXTOBJ SEL T])
)
(DEFINEQ
@@ -2240,7 +2225,8 @@
SPLASTCHAR _ (CAR LAST])
(\TEDIT.PARA.FIRST
[LAMBDA (TEXTOBJ CHNO PROTECTEDNOTOK) (* ; "Edited 11-Jan-2025 00:08 by rmk")
[LAMBDA (TEXTOBJ CHNO PROTECTEDNOTOK) (* ; "Edited 30-Jan-2025 12:02 by rmk")
(* ; "Edited 11-Jan-2025 00:08 by rmk")
(* ; "Edited 17-Mar-2024 00:27 by rmk")
(* ; "Edited 19-Jan-2024 10:10 by rmk")
(* ; "Edited 26-Dec-2023 09:14 by rmk")
@@ -2254,8 +2240,8 @@
else (LET (CHPIECE START-OF-PIECE START)
(DECLARE (SPECVARS START-OF-PIECE))
(if (type? SELPIECES CHNO)
then (SETQ CHPIECE (fetch (SELPIECES SPFIRST) of CHNO))
(SETQ START (fetch (SELPIECES SPFIRSTCHAR) of CHNO))
then (SETQ CHPIECE (GETSPC CHNO SPFIRST))
(SETQ START (GETSPC CHNO SPFIRSTCHAR))
elseif (type? PIECE CHNO)
then (SETQ START (\TEDIT.PCTOCH CHNO TEXTOBJ))
(SETQ CHPIECE CHNO)
@@ -2270,18 +2256,20 @@
(for PC (PLENTOT _ 0) backpieces (AND CHPIECE (PREVPIECE CHPIECE))
when (VISIBLEPIECEP PC) until (PPARALAST PC)
until (AND PROTECTEDNOTOK (fetch (CHARLOOKS CLPROTECTED) of (PLOOKS PC)))
do (add PLENTOT (PLEN PC)) finally
until (AND PROTECTEDNOTOK (GETCLOOKS (PLOOKS PC)
CLPROTECTED)) do (add PLENTOT (PLEN PC))
finally
(* ;; "If the iteration reached the beginning, there is no PREVPIECE. Otherwise, PC is the previous PARALAST, and we have to take its next")
(* ;; "If the iteration reached the beginning, there is no PREVPIECE. Otherwise, PC is the previous PARALAST, and we have to take its next")
(RETURN (CONS (IDIFFERENCE START PLENTOT)
(CL:IF (PREVPIECE PC)
(NEXTPIECE PC)
PC)])
(RETURN (CONS (IDIFFERENCE START PLENTOT)
(CL:IF PC
(NEXTPIECE PC)
(\TEDIT.FIRSTPIECE TEXTOBJ))])
(\TEDIT.PARA.LAST
[LAMBDA (TEXTOBJ CHNO PROTECTEDNOTOK) (* ; "Edited 17-Mar-2024 00:27 by rmk")
[LAMBDA (TEXTOBJ CHNO PROTECTEDNOTOK) (* ; "Edited 31-Jan-2025 09:33 by rmk")
(* ; "Edited 17-Mar-2024 00:27 by rmk")
(* ; "Edited 19-Jan-2024 10:37 by rmk")
(* ; "Edited 26-Dec-2023 09:14 by rmk")
(* ; "Edited 24-Dec-2023 22:16 by rmk")
@@ -2295,15 +2283,16 @@
else (LET (CHPIECE START-OF-PIECE END FORMATTED)
(DECLARE (SPECVARS START-OF-PIECE))
(if (type? SELPIECES CHNO)
then (SETQ CHPIECE (fetch (SELPIECES SPLAST) of CHNO))
[SETQ END (SUB1 (IDIFFERENCE (fetch (SELPIECES SPLASTCHAR) of CHNO)
then (SETQ CHPIECE (GETSPC CHNO SPLAST))
[SETQ END (SUB1 (IDIFFERENCE (GETSPC CHNO SPLASTCHAR)
(PLEN CHPIECE]
elseif (type? PIECE CHNO)
then (SETQ CHPIECE CHNO)
(SETQ END (\TEDIT.PCTOCH CHNO TEXTOBJ))
else (SETQ CHPIECE (\TEDIT.CHTOPC (CL:IF (type? SELECTION CHNO)
(SUB1 (FGETSEL CHNO CHLIM))
CHNO)
else (SETQ CHPIECE (\TEDIT.CHTOPC (IMIN (CL:IF (type? SELECTION CHNO)
(FGETSEL CHNO CHLAST)
CHNO)
(TEXTLEN TEXTOBJ))
TEXTOBJ T))
(SETQ END START-OF-PIECE)) (* ; "Find the paragraph's last char")
@@ -2311,7 +2300,8 @@
(for PC (PLENTOT _ 0) inpieces CHPIECE when (VISIBLEPIECEP PC)
do (add PLENTOT (PLEN PC)) repeatuntil (PPARALAST PC)
repeatuntil (AND PROTECTEDNOTOK (fetch (CHARLOOKS CLPROTECTED) of (PLOOKS PC)))
repeatuntil (AND PROTECTEDNOTOK (FGETCLOOKS (PLOOKS PC)
CLPROTECTED))
finally (RETURN (CONS (IMIN (IPLUS END PLENTOT -1)
(FGETTOBJ TEXTOBJ TEXTLEN))
PC])
@@ -2485,7 +2475,7 @@
(* ; "TEDIT Support information")
(RPAQQ TEDITSYSTEMDATE "11-Jan-2025 00:09:59")
(RPAQQ TEDITSYSTEMDATE " 2-Feb-2025 11:37:42")
@@ -2495,28 +2485,27 @@
(ADDTOVAR PRINTFILETYPES (TEDIT (TEST \TEDIT.GET.TRAILER)
(EXTENSION (TEDIT))))
(DECLARE%: DONTCOPY
(FILEMAP (NIL (4632 6574 (MAKE-TEDIT-EXPORTS.ALL 4642 . 5188) (UPDATE-TEDIT 5190 . 5803) (EDIT-TEDIT
5805 . 6572)) (8247 36702 (TEDIT 8257 . 10835) (TEXTSTREAM 10837 . 12757) (TEXTSTREAMP 12759 . 13143)
(TEDITMENUP 13145 . 13911) (COERCETEXTSTREAM 13913 . 18124) (TEDIT.CONCAT 18126 . 21305) (TEDITSTRING
21307 . 22160) (TEDIT-SEE 22162 . 22721) (TEDIT.COPY 22723 . 24868) (TEDIT.DELETE 24870 . 26122) (
TEDIT.INSERT 26124 . 29082) (TEDIT.TERPRI 29084 . 30198) (TEDIT.KILL 30200 . 31116) (TEDIT.QUIT 31118
. 32893) (TEDIT.MOVE 32895 . 33783) (TEDIT.STRINGWIDTH 33785 . 34456) (TEDIT.CHARWIDTH 34458 . 36700)
) (36703 38644 (TEXTOBJ 36713 . 37178) (COERCETEXTOBJ 37180 . 38642)) (40044 41100 (TDRIBBLE 40054 .
41098)) (41141 56210 (TEDIT.INSERT.OBJECT 41151 . 45850) (TEDIT.EDIT.OBJECT 45852 . 48193) (
TEDIT.FIND.OBJECT 48195 . 49703) (TEDIT.FIND.OBJECT.BACKWARD 49705 . 51632) (TEDIT.OBJECT.CHANGED
51634 . 54501) (TEDIT.MAP.OBJECTS 54503 . 55738) (\TEDIT.FIRST.OBJPIECE 55740 . 55973) (
\TEDIT.NEXT.OBJPIECE 55975 . 56208)) (56233 64790 (\TEDIT.CONCAT.PAGEFRAMES 56243 . 61377) (
\TEDIT.GET.PAGE.HEADINGS 61379 . 62408) (\TEDIT.CONCAT.INSTALL.HEADINGS 62410 . 63741) (
\TEDIT.DO.BLUEPENDINGDELETE 63743 . 64788)) (64791 68220 (\TEDIT.MOVE.MSG 64801 . 66882) (
\TEDIT.READONLY 66884 . 68218)) (68221 82842 (TEDIT.NCHARS 68231 . 68604) (TEDIT.RPLCHARCODE 68606 .
76406) (TEDIT.NTHCHARCODE 76408 . 78765) (TEDIT.NTHCHAR 78767 . 79025) (\TEDIT.PIECE.NTHCHARCODE 79027
. 82840)) (82888 137270 (\TEDIT1 82898 . 84975) (\TEDIT.INSERT 84977 . 90954) (\TEDIT.MOVE 90956 .
98355) (\TEDIT.COPY 98357 . 102335) (\TEDIT.REPLACE.SELPIECES 102337 . 106317) (
\TEDIT.INSERT.SELPIECES 106319 . 109204) (\TEDIT.RESTARTFN 109206 . 111711) (\TEDIT.CHARDELETE 111713
. 114540) (\TEDIT.COPYPIECE 114542 . 119390) (\TEDIT.APPLY.OBJFN 119392 . 122589) (\TEDIT.DELETE
122591 . 127400) (\TEDIT.DIFFUSE.PARALOOKS 127402 . 129673) (\TEDIT.WORDDELETE 129675 . 131231) (
\TEDIT.WORDDELETE.FORWARD 131233 . 132905) (\TEDIT.FINISHEDIT? 132907 . 137268)) (137271 137930 (
\TEDIT.THELP 137281 . 137928)) (137964 145555 (\TEDIT.PARAPIECES 137974 . 139948) (\TEDIT.PARA.FIRST
139950 . 142822) (\TEDIT.PARA.LAST 142824 . 145553)) (145556 154521 (\TEDIT.WORD.FIRST 145566 . 150222
) (\TEDIT.WORD.LAST 150224 . 154519)))))
(FILEMAP (NIL (4627 6569 (MAKE-TEDIT-EXPORTS.ALL 4637 . 5183) (UPDATE-TEDIT 5185 . 5798) (EDIT-TEDIT
5800 . 6567)) (8242 36697 (TEDIT 8252 . 10830) (TEXTSTREAM 10832 . 12752) (TEXTSTREAMP 12754 . 13138)
(TEDITMENUP 13140 . 13906) (COERCETEXTSTREAM 13908 . 18119) (TEDIT.CONCAT 18121 . 21300) (TEDITSTRING
21302 . 22155) (TEDIT-SEE 22157 . 22716) (TEDIT.COPY 22718 . 24863) (TEDIT.DELETE 24865 . 26117) (
TEDIT.INSERT 26119 . 29077) (TEDIT.TERPRI 29079 . 30193) (TEDIT.KILL 30195 . 31111) (TEDIT.QUIT 31113
. 32888) (TEDIT.MOVE 32890 . 33778) (TEDIT.STRINGWIDTH 33780 . 34451) (TEDIT.CHARWIDTH 34453 . 36695)
) (36698 38639 (TEXTOBJ 36708 . 37173) (COERCETEXTOBJ 37175 . 38637)) (40039 41095 (TDRIBBLE 40049 .
41093)) (41136 56240 (TEDIT.INSERT.OBJECT 41146 . 45880) (TEDIT.EDIT.OBJECT 45882 . 48223) (
TEDIT.FIND.OBJECT 48225 . 49733) (TEDIT.FIND.OBJECT.BACKWARD 49735 . 51662) (TEDIT.OBJECT.CHANGED
51664 . 54531) (TEDIT.MAP.OBJECTS 54533 . 55768) (\TEDIT.FIRST.OBJPIECE 55770 . 56003) (
\TEDIT.NEXT.OBJPIECE 56005 . 56238)) (56263 63773 (\TEDIT.CONCAT.PAGEFRAMES 56273 . 61407) (
\TEDIT.GET.PAGE.HEADINGS 61409 . 62438) (\TEDIT.CONCAT.INSTALL.HEADINGS 62440 . 63771)) (63774 67203 (
\TEDIT.MOVE.MSG 63784 . 65865) (\TEDIT.READONLY 65867 . 67201)) (67204 81825 (TEDIT.NCHARS 67214 .
67587) (TEDIT.RPLCHARCODE 67589 . 75389) (TEDIT.NTHCHARCODE 75391 . 77748) (TEDIT.NTHCHAR 77750 .
78008) (\TEDIT.PIECE.NTHCHARCODE 78010 . 81823)) (81871 136253 (\TEDIT1 81881 . 83958) (\TEDIT.INSERT
83960 . 89937) (\TEDIT.MOVE 89939 . 97338) (\TEDIT.COPY 97340 . 101318) (\TEDIT.REPLACE.SELPIECES
101320 . 105300) (\TEDIT.INSERT.SELPIECES 105302 . 108187) (\TEDIT.RESTARTFN 108189 . 110694) (
\TEDIT.CHARDELETE 110696 . 113523) (\TEDIT.COPYPIECE 113525 . 118373) (\TEDIT.APPLY.OBJFN 118375 .
121572) (\TEDIT.DELETE 121574 . 126383) (\TEDIT.DIFFUSE.PARALOOKS 126385 . 128656) (\TEDIT.WORDDELETE
128658 . 130214) (\TEDIT.WORDDELETE.FORWARD 130216 . 131888) (\TEDIT.FINISHEDIT? 131890 . 136251)) (
136254 136913 (\TEDIT.THELP 136264 . 136911)) (136947 144727 (\TEDIT.PARAPIECES 136957 . 138931) (
\TEDIT.PARA.FIRST 138933 . 141800) (\TEDIT.PARA.LAST 141802 . 144725)) (144728 153693 (
\TEDIT.WORD.FIRST 144738 . 149394) (\TEDIT.WORD.LAST 149396 . 153691)))))
STOP

127
library/tedit/TEDIT-FILE
View File

@@ -1,12 +1,12 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
(FILECREATED "23-Dec-2024 23:02:54" {WMEDLEY}<library>TEDIT>TEDIT-FILE.;592 159471
(FILECREATED "19-Jan-2025 15:03:01" {WMEDLEY}<library>TEDIT>TEDIT-FILE.;595 159113
:EDIT-BY rmk
:CHANGES-TO (FNS TEDIT.PUT TEDIT.PUT.STREAM)
:CHANGES-TO (FNS \TEDIT.PUT.UTF8.SPLITPIECES)
:PREVIOUS-DATE "16-Dec-2024 11:25:16" {WMEDLEY}<library>TEDIT>TEDIT-FILE.;591)
:PREVIOUS-DATE " 7-Jan-2025 12:28:41" {WMEDLEY}<library>TEDIT>TEDIT-FILE.;593)
(PRETTYCOMPRINT TEDIT-FILECOMS)
@@ -1399,7 +1399,8 @@
(for I from 1 to (\WIN FILE) collect (\TEDIT.GET.SINGLE.CHARLOOKS FILE TEXTOBJ])
(\TEDIT.GET.SINGLE.CHARLOOKS
[LAMBDA (FILE TEXTOBJ) (* ; "Edited 11-Dec-2024 22:59 by rmk")
[LAMBDA (FILE TEXTOBJ) (* ; "Edited 2-Jan-2025 11:08 by rmk")
(* ; "Edited 11-Dec-2024 22:59 by rmk")
(* ; "Edited 9-Dec-2024 20:11 by rmk")
(* ; "Edited 13-Aug-2024 08:49 by rmk")
(* ; "Edited 31-Jul-2024 00:04 by rmk")
@@ -1419,7 +1420,7 @@
(PROG* ((LOOKS (create CHARLOOKS))
(FILEPOS (GETFILEPTR FILE))
(LOOKSLEN (\WIN FILE))
FONT NAME FACE SIZE SUPER PROPS STYLESTR)
FONT NAME SIZE SUPER PROPS STYLESTR BOLD ITALIC)
(SETQ NAME (\ARBIN FILE)) (* ; "The font name")
(SETQ SIZE (\WIN FILE)) (* ; "Size of the type, in points")
(SETQ SUPER (\SMALLPIN FILE)) (* ;
@@ -1428,12 +1429,12 @@
0))
(FSETCLOOKS LOOKS CLUSERINFO (\ARBIN FILE))
(SETQ PROPS (\WIN FILE))
[SETQ BOLD (NOT (ZEROP (LOGAND 512 PROPS]
[SETQ ITALIC (NOT (ZEROP (LOGAND 256 PROPS]
(with CHARLOOKS LOOKS [SETQ CLSELBEFORE (NOT (ZEROP (LOGAND 8192 PROPS]
[SETQ CLUNBREAKABLE (NOT (ZEROP (LOGAND 4096 PROPS]
[SETQ CLLEADER (NOT (ZEROP (LOGAND 2048 PROPS]
[SETQ CLINVERTED (NOT (ZEROP (LOGAND 1024 PROPS]
[SETQ CLBOLD (NOT (ZEROP (LOGAND 512 PROPS]
[SETQ CLITAL (NOT (ZEROP (LOGAND 256 PROPS]
[SETQ CLULINE (NOT (ZEROP (LOGAND 128 PROPS]
[SETQ CLOLINE (NOT (ZEROP (LOGAND 64 PROPS]
[SETQ CLSTRIKE (NOT (ZEROP (LOGAND 32 PROPS]
@@ -1442,31 +1443,24 @@
[SETQ CLINVISIBLE (NOT (ZEROP (LOGAND 4 PROPS]
[SETQ CLSELAFTER (NOT (ZEROP (LOGAND 2 PROPS]
[SETQ CLCANCOPY (NOT (ZEROP (LOGAND 1 PROPS]
(SETQ CLSIZE SIZE)
(SETQ CLOFFSET SUPER))
(SETQ FACE (PACK* (CL:IF (FGETCLOOKS LOOKS CLBOLD)
'B
'M)
(CL:IF (FGETCLOOKS LOOKS CLITAL)
'I
'R)
'R))
(SETQ FONT (if (LISTP NAME)
then (* ;
[if (LISTP NAME)
then (* ;
 "This was a font class. Restore it.")
(FONTCLASS (pop NAME)
NAME)
else (FONTCREATE NAME SIZE FACE)))
(FSETCLOOKS LOOKS CLNAME (if (type? FONTCLASS FONT)
then
(* ;;
 "Put the display family in the CLNAME spot. Better than NIL.")
(CL:WHEN [SETQ NAME (FONTCOPY FONT
'(DEVICE DISPLAY NOERROR T]
(FONTPROP NAME 'FAMILY))
else NAME))
(SETQ FONT (FONTCLASS (pop NAME)
NAME)) (* ;
 "But don't maintain original names, for equality testing")
(replace (FONTCLASS FONTCLASSNAME) of FONT with 'TEDIT-FONTCLASS)
(replace (FONTCLASS PRETTYFONT#) of FONT with 0)
else (SETQ FONT (FONTCREATE NAME SIZE (PACK* (CL:IF BOLD
'B
'M)
(CL:IF ITALIC
'I
'R)
'R]
(FSETCLOOKS LOOKS CLFONT FONT)
(FSETCLOOKS LOOKS CLNAME (FONTUNPARSE FONT))
(SETFILEPTR FILE (IPLUS FILEPOS LOOKSLEN))
(RETURN LOOKS])
@@ -1929,7 +1923,8 @@
(CHARCODE (EOL LF])])])
(\TEDIT.PUT.UTF8.SPLITPIECES
[LAMBDA (TEXTOBJ) (* ; "Edited 17-Mar-2024 00:14 by rmk")
[LAMBDA (TEXTOBJ) (* ; "Edited 19-Jan-2025 15:02 by rmk")
(* ; "Edited 17-Mar-2024 00:14 by rmk")
(* ; "Edited 3-Feb-2024 14:52 by rmk")
(* ; "Edited 11-Jan-2024 23:29 by rmk")
(* ; "Edited 5-Jan-2024 11:37 by rmk")
@@ -1946,13 +1941,11 @@
(* ;; "If BPC changes, split off and mark the prefix piece with the previous value, go back to the main loop to continue on the residual suffix piece.")
(if (EQ I 1)
then (SETQ BPC (NUTF8-CODE-BYTES (UNICODE.TRANSLATE CH
*XCCSTOUNICODE*)))
then (SETQ BPC (NUTF8-CODE-BYTES (XTOUCODE CH)))
(FSETPC PC PUTF8BYTESPERCHAR BPC)
(* ;
 "The first character defines the piece")
elseif (EQ BPC (NUTF8-CODE-BYTES (UNICODE.TRANSLATE CH
*XCCSTOUNICODE*)))
elseif (EQ BPC (NUTF8-CODE-BYTES (XTOUCODE CH)))
else (\TEDIT.SPLITPIECE PC (SUB1 I)
TEXTOBJ)
(SETQ PC (PREVPIECE PC))
@@ -1968,11 +1961,9 @@
(for I BPC (PFILE _ (PCONTENTS PC)) from 1 to (PLEN PC)
first (\SETFILEPTR PFILE (PFPOS PC))
do (if (EQ I 1)
then (SETQ BPC (NUTF8-CODE-BYTES (UNICODE.TRANSLATE (BIN PFILE)
*XCCSTOUNICODE*)))
then [SETQ BPC (NUTF8-CODE-BYTES (XTOUCODE (BIN PFILE]
(FSETPC PC PUTF8BYTESPERCHAR BPC)
elseif (EQ BPC (NUTF8-CODE-BYTES (UNICODE.TRANSLATE (BIN PFILE)
*XCCSTOUNICODE*)))
elseif [EQ BPC (NUTF8-CODE-BYTES (XTOUCODE (BIN PFILE]
else (\TEDIT.SPLITPIECE PC (SUB1 I)
TEXTOBJ)
(SETQ PC (PREVPIECE PC))
@@ -1987,10 +1978,9 @@
8)
(BIN PFILE)))
(if (EQ I 1)
then (SETQ BPC (NUTF8-CODE-BYTES (UNICODE.TRANSLATE CH *XCCSTOUNICODE*))
)
then (SETQ BPC (NUTF8-CODE-BYTES (XTOUCODE CH)))
(FSETPC PC PUTF8BYTESPERCHAR BPC)
elseif (EQ BPC (NUTF8-CODE-BYTES (UNICODE.TRANSLATE CH *XCCSTOUNICODE*)))
elseif (EQ BPC (NUTF8-CODE-BYTES (XTOUCODE CH)))
else (\TEDIT.SPLITPIECE PC (SUB1 I)
TEXTOBJ)
(SETQ PC (PREVPIECE PC))
@@ -2174,7 +2164,8 @@
(PUTHASH LOOKS I LOOKSHASH])
(\TEDIT.PUT.SINGLE.CHARLOOKS
[LAMBDA (FORMATSTREAM LOOKS) (* ; "Edited 13-Aug-2024 08:47 by rmk")
[LAMBDA (FORMATSTREAM LOOKS) (* ; "Edited 2-Jan-2025 10:43 by rmk")
(* ; "Edited 13-Aug-2024 08:47 by rmk")
(* ; "Edited 31-Jul-2024 00:05 by rmk")
(* ; "Edited 16-Jan-2024 23:07 by rmk")
(* ; "Edited 21-Dec-2023 23:54 by rmk")
@@ -2222,10 +2213,10 @@
(CL:IF (fetch (CHARLOOKS CLINVERTED) of LOOKS)
1024
0)
(CL:IF (fetch (CHARLOOKS CLBOLD) of LOOKS)
(CL:IF (EQ 'BOLD (FONTPROP FONT 'WEIGHT))
512
0)
(CL:IF (fetch (CHARLOOKS CLITAL) of LOOKS)
(CL:IF (EQ 'ITALIC (FONTPROP FONT 'SLOPE))
256
0)
(CL:IF (fetch (CHARLOOKS CLULINE) of LOOKS)
@@ -2511,28 +2502,28 @@
(RPAQ? *TEDIT-FILE-READTABLE* (COPYREADTABLE \ORIGREADTABLE))
(DECLARE%: DONTCOPY
(FILEMAP (NIL (5016 33941 (TEDIT.GET 5026 . 11035) (TEDIT.FORMATTEDFILEP 11037 . 12353) (
TEDIT.FILEDATE 12355 . 13526) (TEDIT.INCLUDE 13528 . 21439) (TEDIT.RAW.INCLUDE 21441 . 22249) (
TEDIT.PUT 22251 . 30106) (TEDIT.PUT.STREAM 30108 . 33939)) (33942 53139 (\TEDIT.GET.FOREIGN.FILE 33952
. 37137) (\TEDIT.GET.UNFORMATTED.FILE 37139 . 41013) (\TEDIT.GET.FORMATTED.FILE 41015 . 43836) (
\TEDIT.FORMATTEDSTREAMP 43838 . 46738) (\ARBIN 46740 . 47460) (\ATMIN 47462 . 47999) (\DWIN 48001 .
48380) (\STRINGIN 48382 . 49090) (\TEDIT.GET.TRAILER 49092 . 51608) (\TEDIT.CACHEFILE 51610 . 53137))
(53305 66855 (\TEDIT.GET.PIECES3 53315 . 63617) (\TEDIT.GET.IDATE3 63619 . 65014) (
\TEDIT.MAKE.STRINGPIECE 65016 . 66853)) (66856 79231 (\TEDIT.GET.UNFORMATTED.FILE.XCCS 66866 . 72982)
(\TEDIT.INTERPRET.XCCS.SHIFTS 72984 . 79229)) (79253 85275 (\TEDIT.GET.UNFORMATTED.FILE.UTF8 79263 .
85273)) (85298 93989 (\TEDIT.GET.CHARLOOKS.LIST 85308 . 86039) (\TEDIT.GET.SINGLE.CHARLOOKS 86041 .
90801) (\TEDIT.GET.CHARLOOKS 90803 . 92133) (\TEDIT.GET.PARALOOKS.INDEX 92135 . 92679) (
\TEDIT.GET.CHARLOOKS.INDEX 92681 . 93987)) (93990 101158 (\TEDIT.GET.PARALOOKS.LIST 94000 . 94622) (
\TEDIT.GET.SINGLE.PARALOOKS 94624 . 101156)) (101159 104749 (\TEDIT.GET.OBJECT 101169 . 104747)) (
104811 137073 (\TEDIT.PUT.PCTB 104821 . 114471) (\TEDIT.PUT.PCTB.PIECEDATA 114473 . 117671) (
\TEDIT.PUT.TRAILER 117673 . 118440) (\TEDIT.PUT.PCTB.MERGEABLE 118442 . 121876) (
\TEDIT.PUT.UTF8.SPLITPIECES 121878 . 126965) (\TEDIT.PUT.PCTB.NEXTNEW 126967 . 131234) (
\TEDIT.INSERT.NEWPIECES 131236 . 134671) (\TEDIT.PUTRESET 134673 . 134915) (\ARBOUT 134917 . 135641) (
\ATMOUT 135643 . 136248) (\DWOUT 136250 . 136529) (\STRINGOUT 136531 . 137071)) (137074 149057 (
\TEDIT.PUT.CHARLOOKS.LIST 137084 . 138756) (\TEDIT.PUT.SINGLE.CHARLOOKS 138758 . 144401) (
\TEDIT.PUT.CHARLOOKS 144403 . 145628) (\TEDIT.PUT.CHARLOOKS1 145630 . 146681) (\TEDIT.PUT.OBJECT
146683 . 149055)) (149058 156552 (\TEDIT.PUT.PARALOOKS.LIST 149068 . 149970) (
\TEDIT.PUT.SINGLE.PARALOOKS 149972 . 155411) (\TEDIT.PUT.PARALOOKS 155413 . 156550)) (156647 159241 (
TEDITFROMLISPSOURCE 156657 . 158490) (SHELLSCRIPTP 158492 . 158721) (TEDITFROMSHELLSCRIPT 158723 .
159239)))))
(FILEMAP (NIL (5017 33942 (TEDIT.GET 5027 . 11036) (TEDIT.FORMATTEDFILEP 11038 . 12354) (
TEDIT.FILEDATE 12356 . 13527) (TEDIT.INCLUDE 13529 . 21440) (TEDIT.RAW.INCLUDE 21442 . 22250) (
TEDIT.PUT 22252 . 30107) (TEDIT.PUT.STREAM 30109 . 33940)) (33943 53140 (\TEDIT.GET.FOREIGN.FILE 33953
. 37138) (\TEDIT.GET.UNFORMATTED.FILE 37140 . 41014) (\TEDIT.GET.FORMATTED.FILE 41016 . 43837) (
\TEDIT.FORMATTEDSTREAMP 43839 . 46739) (\ARBIN 46741 . 47461) (\ATMIN 47463 . 48000) (\DWIN 48002 .
48381) (\STRINGIN 48383 . 49091) (\TEDIT.GET.TRAILER 49093 . 51609) (\TEDIT.CACHEFILE 51611 . 53138))
(53306 66856 (\TEDIT.GET.PIECES3 53316 . 63618) (\TEDIT.GET.IDATE3 63620 . 65015) (
\TEDIT.MAKE.STRINGPIECE 65017 . 66854)) (66857 79232 (\TEDIT.GET.UNFORMATTED.FILE.XCCS 66867 . 72983)
(\TEDIT.INTERPRET.XCCS.SHIFTS 72985 . 79230)) (79254 85276 (\TEDIT.GET.UNFORMATTED.FILE.UTF8 79264 .
85274)) (85299 93924 (\TEDIT.GET.CHARLOOKS.LIST 85309 . 86040) (\TEDIT.GET.SINGLE.CHARLOOKS 86042 .
90736) (\TEDIT.GET.CHARLOOKS 90738 . 92068) (\TEDIT.GET.PARALOOKS.INDEX 92070 . 92614) (
\TEDIT.GET.CHARLOOKS.INDEX 92616 . 93922)) (93925 101093 (\TEDIT.GET.PARALOOKS.LIST 93935 . 94557) (
\TEDIT.GET.SINGLE.PARALOOKS 94559 . 101091)) (101094 104684 (\TEDIT.GET.OBJECT 101104 . 104682)) (
104746 136623 (\TEDIT.PUT.PCTB 104756 . 114406) (\TEDIT.PUT.PCTB.PIECEDATA 114408 . 117606) (
\TEDIT.PUT.TRAILER 117608 . 118375) (\TEDIT.PUT.PCTB.MERGEABLE 118377 . 121811) (
\TEDIT.PUT.UTF8.SPLITPIECES 121813 . 126515) (\TEDIT.PUT.PCTB.NEXTNEW 126517 . 130784) (
\TEDIT.INSERT.NEWPIECES 130786 . 134221) (\TEDIT.PUTRESET 134223 . 134465) (\ARBOUT 134467 . 135191) (
\ATMOUT 135193 . 135798) (\DWOUT 135800 . 136079) (\STRINGOUT 136081 . 136621)) (136624 148699 (
\TEDIT.PUT.CHARLOOKS.LIST 136634 . 138306) (\TEDIT.PUT.SINGLE.CHARLOOKS 138308 . 144043) (
\TEDIT.PUT.CHARLOOKS 144045 . 145270) (\TEDIT.PUT.CHARLOOKS1 145272 . 146323) (\TEDIT.PUT.OBJECT
146325 . 148697)) (148700 156194 (\TEDIT.PUT.PARALOOKS.LIST 148710 . 149612) (
\TEDIT.PUT.SINGLE.PARALOOKS 149614 . 155053) (\TEDIT.PUT.PARALOOKS 155055 . 156192)) (156289 158883 (
TEDITFROMLISPSOURCE 156299 . 158132) (SHELLSCRIPTP 158134 . 158363) (TEDITFROMSHELLSCRIPT 158365 .
158881)))))
STOP

BIN
library/tedit/TEDIT-FILE.LCOM
View File

Binary file not shown.

37
library/tedit/TEDIT-HISTORY
View File

@@ -1,16 +1,12 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
(FILECREATED " 8-Dec-2024 19:41:55" {WMEDLEY}<library>tedit>TEDIT-HISTORY.;219 53094
(FILECREATED " 2-Feb-2025 11:32:56" {WMEDLEY}<library>tedit>TEDIT-HISTORY.;220 52908
:EDIT-BY rmk
:CHANGES-TO (FNS TEDIT.UNDO \TEDIT.HISTORYADD \TEDIT.CUMULATE.EVENTS \TEDIT.UNDO.UNDO
TEDIT.REDO \TEDIT.HISTORYADD.COMPOSITE \TEDIT.UNDO.MOVE \TEDIT.UNDO.COMPOSITE
\TEDIT.COMPOSITE.EVENT)
(VARS TEDIT-HISTORYCOMS)
(MACROS \TEDIT.HISTORYADD1)
:CHANGES-TO (FNS TEDIT.REDO)
:PREVIOUS-DATE " 7-Dec-2024 21:26:15" {WMEDLEY}<library>tedit>TEDIT-HISTORY.;213)
:PREVIOUS-DATE " 8-Dec-2024 19:41:55" {WMEDLEY}<library>tedit>TEDIT-HISTORY.;219)
(PRETTYCOMPRINT TEDIT-HISTORYCOMS)
@@ -456,7 +452,8 @@
T])
(TEDIT.REDO
[LAMBDA (TSTREAM) (* ; "Edited 8-Dec-2024 17:53 by rmk")
[LAMBDA (TSTREAM) (* ; "Edited 2-Feb-2025 11:28 by rmk")
(* ; "Edited 8-Dec-2024 17:53 by rmk")
(* ; "Edited 27-Nov-2024 23:11 by rmk")
(* ; "Edited 26-Sep-2024 16:49 by rmk")
(* ; "Edited 29-Jul-2024 23:58 by rmk")
@@ -503,10 +500,10 @@
(:UpperCase (* ; "He upper-cased something")
(\TEDIT.UCASE.SEL TEXTOBJ TEXTOBJ SEL))
(:CharLooks (* ; "It was a character looks change")
(\TEDIT.CHANGE.CHARLOOKS TEXTOBJ (CAR (GETTH EVENT THOLDINFO))
(\TEDIT.CHANGE.CHARLOOKS TSTREAM (CAR (GETTH EVENT THOLDINFO))
SEL))
(:ParaLooks (* ; "It was a Paragraph looks change")
(\TEDIT.CHANGE.PARALOOKS TEXTOBJ (CAR (GETTH EVENT THOLDINFO))
(\TEDIT.CHANGE.PARALOOKS TSTREAM (CAR (GETTH EVENT THOLDINFO))
SEL))
(:PageFormat (TEDIT.PROMPTPRINT TEXTOBJ "You can't redo a page-format change" T T))
(:Find (* ; "EXACT-MATCH SEARCH COMMAND")
@@ -840,14 +837,14 @@
(\TEDIT.THELP 'Redo-composite])
)
(DECLARE%: DONTCOPY
(FILEMAP (NIL (5191 6212 (\TEDIT.HISTORYEVENT.DEFPRINT 5201 . 6210)) (7302 17740 (\TEDIT.HISTORYADD
7312 . 12173) (\TEDIT.HISTORYADD.COMPOSITE 12175 . 12934) (\TEDIT.CUMULATE.EVENTS 12936 . 14530) (
\TEDIT.COMPOSITE.EVENT 14532 . 15268) (\TEDIT.HISTORY.PROP 15270 . 16633) (\TEDIT.HISTORY.EVENT 16635
. 17564) (\TEDIT.POPEVENT 17566 . 17738)) (17793 35623 (TEDIT.UNDO 17803 . 22197) (\TEDIT.UNDO1 22199
. 26411) (TEDIT.REDO 26413 . 32777) (\TEDIT.UNDO.UNDO 32779 . 35621)) (35624 50710 (
\TEDIT.UNDO.INSERT 35634 . 36547) (\TEDIT.UNDO.DELETE 36549 . 37343) (\TEDIT.UNDO.MOVE 37345 . 38934)
(\TEDIT.UNDO.REPLACE 38936 . 40032) (\TEDIT.UNDO.CHARLOOKS 40034 . 44608) (\TEDIT.UNDO.PARALOOKS 44610
. 48842) (\TEDIT.UNDO.PAGELOOKS 48844 . 49253) (\TEDIT.UNDO.COMPOSITE 49255 . 50482) (
\TEDIT.UNDO.REPLACECODE 50484 . 50708)) (50711 53071 (\TEDIT.REDO.INSERT 50721 . 51454) (
\TEDIT.REDO.REPLACE 51456 . 52787) (\TEDIT.REDO.COMPOSITE 52789 . 53069)))))
(FILEMAP (NIL (4896 5917 (\TEDIT.HISTORYEVENT.DEFPRINT 4906 . 5915)) (7007 17445 (\TEDIT.HISTORYADD
7017 . 11878) (\TEDIT.HISTORYADD.COMPOSITE 11880 . 12639) (\TEDIT.CUMULATE.EVENTS 12641 . 14235) (
\TEDIT.COMPOSITE.EVENT 14237 . 14973) (\TEDIT.HISTORY.PROP 14975 . 16338) (\TEDIT.HISTORY.EVENT 16340
. 17269) (\TEDIT.POPEVENT 17271 . 17443)) (17498 35437 (TEDIT.UNDO 17508 . 21902) (\TEDIT.UNDO1 21904
. 26116) (TEDIT.REDO 26118 . 32591) (\TEDIT.UNDO.UNDO 32593 . 35435)) (35438 50524 (
\TEDIT.UNDO.INSERT 35448 . 36361) (\TEDIT.UNDO.DELETE 36363 . 37157) (\TEDIT.UNDO.MOVE 37159 . 38748)
(\TEDIT.UNDO.REPLACE 38750 . 39846) (\TEDIT.UNDO.CHARLOOKS 39848 . 44422) (\TEDIT.UNDO.PARALOOKS 44424
. 48656) (\TEDIT.UNDO.PAGELOOKS 48658 . 49067) (\TEDIT.UNDO.COMPOSITE 49069 . 50296) (
\TEDIT.UNDO.REPLACECODE 50298 . 50522)) (50525 52885 (\TEDIT.REDO.INSERT 50535 . 51268) (
\TEDIT.REDO.REPLACE 51270 . 52601) (\TEDIT.REDO.COMPOSITE 52603 . 52883)))))
STOP

BIN
library/tedit/TEDIT-HISTORY.LCOM
View File

Binary file not shown.

915
library/tedit/TEDIT-LOOKS
View File

File diff suppressed because it is too large Load Diff

BIN
library/tedit/TEDIT-LOOKS.LCOM
View File

Binary file not shown.

966
library/tedit/TEDIT-MENU
View File

File diff suppressed because it is too large Load Diff

BIN
library/tedit/TEDIT-MENU.LCOM
View File

Binary file not shown.

265
library/tedit/TEDIT-OLDFILE
View File

@@ -1,12 +1,13 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
(FILECREATED "23-Oct-2024 16:09:28" {WMEDLEY}<library>tedit>TEDIT-OLDFILE.;27 72985
(FILECREATED " 7-Jan-2025 12:29:36" {WMEDLEY}<library>tedit>TEDIT-OLDFILE.;29 70509
:EDIT-BY rmk
:CHANGES-TO (FNS \TEDIT.GET.SINGLE.PARALOOKS2 \TEDIT.GET.PARALOOKS1 \TEDIT.GET.PARALOOKS0)
:CHANGES-TO (FNS \TEDIT.GET.SINGLE.CHARLOOKS2 \TEDIT.GET.CHARLOOKS0 \TEDIT.GET.CHARLOOKS1
\TEDIT.PUT.SINGLE.CHARLOOKS2)
:PREVIOUS-DATE "21-Oct-2024 00:34:06" {WMEDLEY}<library>tedit>TEDIT-OLDFILE.;25)
:PREVIOUS-DATE "23-Oct-2024 16:09:28" {WMEDLEY}<library>tedit>TEDIT-OLDFILE.;27)
(PRETTYCOMPRINT TEDIT-OLDFILECOMS)
@@ -275,7 +276,9 @@
(for I from 1 to (\WIN FILE) collect (\TEDIT.GET.SINGLE.CHARLOOKS2 FILE])
(\TEDIT.GET.SINGLE.CHARLOOKS2
[LAMBDA (FILE) (* ; "Edited 31-Jul-2024 00:05 by rmk")
[LAMBDA (FILE) (* ; "Edited 7-Jan-2025 12:29 by rmk")
(* ; "Edited 2-Jan-2025 11:09 by rmk")
(* ; "Edited 31-Jul-2024 00:05 by rmk")
(* ; "Edited 16-Jan-2024 22:53 by rmk")
(* ; "Edited 19-Dec-2023 10:13 by rmk")
(* ; "Edited 25-Nov-2023 23:22 by rmk")
@@ -283,18 +286,18 @@
(* ; "Edited 30-May-91 20:26 by jds")
(* ; "Read a set of CHARLOOKS from FILE")
(PROG* ((LOOKS (create CHARLOOKS))
FONT STR NAME NAMELEN SIZE SUPER SUB PROPS STYLESTR USERSTR)
FONT STR NAME NAMELEN SIZE SUPER SUB PROPS STYLESTR USERSTR BOLD ITALIC)
(SETQ NAME (\ARBIN FILE)) (* ; "The font name")
(SETQ SIZE (\WIN FILE)) (* ; "Size of the type, in points")
(SETQ SUPER (\SMALLPIN FILE)) (* ; "Superscripting distance")
(replace (CHARLOOKS CLSTYLE) of LOOKS with (OR (\ARBIN FILE)
0))
(replace (CHARLOOKS CLUSERINFO) of LOOKS with (\ARBIN FILE))
(FSETCLOOKS LOOKS CLSTYLE (OR (\ARBIN FILE)
0))
(FSETCLOOKS LOOKS CLUSERINFO (\ARBIN FILE))
(SETQ PROPS (\WIN FILE))
[SETQ BOLD (NOT (ZEROP (LOGAND 512 PROPS]
[SETQ ITALIC (NOT (ZEROP (LOGAND 256 PROPS]
(with CHARLOOKS LOOKS [SETQ CLLEADER (NOT (ZEROP (LOGAND 2048 PROPS]
[SETQ CLINVERTED (NOT (ZEROP (LOGAND 1024 PROPS]
[SETQ CLBOLD (NOT (ZEROP (LOGAND 512 PROPS]
[SETQ CLITAL (NOT (ZEROP (LOGAND 256 PROPS]
[SETQ CLULINE (NOT (ZEROP (LOGAND 128 PROPS]
[SETQ CLOLINE (NOT (ZEROP (LOGAND 64 PROPS]
[SETQ CLSTRIKE (NOT (ZEROP (LOGAND 32 PROPS]
@@ -303,7 +306,6 @@
[SETQ CLINVISIBLE (NOT (ZEROP (LOGAND 4 PROPS]
[SETQ CLSELAFTER (NOT (ZEROP (LOGAND 2 PROPS]
[SETQ CLCANCOPY (NOT (ZEROP (LOGAND 1 PROPS]
(SETQ CLSIZE SIZE)
(SETQ CLOFFSET SUPER))
[SETQ FONT (COND
((LISTP NAME) (* ;
@@ -312,22 +314,12 @@
NAME))
((AND NAME (NOT (ZEROP SIZE)))
(FONTCREATE NAME SIZE (COND
((AND (fetch (CHARLOOKS CLBOLD) of LOOKS)
(fetch (CHARLOOKS CLITAL) of LOOKS))
((AND BOLD ITALIC)
'BOLDITALIC)
((fetch (CHARLOOKS CLBOLD) of LOOKS)
'BOLD)
((fetch (CHARLOOKS CLITAL) of LOOKS)
'ITALIC]
(replace (CHARLOOKS CLNAME) of LOOKS
with (if (type? FONTCLASS FONT)
then
(* ;; "Put the display family in the CLNAME spot. Better than NIL.")
(CL:WHEN [SETQ NAME (FONTCOPY FONT '(DEVICE DISPLAY NOERROR T]
(FONTPROP NAME 'FAMILY))
else NAME))
(replace (CHARLOOKS CLFONT) of LOOKS with FONT)
(BOLD 'BOLD)
(ITALIC 'ITALIC]
(FSETCLOOKS LOOKS CLFONT FONT)
(FSETCLOOKS LOOKS CLNAME (FONTUNPARSE FONT))
(RETURN LOOKS])
(\TEDIT.PUT.SINGLE.PARALOOKS2
@@ -391,13 +383,14 @@
(\ARBOUT FILE (FGETPARA LOOKS FMTNEWPAGEAFTER])
(\TEDIT.PUT.SINGLE.CHARLOOKS2
[LAMBDA (FILE LOOKS) (* ; "Edited 31-Jul-2024 00:05 by rmk")
[LAMBDA (FILE LOOKS) (* ; "Edited 2-Jan-2025 10:51 by rmk")
(* ; "Edited 31-Jul-2024 00:05 by rmk")
(* ; "Edited 16-Jan-2024 23:01 by rmk")
(* ; "Edited 19-Dec-2023 10:14 by rmk")
(* ; "Edited 30-May-91 20:26 by jds")
(* ;
 "Put out a single CHARLOOKS description.")
(PROG ((FONT (fetch (CHARLOOKS CLFONT) of LOOKS))
(PROG ((FONT (GETCLOOKS LOOKS CLFONT))
STR LEN)
[COND
((type? FONTCLASS FONT) (* ;
@@ -408,68 +401,54 @@
(\ATMOUT FILE (FONTPROP FONT 'FAMILY] (* ; "The font family")
(\WOUT FILE (OR (FONTPROP FONT 'SIZE)
0)) (* ; "Size of the type, in points")
(\SMALLPOUT FILE (OR (fetch (CHARLOOKS CLOFFSET) of LOOKS)
(\SMALLPOUT FILE (OR (GETCLOOKS LOOKS CLOFFSET)
0)) (* ; "Super/subscripting distance")
(COND
([AND (fetch (CHARLOOKS CLSTYLE) of LOOKS)
(NOT (ZEROP (fetch (CHARLOOKS CLSTYLE) of LOOKS]
(\ARBOUT FILE (fetch (CHARLOOKS CLSTYLE) of LOOKS)))
([AND (GETCLOOKS LOOKS CLSTYLE)
(NOT (ZEROP (GETCLOOKS LOOKS CLSTYLE]
(\ARBOUT FILE (GETCLOOKS LOOKS CLSTYLE)))
(T (\WOUT FILE 0)))
(COND
((fetch (CHARLOOKS CLUSERINFO) of LOOKS)
(\ARBOUT FILE (fetch (CHARLOOKS CLUSERINFO) of LOOKS)))
((GETCLOOKS LOOKS CLUSERINFO)
(\ARBOUT FILE (GETCLOOKS LOOKS CLUSERINFO LOOKS)))
(T (\WOUT FILE 0)))
(\WOUT FILE (LOGOR (COND
((fetch (CHARLOOKS CLLEADER) of LOOKS)
(* ;
 "Dotted-leader; relevant only to TABs")
2048)
(T 0))
(COND
((fetch (CHARLOOKS CLINVERTED) of LOOKS)
(* ; "Inverse-video")
1024)
(T 0))
(COND
((fetch (CHARLOOKS CLBOLD) of LOOKS)
512)
(T 0))
(COND
((fetch (CHARLOOKS CLITAL) of LOOKS)
256)
(T 0))
(COND
((fetch (CHARLOOKS CLULINE) of LOOKS)
128)
(T 0))
(COND
((fetch (CHARLOOKS CLOLINE) of LOOKS)
64)
(T 0))
(COND
((fetch (CHARLOOKS CLSTRIKE) of LOOKS)
32)
(T 0))
(COND
((fetch (CHARLOOKS CLSMALLCAP) of LOOKS)
16)
(T 0))
(COND
((fetch (CHARLOOKS CLPROTECTED) of LOOKS)
8)
(T 0))
(COND
((fetch (CHARLOOKS CLINVISIBLE) of LOOKS)
NIL 4)
(T 0))
(COND
((fetch (CHARLOOKS CLSELAFTER) of LOOKS)
2)
(T 0))
(COND
((fetch (CHARLOOKS CLCANCOPY) of LOOKS)
1)
(T 0])
(\WOUT FILE (LOGOR (CL:IF (GETCLOOKS LOOKS CLLEADER LOOKS)
2048
0)
(CL:IF (GETCLOOKS LOOKS CLINVERTED LOOKS)
1024
0)
(CL:IF (EQ 'BOLD (FONTPROP FONT 'WEIGHT))
512
0)
(CL:IF (EQ 'ITALIC (FONTPROP FONT 'SLOPE))
512
0)
(CL:IF (GETCLOOKS LOOKS CLULINE)
128
0)
(CL:IF (GETCLOOKS LOOKS CLOLINE)
64
0)
(CL:IF (GETCLOOKS LOOKS CLSTRIKE)
32
0)
(CL:IF (GETCLOOKS LOOKS CLSMALLCAP)
16
0)
(CL:IF (GETCLOOKS LOOKS CLPROTECTED)
8
0)
(CL:IF (GETCLOOKS LOOKS CLINVISIBLE)
NIL
4
0)
(CL:IF (GETCLOOKS LOOKS CLSELAFTER)
2
0)
(CL:IF (GETCLOOKS LOOKS CLCANCOPY)
1
0)])
(\TEDIT.GET.PARALOOKS.LIST2
[LAMBDA (FILE) (* ; "Edited 19-Dec-2023 10:13 by rmk")
@@ -736,7 +715,8 @@
(\TEDIT.PARSE.PAGEFRAMES1 (pop PAGELIST])
(\TEDIT.GET.CHARLOOKS1
[LAMBDA (PC FILE) (* ; "Edited 31-Jul-2024 00:05 by rmk")
[LAMBDA (PC FILE) (* ; "Edited 2-Jan-2025 11:09 by rmk")
(* ; "Edited 31-Jul-2024 00:05 by rmk")
(* ; "Edited 16-Jan-2024 22:55 by rmk")
(* ; "Edited 19-Dec-2023 10:13 by rmk")
(* ; "Edited 25-Nov-2023 23:21 by rmk")
@@ -747,7 +727,9 @@
(* ;; "Read a description of PC's CHARLOOKS from FILE. The looks are here stored in PC, not in the TEXTOBJ (uniquify later?)")
(LET (FONT STR NAME NAMELEN SIZE SUPER SUB PROPS STYLESTR USERSTR (LOOKS (create CHARLOOKS)))
(LET (FONT STR NAME NAMELEN SIZE SUPER SUB PROPS STYLESTR USERSTR BOLD ITALIC (LOOKS (create
CHARLOOKS))
)
(FSETPC PC PLOOKS LOOKS)
(SETQ NAME (\ARBIN FILE)) (* ; "The font name")
(SETQ SIZE (\WIN FILE)) (* ; "Size of the type, in points")
@@ -762,13 +744,13 @@
(FSETPC PC PNEW T))
(CL:UNLESS (ZEROP (BIN FILE)) (* ;
 "There is style or user information to be read")
(replace (CHARLOOKS CLSTYLE) of LOOKS with (OR (\ARBIN FILE)
0))
(replace (CHARLOOKS CLUSERINFO) of LOOKS with (\ARBIN FILE)))
(FSETCLOOKS LOOKS CLSTYLE (OR (\ARBIN FILE)
0))
(FSETCLOOKS LOOKS CLUSERINFO (\ARBIN FILE)))
(SETQ PROPS (\WIN FILE))
(with CHARLOOKS LOOKS [SETQ CLBOLD (NOT (ZEROP (LOGAND 512 PROPS]
[SETQ CLITAL (NOT (ZEROP (LOGAND 256 PROPS]
[SETQ CLULINE (NOT (ZEROP (LOGAND 128 PROPS]
[SETQ BOLD (NOT (ZEROP (LOGAND 512 PROPS]
[SETQ ITALIC (NOT (ZEROP (LOGAND 256 PROPS]
(with CHARLOOKS LOOKS [SETQ CLULINE (NOT (ZEROP (LOGAND 128 PROPS]
[SETQ CLOLINE (NOT (ZEROP (LOGAND 64 PROPS]
[SETQ CLSTRIKE (NOT (ZEROP (LOGAND 32 PROPS]
[SETQ CLSMALLCAP (NOT (ZEROP (LOGAND 16 PROPS]
@@ -776,31 +758,22 @@
[SETQ CLINVISIBLE (NOT (ZEROP (LOGAND 4 PROPS]
[SETQ CLSELAFTER (NOT (ZEROP (LOGAND 2 PROPS]
[SETQ CLCANCOPY (NOT (ZEROP (LOGAND 1 PROPS]
(SETQ CLSIZE SIZE)
(SETQ CLOFFSET SUPER))
[SETQ FONT (COND
((LISTP NAME) (* ;
 "This was a font class. Restore it.")
(FONTCLASS (pop NAME)
NAME))
((AND NAME (NOT (ZEROP SIZE)))
(FONTCLASS (CONS 0 (CDDR NAME))
'TEDIT-FONTCLASS))
[(AND NAME (NOT (ZEROP SIZE)))
(FONTCREATE NAME SIZE (COND
((AND (fetch (CHARLOOKS CLBOLD) of LOOKS)
(fetch (CHARLOOKS CLITAL) of LOOKS))
((AND BOLD ITALIC)
'BOLDITALIC)
((fetch (CHARLOOKS CLBOLD) of LOOKS)
'BOLD)
((fetch (CHARLOOKS CLITAL) of LOOKS)
'ITALIC]
(replace (CHARLOOKS CLNAME) of LOOKS
with (if (type? FONTCLASS FONT)
then
(* ;; "Put the display family in the CLNAME spot. Better than NIL.")
(CL:WHEN [SETQ NAME (FONTCOPY FONT '(DEVICE DISPLAY NOERROR T]
(FONTPROP NAME 'FAMILY))
else NAME))
(replace (CHARLOOKS CLFONT) of LOOKS with FONT])
(BOLD 'BOLD)
(ITALIC 'ITALIC]
(T (* ; "Should never happen")
(FONTCREATE DEFAULTFONT]
(FSETCLOOKS LOOKS CLNAME (FONTUNPARSE FONT))
(FSETCLOOKS LOOKS CLFONT FONT])
(\TEDIT.GET.PARALOOKS1
[LAMBDA (FILE) (* ; "Edited 23-Oct-2024 16:08 by rmk")
@@ -962,15 +935,17 @@
(\TEDIT.INSERTPIECE PC NIL TEXTOBJ) finally (\TEDIT.UNIQUIFY.ALL TEXTOBJ])
(\TEDIT.GET.CHARLOOKS0
[LAMBDA (PC FILE) (* ; "Edited 31-Jul-2024 00:05 by rmk")
[LAMBDA (PC FILE) (* ; "Edited 2-Jan-2025 11:09 by rmk")
(* ; "Edited 31-Jul-2024 00:05 by rmk")
(* ; "Edited 16-Jan-2024 23:03 by rmk")
(* ; "Edited 19-Dec-2023 10:13 by rmk")
(* ; "Edited 1-Aug-2022 12:04 by rmk")
(* ; "Edited 30-May-91 20:26 by jds")
(* ;
 "Put a description of LOOKS into FILE. LOOKS apply to characters CH1 thru CHLIM-1")
(PROG (FONT STR NAME NAMELEN SIZE SUPER SUB PROPS STYLESTR USERSTR (LOOKS (create CHARLOOKS)))
(replace (PIECE PLOOKS) of PC with LOOKS)
(PROG (FONT STR NAME NAMELEN SIZE SUPER SUB PROPS STYLESTR USERSTR BOLD ITALIC
(LOOKS (create CHARLOOKS)))
(SETPC PC PLOOKS LOOKS)
(SETQ NAMELEN (\WIN FILE)) (* ;
 "The length of the description which follows")
[SETQ NAME (PACK (for I from 1 to NAMELEN collect (CHARACTER (BIN FILE]
@@ -985,7 +960,7 @@
(COND
((NOT (ZEROP (BIN FILE))) (* ; "This text is NEW. Mark it so.")
(replace (PIECE PNEW) of PC with T)))
(FSETPC PC PNEW T)))
[COND
((NOT (ZEROP (BIN FILE))) (* ;
 "There is style or user information to be read")
@@ -993,15 +968,15 @@
(SETQ USERSTR (\STRINGIN FILE))
(COND
((NOT (ZEROP (NCHARS STYLESTR))) (* ; "There IS style info")
(replace (CHARLOOKS CLSTYLE) of LOOKS with (READ STYLESTR)))
(T (replace (CHARLOOKS CLSTYLE) of LOOKS with 0)))
(FSETCLOOKS LOOKS CLSTYLE (READ STYLESTR)))
(T (FSETCLOOKS LOOKS CLSTYLE 0)))
(COND
((NOT (ZEROP (NCHARS USERSTR))) (* ; "There IS user info")
(replace (CHARLOOKS CLUSERINFO) of LOOKS with (READ USERSTR]
(FSETCLOOKS LOOKS CLUSERINFO (READ USERSTR]
(SETQ PROPS (\WIN FILE))
(with CHARLOOKS LOOKS [SETQ CLBOLD (NOT (ZEROP (LOGAND 512 PROPS]
[SETQ CLITAL (NOT (ZEROP (LOGAND 256 PROPS]
[SETQ CLULINE (NOT (ZEROP (LOGAND 128 PROPS]
[SETQ BOLD (NOT (ZEROP (LOGAND 512 PROPS]
[SETQ ITALIC (NOT (ZEROP (LOGAND 256 PROPS]
(with CHARLOOKS LOOKS [SETQ CLULINE (NOT (ZEROP (LOGAND 128 PROPS]
[SETQ CLOLINE (NOT (ZEROP (LOGAND 64 PROPS]
[SETQ CLSTRIKE (NOT (ZEROP (LOGAND 32 PROPS]
[SETQ CLSMALLCAP (NOT (ZEROP (LOGAND 16 PROPS]
@@ -1009,22 +984,18 @@
[SETQ CLINVISIBLE (NOT (ZEROP (LOGAND 4 PROPS]
[SETQ CLSELAFTER (NOT (ZEROP (LOGAND 2 PROPS]
[SETQ CLCANCOPY (NOT (ZEROP (LOGAND 1 PROPS]
(SETQ CLSIZE SIZE)
(SETQ CLOFFSET SUPER))
(replace (CHARLOOKS CLFONT) of LOOKS with (AND NAME (NOT (ZEROP SIZE))
(FONTCREATE NAME SIZE
(COND
((AND (fetch (CHARLOOKS CLBOLD)
of LOOKS)
(fetch (CHARLOOKS CLITAL)
of LOOKS))
'BOLDITALIC)
((fetch (CHARLOOKS CLBOLD)
of LOOKS)
'BOLD)
((fetch (CHARLOOKS CLITAL)
of LOOKS)
'ITALIC])
(SETQ FONT (if (AND NAME (NOT (ZEROP SIZE)))
then [FONTCREATE NAME SIZE (COND
((AND BOLD ITALIC ITALIC)
'BOLDITALIC)
(BOLD 'BOLD)
(ITALIC 'ITALIC]
else (* ; "Should never happen")
(FONTCREATE DEFAULTFONT)))
(FSETCLOOKS LOOKS CLFONT FONT)
(FSETCLOOKS LOOKS CLNAME (FONTUNPARSE FONT))
(RETURN LOOKS])
(\TEDIT.GET.OBJECT0
[LAMBDA (STREAM PIECE FILE CURCH#) (* ; "Edited 31-Jul-2024 12:09 by rmk")
@@ -1108,14 +1079,14 @@
FMT])
)
(DECLARE%: DONTCOPY
(FILEMAP (NIL (1705 37969 (\TEDIT.GET.PCTB2 1715 . 12010) (\TEDIT.GET.PARALOOKS2 12012 . 12601) (
\TEDIT.GET.CHARLOOKS2 12603 . 13934) (\TEDIT.PARSE.PAGEFRAMES2 13936 . 16675) (
\TEDIT.GET.CHARLOOKS.LIST2 16677 . 17184) (\TEDIT.GET.SINGLE.CHARLOOKS2 17186 . 21013) (
\TEDIT.PUT.SINGLE.PARALOOKS2 21015 . 25132) (\TEDIT.PUT.SINGLE.CHARLOOKS2 25134 . 29718) (
\TEDIT.GET.PARALOOKS.LIST2 29720 . 30227) (\TEDIT.GET.SINGLE.PARALOOKS2 30229 . 34687) (
\TEDIT.PUT.CHARLOOKS.LIST2 34689 . 36768) (\TEDIT.PUT.PARALOOKS.LIST2 36770 . 37967)) (38046 58482 (
\TEDIT.GET.PCTB1 38056 . 44747) (\TEDIT.GET.PAGEFRAMES1 44749 . 45201) (\TEDIT.PARSE.PAGEFRAMES1 45203
. 47856) (\TEDIT.GET.CHARLOOKS1 47858 . 52340) (\TEDIT.GET.PARALOOKS1 52342 . 56748) (
TEDIT.GET.OBJECT1 56750 . 58480)) (58542 72962 (\TEDIT.GET.PCTB0 58552 . 62515) (\TEDIT.GET.CHARLOOKS0
62517 . 67214) (\TEDIT.GET.OBJECT0 67216 . 69275) (\TEDIT.GET.PARALOOKS0 69277 . 72960)))))
(FILEMAP (NIL (1758 36532 (\TEDIT.GET.PCTB2 1768 . 12063) (\TEDIT.GET.PARALOOKS2 12065 . 12654) (
\TEDIT.GET.CHARLOOKS2 12656 . 13987) (\TEDIT.PARSE.PAGEFRAMES2 13989 . 16728) (
\TEDIT.GET.CHARLOOKS.LIST2 16730 . 17237) (\TEDIT.GET.SINGLE.CHARLOOKS2 17239 . 20450) (
\TEDIT.PUT.SINGLE.PARALOOKS2 20452 . 24569) (\TEDIT.PUT.SINGLE.CHARLOOKS2 24571 . 28281) (
\TEDIT.GET.PARALOOKS.LIST2 28283 . 28790) (\TEDIT.GET.SINGLE.PARALOOKS2 28792 . 33250) (
\TEDIT.PUT.CHARLOOKS.LIST2 33252 . 35331) (\TEDIT.PUT.PARALOOKS.LIST2 35333 . 36530)) (36609 56608 (
\TEDIT.GET.PCTB1 36619 . 43310) (\TEDIT.GET.PAGEFRAMES1 43312 . 43764) (\TEDIT.PARSE.PAGEFRAMES1 43766
. 46419) (\TEDIT.GET.CHARLOOKS1 46421 . 50466) (\TEDIT.GET.PARALOOKS1 50468 . 54874) (
TEDIT.GET.OBJECT1 54876 . 56606)) (56668 70486 (\TEDIT.GET.PCTB0 56678 . 60641) (\TEDIT.GET.CHARLOOKS0
60643 . 64738) (\TEDIT.GET.OBJECT0 64740 . 66799) (\TEDIT.GET.PARALOOKS0 66801 . 70484)))))
STOP

BIN
library/tedit/TEDIT-OLDFILE.LCOM
View File

Binary file not shown.

311
library/tedit/TEDIT-PAGE
View File

@@ -1,12 +1,13 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
(FILECREATED "24-Dec-2024 21:32:34" {WMEDLEY}<library>TEDIT>TEDIT-PAGE.;200 121366
(FILECREATED "12-Jan-2025 23:09:11" {WMEDLEY}<library>tedit>TEDIT-PAGE.;204 131960
:EDIT-BY rmk
:CHANGES-TO (FNS TEDIT.SINGLE.PAGEFORMAT)
:CHANGES-TO (FNS \TEDIT.FORMATFOLIO \TEDIT.FORMATHEADING \TEDIT.HARDCOPY.PAGEHEADINGS
TEDIT.SINGLE.PAGEFORMAT)
:PREVIOUS-DATE "11-Dec-2024 22:39:52" {WMEDLEY}<library>TEDIT>TEDIT-PAGE.;198)
:PREVIOUS-DATE " 7-Jan-2025 22:54:12" {WMEDLEY}<library>tedit>TEDIT-PAGE.;203)
(PRETTYCOMPRINT TEDIT-PAGECOMS)
@@ -85,6 +86,11 @@
(B5 499 709]
(COMS (* ; "Page numbering option support")
(FNS ROMANNUMERALS))
(COMS (* ; "Page number image obj")
(FNS TEDIT.PAGENO.CREATE \TEDIT.PAGENO.OBJINIT \TEDIT.PAGENO.BUTTONEVENTINFN
\TEDIT.PAGENO.IMAGEBOXFN \TEDIT.PAGENO.DISPLAYFN \TEDIT.PAGENO.GETFN
\TEDIT.PAGENO.PUTFN)
(P (\TEDIT.PAGENO.OBJINIT)))
(COMS
(* ;; "Foot note support")
@@ -307,7 +313,8 @@
(TEDIT.SINGLE.PAGEFORMAT
[LAMBDA (PAGE#S? PX PY PFONT PQUAD LEFT RIGHT TOP BOTTOM COLS COLWIDTH INTERCOL HEADINGS UNITS
PAGEPROPS PAPERSIZE) (* ; "Edited 24-Dec-2024 21:20 by rmk")
PAGEPROPS PAPERSIZE) (* ; "Edited 10-Jan-2025 11:41 by rmk")
(* ; "Edited 24-Dec-2024 21:20 by rmk")
(* ; "Edited 15-Aug-2024 23:01 by rmk")
(* ; "Edited 6-Aug-2024 12:06 by rmk")
(* ; "Edited 13-Nov-2023 08:59 by rmk")
@@ -349,22 +356,27 @@
(SETQ PAGEWIDTH (IDIFFERENCE (IDIFFERENCE PAPERWIDTH RIGHT)
LEFT))
(CL:WHEN PAGE#S?
(* ;; "This asserts that the page number's region is 4 inches wide. Why? What if the pretext/posttext is longer?")
(SELECTQ (U-CASE PQUAD)
(LEFT (* ;
 "If the page number is flush left, set up the region to start where he specified.")
(SETQ FOLIOLEFT PX))
(RIGHT (* ;
 "If it's flush right, set up the region to END there")
(SETQ FOLIOLEFT (IDIFFERENCE PX 288)))
(SETQ FOLIOLEFT (IDIFFERENCE PX (ITIMES 4 PTSPERINCH))))
((CENTERED CENTER NIL) (* ;
 "Otherwise, center the page number around the point he specifies")
(SETQ FOLIOLEFT (IDIFFERENCE PX 144)))
(SETQ FOLIOLEFT (IDIFFERENCE PX (ITIMES 2 PTSPERINCH))))
(ERROR "Invalid page number alignment" PQUAD))
(* ;; "Note that the folio charlooks is a charlooks spec-list, not a CHARLOOKS. The parse/unparse is just to get the priority union of PFONT with the defaults.")
(* ;; "RMK: Very odd to default here 4 inches and 1/2 for the folio region. ")
(* ;; "PY is described as the baseline of the page numbers, measured from the bottom of the page. So the page numbers and pre/posttext sit above.")
[SETQ SUBREGIONS (LIST (create PAGEREGION
REGIONFILLMETHOD _ 'FOLIO
REGIONSPEC _
@@ -388,7 +400,7 @@
(for HDG LEFT in HEADINGS when (CAR HDG)
collect
(* ;; "Run thru the list of headings, building a box for each. By default, a heading will have the same width right margin as the left margin that was specified.")
(* ;; "Run thru the list of headings, building a box for each. By default the heading's width runs up to the right margin on the page. X/LEFT is the left end of the top line, Y is the %"position of the top line%"--it's YTOP, baseline, or YBOT? But SPECIALX and SPECIALY are described as %"the distances from the lower-left corner of the paper: the lower-left corner of the paragraph's top line is placed at the specified position, so this suggests YBOT.")
(if (AND (NUMBERP (CADR HDG))
(NUMBERP (CADDR HDG)))
@@ -925,7 +937,9 @@
(SETPFS FORMATTINGSTATE CHNO CHNO])
(\TEDIT.FORMATHEADING
[LAMBDA (TEXTOBJ PRSTREAM FORMATTINGSTATE PAGEREGION) (* ; "Edited 24-Nov-2024 11:46 by rmk")
[LAMBDA (TEXTOBJ PRSTREAM FORMATTINGSTATE PAGEREGION) (* ; "Edited 9-Jan-2025 22:27 by rmk")
(* ; "Edited 3-Jan-2025 14:29 by rmk")
(* ; "Edited 24-Nov-2024 11:46 by rmk")
(* ; "Edited 20-Nov-2024 12:37 by rmk")
(* ; "Edited 17-Nov-2024 19:10 by rmk")
(* ; "Edited 26-Oct-2024 10:43 by rmk")
@@ -941,26 +955,26 @@
(* ; "Edited 9-May-2023 20:30 by rmk")
(* ; "Edited 9-Oct-90 13:24 by jds")
(* ;; "Grab heading pieces from the FORMATTINGSTATE and use them to fill REGION on a page. Return a list of line descriptors which fill the region.")
(* ;; "Grab heading SELPIECES from the FORMATTINGSTATE and use them to fill REGION on a page. Return a list of line descriptors which fill the region. The SELPIECES are constructed by \TEDIT.HARDCOPY.PAGEHEADINGS")
(LET ((REGION (SCALEREGION (DSPSCALE NIL PRSTREAM)
(fetch (PAGEREGION REGIONSPEC) of PAGEREGION)))
(LOCALINFO (fetch (PAGEREGION REGIONLOCALINFO) of PAGEREGION))
HEADINGTEXTOBJ HEADINGSTREAM FORCENEXTPAGE HEADING)
(CL:WHEN [AND (for FORM inside (LISTGET LOCALINFO 'PRECONDITIONS) always (EVAL FORM))
(SETQ HEADING (LISTGET (GETPFS FORMATTINGSTATE PAGEHEADINGS)
(LISTGET LOCALINFO 'HEADINGTYPE]
(PAGE# (GETPFS FORMATTINGSTATE PAGE#))
HEADINGTEXTOBJ HEADINGSTREAM HEADING)
(DECLARE (SPECVARS PAGE#))
(CL:WHEN [SETQ HEADING (LISTGET (GETPFS FORMATTINGSTATE PAGEHEADINGS)
(LISTGET LOCALINFO 'HEADINGTYPE]
(* ;; "Bind the stream to make sure it isn't collected.")
[SETQ HEADINGSTREAM (OPENTEXTSTREAM NIL NIL NIL NIL
`(PARALOOKS ,(PPARALOOKS (fetch (SELPIECES SPFIRST)
of HEADING]
(SETQ HEADINGTEXTOBJ (fetch (TEXTSTREAM TEXTOBJ) of HEADINGSTREAM))
`(PARALOOKS ,(PPARALOOKS (GETSPC HEADING SPFIRST]
(SETQ HEADINGTEXTOBJ (GETTSTR HEADINGSTREAM TEXTOBJ))
(* ;; "Insert the heading pieces into HEADINGTEXTOBJ")
(\TEDIT.INSERTPIECES (fetch (SELPIECES SPFIRST) of HEADING)
(\TEDIT.INSERTPIECES (GETSPC HEADING SPFIRST)
(\TEDIT.ALIGNEDPIECE 1 HEADINGTEXTOBJ)
HEADINGTEXTOBJ)
@@ -968,24 +982,24 @@
(* ;; "Why is BOTTOM said to be the %"top%" of the region to be filled?")
(bind LINE YBOT (BOTTOM _ (fetch (REGION BOTTOM) of REGION))
(LEN _ (TEXTLEN HEADINGTEXTOBJ))
(CHNO _ 1) while (ILESSP CHNO LEN) until FORCENEXTPAGE
(bind LINE YBOT FORCENEXTPAGE (BOTTOM _ (fetch (REGION BOTTOM) of REGION))
(TEXTLEN _ (TEXTLEN HEADINGTEXTOBJ))
(CHNO _ 1) while (ILESSP CHNO TEXTLEN) until FORCENEXTPAGE
collect
(* ;; "Format the next line from HEADINGTEXTOBJ pieces")
(SETQ LINE (\TEDIT.FORMATLINE (FGETTOBJ HEADINGTEXTOBJ STREAMHINT)
CHNO NIL REGION PRSTREAM FORMATTINGSTATE))
(SETQ LINE (\TEDIT.FORMATLINE HEADINGSTREAM CHNO NIL REGION PRSTREAM
FORMATTINGSTATE))
(SETQ FORCENEXTPAGE (EQ (CHARCODE FORM)
(GETLD LINE FORCED-END)))
[SETQ YBOT (COND
(YBOT (* ;
(FGETLD LINE FORCED-END)))
[SETQ YBOT (if YBOT
then (* ;
 "Take account of this line's height")
(IDIFFERENCE YBOT (FGETLD LINE LHEIGHT)))
(T (* ;
(IDIFFERENCE YBOT (FGETLD LINE LHEIGHT))
else (* ;
 "First line: position it at the top of the region.")
(IDIFFERENCE BOTTOM (FGETLD LINE LDESCENT]
(IDIFFERENCE BOTTOM (FGETLD LINE LDESCENT]
(SETYBOT LINE YBOT)
(SETQ CHNO (FGETLD LINE LCHARLIM)) (* ; "Set the start of the next line")
LINE))])
@@ -1358,7 +1372,9 @@
TEXTOBJ FORMATTINGSTATE FINAL-CHNO)))])
(\TEDIT.FORMATFOLIO
[LAMBDA (TEXTOBJ PRSTREAM FORMATTINGSTATE PAGEREGION) (* ; "Edited 24-Nov-2024 11:46 by rmk")
[LAMBDA (TEXTOBJ PRSTREAM FORMATTINGSTATE PAGEREGION) (* ; "Edited 9-Jan-2025 21:52 by rmk")
(* ; "Edited 3-Jan-2025 14:28 by rmk")
(* ; "Edited 24-Nov-2024 11:46 by rmk")
(* ; "Edited 20-Nov-2024 12:37 by rmk")
(* ; "Edited 17-Nov-2024 19:16 by rmk")
(* ; "Edited 26-Oct-2024 10:46 by rmk")
@@ -1378,7 +1394,8 @@
(LET ((REGION (SCALEREGION (DSPSCALE NIL PRSTREAM)
(fetch (PAGEREGION REGIONSPEC) of PAGEREGION)))
(FOLIOINFO (fetch (PAGEREGION REGIONLOCALINFO) of PAGEREGION))
FOLIOSTREAM FOLIOTEXTOBJ PAGE# FOLIOFORMAT PRETEXT POSTTEXT INFOLIST)
FOLIOSTREAM PAGE# FOLIOFORMAT PRETEXT POSTTEXT INFOLIST)
(DECLARE (SPECVARS PAGE#))
(CL:UNLESS (AND (GETPFS FORMATTINGSTATE FIRSTPAGE)
(LISTGET FOLIOINFO 'NOFIRSTPAGE)) (* ;
 "If this isn't the first page, OR we want a page # on the first page, go ahead and format it.")
@@ -1404,29 +1421,25 @@
`(PARALOOKS ,(LISTGET FOLIOINFO 'PARALOOKS)
LOOKS
,(LISTGET FOLIOINFO 'CHARLOOKS]
(SETQ FOLIOTEXTOBJ (fetch (TEXTSTREAM TEXTOBJ) of FOLIOSTREAM))
(TEDIT.INSERT FOLIOSTREAM (CONCAT PRETEXT PAGE# POSTTEXT)
1 NIL T)
(bind LINE YBOT FORCENEXTPAGE (TEXTLEN _ (TEXTLEN FOLIOTEXTOBJ))
(bind LINE YBOT FORCENEXTPAGE (TEXTLEN _ (TEXTLEN (GETTSTR FOLIOSTREAM TEXTOBJ)))
(BOTTOM _ (fetch (REGION BOTTOM) of REGION))
(CHNO _ 1) while (ILEQ CHNO TEXTLEN) until FORCENEXTPAGE
collect (SETQ LINE (\TEDIT.FORMATLINE (FGETTOBJ FOLIOTEXTOBJ STREAMHINT)
CHNO NIL REGION PRSTREAM FORMATTINGSTATE))
collect (SETQ LINE (\TEDIT.FORMATLINE FOLIOSTREAM CHNO NIL REGION PRSTREAM
FORMATTINGSTATE))
(SETQ FORCENEXTPAGE (EQ (CHARCODE FORM)
(GETLD LINE FORCED-END)))
(FGETLD LINE FORCED-END)))
(* ; "Format the next possible line")
(SETQ CHNO (FGETLD LINE LCHARLIM)) (* ;
 "Keep track of the next character...")
[SETQ YBOT (COND
(YBOT (* ;
 "We're into it; take account of this line's height")
(IDIFFERENCE YBOT (FGETLD LINE LHEIGHT)))
(T (* ;
 "Just starting out; find the line's position with respect to the top of the region to be filled.")
(IDIFFERENCE BOTTOM (FGETLD LINE LDESCENT]
(CL:WHEN (ILESSP YBOT (IDIFFERENCE BOTTOM (FGETLD LINE LDESCENT)))
(GO $$ITERATE))
[SETQ YBOT (if YBOT
then (* ;
 " Take account of this line's height")
(IDIFFERENCE YBOT (FGETLD LINE LHEIGHT))
else (* ;
 "First line: position it at the top of the region.")
(IDIFFERENCE BOTTOM (FGETLD LINE LDESCENT]
(SETYBOT LINE YBOT) (* ; "This line is still good")
(SETQ CHNO (FGETLD LINE LCHARLIM)) (* ; "Set the start of the next line")
LINE))])
(\TEDIT.FORMAT.FOUNDBOX?
@@ -1496,27 +1509,31 @@
(DEFINEQ
(\TEDIT.HARDCOPY.PAGEHEADINGS
[LAMBDA (TEXTOBJ CHNO FORMATTINGSTATE) (* ; "Edited 21-Oct-2024 00:33 by rmk")
[LAMBDA (TEXTOBJ CHNO FORMATTINGSTATE) (* ; "Edited 12-Jan-2025 17:31 by rmk")
(* ; "Edited 10-Jan-2025 15:42 by rmk")
(* ; "Edited 21-Oct-2024 00:33 by rmk")
(* ; "Edited 17-Mar-2024 00:27 by rmk")
(* ; "Edited 15-Mar-2024 13:54 by rmk")
(* ; "Edited 9-May-2023 17:46 by rmk")
(* ; "Edited 7-May-2023 23:45 by rmk")
(* ; "Edited 9-Oct-2022 17:12 by rmk")
(* ;; "This runs thru all the headings starting at CHNO, copying the pieces of the different heading types into FORMATTINGSTATE, and returning the starting CHNO of the first non-heading piece. ")
(* ;; "This runs thru all the headings starting at CHNO in TEXTOBJ, copying the pieces of the different heading types into SELPIECES in FORMATTINGSTATE, and returning the starting CHNO of the first non-heading piece. ")
(CL:UNLESS FORMATTINGSTATE (* ;
 "If it isn't there, we would loose the headings")
(\TEDIT.THELP "NIL FORMATTINGSTATE"))
(bind HEADINGSUBTYPE (PC _ (\TEDIT.CHTOPC CHNO TEXTOBJ))
while [AND PC (EQ 'PAGEHEADING (fetch FMTPARATYPE of (PPARALOOKS PC]
do (SETQ HEADINGSUBTYPE (fetch FMTPARASUBTYPE of (PPARALOOKS PC)))
(for P (START _ CHNO) inpieces PC while [AND (EQ 'PAGEHEADING (fetch FMTPARATYPE
of (PPARALOOKS P)))
(EQ HEADINGSUBTYPE (fetch FMTPARASUBTYPE
of (PPARALOOKS P]
while (AND PC (EQ 'PAGEHEADING (GETPARA (PPARALOOKS PC)
FMTPARATYPE)))
do (SETQ HEADINGSUBTYPE (GETPARA (PPARALOOKS PC)
FMTPARASUBTYPE))
(for P (START _ CHNO) inpieces PC while (AND (EQ 'PAGEHEADING (GETPARA (PPARALOOKS P)
FMTPARATYPE))
(EQ HEADINGSUBTYPE (GETPARA (PPARALOOKS P)
FMTPARASUBTYPE)))
do
(* ;; "We loop at least once, because P=PC satisfies the while. We need the CHNO, not the piece for the piecerange")
(* ;; "We loop at least once, because P=PC satisfies the while. We need the CHNO, not the piece for the selpieces")
(add CHNO (PLEN P)) finally (LISTPUT (fetch PAGEHEADINGS of FORMATTINGSTATE)
HEADINGSUBTYPE
@@ -1527,6 +1544,30 @@
 "Set PC to continue looking for the next headingtype.")
(SETQ PC P)))
(* ;; "For backward compatibility, this uses the information in the pageformat to create SELPIECES covering the pretext, pageno, and posttest, where the pageno is produced by the PAGENO image object. We create a scratch textstream so that we can use the standard TEDIT.INSERT and TEDIT.INSERT.OBJECT, then throw it away. This only happens once, when this heading is encountered, even if the pieces are rendered on multiple pages.")
[LET ((FOLIOINFO (fetch (PAGEREGION REGIONLOCALINFO) of PAGEREGION))
INFOLIST FOLIOSTREAM FOLIOTEXTOBJ)
(* ;; "Have to set the SPECIALX and SPECIALY according to the PX and PY. And PQUAD")
(CL:WHEN FOLIOINFO
(SETQ INFOLIST (LISTGET FOLIOINFO 'FORMATINFO))
[SETQ FOLIOSTREAM (OPENTEXTSTREAM NIL NIL `(PARALOOKS ,(LISTGET FOLIOINFO 'PARALOOKS)
LOOKS
,(LISTGET FOLIOINFO 'CHARLOOKS]
(SETQ FOLIOTEXTOBJ (GETTSTR FOLIOSTREAM TEXTOBJ))
(CL:WHEN (CADR INFOLIST)
(TEDIT.INSERT FOLIOSTREAM (MKSTRING (CADR INFOLIST))))
(TEDIT.INSERT.OBJECT (TEDIT.PAGENO.CREATE (CAR INFOLIST))
FOLIOSTREAM)
(CL:WHEN (CADDR INFOLIST)
(TEDIT.INSERT FOLIOSTREAM (MKSTRING (CADDR INFOLIST))))
(LISTPUT (fetch PAGEHEADINGS of FORMATTINGSTATE)
'\TEDIT.PAGENO
(\TEDIT.SELPIECES.COPY (\TEDIT.SELPIECES 1 (TEXTLEN FOLIOTEXTOBJ)
FOLIOTEXTOBJ))))]
CHNO])
)
@@ -1850,6 +1891,141 @@
(* ; "Page number image obj")
(DEFINEQ
(TEDIT.PAGENO.CREATE
[LAMBDA (FORMAT) (* ; "Edited 7-Jan-2025 14:14 by rmk")
(* ; "Edited 3-Jan-2025 14:44 by rmk")
(LET ((OBJ (IMAGEOBJCREATE NIL TEDIT.PAGENOOBJ.IMAGEFNS)))
(IMAGEOBJPROP OBJ 'FORMAT (OR FORMAT 'ARABIC))
OBJ])
(\TEDIT.PAGENO.OBJINIT
[LAMBDA NIL (* ; "Edited 7-Jan-2025 22:54 by rmk")
(* ; "Edited 3-Jan-2025 15:01 by rmk")
(* jds " 9-Feb-86 15:17")
(* ;; "Initialize the IMAGEFNS for a page-number image object")
(DECLARE (GLOBALVARS TEDIT.PAGENOOBJ.IMAGEFNS))
(SETQ TEDIT.PAGENOOBJ.IMAGEFNS (IMAGEFNSCREATE (FUNCTION \TEDIT.PAGENO.DISPLAYFN)
(FUNCTION \TEDIT.PAGENO.IMAGEBOXFN)
(FUNCTION \TEDIT.PAGENO.PUTBOXFN)
(FUNCTION \TEDIT.PAGENO.GETFN)
[FUNCTION (LAMBDA (OBJ)
(create IMAGEOBJ copying OBJ]
(FUNCTION \TEDIT.PAGENO.BUTTONEVENTINFN)
'NILL
'NILL
'NILL
'NILL
'NILL NIL 'NILL 'PageNumber])
(\TEDIT.PAGENO.BUTTONEVENTINFN
[LAMBDA (IMAGEOBJ WINDOW SELECTION X Y SELWINDOW TEXTSTREAM BUTTON OPERATION)
(* ; "Edited 3-Jan-2025 14:32 by rmk")
(* ; "Edited 14-Aug-93 19:44 by rmk:")
(* ;; "Allow the user to change the page-number printed format.")
(* ;;; "the user has pressed a button inside the bitmap object IMAGEOBJ. Bring up a menu of bitmap edit operations.")
(CL:WHEN (AND (EQ BUTTON 'LEFT)
(EQ OPERATION 'NORMAL))
(LET (FORMAT)
[SETQ FORMAT (MENU (create MENU
ITEMS _ '((Arabic 'ARABIC)
("Lower Roman" 'LOWERROMAN)
(" Upper Roman" 'UPPERROMAN]
(CL:WHEN [AND FORMAT (NEQ FORMAT (IMAGEOBJPROP IMAGEOBJ 'FORMAT]
(IMAGEOBJPROP IMAGEOBJ 'FORMAT FORMAT)
'CHANGED)))])
(\TEDIT.PAGENO.IMAGEBOXFN
[LAMBDA (OBJ IMAGESTREAM) (* ; "Edited 3-Jan-2025 14:30 by rmk")
(* ; "Edited 26-Aug-2024 09:36 by rmk")
(* ; "Edited 3-Aug-2024 13:10 by rmk")
(* ; "Edited 19-Jul-2024 23:26 by rmk")
(* ; "Edited 11-Oct-2022 22:51 by rmk")
(* ; "Edited 4-Oct-2022 11:59 by rmk")
(* ;; "Creates the box for a page number, a place holder on the display, otherwise the properly formatted number. Looks come from the font.")
(* ;;
 "Create the box for a menu button containing LABEL in font FONT on STREAM (NIL means display).")
(DECLARE (USEDFREE PAGE#))
(LET ((FONT (DSPFONT NIL IMAGESTREAM))
(FORMAT (IMAGEOBJPROP OBJ 'FORMAT))
YSIZE XSIZE)
(SETQ YSIZE (FONTPROP FONT 'HEIGHT))
(SETQ XSIZE (STRINGWIDTH (if (DISPLAYSTREAMP IMAGESTREAM)
then (CONCAT "[P#" (SELECTQ FORMAT
(SELECTQ FORMAT
(LOWERROMAN "x")
(UPPERROMAN "X")
(MKSTRING "1")))
"]")
else (SELECTQ FORMAT
(LOWERROMAN (ROMANNUMERALS PAGE#))
(UPPERROMAN (ROMANNUMERALS PAGE# T))
(MKSTRING PAGE#)))
FONT))
(create IMAGEBOX
XSIZE _ XSIZE
YSIZE _ YSIZE
YDESC _ 0
XKERN _ 0])
(\TEDIT.PAGENO.DISPLAYFN
[LAMBDA (OBJ IMAGESTREAM IMAGESTREAMTYPE HOSTSTREAM) (* ; "Edited 3-Jan-2025 14:30 by rmk")
(* ; "Edited 26-Aug-2024 09:36 by rmk")
(* ; "Edited 3-Aug-2024 13:10 by rmk")
(* ; "Edited 19-Jul-2024 23:26 by rmk")
(* ; "Edited 11-Oct-2022 22:51 by rmk")
(* ; "Edited 4-Oct-2022 11:59 by rmk")
(* jds "30-Aug-84 11:24")
(* ;; "Display the page number on IMAGESTREAM, a place holder for display, otherwise a formatted number. Looks come from the font.")
(DECLARE (USEDFREE PAGE#))
(LET [(FORMAT (IMAGEOBJPROP OBJ 'FORMAT]
(PRIN3 (if (DISPLAYSTREAMP IMAGESTREAM)
then (CONCAT "[P#" (SELECTQ FORMAT
(SELECTQ FORMAT
(LOWERROMAN "x")
(UPPERROMAN "X")
(MKSTRING "1")))
"]")
else (SELECTQ FORMAT
(LOWERROMAN (ROMANNUMERALS PAGE#))
(UPPERROMAN (ROMANNUMERALS PAGE# T))
(MKSTRING PAGE#)))
IMAGESTREAM])
(\TEDIT.PAGENO.GETFN
[LAMBDA (FILESTREAM) (* ; "Edited 3-Jan-2025 14:13 by rmk")
(LET ((X (READ FILESTREAM (FIND-READTABLE "INTERLISP" T)))
OBJ)
(SETQ OBJ (IMAGEOBJCREATE (CAR X)
PAGENOOBJ.IMAGEFNS))
(replace (IMAGEOBJ IMAGEOBJPLIST) of OBJ with (CDR X))
OBJ])
(\TEDIT.PAGENO.PUTFN
[LAMBDA (OBJ FILESTREAM) (* ; "Edited 3-Jan-2025 15:01 by rmk")
(PRINT (CONS (fetch (IMAGEOBJ OBJECTDATUM) of OBJ)
(fetch (IMAGEOBJ IMAGEOBJPLIST) of OBJ))
FILESTREAM
(FIND-READTABLE "INTERLISP"])
)
(\TEDIT.PAGENO.OBJINIT)
(* ;; "Foot note support")
(DEFINEQ
@@ -1895,15 +2071,18 @@
(RETURN (DREMOVE NIL $$VAL])
)
(DECLARE%: DONTCOPY
(FILEMAP (NIL (11801 15413 (\TEDIT.PARSE.PAGEFRAMES 11811 . 13590) (\TEDIT.PUT.PAGEFRAMES 13592 .
14416) (\TEDIT.UNPARSE.PAGEFRAMES 14418 . 15411)) (15476 36629 (TEDIT.SINGLE.PAGEFORMAT 15486 . 25615)
(TEDIT.COMPOUND.PAGEFORMAT 25617 . 26596) (TEDIT.PAGEFORMAT 26598 . 33887) (TEDIT.GET.PAGEFORMAT
33889 . 36627)) (36916 47418 (TEDIT.FORMAT.HARDCOPY 36926 . 47416)) (47505 98986 (\TEDIT.FORMATBOX
47515 . 60618) (\TEDIT.FORMATHEADING 60620 . 65142) (\TEDIT.FORMATPAGE 65144 . 73674) (
\TEDIT.FORMATTEXTBOX 73676 . 89600) (\TEDIT.FORMATFOLIO 89602 . 94956) (\TEDIT.FORMAT.FOUNDBOX? 94958
. 96997) (\TEDIT.SKIP.SPECIALCOND 96999 . 98984)) (99066 101596 (\TEDIT.HARDCOPY.PAGEHEADINGS 99076
. 101594)) (101705 109434 (\TEDIT.HARDCOPY-COLUMN-END 101715 . 109432)) (109479 114420 (
SCALEPAGEUNITS 109489 . 110630) (SCALEPAGEXUNITS 110632 . 111402) (SCALEPAGEYUNITS 111404 . 112175) (
\TEDIT.PAPERHEIGHT 112177 . 113112) (\TEDIT.PAPERWIDTH 113114 . 114418)) (114836 118404 (ROMANNUMERALS
114846 . 118402)) (118440 121343 (\TEDIT.FORMAT.FOOTNOTE 118450 . 121341)))))
(FILEMAP (NIL (12253 15865 (\TEDIT.PARSE.PAGEFRAMES 12263 . 14042) (\TEDIT.PUT.PAGEFRAMES 14044 .
14868) (\TEDIT.UNPARSE.PAGEFRAMES 14870 . 15863)) (15928 37826 (TEDIT.SINGLE.PAGEFORMAT 15938 . 26812)
(TEDIT.COMPOUND.PAGEFORMAT 26814 . 27793) (TEDIT.PAGEFORMAT 27795 . 35084) (TEDIT.GET.PAGEFORMAT
35086 . 37824)) (38113 48615 (TEDIT.FORMAT.HARDCOPY 38123 . 48613)) (48702 100270 (\TEDIT.FORMATBOX
48712 . 61815) (\TEDIT.FORMATHEADING 61817 . 66463) (\TEDIT.FORMATPAGE 66465 . 74995) (
\TEDIT.FORMATTEXTBOX 74997 . 90921) (\TEDIT.FORMATFOLIO 90923 . 96240) (\TEDIT.FORMAT.FOUNDBOX? 96242
. 98281) (\TEDIT.SKIP.SPECIALCOND 98283 . 100268)) (100350 104856 (\TEDIT.HARDCOPY.PAGEHEADINGS
100360 . 104854)) (104965 112694 (\TEDIT.HARDCOPY-COLUMN-END 104975 . 112692)) (112739 117680 (
SCALEPAGEUNITS 112749 . 113890) (SCALEPAGEXUNITS 113892 . 114662) (SCALEPAGEYUNITS 114664 . 115435) (
\TEDIT.PAPERHEIGHT 115437 . 116372) (\TEDIT.PAPERWIDTH 116374 . 117678)) (118096 121664 (ROMANNUMERALS
118106 . 121662)) (121703 128969 (TEDIT.PAGENO.CREATE 121713 . 122089) (\TEDIT.PAGENO.OBJINIT 122091
. 123374) (\TEDIT.PAGENO.BUTTONEVENTINFN 123376 . 124442) (\TEDIT.PAGENO.IMAGEBOXFN 124444 . 126594)
(\TEDIT.PAGENO.DISPLAYFN 126596 . 128246) (\TEDIT.PAGENO.GETFN 128248 . 128640) (\TEDIT.PAGENO.PUTFN
128642 . 128967)) (129034 131937 (\TEDIT.FORMAT.FOOTNOTE 129044 . 131935)))))
STOP

BIN
library/tedit/TEDIT-PAGE.LCOM
View File

Binary file not shown.

47
library/tedit/TEDIT-SCREEN
View File

@@ -1,13 +1,12 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
(FILECREATED "21-Jan-2025 16:05:23" {WMEDLEY}<library>TEDIT>TEDIT-SCREEN.;849 186170
(FILECREATED " 1-Feb-2025 10:36:27" {WMEDLEY}<library>TEDIT>TEDIT-SCREEN.;850 186125
:EDIT-BY rmk
:CHANGES-TO (FNS \TEDIT.UPDATE.LINES \TEDIT.MEASURED.LINES \TEDIT.LINES.BELOW
\TEDIT.VALID.LINES \TEDIT.NEXTVALIDLINE)
:CHANGES-TO (FNS \TEDIT.UPDATE.LINES)
:PREVIOUS-DATE " 7-Jan-2025 11:56:35" {WMEDLEY}<library>TEDIT>TEDIT-SCREEN.;848)
:PREVIOUS-DATE "21-Jan-2025 16:05:23" {WMEDLEY}<library>TEDIT>TEDIT-SCREEN.;849)
(PRETTYCOMPRINT TEDIT-SCREENCOMS)
@@ -2323,7 +2322,8 @@
1)])
(\TEDIT.UPDATE.LINES
[LAMBDA (TEXTOBJ REASON FIRSTCHANGEDCHNO NCHARSCHANGED) (* ; "Edited 21-Jan-2025 13:25 by rmk")
[LAMBDA (TEXTOBJ REASON FIRSTCHANGEDCHNO NCHARSCHANGED) (* ; "Edited 1-Feb-2025 10:34 by rmk")
(* ; "Edited 21-Jan-2025 13:25 by rmk")
(* ; "Edited 7-Jan-2025 11:55 by rmk")
(* ; "Edited 7-Dec-2024 21:52 by rmk")
(* ; "Edited 29-Nov-2024 22:56 by rmk")
@@ -2385,8 +2385,7 @@
(PANETOP PANE))
(LINKLD (PANEPREFIX PANE)
(FGETLD LASTVALID NEXTLINE)))
(\TEDIT.SHIFTLINES LASTVALID (FGETLD LASTVALID NEXTLINE)
PANE TEXTOBJ BITMAPLINES UPPERBITMAPLINES)))])
(\TEDIT.SHIFTLINES LASTVALID PANE TEXTOBJ BITMAPLINES UPPERBITMAPLINES)))])
(\TEDIT.PANE.CREATELINES
[LAMBDA (TEXTOBJ PANE LCHARLAST YBOT) (* ; "Edited 29-Nov-2024 09:14 by rmk")
@@ -2860,21 +2859,21 @@
(\TEDIT.LINE.TALLP LINE PHEIGHT))))])
)
(DECLARE%: DONTCOPY
(FILEMAP (NIL (28086 30302 (\TEDIT.LINEDESCRIPTOR.DEFPRINT 28096 . 30300)) (37707 118467 (
\TEDIT.FORMATLINE 37717 . 72457) (\TEDIT.FORMATLINE.SETUP.PARA 72459 . 77282) (
\TEDIT.FORMATLINE.HORIZONTAL 77284 . 81680) (\TEDIT.FORMATLINE.VERTICAL 81682 . 83899) (
\TEDIT.FORMATLINE.JUSTIFY 83901 . 89922) (\TEDIT.FORMATLINE.TABS 89924 . 97724) (\TEDIT.SCALE.TABS
97726 . 98517) (\TEDIT.FORMATLINE.PURGE.SPACES 98519 . 99946) (\TEDIT.FORMATLINE.FLUSH.SOFTHYPHEN
99948 . 100849) (\TEDIT.FORMATLINE.EMPTY 100851 . 105537) (\TEDIT.FORMATLINE.UPDATELOOKS 105539 .
111661) (\TEDIT.FORMATLINE.LASTLEGAL 111663 . 115203) (\TEDIT.LINES.ABOVE 115205 . 118465)) (118584
120499 (\TLVALIDATE 118594 . 120497)) (120693 141857 (\TEDIT.DISPLAYLINE 120703 . 134150) (
\TEDIT.DISPLAYLINE.TABS 134152 . 136775) (\TEDIT.LINECACHE 136777 . 137505) (\TEDIT.CREATE.LINECACHE
137507 . 138343) (\TEDIT.BLTCHAR 138345 . 140972) (\TEDIT.DIACRITIC.SHIFT 140974 . 141855)) (142472
186147 (\TEDIT.BACKFORMAT 142482 . 145036) (\TEDIT.PREVIOUS.LINEBREAK 145038 . 147761) (
\TEDIT.UPDATE.LINES 147763 . 152573) (\TEDIT.PANE.CREATELINES 152575 . 155567) (
\TEDIT.SUFFIXLINE.CREATE 155569 . 156944) (\TEDIT.LINES.BELOW 156946 . 161407) (\TEDIT.MEASURED.LINES
161409 . 163309) (\TEDIT.VALID.LINES 163311 . 171572) (\TEDIT.LASTVALIDLINE 171574 . 176396) (
\TEDIT.NEXTVALIDLINE 176398 . 177828) (\TEDIT.CLEARPANE.BELOW.LINE 177830 . 179936) (\TEDIT.INSERTLINE
179938 . 181324) (\TEDIT.LINE.BOTTOM 181326 . 184322) (\TEDIT.SHOW.AT.BOTTOMP 184324 . 185434) (
\TEDIT.SHOW.AT.TOPP 185436 . 186145)))))
(FILEMAP (NIL (27981 30197 (\TEDIT.LINEDESCRIPTOR.DEFPRINT 27991 . 30195)) (37602 118362 (
\TEDIT.FORMATLINE 37612 . 72352) (\TEDIT.FORMATLINE.SETUP.PARA 72354 . 77177) (
\TEDIT.FORMATLINE.HORIZONTAL 77179 . 81575) (\TEDIT.FORMATLINE.VERTICAL 81577 . 83794) (
\TEDIT.FORMATLINE.JUSTIFY 83796 . 89817) (\TEDIT.FORMATLINE.TABS 89819 . 97619) (\TEDIT.SCALE.TABS
97621 . 98412) (\TEDIT.FORMATLINE.PURGE.SPACES 98414 . 99841) (\TEDIT.FORMATLINE.FLUSH.SOFTHYPHEN
99843 . 100744) (\TEDIT.FORMATLINE.EMPTY 100746 . 105432) (\TEDIT.FORMATLINE.UPDATELOOKS 105434 .
111556) (\TEDIT.FORMATLINE.LASTLEGAL 111558 . 115098) (\TEDIT.LINES.ABOVE 115100 . 118360)) (118479
120394 (\TLVALIDATE 118489 . 120392)) (120588 141752 (\TEDIT.DISPLAYLINE 120598 . 134045) (
\TEDIT.DISPLAYLINE.TABS 134047 . 136670) (\TEDIT.LINECACHE 136672 . 137400) (\TEDIT.CREATE.LINECACHE
137402 . 138238) (\TEDIT.BLTCHAR 138240 . 140867) (\TEDIT.DIACRITIC.SHIFT 140869 . 141750)) (142367
186102 (\TEDIT.BACKFORMAT 142377 . 144931) (\TEDIT.PREVIOUS.LINEBREAK 144933 . 147656) (
\TEDIT.UPDATE.LINES 147658 . 152528) (\TEDIT.PANE.CREATELINES 152530 . 155522) (
\TEDIT.SUFFIXLINE.CREATE 155524 . 156899) (\TEDIT.LINES.BELOW 156901 . 161362) (\TEDIT.MEASURED.LINES
161364 . 163264) (\TEDIT.VALID.LINES 163266 . 171527) (\TEDIT.LASTVALIDLINE 171529 . 176351) (
\TEDIT.NEXTVALIDLINE 176353 . 177783) (\TEDIT.CLEARPANE.BELOW.LINE 177785 . 179891) (\TEDIT.INSERTLINE
179893 . 181279) (\TEDIT.LINE.BOTTOM 181281 . 184277) (\TEDIT.SHOW.AT.BOTTOMP 184279 . 185389) (
\TEDIT.SHOW.AT.TOPP 185391 . 186100)))))
STOP

BIN
library/tedit/TEDIT-SCREEN.LCOM
View File

Binary file not shown.

74
library/tedit/TEDIT-SELECTION
View File

@@ -1,12 +1,12 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
(FILECREATED "19-Jan-2025 08:36:30" {WMEDLEY}<library>tedit>TEDIT-SELECTION.;643 149608
(FILECREATED " 3-Feb-2025 09:32:02" {WMEDLEY}<library>TEDIT>TEDIT-SELECTION.;645 150146
:EDIT-BY rmk
:CHANGES-TO (FNS TEDIT.SETSEL)
:CHANGES-TO (FNS \TEDIT.SCAN.LINE)
:PREVIOUS-DATE " 8-Jan-2025 00:21:32" {WMEDLEY}<library>tedit>TEDIT-SELECTION.;641)
:PREVIOUS-DATE "31-Jan-2025 12:45:17" {WMEDLEY}<library>TEDIT>TEDIT-SELECTION.;644)
(PRETTYCOMPRINT TEDIT-SELECTIONCOMS)
@@ -570,6 +570,7 @@
(\TEDIT.SCAN.LINE
[LAMBDA (LINE X Y NEWSEL SELOPERATION PANE BUTTON WORDSELFLG)
(* ; "Edited 3-Feb-2025 09:31 by rmk")
(* ; "Edited 6-Dec-2024 11:06 by rmk")
(* ; "Edited 4-Dec-2024 12:06 by rmk")
(* ; "Edited 30-Nov-2024 09:52 by rmk")
@@ -708,11 +709,17 @@
(FSETSEL NEWSEL HASCARET (EQ SELOPERATION 'NORMAL]
(FSETSEL NEWSEL CHLIM (IPLUS (FGETSEL NEWSEL CH#)
(FGETSEL NEWSEL DCH)))
(FSETSEL NEWSEL POINT (if [OR PASTRIGHT (EQ MOVED 'BACKWARD)
(AND (IGEQ (CHARW CHARSLOT)
3)
(IGEQ X (IDIFFERENCE XLIM (FOLDLO (CHARW CHARSLOT)
2]
(FSETSEL NEWSEL POINT (if (FGETLD LINE FORCED-END)
then
(* ;;
 "Always go to the left of an EOL, so caret stays on its line")
'LEFT
elseif [OR PASTRIGHT (EQ MOVED 'BACKWARD)
(AND (IGEQ (CHARW CHARSLOT)
3)
(IGEQ X (IDIFFERENCE XLIM (FOLDLO (CHARW CHARSLOT)
2]
then
(* ;;
 "Beyond the line, or towards the end of a character that is at least 3 points wide.")
@@ -2245,6 +2252,7 @@
(TEDIT.SETSEL
[LAMBDA (TSTREAM CH# LEN POINT PENDINGDELFLG LEAVECARETLOOKS OPERATION)
(* ; "Edited 31-Jan-2025 12:43 by rmk")
(* ; "Edited 19-Jan-2025 08:32 by rmk")
(* ; "Edited 8-Jan-2025 00:20 by rmk")
(* ; "Edited 26-Nov-2024 23:51 by rmk")
@@ -2264,10 +2272,8 @@
(* ;; "For convenience, TSTREAM may be provided as an external selection (with its SELTEXTSTREAM as the actual TSTREAM). That selection is never installed in TSTREAM, to avoid circularity.")
(SETQ TSTREAM (TEXTSTREAM TSTREAM))
(CL:UNLESS OPERATION
(SETQ OPERATION (CL:IF PENDINGDELFLG
'PENDINGDEL
'NORMAL)))
(CL:WHEN (AND LEN (ILESSP LEN 0))
(ERROR "Selection length cannot be negative" LEN))
(LET* ((TEXTOBJ (TEXTOBJ! (GETTSTR TSTREAM TEXTOBJ)))
(SEL (TEXTSEL TEXTOBJ))
(TEXTLEN (TEXTLEN TEXTOBJ))
@@ -2306,7 +2312,7 @@
(SETTOBJ TEXTOBJ CARETLOOKS (\TEDIT.GET.INSERT.CHARLOOKS TEXTOBJ SEL)))
(\TEDIT.FIXSEL SEL TEXTOBJ)
(\TEDIT.SHOWSEL SEL T TEXTOBJ)
SEL])
(TEDIT.GETSEL TSTREAM])
(TEDIT.SHOWSEL
[LAMBDA (TSTREAM ONFLG SEL) (* ; "Edited 7-Jul-2024 11:25 by rmk")
@@ -2396,25 +2402,25 @@
(ADDTOVAR LAMA TEDIT.SELPROP)
)
(DECLARE%: DONTCOPY
(FILEMAP (NIL (15574 17395 (\TEDIT.SELECTION.DEFPRINT 15584 . 17393)) (17432 18937 (
\TEDIT.SET.GLOBAL.SELECTIONS 17442 . 18935)) (18938 24807 (\TEDIT.SELECTED.PIECES 18948 . 20468) (
\TEDIT.FIND.PROTECTED.END 20470 . 22139) (\TEDIT.FIND.PROTECTED.START 22141 . 23999) (
\TEDIT.WORD.BOUND 24001 . 24805)) (24941 58880 (\TEDIT.EXTEND.SEL 24951 . 32039) (\TEDIT.SCAN.LINE
32041 . 43669) (\TEDIT.SCAN.LINE.WORD 43671 . 49032) (\TEDIT.XYTOSEL 49034 . 56033) (\TEDIT.REGIONTYPE
56035 . 57054) (\TEDIT.XYTOSEL.INLINEP 57056 . 57511) (\TEDIT.XYTOSEL.LINE 57513 . 58878)) (58881
72043 (\TEDIT.FIXSEL 58891 . 68504) (\TEDIT.CHTOLINEX 68506 . 72041)) (72044 75581 (
\TEDIT.RESET.EXTEND.PENDING.DELETE 72054 . 73027) (\TEDIT.SET.SEL.LOOKS 73029 . 75579)) (75582 91882 (
\TEDIT.SHOWSEL 75592 . 80052) (\TEDIT.SHOWSEL.HILIGHT 80054 . 84675) (\TEDIT.UPDATE.SEL 84677 . 88176)
(\TEDIT.CARETLINE 88178 . 88892) (\TEDIT.SEL.L1 88894 . 89400) (\TEDIT.SEL.LN 89402 . 89908) (
\TEDIT.SEL.DELETEDCHARS 89910 . 91880)) (91883 96589 (\TEDIT.COPYSEL 91893 . 94359) (
\TEDIT.SEL.CHANGED? 94361 . 96587)) (96620 109349 (\TEDIT.SELECT.OBJECT 96630 . 101136) (
\TEDIT.SHOWSEL.OBJECT 101138 . 103300) (\TEDIT.CLIP.OBJECT 103302 . 105306) (\TEDIT.OPERATE.OBJECT
105308 . 109347)) (109377 127606 (\TEDIT.SELPIECES 109387 . 113335) (\TEDIT.SELPIECES.COPY 113337 .
115375) (\TEDIT.SELPIECES.CONCAT 115377 . 117256) (\TEDIT.SELPIECES.CHARTRANSFORM 117258 . 120216) (
\TEDIT.SELPIECES.FROM.STRING 120218 . 125241) (\TEDIT.SELPIECES.TO.STRING 125243 . 127604)) (127659
149439 (TEDIT.XYTOCH 127669 . 130053) (TEDIT.SELPROP 130055 . 133811) (TEDIT.GETPOINT 133813 . 135733)
(TEDIT.GETSEL 135735 . 136469) (TEDIT.GETSEL.PARA 136471 . 137420) (TEDIT.SCANSEL 137422 . 138370) (
TEDIT.SET.SEL.LOOKS 138372 . 139751) (TEDIT.SETSEL 139753 . 144282) (TEDIT.SHOWSEL 144284 . 145564) (
TEDIT.SEL.AS.STRING 145566 . 147817) (TEDIT.SEL.AS.SEXPR 147819 . 149105) (TEDIT.SELECTALL 149107 .
149437)))))
(FILEMAP (NIL (15578 17399 (\TEDIT.SELECTION.DEFPRINT 15588 . 17397)) (17436 18941 (
\TEDIT.SET.GLOBAL.SELECTIONS 17446 . 18939)) (18942 24811 (\TEDIT.SELECTED.PIECES 18952 . 20472) (
\TEDIT.FIND.PROTECTED.END 20474 . 22143) (\TEDIT.FIND.PROTECTED.START 22145 . 24003) (
\TEDIT.WORD.BOUND 24005 . 24809)) (24945 59336 (\TEDIT.EXTEND.SEL 24955 . 32043) (\TEDIT.SCAN.LINE
32045 . 44125) (\TEDIT.SCAN.LINE.WORD 44127 . 49488) (\TEDIT.XYTOSEL 49490 . 56489) (\TEDIT.REGIONTYPE
56491 . 57510) (\TEDIT.XYTOSEL.INLINEP 57512 . 57967) (\TEDIT.XYTOSEL.LINE 57969 . 59334)) (59337
72499 (\TEDIT.FIXSEL 59347 . 68960) (\TEDIT.CHTOLINEX 68962 . 72497)) (72500 76037 (
\TEDIT.RESET.EXTEND.PENDING.DELETE 72510 . 73483) (\TEDIT.SET.SEL.LOOKS 73485 . 76035)) (76038 92338 (
\TEDIT.SHOWSEL 76048 . 80508) (\TEDIT.SHOWSEL.HILIGHT 80510 . 85131) (\TEDIT.UPDATE.SEL 85133 . 88632)
(\TEDIT.CARETLINE 88634 . 89348) (\TEDIT.SEL.L1 89350 . 89856) (\TEDIT.SEL.LN 89858 . 90364) (
\TEDIT.SEL.DELETEDCHARS 90366 . 92336)) (92339 97045 (\TEDIT.COPYSEL 92349 . 94815) (
\TEDIT.SEL.CHANGED? 94817 . 97043)) (97076 109805 (\TEDIT.SELECT.OBJECT 97086 . 101592) (
\TEDIT.SHOWSEL.OBJECT 101594 . 103756) (\TEDIT.CLIP.OBJECT 103758 . 105762) (\TEDIT.OPERATE.OBJECT
105764 . 109803)) (109833 128062 (\TEDIT.SELPIECES 109843 . 113791) (\TEDIT.SELPIECES.COPY 113793 .
115831) (\TEDIT.SELPIECES.CONCAT 115833 . 117712) (\TEDIT.SELPIECES.CHARTRANSFORM 117714 . 120672) (
\TEDIT.SELPIECES.FROM.STRING 120674 . 125697) (\TEDIT.SELPIECES.TO.STRING 125699 . 128060)) (128115
149977 (TEDIT.XYTOCH 128125 . 130509) (TEDIT.SELPROP 130511 . 134267) (TEDIT.GETPOINT 134269 . 136189)
(TEDIT.GETSEL 136191 . 136925) (TEDIT.GETSEL.PARA 136927 . 137876) (TEDIT.SCANSEL 137878 . 138826) (
TEDIT.SET.SEL.LOOKS 138828 . 140207) (TEDIT.SETSEL 140209 . 144820) (TEDIT.SHOWSEL 144822 . 146102) (
TEDIT.SEL.AS.STRING 146104 . 148355) (TEDIT.SEL.AS.SEXPR 148357 . 149643) (TEDIT.SELECTALL 149645 .
149975)))))
STOP

BIN
library/tedit/TEDIT-SELECTION.LCOM
View File

Binary file not shown.

95
library/tedit/TEDIT-STREAM
View File

@@ -1,12 +1,12 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
(FILECREATED "12-Jan-2025 12:16:57" {MEDLEY}<library>tedit>TEDIT-STREAM.;8 172473
(FILECREATED "30-Jan-2025 11:15:51" {WMEDLEY}<library>TEDIT>TEDIT-STREAM.;840 173255
:EDIT-BY rmk
:CHANGES-TO (FNS COPYTEXTSTREAM)
:CHANGES-TO (FNS OPENTEXTSTREAM)
:PREVIOUS-DATE "22-Dec-2024 00:24:17" {MEDLEY}<library>tedit>TEDIT-STREAM.;7)
:PREVIOUS-DATE "12-Jan-2025 12:30:12" {WMEDLEY}<library>TEDIT>TEDIT-STREAM.;839)
(PRETTYCOMPRINT TEDIT-STREAMCOMS)
@@ -102,7 +102,7 @@
NEXTPIECE (* ; "-> Next piece in this textobj.")
(PREVPIECE FULLXPOINTER) (* ;
 "-> Prior piece in this text object.")
PLOOKS (* ; "Character formatting info ")
PCHARLOOKS (* ; "Character formatting info ")
PBYTESPERCHAR (* ;
 "The number of bytes per character, given that all characters in a piece are the same length.")
(PPARALAST FLAG) (* ; "This piece ends paragraph")
@@ -121,10 +121,12 @@
[ACCESSFNS ((POBJ (AND (EQ OBJECT.PTYPE (PTYPE DATUM))
(type? IMAGEOBJ (PCONTENTS DATUM))
(PCONTENTS DATUM)))
(PCHARLOOKS (PLOOKS DATUM)
(STANDARD (replace (PIECE PLOOKS) of DATUM with NEWVALUE)
(PLOOKS (STANDARD (fetch (PIECE PCHARLOOKS) of DATUM)
FAST
(fetch (PIECE PCHARLOOKS) of DATUM))
(STANDARD (replace (PIECE PCHARLOOKS) of DATUM with NEWVALUE)
FAST
(freplace (PIECE PLOOKS) of DATUM with NEWVALUE]
(freplace (PIECE PCHARLOOKS) of DATUM with NEWVALUE]
PFPOS _ 0 PLEN _ 0 PBYTELEN _ 0 PPARALOOKS _ TEDIT.DEFAULT.FMTSPEC)
(DATATYPE TEXTOBJ
@@ -400,10 +402,10 @@
(ffetch (PIECE PCONTENTS) of PC)))
(PUTPROPS PLOOKS MACRO ((PC)
(ffetch (PIECE PLOOKS) of PC)))
(ffetch (PIECE PCHARLOOKS) of PC)))
(PUTPROPS PCHARLOOKS MACRO ((PC)
(PLOOKS PC)))
(ffetch (PIECE PCHARLOOKS) of PC)))
(PUTPROPS PCHARSET MACRO ((PC)
(ffetch (PIECE PCHARSET) of PC)))
@@ -1225,7 +1227,11 @@
(DEFINEQ
(OPENTEXTSTREAM
[LAMBDA (TEXT WINDOW START END PROPS)
[LAMBDA (TEXT WINDOW START/PROPS END PROPS)
(* ;; "Edited 30-Jan-2025 11:15 by rmk")
(* ;; "Edited 10-Jan-2025 11:17 by rmk")
(* ;; "Edited 21-Nov-2024 00:18 by rmk")
@@ -1287,10 +1293,16 @@
 "Empty string means empty document, not illegal file name")
(SETQ TEXT NIL))
(RESETLST
(LET ((TSTREAM (TEXTSTREAMP TEXT))
TEXTOBJ TEDIT.GET.FINISHEDFORMS PRIMPANE)
(LET ((TSTREAM (TEXTSTREAM TEXT T))
TEXTOBJ TEDIT.GET.FINISHEDFORMS PRIMPANE START)
(DECLARE (SPECVARS TEDIT.GET.FINISHEDFORMS)) (* ;
 "Undocumented, but available for special-purpose actions specified somewhere below.")
(SETQ START (if (FIXP START/PROPS)
then START/PROPS
elseif (AND (LISTP START/PROPS)
(NOT (LISTP PROPS)))
then (SETQ PROPS START/PROPS)
NIL))
(if TSTREAM
then (SETQ TEXTOBJ (TEXTOBJ TSTREAM))
(CL:WHEN (OR START END) (* ; "Do the end first")
@@ -1605,7 +1617,8 @@
WINDOW])
(\TEDIT.OPENTEXTSTREAM.DEFAULTLOOKS
[LAMBDA (TEXTOBJ) (* ; "Edited 20-Dec-2024 11:56 by rmk")
[LAMBDA (TEXTOBJ) (* ; "Edited 29-Dec-2024 20:37 by rmk")
(* ; "Edited 20-Dec-2024 11:56 by rmk")
(* ; "Edited 16-Dec-2024 13:14 by rmk")
(* ; "Edited 21-Nov-2024 14:35 by rmk")
(* ; "Edited 29-Aug-2024 09:46 by rmk")
@@ -1624,7 +1637,7 @@
(* ;; "Find the default font for this TEXTOBJ -- either what the guy tells us, the one from TEDIT.DEFAULT.PROPS, or his DEFAULTFONT.")
(SETQ FONT (OR (GETTEXTPROP TEXTOBJ 'FONT)
DEFAULTFONT))
(FONTCREATE DEFAULTFONT)))
(SETQ CHARLOOKS (GETTEXTPROP TEXTOBJ 'LOOKS))
(SETQ CHARLOOKS (OR (AND CHARLOOKS (\TEDIT.PARSE.CHARLOOKS.LIST CHARLOOKS NIL TEXTOBJ))
(AND (type? CHARLOOKS FONT)
@@ -2843,31 +2856,31 @@
(ADDTOVAR LAMA TEXTPROP)
)
(DECLARE%: DONTCOPY
(FILEMAP (NIL (36650 67251 (\TEDIT.TEXTBIN 36660 . 47410) (\TEDIT.TEXTPEEKBIN 47412 . 52962) (
\TEDIT.TEXTBACKFILEPTR 52964 . 58637) (\TEDIT.TEXTBOUT 58639 . 63041) (\TEDIT.INSTALL.FILEBUFFER 63043
. 67249)) (68149 72197 (\TEDIT.TEXTOUTCHARFN 68159 . 69715) (\TEDIT.TEXTINCCODEFN 69717 . 70456) (
\TEDIT.TEXTBACKCCODEFN 70458 . 71050) (\TEDIT.TEXTFORMATBYTESTREAM 71052 . 71755) (
\TEDIT.TEXTFORMATBYTESTRING 71757 . 72195)) (72244 83103 (OPENTEXTSTREAM 72254 . 78671) (
COPYTEXTSTREAM 78673 . 82326) (TEDIT.STREAMCHANGEDP 82328 . 82630) (TXTFILE 82632 . 83101)) (83104
112259 (\TEDIT.REOPENTEXTSTREAM 83114 . 84466) (\TEDIT.OPENTEXTSTREAM.PIECES 84468 . 88898) (
\TEDIT.OPENTEXTSTREAM.PROPS 88900 . 90002) (\TEDIT.OPENTEXTSTREAM.SETUP.SEL 90004 . 94939) (
\TEDIT.OPENTEXTSTREAM.WINDOW 94941 . 97622) (\TEDIT.OPENTEXTSTREAM.DEFAULTLOOKS 97624 . 100151) (
\TEDIT.OPENTEXTFILE 100153 . 101866) (\TEDIT.CREATE.TEXTSTREAM 101868 . 102802) (\TEDIT.REOPEN.STREAM
102804 . 105140) (\TEDIT.TEXTINIT 105142 . 112257)) (112297 113485 (\TEDIT.TTYBOUT 112307 . 113483)) (
113603 131980 (\TEDIT.TEXTCLOSEF 113613 . 114937) (\TEDIT.TEXTDSPFONT 114939 . 115909) (
\TEDIT.TEXTEOFP 115911 . 117666) (\TEDIT.TEXTGETEOFPTR 117668 . 117991) (\TEDIT.TEXTSETEOFPTR 117993
. 119083) (\TEDIT.TEXTGETFILEPTR 119085 . 121807) (\TEDIT.TEXTSETFILEINFO 121809 . 122317) (
\TEDIT.TEXTOPENF 122319 . 123250) (\TEDIT.TEXTSETEOF 123252 . 123868) (\TEDIT.TEXTSETFILEPTR 123870 .
125911) (\TEDIT.TEXTDSPXPOSITION 125913 . 126930) (\TEDIT.TEXTDSPYPOSITION 126932 . 127673) (
\TEDIT.TEXTLEFTMARGIN 127675 . 128052) (\TEDIT.TEXTRIGHTMARGIN 128054 . 131129) (
\TEDIT.TEXTDSPCHARWIDTH 131131 . 131435) (\TEDIT.TEXTDSPSTRINGWIDTH 131437 . 131743) (
\TEDIT.TEXTDSPLINEFEED 131745 . 131978)) (133027 153678 (\TEDIT.DELETE.SELPIECES 133037 . 136464) (
\TEDIT.INSERTCH 136466 . 144260) (\TEDIT.INSERTCH.HISTORY 144262 . 147726) (\TEDIT.INSERTEOL 147728 .
149553) (\TEDIT.INSERTCH.INSERTION 149555 . 152392) (\TEDIT.INSERTCH.EXTEND 152394 . 153676)) (153679
155183 (\TEDIT.NEXTCHANGEABLE.CHNO 153689 . 154404) (\TEDIT.LASTCHANGEABLE.CHNO 154406 . 155181)) (
155184 156888 (\SETUPGETCH 155194 . 156886)) (156946 161404 (\TEDIT.INSTALL.PIECE 156956 . 161402)) (
161442 169654 (TEXTPROP 161452 . 161799) (GETTEXTPROP 161801 . 162045) (PUTTEXTPROP 162047 . 162304) (
GETTEXTPROPS 162306 . 162750) (PUTTEXTPROPS 162752 . 163656) (\TEDIT.TEXTPROP 163658 . 169652)) (
169655 171725 (\TEDIT.TEXTOBJ.PROPNAMES 169665 . 170617) (\TEDIT.TEXTOBJ.PROPFETCHFN 170619 . 171135)
(\TEDIT.TEXTOBJ.PROPSTOREFN 171137 . 171723)))))
(FILEMAP (NIL (36869 67470 (\TEDIT.TEXTBIN 36879 . 47629) (\TEDIT.TEXTPEEKBIN 47631 . 53181) (
\TEDIT.TEXTBACKFILEPTR 53183 . 58856) (\TEDIT.TEXTBOUT 58858 . 63260) (\TEDIT.INSTALL.FILEBUFFER 63262
. 67468)) (68368 72416 (\TEDIT.TEXTOUTCHARFN 68378 . 69934) (\TEDIT.TEXTINCCODEFN 69936 . 70675) (
\TEDIT.TEXTBACKCCODEFN 70677 . 71269) (\TEDIT.TEXTFORMATBYTESTREAM 71271 . 71974) (
\TEDIT.TEXTFORMATBYTESTRING 71976 . 72414)) (72463 83763 (OPENTEXTSTREAM 72473 . 79331) (
COPYTEXTSTREAM 79333 . 82986) (TEDIT.STREAMCHANGEDP 82988 . 83290) (TXTFILE 83292 . 83761)) (83764
113041 (\TEDIT.REOPENTEXTSTREAM 83774 . 85126) (\TEDIT.OPENTEXTSTREAM.PIECES 85128 . 89558) (
\TEDIT.OPENTEXTSTREAM.PROPS 89560 . 90662) (\TEDIT.OPENTEXTSTREAM.SETUP.SEL 90664 . 95599) (
\TEDIT.OPENTEXTSTREAM.WINDOW 95601 . 98282) (\TEDIT.OPENTEXTSTREAM.DEFAULTLOOKS 98284 . 100933) (
\TEDIT.OPENTEXTFILE 100935 . 102648) (\TEDIT.CREATE.TEXTSTREAM 102650 . 103584) (\TEDIT.REOPEN.STREAM
103586 . 105922) (\TEDIT.TEXTINIT 105924 . 113039)) (113079 114267 (\TEDIT.TTYBOUT 113089 . 114265)) (
114385 132762 (\TEDIT.TEXTCLOSEF 114395 . 115719) (\TEDIT.TEXTDSPFONT 115721 . 116691) (
\TEDIT.TEXTEOFP 116693 . 118448) (\TEDIT.TEXTGETEOFPTR 118450 . 118773) (\TEDIT.TEXTSETEOFPTR 118775
. 119865) (\TEDIT.TEXTGETFILEPTR 119867 . 122589) (\TEDIT.TEXTSETFILEINFO 122591 . 123099) (
\TEDIT.TEXTOPENF 123101 . 124032) (\TEDIT.TEXTSETEOF 124034 . 124650) (\TEDIT.TEXTSETFILEPTR 124652 .
126693) (\TEDIT.TEXTDSPXPOSITION 126695 . 127712) (\TEDIT.TEXTDSPYPOSITION 127714 . 128455) (
\TEDIT.TEXTLEFTMARGIN 128457 . 128834) (\TEDIT.TEXTRIGHTMARGIN 128836 . 131911) (
\TEDIT.TEXTDSPCHARWIDTH 131913 . 132217) (\TEDIT.TEXTDSPSTRINGWIDTH 132219 . 132525) (
\TEDIT.TEXTDSPLINEFEED 132527 . 132760)) (133809 154460 (\TEDIT.DELETE.SELPIECES 133819 . 137246) (
\TEDIT.INSERTCH 137248 . 145042) (\TEDIT.INSERTCH.HISTORY 145044 . 148508) (\TEDIT.INSERTEOL 148510 .
150335) (\TEDIT.INSERTCH.INSERTION 150337 . 153174) (\TEDIT.INSERTCH.EXTEND 153176 . 154458)) (154461
155965 (\TEDIT.NEXTCHANGEABLE.CHNO 154471 . 155186) (\TEDIT.LASTCHANGEABLE.CHNO 155188 . 155963)) (
155966 157670 (\SETUPGETCH 155976 . 157668)) (157728 162186 (\TEDIT.INSTALL.PIECE 157738 . 162184)) (
162224 170436 (TEXTPROP 162234 . 162581) (GETTEXTPROP 162583 . 162827) (PUTTEXTPROP 162829 . 163086) (
GETTEXTPROPS 163088 . 163532) (PUTTEXTPROPS 163534 . 164438) (\TEDIT.TEXTPROP 164440 . 170434)) (
170437 172507 (\TEDIT.TEXTOBJ.PROPNAMES 170447 . 171399) (\TEDIT.TEXTOBJ.PROPFETCHFN 171401 . 171917)
(\TEDIT.TEXTOBJ.PROPSTOREFN 171919 . 172505)))))
STOP

BIN
library/tedit/TEDIT-STREAM.LCOM
View File

Binary file not shown.

137
library/tedit/TEDIT-TFBRAVO
View File

@@ -1,12 +1,13 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
(FILECREATED "19-Dec-2024 23:43:59" {WMEDLEY}<library>TEDIT>TEDIT-TFBRAVO.;163 92210
(FILECREATED " 2-Jan-2025 23:45:04" {WMEDLEY}<library>TEDIT>TEDIT-TFBRAVO.;166 92474
:EDIT-BY rmk
:CHANGES-TO (FNS \TFBRAVO.READ.PARALOOKS)
:CHANGES-TO (FNS \TFBRAVO.READ.CHARLOOKS \TFBRAVO.FONT.FROM.CHARLOOKS TEDITFROMBRAVO
\TFBRAVO.USER.CM.LOOKS)
:PREVIOUS-DATE "21-Oct-2024 00:33:50" {WMEDLEY}<library>TEDIT>TEDIT-TFBRAVO.;162)
:PREVIOUS-DATE "19-Dec-2024 23:43:59" {WMEDLEY}<library>TEDIT>TEDIT-TFBRAVO.;163)
(PRETTYCOMPRINT TEDIT-TFBRAVOCOMS)
@@ -170,7 +171,8 @@
(RETURN T])
(TEDITFROMBRAVO
[LAMBDA (BFILE TEXTSTREAM PROPS USER.CM) (* ; "Edited 17-Jan-2024 12:11 by rmk")
[LAMBDA (BFILE TEXTSTREAM PROPS USER.CM) (* ; "Edited 2-Jan-2025 22:22 by rmk")
(* ; "Edited 17-Jan-2024 12:11 by rmk")
(* ; "Edited 26-Nov-2023 00:29 by rmk")
(* ; "Edited 14-Nov-2023 17:09 by rmk")
(* ; "Edited 22-Sep-2023 08:53 by rmk")
@@ -212,17 +214,19 @@
(* ;; "Valid profile paragraphs have a special interpretation, invalid ones must be mismarked ordinary text")
(CL:UNLESS (AND (EQ 'PROFILE (fetch (FMTSPEC FMTPARATYPE)
of NEXTFMTSPEC))
(CL:UNLESS (AND (EQ 'PROFILE (GETPARA NEXTFMTSPEC FMTPARATYPE))
(\TFBRAVO.PARSE.PROFILE.PARA BSTREAM PARA
TEXTOBJ START))
(\TFBRAVO.INSERT.PARA PARA BSTREAM TEXTOBJ))
finally (\TFBRAVO.INSTALL.PAGEFORMAT TEXTOBJ)
(\TEDIT.UNIQUIFY.ALL TEXTOBJ) (* ; "Lists are complete and unique")
finally (\TFBRAVO.INSTALL.PAGEFORMAT TEXTOBJ)
(* ;; "Named tab information is collected in the userinfo fields, but then ignored.")
(for PARALOOKS in (GETTOBJ TEXTOBJ TXTPARALOOKSLIST)
do (replace (FMTSPEC FMTUSERINFO) of PARALOOKS with NIL))
do (SETPARA PARALOOKS FMTUSERINFO NIL))
(for CHARLOOKS in (GETTOBJ TEXTOBJ TXTCHARLOOKSLIST)
do (replace (CHARLOOKS CLUSERINFO) of CHARLOOKS with NIL))
do (SETCLOOKS CHARLOOKS CLUSERINFO NIL))
(\TEDIT.UNIQUIFY.ALL TEXTOBJ) (* ; "Lists are complete and unique")
(\TEDIT.TRANSLATE.ASCIICHARS TEXTOBJ)
(TEDIT.SETSEL TEXTOBJ 1 0 'LEFT)
(RETURN TEXTSTREAM)))])
@@ -282,16 +286,16 @@
(RETURN USER.CM])
(\TFBRAVO.USER.CM.LOOKS
[LAMBDA (USER.CM TEXTOBJ) (* ; "Edited 18-Aug-2023 18:47 by rmk")
[LAMBDA (USER.CM TEXTOBJ) (* ; "Edited 2-Jan-2025 11:06 by rmk")
(* ; "Edited 18-Aug-2023 18:47 by rmk")
(* ; "Edited 16-Aug-2023 21:33 by rmk")
(* ; "Edited 5-Aug-2023 17:15 by rmk")
(DECLARE (USEDFREE USER.CM.CHARLOOKS USER.CM.FMTSPEC USER.CM.ALIST))
(SETQ USER.CM.ALIST (\TFBRAVO.READ.USER.CM USER.CM))
(SETQ USER.CM.CHARLOOKS (create CHARLOOKS
CLNAME _ (\TFBRAVO.GETFONT 0 BRFAMILY)
CLSIZE _ (\TFBRAVO.GETFONT 0 BRSIZE)
CLOFFSET _ 0))
(\TFBRAVO.FONT.FROM.CHARLOOKS USER.CM.CHARLOOKS)
(\TFBRAVO.FONT.FROM.CHARLOOKS USER.CM.CHARLOOKS (\TFBRAVO.GETFONT 0 BRFAMILY)
(\TFBRAVO.GETFONT 0 BRSIZE))
(\TFBRAVO.INIT.PAGEFORMAT TEXTOBJ)
(SETQ USER.CM.FMTSPEC (\TFBRAVO.INIT.PARALOOKS USER.CM.ALIST))
(SETQ USER.CM.CHARLOOKS (\TEDIT.UNIQUIFY.CHARLOOKS USER.CM.CHARLOOKS TEXTOBJ))
@@ -660,7 +664,8 @@
(SETQ OLDCHARLOOKS (fetch (RUN RUNLOOKS) of RUN])
(\TFBRAVO.READ.CHARLOOKS
[LAMBDA (BSTREAM OLDCHARLOOKS RUNSTART PLEN) (* ; "Edited 21-Oct-2024 00:27 by rmk")
[LAMBDA (BSTREAM OLDCHARLOOKS RUNSTART PLEN) (* ; "Edited 2-Jan-2025 23:44 by rmk")
(* ; "Edited 21-Oct-2024 00:27 by rmk")
(* ; "Edited 9-Sep-2023 21:39 by rmk")
(* ; "Edited 20-Aug-2023 16:15 by rmk")
(* ; "Edited 18-Aug-2023 20:11 by rmk")
@@ -670,36 +675,39 @@
(* ;; "The charlooks trailer (from \ to CR) consists of a sequence of run-looks. Each run-look is a sequence of commands followed by the length of the run. If the first run has no commands (i.e. the \ is followed immediately by a length-number), than the first run gets the USER.CM default looks.")
(bind COMMAND LEN LAST VALUE TABNAMES (NEWCHARLOOKS _ (create CHARLOOKS using OLDCHARLOOKS))
until (SETQ LEN (\TFBRAVO.READNUM? BSTREAM))
(bind COMMAND LEN LAST VALUE TABNAMES FAMILY SIZE BOLD ITALIC (NEWCHARLOOKS _
(create CHARLOOKS
using OLDCHARLOOKS))
first [SETQ FAMILY (SETQ SIZE (SETQ BOLD (SETQ ITALIC 'OFF] until (SETQ LEN (\TFBRAVO.READNUM?
BSTREAM))
do
(* ;; "Some command letters are followed by numeric arguments (f1 vs b). Any spaces around command letters are skipped. BIN is used here for one-byte arguments, but perhaps a version that skips initial spaces would be safter?")
(* ;; "Some command letters are followed by numeric arguments (f1 vs b). Any spaces around command letters are skipped. BIN is used here for one-byte arguments, but perhaps a version that skips initial spaces would be safer?")
(SELCHARQ (SETQ COMMAND (BIN BSTREAM))
(s (replace (CHARLOOKS CLSTRIKE) of NEWCHARLOOKS with T))
(S (replace (CHARLOOKS CLSTRIKE) of NEWCHARLOOKS with NIL))
(u (replace (CHARLOOKS CLULINE) of NEWCHARLOOKS with T))
(U (replace (CHARLOOKS CLULINE) of NEWCHARLOOKS with NIL))
(b (replace (CHARLOOKS CLBOLD) of NEWCHARLOOKS with T))
(B (replace (CHARLOOKS CLBOLD) of NEWCHARLOOKS with NIL))
(i (replace (CHARLOOKS CLITAL) of NEWCHARLOOKS with T))
(I (replace (CHARLOOKS CLITAL) of NEWCHARLOOKS with NIL))
(s (FSETCLOOKS NEWCHARLOOKS CLSTRIKE T))
(S (FSETCLOOKS NEWCHARLOOKS CLSTRIKE NIL))
(u (FSETCLOOKS NEWCHARLOOKS CLULINE T))
(U (FSETCLOOKS NEWCHARLOOKS CLULINE NIL))
(b (SETQ BOLD T))
(B (SETQ BOLD NIL))
(i (SETQ ITALIC T))
(I (SETQ ITALIC NIL))
(g "Graphic T --unsupported")
(G "Graphic NIL")
(v (replace (CHARLOOKS CLINVISIBLE) of NEWCHARLOOKS with NIL))
(V (AND NIL (replace (CHARLOOKS CLINVISIBLE) of NEWCHARLOOKS with T)))
(v (FSETCLOOKS NEWCHARLOOKS CLINVISIBLE NIL))
(V (AND NIL (FSETCLOOKS NEWCHARLOOKS CLINVISIBLE T)))
(t
(* ;; "Collect the named tabs for writerun")
(PUSH TABNAMES (CHARACTER (BIN BSTREAM))))
(f (* ; "Save the fontface until the end")
(SETQ VALUE (CHARACTER (BIN BSTREAM)))
(replace (CHARLOOKS CLSIZE) of NEWCHARLOOKS with (\TFBRAVO.GETFONT VALUE BRSIZE))
(replace (CHARLOOKS CLNAME) of NEWCHARLOOKS with (\TFBRAVO.GETFONT VALUE BRFAMILY)))
(SETQ SIZE (\TFBRAVO.GETFONT VALUE BRSIZE))
(SETQ FAMILY (\TFBRAVO.GETFONT VALUE BRFAMILY)))
(o (SETQ VALUE (\TFBRAVO.READNUM? BSTREAM T)) (* ; "Superscript")
(replace (CHARLOOKS CLOFFSET) of NEWCHARLOOKS with (CL:IF (IGREATERP VALUE 127)
(IDIFFERENCE VALUE 256)
VALUE)))
(FSETCLOOKS NEWCHARLOOKS CLOFFSET (CL:IF (IGREATERP VALUE 127)
(IDIFFERENCE VALUE 256)
VALUE)))
(SPACE)
(CR
(* ;; "We hit the trailer-terminating CR, It is either the end-marker for the last run, or a signal that this paragraph has no run-look information. ")
@@ -722,8 +730,8 @@
(* ;; "Wait til end to do font, so we have the bold/italic looks for sure. Last run may not have an explicit length")
(replace (CHARLOOKS CLUSERINFO) of NEWCHARLOOKS with (DREVERSE TABNAMES))
(\TFBRAVO.FONT.FROM.CHARLOOKS NEWCHARLOOKS)
(FSETCLOOKS NEWCHARLOOKS CLUSERINFO (DREVERSE TABNAMES))
(\TFBRAVO.FONT.FROM.CHARLOOKS NEWCHARLOOKS FAMILY SIZE BOLD ITALIC)
(RETURN (create RUN
RUNSTART _ RUNSTART
RUNLENGTH _ LEN
@@ -731,22 +739,29 @@
RUNLAST _ LAST])
(\TFBRAVO.FONT.FROM.CHARLOOKS
[LAMBDA (CHARLOOKS) (* ; "Edited 1-Aug-2023 13:21 by rmk")
[LAMBDA (CHARLOOKS FAMILY SIZE BOLD ITALIC) (* ; "Edited 2-Jan-2025 23:43 by rmk")
(* ; "Edited 1-Aug-2023 13:21 by rmk")
(* ; "Edited 31-May-91 15:26 by jds")
(* ;; "Takes a TEDIT CHARLOOKS with fields filled in (CLNAME = family name) and creates the font to fill it.")
[replace (CHARLOOKS CLFONT) of CHARLOOKS with (FONTCREATE (fetch (CHARLOOKS CLNAME) of CHARLOOKS)
(fetch (CHARLOOKS CLSIZE) of CHARLOOKS)
(LIST (CL:IF (fetch (CHARLOOKS CLBOLD)
of CHARLOOKS)
'BOLD
'MEDIUM)
(CL:IF (fetch (CHARLOOKS CLITAL)
of CHARLOOKS)
'ITALIC
'REGULAR)
'REGULAR]
[LET ((OLDFONT (GETCLOOKS CHARLOOKS CLFONT)))
(CL:WHEN (EQ FAMILY 'OFF)
(SETQ FAMILY (FONTPROP OLDFONT 'FAMILY)))
(CL:WHEN (EQ SIZE 'OFF)
(SETQ SIZE (FONTPROP OLDFONT 'SIZE)))
(CL:WHEN (EQ BOLD 'OFF)
[SETQ BOLD (EQ 'BOLD (FONTPROP OLDFONT 'WEIGHT])
(CL:WHEN (EQ ITALIC 'OFF)
[SETQ ITALIC (EQ 'ITALIC (FONTPROP OLDFONT 'SLOPE])
[SETCLOOKS CHARLOOKS CLFONT (FONTCREATE FAMILY SIZE (LIST (CL:IF BOLD
'BOLD
'MEDIUM)
(CL:IF ITALIC
'ITALIC
'REGULAR)
'REGULAR]
(SETCLOOKS CHARLOOKS CLNAME (FONTUNPARSE (GETCLOOKS CHARLOOKS CLFONT]
CHARLOOKS])
(\TFBRAVO.READNUM?
@@ -1465,18 +1480,18 @@
(AND NIL (\TEDIT.NAMEDTAB.INIT))
)
(DECLARE%: DONTCOPY
(FILEMAP (NIL (6681 13063 (TEDIT.BRAVOFILE? 6691 . 8421) (TEDITFROMBRAVO 8423 . 13061)) (13174 28618 (
\TFBRAVO.GET.USER.CM 13184 . 15994) (\TFBRAVO.USER.CM.LOOKS 15996 . 17171) (\TFBRAVO.READ.USER.CM
17173 . 21743) (\TFBRAVO.INIT.PARALOOKS 21745 . 23731) (\TFBRAVO.INIT.PAGEFORMAT 23733 . 24613) (
\TFBRAVO.GETPARAMS 24615 . 27469) (\TFBRAVO.FIND.LAST.TRAILER 27471 . 28616)) (28660 48692 (
\TFBRAVO.PARSE.PARA 28670 . 32470) (\TFBRAVO.READ.PARALOOKS 32472 . 38894) (\TFBRAVO.CREATE.RUNS 38896
. 40284) (\TFBRAVO.READ.CHARLOOKS 40286 . 45422) (\TFBRAVO.FONT.FROM.CHARLOOKS 45424 . 46793) (
\TFBRAVO.READNUM? 46795 . 48690)) (48729 59480 (\TFBRAVO.HANDLE.HEADING 48739 . 51371) (
\TFBRAVO.PARSE.PROFILE.PARA 51373 . 59478)) (59523 80972 (\TFBRAVO.INSERT.PARA 59533 . 60186) (
\TFBRAVO.INSERT.RUN 60188 . 63385) (\TFBRAVO.SPLIT.PARA 63387 . 70629) (\TFBRAVO.RUN.TABSPEC 70631 .
75277) (\TFBRAVO.INSTALL.PAGEFORMAT 75279 . 80970)) (80973 85116 (\TFBRAVO.ASSERT 80983 . 81513) (
\TEST.CHARACTER.LOOKS 81515 . 83401) (\TEST.PARAGRAPH.LOOKS 83403 . 85114)) (85601 92044 (
\TFBRAVO.ADD.NAMEDTAB 85611 . 89002) (\TFBRAVO.COPY.NAMEDTAB 89004 . 89452) (\TFBRAVO.PUT.NAMEDTAB
89454 . 89734) (\TFBRAVO.GET.NAMEDTAB 89736 . 90113) (\NAMEDTABNYET 90115 . 90275) (\NAMEDTABSIZE
90277 . 90792) (\NAMEDTABPREPRINT 90794 . 90992) (\TEDIT.NAMEDTAB.INIT 90994 . 92042)))))
(FILEMAP (NIL (6772 13224 (TEDIT.BRAVOFILE? 6782 . 8512) (TEDITFROMBRAVO 8514 . 13222)) (13335 28811 (
\TFBRAVO.GET.USER.CM 13345 . 16155) (\TFBRAVO.USER.CM.LOOKS 16157 . 17364) (\TFBRAVO.READ.USER.CM
17366 . 21936) (\TFBRAVO.INIT.PARALOOKS 21938 . 23924) (\TFBRAVO.INIT.PAGEFORMAT 23926 . 24806) (
\TFBRAVO.GETPARAMS 24808 . 27662) (\TFBRAVO.FIND.LAST.TRAILER 27664 . 28809)) (28853 48956 (
\TFBRAVO.PARSE.PARA 28863 . 32663) (\TFBRAVO.READ.PARALOOKS 32665 . 39087) (\TFBRAVO.CREATE.RUNS 39089
. 40477) (\TFBRAVO.READ.CHARLOOKS 40479 . 45508) (\TFBRAVO.FONT.FROM.CHARLOOKS 45510 . 47057) (
\TFBRAVO.READNUM? 47059 . 48954)) (48993 59744 (\TFBRAVO.HANDLE.HEADING 49003 . 51635) (
\TFBRAVO.PARSE.PROFILE.PARA 51637 . 59742)) (59787 81236 (\TFBRAVO.INSERT.PARA 59797 . 60450) (
\TFBRAVO.INSERT.RUN 60452 . 63649) (\TFBRAVO.SPLIT.PARA 63651 . 70893) (\TFBRAVO.RUN.TABSPEC 70895 .
75541) (\TFBRAVO.INSTALL.PAGEFORMAT 75543 . 81234)) (81237 85380 (\TFBRAVO.ASSERT 81247 . 81777) (
\TEST.CHARACTER.LOOKS 81779 . 83665) (\TEST.PARAGRAPH.LOOKS 83667 . 85378)) (85865 92308 (
\TFBRAVO.ADD.NAMEDTAB 85875 . 89266) (\TFBRAVO.COPY.NAMEDTAB 89268 . 89716) (\TFBRAVO.PUT.NAMEDTAB
89718 . 89998) (\TFBRAVO.GET.NAMEDTAB 90000 . 90377) (\NAMEDTABNYET 90379 . 90539) (\NAMEDTABSIZE
90541 . 91056) (\NAMEDTABPREPRINT 91058 . 91256) (\TEDIT.NAMEDTAB.INIT 91258 . 92306)))))
STOP

BIN
library/tedit/TEDIT-TFBRAVO.LCOM
View File

Binary file not shown.

108
library/tedit/TEDIT-WINDOW
View File

@@ -1,12 +1,12 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
(FILECREATED " 6-Jan-2025 23:41:44" {WMEDLEY}<library>TEDIT>TEDIT-WINDOW.;742 231603
(FILECREATED " 1-Feb-2025 10:36:25" {WMEDLEY}<library>TEDIT>TEDIT-WINDOW.;748 231614
:EDIT-BY rmk
:CHANGES-TO (FNS \TEDIT.SHIFTLINES)
:CHANGES-TO (FNS \TEDIT.SHIFTLINES \TEDIT.SCROLLUP \TEDIT.SCROLLDOWN)
:PREVIOUS-DATE "29-Dec-2024 20:07:33" {WMEDLEY}<library>TEDIT>TEDIT-WINDOW.;741)
:PREVIOUS-DATE " 7-Jan-2025 23:47:15" {WMEDLEY}<library>TEDIT>TEDIT-WINDOW.;747)
(PRETTYCOMPRINT TEDIT-WINDOWCOMS)
@@ -2496,7 +2496,8 @@
(\TEDIT.SCROLLCH.TOP TSTREAM PANE (FGETLD TOPLINE LCHARLAST])
(\TEDIT.SCROLLUP
[LAMBDA (TSTREAM PANE DY) (* ; "Edited 1-Dec-2024 11:32 by rmk")
[LAMBDA (TSTREAM PANE DY) (* ; "Edited 1-Feb-2025 10:20 by rmk")
(* ; "Edited 1-Dec-2024 11:32 by rmk")
(* ; "Edited 29-Nov-2024 09:14 by rmk")
(* ; "Edited 22-Nov-2024 17:33 by rmk")
(* ; "Edited 21-Nov-2024 15:04 by rmk")
@@ -2566,7 +2567,7 @@
(\TEDIT.SETPANE.TOPLINE PANE NEWTOPLINE NEWPANEYBOT)
(\TEDIT.SHIFTLINES (PANEPREFIX PANE)
NEWTOPLINE PANE TEXTOBJ (\TEDIT.BITMAPLINES PANE NEWTOPLINE)
PANE TEXTOBJ (\TEDIT.BITMAPLINES PANE NEWTOPLINE)
T)
(\TEDIT.SETCARET (TEXTSEL TEXTOBJ)
PANE TEXTOBJ 'ON])
@@ -2601,7 +2602,8 @@
(RETURN (IPLUS NEWBOT (FGETLD NEWTOPLINE LHEIGHT])
(\TEDIT.SCROLLDOWN
[LAMBDA (TSTREAM PANE DY) (* ; "Edited 1-Dec-2024 20:46 by rmk")
[LAMBDA (TSTREAM PANE DY) (* ; "Edited 1-Feb-2025 10:20 by rmk")
(* ; "Edited 1-Dec-2024 20:46 by rmk")
(* ; "Edited 29-Nov-2024 09:14 by rmk")
(* ; "Edited 22-Nov-2024 17:33 by rmk")
(* ; "Edited 17-Nov-2024 10:13 by rmk")
@@ -2699,7 +2701,7 @@
(* ;; "All needed lines have been constructed and linked, although there may still be some unneeded lines at the bottom. ")
(\TEDIT.SHIFTLINES (PANEPREFIX PANE)
NEWTOPLINE PANE TEXTOBJ (\TEDIT.BITMAPLINES PANE OLDTOPLINE)
PANE TEXTOBJ (\TEDIT.BITMAPLINES PANE OLDTOPLINE)
T)
(\TEDIT.SETCARET (TEXTSEL TEXTOBJ)
PANE TEXTOBJ 'ON])
@@ -2874,8 +2876,8 @@
TOPLINE])
(\TEDIT.SHIFTLINES
[LAMBDA (PREVLINE NEXTLINE PANE TEXTOBJ BITMAPLINES SCROLLING)
(* ; "Edited 6-Jan-2025 23:37 by rmk")
[LAMBDA (PREVLINE PANE TEXTOBJ BITMAPLINES SCROLLING) (* ; "Edited 1-Feb-2025 10:22 by rmk")
(* ; "Edited 7-Jan-2025 11:54 by rmk")
(* ; "Edited 17-Dec-2024 23:40 by rmk")
(* ; "Edited 3-Dec-2024 16:08 by rmk")
(* ; "Edited 1-Dec-2024 11:31 by rmk")
@@ -2887,15 +2889,14 @@
(* ;; "BITMAPLINES contains the first and last lines of the currently resuable PANE bitmap. PANE is refilled from the next of PREVLINE to the bottom, using BITMAPLINES and BITBLT to translate the images for lines that are already known. This skips formatting and redisplaying of those lines, but more importantly, it suppresses flicker. ")
(LINKLD PREVLINE NEXTLINE)
(* ;; "Take down the caret, but importantly, don't take down the selection--that would wipe out the bitmap-highlighting that we want to translate.")
(LET ((SEL (TEXTSEL TEXTOBJ))
LASTVISIBLE)
(\TEDIT.SETCARET SEL PANE TEXTOBJ 'OFF)
(if BITMAPLINES
then [LET* ((VLEFT (\TEDIT.ONSCREEN? PANE 'LEFT))
then [LET* ((NEXTLINE (FGETLD PREVLINE NEXTLINE))
(VLEFT (\TEDIT.ONSCREEN? PANE 'LEFT))
(PBOTTOM (PANEBOTTOM PANE))
(BMTOPL (CAR BITMAPLINES))
(BMTOPY (FGETLD BMTOPL YTOP))
@@ -2992,11 +2993,6 @@
(\TEDIT.CLEARPANE.BELOW.LINE PREVLINE PANE TEXTOBJ)
(SETQ LASTVISIBLE (\TEDIT.LINES.BELOW PREVLINE PANE TEXTOBJ))
(CL:WHEN (IGEQ (FGETLD PREVLINE YBOT)
(PANETOP PANE)) (* ;
 "If PREVLINE isn't visible, link in its next")
(LINKLD (PANEPREFIX PANE)
NEXTLINE))
(\TEDIT.SUFFIXLINE.CREATE PANE TEXTOBJ LASTVISIBLE)
(\TEDIT.FIXSEL NIL TEXTOBJ NIL PANE))
(CL:WHEN SCROLLING
@@ -3466,7 +3462,8 @@
(UPDATE/MENU/IMAGE MENU])
(TEDIT.DEFAULT.MENUFN
[LAMBDA (PANE) (* ; "Edited 27-Jul-2024 20:24 by rmk")
[LAMBDA (PANE) (* ; "Edited 7-Jan-2025 23:46 by rmk")
(* ; "Edited 27-Jul-2024 20:24 by rmk")
(* ; "Edited 30-Jun-2024 12:38 by rmk")
(* ; "Edited 25-Jun-2024 11:59 by rmk")
(* ; "Edited 18-May-2024 16:50 by rmk")
@@ -3535,16 +3532,15 @@
(TEDIT.HARDCOPY TEXTOBJ))
(Expanded% Menu (* ;
 "Open the expanded operations menu.")
(\TEDIT.EXPANDED.MENU TEXTOBJ))
(\TEDIT.EXPANDEDMENU.START TEXTOBJ))
(Character% Looks (* ;
 "Open the menu for setting character looks")
(\TEDIT.EXPANDEDCHAR.MENU TEXTOBJ))
(\TEDIT.CHARMENU.START TEXTOBJ))
(Paragraph% Formatting (* ;
 "Open the paragraph formatting menu")
(\TEDIT.EXPANDEDPARA.MENU TEXTOBJ))
(\TEDIT.PARAMENU.START TEXTOBJ))
(Page% Layout (* ; "Open the page-layout menu")
(\TEDIT.MENU.START (COPYTEXTSTREAM TEDIT.EXPANDED.PAGEMENU T
)
(\TEDIT.MENU.START (\TEDIT.PAGEMENU.CREATE)
(\TEDIT.PRIMARYPANE TEXTOBJ)
"Page Layout Menu" 150 'PAGE))
(CL:WHEN (CAR ITEM) (* ;
@@ -3656,37 +3652,37 @@
(RPAQ? TEDIT.TITLED.ICON.TEMPLATE (create TITLEDICON ICON _ TEDITICON MASK _ TEDITMASK TITLEREG _
TEDIT.ICON.TITLE.REGION))
(DECLARE%: DONTCOPY
(FILEMAP (NIL (18414 19310 (TEDIT.DEFER.UPDATES 18424 . 19308)) (19311 42353 (\TEDIT.CREATEW 19321 .
26036) (\TEDIT.WINDOW.SETUP 26038 . 30151) (\TEDIT.MINIMAL.WINDOW.SETUP 30153 . 38355) (
\TEDIT.CLEARPANE 38357 . 39074) (\TEDIT.FILL.PANES 39076 . 42351)) (42354 65068 (\TEDIT.CURSORMOVEDFN
42364 . 47237) (\TEDIT.CURSOROUTFN 47239 . 47684) (\TEDIT.ACTIVE.WINDOWP 47686 . 48737) (
\TEDIT.EXPANDFN 48739 . 49302) (\TEDIT.MAINW 49304 . 50584) (\TEDIT.MAINSTREAM 50586 . 50853) (
\TEDIT.PRIMARYPANE 50855 . 51625) (\TEDIT.PANELIST 51627 . 52123) (\TEDIT.NEWREGIONFN 52125 . 54641) (
\TEDIT.SET.WINDOW.EXTENT 54643 . 59897) (\TEDIT.SHRINK.ICONCREATE 59899 . 62439) (\TEDIT.SHRINKFN
62441 . 62850) (\TEDIT.PANEREGION 62852 . 65066)) (65100 96555 (\TEDIT.BUTTONEVENTFN 65110 . 77663) (
\TEDIT.BUTTONEVENTFN.DOOPERATION 77665 . 84388) (\TEDIT.BUTTONEVENTFN.GETOPERATION 84390 . 86232) (
\TEDIT.BUTTONEVENTFN.CURSEL.INIT 86234 . 89471) (\TEDIT.BUTTONEVENTFN.INACTIVE 89473 . 91815) (
\TEDIT.BUTTONEVENTFN.INTITLE 91817 . 93652) (\TEDIT.COPYINSERTFN 93654 . 94786) (\TEDIT.FOREIGN.COPY
94788 . 96553)) (96556 113665 (\TEDIT.PANE.SPLIT 96566 . 101045) (\TEDIT.SPLITW 101047 . 108506) (
\TEDIT.UNSPLITW 108508 . 112322) (\TEDIT.LINKPANES 112324 . 113087) (\TEDIT.UNLINKPANE 113089 . 113663
)) (115022 115913 (TEDITWINDOWP 115032 . 115911)) (115950 119053 (TEDIT.GETINPUT 115960 . 118403) (
\TEDIT.MAKEFILENAME 118405 . 119051)) (119102 127403 (TEDIT.PROMPTWINDOW 119112 . 119426) (
TEDIT.PROMPTPRINT 119428 . 122055) (TEDIT.PROMPTCLEAR 122057 . 123776) (TEDIT.PROMPTFLASH 123778 .
125710) (\TEDIT.PROMPT.PAGEFULLFN 125712 . 127401)) (127641 136467 (\TEXTSTREAM.TITLE 127651 . 128341)
(\TEDIT.DEFAULT.TITLE 128343 . 130722) (\TEDIT.WINDOW.TITLE 130724 . 132893) (\TEXTSTREAM.FILENAME
132895 . 134565) (\TEDIT.UPDATE.TITLE 134567 . 136465)) (136510 144713 (TEDIT.DEACTIVATE.WINDOW 136520
. 142313) (\TEDIT.RESHAPEFN 142315 . 144485) (\TEDIT.REPAINTFN 144487 . 144711)) (144714 187138 (
\TEDIT.SCROLLFN 144724 . 146969) (\TEDIT.SCROLLCH.TOP 146971 . 149082) (\TEDIT.SCROLLCH.BOTTOM 149084
. 153414) (\TEDIT.SCROLLUP 153416 . 158935) (\TEDIT.TOPLINE.YTOP 158937 . 160606) (\TEDIT.SCROLLDOWN
160608 . 167440) (\TEDIT.SCROLL.CARET 167442 . 170280) (\TEDIT.VISIBLECARETP 170282 . 172576) (
\TEDIT.VISIBLECHARP 172578 . 173669) (\TEDIT.BITMAPLINES 173671 . 177591) (\TEDIT.SETPANE.TOPLINE
177593 . 178384) (\TEDIT.SHIFTLINES 178386 . 187136)) (187139 198008 (\TEDIT.ONSCREEN? 187149 . 191700
) (\TEDIT.ONSCREEN.REGION 191702 . 195353) (\TEDIT.AFTERMOVEFN 195355 . 196252) (OFFSCREENP 196254 .
198006)) (198050 200667 (\TEDIT.PROCIDLEFN 198060 . 199597) (\TEDIT.PROCENTRYFN 199599 . 200044) (
\TEDIT.PROCEXITFN 200046 . 200665)) (200746 213900 (\TEDIT.DOWNCARET 200756 . 201549) (
\TEDIT.FLASHCARET 201551 . 203662) (\TEDIT.UPCARET 203664 . 204768) (TEDIT.NORMALIZECARET 204770 .
207988) (\TEDIT.SETCARET 207990 . 213270) (\TEDIT.CARET 213272 . 213898)) (213934 225573 (
TEDIT.ADD.MENUITEM 213944 . 216235) (TEDIT.DEFAULT.MENUFN 216237 . 222785) (TEDIT.REMOVE.MENUITEM
222787 . 223784) (\TEDIT.CREATEMENU 223786 . 224351) (\TEDIT.MENU.WHENHELDFN 224353 . 225258) (
\TEDIT.MENU.WHENSELECTEDFN 225260 . 225571)))))
(FILEMAP (NIL (18448 19344 (TEDIT.DEFER.UPDATES 18458 . 19342)) (19345 42387 (\TEDIT.CREATEW 19355 .
26070) (\TEDIT.WINDOW.SETUP 26072 . 30185) (\TEDIT.MINIMAL.WINDOW.SETUP 30187 . 38389) (
\TEDIT.CLEARPANE 38391 . 39108) (\TEDIT.FILL.PANES 39110 . 42385)) (42388 65102 (\TEDIT.CURSORMOVEDFN
42398 . 47271) (\TEDIT.CURSOROUTFN 47273 . 47718) (\TEDIT.ACTIVE.WINDOWP 47720 . 48771) (
\TEDIT.EXPANDFN 48773 . 49336) (\TEDIT.MAINW 49338 . 50618) (\TEDIT.MAINSTREAM 50620 . 50887) (
\TEDIT.PRIMARYPANE 50889 . 51659) (\TEDIT.PANELIST 51661 . 52157) (\TEDIT.NEWREGIONFN 52159 . 54675) (
\TEDIT.SET.WINDOW.EXTENT 54677 . 59931) (\TEDIT.SHRINK.ICONCREATE 59933 . 62473) (\TEDIT.SHRINKFN
62475 . 62884) (\TEDIT.PANEREGION 62886 . 65100)) (65134 96589 (\TEDIT.BUTTONEVENTFN 65144 . 77697) (
\TEDIT.BUTTONEVENTFN.DOOPERATION 77699 . 84422) (\TEDIT.BUTTONEVENTFN.GETOPERATION 84424 . 86266) (
\TEDIT.BUTTONEVENTFN.CURSEL.INIT 86268 . 89505) (\TEDIT.BUTTONEVENTFN.INACTIVE 89507 . 91849) (
\TEDIT.BUTTONEVENTFN.INTITLE 91851 . 93686) (\TEDIT.COPYINSERTFN 93688 . 94820) (\TEDIT.FOREIGN.COPY
94822 . 96587)) (96590 113699 (\TEDIT.PANE.SPLIT 96600 . 101079) (\TEDIT.SPLITW 101081 . 108540) (
\TEDIT.UNSPLITW 108542 . 112356) (\TEDIT.LINKPANES 112358 . 113121) (\TEDIT.UNLINKPANE 113123 . 113697
)) (115056 115947 (TEDITWINDOWP 115066 . 115945)) (115984 119087 (TEDIT.GETINPUT 115994 . 118437) (
\TEDIT.MAKEFILENAME 118439 . 119085)) (119136 127437 (TEDIT.PROMPTWINDOW 119146 . 119460) (
TEDIT.PROMPTPRINT 119462 . 122089) (TEDIT.PROMPTCLEAR 122091 . 123810) (TEDIT.PROMPTFLASH 123812 .
125744) (\TEDIT.PROMPT.PAGEFULLFN 125746 . 127435)) (127675 136501 (\TEXTSTREAM.TITLE 127685 . 128375)
(\TEDIT.DEFAULT.TITLE 128377 . 130756) (\TEDIT.WINDOW.TITLE 130758 . 132927) (\TEXTSTREAM.FILENAME
132929 . 134599) (\TEDIT.UPDATE.TITLE 134601 . 136499)) (136544 144747 (TEDIT.DEACTIVATE.WINDOW 136554
. 142347) (\TEDIT.RESHAPEFN 142349 . 144519) (\TEDIT.REPAINTFN 144521 . 144745)) (144748 187127 (
\TEDIT.SCROLLFN 144758 . 147003) (\TEDIT.SCROLLCH.TOP 147005 . 149116) (\TEDIT.SCROLLCH.BOTTOM 149118
. 153448) (\TEDIT.SCROLLUP 153450 . 159067) (\TEDIT.TOPLINE.YTOP 159069 . 160738) (\TEDIT.SCROLLDOWN
160740 . 167670) (\TEDIT.SCROLL.CARET 167672 . 170510) (\TEDIT.VISIBLECARETP 170512 . 172806) (
\TEDIT.VISIBLECHARP 172808 . 173899) (\TEDIT.BITMAPLINES 173901 . 177821) (\TEDIT.SETPANE.TOPLINE
177823 . 178614) (\TEDIT.SHIFTLINES 178616 . 187125)) (187128 197997 (\TEDIT.ONSCREEN? 187138 . 191689
) (\TEDIT.ONSCREEN.REGION 191691 . 195342) (\TEDIT.AFTERMOVEFN 195344 . 196241) (OFFSCREENP 196243 .
197995)) (198039 200656 (\TEDIT.PROCIDLEFN 198049 . 199586) (\TEDIT.PROCENTRYFN 199588 . 200033) (
\TEDIT.PROCEXITFN 200035 . 200654)) (200735 213889 (\TEDIT.DOWNCARET 200745 . 201538) (
\TEDIT.FLASHCARET 201540 . 203651) (\TEDIT.UPCARET 203653 . 204757) (TEDIT.NORMALIZECARET 204759 .
207977) (\TEDIT.SETCARET 207979 . 213259) (\TEDIT.CARET 213261 . 213887)) (213923 225584 (
TEDIT.ADD.MENUITEM 213933 . 216224) (TEDIT.DEFAULT.MENUFN 216226 . 222796) (TEDIT.REMOVE.MENUITEM
222798 . 223795) (\TEDIT.CREATEMENU 223797 . 224362) (\TEDIT.MENU.WHENHELDFN 224364 . 225269) (
\TEDIT.MENU.WHENSELECTEDFN 225271 . 225582)))))
STOP

BIN
library/tedit/TEDIT-WINDOW.LCOM
View File

Binary file not shown.

BIN
library/tedit/TEDIT.LCOM
View File

Binary file not shown.

63
library/tedit/tedit-exports.all
View File

@@ -1,11 +1,11 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
(FILECREATED "14-Dec-2024 11:45:45" 
{DSK}<Users>kaplan>Local>medley3.5>working-medley>library>tedit>tedit-exports.all;196 52876
(FILECREATED " 7-Jan-2025 12:38:49" 
{DSK}<Users>kaplan>Local>medley3.5>working-medley>library>tedit>tedit-exports.all;197 53250
:EDIT-BY rmk
:PREVIOUS-DATE " 8-Dec-2024 19:52:13" {WMEDLEY}<library>TEDIT>tedit-exports.all;195)
:PREVIOUS-DATE "14-Dec-2024 11:45:45" {WMEDLEY}<library>TEDIT>tedit-exports.all;196)
(PRETTYCOMPRINT ((E (MAPC (MKLIST FROMFILES) (FUNCTION (LAMBDA (F) (MAPC (IMPORTFILE F FLG) (FUNCTION
@@ -18,7 +18,7 @@ PRINT))))))))
(RPAQ? CHECK-TEDIT-ASSERTIONS T)
(PUTPROPS OBJECT.ALLOWS MACRO ((PC OPERATION FROMTOBJ TOTOBJ) (OR (NOT (EQ OBJECT.PTYPE (PTYPE PC))) (
\TEDIT.APPLY.OBJFN (PCONTENTS PC) OPERATION FROMTOBJ TOTOBJ))))
(PUTPROP (QUOTE TEDIT) (QUOTE IMPORTDATE) (IDATE " 8-Dec-2024 21:39:48"))
(PUTPROP (QUOTE TEDIT) (QUOTE IMPORTDATE) (IDATE " 5-Jan-2025 23:34:12"))
(RPAQQ \BTREEWORDSPERSLOT 4)
(RPAQQ \BTREEMAXCOUNT 8)
(CONSTANTS (\BTREEWORDSPERSLOT 4) (\BTREEMAXCOUNT 8))
@@ -119,7 +119,7 @@ $$SELPIECES)) REPEATUNTIL (EQ I.V. $$SPLAST) BY (\DTEST (NEXTPIECE I.V.) (QUOTE
(GLOBALVARS TEDIT.EXTEND.PENDING.DELETE)
(GLOBALVARS TEDIT.SELECTION TEDIT.SHIFTEDSELECTION TEDIT.MOVESELECTION TEDIT.COPYLOOKSSELECTION
TEDIT.DELETESELECTION)
(PUTPROP (QUOTE TEDIT-SELECTION) (QUOTE IMPORTDATE) (IDATE " 6-Dec-2024 12:50:42"))
(PUTPROP (QUOTE TEDIT-SELECTION) (QUOTE IMPORTDATE) (IDATE " 1-Jan-2025 12:33:54"))
(RECORD TAB (TABX . TABKIND))
(RECORD TABSPEC (DEFAULTTAB . TABS))
(DATATYPE LINECACHE ((* ;; "Image cache for display lines.") LCBITMAP (* ;
@@ -262,7 +262,7 @@ SETQ I.V. (COND ((TYPE? THISLINE $$STARTSLOT) (PREVCHARSLOT (fetch (THISLINE NEX
THISLINE))) (T $$STARTSLOT))) (SETQ $$CHARSLOTLIMIT (FIRSTCHARSLOT THISLINE)) by (PREVCHARSLOT I.V.)
eachtime (SETQ CHAR (fetch (CHARSLOT CHAR) of I.V.)) (SETQ CHARW (fetch (CHARSLOT CHARW) of I.V.))
repeatuntil (EQ I.V. $$CHARSLOTLIMIT))))) T)
(PUTPROP (QUOTE TEDIT-SCREEN) (QUOTE IMPORTDATE) (IDATE "13-Dec-2024 23:51:31"))
(PUTPROP (QUOTE TEDIT-SCREEN) (QUOTE IMPORTDATE) (IDATE " 7-Jan-2025 11:56:35"))
(DATATYPE PIECE ((* ;
"The piece describes either a string or part of a file. , or a generalized OBJECT.") PCONTENTS (* ;
"The background source of data for this piece (stream, string, block, object, depending on the PTYPE)."
@@ -270,8 +270,8 @@ repeatuntil (EQ I.V. $$CHARSLOTLIMIT))))) T)
PBYTELEN (* ; "Length of this character piece in bytes. PBYTELEN = PLEN*PBYTESPERCHAR") PFPOS (* ;
"The FILEPTR of the start of the piece in the file") PLEN (* ; "Length of the piece, in characters.")
NEXTPIECE (* ; "-> Next piece in this textobj.") (PREVPIECE FULLXPOINTER) (* ;
"-> Prior piece in this text object.") PLOOKS (* ; "Character formatting info ") PBYTESPERCHAR (* ;
"The number of bytes per character, given that all characters in a piece are the same length.") (
"-> Prior piece in this text object.") PCHARLOOKS (* ; "Character formatting info ") PBYTESPERCHAR (*
; "The number of bytes per character, given that all characters in a piece are the same length.") (
PPARALAST FLAG) (* ; "This piece ends paragraph") PPARALOOKS (* ; "Paragraph looks for this piece") (
PNEW FLAG) (* ;
"This text is new here; used by the tentative edit system, and anyone else interested.") (NIL FLAG) (
@@ -280,9 +280,9 @@ PNEW FLAG) (* ;
"High-order charset for FATFILE1 pieces") (PUTF8BYTESPERCHAR BYTE)) (* ;
"The number of bytes in the UTF-8 encoding of all the Unicode characters in this piece") (ACCESSFNS ((
POBJ (AND (EQ OBJECT.PTYPE (PTYPE DATUM)) (type? IMAGEOBJ (PCONTENTS DATUM)) (PCONTENTS DATUM))) (
PCHARLOOKS (PLOOKS DATUM) (STANDARD (replace (PIECE PLOOKS) of DATUM with NEWVALUE) FAST (freplace (
PIECE PLOOKS) of DATUM with NEWVALUE))))) PFPOS _ 0 PLEN _ 0 PBYTELEN _ 0 PPARALOOKS _
TEDIT.DEFAULT.FMTSPEC)
PLOOKS (STANDARD (fetch (PIECE PCHARLOOKS) of DATUM) FAST (fetch (PIECE PCHARLOOKS) of DATUM)) (
STANDARD (replace (PIECE PCHARLOOKS) of DATUM with NEWVALUE) FAST (freplace (PIECE PCHARLOOKS) of
DATUM with NEWVALUE))))) PFPOS _ 0 PLEN _ 0 PBYTELEN _ 0 PPARALOOKS _ TEDIT.DEFAULT.FMTSPEC)
(DATATYPE TEXTOBJ ((* ;;
"This is where TEdit stores its state information, and internal data about the text being edited.")
PCTB (* ; "The piece table") TEXTLEN (* ; "# of chars in the text") PRIMARYPANE (* ;
@@ -377,8 +377,8 @@ IMAGEDATA _ NIL)))
(PUTPROPS PLEN MACRO ((PC) (ffetch (PIECE PLEN) of PC)))
(PUTPROPS PTYPE MACRO ((PC) (ffetch (PIECE PTYPE) of PC)))
(PUTPROPS PCONTENTS MACRO ((PC) (ffetch (PIECE PCONTENTS) of PC)))
(PUTPROPS PLOOKS MACRO ((PC) (ffetch (PIECE PLOOKS) of PC)))
(PUTPROPS PCHARLOOKS MACRO ((PC) (PLOOKS PC)))
(PUTPROPS PLOOKS MACRO ((PC) (ffetch (PIECE PCHARLOOKS) of PC)))
(PUTPROPS PCHARLOOKS MACRO ((PC) (ffetch (PIECE PCHARLOOKS) of PC)))
(PUTPROPS PCHARSET MACRO ((PC) (ffetch (PIECE PCHARSET) of PC)))
(PUTPROPS PPARALOOKS MACRO ((PC) (ffetch (PIECE PPARALOOKS) of PC)))
(PUTPROPS PPARALAST MACRO ((PC) (ffetch (PIECE PPARALAST) of PC)))
@@ -444,7 +444,7 @@ UTF8.PTYPE UTF16BE.PTYPE UTF16LE.PTYPE)) (STRING.PTYPES (LIST THINSTRING.PTYPE F
BINABLE.PTYPES (LIST THINFILE.PTYPE THINSTRING.PTYPE)) (THIN.PTYPES (LIST THINFILE.PTYPE
THINSTRING.PTYPE)) (FAT.PTYPES (LIST FATFILE2.PTYPE FATSTRING.PTYPE FATFILE1.PTYPE)))
(GLOBALVARS \TEXTIMAGEOPS \TEXTFDEV)
(PUTPROP (QUOTE TEDIT-STREAM) (QUOTE IMPORTDATE) (IDATE "27-Nov-2024 23:17:20"))
(PUTPROP (QUOTE TEDIT-STREAM) (QUOTE IMPORTDATE) (IDATE " 7-Jan-2025 12:28:18"))
(RPAQQ NONE.TTC 0)
(RPAQQ CHARDELETE.TTC 1)
(RPAQQ WORDDELETE.TTC 2)
@@ -485,14 +485,15 @@ I in ARGS as J on ARGS when (NOT (STRINGP I)) collect (LIST (QUOTE OR) I (LIST (
\BIN STREAM)) BITSPERWORD)))
(PUTPROPS \SMALLPOUT MACRO (OPENLAMBDA (STREAM W) (* ; "Signed smallp, unlike \WOUT") (\BOUT STREAM (
LOGAND 255 (LRSH W 8))) (\BOUT STREAM (LOGAND W 255))))
(PUTPROP (QUOTE TEDIT-FILE) (QUOTE IMPORTDATE) (IDATE "11-Dec-2024 23:00:13"))
(PUTPROP (QUOTE TEDIT-OLDFILE) (QUOTE IMPORTDATE) (IDATE "23-Oct-2024 16:09:28"))
(PUTPROP (QUOTE TEDIT-FILE) (QUOTE IMPORTDATE) (IDATE " 7-Jan-2025 12:28:41"))
(PUTPROP (QUOTE TEDIT-OLDFILE) (QUOTE IMPORTDATE) (IDATE " 7-Jan-2025 12:29:36"))
(DATATYPE CHARLOOKS ((* ;; "Describes the appearance (%"Looks%") of characters in a TEdit document.")
(* ;; "NOTE: If fields change EQCLOOKS should change too.") CLFONT (* ;
"The font descriptor for these characters") CLNAME (* ;;
"The font descriptor for these characters") CLFONTUNPARSE (* ;;
"Name of the font (e.g., HELVETICA) THIS FIELD IS A HINT, OR FOR USE IN CHARLOOKS-BUILDING CODE. USE FONTPROP TO GET THE RIGHT VALUE FROM CLFONT."
) CLSIZE (* ; "Font size, in points") (CLITAL FLAG) (* ; "T if the characters are italic, else NIL") (
CLBOLD FLAG) (* ; "T if the characters are bold, else NIL") (CLULINE FLAG) (* ;
) NIL (* ; "Was CLSIZE. Font size, in points") (NIL FLAG) (* ;
"Was CLITAL: T if the characters are italic, else NIL") (NIL FLAG) (* ;
"Was CLBoldT if the characters are bold, else NIL") (CLULINE FLAG) (* ;
"T if the characters are to be underscored, else NIL") (CLOLINE FLAG) (* ;
"T if the characters are to be overscored, else NIL") (CLSTRIKE FLAG) (* ;
"T if the characters are to be struck thru, else nil.") CLOFFSET (* ;
@@ -512,7 +513,9 @@ CLBOLD FLAG) (* ; "T if the characters are bold, else NIL") (CLULINE FLAG) (* ;
) (CLMARK FLAG) (* ;;
"Used for a mark-&-sweep of looks at PUT time -- T means this set of looks really IS in use in the document"
) (CLSELBEFORE FLAG) (* ; "T if TEDIT can put selection before this char (for menu fields)."))
CLOFFSET _ 0 (INIT (DEFPRINT (QUOTE CHARLOOKS) (FUNCTION \TEDIT.CHARLOOKS.DEFPRINT))))
CLOFFSET _ 0 (INIT (DEFPRINT (QUOTE CHARLOOKS) (FUNCTION \TEDIT.CHARLOOKS.DEFPRINT))) (ACCESSFNS (
CLNAME (fetch (CHARLOOKS CLFONTUNPARSE) of DATUM) (replace (CHARLOOKS CLFONTUNPARSE) of DATUM with
NEWVALUE))))
(DATATYPE FMTSPEC ((* ;; "Describe the paragraph formatting for a paragraph in a TEdit document.")
1STLEFTMAR (* ; "Left margin of the first line of the paragraph") LEFTMAR (* ;
"Left margin of the rest of the lines in the paragraph") RIGHTMAR (* ;
@@ -521,8 +524,8 @@ CLOFFSET _ 0 (INIT (DEFPRINT (QUOTE CHARLOOKS) (FUNCTION \TEDIT.CHARLOOKS.DEFPRI
"Leading below the paragraph's bottom line, in points. NOT IMPLEMENTED.") LINELEAD (* ;
"Leading between lines, in points. This space is added BELOW each line in the para when TEDIT.LINELEADING.BELOW, otherwise above, which is how it is documented."
) FMTBASETOBASE (* ;
"The baseline-to-baseline spacing between lines in this paragraph. THIS OVERRIDES THE LINE LEADING")
NIL (* ; "Was TABSPEC: The list of tabs for this paragraph, including CAR for a default tab width")
"The baseline-to-baseline spacing between lines in this paragraph. THIS OVERRIDES THE LINE LEADING")
NIL (* ; "Was TABSPEC: The list of tabs for this paragraph, including CAR for a default tab width")
QUAD (* ; "How the para is formatted: one of LEFT, RIGHT, CENTERED, JUSTIFIED") FMTSTYLE (* ;
"The STYLE that controls this paragraph's appearance") FMTCHARSTYLES (* ;
"The characterstyles that control the appearance of characters in this para (maybe? may be part of the fmtstyle.)"
@@ -564,7 +567,7 @@ DEFPRINT (QUOTE FMTSPEC) (FUNCTION \TEDIT.FMTSPEC.DEFPRINT))) LEADBEFORE _ 0 LEA
(PUTPROPS FSETCLOOKS MACRO ((CL FIELD NEWVALUE) (freplace (CHARLOOKS FIELD) of CL with NEWVALUE)))
(PUTPROPS PARALOOKS! MACRO ((PL) (\DTEST PL (QUOTE FMTSPEC))))
(PUTPROPS CHARLOOKS! MACRO ((CL) (\DTEST CL (QUOTE CHARLOOKS))))
(PUTPROP (QUOTE TEDIT-LOOKS) (QUOTE IMPORTDATE) (IDATE " 3-Dec-2024 00:01:46"))
(PUTPROP (QUOTE TEDIT-LOOKS) (QUOTE IMPORTDATE) (IDATE " 7-Jan-2025 12:34:07"))
(DATATYPE TEDITCARET (TCNOWTIME (* Used to hold the current time, when checking to see if a transition
is due) TCTHENTIME (* Time when the next transition is to take place) TCFORCEDDOWN (* TCFORCEDOWN = T
means (Make the caret visible at the next call to \EDIT.FLIPCARET.)) TCUP (* TCUP = T => The caret is
@@ -606,6 +609,8 @@ WTEXTSTREAM) of PANE)))))
)))
(PUTPROPS PANELEFT MACRO ((PANE PREG) (fetch (REGION LEFT) of (OR PREG (DSPCLIPPINGREGION NIL PANE))))
)
(PUTPROPS PANERIGHT MACRO ((PANE PREG) (fetch (REGION RIGHT) of (OR PREG (DSPCLIPPINGREGION NIL PANE))
)))
(PUTPROPS PANEBOTTOM MACRO ((PANE PREG) (fetch (REGION BOTTOM) of (OR PREG (DSPCLIPPINGREGION NIL PANE
)))))
(PUTPROPS PANEHEIGHT MACRO ((PANE PREG) (fetch (REGION HEIGHT) of (OR PREG (DSPCLIPPINGREGION NIL PANE
@@ -618,8 +623,8 @@ OR (CL:IF (TYPENAMEP $$BODY (QUOTE TEXTOBJ)) (FGETTOBJ $$BODY PRIMARYPANE) $$BOD
GETPANEPROP (PANEPROPS P) NEXTPANE))) (GO $$OUT))) by (OR (GETPANEPROP (PANEPROPS I.V.) PREVPANE) (GO
$$OUT)))))
(PUTPROPS ALLBUTTONSUP MACRO (NIL (ZEROP (LOGAND 7 LASTMOUSEBUTTONS))))
(PUTPROP (QUOTE TEDIT-WINDOW) (QUOTE IMPORTDATE) (IDATE "13-Dec-2024 09:00:10"))
(PUTPROP (QUOTE TEDIT-BUTTONS) (QUOTE IMPORTDATE) (IDATE "13-Dec-2024 09:24:22"))
(PUTPROP (QUOTE TEDIT-WINDOW) (QUOTE IMPORTDATE) (IDATE " 7-Jan-2025 11:56:24"))
(PUTPROP (QUOTE TEDIT-BUTTONS) (QUOTE IMPORTDATE) (IDATE " 6-Jan-2025 00:20:34"))
(RPAQQ PTSPERPICA 12)
(RPAQQ PTSPERINCH 72)
(RPAQQ PICASPERINCH 6)
@@ -630,9 +635,9 @@ $$OUT)))))
(CONSTANTS (PTSPERPICA 12) (PTSPERINCH 72) (PICASPERINCH 6) (MICASPERINCH 2540) (PTSPERCM (FQUOTIENT
PTSPERINCH 2.54)) (PTSPERMICA (FQUOTIENT PTSPERINCH MICASPERINCH)) (MICASPERPOINT (FQUOTIENT
MICASPERINCH PTSPERINCH)))
(PUTPROP (QUOTE TEDIT-MENU) (QUOTE IMPORTDATE) (IDATE " 7-Dec-2024 21:21:48"))
(PUTPROP (QUOTE TEDIT-MENU) (QUOTE IMPORTDATE) (IDATE " 7-Jan-2025 12:36:43"))
(PUTPROP (QUOTE TEDIT-FIND) (QUOTE IMPORTDATE) (IDATE " 8-Dec-2024 15:49:12"))
(PUTPROP (QUOTE TEDIT-FNKEYS) (QUOTE IMPORTDATE) (IDATE "26-Nov-2024 23:53:32"))
(PUTPROP (QUOTE TEDIT-FNKEYS) (QUOTE IMPORTDATE) (IDATE "29-Dec-2024 08:47:57"))
(PUTPROP (QUOTE TEDIT-HCPY) (QUOTE IMPORTDATE) (IDATE "13-Dec-2024 23:51:23"))
(DATATYPE TEDITHISTORYEVENT ((* ;; "Describes one event on the TEdit edit history list.") THACTION (*
; "A keyword specifying what the event was") THPOINT (* ; "Was the selection to the left or right?")
@@ -678,9 +683,9 @@ REGIONPARENT FULLXPOINTER) (* ; "The parent node for this box, for sub-boxes") R
(PUTPROPS GETPFS MACRO ((FS FIELD) (fetch (PAGEFORMATTINGSTATE FIELD) of FS)))
(PUTPROPS SETPFS MACRO ((FS FIELD NEWVALUE) (replace (PAGEFORMATTINGSTATE FIELD) of FS with NEWVALUE))
)
(PUTPROP (QUOTE TEDIT-PAGE) (QUOTE IMPORTDATE) (IDATE "11-Dec-2024 22:39:52"))
(PUTPROP (QUOTE TEDIT-PAGE) (QUOTE IMPORTDATE) (IDATE " 7-Jan-2025 12:31:19"))
(PUTPROP (QUOTE TEDIT-ABBREV) (QUOTE IMPORTDATE) (IDATE "31-Oct-2024 17:53:21"))
(PUTPROP (QUOTE TEDIT-TFBRAVO) (QUOTE IMPORTDATE) (IDATE "21-Oct-2024 00:33:50"))
(PUTPROP (QUOTE TEDIT-TFBRAVO) (QUOTE IMPORTDATE) (IDATE " 2-Jan-2025 23:45:04"))
(DECLARE%: DONTCOPY
(FILEMAP (NIL)))
STOP