github.com/Interlisp.medley
1
0
Fork 0
mirror of synced 2026-04-27 12:39:46 +00:00
Code Issues Projects Releases Wiki Activity

TEDIT-STREAM to avoid conflict

Browse Source 
Minor changes for forward compatibility with new hardcopy interface, but still good here
This commit is contained in:
rmkaplan
2025-09-20 11:08:19 -07:00
parent c7b19e07ec
commit e4afa4a8ba
3 changed files with 134 additions and 131 deletions
Download Patch File Download Diff File Expand all files Collapse all files

233
library/tedit/TEDIT-STREAM
View File

@@ -1,13 +1,13 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
(FILECREATED " 9-Sep-2025 22:08:09" {WMEDLEY}<library>tedit>TEDIT-STREAM.;915 190872 (FILECREATED "20-Sep-2025 08:49:36" {WMEDLEY}<library>TEDIT>TEDIT-STREAM.;919 191988
:EDIT-BY rmk :EDIT-BY rmk
:CHANGES-TO (FNS OPENTEXTSTREAM) :CHANGES-TO (RECORDS TEXTSTREAM)
(RECORDS TEXTOBJ) (FNS \TEDIT.TEXTINIT \TEDIT.TEXTDSPXPOSITION)
:PREVIOUS-DATE " 8-Sep-2025 22:10:32" {WMEDLEY}<library>tedit>TEDIT-STREAM.;913) :PREVIOUS-DATE "18-Sep-2025 23:09:35" {WMEDLEY}<library>TEDIT>TEDIT-STREAM.;917)
(PRETTYCOMPRINT TEDIT-STREAMCOMS) (PRETTYCOMPRINT TEDIT-STREAMCOMS)
@@ -285,14 +285,14 @@
ACCESS _ 'BOTH ACCESS _ 'BOTH
USERCLOSEABLE _ T USERCLOSEABLE _ T
USERVISIBLE _ T USERVISIBLE _ T
DEVICE _ \TEXTFDEV DEVICE _ \TEDITFDEV
F1 _ NIL F1 _ NIL
F2 _ 0 F2 _ 0
F3 _ NIL F3 _ NIL
F4 _ NIL F4 _ NIL
F5 _ NIL F5 _ NIL
MAXBUFFERS _ 10 MAXBUFFERS _ 10
IMAGEOPS _ \TEXTIMAGEOPS IMAGEOPS _ \TEDITIMAGEOPS
IMAGEDATA _ NIL))) IMAGEDATA _ NIL)))
) )
@@ -1658,7 +1658,8 @@
(SETTOBJ TEXTOBJ DEFAULTPARALOOKS PARALOOKS]) (SETTOBJ TEXTOBJ DEFAULTPARALOOKS PARALOOKS])
(\TEDIT.OPENTEXTFILE (\TEDIT.OPENTEXTFILE
[LAMBDA (TEXT PROPS) (* ; "Edited 8-Sep-2025 21:52 by rmk") [LAMBDA (TEXT PROPS) (* ; "Edited 16-Sep-2025 00:28 by rmk")
(* ; "Edited 8-Sep-2025 21:52 by rmk")
(* ; "Edited 21-Nov-2024 11:38 by rmk") (* ; "Edited 21-Nov-2024 11:38 by rmk")
(* ; "Edited 20-Dec-2023 10:49 by rmk") (* ; "Edited 20-Dec-2023 10:49 by rmk")
(* ; "Edited 28-Oct-2023 10:33 by rmk") (* ; "Edited 28-Oct-2023 10:33 by rmk")
@@ -1667,24 +1668,26 @@
(* ; "Edited 18-Sep-2023 22:40 by rmk") (* ; "Edited 18-Sep-2023 22:40 by rmk")
(* ; "Edited 17-Sep-2023 21:29 by rmk") (* ; "Edited 17-Sep-2023 21:29 by rmk")
(CL:WHEN TEXT (CL:WHEN TEXT
(if (OR (LITATOM TEXT) (if (\GETSTREAM TEXT 'INPUT T)
(STRINGP TEXT) elseif (OR (LITATOM TEXT)
(CL:PATHNAMEP TEXT)) (STRINGP TEXT)
(CL:PATHNAMEP TEXT)
(STREAMP TEXT))
then (* ; "String detects empty extension") then (* ; "String detects empty extension")
[RESETSAVE [SETQ TEXT (OPENSTREAM (OR (if (OR (CL:PATHNAMEP TEXT) [RESETSAVE [SETQ TEXT (OPENSTREAM (if (STREAMP TEXT)
(FILENAMEFIELD.STRING TEXT elseif (OR (CL:PATHNAMEP TEXT)
'EXTENSION)) (FILENAMEFIELD.STRING TEXT
then (FINDFILE TEXT T) 'EXTENSION))
elseif (FINDFILE-WITH-EXTENSIONS TEXT NIL then (FINDFILE TEXT T)
*TEDIT-EXTENSIONS*)) elseif (FINDFILE-WITH-EXTENSIONS TEXT NIL
TEXT) *TEDIT-EXTENSIONS*)
else TEXT)
'INPUT 'INPUT
'OLD 'OLD
`((TYPE TEXT) `((TYPE TEXT)
(FORMAT ,(LISTGET PROPS 'FORMAT] (FORMAT ,(LISTGET PROPS 'FORMAT]
'(PROGN (AND RESETSTATE (CLOSEF? OLDVALUE] '(PROGN (AND RESETSTATE (CLOSEF? OLDVALUE]
TEXT TEXT
elseif (\GETSTREAM TEXT 'INPUT T)
else else
(* ;; "Don't know what it is") (* ;; "Don't know what it is")
@@ -1749,7 +1752,9 @@
NEWSTREAM]) NEWSTREAM])
(\TEDIT.TEXTINIT (\TEDIT.TEXTINIT
[LAMBDA NIL (* ; "Edited 10-Jul-2025 11:28 by rmk") [LAMBDA NIL (* ; "Edited 20-Sep-2025 08:48 by rmk")
(* ; "Edited 18-Sep-2025 14:52 by rmk")
(* ; "Edited 10-Jul-2025 11:28 by rmk")
(* ; "Edited 15-Apr-2025 23:10 by rmk") (* ; "Edited 15-Apr-2025 23:10 by rmk")
(* ; "Edited 4-Sep-2024 22:05 by rmk") (* ; "Edited 4-Sep-2024 22:05 by rmk")
(* ; "Edited 22-May-2024 14:53 by rmk") (* ; "Edited 22-May-2024 14:53 by rmk")
@@ -1763,11 +1768,11 @@
(* ; "Edited 5-May-2022 15:12 by rmk") (* ; "Edited 5-May-2022 15:12 by rmk")
(* ; "Edited 7-Oct-2021 08:40 by rmk:") (* ; "Edited 7-Oct-2021 08:40 by rmk:")
(* ; (* ;
 "Create the FDEV and STREAM prototypes for TEXT streams.")  "Create the FDEV and STREAM prototypes for TEDIT streams.")
(* ;; "TEXT streams make use of the following STREAM fields:") (* ;; "TEDIT streams make use of the following STREAM fields:")
(* ;; "(DEVICE (* FDEV of this guy -- The TEXT device)") (* ;; "(DEVICE (* FDEV of this guy -- The TEDIT device)")
(* ;; "F1 Number of characters to the end of the current piece") (* ;; "F1 Number of characters to the end of the current piece")
@@ -1785,24 +1790,28 @@
(* ;; "(FW8 WORD)") (* ;; "(FW8 WORD)")
(SETQ \TEXTIMAGEOPS (create IMAGEOPS (SETQ \TEDITIMAGEOPS (create IMAGEOPS
IMAGETYPE _ 'TEXT IMAGETYPE _ 'TEDIT
IMXPOSITION _ (FUNCTION \TEDIT.TEXTDSPXPOSITION) IMXPOSITION _ (FUNCTION \TEDIT.TEXTDSPXPOSITION)
IMYPOSITION _ (FUNCTION \TEDIT.TEXTDSPYPOSITION) IMYPOSITION _ (FUNCTION \TEDIT.TEXTDSPYPOSITION)
IMLEFTMARGIN _ (FUNCTION \TEDIT.TEXTLEFTMARGIN) IMLEFTMARGIN _ (FUNCTION \TEDIT.TEXTLEFTMARGIN)
IMRIGHTMARGIN _ (FUNCTION \TEDIT.TEXTRIGHTMARGIN) IMRIGHTMARGIN _ (FUNCTION \TEDIT.TEXTRIGHTMARGIN)
IMFONT _ (FUNCTION \TEDIT.TEXTDSPFONT) IMFONT _ (FUNCTION \TEDIT.TEXTDSPFONT)
IMCLOSEFN _ (FUNCTION NILL) IMCLOSEFN _ (FUNCTION NILL)
IMFONTCREATE _ 'DISPLAY IMFONTCREATE _ 'DISPLAY
IMLINEFEED _ (FUNCTION \TEDIT.TEXTDSPLINEFEED) IMLINEFEED _ (FUNCTION \TEDIT.TEXTDSPLINEFEED)
IMCHARWIDTH _ (FUNCTION \TEDIT.TEXTDSPCHARWIDTH) IMCHARWIDTH _ (FUNCTION \TEDIT.TEXTDSPCHARWIDTH)
IMSTRINGWIDTH _ (FUNCTION \TEDIT.TEXTDSPSTRINGWIDTH) IMSTRINGWIDTH _ (FUNCTION \TEDIT.TEXTDSPSTRINGWIDTH)
IMSCALE _ [FUNCTION (LAMBDA NIL 1] IMSCALE _ [FUNCTION (LAMBDA NIL 1]
IMCOLOR _ (FUNCTION \TEDIT.TEXTCOLOR))) IMCOLOR _ (FUNCTION \TEDIT.TEXTCOLOR)))
(* ;; "Do we need TEXT here?")
(FONTPROFILE.ADDDEVICE 'TEXT 'DISPLAY) (FONTPROFILE.ADDDEVICE 'TEXT 'DISPLAY)
(ADDTOVAR IMAGESTREAMTYPES (TEXT (FONTCREATE \CREATEDISPLAYFONT) (ADDTOVAR IMAGESTREAMTYPES (TEXT (FONTCREATE \CREATEDISPLAYFONT)
(FONTSAVAILABLE \SEARCHFONTFILES)
(CREATECHARSET \CREATECHARSET.DISPLAY))) (CREATECHARSET \CREATECHARSET.DISPLAY)))
(ADDTOVAR IMAGESTREAMTYPES (TEDIT (FONTCREATE \CREATEDISPLAYFONT)
(CREATECHARSET \CREATECHARSET.DISPLAY)))
(* ;; "Maybe more functions later. The INCODE and BACK functions possibly need to count. If \TEXTBACKFILEPTR takes a count variable, the extra level wouldn't be needed. But INCCODE wants to go through the BIN opcode") (* ;; "Maybe more functions later. The INCODE and BACK functions possibly need to count. If \TEXTBACKFILEPTR takes a count variable, the extra level wouldn't be needed. But INCCODE wants to go through the BIN opcode")
@@ -1812,41 +1821,41 @@
(FUNCTION \TEDIT.TEXTOUTCHARFN) (FUNCTION \TEDIT.TEXTOUTCHARFN)
(FUNCTION \TEDIT.TEXTFORMATBYTESTREAM) (FUNCTION \TEDIT.TEXTFORMATBYTESTREAM)
'CR NIL (FUNCTION \TEDIT.TEXTFORMATBYTESTRING)) 'CR NIL (FUNCTION \TEDIT.TEXTFORMATBYTESTRING))
(SETQ \TEXTFDEV (create FDEV (SETQ \TEDITFDEV (create FDEV
DEVICENAME _ 'TEXT DEVICENAME _ 'TEDIT
RESETABLE _ T RESETABLE _ T
RANDOMACCESSP _ T RANDOMACCESSP _ T
PAGEMAPPED _ NIL PAGEMAPPED _ NIL
GETFILENAME _ (FUNCTION NILL) GETFILENAME _ (FUNCTION NILL)
BIN _ (FUNCTION \TEDIT.TEXTBIN) BIN _ (FUNCTION \TEDIT.TEXTBIN)
BOUT _ (FUNCTION \TEDIT.TEXTBOUT) BOUT _ (FUNCTION \TEDIT.TEXTBOUT)
CLOSEFILE _ (FUNCTION \TEDIT.TEXTCLOSEF) CLOSEFILE _ (FUNCTION \TEDIT.TEXTCLOSEF)
OPENFILE _ (FUNCTION \TEDIT.TEXTOPENF) OPENFILE _ (FUNCTION \TEDIT.TEXTOPENF)
DELETEFILE _ (FUNCTION NILL) DELETEFILE _ (FUNCTION NILL)
DIRECTORYNAMEP _ (FUNCTION NILL) DIRECTORYNAMEP _ (FUNCTION NILL)
EVENTFN _ (FUNCTION NILL) EVENTFN _ (FUNCTION NILL)
GENERATEFILES _ (FUNCTION \GENERATENOFILES) GENERATEFILES _ (FUNCTION \GENERATENOFILES)
GETFILEINFO _ (FUNCTION NILL) GETFILEINFO _ (FUNCTION NILL)
HOSTNAMEP _ (FUNCTION NILL) HOSTNAMEP _ (FUNCTION NILL)
READPAGES _ (FUNCTION NILL) READPAGES _ (FUNCTION NILL)
REOPENFILE _ [FUNCTION (LAMBDA (FILE ACCESS RECOG OTHERINFO FDEV STREAM) REOPENFILE _ [FUNCTION (LAMBDA (FILE ACCESS RECOG OTHERINFO FDEV STREAM)
(replace (STREAM ACCESS) of STREAM (replace (STREAM ACCESS) of STREAM
with 'BOTH) with 'BOTH)
STREAM] STREAM]
SETFILEINFO _ (FUNCTION \TEDIT.TEXTSETFILEINFO) SETFILEINFO _ (FUNCTION \TEDIT.TEXTSETFILEINFO)
BACKFILEPTR _ (FUNCTION \TEDIT.TEXTBACKFILEPTR) BACKFILEPTR _ (FUNCTION \TEDIT.TEXTBACKFILEPTR)
SETFILEPTR _ (FUNCTION \TEDIT.TEXTSETFILEPTR) SETFILEPTR _ (FUNCTION \TEDIT.TEXTSETFILEPTR)
PEEKBIN _ (FUNCTION \TEDIT.TEXTPEEKBIN) PEEKBIN _ (FUNCTION \TEDIT.TEXTPEEKBIN)
GETEOFPTR _ (FUNCTION \TEDIT.TEXTGETEOFPTR) GETEOFPTR _ (FUNCTION \TEDIT.TEXTGETEOFPTR)
SETEOFPTR _ (FUNCTION \TEDIT.TEXTSETEOFPTR) SETEOFPTR _ (FUNCTION \TEDIT.TEXTSETEOFPTR)
GETFILEPTR _ (FUNCTION \TEDIT.TEXTGETFILEPTR) GETFILEPTR _ (FUNCTION \TEDIT.TEXTGETFILEPTR)
EOFP _ (FUNCTION \TEDIT.TEXTEOFP) EOFP _ (FUNCTION \TEDIT.TEXTEOFP)
FDBINABLE _ T FDBINABLE _ T
FDBOUTABLE _ NIL FDBOUTABLE _ NIL
FDEXTENDABLE _ NIL FDEXTENDABLE _ NIL
TRUNCATEFILE _ (FUNCTION NILL) TRUNCATEFILE _ (FUNCTION NILL)
WRITEPAGES _ (FUNCTION NILL) WRITEPAGES _ (FUNCTION NILL)
DEFAULTEXTERNALFORMAT _ :TEXTSTREAM)) DEFAULTEXTERNALFORMAT _ :TEXTSTREAM))
(CL:SETF (CONDITION-HANDLER 'XCL:STREAM-NOT-OPEN) (CL:SETF (CONDITION-HANDLER 'XCL:STREAM-NOT-OPEN)
(FUNCTION (LAMBDA (CONDITION) (FUNCTION (LAMBDA (CONDITION)
(LET ((STREAM (STREAM-ERROR-STREAM CONDITION))) (LET ((STREAM (STREAM-ERROR-STREAM CONDITION)))
@@ -2091,7 +2100,8 @@
(\TEDIT.INSTALL.PIECE TSTREAM PC (- CH# START-OF-PIECE)))]) (\TEDIT.INSTALL.PIECE TSTREAM PC (- CH# START-OF-PIECE)))])
(\TEDIT.TEXTDSPXPOSITION (\TEDIT.TEXTDSPXPOSITION
[LAMBDA (TSTREAM XPOSITION) (* ; "Edited 25-Jun-2024 11:59 by rmk") [LAMBDA (TSTREAM XPOSITION) (* ; "Edited 20-Sep-2025 08:30 by rmk")
(* ; "Edited 25-Jun-2024 11:59 by rmk")
(* ; "Edited 17-Mar-2024 12:15 by rmk") (* ; "Edited 17-Mar-2024 12:15 by rmk")
(* ; "Edited 3-Jan-2001 17:27 by rmk:") (* ; "Edited 3-Jan-2001 17:27 by rmk:")
(* ; (* ;
@@ -2100,13 +2110,18 @@
(* ;; (* ;;
 "Simply returns the XPOSITION of the primary window's display stream, this is a read-only function")  "Simply returns the XPOSITION of the primary window's display stream, this is a read-only function")
(LET ((WINDOW (\TEDIT.PRIMARYPANE TSTREAM))) (* ; (LET ((WINDOW (\TEDIT.PRIMARYPANE TSTREAM))
SPACEWIDTH) (* ;
 "If there is no window, estimate from character position")  "If there is no window, estimate from character position")
(CL:IF WINDOW (if WINDOW
(DSPXPOSITION NIL WINDOW) then (DSPXPOSITION XPOSITION WINDOW)
(TIMES (CHARWIDTH (CHARCODE SPACE) else (SETQ SPACEWIDTH (CHARWIDTH (CHARCODE SPACE)
TSTREAM) TSTREAM))
(POSITION TSTREAM)))]) (PROG1 (TIMES SPACEWIDTH (POSITION TSTREAM))
(CL:WHEN (AND XPOSITION (IGEQ XPOSITION 0))
(SPACES (IDIFFERENCE (QUOTIENT XPOSITION SPACEWIDTH)
(POSITION TSTREAM))
TSTREAM)))])
(\TEDIT.TEXTDSPYPOSITION (\TEDIT.TEXTDSPYPOSITION
[LAMBDA (TSTREAM YPOSITION) (* ; "Edited 25-Jun-2024 11:59 by rmk") [LAMBDA (TSTREAM YPOSITION) (* ; "Edited 25-Jun-2024 11:59 by rmk")
@@ -3120,34 +3135,34 @@
(ADDTOVAR LAMA TEXTPROP) (ADDTOVAR LAMA TEXTPROP)
) )
(DECLARE%: DONTCOPY (DECLARE%: DONTCOPY
(FILEMAP (NIL (36924 67740 (\TEDIT.TEXTBIN 36934 . 47684) (\TEDIT.TEXTPEEKBIN 47686 . 53236) ( (FILEMAP (NIL (36954 67770 (\TEDIT.TEXTBIN 36964 . 47714) (\TEDIT.TEXTPEEKBIN 47716 . 53266) (
\TEDIT.TEXTBACKFILEPTR 53238 . 58911) (\TEDIT.TEXTBOUT 58913 . 63530) (\TEDIT.INSTALL.FILEBUFFER 63532 \TEDIT.TEXTBACKFILEPTR 53268 . 58941) (\TEDIT.TEXTBOUT 58943 . 63560) (\TEDIT.INSTALL.FILEBUFFER 63562
. 67738)) (68638 72929 (\TEDIT.TEXTOUTCHARFN 68648 . 70204) (\TEDIT.TEXTINCCODEFN 70206 . 70945) ( . 67768)) (68668 72959 (\TEDIT.TEXTOUTCHARFN 68678 . 70234) (\TEDIT.TEXTINCCODEFN 70236 . 70975) (
\TEDIT.TEXTBACKCCODEFN 70947 . 71539) (\TEDIT.TEXTFORMATBYTESTREAM 71541 . 72378) ( \TEDIT.TEXTBACKCCODEFN 70977 . 71569) (\TEDIT.TEXTFORMATBYTESTREAM 71571 . 72408) (
\TEDIT.TEXTFORMATBYTESTRING 72380 . 72927)) (72976 84540 (OPENTEXTSTREAM 72986 . 79861) ( \TEDIT.TEXTFORMATBYTESTRING 72410 . 72957)) (73006 84570 (OPENTEXTSTREAM 73016 . 79891) (
COPYTEXTSTREAM 79863 . 83763) (TEDIT.STREAMCHANGEDP 83765 . 84067) (TXTFILE 84069 . 84538)) (84541 COPYTEXTSTREAM 79893 . 83793) (TEDIT.STREAMCHANGEDP 83795 . 84097) (TXTFILE 84099 . 84568)) (84571
115055 (\TEDIT.REOPENTEXTSTREAM 84551 . 85903) (\TEDIT.OPENTEXTSTREAM.PIECES 85905 . 90833) ( 115705 (\TEDIT.REOPENTEXTSTREAM 84581 . 85933) (\TEDIT.OPENTEXTSTREAM.PIECES 85935 . 90863) (
\TEDIT.OPENTEXTSTREAM.PROPS 90835 . 91937) (\TEDIT.OPENTEXTSTREAM.SETUP.SEL 91939 . 97180) ( \TEDIT.OPENTEXTSTREAM.PROPS 90865 . 91967) (\TEDIT.OPENTEXTSTREAM.SETUP.SEL 91969 . 97210) (
\TEDIT.OPENTEXTSTREAM.WINDOW 97182 . 99973) (\TEDIT.OPENTEXTSTREAM.DEFAULTLOOKS 99975 . 101914) ( \TEDIT.OPENTEXTSTREAM.WINDOW 97212 . 100003) (\TEDIT.OPENTEXTSTREAM.DEFAULTLOOKS 100005 . 101944) (
\TEDIT.OPENTEXTFILE 101916 . 104167) (\TEDIT.CREATE.TEXTSTREAM 104169 . 105316) (\TEDIT.REOPEN.STREAM \TEDIT.OPENTEXTFILE 101946 . 104423) (\TEDIT.CREATE.TEXTSTREAM 104425 . 105572) (\TEDIT.REOPEN.STREAM
105318 . 107654) (\TEDIT.TEXTINIT 107656 . 115053)) (115093 116281 (\TEDIT.TTYBOUT 115103 . 116279)) ( 105574 . 107910) (\TEDIT.TEXTINIT 107912 . 115703)) (115743 116931 (\TEDIT.TTYBOUT 115753 . 116929)) (
116399 136396 (\TEDIT.TEXTCLOSEF 116409 . 117733) (\TEDIT.TEXTDSPFONT 117735 . 118933) ( 117049 137512 (\TEDIT.TEXTCLOSEF 117059 . 118383) (\TEDIT.TEXTDSPFONT 118385 . 119583) (
\TEDIT.TEXTEOFP 118935 . 120690) (\TEDIT.TEXTGETEOFPTR 120692 . 121015) (\TEDIT.TEXTSETEOFPTR 121017 \TEDIT.TEXTEOFP 119585 . 121340) (\TEDIT.TEXTGETEOFPTR 121342 . 121665) (\TEDIT.TEXTSETEOFPTR 121667
. 122304) (\TEDIT.TEXTGETFILEPTR 122306 . 125141) (\TEDIT.TEXTSETFILEINFO 125143 . 125651) ( . 122954) (\TEDIT.TEXTGETFILEPTR 122956 . 125791) (\TEDIT.TEXTSETFILEINFO 125793 . 126301) (
\TEDIT.TEXTOPENF 125653 . 126584) (\TEDIT.TEXTSETEOF 126586 . 127202) (\TEDIT.TEXTSETFILEPTR 127204 . \TEDIT.TEXTOPENF 126303 . 127234) (\TEDIT.TEXTSETEOF 127236 . 127852) (\TEDIT.TEXTSETFILEPTR 127854 .
129314) (\TEDIT.TEXTDSPXPOSITION 129316 . 130333) (\TEDIT.TEXTDSPYPOSITION 130335 . 131076) ( 129964) (\TEDIT.TEXTDSPXPOSITION 129966 . 131449) (\TEDIT.TEXTDSPYPOSITION 131451 . 132192) (
\TEDIT.TEXTLEFTMARGIN 131078 . 131669) (\TEDIT.TEXTCOLOR 131671 . 132254) (\TEDIT.TEXTRIGHTMARGIN \TEDIT.TEXTLEFTMARGIN 132194 . 132785) (\TEDIT.TEXTCOLOR 132787 . 133370) (\TEDIT.TEXTRIGHTMARGIN
132256 . 135545) (\TEDIT.TEXTDSPCHARWIDTH 135547 . 135851) (\TEDIT.TEXTDSPSTRINGWIDTH 135853 . 136159) 133372 . 136661) (\TEDIT.TEXTDSPCHARWIDTH 136663 . 136967) (\TEDIT.TEXTDSPSTRINGWIDTH 136969 . 137275)
(\TEDIT.TEXTDSPLINEFEED 136161 . 136394)) (136434 149047 (\TEDIT.NTHCHARCODE 136444 . 137895) ( (\TEDIT.TEXTDSPLINEFEED 137277 . 137510)) (137550 150163 (\TEDIT.NTHCHARCODE 137560 . 139011) (
\TEDIT.PIECE.NTHCHARCODE 137897 . 141807) (\TEDIT.RPLCHARCODE 141809 . 143267) ( \TEDIT.PIECE.NTHCHARCODE 139013 . 142923) (\TEDIT.RPLCHARCODE 142925 . 144383) (
\TEDIT.PIECE.RPLCHARCODE 143269 . 148692) (\TEDIT.NTHCHARLOOKS 148694 . 149045)) (150094 171188 ( \TEDIT.PIECE.RPLCHARCODE 144385 . 149808) (\TEDIT.NTHCHARLOOKS 149810 . 150161)) (151210 172304 (
\TEDIT.DELETE.SELPIECES 150104 . 153729) (\TEDIT.INSERTCH 153731 . 161770) (\TEDIT.INSERTCH.HISTORY \TEDIT.DELETE.SELPIECES 151220 . 154845) (\TEDIT.INSERTCH 154847 . 162886) (\TEDIT.INSERTCH.HISTORY
161772 . 165236) (\TEDIT.INSERTEOL 165238 . 167063) (\TEDIT.INSERTCH.INSERTION 167065 . 169902) ( 162888 . 166352) (\TEDIT.INSERTEOL 166354 . 168179) (\TEDIT.INSERTCH.INSERTION 168181 . 171018) (
\TEDIT.INSERTCH.EXTEND 169904 . 171186)) (171189 172693 (\TEDIT.NEXTCHANGEABLE.CHNO 171199 . 171914) ( \TEDIT.INSERTCH.EXTEND 171020 . 172302)) (172305 173809 (\TEDIT.NEXTCHANGEABLE.CHNO 172315 . 173030) (
\TEDIT.LASTCHANGEABLE.CHNO 171916 . 172691)) (172694 174398 (\SETUPGETCH 172704 . 174396)) (174456 \TEDIT.LASTCHANGEABLE.CHNO 173032 . 173807)) (173810 175514 (\SETUPGETCH 173820 . 175512)) (175572
178914 (\TEDIT.INSTALL.PIECE 174466 . 178912)) (178952 188053 (TEXTPROP 178962 . 179309) (GETTEXTPROP 180030 (\TEDIT.INSTALL.PIECE 175582 . 180028)) (180068 189169 (TEXTPROP 180078 . 180425) (GETTEXTPROP
179311 . 179555) (PUTTEXTPROP 179557 . 179814) (GETTEXTPROPS 179816 . 180260) (PUTTEXTPROPS 180262 . 180427 . 180671) (PUTTEXTPROP 180673 . 180930) (GETTEXTPROPS 180932 . 181376) (PUTTEXTPROPS 181378 .
181166) (TEXTPROP.ADD 181168 . 181431) (\TEDIT.TEXTPROP 181433 . 188051)) (188054 190124 ( 182282) (TEXTPROP.ADD 182284 . 182547) (\TEDIT.TEXTPROP 182549 . 189167)) (189170 191240 (
\TEDIT.TEXTOBJ.PROPNAMES 188064 . 189016) (\TEDIT.TEXTOBJ.PROPFETCHFN 189018 . 189534) ( \TEDIT.TEXTOBJ.PROPNAMES 189180 . 190132) (\TEDIT.TEXTOBJ.PROPFETCHFN 190134 . 190650) (
\TEDIT.TEXTOBJ.PROPSTOREFN 189536 . 190122))))) \TEDIT.TEXTOBJ.PROPSTOREFN 190652 . 191238)))))
STOP STOP

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

Binary file not shown.

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

@@ -1,11 +1,9 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
(FILECREATED " 9-Sep-2025 21:49:59"  (FILECREATED "20-Sep-2025 11:04:51" 
{DSK}<Users>kaplan>Local>medley3.5>working-medley>library>tedit>tedit-exports.all;241 52904 {DSK}<Users>kaplan>Local>medley3.5>working-medley>library>tedit>tedit-exports.all;242 52344
:EDIT-BY rmk :EDIT-BY rmk)
:PREVIOUS-DATE " 8-Sep-2025 23:06:31" {WMEDLEY}<library>TEDIT>tedit-exports.all;240)
(PRETTYCOMPRINT ((E (MAPC (MKLIST FROMFILES) (FUNCTION (LAMBDA (F) (MAPC (IMPORTFILE F FLG) (FUNCTION (PRETTYCOMPRINT ((E (MAPC (MKLIST FROMFILES) (FUNCTION (LAMBDA (F) (MAPC (IMPORTFILE F FLG) (FUNCTION
@@ -367,7 +365,7 @@ NEWVALUE)) (* ;
) (STARTINGCOFFSET (fetch (STREAM F2) of DATUM) (replace (STREAM F2) of DATUM with NEWVALUE))) (TYPE? ) (STARTINGCOFFSET (fetch (STREAM F2) of DATUM) (replace (STREAM F2) of DATUM with NEWVALUE))) (TYPE?
(AND (type? STREAM DATUM) (type? TEXTOBJ (fetch (TEXTSTREAM TEXTOBJ) of DATUM)))) (CREATE (create (AND (type? STREAM DATUM) (type? TEXTOBJ (fetch (TEXTSTREAM TEXTOBJ) of DATUM)))) (CREATE (create
STREAM BINABLE _ NIL BOUTABLE _ NIL ACCESS _ (QUOTE BOTH) USERCLOSEABLE _ T USERVISIBLE _ T DEVICE _ STREAM BINABLE _ NIL BOUTABLE _ NIL ACCESS _ (QUOTE BOTH) USERCLOSEABLE _ T USERVISIBLE _ T DEVICE _
\TEXTFDEV F1 _ NIL F2 _ 0 F3 _ NIL F4 _ NIL F5 _ NIL MAXBUFFERS _ 10 IMAGEOPS _ \TEXTIMAGEOPS \TEDITFDEV F1 _ NIL F2 _ 0 F3 _ NIL F4 _ NIL F5 _ NIL MAXBUFFERS _ 10 IMAGEOPS _ \TEDITIMAGEOPS
IMAGEDATA _ NIL))) IMAGEDATA _ NIL)))
(PUTPROPS NEXTPIECE MACRO ((PC) (ffetch (PIECE NEXTPIECE) of PC))) (PUTPROPS NEXTPIECE MACRO ((PC) (ffetch (PIECE NEXTPIECE) of PC)))
(PUTPROPS PREVPIECE MACRO ((PC) (ffetch (PIECE PREVPIECE) of PC))) (PUTPROPS PREVPIECE MACRO ((PC) (ffetch (PIECE PREVPIECE) of PC)))
@@ -440,7 +438,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 BINABLE.PTYPES (LIST THINFILE.PTYPE THINSTRING.PTYPE)) (THIN.PTYPES (LIST THINFILE.PTYPE
THINSTRING.PTYPE)) (FAT.PTYPES (LIST FATFILE2.PTYPE FATSTRING.PTYPE FATFILE1.PTYPE))) THINSTRING.PTYPE)) (FAT.PTYPES (LIST FATFILE2.PTYPE FATSTRING.PTYPE FATFILE1.PTYPE)))
(GLOBALVARS \TEXTIMAGEOPS \TEXTFDEV) (GLOBALVARS \TEXTIMAGEOPS \TEXTFDEV)
(PUTPROP (QUOTE TEDIT-STREAM) (QUOTE IMPORTDATE) (IDATE " 9-Sep-2025 21:49:53")) (PUTPROP (QUOTE TEDIT-STREAM) (QUOTE IMPORTDATE) (IDATE "20-Sep-2025 08:49:36"))
(PUTPROPS \TEDIT.MOUSESTATE MACRO (BUTTON (* ;; (PUTPROPS \TEDIT.MOUSESTATE MACRO (BUTTON (* ;;
"Test to see if only the specified mouse button is down. DOES NOT call GETMOUSESTATE, so the mouse-button info is the same as the last time it was called." "Test to see if only the specified mouse button is down. DOES NOT call GETMOUSESTATE, so the mouse-button info is the same as the last time it was called."
) (SELECTQ (CAR BUTTON) (LEFT (QUOTE (EQ LASTMOUSEBUTTONS 4))) (MIDDLE (QUOTE (EQ LASTMOUSEBUTTONS 1)) ) (SELECTQ (CAR BUTTON) (LEFT (QUOTE (EQ LASTMOUSEBUTTONS 4))) (MIDDLE (QUOTE (EQ LASTMOUSEBUTTONS 1))
@@ -537,7 +535,7 @@ LINELEAD _ 0)
(PUTPROPS FSETPLOOKS MACRO ((PLOOKS FIELD NEWVALUE) (freplace (PARALOOKS FIELD) of PLOOKS with (PUTPROPS FSETPLOOKS MACRO ((PLOOKS FIELD NEWVALUE) (freplace (PARALOOKS FIELD) of PLOOKS with
NEWVALUE))) NEWVALUE)))
(PUTPROPS PARALOOKS! MACRO ((PL) (\DTEST PL (QUOTE PARALOOKS)))) (PUTPROPS PARALOOKS! MACRO ((PL) (\DTEST PL (QUOTE PARALOOKS))))
(PUTPROP (QUOTE TEDIT-LOOKS) (QUOTE IMPORTDATE) (IDATE " 9-Sep-2025 21:48:14")) (PUTPROP (QUOTE TEDIT-LOOKS) (QUOTE IMPORTDATE) (IDATE " 9-Sep-2025 21:55:31"))
(PUTPROP (QUOTE TEDIT-STYLES) (QUOTE IMPORTDATE) (IDATE "28-Jul-2025 23:25:43")) (PUTPROP (QUOTE TEDIT-STYLES) (QUOTE IMPORTDATE) (IDATE "28-Jul-2025 23:25:43"))
(DATATYPE TEDITCARET (TCNOWTIME (* Used to hold the current time, when checking to see if a transition (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 is due) TCTHENTIME (* Time when the next transition is to take place) TCFORCEDDOWN (* TCFORCEDOWN = T
@@ -600,19 +598,9 @@ 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 GETPANEPROP (PANEPROPS P) NEXTPANE))) (GO $$OUT))) by (OR (GETPANEPROP (PANEPROPS I.V.) PREVPANE) (GO
$$OUT))))) $$OUT)))))
(PUTPROPS ALLBUTTONSUP MACRO (NIL (ZEROP (LOGAND 7 LASTMOUSEBUTTONS)))) (PUTPROPS ALLBUTTONSUP MACRO (NIL (ZEROP (LOGAND 7 LASTMOUSEBUTTONS))))
(PUTPROP (QUOTE TEDIT-WINDOW) (QUOTE IMPORTDATE) (IDATE "11-Aug-2025 21:22:37")) (PUTPROP (QUOTE TEDIT-WINDOW) (QUOTE IMPORTDATE) (IDATE "18-Sep-2025 23:09:24"))
(PUTPROP (QUOTE TEDIT-BUTTONS) (QUOTE IMPORTDATE) (IDATE "30-Apr-2025 14:09:18")) (PUTPROP (QUOTE TEDIT-BUTTONS) (QUOTE IMPORTDATE) (IDATE "30-Apr-2025 14:09:18"))
(RPAQQ PTSPERPICA 12) (PUTPROP (QUOTE TEDIT-MENU) (QUOTE IMPORTDATE) (IDATE "10-Sep-2025 17:08:43"))
(RPAQQ PTSPERINCH 72)
(RPAQQ PICASPERINCH 6)
(RPAQQ MICASPERINCH 2540)
(RPAQ PTSPERCM (FQUOTIENT PTSPERINCH 2.54))
(RPAQ PTSPERMICA (FQUOTIENT PTSPERINCH MICASPERINCH))
(RPAQ MICASPERPOINT (FQUOTIENT MICASPERINCH PTSPERINCH))
(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 "28-Jul-2025 23:26:01"))
(PUTPROP (QUOTE TEDIT-FIND) (QUOTE IMPORTDATE) (IDATE "21-Apr-2025 22:42:57")) (PUTPROP (QUOTE TEDIT-FIND) (QUOTE IMPORTDATE) (IDATE "21-Apr-2025 22:42:57"))
(RPAQQ \TEDIT.TTCCODES ((NONE 0) (CHARDELETE 1) (WORDDELETE 2) (DELETE 3) (FUNCTIONCALL 4) (REDO 5) ( (RPAQQ \TEDIT.TTCCODES ((NONE 0) (CHARDELETE 1) (WORDDELETE 2) (DELETE 3) (FUNCTIONCALL 4) (REDO 5) (
UNDO 6) (CMD 7) (NEXT 8) (EXPAND 9) (CHARDELETE.FORWARD 10) (WORDDELETE.FORWARD 11) (PUNCT 20) (TEXT UNDO 6) (CMD 7) (NEXT 8) (EXPAND 9) (CHARDELETE.FORWARD 10) (WORDDELETE.FORWARD 11) (PUNCT 20) (TEXT
@@ -620,7 +608,7 @@ UNDO 6) (CMD 7) (NEXT 8) (EXPAND 9) (CHARDELETE.FORWARD 10) (WORDDELETE.FORWARD
(CONSTANTS \TEDIT.TTCCODES) (CONSTANTS \TEDIT.TTCCODES)
(PUTPROPS \TEDIT.TTC MACRO ((CLASS) (CONSTANT (CADR (ASSOC (QUOTE CLASS) \TEDIT.TTCCODES))))) (PUTPROPS \TEDIT.TTC MACRO ((CLASS) (CONSTANT (CADR (ASSOC (QUOTE CLASS) \TEDIT.TTCCODES)))))
(PUTPROP (QUOTE TEDIT-FNKEYS) (QUOTE IMPORTDATE) (IDATE " 7-Aug-2025 15:00:51")) (PUTPROP (QUOTE TEDIT-FNKEYS) (QUOTE IMPORTDATE) (IDATE " 7-Aug-2025 15:00:51"))
(PUTPROP (QUOTE TEDIT-HCPY) (QUOTE IMPORTDATE) (IDATE "21-Apr-2025 19:07:23")) (PUTPROP (QUOTE TEDIT-HCPY) (QUOTE IMPORTDATE) (IDATE "19-Sep-2025 17:08:05"))
(DATATYPE TEDITHISTORYEVENT ((* ;; "Describes one event on the TEdit edit history list.") THACTION (* (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?") ; "A keyword specifying what the event was") THPOINT (* ; "Was the selection to the left or right?")
THLEN (* ; "The # of chars involved") THCH# (* ; "The starting ch#") THFIRSTPIECE (* ; THLEN (* ; "The # of chars involved") THCH# (* ; "The starting ch#") THFIRSTPIECE (* ;
@@ -669,7 +657,7 @@ REGIONPARENT FULLXPOINTER) (* ; "The parent node for this box, for sub-boxes") R
$$VALUES)) (PROG1 (CAR $$VALUES) (\,@ (FOR V IN (CAR ARGS) collect (COND (V (BQUOTE (SETQ (\, V) (POP $$VALUES)) (PROG1 (CAR $$VALUES) (\,@ (FOR V IN (CAR ARGS) collect (COND (V (BQUOTE (SETQ (\, V) (POP
$$VALUES)))) (T (BQUOTE (SETQ $$VALUES (CDR $$VALUES)))))))))))) $$VALUES)))) (T (BQUOTE (SETQ $$VALUES (CDR $$VALUES))))))))))))
(PUTPROPS TEDIT.VALUES MACRO (ARGS (BQUOTE (LIST (\,@ ARGS))))) (PUTPROPS TEDIT.VALUES MACRO (ARGS (BQUOTE (LIST (\,@ ARGS)))))
(PUTPROP (QUOTE TEDIT-PAGE) (QUOTE IMPORTDATE) (IDATE " 5-Jun-2025 08:24:12")) (PUTPROP (QUOTE TEDIT-PAGE) (QUOTE IMPORTDATE) (IDATE "19-Sep-2025 22:09:03"))
(PUTPROP (QUOTE TEDIT-ABBREV) (QUOTE IMPORTDATE) (IDATE " 6-Sep-2025 00:10:45")) (PUTPROP (QUOTE TEDIT-ABBREV) (QUOTE IMPORTDATE) (IDATE " 6-Sep-2025 00:10:45"))
(PUTPROP (QUOTE TEDIT-TFBRAVO) (QUOTE IMPORTDATE) (IDATE " 7-Sep-2025 11:11:43")) (PUTPROP (QUOTE TEDIT-TFBRAVO) (QUOTE IMPORTDATE) (IDATE " 7-Sep-2025 11:11:43"))
(DECLARE%: DONTCOPY (DECLARE%: DONTCOPY