github.com/Interlisp.medley
1
0
Fork 0
mirror of synced 2026-05-10 17:31:11 +00:00
Code Issues Projects Releases Wiki Activity
Files
bbf9f73cda151bec030352f8e71b237b46cb09c2
Interlisp.medley/library/tedit/TEDIT-STREAM.LCOM
rmkaplan d0d9b2329a Cleanup the piece datatype, address a few issues
2026-05-07 20:57:58 -07:00

583 lines
37 KiB
Plaintext
Raw Blame History

This file contains invisible Unicode characters
This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.
This file contains Unicode characters that might be confused with other characters. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.
(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
(FILECREATED " 1-May-2026 08:15:56" ("compiled on " {MEDLEY}<library>tedit>TEDIT-STREAM.;956)
"29-Apr-2026 23:35:41" brecompiled exprs%: nothing in "FULL 29-Apr-2026 ..." dated
"29-Apr-2026 23:35:50")
(FILECREATED " 1-May-2026 08:15:56" {MEDLEY}<library>tedit>TEDIT-STREAM.;956 190971 :EDIT-BY rmk
:CHANGES-TO (RECORDS PIECE) :PREVIOUS-DATE "26-Apr-2026 23:46:38"
{MEDLEY}<library>tedit>TEDIT-STREAM.;955)
\TEDIT.TEXTBIN :D8
(L (0 TSTREAM)) ¼@É@É"@dÊ
jð³<¿I@È@ÉÙÙYdjñª@HÉj ˆ@I
¿H’@ @É*º@kJÈ@Èýñ³Ijñ«@HÉj Xˆ@I
¿H­@É*»@kK@dÊ
jð²¸@ÉmÿÔHÊdlð²@É@ÈÐÈ@@ÈkÔÍ¿dlð²;¿HÉ áHÉ Ø@@ÈlÔÍ¿@È@Èýñ³B@dÉ
¿dlð²-@Ég
µHÉ@@ÈkÔÍ¿dl ð²:¿HÉ @@ÈHÉÔÍ¿@È@Èýñ³Ó@dÉ
¿jð²3HÉ @@ÈkÔÍ¿@È@Èýñ³ž@dÉ
¿oHÊ
(441 \TEDIT.THELP 425 \TEDIT.INSTALL.FILEBUFFER 372 \TEDIT.INSTALL.FILEBUFFER 327 UTF8.BINCODE 287 GETTEXTPROP 261 \TEDIT.INSTALL.FILEBUFFER 117 \TEDIT.INSTALL.FILEBUFFER 108 \TEDIT.INSTALL.PIECE 65 \TEDIT.INSTALL.FILEBUFFER 57 \TEDIT.INSTALL.PIECE)
(418 STREAM 394 STREAM 388 STREAM 365 STREAM 339 STREAM 333 STREAM 304 STREAM 298 STREAM 282 OBJECTBYTE 275 STREAM 254 STREAM 229 STREAM 223 STREAM 192 STREAM 186 STREAM 154 STREAM 148 STREAM 126 STREAM 77 STREAM 38 STREAM 13 STREAM 5 STREAM)
( 432 "\TEXTBIN UNKNOWN PTYPE")
\TEDIT.TEXTPEEKBIN :D8
(L (1 NOERROR 0 TSTREAM)) @É@É"@Ê
jð³I@È@Èýñ³*I@È@ÉÙÙYjñ«@HÉj XŠ@IkÙ
¿H¢± @Ê
jð³@É@ÈÂIjñ³è@HÉj X°ÜHÉZHÊdlðš¿@É@ÈÐÈdlð²¿J áJ ØJ ¿dlð²@Ég
µCJdl ð—¿J lð²Jg
o A‘h@É*»@kK(237 \TEDIT.THELP 226 \PEEKBIN 221 IMAGEOBJPROP 204 UTF8.PEEKCCODEFN 188 GETTEXTPROP 162 \BACKFILEPTR 155 \PEEKBIN 112 \TEDIT.INSTALL.PIECE 75 \TEDIT.INSTALL.FILEBUFFER 64 \TEDIT.INSTALL.PIECE)
(248 STREAM 216 SUBSTREAM 183 OBJECTBYTE 176 STREAM 46 STREAM 13 STREAM 5 STREAM)
( 232 "UNKNOWN PIECE TYPE")
\TEDIT.TEXTBACKFILEPTR :D8
(P 3 PPC P 2 PPC P 1 PCCHARSLEFT P 0 PC I 0 TSTREAM) <01>@É@É@Ê
jð®I@È@ÉÙÙ¹@ÉÉIÙjð²HHd–€KÉ
d³Z´‚±@JdÉkÙ ¿JX±‡[d²ÚÉjð³ÓKÉ Ê0jð²ÉKµÌi°ÉHÊo
²@È@Éñª@IkØ
°?@@ÈHÊo
•jHÉÙ<>mÿÔÍ¿@Ê
jð›@IkØ¿i´nHÊdjð™¿HÉ dlð˜¿@É@ÈÂdlðš¿@É@ÈÐÈdlð²¿HÉ áHÉ äHÉ ¿dlð²@Ég
µHÉdl ð™¿HÉ lðžHÉg
o (382 \TEDIT.THELP 370 IMAGEOBJPROP 352 UTF8.PEEKCCODEFN 332 GETTEXTPROP 306 \BACKFILEPTR 297 \PEEKBIN 246 \PEEKBIN 194 MEMB 164 \TEDIT.INSTALL.FILEBUFFER 140 MEMB 89 \TEDIT.INSTALL.PIECE)
(365 SUBSTREAM 327 OBJECTBYTE 320 STREAM 220 STREAM 178 STREAM 172 STREAM 151 STREAM 100 PIECE 46 STREAM 35 STREAM 13 STREAM 5 STREAM)
( 377 "UNKNOWN PIECE TYPE" 189 (0 2 11 8 9) 135 (0 2 11 8 9))
\TEDIT.TEXTBOUT :D8
(P 1 CHNO P 0 TEXTOBJ I 1 CHAR I 0 TSTREAM) ¡Ad•¿jAñ<41>A ¦A ¿@Ñ@‡@É@ kØHÊ:jð²HÊXjð³IdHÉýñž¿o@
hIHÉñ©@IA °)AIHAHÉ
²H <00>@gIk ¿@I
h(157 \TEDIT.TEXTSETFILEPTR 149 \TEDIT.UPDATE.LINES 135 \TEDIT.PRIMARYPANE 127 \TEDIT.INSERTCH 122 MEMB 108 \TEDIT.RPLCHARCODE 92 ERROR 51 \TEDIT.TEXTGETFILEPTR 22 \ILLEGAL.ARG 15 IMAGEOBJP)
(142 INSERTION 45 TEXTOBJ 38 STREAM 29 TEXTOBJ)
( 86 "FILE NOT OPEN")
\TEDIT.INSTALL.FILEBUFFER :D8
(P 2 PCBYTESLEFT P 1 PFILE P 0 PC I 1 PCCHARSLEFT I 0 TSTREAM) ·@É1HɹHÊo
³oHd@
h
¿IœIgi §@I
¹A¥HÉb¿HÉAÙHÉÚZIHÉJØ
Ii
@IÉ@IÈHÉHÉÚJÙØIÈ»dKñ‘¿KÍ@IÈÍ@@È@AA(116 \PEEKBIN 109 \SETFILEPTR 79 \TEDIT.REOPEN.STREAM 71 \GETSTREAM 56 \TEDIT.THELP 48 \TEDIT.PCTOCH 43 TEXTOBJ 28 MEMB)
(176 STREAM 166 STREAM 160 STREAM 65 INPUT 5 STREAM)
( 35 "FILE BUFFER FOR NON-FILE PIECE" 23 (0 2 11 8 9))
\TEDIT.TEXTOUTCHARFN :D8
(I 1 CHARCODE I 0 TSTREAM) +Al
ð<EFBFBD>@l
@jÍj@A
@dÈkÐÓHIÍI(25 \TEDIT.TEXTBOUT 12 \TEDIT.TEXTBOUT)
NIL
()
\TEDIT.TEXTINCCODEFN :D8
(I 1 COUNTP I 0 STREAM F 0 *BYTECOUNTER*)
A“kc¿@ NIL
NIL
()
\TEDIT.TEXTBACKCCODEFN :D8
(I 1 COUNTP I 0 STREAM F 0 *BYTECOUNTER*) A”mÿc¿@ (12 \TEDIT.TEXTBACKFILEPTR)
NIL
()
\TEDIT.TEXTFORMATBYTESTREAM :D8
(I 1 BYTESTREAM I 0 STREAM) $o A@ʇHIχI(9 \TEDIT.THELP)
(21 STREAM 15 STREAM)
( 4 "TEXT FORMATBYTESTREAM?")
\TEDIT.TEXTFORMATBYTESTRING :D8
(I 2 SCRATCHSTREAM I 1 STRING I 0 TSTREAM) A (5 MKSTRING)
NIL
()
OPENTEXTSTREAMA0001 :D8
(NAME SI::*UNWIND-PROTECT* P 9 FORM P 4 START P 3 PRIMPANE P 2 TEDIT.GET.FINISHEDFORMS P 1 TEXTOBJ P 0 TSTREAM I 0 SI::*CLEANUP-FORMS* F 10 PROPS F 11 WINDOW F 12 TEXT F 13 END F 14 START/PROPS F 15 TEDIT.PAGE.FRAMES) j
Wi
<11>Wd3 ¬´ W¤Wc¿h\Hµ‚±¡W XɹWµzI_¿g_OÉ\µO¾OhNÉ\½NM\¿Mg¿Wµ;W²WHW cšWHW ¿H H IÉT¨IW
¿J±³HLWW
¿°ºWi c¿IW,°£ ¹L¢W–WµWLµ=IW
¿H ¿H [¢±ÿ{W²WKg
ð¢±ÿdK±ÿjkñ²ÃkLkÙI I
¿°°IÉýñ²¦WkØIÉI I
¿°<C2BF>d O µñHIÊXjð¢mÿ€j
H(358 SETFILEPTR 336 EVAL 321 \TEDIT.DELETEPIECES 315 \TEDIT.SELPIECES 292 \TEDIT.DELETEPIECES 286 \TEDIT.SELPIECES 262 GETWINDOWUSERPROP 240 OPENWP 235 \TEDIT.PRIMARYPANE 228 \TEDIT.REOPENTEXTSTREAM 221 \TEDIT.OPENTEXTSTREAM.PROPS 200 TEXTOBJ 185 \TEDIT.OPENTEXTFILE 174 \TEDIT.OPENTEXTSTREAM.PIECES 157 TEDIT.PAGEFORMAT 145 \TEDIT.SCROLL.CARET 139 \TEDIT.OPENTEXTSTREAM.SETUP.SEL 132 \TEDIT.OPENTEXTSTREAM.WINDOW 119 \TEDIT.WINDOW.CREATE 44 \TEDIT.CREATE.TEXTSTREAM 7 TEXTSTREAM)
(257 TYPED-REGION 99 MCCS 66 CHARENCODING 50 STREAM)
()
OPENTEXTSTREAM :D8
(P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 4 PROPS I 3 END I 2 START/PROPS I 1 WINDOW I 0 TEXT F 3 LISPXHIST) +@ jð“hb¿S!g ¿$(36 SI::RESETUNWIND 31 \MVLIST 26 OPENTEXTSTREAMA0001 5 NCHARS)
(21 SI::RESETUNWIND)
()
COPYTEXTSTREAM :D8
(P 11 NEWPC P 10 PC P 9 NEWTEXTOBJ P 8 NEWSTREAM P 7 DP P 1 TEXTOBJ P 0 TSTREAM I 1 CROSSCOPY I 0 ORIGINAL) Z @ 1HÑH‡HɹhdddIÉF @IÉ\°d_O h¼MµLh^<5E>L&½µâN
1 OÃ’OˆOÉ_¿h__¿I °oO
¿OhO ¿OɵOIÊ:jð³Ik°G_HOhg
_µÌOÊlð²³oOÊlð´«OÉô OÉ°šjZÏ:¿JjðhðOIÉ@@OIÉ::OIÉBBOIÉDDOIÉ^^OIÉTTOIÉXXOIÉVVOIÊ8jð¡k€j[Ï8¿KjðhðO(206 \TEDIT.COPYPIECE 164 \TEDIT.INSERTPIECE 153 ERROR 139 \TEDIT.FIRSTPIECE 96 OPENTEXTSTREAM 90 \APPEND2 64 COPY 43 COPY 5 TEXTSTREAM)
(244 IMAGEOBJ 200 COPY 189 PIECE 124 TEXTOBJ 117 STREAM 106 TEXTOBJ 30 TEXTOBJ 23 STREAM 14 TEXTOBJ)
( 225 "Image object does not allow copying" 146 "Piece cannot be copied ")
TEDIT.STREAMCHANGEDP :D8
(I 1 RESET? I 0 STREAM) 6@ Ê,jðhðA²&@ Hh¿HÊ,jð­Hh
¿HjÏ,¿(43 \TEDIT.WINDOW.TITLE 21 TEXTOBJ 5 TEXTOBJ)
NIL
()
TXTFILE :D8
(I 0 TEXTOBJ) @ É,(5 TEXTOBJ)
(10 TEXTOBJ)
()
\TEDIT.REOPENTEXTSTREAM :D8
(P 0 TEXTOBJ I 0 TSTREAM) ]@i
bd´QdÉHh0¿@HÊ:jð¥g„g
¿@g$¿@g&@(61 \SETACCESS 6 TEXTSTREAM)
(87 \TEDIT.TEXTBOUT 82 STREAM 73 \TEDIT.TEXTBIN 68 STREAM 56 BOTH 50 INPUT 39 TEXTOBJ 28 TEXTOBJ 17 STREAM)
()
\TEDIT.OPENTEXTSTREAM.PIECESA0001 :D8
(NAME SI::*UNWIND-PROTECT* P 5 READONLY P 1 PWINDOW P 0 TEXTOBJ I 0 SI::*CLEANUP-FORMS* F 6 TEXT F 7 START F 8 TSTREAM F 9 END F 10 PROPS) QWÃ’WˆWÉAHÉL¹Hg
HjÏ:¿jdðhðHkÏX¿kjðhðHgHHg
§V ³VHWW c ¿jc¿V °)WµjºjJñ¡J€jc¿V WµV »dKñ‘¿Kc¿Hg
³(Hg
³Hg
¬Hg
²VWWWW
°/VWWWW
³VWWWW
¬VWWW ¿HM‘k€j\Ï:¿LjðhðHhHHhHdg
HjÏX¿jdðhð(323 \TEDIT.HISTORYADD 318 \TEDIT.HISTORY.EVENT 281 \TEDIT.GET.UNFORMATTED.FILE 268 \TEDIT.GET.FOREIGN.FILE 251 \TEDIT.GET.FORMATTED.FILE 234 \TEDIT.GET.UNFORMATTED.FILE 217 GETTEXTPROP 205 GETTEXTPROP 192 GETTEXTPROP 179 GETTEXTPROP 158 GETEOFPTR 148 GETEOFPTR 124 GETEOFPTR 111 \TEDIT.CACHEFILE 98 RANDACCESSP 91 GETTEXTPROP 47 GETTEXTPROP)
(313 :Get 212 PLAINTEXT 200 UNFORMATTED 187 UNFORMATTED? 174 CLEARGET 86 CACHE 78 DON'T 42 READONLY 33 TEXTOBJ 24 TEXTOBJ 17 STREAM 6 TEXTOBJ)
()
\TEDIT.OPENTEXTSTREAM.PIECES :D8
(P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 4 PROPS I 3 END I 2 START I 1 TSTREAM I 0 TEXT F 3 LISPXHIST) S!g ¿$A(23 SI::RESETUNWIND 18 \MVLIST 13 \TEDIT.OPENTEXTSTREAM.PIECESA0001)
(8 SI::RESETUNWIND)
()
\TEDIT.OPENTEXTSTREAM.PROPS :D8
(I 1 PROPS I 0 TEXTOBJ) +@A`g`h
@ (40 \TEDIT.OPENTEXTSTREAM.DEFAULTLOOKS 34 PUTTEXTPROPS 29 \APPEND2 24 \APPEND2)
(16 TEDIT.READTABLE 11 READTABLE 6 TEDIT.DEFAULT.PROPS)
()
\TEDIT.OPENTEXTSTREAM.SETUP.SEL :D8
(P 2 SELPROP P 1 SEL P 0 TEXTOBJ I 0 TSTREAM) <@Ñ@‡@É!HɹhºIžIÊjð¢±Hg
ºIkÏ¿hd@h ¿Jgð’±ÛIg¿JÙJI
±ƒJd²-¿Ig¿IJJµjJµgg
°R3 ²IJjgg
°9HÊXjð³IHÉjgg
°Ikjgg
¿Ik
¿HIÊjð§dI
<00>HdÉ@
4¿HÊ:jð–HÊXjð¥IjÏ¿Ii@ I(312 \TEDIT.SHOWSEL 281 \TEDIT.CARETLOOKS.VERIFY 266 \TEDIT.GET.INSERT.CHARLOOKS 245 \TEDIT.UPDATE.SEL 224 \TEDIT.UPDATE.SEL 193 \TEDIT.UPDATE.SEL 168 \TEDIT.UPDATE.SEL 119 \TEDIT.COPYSEL 84 \TEDIT.SHOWSEL 68 GETTEXTPROP)
(274 TEXTOBJ 239 NORMAL 234 LEFT 218 NORMAL 213 RIGHT 187 NORMAL 182 LEFT 162 NORMAL 157 LEFT 134 CHAR 111 SELECTION 102 CHAR 91 DON'T 63 SEL 48 SELECTION 37 SELECTION 30 TEXTOBJ 21 TEXTOBJ 14 STREAM 5 TEXTOBJ)
()
\TEDIT.OPENTEXTSTREAM.WINDOW :D8
(P 3 PANE P 1 FILEPTR P 0 TEXTOBJ I 2 PROPS I 1 TSTREAM I 0 WINDOW) ÌAÑA‡AÉA @µ>Hg
²HHg
L¿Hh¿HÊ,jð¬Hh
¿HjÏ,@AB ¿hdAh ¿hiA ¿HÊ:jð³BHJdò2¿JÉ°,[g
É ¿Kg
ɵÖAI
±ÿz(199 \TEDIT.TEXTSETFILEPTR 182 GETWINDOWPROP 170 \TEDIT.UPCARET 158 GETWINDOWPROP 119 \TEDIT.SHOWSEL 110 \TEDIT.SHOWSEL 100 \TEDIT.WINDOW.SETUP 85 \TEDIT.WINDOW.TITLE 63 GETTEXTPROP 44 GETTEXTPROP 27 \TEDIT.TEXTGETFILEPTR)
(187 PANEPROPS 177 PANEPROPS 163 PANEPROPS 153 PANEPROPS 139 TEXTOBJ 58 PROMPTWINDOW 52 TEXTOBJ 39 PROMPTWINDOW 21 TEXTOBJ 14 STREAM 5 TEXTOBJ)
()
\TEDIT.OPENTEXTSTREAM.DEFAULTLOOKS :D8
(P 2 PARALOOKS P 1 CHARLOOKS P 0 FONT I 0 TEXTOBJ F 3 DEFAULTFONT F 4 TEDIT.DEFAULT.PARALOOKS) ‹0@g
µS X@g
µ
@g
Yd™dh@ µHÃ’HµH Yd@
Y@I@@I4@g
T
@
Z@J:J(125 \TEDIT.UNIQUIFY.PARALOOKS 119 \TEDIT.PARSE.PARALOOKS.LIST 113 GETTEXTPROP 83 \TEDIT.UNIQUIFY.CHARLOOKS 75 \TEDIT.CHARLOOKS.FROM.FONT 57 \TEDIT.PARSE.CHARLOOKS.LIST 46 GETTEXTPROP 33 GETTEXTPROP 21 FONTCREATE 13 GETTEXTPROP)
(132 TEXTOBJ 108 PARALOOKS 99 TEXTOBJ 90 TEXTOBJ 65 CHARLOOKS 41 LOOKS 28 CHARLOOKS 8 FONT)
()
\TEDIT.OPENTEXTFILEA0001 :D8
(P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 TEXT F 3 *TEDIT-EXTENSIONS* F 4 PROPS F 5 SI::NLSETQ-VALUE) Xi@R µR×Ri
ŠRhS µRggogTg'hh hc
g(76 OPENSTREAM 35 FINDFILE-WITH-EXTENSIONS 26 FINDFILE 10 STREAMP)
(85 :NORMAL 64 FORMAT 58 FORMAT 48 OLD 43 INPUT 18 PATHNAME)
( 53 (TYPE TEXT))
\TEDIT.OPENTEXTFILE :D8
(P 3 *CONDITION-HANDLER-BINDINGS* P 2 SI::*NLSETQFLAG* P 1 *PROCEED-CASES* P 0 SI::NLSETQ-VALUE I 2 ERROR I 1 PROPS I 0 TEXT F 4 *PROCEED-CASES* F 5 *CONDITION-HANDLER-BINDINGS*) g@d²cgi µV@d3@ð³@ ®@ç@ ²+`TioUI gð´HµB´
o@
(100 ERROR 72 \TEDIT.OPENTEXTFILEA0001 43 STREAMP 29 STRINGP 14 \GETSTREAM)
(78 :NORMAL 53 SI::NLSETQ-PROCEED-CASE 36 PATHNAME 8 INPUT)
( 94 "File not found:" 61 (CL:ERROR . SI::NLSETQHANDLER))
\TEDIT.CREATE.TEXTSTREAM :D8
(P 5 TSTREAM P 2 TEXTOBJ I 0 PROPS F 6 \TEDITFDEV F 7 \TEDITIMAGEOPS) •``nkØlÚk
HdI¿HdI8¿dj&¿`dkÏ¿dk¿dnÿÿ¿djÏ¿dg¿hdHdI¿hdHdI¿dj¿HdI¿dg¿do¿dj¿!l djÏ
¿djÏ
¿dkÏ0¿dkÏ ¿dV
¿dh¿dj¿dh¿dh¿dh¿dl
Í4¿dW.¿dh0¿dnÿÿÍ5¿dh2¿dg*¿dg&¿dg$¿`»dKÍ¿dj¿dj¿dkÏ ¿djÍ¿dlÏ¿dh¿djÏ¿\dÉ
Éhµg
¿Ldg
¿dJ¿JMÎ.J@
J MJÉj M(401 \TEDIT.INSTALL.PIECE 391 \TEDIT.MAKEPCTB 385 \TEDIT.OPENTEXTSTREAM.PROPS 355 \SETACCESS 342 \EXTERNALFORMAT 25 \ALLOCBLOCK)
(375 TEXTOBJ 362 STREAM 350 BOTH 337 :DEFAULT 328 FDEV 274 FILELINELENGTH 266 \STREAM.NOT.OPEN 257 \STREAM.NOT.OPEN 248 \EOSERROR 136 TEXT 86 LEFT 55 |SELECTIONTYPE#| 10 |THISLINETYPE#| 4 |TEXTOBJTYPE#|)
( 145 (13 12 10 13))
\TEDIT.REOPEN.STREAM :D8
(P 2 PC P 1 NEWSTREAM P 0 TEXTOBJ I 1 PIECESTREAM I 0 TSTREAM) u@ AµHÉ,bgi ‘AAghogAg
hh YH °ZÉAð”JI¿JɵíHÉ,Að“HI,I(79 \TEDIT.FIRSTPIECE 69 OPENSTREAM 58 STREAMPROP 27 \GETSTREAM 5 TEXTOBJ)
(86 PIECE 53 :EXTERNAL-FORMAT 47 FORMAT 36 INPUT 21 INPUT)
( 42 (TYPE TEXT))
\TEDIT.STREAMINITA0012 :D8
NIL kNIL
NIL
()
\TEDIT.STREAMINITA0032 :D8
(I 2 DIMENSION I 1 BITMAP I 0 STREAM) YBdgðŸ¿h@
A ÖdgðŸ¿h@
A Ö³ h@
A Öh@
A ÖB (86 \ILLEGAL.ARG 77 BITMAPHEIGHT 71 DSPSCALE 63 BITMAPWIDTH 57 DSPSCALE 46 BITMAPHEIGHT 40 DSPSCALE 22 BITMAPWIDTH 16 DSPSCALE)
(30 HEIGHT 6 WIDTH)
()
\TEDIT.STREAMINITA0040 :D8
(I 0 STREAM)
@l
(7 \OUTCHAR)
NIL
()
\TEDIT.STREAMINITA0042 :D8
(P 1 A0216 P 0 A0215 I 2 Y I 1 X I 0 STREAM) 3@É.É@AlH@É.É@BlINIL
(37 IMAGEOPS 30 STREAM 12 IMAGEOPS 5 STREAM)
()
\TEDIT.STREAMINITA0044 :D8
(I 0 STREAM)
@l
(7 \OUTCHAR)
NIL
()
\TEDIT.STREAMINITA0075 :D8
(I 5 STREAM I 4 FDEV I 3 OTHERINFO I 2 RECOG I 1 ACCESS I 0 FILE) Eg
E(10 \SETACCESS)
(5 BOTH)
()
\TEDIT.STREAMINITA0107 :D8
(P 1 XCL::RESULT P 0 STREAM I 0 CONDITION F 2 ERRORPOS F 3 *TEDIT-OLD-STREAM-ERROR-HANDLER*) [@Ég ²<H ²4H I´0R IHR mÿRd Rid
S´@kS(79 ENVAPPLY 70 STKNTH 61 SUBST 56 STKARGS 48 STKNAME 36 \TEDIT.REOPENTEXTSTREAM 28 TEXTSTREAMP 20 BOUNDP)
(15 ERRORPOS 5 STREAM-ERROR)
()
\TEDIT.STREAMINIT :D8
(F 0 \TEDITIMAGEOPS F 1 \TEDITFDEV) j`dg¿dg¿dg¿dg
¿dg ¿dg¿dg¿dg,¿dg¿dg4¿dg2¿dg"¿dg0¿dg^¿dg\¿dgZ¿dgX¿dgV¿dgT¿dgR¿dgP¿dgN¿dgL¿dgJ¿dgF¿dgD¿dgB¿dg@¿dg>¿dg<¿dg:¿dg8¿dg6¿dg.¿dg*¿dg(¿dg&¿dg$¿dg ¿dg¿dg¿dg¿dg¿dg¿dg¿dg¿dg¿cgggggggig
`dg¿dkÏ¿dkÏ¿djÏ0¿dg¿dg,¿dg.¿dg¿dg¿dg¿dg ¿dg
¿dg¿dgD¿dg¿dg^¿dg¿dgF¿dgT¿dgR¿dg0¿dgP¿dgV¿dgN¿dg<¿dkÏ@¿djÏP¿djÏ`¿dgb¿dg`¿dgh¿dgH¿dgB¿dg@¿dg>¿dg:¿dg*¿dg ¿dg¿dg¿dg¿cgo
ggg (871 PUTPROP 851 RPAQ? 477 MAKE-EXTERNALFORMAT)
(866 \TEDIT.STREAMINITA0107 861 %%CONDITION-HANDLER 856 XCL:STREAM-NOT-OPEN 841 *TEDIT-OLD-STREAM-ERROR-HANDLER* 831 \GENERIC.RENAMEFILE 822 NILL 813 NILL 804 NILL 795 NILL 786 \GENERIC.READP 777 \GENERIC.BINS 768 \GENERIC.BOUTS 759 NILL 750 \GENERIC.CHARSET 741 :TEDIT 732 NILL 723 NILL 696 \TEDIT.TEXTEOFP 687 \TEDIT.TEXTGETFILEPTR 678 \TEDIT.TEXTSETEOFPTR 669 \TEDIT.TEXTGETEOFPTR 660 \TEDIT.TEXTPEEKBIN 651 \TEDIT.TEXTSETFILEPTR 642 \TEDIT.TEXTBACKFILEPTR 633 \TEDIT.TEXTSETFILEINFO 624 \TEDIT.STREAMINITA0075 615 NILL 606 NILL 597 NILL 588 \GENERATENOFILES 579 NILL 570 NILL 561 NILL 552 \TEDIT.TEXTOPENF 543 \TEDIT.TEXTCLOSEF 534 \TEDIT.TEXTBOUT 525 \TEDIT.TEXTBIN 516 NILL 489 TEDIT 482 |FDEVTYPE#| 471 \TEDIT.TEXTFORMATBYTESTRING 465 CR 460 \TEDIT.TEXTFORMATBYTESTREAM 455 \TEDIT.TEXTOUTCHARFN 450 \TEDIT.TEXTBACKCCODEFN 445 \TEDIT.TEXTPEEKBIN 440 \TEDIT.TEXTINCCODEFN 435 :TEDIT 425 NILL 416 NILL 407 NILL 398 NILL 389 NILL 380 NILL 371 NILL 362 \TEDIT.STREAMINITA0044 353 \TEDIT.STREAMINITA0042 344 \TEDIT.STREAMINITA0040 335 NILL 326 NILL 317 NILL 308 NILL 299 NILL 290 NILL 281 \TEDIT.STREAMINITA0032 272 NILL 263 NILL 254 \DRAWPOLYGON.GENERIC 245 NILL 236 NILL 227 NILL 218 NILL 209 NILL 200 NILL 191 NILL 182 NILL 173 NILL 164 NILL 155 \DRAWPOINT.GENERIC 146 \MEDW.BLTCHAR 137 \MEDW.XOFFSET 128 \MEDW.YOFFSET 119 \TEDIT.TEXTCOLOR 110 \TEDIT.STREAMINITA0012 101 \TEDIT.TEXTDSPSTRINGWIDTH 92 \TEDIT.TEXTDSPCHARWIDTH 83 \TEDIT.TEXTDSPLINEFEED 74 DISPLAY 65 NILL 56 \TEDIT.TEXTDSPFONT 47 \TEDIT.TEXTRIGHTMARGIN 38 \TEDIT.TEXTLEFTMARGIN 29 \TEDIT.TEXTDSPYPOSITION 20 \TEDIT.TEXTDSPXPOSITION 11 TEDIT 4 |IMAGEOPSTYPE#|)
( 846 (CONDITION-HANDLER (QUOTE XCL:STREAM-NOT-OPEN)))
TEDIT.IMAGESTREAM.OPEN :D8
(I 1 OPTIONS I 0 FILE)
@hA (7 OPENTEXTSTREAM)
NIL
()
\TEDIT.TTYBOUT :D8
(P 0 TEXTOBJ I 1 BYTE I 0 TSTREAM F 2 \PRIMTERMSA) W@ÉAjð–@ HÉ<µR¹Alÿñ²IÉ€ŸAIÉ€
µj‚IAÂlålðµ @A
(84 \TEDIT.TEXTOUTCHARFN 62 GETHASH 20 \TEDIT.CHARDELETE)
(55 CHARTABLE 45 CHARTABLE 27 TEXTOBJ 5 STREAM)
()
\TEDIT.TEXTCLOSEF :D8
(P 1 PC P 0 TEXTOBJ I 0 TSTREAM) J@ H °&YÊo
œIɘIÉ ¿IɵÜHÉ, (71 CLOSEF? 51 CLOSEF? 38 MEMB 17 \TEDIT.FIRSTPIECE 5 TEXTOBJ)
(64 TEXTOBJ 24 PIECE)
( 33 (0 2 11 8 9))
\TEDIT.TEXTDSPFONT :D8
(P 2 PANE P 0 TEXTOBJ I 1 NEWFONT I 0 TSTREAM) _@ HÉ4ÉA²I@Ahddg

¿HIdò#¿IÉ°ºAJ
¿Jg
ɵå(82 GETWINDOWPROP 70 DSPFONT 42 TEDIT.CARETLOOKS 37 FONTCREATE 5 TEXTOBJ)
(87 PANEPROPS 77 PANEPROPS 54 TEXTOBJ 31 DISPLAY 16 CHARLOOKS)
()
\TEDIT.TEXTEOFP :D8
(P 1 PCCHARSLEFT I 0 TSTREAM) a@ ÉHjðµ
H´H µA@È@Èýñ³8@É@Ê
jð¯I@È@ÉÙÙY€Ijñhð´@ÉÉhðh(26 \FZEROP 5 TEXTOBJ)
(86 STREAM 67 STREAM 45 STREAM)
()
\TEDIT.TEXTGETEOFPTR :D8
(I 0 TSTREAM) @ÉÉNIL
(12 TEXTOBJ 5 STREAM)
()
\TEDIT.TEXTSETEOFPTRA0001 :D8
(NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 TEXTOBJ F 1 SI::*RESETFORMS* F 2 TAILSEL F 3 LEN F 4 TSTREAM F 5 TEXTLEN F 6 SEL) KggPohPÊXjðhðhQcPjÏX¿jdðhðRSkØUSÙ VT
TR
(72 \TEDIT.DELETE 65 \TEDIT.FIXSEL 58 \TEDIT.UPDATE.SEL)
(9 PUTTEXTPROP 4 PROGN)
( 15 ((QUOTE APPEND) OLDVALUE))
\TEDIT.TEXTSETEOFPTR :D8
(P 6 RESETSTATE P 5 SI::*RESETFORMS* P 4 LISPXHIST P 3 TAILSEL P 2 SEL P 1 TEXTLEN P 0 TEXTOBJ I 1 LEN I 0 TSTREAM F 7 LISPXHIST) W@Ñ@‡@É!HɹHÉZ IAñ´W!g ¿$(80 SI::RESETUNWIND 75 \MVLIST 70 \TEDIT.TEXTSETEOFPTRA0001 47 \TEDIT.COPYSEL)
(65 SI::RESETUNWIND 41 SELECTION 34 TEXTOBJ 21 TEXTOBJ 14 STREAM 5 TEXTOBJ)
()
\TEDIT.TEXTGETFILEPTR :D8
(P 2 PCCHARSLEFT P 1 PC P 0 TEXTOBJ I 0 TSTREAM) s@É@É"I—IHÉð•I“HÉHÉ[jð³>Kµ2@ÉZ@Ê
jð®d@È@ÉÙÙºmÿIH
ØIÉJÙØ ²Ë@HÉj(98 \FZEROP 85 \TEDIT.PCTOCH)
(106 STREAM 71 STREAM 51 STREAM 13 STREAM 5 STREAM)
()
\TEDIT.TEXTSETFILEINFO :D8
(P 1 SEL P 0 TEXTOBJ I 3 DEVICE I 2 VALUE I 1 ATTRIBUTE I 0 TSTREAM) @ÉAgð´ @B
(26 \TEDIT.TEXTSETEOFPTR)
(16 LENGTH 5 STREAM)
()
\TEDIT.TEXTOPENF :D8
(P 0 PC I 1 ACCESS I 0 TSTREAM) E@ °2XÊo
²HÉÊjð™@HÉ
¿HɵÐ@(59 \TEDIT.REOPEN.STREAM 34 MEMB 13 \TEDIT.FIRSTPIECE 8 TEXTOBJ)
(44 STREAM 20 PIECE)
( 29 (0 2 11 8 9))
\TEDIT.TEXTSETEOF :D8
(I 1 EOFPTR I 0 TSTREAM) @Aãâ@AnÿåHIÍINIL
(16 STREAM 5 STREAM)
()
\TEDIT.TEXTSETFILEPTR :D8
(P 3 CH# P 2 PC P 1 START-OF-PIECE P 0 TEXTOBJ I 1 FILEPOS I 0 TSTREAM) U@Ñ@‡@ÉAAHÉñ–A ¿HÉ\jð³&L—L ³AkØ[dHi Z@JKIÕ h(80 \TEDIT.INSTALL.PIECE 69 \TEDIT.CHTOPC 55 \FZEROP 36 \ILLEGAL.ARG)
(21 TEXTOBJ 14 STREAM 5 TEXTOBJ)
()
\TEDIT.TEXTDSPXPOSITION :D8
(P 3 NSPACES P 2 CHARPOS P 1 SPACEWIDTH P 0 WINDOW I 1 XPOSITION I 0 TSTREAM) A@ 1H—AH
l @
Y@ ZIJÖA²AIë JÙ[jñ—K@
¿(61 SPACES 48 FIXR 33 POSITION 26 CHARWIDTH 17 DSPXPOSITION 5 \TEDIT.PRIMARYPANE)
NIL
()
\TEDIT.TEXTDSPYPOSITION :D8
(P 0 WINDOW I 1 YPOSITION I 0 TSTREAM F 1 \#DISPLAYLINES F 2 \CURRENTDISPLAYLINE) "@ H—hH
Q´ Rmÿð£QRÕh(17 DSPYPOSITION 5 \TEDIT.PRIMARYPANE)
NIL
()
\TEDIT.TEXTLEFTMARGIN :D8
(I 1 XPOSITION I 0 TSTREAM) l@ É:ÉØ(7 TEXTOBJ)
(14 PARALOOKS)
()
\TEDIT.TEXTCOLOR :D8
(P 0 CARETLOOKS I 1 VALUE I 0 TSTREAM) 9@Ñ@‡@ÉÉ4HÉA²AHÉð¯@gAh
¿(53 TEDIT.CARETLOOKS)
(44 COLOR 21 TEXTOBJ 14 STREAM 5 TEXTOBJ)
()
\TEDIT.TEXTRIGHTMARGIN :D8
(P 5 NEWPOS P 4 LEFTMAR P 3 RIGHTMAR P 2 PARALOOKS P 0 TEXTOBJ I 1 XPOSITION I 0 TSTREAM) ª@ HɲyHÉ:1JÉ[jð³UKµIAµKKð³üJɼKLñ¦A ¿H`J
dA¿H
:¿KAÙlA@
Û@
¿°¾ ²´hHÉ
YIØmÿØ»°žAµlA@
h@
ÖlA@
Û@
(167 LINELENGTH 160 CHARWIDTH 150 LINELENGTH 143 CHARWIDTH 119 DSPCLIPPINGREGION 108 \FZEROP 100 LINELENGTH 93 CHARWIDTH 79 \TEDIT.UNIQUIFY.PARALOOKS 68 NCREATE2 55 \ILLEGAL.ARG 5 TEXTOBJ)
(62 |PARALOOKSTYPE#|)
()
\TEDIT.TEXTDSPCHARWIDTH :D8
(I 1 CHARCODE I 0 TSTREAM) A@
(11 CHARWIDTH 6 \TEDIT.TEXTDSPFONT)
NIL
()
\TEDIT.TEXTDSPSTRINGWIDTH :D8
(I 1 STRING I 0 TSTREAM) A@
(11 STRINGWIDTH 6 \TEDIT.TEXTDSPFONT)
NIL
()
\TEDIT.TEXTDSPLINEFEED :D8
(I 1 VALUE I 0 TSTREAM) @ È
(10 FONTCREATE 5 \TEDIT.TEXTDSPFONT)
NIL
()
\TEDIT.NTHCHARCODE :D8
(P 1 START-OF-PIECE P 0 TEXTOBJ I 1 N I 0 TSTREAM) +@ÉkAñ³AHÉñ³AHi AIÙ
h(38 \TEDIT.PIECE.NTHCHARCODE 30 \TEDIT.CHTOPC)
(5 STREAM)
()
\TEDIT.PIECE.NTHCHARCODE :D8
(P 4 A0223 P 3 A0222 P 2 A0221 P 1 FILEPOS P 0 PCONTENTS I 1 OFFSET I 0 PC) jAñ’±A@Éýñ´‚±ü@É@Êdlð¤dlðš¿HAkØ
djð²1¿HÉ
ÉNHkJYH@ÉAØ
H HI
¿dlð²6¿HÉ
ÉNHkKYH@ÉAàØ
H áH ØHI
¿dl ð²9¿HÉ
ÉNHkLYH@ÉA@ÉÚØ
H HI
¿dlð‘Hlð²g Hg
g h(265 \TEDIT.THELP 253 IMAGEOBJPROP 242 \TEDIT.THELP 218 \SETFILEPTR 211 UTF8.INCCODEFN 205 \SETFILEPTR 157 \SETFILEPTR 144 \SETFILEPTR 99 \SETFILEPTR 90 \SETFILEPTR 48 NTHCHARCODE)
(260 \TEDIT.PIECE.NTHCHARCODE 248 SUBSTREAM 237 SUBSTREAM? 179 FDEV 172 STREAM 121 FDEV 114 STREAM 68 FDEV 61 STREAM)
()
\TEDIT.RPLCHARCODE :D8
(P 2 OLDCHAR P 1 START-OF-PIECE P 0 TEXTOBJ I 4 DONTDISPLAY I 3 NEWCHARLOOKS I 2 NEWCHARCODE I 1 N I 0 TSTREAM) y@ ³p@Ñ@‡@É!@jÏ
¿jdðhðHAHi AIÙBC
ZHdgAkhdJ

D³H œ@gAk @h(115 \TEDIT.UPDATE.LINES 101 \TEDIT.PRIMARYPANE 92 \TEDIT.HISTORYADD 87 \TEDIT.HISTORY.EVENT 68 \TEDIT.PIECE.RPLCHARCODE 57 \TEDIT.CHTOPC 5 \TEDIT.READONLY)
(108 CHANGED 76 :ReplaceCode 38 STREAM 29 TEXTOBJ 22 STREAM 13 TEXTOBJ)
()
\TEDIT.PIECE.RPLCHARCODE :D8
(P 1 PARALAST P 0 OLDCHAR I 4 NEWCHARLOOKS I 3 NEWCHARCODE I 2 OFFSET I 1 PC I 0 TEXTOBJ) N C@É
YCd²b¿AÊo
²PD–DAÉ ð²GA@Éð³@I³=AÉBkØ
¸AÉBkØC ¿AÊlð¢±ìClÿñ¢±äAlÏ¿Al±ÔC ²2AÊlð²)D–DAÉ ð² AÊlð´AÉôAɸAC±œBdAÉkÙÙjð³¿ABkØ@ ¿AÉ
b¿Bjð¬ABkÙ@ b€Aj
¸C ŸAC¿AlÏ¿Ah°*AC ¿ClÿñšAlÏ¿AlˆAlÏ¿Ak¿Ah¿D²AD œD @
€D ¿I”AkÏH(318 \TEDIT.UNIQUIFY.CHARLOOKS 312 \TEDIT.CHARLOOKS.FROM.FONT 305 FONTP 259 MKSTRING 254 CHARACTER 230 IMAGEOBJP 223 \TEDIT.PIECE.NTHCHARCODE 213 \TEDIT.SPLITPIECE 192 \TEDIT.SPLITPIECE 119 IMAGEOBJP 78 RPLCHARCODE 65 NTHCHARCODE 33 MEMB 11 MEMB)
(156 IMAGEOBJ)
( 28 (3 4))
\TEDIT.NTHCHARLOOKS :D8
(I 1 N I 0 TSTREAM) A@Ñ@‡@É
É (27 \TEDIT.CHTOPC)
(22 TEXTOBJ 15 STREAM 6 TEXTOBJ)
()
\TEDIT.DELETE.SELPIECES :D8
(P 7 PC P 6 PARALOOKS P 4 PC P 2 PREVPC P 1 SELPIECES P 0 TEXTOBJ I 3 DONTCHECK I 2 LEN I 1 FIRSTCHAR I 0 TSTREAM) 
AÃ<00>B¥AÉ b¿AÉb¿@Ñ@‡@É!HÊ:jð´‚±›AdBØmÿØH Y´‚±‡C³HI!Kµ°;¿KɼKɽLÊlð²LÉg@ ¡h‡LdMð²C¿i´=IÉÉ
ZIH
Jµ8ggH HdgAIÉhddI

iÉ\°˜Êjð²ÅJÉJ°_N¿OÊjð•Oɵ鰠(208 \TEDIT.HISTORYADD 203 \TEDIT.HISTORY.EVENT 182 \TEDIT.BTVALIDATE 163 \TEDIT.DELETEPIECES 136 \TEDIT.APPLY.OBJFN 70 \TEDIT.SELPIECES)
(241 PIECE 217 PIECE 189 :Delete 176 END 171 \TEDIT.DELETE.SELPIECES 130 DELETE 112 PIECE 103 PIECE 94 SELPIECES 42 TEXTOBJ 35 STREAM 26 TEXTOBJ 5 SELECTION)
()
\TEDIT.INSERTCH :D8
(P 6 INSERTION P 5 INSERTPC P 4 INSERTPTYPE P 3 PREVPC P 2 ILEN I 3 PARALAST I 2 TEXTOBJ I 1 CH# I 0 CH) ‹ ggB ABÉkØIdHó‘¿Hb@ –@ €kaJjð³$Jµ@B
^dÊjð¯d Œ ²åhNʇlDð’l<04>l\AB
]Bh
MÉ
[d²vLKÊð²nNÊjð¦N ‚NÉKÉdÊjð¥ <00>Éð²HKÉKÉdÊjð¥ <00>ÈØNÊjð¦N ‚NÈÙjð²KÉ BÉ4ð²KÊjð™KJB °i`dLÏ¿dN¿dJ¿BÉ4_¿dO ¿MµKÉ_¿dO¿dkÏ¿dj¿»Ldlð–¿Kk°lð•Kl‰o ¿KMB ¿BKAJ C•KkÏŠBJAØ ¿BM
¿ggB M(391 \TEDIT.BTVALIDATE 355 \TEDIT.INSERTCH.HISTORY 345 \TEDIT.INSERTPIECE 336 \TEDIT.THELP 240 \TEDIT.INSERTCH.EXTEND 207 %%ARRAY-OFFSET 190 %%ARRAY-OFFSET 166 %%ARRAY-BASE 147 %%ARRAY-BASE 114 \TEDIT.ALIGNEDPIECE 89 \FZEROP 83 %%ARRAY-TYPE-NUMBER 69 \TEDIT.INSERTCH.INSERTION 47 NCHARS 40 CL:STRINGP 15 \TEDIT.BTVALIDATE)
(385 END 380 \TEDIT.INSERTCH 247 |PIECETYPE#| 9 BEGIN 4 \TEDIT.INSERTCH)
( 331 "Unexpected PTYPE")
\TEDIT.INSERTCH.HISTORY :D8
(P 0 EVENT I 3 ILEN I 2 CH# I 1 PREVPC I 0 TEXTOBJ) á@ÊFjð©@hH@hh@ÉHHâhX€H²BAHÉð²6HÉdgð§dgð’¿i<C2BF>¿h²HHÉCÔYIHµ@dgBAÉgA

Égð²ÖBHÉÙjð²ÈHgHBHAÉHgHAA(136 \TEDIT.HISTORYADD 131 \TEDIT.HISTORY.EVENT)
(218 TEDITHISTORYEVENT 210 RIGHT 205 TEDITHISTORYEVENT 194 TEDITHISTORYEVENT 185 TEDITHISTORYEVENT 177 :Replace 172 TEDITHISTORYEVENT 159 TEDITHISTORYEVENT 149 :Delete 142 TEDITHISTORYEVENT 124 RIGHT 115 :Insert 96 TEDITHISTORYEVENT 90 TEDITHISTORYEVENT 75 :Replace 67 :Insert 59 TEDITHISTORYEVENT 48 TEDITHISTORYEVENT 34 TEDITHISTORYEVENT 22 TEXTOBJ)
()
\TEDIT.INSERTEOL :D8
(P 1 INPC P 0 TEXTOBJ I 2 TSTREAM I 1 CH# I 0 CH) DBÉHÊ:jð¡hHÊ:jð–B ¿l
AH Y@l
ðšdÉ
–dÉ
kÏI(47 \TEDIT.INSERTCH 37 \TEDIT.CONVERT.TO.FORMATTED)
(12 TEXTOBJ 5 STREAM)
()
\TEDIT.INSERTCH.INSERTION :D8
(P 5 C P 3 INSERTION P 2 FATP P 1 LEN P 0 INSERTSTRING I 1 TEXTOBJ I 0 CH) /
AÉ1@ ¢±Ÿ@l
¹@Êjð¦@ ƒ@ʇlDð´‚±<00>@Q LdÊjð¥ <00>È_¿LdÊjð¥ <00>É_¿OmÿØLl
ؾLdÊj𥠂ʇlDð_¿ONñ³!O—OOÐÈ„OOÂ]lÿñ‘hˆOkØ_°ßi…k¹@lÿñºH²*JHÊjð¦H ƒHʇlDððŸIdHl
ñ¤¿H° Inñ›IhdJ [°%nhdJ XkI »AHIkØmÿH ¿@ ˜Kk@ ‡Kk@ K(299 RPLCHARCODE 290 RPLSTRING 281 CL:STRINGP 272 SUBSTRING 258 SUBSTRING 250 ALLOCSTRING 236 ALLOCSTRING 215 \GETBASEFIXP 195 %%ARRAY-TYPE-NUMBER 121 %%ARRAY-TYPE-NUMBER 106 \GETBASEFIXP 87 %%ARRAY-BASE 68 %%ARRAY-OFFSET 37 %%ARRAY-TYPE-NUMBER 23 \GETBASEFIXP 11 CL:STRINGP)
NIL
()
\TEDIT.INSERTCH.EXTEND :D8
(I 2 TEXTOBJ I 1 ILEN I 0 PC) €@@ÉAÔ@Édl
AÔHlI ¿HlI ¿H–HIh¿@É!HYdÊ kÙààк@IÉð”Iµ i‡IdJð²¿hdÉAÔ¿@AB lй°×(119 \TEDIT.UPDATEPCNODES 52 \PUTBASEFIXP 42 \PUTBASEFIXP 28 \GETBASEFIXP)
(11 PIECE 5 PIECE)
()
\TEDIT.NEXTCHANGEABLE.CHNO :D8
(P 1 PC P 0 FIRSTPIECE I 1 TEXTOBJ I 0 CHNO) L@A
H‹A
kÙIÉd²1YÉ Ê jð´Id²åÉjð³ÞIÉ Ê0jð²ÔIdHð²Å@(17 \TEDIT.PCTOCH 6 \TEDIT.CHTOPC)
(39 CHARLOOKS 31 PIECE)
()
\TEDIT.LASTCHANGEABLE.CHNO :D8
(P 1 PC P 0 FIRSTPIECE I 1 TEXTOBJ I 0 CHNO) P@A
H<>ÉkÙIA
ØIÉ
d²1YÉ Ê jð´Id²åÉjð³ÞIÉ Ê0jð²ÔIdHð²Á@(22 \TEDIT.PCTOCH 6 \TEDIT.CHTOPC)
(43 CHARLOOKS 35 PIECE)
()
\TEDIT.INSTALL.PIECE :D8
(P 2 PCCHARSLEFT P 1 PLEN P 0 PCONTENTS I 2 CHOFFSET I 1 PC I 0 TSTREAM) óAd¢±îÉAÉ"@A@É›@A
b¡hIBÙZ@jÍAÊdjð³dlð®dl ð©dlð¤dl ð™¿@J
°Wdlð¥dlð²D¿@HÊjð¦H ‚HÉ¿@HÊjð¦H ‚HÈBØÍ¿@HÊjð¦H ‚HÈIØ…lð”@kÍ¿@AÊjð§AÊlð‘k€j[Ï
¿Kjðhð@@È@JjJñ™o A(239 \TEDIT.THELP 160 %%ARRAY-OFFSET 137 %%ARRAY-OFFSET 116 %%ARRAY-BASE 88 \TEDIT.INSTALL.FILEBUFFER 38 \TEDIT.FORMATLINE.UPDATELOOKS)
(222 STREAM 211 STREAM 28 STREAM 19 STREAM)
( 234 "INSTALL.PIECE PCCHARSLEFT LESS THAN 0")
TEXTPROP :D8
(P 0 NARGS) 2elHñ–H ¿ka lalHñhðlHñhð´la (47 \TEDIT.TEXTPROP 22 TEXTOBJ 14 \ILLEGAL.ARG)
NIL
()
GETTEXTPROP :D8
(I 1 PROP I 0 TSTREAM) @ A
(11 \TEDIT.TEXTPROP 5 TEXTOBJ)
NIL
()
PUTTEXTPROP :D8
(I 2 VALUE I 1 PROP I 0 TSTREAM) @ AiB (13 \TEDIT.TEXTPROP 5 TEXTOBJ)
NIL
()
GETTEXTPROPS :D8
(P 3 PROP P 0 TEXTOBJ I 1 PROPNAMES I 0 TSTREAM) /@ A"IµJd¢»hƒ»I¹JKHK
h
º°Þ(42 \NCONC2 34 \TEDIT.TEXTPROP 5 TEXTOBJ)
NIL
()
PUTTEXTPROPS :D8
(P 2 PTAIL P 1 TEXTOBJ I 1 PROPS I 0 TSTREAM) ,A@ HZµhAJ'ðœIJiJ ¿J°â(36 \TEDIT.TEXTPROP 6 TEXTOBJ)
NIL
()
TEXTPROP.ADD :D8
(P 0 OLDITEMS I 2 NEWITEM I 1 PROP I 0 TSTREAM) @A
@ABH H(19 PUTTEXTPROP 6 GETTEXTPROP)
NIL
()
\TEDIT.TEXTPROP :D8
(P 3 C I 3 NEWVALUE I 2 SETNEWVALUE I 1 PROP I 0 TEXTOBJ) m@AgðªAdgð²W¿@Ê:jð®@Êjð¥g‚i€hB¢±9@C‘k€jHIÏ:¿I¿@Cgð‘k€jHIÏ¿I¿@ig ¿gð<>@É>B¢±ò@C>¿Adgðž¿@ÉBB¢±Ú@CB¿gð²'@CÉHI<¿IB¢±´@CÉ<¿Adgðž¿@ÉDB¢±•@CD¿gð²"@ÊXjðhðB¢±z@C‘k€jHIÏX¿I¿Adgð²#¿@Ê:0jðhðB¢±O@C‘k€jHIÏ:0¿I¿gð²=@Ê,jðhðB¢±'@h¿C@Ê,jðhðð’±@C
¿@C‘k€jHIÏ,¿I¿Adgð²¿@ÉB¢±æo ¿gð²V@ÊXjð®@Êjð¥g‚i€hB¢±¶@C‘k€jHIÏX¿I¿@Cgð‘k€jHIÏ¿I¿@ig ¿Adgð™¿@BC gð²k@@É°Gd[dl
ð—¿g°*l
ð–g°Kdl
ð–¿g<00>l ð•g…K ¸IµHhZ<>H&¹µºJB¢± @C d£d‘h¿Adgð²(¿@É,´ @É,ÉB¢±ÛC¢±Öo ¿gð²#@É,B¢±ºCµ@C,¿óõC ¿°ìAdgð²¿@ÉTB¢±ŽCæC ¿@CT¿gð›@ÉB²l@C¿Agð›@ÉB²X@C¿@ÉFA'B²@ÉF¨@AhdF¿@ÉFAC ¿µ/A@É\B²&@1A]LÉ\µL_¿MhOÉ\¾ON\¿NC(826 LISTPUT 748 \ILLEGAL.ARG 713 \ILLEGAL.ARG 673 ERROR 616 CHARCODE.DECODE 586 CHARACTER 513 \TEDIT.HISTORY.PROP 493 \TEDIT.HISTORY.PROP 401 ERROR 352 \TEDIT.WINDOW.TITLE 106 \TEDIT.HISTORY.PROP)
(780 CHARFN 760 LOOPFN 741 PAGEREGION 723 PAGEFORMAT 705 STREAM 680 FILESTREAM 651 STREAM 634 FILENAME 579 FORM 569 CR 555 LF 544 EOL 519 PARABREAKCHARS 502 HISTORY 488 OFF 464 QUIET 430 QUIET 408 APPEND 379 LENGTH 310 DIRTY 269 NOTSPLITTABLE 227 DON'TUPDATE 205 BOUNDTABLE 192 TERMTABLEP 168 TERMTABLEP 158 TERMTABLE 136 READTABLE 113 ACTIVE 101 OFF 77 QUIET 43 QUIET 20 READ-ONLY 11 READONLY 5 TEXTOBJ)
( 668 "FILENAME cannot be changed" 396 "TEXT property LENGTH is read-only")
\TEDIT.TEXTOBJ.PROPNAMES :D8
(P 5 DPROPS P 4 EPROPS P 3 TFIELDS I 0 TEXTOBJ F 6 INSPECTDONTSORTFIELDS) °gg µ g
0@ÉF<C389>d¸IµHhZ<>H&¹µïJ0@É\<5C>d¸IµHhZ<>H&¹µïJVið³gV
­L ¼M ½KghLghM
(173 \APPEND2 168 \APPEND2 163 \APPEND2 158 \APPEND2 135 SORT 128 SORT 121 MEMB 36 REMOVE 31 INSPECTABLEFIELDNAMES 26 SYSRECLOOK1 14 RECLOOK)
(150 --DOCPROPS-- 142 --EDITPROPS-- 115 TEXTOBJ 78 TEXTOBJ 45 TEXTOBJ 21 TEXTOBJ 9 TEXTOBJ 4 EDITPROPS)
()
\TEDIT.TEXTOBJ.PROPFETCHFN :D8
(I 1 PROPNAME I 0 TEXTOBJ) NAdgð•gg
²'A@g µg µg @A
(75 GETTEXTPROP 67 RECORDACCESS 55 SYRECLOOK1 43 RECLOOK 29 MEMB 24 RECORDFIELDNAMES)
(62 FETCH 50 TEXTOBJ 38 TEXTOBJ 19 TEXTOBJ 13 ------ 6 --USERPROPS--)
()
\TEDIT.TEXTOBJ.PROPSTOREFN :D8
(I 2 VALUE I 1 PROPNAME I 0 TEXTOBJ) JAgðµ8Ag
²'A@g µ g gB
@AB (71 PUTTEXTPROP 62 RECORDACCESS 50 SYRECLOOK1 38 RECLOOK 24 MEMB 19 RECORDFIELDNAMES)
(55 REPLACE 45 TEXTOBJ 33 TEXTOBJ 14 TEXTOBJ 5 --USERPROPS--)
()
(PRETTYCOMPRINT TEDIT-STREAMCOMS)
(RPAQQ TEDIT-STREAMCOMS ((DECLARE%: EVAL@COMPILE DONTCOPY (EXPORT (RECORDS PIECE TEXTOBJ TEXTSTREAM) (
MACROS NEXTPIECE PREVPIECE PLEN PLAST PTYPE PCONTENTS PCHARLOOKS PPARALOOKS PPARALAST PFPOS PBYTELEN
PNEW PBYTESPERCHAR POBJ) (MACROS SETPC FSETPC GETPC FGETPC) (MACROS THINPIECEP) (MACROS VISIBLEPIECEP
\NEXT.VISIBLE.PIECE \PREV.VISIBLE.PIECE) (MACROS GETTOBJ SETTOBJ FGETTOBJ FSETTOBJ TEXTLEN TEXTSEL
TEXTOBJ!) (MACROS GETTSTR SETTSTR FGETTSTR FSETTSTR TEXTSTREAM!) (CONSTANTS * PTYPES) (GLOBALVARS
\TEXTIMAGEOPS \TEXTFDEV))) (INITRECORDS PIECE TEXTOBJ TEXTSTREAM) (COMS (* ;;
"The BIN-level functions") (FNS \TEDIT.TEXTBIN \TEDIT.TEXTPEEKBIN \TEDIT.TEXTBACKFILEPTR
\TEDIT.TEXTBOUT \TEDIT.INSTALL.FILEBUFFER) (DECLARE%: EVAL@COMPILE DONTCOPY (MACROS \ENDOFPIECEP
\STARTOFPIECEP \ENDOFBUFFERP \STARTOFBUFFERP))) (* ;;
"External format functions: equivalent to BIN-level except for COUNTP") (FNS \TEDIT.TEXTOUTCHARFN
\TEDIT.TEXTINCCODEFN \TEDIT.TEXTBACKCCODEFN \TEDIT.TEXTFORMATBYTESTREAM \TEDIT.TEXTFORMATBYTESTRING) (
* ;; "High-level stream operations") (FNS OPENTEXTSTREAM COPYTEXTSTREAM TEDIT.STREAMCHANGEDP TXTFILE)
(FNS \TEDIT.REOPENTEXTSTREAM \TEDIT.OPENTEXTSTREAM.PIECES \TEDIT.OPENTEXTSTREAM.PROPS
\TEDIT.OPENTEXTSTREAM.SETUP.SEL \TEDIT.OPENTEXTSTREAM.WINDOW \TEDIT.OPENTEXTSTREAM.DEFAULTLOOKS
\TEDIT.OPENTEXTFILE \TEDIT.CREATE.TEXTSTREAM \TEDIT.REOPEN.STREAM) (FNS \TEDIT.STREAMINIT
TEDIT.IMAGESTREAM.OPEN) (ALISTS (IMAGESTREAMTYPES TEDIT)) (* ;; "Is this being used:") (FNS
\TEDIT.TTYBOUT) (INITVARS (*TEDIT-EXTENSIONS* (QUOTE (TEDIT TED TXT TEXT BRAVO NIL)))) (* ;;
"Low-level generic stream operations") (FNS \TEDIT.TEXTCLOSEF \TEDIT.TEXTDSPFONT \TEDIT.TEXTEOFP
\TEDIT.TEXTGETEOFPTR \TEDIT.TEXTSETEOFPTR \TEDIT.TEXTGETFILEPTR \TEDIT.TEXTSETFILEINFO
\TEDIT.TEXTOPENF \TEDIT.TEXTSETEOF \TEDIT.TEXTSETFILEPTR \TEDIT.TEXTDSPXPOSITION
\TEDIT.TEXTDSPYPOSITION \TEDIT.TEXTLEFTMARGIN \TEDIT.TEXTCOLOR \TEDIT.TEXTRIGHTMARGIN
\TEDIT.TEXTDSPCHARWIDTH \TEDIT.TEXTDSPSTRINGWIDTH \TEDIT.TEXTDSPLINEFEED) (* ;; "Access by character")
(FNS \TEDIT.NTHCHARCODE \TEDIT.PIECE.NTHCHARCODE \TEDIT.RPLCHARCODE \TEDIT.PIECE.RPLCHARCODE
\TEDIT.NTHCHARLOOKS) (COMS (* ;; "Editing support") (DECLARE%: EVAL@COMPILE DONTCOPY (CONSTANTS (
INSERTSTRINGLENGTH 512)) (MACROS \INSERTCH.EXTENDABLE)) (FNS \TEDIT.DELETE.SELPIECES \TEDIT.INSERTCH
\TEDIT.INSERTCH.HISTORY \TEDIT.INSERTEOL \TEDIT.INSERTCH.INSERTION \TEDIT.INSERTCH.EXTEND) (FNS
\TEDIT.NEXTCHANGEABLE.CHNO \TEDIT.LASTCHANGEABLE.CHNO)) (FNS \TEDIT.INSTALL.PIECE) (COMS (* ;
"Support for TEXTPROP") (FNS TEXTPROP GETTEXTPROP PUTTEXTPROP GETTEXTPROPS PUTTEXTPROPS TEXTPROP.ADD
\TEDIT.TEXTPROP) (FNS \TEDIT.TEXTOBJ.PROPNAMES \TEDIT.TEXTOBJ.PROPFETCHFN \TEDIT.TEXTOBJ.PROPSTOREFN)
(* ; "For TEXTOBJ inspection") (DECLARE%: DONTCOPY (* ; "Only if the declaration is loaded") (ADDVARS
(INSPECTMACROS (TEXTOBJ \TEDIT.TEXTOBJ.PROPNAMES \TEDIT.TEXTOBJ.PROPFETCHFN \TEDIT.TEXTOBJ.PROPSTOREFN
))))) (DECLARE%: DONTEVAL@LOAD DOCOPY (P (\TEDIT.STREAMINIT))) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE
DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) (LAMA TEXTPROP)))))
(/DECLAREDATATYPE (QUOTE PIECE) (QUOTE (POINTER (BITS 4) POINTER POINTER POINTER POINTER FULLXPOINTER
POINTER POINTER FLAG POINTER FLAG FLAG FLAG XPOINTER BYTE POINTER)) (QUOTE ((PIECE 0 POINTER) (PIECE 0
(BITS . 3)) (PIECE 2 POINTER) (PIECE 4 POINTER) (PIECE 6 POINTER) (PIECE 8 POINTER) (PIECE 10
FULLXPOINTER) (PIECE 12 POINTER) (PIECE 14 POINTER) (PIECE 14 (FLAGBITS . 0)) (PIECE 16 POINTER) (
PIECE 16 (FLAGBITS . 0)) (PIECE 16 (FLAGBITS . 16)) (PIECE 16 (FLAGBITS . 32)) (PIECE 18 XPOINTER) (
PIECE 20 (BITS . 7)) (PIECE 22 POINTER))) (QUOTE 24))
(/DECLAREDATATYPE (QUOTE TEXTOBJ) (QUOTE (POINTER POINTER POINTER POINTER POINTER POINTER POINTER
POINTER POINTER FLAG FLAG POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER
POINTER POINTER POINTER POINTER POINTER FLAG FULLXPOINTER POINTER POINTER POINTER POINTER POINTER FLAG
POINTER FLAG FLAG FLAG FLAG POINTER POINTER POINTER POINTER POINTER POINTER FLAG FLAG POINTER
FULLXPOINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER FLAG FLAG POINTER POINTER POINTER
)) (QUOTE ((TEXTOBJ 0 POINTER) (TEXTOBJ 2 POINTER) (TEXTOBJ 4 POINTER) (TEXTOBJ 6 POINTER) (TEXTOBJ 8
POINTER) (TEXTOBJ 10 POINTER) (TEXTOBJ 12 POINTER) (TEXTOBJ 14 POINTER) (TEXTOBJ 16 POINTER) (TEXTOBJ
16 (FLAGBITS . 0)) (TEXTOBJ 16 (FLAGBITS . 16)) (TEXTOBJ 18 POINTER) (TEXTOBJ 20 POINTER) (TEXTOBJ 22
POINTER) (TEXTOBJ 24 POINTER) (TEXTOBJ 26 POINTER) (TEXTOBJ 28 POINTER) (TEXTOBJ 30 POINTER) (TEXTOBJ
32 POINTER) (TEXTOBJ 34 POINTER) (TEXTOBJ 36 POINTER) (TEXTOBJ 38 POINTER) (TEXTOBJ 40 POINTER) (
TEXTOBJ 42 POINTER) (TEXTOBJ 44 POINTER) (TEXTOBJ 44 (FLAGBITS . 0)) (TEXTOBJ 46 FULLXPOINTER) (
TEXTOBJ 48 POINTER) (TEXTOBJ 50 POINTER) (TEXTOBJ 52 POINTER) (TEXTOBJ 54 POINTER) (TEXTOBJ 56 POINTER
) (TEXTOBJ 56 (FLAGBITS . 0)) (TEXTOBJ 58 POINTER) (TEXTOBJ 58 (FLAGBITS . 0)) (TEXTOBJ 58 (FLAGBITS
. 16)) (TEXTOBJ 58 (FLAGBITS . 32)) (TEXTOBJ 58 (FLAGBITS . 48)) (TEXTOBJ 60 POINTER) (TEXTOBJ 62
POINTER) (TEXTOBJ 64 POINTER) (TEXTOBJ 66 POINTER) (TEXTOBJ 68 POINTER) (TEXTOBJ 70 POINTER) (TEXTOBJ
70 (FLAGBITS . 0)) (TEXTOBJ 70 (FLAGBITS . 16)) (TEXTOBJ 72 POINTER) (TEXTOBJ 74 FULLXPOINTER) (
TEXTOBJ 76 POINTER) (TEXTOBJ 78 POINTER) (TEXTOBJ 80 POINTER) (TEXTOBJ 82 POINTER) (TEXTOBJ 84 POINTER
) (TEXTOBJ 86 POINTER) (TEXTOBJ 88 POINTER) (TEXTOBJ 88 (FLAGBITS . 0)) (TEXTOBJ 88 (FLAGBITS . 16)) (
TEXTOBJ 90 POINTER) (TEXTOBJ 92 POINTER) (TEXTOBJ 94 POINTER))) (QUOTE 96))
(ADDTOVAR IMAGESTREAMTYPES (TEDIT (OPENSTREAM TEDIT.IMAGESTREAM.OPEN) (CREATECHARSET
\CREATECHARSET.DISPLAY)))
(RPAQ? *TEDIT-EXTENSIONS* (QUOTE (TEDIT TED TXT TEXT BRAVO NIL)))
(\TEDIT.STREAMINIT)
NIL
Reference in New Issue View Git Blame Copy Permalink