TEDIT, TEXTOFD: String TEXT is filename
Adds TEXTSTRING as a separate entry to be used when strings are not names but characters to be edited
This commit is contained in:
rmkaplan
247
library/TEXTOFD
247
library/TEXTOFD
@@ -1,11 +1,11 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
|
||||
(FILECREATED "22-Dec-2021 10:29:27" {DSK}<Users>kaplan>Local>medley3.5>my-medley>library>TEXTOFD.;12 182752
|
||||
(FILECREATED " 5-May-2022 15:12:26" {DSK}<Users>kaplan>Local>medley3.5>my-medley>library>TEXTOFD.;18 183046
|
||||
|
||||
:CHANGES-TO (FNS \TEXTBIN \TEXTPEEKBIN)
|
||||
:CHANGES-TO (FNS \TEXTINIT)
|
||||
|
||||
:PREVIOUS-DATE "22-Dec-2021 10:01:53"
|
||||
{DSK}<Users>kaplan>Local>medley3.5>my-medley>library>TEXTOFD.;11)
|
||||
:PREVIOUS-DATE "31-Jan-2022 22:04:01"
|
||||
{DSK}<Users>kaplan>Local>medley3.5>my-medley>library>TEXTOFD.;14)
|
||||
|
||||
|
||||
(* ; "
|
||||
@@ -107,20 +107,22 @@ Copyright (c) 1983-1991, 1993-1995, 1999-2001, 2021 by John Sybalsky & Xerox Cor
|
||||
(RETURN NEWSTREAM])
|
||||
|
||||
(OPENTEXTSTREAM
|
||||
[LAMBDA (TEXT WINDOW START END PROPS) (* ; "Edited 4-May-93 14:38 by jds")
|
||||
[LAMBDA (TEXT WINDOW START END PROPS) (* ;
|
||||
"Edited 31-Jan-2022 17:25 by rmk: A string TEXT is converted here to a stream")
|
||||
(* ; "Edited 4-May-93 14:38 by jds")
|
||||
(* ;
|
||||
"Create a text-type STREAM to describe TEXT. Optionally, connect that to WINDOW for display.")
|
||||
"Create a text-type STREAM to describe TEXT. Optionally, connect that to WINDOW for display.")
|
||||
(PROG* ([WAS-TEXTSTREAM (AND (type? STREAM TEXT)
|
||||
(type? TEXTOBJ (fetch (TEXTSTREAM TEXTOBJ) of TEXT]
|
||||
[TEXTOBJ (COND
|
||||
(WAS-TEXTSTREAM (* ;
|
||||
"If the guy gave us a text stream to edit, use its TEXTOBJ as ours.")
|
||||
(create TEXTOBJ
|
||||
reusing (fetch (TEXTSTREAM TEXTOBJ) of TEXT)
|
||||
\INSERTFIRSTCH _ -1 \INSERTNEXTCH _ -1 \INSERTPCVALID _ NIL))
|
||||
"If the guy gave us a text stream to edit, use its TEXTOBJ as ours.")
|
||||
(create TEXTOBJ reusing (fetch (TEXTSTREAM TEXTOBJ) of TEXT)
|
||||
\INSERTFIRSTCH _ -1 \INSERTNEXTCH _ -1
|
||||
\INSERTPCVALID _ NIL))
|
||||
((type? TEXTOBJ TEXT)
|
||||
(create TEXTOBJ using TEXT \INSERTFIRSTCH _ -1 \INSERTNEXTCH _ -1
|
||||
\INSERTPCVALID _ NIL))
|
||||
\INSERTPCVALID _ NIL))
|
||||
(T (create TEXTOBJ]
|
||||
(TEDIT.GET.FINISHEDFORMS NIL)
|
||||
[PROPS (APPEND PROPS (COPY TEDIT.DEFAULT.PROPS)
|
||||
@@ -129,18 +131,18 @@ Copyright (c) 1983-1991, 1993-1995, 1999-2001, 2021 by John Sybalsky & Xerox Cor
|
||||
(EQ TEXTOBJ (WINDOWPROP WINDOW 'TEXTOBJ]
|
||||
FONT SEL PCTB PC TEXTSTREAM OTEXTOBJ PROP CLEARGET? PARALOOKS PWINDOW)
|
||||
(* ;
|
||||
"Remember if the textobj had a window already.")
|
||||
"Remember if the textobj had a window already.")
|
||||
(replace (TEXTOBJ \WINDOW) of TEXTOBJ with (AND WINDOW (LIST WINDOW)))
|
||||
(* ;
|
||||
"Necessary because some incoming object types depend on knowing where the window is.")
|
||||
"Necessary because some incoming object types depend on knowing where the window is.")
|
||||
(replace (TEXTOBJ LINES) of TEXTOBJ with NIL)
|
||||
|
||||
(* ;; "This is here so if we re-OPENTEXTSTREAM an existing stream/window pair we don't get two sets of line descriptors")
|
||||
|
||||
(for PROPNAME in PROPS by (CDDR PROPNAME) as PROPVAL
|
||||
in (CDR PROPS) by (CDDR PROPVAL) do (TEXTPROP TEXTOBJ PROPNAME PROPVAL)
|
||||
) (* ;
|
||||
"Save the PROPS for later people who'd like to know them")
|
||||
(for PROPNAME in PROPS by (CDDR PROPNAME) as PROPVAL in (CDR PROPS)
|
||||
by (CDDR PROPVAL) do (TEXTPROP TEXTOBJ PROPNAME PROPVAL))
|
||||
(* ;
|
||||
"Save the PROPS for later people who'd like to know them")
|
||||
[SETQ FONT (COND
|
||||
((type? CHARLOOKS (LISTGET PROPS 'FONT))
|
||||
(LISTGET PROPS 'FONT))
|
||||
@@ -152,38 +154,36 @@ Copyright (c) 1983-1991, 1993-1995, 1999-2001, 2021 by John Sybalsky & Xerox Cor
|
||||
(T (OR (LISTGET PROPS 'FONT)
|
||||
DEFAULTFONT]
|
||||
NIL TEXTOBJ] (* ;
|
||||
"Find the default font for this session -- either what the guy tells us, or the global default font")
|
||||
"Find the default font for this session -- either what the guy tells us, or the global default font")
|
||||
(SETQ PARALOOKS (LISTGET PROPS 'PARALOOKS))
|
||||
|
||||
(* ;; "Get the default paragraph looks. This must come before the first piece is created, so its fields can be filled in right.")
|
||||
|
||||
(replace (TEXTOBJ FMTSPEC) of TEXTOBJ
|
||||
with (\TEDIT.UNIQUIFY.PARALOOKS [SETQ PARALOOKS (\TEDIT.PARSE.PARALOOKS.LIST
|
||||
(OR PARALOOKS
|
||||
(create FMTSPEC
|
||||
using
|
||||
(replace (TEXTOBJ FMTSPEC) of TEXTOBJ with (\TEDIT.UNIQUIFY.PARALOOKS
|
||||
[SETQ PARALOOKS
|
||||
(\TEDIT.PARSE.PARALOOKS.LIST
|
||||
(OR PARALOOKS (create FMTSPEC using
|
||||
TEDIT.DEFAULT.FMTSPEC
|
||||
]
|
||||
TEXTOBJ))
|
||||
TEXTOBJ))
|
||||
[COND
|
||||
[WAS-TEXTSTREAM (* ;
|
||||
"We got a TEXTOFD stream to edit; just use it")
|
||||
"We got a TEXTOFD stream to edit; just use it")
|
||||
(SETQ OTEXTOBJ (fetch (TEXTSTREAM TEXTOBJ) of TEXT))
|
||||
(SETQ TEXTSTREAM TEXT)
|
||||
(for SELN in (LIST (fetch (TEXTOBJ SEL) of TEXTOBJ)
|
||||
(fetch (TEXTOBJ SCRATCHSEL) of TEXTOBJ)
|
||||
(fetch (TEXTOBJ SHIFTEDSEL) of TEXTOBJ)
|
||||
(fetch (TEXTOBJ MOVESEL) of TEXTOBJ)
|
||||
(fetch (TEXTOBJ DELETESEL) of TEXTOBJ))
|
||||
(fetch (TEXTOBJ SCRATCHSEL) of TEXTOBJ)
|
||||
(fetch (TEXTOBJ SHIFTEDSEL) of TEXTOBJ)
|
||||
(fetch (TEXTOBJ MOVESEL) of TEXTOBJ)
|
||||
(fetch (TEXTOBJ DELETESEL) of TEXTOBJ))
|
||||
do
|
||||
(* ;; "Make all the selections point to the CURRENT textobj!")
|
||||
|
||||
(* ;; "Make all the selections point to the CURRENT textobj!")
|
||||
|
||||
(COND
|
||||
((EQ OTEXTOBJ (fetch (SELECTION \TEXTOBJ) of SELN))
|
||||
(replace (SELECTION \TEXTOBJ) of SELN with TEXTOBJ))
|
||||
(T (replace (SELECTION SET) of SELN with NIL)))
|
||||
(replace (SELECTION ONFLG) of SELN with NIL))
|
||||
(COND
|
||||
((EQ OTEXTOBJ (fetch (SELECTION \TEXTOBJ) of SELN))
|
||||
(replace (SELECTION \TEXTOBJ) of SELN with TEXTOBJ))
|
||||
(T (replace (SELECTION SET) of SELN with NIL)))
|
||||
(replace (SELECTION ONFLG) of SELN with NIL))
|
||||
(replace (TEXTSTREAM TEXTOBJ) of TEXTSTREAM with TEXTOBJ)
|
||||
(replace (TEXTOBJ STREAMHINT) of TEXTOBJ with TEXTSTREAM)
|
||||
(SETQ PCTB (fetch (TEXTOBJ PCTB) of TEXTOBJ))
|
||||
@@ -193,106 +193,106 @@ Copyright (c) 1983-1991, 1993-1995, 1999-2001, 2021 by John Sybalsky & Xerox Cor
|
||||
(* ; "And mark it not changed.")
|
||||
(COND
|
||||
(FONT (* ;
|
||||
"If a new default font was specified, set it up.")
|
||||
(replace (TEXTOBJ DEFAULTCHARLOOKS) of TEXTOBJ
|
||||
with (\TEDIT.UNIQUIFY.CHARLOOKS FONT TEXTOBJ]
|
||||
((type? TEXTOBJ TEXT) (* ;
|
||||
"We got a TEXTOBJ to edit; fill in the stream, since it might have been GC'd.")
|
||||
"If a new default font was specified, set it up.")
|
||||
(replace (TEXTOBJ DEFAULTCHARLOOKS) of TEXTOBJ with (
|
||||
\TEDIT.UNIQUIFY.CHARLOOKS
|
||||
FONT TEXTOBJ]
|
||||
((type? TEXTOBJ TEXT) (* ;
|
||||
"We got a TEXTOBJ to edit; fill in the stream, since it might have been GC'd.")
|
||||
(SETQ TEXTSTREAM (replace (TEXTOBJ STREAMHINT) of TEXTOBJ
|
||||
with (create TEXTSTREAM
|
||||
TEXTOBJ _ TEXTOBJ)))
|
||||
TEXTOBJ _ TEXTOBJ)))
|
||||
(SETQ PCTB (fetch (TEXTOBJ PCTB) of TEXTOBJ))
|
||||
(for FORM in TEDIT.GET.FINISHEDFORMS do (EVAL FORM)))
|
||||
(T (* ;
|
||||
"Otherwise, create a TEXTOFD to describe the text we're editing.-")
|
||||
"Otherwise, create a TEXTOFD to describe the text we're editing.-")
|
||||
(CL:WHEN (AND TEXT (OR (LITATOM TEXT)
|
||||
(STRINGP TEXT))) (* ; "rmk: Strings are now file names")
|
||||
[SETQ TEXT (OPENSTREAM TEXT 'INPUT 'OLD '((TYPE TEXT])
|
||||
(SETQ TEXTSTREAM (replace (TEXTOBJ STREAMHINT) of TEXTOBJ
|
||||
with (create TEXTSTREAM
|
||||
TEXTOBJ _ TEXTOBJ)))
|
||||
[replace (TEXTOBJ PCTB) of TEXTOBJ
|
||||
with (SETQ PCTB (TEDIT.BUILD.PCTB TEXT TEXTOBJ START END FONT PARALOOKS
|
||||
(LISTGET PROPS 'CLEARGET]
|
||||
TEXTOBJ _ TEXTOBJ)))
|
||||
[replace (TEXTOBJ PCTB) of TEXTOBJ with (SETQ PCTB
|
||||
(TEDIT.BUILD.PCTB TEXT TEXTOBJ START END
|
||||
FONT PARALOOKS (LISTGET PROPS
|
||||
'CLEARGET]
|
||||
|
||||
(* ;; "(setq pc (\\editelt pctb (add1 |\\FirstPieceOffset|)))")
|
||||
|
||||
(SETQ PC (\GETBASEPTR (\FIRSTNODE PCTB)
|
||||
0))
|
||||
(for FORM in TEDIT.GET.FINISHEDFORMS do (EVAL FORM))
|
||||
(replace (TEXTOBJ TEXTLEN) of TEXTOBJ with (fetch (BTREENODE TOTLEN)
|
||||
of PCTB]
|
||||
(replace (TEXTOBJ CARETLOOKS) of TEXTOBJ
|
||||
with (\TEDIT.UNIQUIFY.CHARLOOKS (\TEDIT.CARETLOOKS.VERIFY TEXTOBJ
|
||||
(replace (TEXTOBJ DEFAULTCHARLOOKS)
|
||||
of TEXTOBJ with (
|
||||
(replace (TEXTOBJ TEXTLEN) of TEXTOBJ with (fetch (BTREENODE TOTLEN) of PCTB]
|
||||
(replace (TEXTOBJ CARETLOOKS) of TEXTOBJ with (\TEDIT.UNIQUIFY.CHARLOOKS
|
||||
(\TEDIT.CARETLOOKS.VERIFY
|
||||
TEXTOBJ
|
||||
(replace (TEXTOBJ DEFAULTCHARLOOKS)
|
||||
of TEXTOBJ with (
|
||||
\TEDIT.UNIQUIFY.CHARLOOKS
|
||||
FONT TEXTOBJ)))
|
||||
TEXTOBJ))
|
||||
(replace (TEXTOBJ CARET) of TEXTOBJ with (create
|
||||
TEDITCARET
|
||||
TCCARETDS _
|
||||
(AND WINDOW (WINDOWPROP WINDOW
|
||||
'DSP))
|
||||
TCFORCEUP _ T))
|
||||
FONT TEXTOBJ)))
|
||||
TEXTOBJ))
|
||||
(replace (TEXTOBJ CARET) of TEXTOBJ with (create TEDITCARET
|
||||
TCCARETDS _ (AND WINDOW
|
||||
(WINDOWPROP WINDOW
|
||||
'DSP))
|
||||
TCFORCEUP _ T))
|
||||
(replace (TEXTOBJ TXTREADONLY) of TEXTOBJ with (LISTGET PROPS 'READONLY))
|
||||
(replace (TEXTOBJ TXTTERMSA) of TEXTOBJ with (AND (SETQ PROP
|
||||
(LISTGET PROPS 'TERMTABLE))
|
||||
(fetch TERMSA
|
||||
of PROP)))
|
||||
(replace (TEXTOBJ TXTTERMSA) of TEXTOBJ with (AND (SETQ PROP (LISTGET PROPS 'TERMTABLE))
|
||||
(fetch TERMSA of PROP)))
|
||||
(replace (TEXTOBJ TXTRTBL) of TEXTOBJ with (LISTGET PROPS 'READTABLE))
|
||||
(replace (TEXTOBJ TXTWTBL) of TEXTOBJ with (LISTGET PROPS 'BOUNDTABLE))
|
||||
[COND
|
||||
((LISTGET PROPS 'PAGEFORMAT) (* ;
|
||||
"A default page formatting was supplied. Impose it on the document.")
|
||||
"A default page formatting was supplied. Impose it on the document.")
|
||||
(TEDIT.PAGEFORMAT TEXTOBJ (LISTGET PROPS 'PAGEFORMAT]
|
||||
(SETQ SEL (fetch (TEXTOBJ SEL) of TEXTOBJ))
|
||||
(SETQ PROP (LISTGET PROPS 'SEL)) (* ; "Initial Selection, if any.")
|
||||
(COND
|
||||
((EQ PROP 'DON'T) (* ;
|
||||
"A SEL prop of DON'T means don't make an initial selection")
|
||||
"A SEL prop of DON'T means don't make an initial selection")
|
||||
(replace (SELECTION SET) of SEL with NIL))
|
||||
((type? SELECTION PROP) (* ;
|
||||
"We came in with an explicit initial sel. Set it up.")
|
||||
((type? SELECTION PROP) (* ;
|
||||
"We came in with an explicit initial sel. Set it up.")
|
||||
(\COPYSEL PROP SEL)
|
||||
(replace (SELECTION SET) of SEL with T)
|
||||
(replace (SELECTION \TEXTOBJ) of SEL with TEXTOBJ))
|
||||
((AND (fetch (SELECTION SET) of SEL)
|
||||
(NOT PROP)) (* ;
|
||||
"If we came into this with a valid selection, highlight it.")
|
||||
"If we came into this with a valid selection, highlight it.")
|
||||
(replace (SELECTION \TEXTOBJ) of SEL with TEXTOBJ))
|
||||
(T (* ;
|
||||
"Starting without a selection; let's start with a point selection before the first character.")
|
||||
"Starting without a selection; let's start with a point selection before the first character.")
|
||||
(replace (SELECTION CH#) of SEL with (COND
|
||||
((FIXP PROP))
|
||||
(PROP (CAR PROP))
|
||||
(1)))
|
||||
((FIXP PROP))
|
||||
(PROP (CAR PROP))
|
||||
(1)))
|
||||
(replace (SELECTION CHLIM) of SEL with (COND
|
||||
((FIXP PROP))
|
||||
(PROP (IPLUS (CAR PROP)
|
||||
(CADR PROP)))
|
||||
(1)))
|
||||
((FIXP PROP))
|
||||
(PROP (IPLUS (CAR PROP)
|
||||
(CADR PROP)))
|
||||
(1)))
|
||||
(replace (SELECTION DCH) of SEL with (COND
|
||||
((FIXP PROP)
|
||||
0)
|
||||
(PROP (CADR PROP))
|
||||
(0)))
|
||||
((FIXP PROP)
|
||||
0)
|
||||
(PROP (CADR PROP))
|
||||
(0)))
|
||||
(replace (SELECTION DX) of SEL with 0)
|
||||
(replace (SELECTION POINT) of SEL with 'LEFT)
|
||||
(replace (SELECTION SELKIND) of SEL with 'CHAR)
|
||||
(replace (SELECTION SET) of SEL with (NOT (fetch (TEXTOBJ
|
||||
TXTREADONLY)
|
||||
of TEXTOBJ)))
|
||||
(replace (SELECTION SET) of SEL with (NOT (fetch (TEXTOBJ TXTREADONLY) of TEXTOBJ)))
|
||||
(replace (SELECTION \TEXTOBJ) of SEL with TEXTOBJ)))
|
||||
[COND
|
||||
((fetch (SELECTION SET) of SEL) (* ;
|
||||
"If there's an initial selection, it implies initial caret looks, too.")
|
||||
(replace (TEXTOBJ CARETLOOKS) of TEXTOBJ with (\TEDIT.GET.INSERT.CHARLOOKS
|
||||
TEXTOBJ SEL]
|
||||
((fetch (SELECTION SET) of SEL) (* ;
|
||||
"If there's an initial selection, it implies initial caret looks, too.")
|
||||
(replace (TEXTOBJ CARETLOOKS) of TEXTOBJ with (\TEDIT.GET.INSERT.CHARLOOKS TEXTOBJ SEL
|
||||
]
|
||||
(COND
|
||||
((AND WINDOW (NOT TEXTOBJ.WINDOW.VALID)) (* ;
|
||||
"Only if there's a window to display it in:")
|
||||
"Only if there's a window to display it in:")
|
||||
(replace (TEXTOBJ \WINDOW) of TEXTOBJ with NIL)
|
||||
(\TEDIT.WINDOW.SETUP WINDOW TEXTOBJ TEXTSTREAM PROPS)
|
||||
(* ;
|
||||
"Set up the window, and display the initial text.")
|
||||
"Set up the window, and display the initial text.")
|
||||
)
|
||||
((SETQ PWINDOW (LISTGET PROPS 'PROMPTWINDOW))
|
||||
|
||||
@@ -300,10 +300,10 @@ Copyright (c) 1983-1991, 1993-1995, 1999-2001, 2021 by John Sybalsky & Xerox Cor
|
||||
|
||||
(replace (TEXTOBJ PROMPTWINDOW) of TEXTOBJ with PWINDOW)))
|
||||
(\SETUPGETCH (create EDITMARK
|
||||
PC _ (\GETBASEPTR (\FIRSTNODE PCTB)
|
||||
0)
|
||||
PCOFF _ 0
|
||||
PCNO _ 1)
|
||||
PC _ (\GETBASEPTR (\FIRSTNODE PCTB)
|
||||
0)
|
||||
PCOFF _ 0
|
||||
PCNO _ 1)
|
||||
TEXTOBJ) (* ; "Set the file ptr to 0")
|
||||
(RETURN TEXTSTREAM])
|
||||
|
||||
@@ -676,9 +676,10 @@ Copyright (c) 1983-1991, 1993-1995, 1999-2001, 2021 by John Sybalsky & Xerox Cor
|
||||
(RETURN PC])
|
||||
|
||||
(\TEXTINIT
|
||||
[LAMBDA NIL (* ; "Edited 7-Oct-2021 08:40 by rmk:")
|
||||
[LAMBDA NIL (* ; "Edited 5-May-2022 15:12 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 TEXT streams.")
|
||||
|
||||
(* ;; "TEXT streams make use of the following STREAM fields:")
|
||||
|
||||
@@ -700,7 +701,7 @@ Copyright (c) 1983-1991, 1993-1995, 1999-2001, 2021 by John Sybalsky & Xerox Cor
|
||||
|
||||
(* ;; "(FW8 WORD)")
|
||||
|
||||
(SETQ \TEXTIMAGEOPS (create IMAGEOPS
|
||||
[SETQ \TEXTIMAGEOPS (create IMAGEOPS
|
||||
IMAGETYPE _ 'TEXT
|
||||
IMXPOSITION _ (FUNCTION \TEXTDSPXPOSITION)
|
||||
IMYPOSITION _ (FUNCTION \TEXTDSPYPOSITION)
|
||||
@@ -711,7 +712,8 @@ Copyright (c) 1983-1991, 1993-1995, 1999-2001, 2021 by John Sybalsky & Xerox Cor
|
||||
IMFONTCREATE _ 'DISPLAY
|
||||
IMLINEFEED _ (FUNCTION \TEXTDSPLINEFEED)
|
||||
IMCHARWIDTH _ (FUNCTION \TEXTDSPCHARWIDTH)
|
||||
IMSTRINGWIDTH _ (FUNCTION \TEXTDSPSTRINGWIDTH)))
|
||||
IMSTRINGWIDTH _ (FUNCTION \TEXTDSPSTRINGWIDTH)
|
||||
IMSCALE _ (FUNCTION (LAMBDA NIL 1]
|
||||
(SETQ \TEXTFDEV (create FDEV
|
||||
DEVICENAME _ 'TEXT
|
||||
RESETABLE _ T
|
||||
@@ -780,9 +782,8 @@ Copyright (c) 1983-1991, 1993-1995, 1999-2001, 2021 by John Sybalsky & Xerox Cor
|
||||
(LET ((STREAM (STREAM-ERROR-STREAM CONDITION)))
|
||||
(COND
|
||||
[(AND (BOUNDP 'ERRORPOS)
|
||||
(TEXTSTREAMP STREAM))
|
||||
(* ;
|
||||
"This happened in the error handler, and it happened to a TEdit stream, so try the fix:")
|
||||
(TEXTSTREAMP STREAM)) (* ;
|
||||
"This happened in the error handler, and it happened to a TEdit stream, so try the fix:")
|
||||
(LET ((XCL::RESULT (REOPENTEXTSTREAM STREAM)))
|
||||
(CL:WHEN XCL::RESULT
|
||||
(ENVAPPLY (STKNAME ERRORPOS)
|
||||
@@ -791,7 +792,7 @@ Copyright (c) 1983-1991, 1993-1995, 1999-2001, 2021 by John Sybalsky & Xerox Cor
|
||||
ERRORPOS T T))]
|
||||
(*TEDIT-OLD-STREAM-ERROR-HANDLER*
|
||||
(* ;
|
||||
"Some other kind of stream, so punt to the old handler (if there is one):")
|
||||
"Some other kind of stream, so punt to the old handler (if there is one):")
|
||||
(APPLY* *TEDIT-OLD-STREAM-ERROR-HANDLER* CONDITION])
|
||||
|
||||
(\TEXTMARK
|
||||
@@ -2721,25 +2722,25 @@ Copyright (c) 1983-1991, 1993-1995, 1999-2001, 2021 by John Sybalsky & Xerox Cor
|
||||
(PUTPROPS TEXTOFD COPYRIGHT ("John Sybalsky & Xerox Corporation" 1983 1984 1985 1986 1987 1988 1989
|
||||
1990 1991 1993 1994 1995 1999 2000 2001 2021))
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (2992 53117 (COPYTEXTSTREAM 3002 . 6124) (OPENTEXTSTREAM 6126 . 21003) (REOPENTEXTSTREAM
|
||||
21005 . 21427) (TEDIT.STREAMCHANGEDP 21429 . 21727) (TEXTSTREAMP 21729 . 22043) (TXTFILE 22045 .
|
||||
22490) (\DELETECH 22492 . 33748) (\SETUPGETCH 33750 . 41029) (\TEDIT.REOPEN.STREAM 41031 . 42881) (
|
||||
\TEDIT.COPYTEXTSTREAM.PIECEMAPFN 42883 . 45321) (\TEXTINIT 45323 . 51010) (\TEXTMARK 51012 . 51760) (
|
||||
\TEXTTTYBOUT 51762 . 53115)) (53118 78550 (\INSERTCH 53128 . 76854) (\INSERTCR 76856 . 78548)) (78616
|
||||
98932 (\CHTOPC 78626 . 79815) (\CHTOPCNO 79817 . 81079) (\CLEARPCTB 81081 . 81877) (
|
||||
\CREATEPIECEORSTREAM 81879 . 84853) (\DELETEPIECE 84855 . 85768) (\FINDPIECE 85770 . 86136) (
|
||||
\INSERTPIECE 86138 . 89148) (\MAKEPCTB 89150 . 91065) (\SPLITPIECE 91067 . 98026) (\INSERT.FIRST.PIECE
|
||||
98028 . 98930)) (98984 123222 (\TEXTCLOSEF 98994 . 100221) (\TEXTCLOSEF-SUBTREE 100223 . 100929) (
|
||||
\TEXTDSPFONT 100931 . 101923) (\TEXTEOFP 101925 . 103284) (\TEXTGETEOFPTR 103286 . 103496) (
|
||||
\TEXTGETFILEPTR 103498 . 105561) (\TEXTOPENF 105563 . 106393) (\TEXTOPENF-SUBTREE 106395 . 107196) (
|
||||
\TEXTOUTCHARFN 107198 . 107546) (\TEXTBACKFILEPTR 107548 . 113449) (\TEXTBOUT 113451 . 116799) (
|
||||
\TEDITOUTCCODEFN 116801 . 118067) (\TEXTSETEOF 118069 . 118578) (\TEXTSETFILEPTR 118580 . 119805) (
|
||||
\TEXTDSPXPOSITION 119807 . 120664) (\TEXTDSPYPOSITION 120666 . 121211) (\TEXTLEFTMARGIN 121213 .
|
||||
121696) (\TEXTRIGHTMARGIN 121698 . 122634) (\TEXTDSPCHARWIDTH 122636 . 122874) (\TEXTDSPSTRINGWIDTH
|
||||
122876 . 123116) (\TEXTDSPLINEFEED 123118 . 123220)) (123223 161060 (\TEXTBIN 123233 . 144112) (
|
||||
\TEDIT.TEXTBIN.STRINGSETUP 144114 . 149827) (\TEDIT.TEXTBIN.FILESETUP 149829 . 156215) (
|
||||
\TEDIT.TEXTBIN.NEW.PAGE 156217 . 161058)) (161061 176823 (\TEXTPEEKBIN 161071 . 172564) (
|
||||
\TEDIT.PEEKBIN.NEW.PAGE 172566 . 176821)) (176861 182079 (CGETTEXTPROP 176871 . 177347) (CTEXTPROP
|
||||
177349 . 179693) (GETTEXTPROP 179695 . 180290) (PUTTEXTPROP 180292 . 181617) (TEXTPROP 181619 . 182077
|
||||
(FILEMAP (NIL (2980 53411 (COPYTEXTSTREAM 2990 . 6112) (OPENTEXTSTREAM 6114 . 21173) (REOPENTEXTSTREAM
|
||||
21175 . 21597) (TEDIT.STREAMCHANGEDP 21599 . 21897) (TEXTSTREAMP 21899 . 22213) (TXTFILE 22215 .
|
||||
22660) (\DELETECH 22662 . 33918) (\SETUPGETCH 33920 . 41199) (\TEDIT.REOPEN.STREAM 41201 . 43051) (
|
||||
\TEDIT.COPYTEXTSTREAM.PIECEMAPFN 43053 . 45491) (\TEXTINIT 45493 . 51304) (\TEXTMARK 51306 . 52054) (
|
||||
\TEXTTTYBOUT 52056 . 53409)) (53412 78844 (\INSERTCH 53422 . 77148) (\INSERTCR 77150 . 78842)) (78910
|
||||
99226 (\CHTOPC 78920 . 80109) (\CHTOPCNO 80111 . 81373) (\CLEARPCTB 81375 . 82171) (
|
||||
\CREATEPIECEORSTREAM 82173 . 85147) (\DELETEPIECE 85149 . 86062) (\FINDPIECE 86064 . 86430) (
|
||||
\INSERTPIECE 86432 . 89442) (\MAKEPCTB 89444 . 91359) (\SPLITPIECE 91361 . 98320) (\INSERT.FIRST.PIECE
|
||||
98322 . 99224)) (99278 123516 (\TEXTCLOSEF 99288 . 100515) (\TEXTCLOSEF-SUBTREE 100517 . 101223) (
|
||||
\TEXTDSPFONT 101225 . 102217) (\TEXTEOFP 102219 . 103578) (\TEXTGETEOFPTR 103580 . 103790) (
|
||||
\TEXTGETFILEPTR 103792 . 105855) (\TEXTOPENF 105857 . 106687) (\TEXTOPENF-SUBTREE 106689 . 107490) (
|
||||
\TEXTOUTCHARFN 107492 . 107840) (\TEXTBACKFILEPTR 107842 . 113743) (\TEXTBOUT 113745 . 117093) (
|
||||
\TEDITOUTCCODEFN 117095 . 118361) (\TEXTSETEOF 118363 . 118872) (\TEXTSETFILEPTR 118874 . 120099) (
|
||||
\TEXTDSPXPOSITION 120101 . 120958) (\TEXTDSPYPOSITION 120960 . 121505) (\TEXTLEFTMARGIN 121507 .
|
||||
121990) (\TEXTRIGHTMARGIN 121992 . 122928) (\TEXTDSPCHARWIDTH 122930 . 123168) (\TEXTDSPSTRINGWIDTH
|
||||
123170 . 123410) (\TEXTDSPLINEFEED 123412 . 123514)) (123517 161354 (\TEXTBIN 123527 . 144406) (
|
||||
\TEDIT.TEXTBIN.STRINGSETUP 144408 . 150121) (\TEDIT.TEXTBIN.FILESETUP 150123 . 156509) (
|
||||
\TEDIT.TEXTBIN.NEW.PAGE 156511 . 161352)) (161355 177117 (\TEXTPEEKBIN 161365 . 172858) (
|
||||
\TEDIT.PEEKBIN.NEW.PAGE 172860 . 177115)) (177155 182373 (CGETTEXTPROP 177165 . 177641) (CTEXTPROP
|
||||
177643 . 179987) (GETTEXTPROP 179989 . 180584) (PUTTEXTPROP 180586 . 181911) (TEXTPROP 181913 . 182371
|
||||
)))))
|
||||
STOP
|
||||
|
||||
Reference in New Issue
Block a user