github.com/Interlisp.medley
1
0
Fork 0
mirror of synced 2026-05-27 15:08:47 +00:00
Code Issues Projects Releases Wiki Activity
Files
ee4a767e728d1d723d5d0dafd3993cea04f7995d
Interlisp.medley/library/tedit/TEDIT-FILE.LCOM
rmkaplan 406b509b38 Rmk185 tedit window and process glitches (#2604) 
* Substantive changes aimed to improve behavior of secondary selections as mouse moves around the screen, and to make sure the process does not reopen an inactive window after it has been deactivated and closed.

* Line-selection requires a click in the line-select region, just moving the mouse there doesn't change the current selection.

* A few other minor bug fixes
---------

Co-authored-by: Nick Briggs <nicholas.h.briggs@gmail.com>
2026-05-20 18:51:55 -07:00

618 lines
40 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 "10-May-2026 20:54:51" ("compiled on " {MEDLEY}<library>TEDIT>TEDIT-FILE.;685)
" 5-May-2026 11:14:53" brecompiled exprs%: \TEDIT.GET.FORMATTED.FILE in "FULL 5-May-2026 ..." dated
" 5-May-2026 11:15:02")
(FILECREATED "10-May-2026 20:54:51" {MEDLEY}<library>TEDIT>TEDIT-FILE.;685 174952 :EDIT-BY rmk
:CHANGES-TO (FNS \TEDIT.GET.FORMATTED.FILE) :PREVIOUS-DATE "29-Apr-2026 23:49:14"
{MEDLEY}<library>TEDIT>TEDIT-FILE.;684)
TEDIT.GETA0001A0002 :D8
(NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 TEXTOBJ F 1 TSTREAM F 2 MAINWINDOW F 3 NTEXTOBJ F 4 PROPS F 5 SI::*RESETFORMS* F 6 ACTIVE F 7 TEDITCREATED F 8 NTSTREAM F 9 UNFORMATTED? F 10 FSTREAM) Ý gPÉLgð©PÉLµ` hhUc
hdQh P Pg
c P cd²P ¿Rg
c¿W›giTc¿WRhdT
cdÉcQSSQÎ.Qj
R²$S ¿RgW ¿RgQ ¿V´Q (218 TEDIT 208 PUTWINDOWPROP 195 PUTWINDOWPROP 181 \TEDIT.UPDATE.TITLE 172 \TEDIT.TEXTSETFILEPTR 135 OPENTEXTSTREAM 105 GETWINDOWUSERPROP 93 TEDIT.KILL 82 \TEDIT.MAINW 74 GETTEXTPROP 63 \TEDIT.TEXTCLOSEF 57 \TEDIT.SHOWSEL 39 TTYDISPLAYSTREAM)
(202 TEXTSTREAM 188 TEDITCREATED 162 TEXTOBJ 153 STREAM 143 STREAM 116 CLEARGET 100 TEDITCREATED 69 ACTIVE 34 PROMPTWINDOW 25 TEXTOBJ 17 DON'T 10 TEXTOBJ 4 TTYDISPLAYSTREAM)
()
TEDIT.GETA0001 :D8
(NAME SI::*UNWIND-PROTECT* P 11 RESETSTATE P 10 SI::*RESETFORMS* P 9 LISPXHIST P 8 TEDITCREATED P 7 NTEXTOBJ P 6 NTSTREAM P 5 PROC P 4 ACTIVE P 3 MAINWINDOW P 2 GETFN P 1 FSTREAM P 0 TEXTOBJ I 0 SI::*CLEANUP-FORMS* F 12 FILE F 13 TSTREAM F 14 SI::*RESETFORMS* F 15 LISPXHIST) ( W <11>oHo
hWcHÊ,jð³H ¿oiHÉL ¡hWµ HoHg
µH cd®Hoid hHg
Z²WW glJgð³×W Yd <00>Igi ³%HgW ¿HWo
i hW! g ¿$J²WHÉ, glJW(281 FULLNAME 258 SI::RESETUNWIND 253 \MVLIST 248 TEDIT.GETA0001A0002 231 TEDIT.PROMPTPRINT 225 CONCAT 211 PUTTEXTPROP 196 \GETSTREAM 183 STREAMP 176 \TEDIT.OPENTEXTFILE 151 FULLNAME 139 GETTEXTPROP 126 TEDIT.PROMPTPRINT 109 \TEDIT.MAKEFILENAME 104 TEDIT.GETINPUT 99 \TEDIT.LIKELY.FILENAME 91 GETTEXTPROP 67 MOUSECONFIRM 47 TEDIT.PROMPTCLEAR 25 \TEDIT.MARKACTIVE 6 TEXTOBJ)
(286 AFTER 274 TEXTOBJ 243 SI::RESETUNWIND 204 LASTGETFILENAME 190 INPUT 166 DON'T 156 BEFORE 134 GETFN 86 LASTGETFILENAME 60 TEXTOBJ)
( 220 " not found--aborted" 119 "No input file--aborted" 80 "GET from: " 53 "Not saved yet; LEFT go Get anyway."
20 "Get" 14 (PROGN (\TEDIT.MARKINACTIVE OLDVALUE)))
TEDIT.GET :D8
(P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 3 PROPS I 2 UNFORMATTED? I 1 FILE I 0 TSTREAM F 3 LISPXHIST) &@ bS!g ¿$(31 SI::RESETUNWIND 26 \MVLIST 21 TEDIT.GETA0001 5 TEXTSTREAM)
(16 SI::RESETUNWIND)
()
TEDIT.FORMATTEDFILEPA0001 :D8
(NAME SI::*UNWIND-PROTECT* P 0 STREAM I 0 SI::*CLEANUP-FORMS* F 1 FILE F 2 SI::*RESETFORMS*) ^Qgi H²ggQohQ °!oQ –Q €Qg
XhRc¿H (91 \TEDIT.GET.TRAILER 76 OPENSTREAM 64 FULLNAME 57 STREAMP 44 GETFILEPTR 11 GETSTREAM)
(71 INPUT 27 SETFILEPTR 22 PROGN 5 INPUT)
( 51 (PROGN (CLOSEF? OLDVALUE)) 33 (OLDVALUE))
TEDIT.FORMATTEDFILEP :D8
(P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 0 FILE F 3 LISPXHIST) !@´S!g ¿$(26 SI::RESETUNWIND 21 \MVLIST 16 TEDIT.FORMATTEDFILEPA0001)
(11 SI::RESETUNWIND)
()
TEDIT.FILEDATE :D8
(P 0 IDATE I 1 INTEGER I 0 FILE) @ l
H´ A‘HH (29 GDATE 12 NTH 5 TEDIT.FORMATTEDFILEP)
NIL
()
TEDIT.INCLUDEA0001 :D8
(NAME SI::*UNWIND-PROTECT* P 6 NDCSTREAM P 5 FTSTREAM P 4 WASOPEN P 3 FSEL P 2 TSEL P 1 FROMFILE P 0 TOOBJ I 0 SI::*CLEANUP-FORMS* F 7 START F 8 END F 9 TSTREAM F 10 FILE F 11 SI::*RESETFORMS* F 12 PLAINTEXT F 13 *TEDIT-EXTENSIONS* F 14 SAFE) üWÉWRoHo
hWcHÉZdÊjð<6A>Hoi hHhJÉ ³$Iµ#Ho
YµHoi h ³*I ³"IhW ³HIo
id hW£jc¿W®Wg
c¿WWñžHoid hW³~Igi “i¼°Igho ¹ggg ¾I ›INWW ŠINWW ¿L¦I ¿N ¿jc¿Ng
c¿NY€Igi ³&Ig
¹HdghdddI

¿IhWWgHJ
gHÉ:gWh
]d É [dkM Ég KJMW KÉ (502 \TEDIT.COPY 492 \TEDIT.UPDATE.SEL 480 TEXTOBJ 471 \TEDIT.COPYSEL 454 TEXTOBJ 447 OPENTEXTSTREAM 414 \TEDIT.GET.INSERT.CHARLOOKS 395 \TEDIT.HISTORYADD 390 \TEDIT.HISTORY.EVENT 371 OPENSTREAM 358 \GETSTREAM 340 GETFILEINFO 324 CLOSEF 317 CLOSEF 308 COPYCHARS 296 COPYBYTES 284 \TEDIT.GET.TRAILER 277 OPENSTREAM 256 OPENSTREAM 234 \GETSTREAM 216 TEDIT.PROMPTPRINT 194 GETFILEINFO 170 TEDIT.PROMPTPRINT 163 CONCAT 149 FINDFILE-WITH-EXTENSIONS 138 FINDFILE 130 STREAMP 123 TEDIT.PROMPTPRINT 108 \TEDIT.MAKEFILENAME 103 TEDIT.GETINPUT 87 \TEDIT.READONLY 75 TEDIT.PROMPTPRINT 29 \TEDIT.MARKACTIVE)
(487 LEFT 466 SELECTION 459 TEXTOBJ 432 PLAINTEXT 425 TEXTOBJ 419 PARALOOKS 407 FONT 379 :Closefile 366 INPUT 352 INPUT 335 LENGTH 272 NEW 267 OUTPUT 262 {NODIRCORE} 245 INPUT 228 INPUT 189 LENGTH 57 SELECTION 50 SELECTION 43 TEXTOBJ 6 STREAM)
( 251 ((TYPE TEXT)) 209 "Negative number of characters to include--aborted" 158 " not found--include aborted"
117 "No file to include--aborted]" 98 "Include from: " 69 "Please select a destination for the included text"
24 "Include" 18 (PROGN (\TEDIT.MARKINACTIVE OLDVALUE)))
TEDIT.INCLUDE :D8
(P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 5 PLAINTEXT I 4 SAFE I 3 END I 2 START I 1 FILE I 0 TSTREAM F 3 LISPXHIST) &@ bS!g ¿$(31 SI::RESETUNWIND 26 \MVLIST 21 TEDIT.INCLUDEA0001 5 TEXTSTREAM)
(16 SI::RESETUNWIND)
()
TEDIT.RAW.INCLUDE :D8
(I 4 SAFE I 3 END I 2 START I 1 INFILE I 0 TSTREAM) @ABCDi
(11 TEDIT.INCLUDE)
NIL
()
TEDIT.PUTA0001 :D8
(NAME SI::*UNWIND-PROTECT* P 7 FORM P 6 PUTSTRING P 5 NEWEXTFORMAT P 4 OLDEXTFORMAT P 3 PUTFN P 2 NEWPIECES P 1 CHARSTREAM P 0 TEXTOBJ I 0 SI::*CLEANUP-FORMS* F 8 FILE F 9 SI::*RESETFORMS* F 10 UNFORMATTED? F 11 TSTREAM F 12 FORCENEW F 13 QUIET F 14 FORMAT) ŽWÉaHg
[²+WW glKgðžHoid hHÉjñ³ Hoo lYð´‚±NW ¢±ƒWgi ²sW¹HÉ, ´HÉ,g
\WµHg
µ
Lµg]oHo
hWcoWgggW¢±Ìg±ÉW³=H ²1Hg
´%Hoo k
gð€ic¿Wµ]W³9Hg
²,Hoo k
gð—gc¿HoW¨HW
€h c<10>iðšHW
c¿W’±þãHoid hghogMhh YhWcg`g hhWcW³!oI o ¾HNi ¿WIWMi
YHg
<00>dO µñK²WI glK¿W³HNo
i ¿Wgð›Hgh I(650 TEXTPROP 628 TEDIT.PROMPTPRINT 622 CONCAT 595 FULLNAME 579 EVAL 566 GETTEXTPROP 554 TEDIT.PUT.STREAM 540 TEDIT.PROMPTPRINT 531 CONCAT 521 FULLNAME 496 \TEDIT.PUTRESET 466 OPENSTREAM 433 TEDIT.PROMPTPRINT 411 \TEDIT.LIKELY.FILENAME 397 \TEDIT.MAKEFILENAME 392 TEDIT.GETINPUT 385 \TEDIT.LIKELY.FILENAME 353 U-CASE 348 NTHCHAR 342 TEDIT.GETINPUT 324 TEXTPROP 294 U-CASE 289 NTHCHAR 283 TEDIT.GETINPUT 265 GETTEXTPROP 252 \TEDIT.FORMATTEDSTREAMP 198 \TEDIT.MARKACTIVE 171 GETTEXTPROP 155 STREAMPROP 140 STREAMP 127 \GETSTREAM 110 STREAMP 94 CHCON1 89 TEDIT.GETINPUT 64 TEDIT.PROMPTPRINT 34 FULLNAME 22 GETTEXTPROP)
(644 TEMPLATE 636 DETEMPLATE 600 AFTER 561 TEDIT.PUT.FINISHEDFORMS 490 DON'T 485 \RUNNING.PROCESS 480 \TEDIT.PUTRESET 453 FORMAT 440 BINARY 365 DETEMPLATE 358 N 319 TEMPLATE 299 N 260 CLEARGET 239 TEXT 228 TYPE 223 NEW 218 OUTPUT 181 :DEFAULT 166 OUTPUT-FORMAT 150 FORMAT 121 OUTPUT 49 DON'T 39 BEFORE 17 PUTFN 6 STREAM)
( 617 "done" 526 "..." 515 "Put to " 448 (LINELENGTH T) 426 "No output file--aborted" 374 "Put to: " 337
"No" 332 "Overwrite template? " 278 "No" 273 "Convert plaintext to formatted file? " 211 (AND RESETSTATE (DELFILE (CLOSEF? OLDVALUE)))
193 "Put" 187 (PROGN (\TEDIT.MARKINACTIVE OLDVALUE)) 84 "Yes" 79 "Document is empty. Save anyway? " 57
"This document cannot be saved")
TEDIT.PUT :D8
(P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 5 QUIET I 4 FORMAT I 3 UNFORMATTED? I 2 FORCENEW I 1 FILE I 0 TSTREAM F 3 LISPXHIST) @@ bd gðœ@oi S!g ¿$(57 SI::RESETUNWIND 52 \MVLIST 47 TEDIT.PUTA0001 32 TEDIT.PROMPTPRINT 13 \TEDIT.READONLY 5 TEXTSTREAM)
(42 SI::RESETUNWIND 18 READONLY)
( 26 "Cannot save a read-only text-stream--aborted")
TEDIT.PUT.STREAMA0001 :D8
(NAME SI::*UNWIND-PROTECT* P 2 OPENEDHERE P 1 NEWPIECES P 0 TEXTOBJ I 0 SI::*CLEANUP-FORMS* F 3 DESTSTREAM F 4 UNFORMATTED? F 5 TSTREAM F 6 SI::*RESETFORMS* F 7 EXTERNALFORMAT F 8 CONTINUE) ôU !Sgi ³$oSgho chVc ¿iºW<0E>SgW ¿HSTW YW¢±‰S T³S gSi
¿Sg
cdUI Sj
Si
HÉ,˜HÉ, ¿HS,HjÏ,¿jdðhðHS
Hdg
HgT SJ²ýS µS (241 FULLNAME 233 CLOSEF? 222 PUTTEXTPROP 210 \TEDIT.HISTORYADD 205 \TEDIT.HISTORY.EVENT 193 \TEDIT.UPDATE.TITLE 170 CLOSEF? 158 \PEEKBIN 151 SETFILEPTR 144 \TEDIT.INSERT.NEWPIECES 134 OPENSTREAM 122 SETFILEINFO 117 TEDIT.FILEDATE 105 FULLNAME 96 CLOSEF? 83 \TEDIT.PUT.PCTB 72 STREAMPROP 44 OPENSTREAM 20 \GETSTREAM 5 TEXTOBJ)
(216 CLEARGET 200 :Put 129 INPUT 110 ICREATIONDATE 65 FORMAT 33 OUTPUT 14 OUTPUT)
( 39 (LINELENGTH T) 27 (AND RESETSTATE (DELFILE (CLOSEF? OLDVALUE))))
TEDIT.PUT.STREAM :D8
(P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 4 CONTINUE I 3 EXTERNALFORMAT I 2 UNFORMATTED? I 1 DESTSTREAM I 0 TSTREAM F 3 LISPXHIST) S!g ¿$(23 SI::RESETUNWIND 18 \MVLIST 13 TEDIT.PUT.STREAMA0001)
(8 SI::RESETUNWIND)
()
\TEDIT.GET.FOREIGN.FILE :D8
(P 8 FILETYPE P 4 FTEXTOBJ P 3 FSTREAM P 2 USERTEMP P 1 USERFILEFORMAT P 0 TTEXTOBJ I 4 PROPS I 3 END I 2 START I 1 TSTREAM I 0 TEXT) Š AÉa`OµYhYd²R¾@ADJBClN[d²@ ´9AdKð³3¿K \ hH ¿HLÉ¿HLÉTT¿HLÉ::¿HLÉ@@A_½@ADlMZ“O°™O_°Ž(80 \TEDIT.INSERTPIECES 73 \TEDIT.FIRSTPIECE 67 TEXTOBJ 52 TEXTSTREAMP)
(15 TEDIT.INPUT.FORMATS 5 STREAM)
()
\TEDIT.GET.UNFORMATTED.FILEA0001 :D8
(NAME SI::*UNWIND-PROTECT* P 4 PIECES P 3 DEFAULTPARALOOKS P 2 DEFAULTCHARLOOKS P 1 FORMAT P 0 TEXTOBJ I 0 SI::*CLEANUP-FORMS* F 7 STREAM F 8 START F 9 END F 10 SI::*RESETFORMS* F 11 TSTREAM) rgWgWgg hhdWcWW
WÉWg
RHgi HÉ@ZHÉ:[Idgð²!¿Wgi žWg
c¿IgðªIdgð²¿WWWJK
±´gð²WWWJK
±›Igð²YWgi žWg
c¿`dW¿dW¿WWÙâ½dM¿dJ ¿djÏ¿dK¿dlÏ¿dl°7`dW¿dW¿WWÙ¾dN¿dJ ¿djÏ¿dK¿djÏ¿dk¿\dhH (367 \TEDIT.INSERTPIECES 241 COPYFILE 228 \IOMODEP 203 \TEDIT.GET.UNFORMATTED.FILE.UTF8 178 \TEDIT.GET.UNFORMATTED.FILE.MCCS 142 COPYFILE 129 \IOMODEP 87 PUTTEXTPROP 72 STREAMPROP 51 \SETFILEPTR 28 STREAMPROP)
(307 |PIECETYPE#| 249 |PIECETYPE#| 236 {NODIRCORE} 222 OUTPUT 212 :STRING 186 :UTF-8 160 :XCCS 151 :MCCS 137 {NODIRCORE} 123 OUTPUT 112 :STRING 102 TEXTOBJ 93 TEXTOBJ 81 CLEARGET 67 FORMAT 58 STREAM 23 NILL 18 ENDOFSTREAMOP 11 ENDOFSTREAMOP 4 STREAMPROP)
()
\TEDIT.GET.UNFORMATTED.FILE :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 STREAM F 3 LISPXHIST) S!g ¿$(23 SI::RESETUNWIND 18 \MVLIST 13 \TEDIT.GET.UNFORMATTED.FILEA0001)
(8 SI::RESETUNWIND)
()
\TEDIT.GET.FORMATTED.FILE :D8
(P 5 PC P 4 PROPS P 3 IDATE P 2 PCCOUNT P 1 TRAILER P 0 TEXTOBJ I 4 PROPS I 3 END I 2 START I 1 TSTREAM I 0 TEXT) ÈAÑA‡AÉ@C
BI´‚±›HhTHI\IZIdlð²¿@AJBC
hH °@dlð<>¿@AJBC
°-dkð<6B>¿@AJBC
°jð›@AJBC
‰o ¿H ]µgHÉ\gð¥A HkÏ¿°â(189 \TEDIT.MCCS.TRANSLATE 163 \TEDIT.LASTPIECE 156 \TEDIT.THELP 145 \TEDIT.GET.PCTB0 129 \TEDIT.GET.PCTB1 111 \TEDIT.GET.PCTB2 92 \TEDIT.INSERTPIECES 85 \TEDIT.GET.PIECES3 28 \TEDIT.GET.TRAILER)
(181 MCCS 171 CHARENCODING 44 TEXTOBJ 21 TEXTOBJ 14 STREAM 5 TEXTOBJ)
( 151 "File format version incompatible with this version of TEdit.")
\TEDIT.FORMATTEDSTREAMP :D8
(P 5 PC P 4 TENTATIVE P 3 DEFAULTPLOOKS P 2 DEFAULTCLOOKS P 1 FORMATLEVEL P 0 TEXTOBJ I 0 TSTREAM) À@ jHÉ@HÉ:Hg
H °]MÊjð£MÉ©KMÉ
«Idlñ³=¿l°8JMÉ
™L²MÊjð«Idlñ³¿l°MÊo
—Idkñ¡¿k¹Mɵ Ijð²h]Êlð²<C3B0>lY°éIdlð•glð•gIlð´g(116 MEMB 79 \TEDIT.EQCLOOKS 57 \TEDIT.EQFMTSPEC 35 \TEDIT.FIRSTPIECE 26 GETTEXTPROP 5 TEXTOBJ)
(189 IMAGEOBJ 177 PARALOOKS 167 CHARLOOKS 142 PIECE 21 TEDIT.TENTATIVE)
( 111 (2 4))
\ARBIN :D8
(P 1 USERSTR P 0 LEN I 0 STREAM) A@ á@ ØHjð³2H—H ³&@H
g
Y`
I ¿h(59 CLOSEF? 53 READ 42 OPENSTRINGSTREAM 32 \STRINGIN 23 \FZEROP)
(48 *TEDIT-FILE-READTABLE* 37 INPUT)
()
\ATMIN :D8
(P 2 I P 0 LEN I 0 STREAM) H@ á@ ØHjðªHd˜ ‘hHk2JIó³@ ½Lµ
Mh\»JkÔZ°èM&¼°÷K (69 PACK 42 CHARACTER 22 \FZEROP)
NIL
()
\DWIN :D8
(I 0 FILE) @ ááá@ ááØ@ áØ@ ØNIL
NIL
()
\STRINGIN :D8
(P 3 I P 1 STR P 0 LEN I 1 SETLEN I 0 STREAM) EAµ@ á@ ØH YHjð³,Hd— ³ HkKJó³IK@ ¿KkÔ[°êI(58 RPLCHARCODE 53 READCCODE 33 \FZEROP 17 ALLOCSTRING)
NIL
()
\TEDIT.GET.TRAILER :D8
(P 5 PROPS P 4 IDATE P 3 VERSION P 2 PCCOUNT P 1 TRAILERSIZE P 0 PIECESTART I 1 LEN I 0 STREAM) —Aµ@ bdlñ´‚±ƒ€@AlÙ
@ X@ á@ ØZ@ á@ Ødnÿñ•nÿÿÙkÙnz·Ù[ddlð²&¿@A
_¹O^¼N½HIKJLMh°lð¨Kkð¤Kjð´HlKJhdd@j
¿(147 SETFILEPTR 90 \MVLIST 85 \TEDIT.GET.PROPS3 39 \DWIN 33 SETFILEPTR 8 GETEOFPTR)
NIL
()
\TEDIT.CACHEFILE :D8
(P 0 CACHE I 3 END I 2 START I 1 TEXTOBJ I 0 TEXT) kgggog@g
hh XB¢C²@HBµjCµmÿ †@H
¿@ AµHgi ¿°ò(102 PUTTEXTPROP 86 CLOSEF 79 COPYBYTES 71 COPYBYTES 49 OPENSTREAM 38 GETSTREAMPROP)
(96 CACHE 33 :EXTERNAL-FORMAT 27 :EXTERNAL-FORMAT 17 NEW 12 BOTH 7 {NODIRCORE})
( 22 (TYPE TEXT))
\TEDIT.GET.PIECES3 :D8
(P 20 PARALOOKS P 19 J P 17 CHARLOOKS P 16 J P 14 P P 11 OLDPARALOOKS P 10 DEFAULTCHARLOOKS P 9 CHARLOOKSMAP P 8 PARALOOKSMAP P 7 FIRSTPC P 6 PREVPC P 5 BYTELEN P 4 PC P 3 ORIGBYTE# P 2 TEXTOBJ P 1 PCNO I 4 END I 3 CURTEXTBYTE# I 2 PCCOUNT I 1 TSTREAM I 0 TEXT) ¿@Dµd lÙ
@d
BkAÉC¤
JÉ@_¿JÉ:_¿`dj¿dj¿_¾IHó´OÉ\hÎ
¿L±à¼@ ½@ á@ Ødjð²>¿`d@¿dC¿dM¿dO¿djÏ¿dk¿dNÎ
¿\@
¿CMÔb±xdlð²#¿Nµ@ _¿JkÏ:±XkÏ¿°ådkð²h¿`d@¿dC¿dk¿dO¿dlÏ¿dNÎ
¿¼AL@C ¿CMÔb¿L@ _jð³Oµ@J
 ±ø ²ïN”NÉ µïO°ëdlð²Q¿ImÿÔ¹J@J
V¿JÉV _¿JÉVkOµ±°_"¿OO O" ¿O kÔ_ ¿O_°Ýdlð²P¿ImÿÔ¹J@J
X¿JÉX _¿JÉXkO$µ°[_(¿OO&O( ¿O&kÔ_&¿O$_$°Þlð²J@`
T°"Joi ¿@d @ á@ ØØ
¿L–NL¿L¾IkÔY±þh¿Oɵ(@g
dgð§dgð—¿L@
L_É ²OOOÉ
 ¿Oɲ§OÉ_¿OOjð³ŠOO
±ÿ€(698 ELT 653 ELT 615 \TEDIT.INTERPRET.MCCS.SHIFTS 591 STREAMPROP 552 SETFILEPTR 540 GETFILEPTR 532 TEDIT.PROMPTPRINT 516 \TEDIT.PARSE.PAGEFRAMES 511 READ 479 SETA 446 ARRAY 441 LENGTH 430 \TEDIT.GET.PARALOOKS.LIST 395 SETA 361 ARRAY 356 LENGTH 345 \TEDIT.GET.CHARLOOKS.LIST 312 \FZEROP 302 \TEDIT.GET.SINGLE.CHARLOOKS 273 \TEDIT.GET.OBJECT 195 \TEDIT.GET.PARALOOKS.INDEX 170 \TEDIT.GET.CHARLOOKS.INDEX 107 \DWIN 29 SETFILEPTR 24 \DWIN 17 SETFILEPTR 9 GETEOFPTR)
(683 PIECE 671 PIECE 646 PIECE 637 PIECE 622 PIECE 605 :XCCS 597 :MCCS 586 FORMAT 506 *TEDIT-FILE-READTABLE* 229 |PIECETYPE#| 204 TEXTOBJ 125 |PIECETYPE#| 65 |PIECETYPE#| 44 TEXTOBJ 37 STREAM)
( 526 "WARNING: Unknown-type piece skipped.")
\TEDIT.GET.PROPS3 :D8
(P 5 PROPS P 4 PROPSLEN P 3 IDATE P 2 TRAILERSIZE P 1 DATEPTR P 0 ORIGPTR I 1 END I 0 STREAM) ÎAlñ´‚±Å@ AlÙl3@I
@ lD𢱌@ lA𢱃@ lTð²{@ lEð²t@ l:ð²m@ »Jl ÔºAJl
Øñ²Y@Il
Ù
¿@ lPð²G@ lRð²@@ lOð²9@ lPð²2@ lSð²+@ l:ð²$@ ¼@ILÙ
¿@`
½JLÔº@H
JKµ
@g
M$(199 GETFILEINFO 184 SETFILEPTR 171 READ 159 SETFILEPTR 149 \DWIN 100 SETFILEPTR 76 \DWIN 31 SETFILEPTR 15 GETFILEPTR)
(194 ICREATIONDATE 166 *TEDIT-FILE-READTABLE*)
()
\TEDIT.MAKE.STRINGPIECE :D8
(P 0 SPIECE I 1 STRING I 0 PC) ™A —kA
…A b0AÊjð¦A ƒAʇlDð²*`@
dlÏ¿dA¿A ¹dI¿dl°'`@
dlÏ¿dA¿A ºdJ¿dk¿d@Î
¿X@É–@ÉHÎ
¿@HH(117 NCHARS 99 NCREATE2 77 NCHARS 59 NCREATE2 38 %%ARRAY-TYPE-NUMBER 20 CONCAT 13 ALLOCSTRING 5 CHARCODEP)
(93 |PIECETYPE#| 53 |PIECETYPE#|)
()
\TEDIT.GET.UNFORMATTED.FILE.MCCS :D8
(P 12 C P 11 I P 9 STRING P 8 STARTPOS P 7 PLEN P 6 CHARLIST P 5 TWOBYTE P 4 CHAR P 3 PC P 2 PREVPC P 1 CHARSET P 0 FIRSTPIECE I 4 DEFAULTPARALOOKS I 3 DEFAULTCHARLOOKS I 2 END I 1 START I 0 STRM) Ä
`dj¿dj¿j‚ Hºj_¿@ _¿@ \²4Llÿð³.M—Lá¹@ \²$ILä¼M§Ijð£LN¾OkÔ_¿Lo
²ËOjð’±+Ldl
ð²4¿M² @i
jð²O@ ¿@i
l
ð²9@ °;@i
l
ð²0@ °+l
ð²'Odkð˜¿o^°mÿÔ_¿@ ¿M–@ ¿N²fN hdi _¿NO Oµ*h¾`dlÏ¿dO¿dO¿dl¿dj°i_¿OOO ¿O_¿OmÿÔ_¿°µM²%`dlÏ¿d@¿dO¿dO¿dl°!`djÏ¿d@¿dO¿dO¿dk¿[C ¿KD¿KJÎ
¿JK¿KºLdlÿð²,¿@ YµHÉlÿð´@ YµHÉjð¦@ ¿i½Iá¹±þ^’±þZHÉ(433 \MCCS.24BITENCODING.ERROR 282 RPLCHARCODE 213 ALLOCSTRING 205 LENGTH 195 \BACKFILEPTR 186 \BACKFILEPTR 145 \PEEKCCODE 129 \PEEKCCODE 115 \PEEKCCODE 87 MEMB 31 GETFILEPTR)
(342 |PIECETYPE#| 307 |PIECETYPE#| 235 |PIECETYPE#| 4 |PIECETYPE#|)
( 171 (13) 82 (13 10))
\TEDIT.INTERPRET.MCCS.SHIFTS :D8
(P 2 EOLC P 1 BYTE P 0 PC I 1 PFILE I 0 PIECES) f0@±?HÉ
¿A Ylÿ𢱒A Ydjð²-¿HHÉlÔ¿HHÉmþÔ±õlÿð²NA jð³oA lÙ
¿HlÏ¿HHÉlÔ¿HHÉlÙⱤHIA ±™HÊlð²HHÉâ°|Hk¿AHÉHÉØkÙ
¿A Ydl
ð²S¿HÉkð²HlÏ¿Hkl
°BHHÉmÿÔ¿A l
ð”lZ°kºHl
HjÏ¿XŒl
ð‘jºHjÏ¿HɵJ™AJÏ @¸AdHÉð’±þ§°Ü(299 \TEDIT.MAKE.STRINGPIECE 280 \BACKBIN 250 ALLOCSTRING 216 \SETFILEPTR 165 \TEDIT.RUN.TO.STRINGPIECE 106 \TEDIT.THELP 98 GETFILEPTR 14 \SETFILEPTR)
(343 PIECE 332 STREAM 266 PIECE 260 PIECE 189 PIECE 183 PIECE 146 PIECE 140 PIECE 126 PIECE 120 PIECE 66 PIECE 60 PIECE 46 PIECE 40 PIECE)
( 92 "MCCS CHARACTER NOT IN PLANE 0, FILEPOS = ")
\TEDIT.CONVERT.XCCSTOMCCSA0001 :D8
(NAME SI::*UNWIND-PROTECT* P 2 CHAR P 1 CHNO I 0 SI::*CLEANUP-FORMS* F 3 TSTREAM F 4 SI::*RESETFORMS*) eggSohSgg hTcS kIHó‘hSI
Z²Jd Zð«SIJhi
¿IkÔY°Õ(92 \TEDIT.RPLCHARCODE 78 MTOXCODE 66 TEDIT.NTHCHARCODE 49 TEDIT.NCHARS 36 TEXTPROP)
(31 OFF 26 HISTORY 9 TEXTPROP 4 PROGN)
( 15 ((QUOTE HISTORY) OLDVALUE))
\TEDIT.CONVERT.XCCSTOMCCS :D8
(P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 0 TSTREAM F 3 LISPXHIST) S!g ¿$(23 SI::RESETUNWIND 18 \MVLIST 13 \TEDIT.CONVERT.XCCSTOMCCSA0001)
(8 SI::RESETUNWIND)
()
\TEDIT.RUN.TO.STRINGPIECE :D8
(P 2 I P 0 STRING I 2 PFILE I 1 CHARSET I 0 PC) AAáb@Éhdi !@Ékº¹JIó²@lÏ@H@l@HJAB ä ¿JkÔZ°Û(56 RPLCHARCODE 14 ALLOCSTRING)
NIL
()
\TEDIT.GET.UNFORMATTED.FILE.UTF8 :D8
(P 11 PREVCRLF P 10 CODESIZE P 9 CRBEFORE P 8 FILEPOS P 7 RUNLEN P 6 PTYPE P 5 PREVPC P 4 CHAR P 3 EOLC P 2 NEXTCODESIZE P 1 FIRSTPC P 0 NEXTFILEPOS I 4 DEFAULTPARALOOKS I 3 DEFAULTCHARLOOKS I 2 END I 1 START I 0 STRM) KA`dC ¿dD¿dj¿dj¿k³
@ dgð•¿Hl°"dgð¨dgð²¿o ¿HlÔX¿J_¿I½H_¿BHñ²?@ \ ºOJð£h¼°)@ ºHJÔ¸Lo
²Ï@ µj ºHOÙ_¿Ll
ð—OmÿÔ_<0E>Ojñ²OOkð‘j<E28098>l ¾M`dNÏ¿d@¿dO¿OOÛ_¿dO¿dC ¿dD¿dO¿dMÎ
¿_¿O½Ll
ð²O“l»Šk»Ml
½BHñ³Kš@KÏ ¿IÉJ_¿Ll
ð_¢±ÿj»±ÿ(287 \TEDIT.MAKE.STRINGPIECE 160 NUTF8-BYTE1-BYTES 152 \PEEKBIN 144 MEMB 128 UTF8.VALIDATE 112 NUTF8-BYTE1-BYTES 106 \PEEKBIN 78 ERROR 36 READBOM)
(301 STREAM 203 |PIECETYPE#| 64 :UTF-16LE 56 :UTF-16BE 42 :UTF-8 5 |PIECETYPE#|)
( 139 (13 10) 73 "BOM :UTF-16 not yet implemented")
\TEDIT.GET.CHARLOOKS.LIST :D8
(P 1 I I 1 TEXTOBJ I 0 FILE) ,@ á@ Øk2IHó‘J@A
¼Kµ
Lh[ºIkÔY°çL&»°÷(22 \TEDIT.GET.SINGLE.CHARLOOKS)
NIL
()
\TEDIT.GET.SINGLE.CHARLOOKS :D8
(P 29 PROPS P 28 PROPS P 27 BITS P 26 ITALIC P 25 BOLD P 24 STYLESTR P 23 SUPER P 22 SIZE P 21 NAME P 20 FONT P 19 LOOKSLEN P 18 FILEPOS P 2 LOOKS I 1 TEXTOBJ I 0 FILE) ¤`dg¿ghhHdI
¿dj¿ñ@ @ á@ Ø<11>@ _*¿@ á@ Ø_,¿@ á@ Ødnÿñ•nÿÿÙkÙ_.¿J@ µj¿@ _:do
’°rdgð³gdgð²2¿O:g¿O:O:¿gO:[µ°=g¿Kd°.gð²O:² O:O:°gO:oh_:¿JgO:¿ggO:JÉ
¿ggO:JÉ
¿@ á@ Ø_6nå\jðµ
L´L hð_2¿O6nå]jðµ
M´M hð_4¿JO6n å^jð¬N–N ¡k€jÏ¿JO6nå_jð®O—O ¡k€jÏ0¿JO6nå_jðµO´ O hð ¿JO6nå_jð®O—O ¡k€jÏ¿JO6l€å_jð®O—O ¡k€jÏ ¿JO6l@å_jð®O—O ¡k€jÏ0¿JO6l å_jð®O—O ¡k€jÏ¿JO6lå_jð®O—O ¡k€jÏ¿JO6lå_jð®O—O ¡k€jÏ ¿JO6lå_jð®O—O ¡k€jÏ0¿JO6lå_ jð®O —O ¡k€jÏ¿JO6kå_"jð®O"—O" ¡k€jÏ ¿JO.¿O*d²)O*_*
_(g
¿O(jÏ°1O,O2•g„gO4•g„gg _(¿JO(¿@O$O&Ø
J(928 SETFILEPTR 908 FONTCREATE 903 PACK* 835 FONTCLASS 799 \FZEROP 764 \FZEROP 728 \FZEROP 692 \FZEROP 656 \FZEROP 620 \FZEROP 584 \FZEROP 548 \FZEROP 512 \FZEROP 478 \FZEROP 439 \FZEROP 402 \FZEROP 371 \FZEROP 344 \FZEROP 315 PUTASSOC 292 PUTASSOC 138 MEMB 123 \ARBIN 111 \ARBIN 71 \ARBIN 47 GETFILEPTR)
(898 R 893 R 887 I 879 M 873 B 857 FONTCLASS 847 TEDIT-FONTCLASS 842 FONTCLASS 813 CHARLOOKS 778 CHARLOOKS 742 CHARLOOKS 706 CHARLOOKS 670 CHARLOOKS 634 CHARLOOKS 598 CHARLOOKS 562 CHARLOOKS 526 CHARLOOKS 489 CHARLOOKS 453 CHARLOOKS 416 CHARLOOKS 382 CHARLOOKS 303 CHARENCODING 298 CLCHARENCODING 280 USERINFO 275 CLUSERINFO 263 COLOR 243 USERINFO 217 COLOR 203 USERINFO 190 \TEDIT.USERINFO 173 COLOR 161 \TEDIT.COLOR 152 * 19 CLUSERINFO 11 BLACK 4 |CHARLOOKSTYPE#|)
( 251 (COLOR . BLACK) 133 (CHARPROPS \TEDIT.CHARPROPS))
\TEDIT.GET.CHARLOOKS :D8
(P 0 FLAGS I 2 LOOKSARRAY I 1 FILE I 0 PC) \A !@BA áA Ø
 HkåYjð³I–I ¥@kÏ¿HlåZjð³%J—J ³@dÉlÛ@lÏ@llh(63 \FZEROP 37 \FZEROP 17 ELT)
NIL
()
\TEDIT.GET.PARALOOKS.INDEX :D8
(I 1 PARAHASH I 0 STREAM) @ á@ ØNIL
NIL
()
\TEDIT.GET.CHARLOOKS.INDEX :D8
(P 0 FLAGS I 1 FORMATSTREAM I 0 PC) LA !@A áA Ø HkåYjð³I–I ¥@kÏ¿HlåZjð³J–J ­@l@lÏlh(57 \FZEROP 31 \FZEROP)
NIL
()
\TEDIT.GET.PARALOOKS.LIST :D8
(P 1 I I 1 TEXTOBJ I 0 FILE) ,@ á@ Øk2IHó‘J@A
¼Kµ
Lh[ºIkÔY°çL&»°÷(22 \TEDIT.GET.SINGLE.PARALOOKS)
NIL
()
\TEDIT.GET.SINGLE.PARALOOKS :D8
(P 9 TAB# P 5 TABS P 4 DEFTAB P 3 TABFLG P 2 LOOKSLEN P 1 FILEPOS P 0 PARALOOKS I 1 TEXTOBJ I 0 FILE) þ
`dj
¿dj¿dj¿@ @ á@ ØSH@ á@ Ødnÿñ•nÿÿÙkÙH@ á@ Ødnÿñ•nÿÿÙkÙH@ á@ Ødnÿñ•nÿÿÙkÙH@ á@ Ødnÿñ•nÿÿÙkÙH@ á@ Ødnÿñ•nÿÿÙkÙH@ á@ Ødnÿñ•nÿÿÙkÙ
@ [H@ dkð—¿g°0dlð—¿g°#dlð—¿g°lð•g‰o Kkå^jð’±äN™N ’±Ö@ á@ Ødnÿñ•nÿÿÙkÙ\kñ¢l$¼HL.¿@ k2 OOó’± @ á@ Ødnÿñ•nÿÿÙkÙ@ djð—¿g°]dkð—¿g°Qdlð—¿g°Ddlð—¿g°7dlð—¿g°*dlð—¿g°dlð–¿gŽlð•g„_¿OµOh__¿OkÔ_±ÿgO&_¿°ñO½HM0¿HÉ.¥Hl$.¿Klå_jð’±öOšO ’±æH@ á@ Ødnÿñ•nÿÿÙkÙ¿H@ á@ Ødnÿñ•nÿÿÙkÙ¿H@ ¿H@ ¿H@ ¿H@ ¿H@ ¿H@  ¿H@ "¿H@ ‘k€jÏ¿H@ $¿@ IJØýñ™H@  ¿@ IJØýñ™H@ *¿@ IJØýñ™H@ &¿@ IJØýñ™H@ ¿@ IJØýñ²Aoi ¿@IJØ
H(762 SETFILEPTR 752 TEDIT.PROMPTPRINT 733 GETFILEPTR 724 \ARBIN 711 GETFILEPTR 702 \ARBIN 689 GETFILEPTR 680 \ARBIN 667 GETFILEPTR 658 \ARBIN 645 GETFILEPTR 636 \ARBIN 621 \ARBIN 611 \ARBIN 601 \ARBIN 591 \ARBIN 581 \ARBIN 571 \ATMIN 561 \ATMIN 551 \ARBIN 496 \FZEROP 419 \TEDIT.THELP 247 \FZEROP 225 \TEDIT.THELP 26 GETFILEPTR)
(413 DOTTEDDECIMAL 403 DOTTEDCENTERED 390 DOTTEDRIGHT 377 DOTTEDLEFT 364 DECIMAL 351 CENTERED 338 RIGHT 326 LEFT 214 JUSTIFIED 203 CENTERED 190 RIGHT 177 LEFT 4 |PARALOOKSTYPE#|)
( 746 "WARNING: Newer file version; you lost PARALOOKS info" 220 "UNRECOGNIZED QUAD BYTE")
\TEDIT.GET.OBJECT :D8
(P 3 OBJ P 2 GETFN P 1 FILEPTRSAVE P 0 TEXTOBJ I 4 BYTELEN I 3 CURTEXTBYTE# I 2 FILE I 1 PIECE I 0 TSTREAM) ¹@ 1B ZB YBC
BJhD [dg
²6@Kg
•o„oKg
i ¿BI
AKAdÉ
–dÉ
É °HÉ@µ` H
 AKg
’l<05>lÏK(172 IMAGEOBJPROP 158 \TEDIT.UNIQUIFY.CHARLOOKS 152 \TEDIT.CHARLOOKS.FROM.FONT 111 SETFILEPTR 103 TEDIT.PROMPTPRINT 97 CONCAT 92 IMAGEOBJPROP 69 \DEFINEDP 64 IMAGEOBJPROP 50 IMAGEOBJPROP 38 READIMAGEOBJ 29 SETFILEPTR 21 GETFILEPTR 14 \ATMIN 5 TEXTOBJ)
(167 SUBSTREAM 147 DEFAULTFONT 138 TEXTOBJ 117 PIECE 87 UNKNOWNGETFN 59 UNKNOWNGETFN 45 UNKNOWNGETFN)
( 81 "Image object with unknown GETFN " 75 "Cannot read image object with GETFN ")
\TEDIT.PUT.PCTB :D8
(P 22 A0226 P 21 A0225 P 20 A0224 P 19 A0223 P 17 UNFORMATTED? P 16 RUNLEN P 15 NEXTNEW P 14 PFILE P 13 PC P 12 EOLC P 11 EXTFORMAT P 10 *PRINT-BASE* P 9 *READTABLE* P 8 PARAHASH P 7 LOOKSHASH P 6 EDITSTENTATIVE P 5 PCCOUNT P 4 NEWPIECES P 3 UNFORMATTED? P 2 OLDTEXTBYTE# P 1 CURTEXTBYTE# P 0 NSHIFTBYTES I 4 KEEPSEPARATE I 3 CONTINUE I 2 FORMATSTREAM I 1 CHARSTREAM I 0 TEXTOBJ) WD²B ªo ¿Ag
gð–@ ¿jddBiðB ³gggo b¿C´`dj¿dj¿j@g
l2 l2 `l
Ag
AÊ m@ µ±^_¿L_¿@ÉT<C389>B@ÉT
¿MkÔ½@ ¿@ ¿BO@ÉX ¿BO@ÉV ¿AÉ
ÉNAkO&YºOÉ_$jð’±îO$šO$ ’±ÞOÉ
™OÉ
Êjð®BOO ¿MkÔ½Oo
²7AOÊo
‘i€j
¿AÉ
ÉNAkO(JÙ¸OA@BJ
¿OdÉNO@
—OÉ_°ßAÉ
ÉNAkO*YJÙ_ ¿OÊlð®BO ONO
¿MkÔ½L²OOJO O@OH
_¿IºOɵEK³<BAÉ
ÉNAkO,Ml@É\
¿K³D®BAjB ¿Ld‘É_±þ»(580 COPYBYTES 575 GETEOFPTR 560 \TEDIT.PUT.TRAILER 509 \TEDIT.PUT.PCTB.NEXTNEW 482 \TEDIT.PUT.CHARLOOKS 420 \TEDIT.PUT.PCTB.MERGEABLE 404 \TEDIT.PUT.PCTB.PIECEDATA 364 CHARSET 355 MEMB 337 MEMB 320 \TEDIT.PUT.PARALOOKS 291 \FZEROP 240 \TEDIT.PUT.CHARLOOKS.LIST 228 \TEDIT.PUT.PARALOOKS.LIST 216 \TEDIT.UNIQUIFY.ALL 209 \TEDIT.FLUSH.UNUSED.LOOKS 198 \TEDIT.PUT.PAGEFRAMES 168 \TEDIT.FIRSTPIECE 150 GETSTREAMPROP 132 HASHARRAY 125 HASHARRAY 118 GETTEXTPROP 84 OPENSTREAM 57 STREAMP 44 \TEDIT.PUT.UTF8.SPLITPIECES 31 STREAMPROP 19 \TEDIT.THELP 8 STREAMP)
(592 PIECE 537 FDEV 530 STREAM 442 FDEV 435 STREAM 378 FDEV 371 STREAM 254 FDEV 247 STREAM 178 PIECE 156 STREAM 145 FORMAT 137 *TEDIT-FILE-READTABLE* 113 TEDIT.TENTATIVE 95 |PIECETYPE#| 74 NEW 69 BOTH 64 {NODIRCORE} 36 :UTF-8 26 FORMAT)
( 350 (2 4) 332 (:MCCS :XCCS) 79 ((LINELENGTH 65535)) 14 "FORMATSTREAM not provided with KEEPSEPARATE")
\TEDIT.PUT.PCTB.PIECEDATA :D8
(P 4 CH P 2 I P 0 PFILE I 4 OLDTEXTBYTE# I 3 FORMATSTREAM I 2 TEXTOBJ I 1 CHARSTREAM I 0 PC) I @Êo
²%@ÉXgi ¨BH
X€H@É
¿@Êdjð²@ÉkJIó‘hAH
¿JkÔZ°îdlð¥dlð²s@ÉQKdÊjð¥ <00>ȾKdÊjð¥ <00>É_¿NmÿØKl
ؽKdÊj𥠂ʇlDð_¿NMñ³’O–ONÐȃON¼AL
¿NkØ^°ádlð²$¿@ÉkJIó’±ÿaAH áH Ø
¿JkÔZ°édl ð²$¿@ÉkJIó’±ÿ9AH
¿JkÔZ°élð²@ACD Cj
o (326 \TEDIT.THELP 315 BOUT 308 \TEDIT.PUT.OBJECT 287 \OUTCHAR 282 UTF8.INCCODEFN 247 \OUTCHAR 207 \OUTCHAR 170 %%ARRAY-TYPE-NUMBER 155 \GETBASEFIXP 137 %%ARRAY-BASE 120 %%ARRAY-OFFSET 83 \OUTCHAR 52 \SETFILEPTR 41 \TEDIT.REOPEN.STREAM 33 \GETSTREAM 16 MEMB)
(27 INPUT)
( 321 "OTHER PTYPES" 11 (0 2 11 8 9))
\TEDIT.PUT.TRAILER :D8
(P 0 PROPSPTR I 4 PROPS I 3 VERSION I 2 PCCOUNT I 1 PIECESTART I 0 FORMATSTREAM) „@ !D²/Dh@` ¿o@
¿@l@ HÙØ
¿o@
@
@A
@Bã
¿@Blÿå
@nz·CغYJã
IJlÿå
(129 \BOUT 119 \BOUT 104 \BOUT 93 \BOUT 85 \DWOUT 78 \DWOUT 73 IDATE 67 PRIN1 55 \DWOUT 47 GETFILEPTR 37 PRIN1 25 PRIN2 5 GETFILEPTR)
(20 *TEDIT-FILE-READTABLE*)
( 61 "DATE:" 31 "PROPS:")
\TEDIT.PUT.PCTB.MERGEABLE :D8
(P 1 PCTYPE P 0 PREVTYPE I 4 TEXTOBJ I 3 EXTFORMAT I 2 EDITSTENTATIVE I 1 PC I 0 PREVPC) öA´‚±î@ÊAÊHlð’±ÜIlð’±Ô@É AÉ ð´‚±È@ÉAÉð´‚±»@Êjð´‚±¯B²@ÊjðhðAÊjðhðð´‚±•CgðªCdgð²;¿@Êdjð¤dlð’¿iŠl ð´@ʇkðAÊdjð¤dlð“¿i°l ð´Aʇkð<6B>gð´?@ÉAÉð´6Hl ðµ0CgðžHo
hðµ@dÉkÙ
o
hðh(239 MEMB 229 \TEDIT.PIECE.NTHCHARCODE 214 MEMB)
(201 :UTF-8 177 :UTF-8 112 :XCCS 103 :MCCS)
( 234 (13 10) 209 (0 3))
\TEDIT.PUT.UTF8.SPLITPIECES :D8
(P 12 CH P 11 BPC P 10 PFILE P 9 I P 4 BPC P 3 CH P 2 I P 0 PC I 0 TEXTOBJ) Ü
@ ±»dlð§dl𢱮¿HÉkbIdÊjð¥ <00>ȾIdÊjð¥ <00>É_¿NmÿØIl
ؽIdÊj𥠂ʇlDð_¿NMñ³SO–ONÐȃON»Jkð²K ¼HL¿NkؾJkÔº°ÎLK ð³éHJkÙ@ ¿HÉ
XL¿±dj𢱃¿HÉg
gð’±áHÉkHÉ OHÉ
¿OdOó³Jkð² O _¿HO¿OkÔ_°ÚOO ð³èHOkÙ@ ¿HÉ
XO°xlð²sHÉkHÉ# OHÉ
¿OOó³VO áO Ø_¿Okð²O _¿HO¿OkÔ_°ÏOO ð³éHOkÙ@ ¿HÉ
XO¿HÉd XÊdl ð¢±þ7¿°è(437 \TEDIT.SPLITPIECE 423 NUTF8-CODE-BYTES 418 MTOUCODE 392 NUTF8-CODE-BYTES 387 MTOUCODE 355 \SETFILEPTR 318 \TEDIT.SPLITPIECE 304 NUTF8-CODE-BYTES 299 MTOUCODE 272 NUTF8-CODE-BYTES 267 MTOUCODE 246 \SETFILEPTR 216 GETSTREAMPROP 182 \TEDIT.SPLITPIECE 169 NUTF8-CODE-BYTES 164 MTOUCODE 141 NUTF8-CODE-BYTES 136 MTOUCODE 95 %%ARRAY-TYPE-NUMBER 80 \GETBASEFIXP 62 %%ARRAY-BASE 45 %%ARRAY-OFFSET 8 \TEDIT.FIRSTPIECE)
(459 PIECE 221 :UTF-8 211 FORMAT)
()
\TEDIT.PUT.MCCS.SPLITPIECES :D8
(P 4 I P 2 FIRSTNON0 P 1 FIRST0 P 0 PC I 0 TEXTOBJ) ¥0@ °\LkÔ\°xhY²NHÉkÙIkØLKó³HL
ãjð¤Lµ i†LkÔ\°èhZ²HIdjð‘¿J@ ¿HÉ
X<EFBFBD>Ijð¨HI@ ¿HÉd XÊo
²çHÉkÙjLKó³ˆHL
ãjð¢±ÿuLµ‚±ÿui±ÿq(145 \TEDIT.PIECE.NTHCHARCODE 122 MEMB 96 \TEDIT.SPLITPIECE 78 \TEDIT.SPLITPIECE 44 \TEDIT.PIECE.NTHCHARCODE 8 \TEDIT.FIRSTPIECE)
(108 PIECE)
( 117 (4 2 11))
\TEDIT.PUT.PCTB.NEXTNEW :D8
(P 2 \INTERRUPTABLE I 7 NSHIFTBYTES I 6 EOLC I 5 TEXTOBJ I 4 EXTFORMAT I 3 RUNLEN I 2 OLDBYTE# I 1 PC I 0 NEXTNEW) CGÙb@`A
GBØHdI¿dC¿d@Î
¿HHdÈnðåhÒnÿåäÍ¿HlkØÐhÓÍbDdgðž¿@AÉkð’j°5l °1gð¨Dgð²%@AÊdlð“¿j°lð˜@l¿lƒAÊÏ¿@dÊlð‘k„C@ÉÛFjð³Y@Êjð²QAdÉkÙ
l
ð²A@Ékð²@lÏ¿@kl
°&@@ÉmÿÔ¿@l
bÉ
jÏ@(259 \TEDIT.MAKE.STRINGPIECE 227 ALLOCSTRING 199 \TEDIT.PIECE.NTHCHARCODE 17 NCREATE2)
(243 PIECE 237 PIECE 119 :XCCS 111 :MCCS 89 :UTF-8 11 |PIECETYPE#|)
()
\TEDIT.INSERT.NEWPIECES :D8
(P 4 PC P 1 FILEPTR P 0 TEXTOBJ I 2 NEWPIECES I 1 OLDSTREAM I 0 DESTSTREAM) eAÉ1A YB°\Êo
”L@¿LɵäH BhH AIHɺdJñ‘¿J»jKñ¡K€j
(98 \TEDIT.TEXTSETFILEPTR 73 \TEDIT.INSERTPIECES 65 \TEDIT.MAKEPCTB 47 MEMB 21 \TEDIT.TEXTGETFILEPTR)
(33 PIECE 12 TEXTOBJ 5 STREAM)
( 42 (0 2 11 8 9))
\TEDIT.PUTRESET :D8
(I 0 PROC&VALUE) @@g@ (15 PROCESSPROP)
(8 BEFOREEXIT)
()
\ARBOUT :D8
(P 0 SIZE I 1 ITEM I 0 STREAM) MAdši` !@HµjºYJã
¿IJlÿå
¿A´Hjð³H–H «A@` h(73 PRIN2 60 \FZEROP 41 \BOUT 30 \BOUT 13 NCHARS)
(68 *TEDIT-FILE-READTABLE* 8 *TEDIT-FILE-READTABLE*)
()
\ATMOUT :D8
(P 2 CH I 1 ATOM I 0 STREAM) €@AµbjHIã
¿HIlÿå
Ahðµ_A Hjðµ
H´H µCkABIÁÉ[ʼIÁÊ jðhð½HLñ³#MœKHÐȉ °œKHº@J
¿HkØX°Ýh(117 \BOUT 104 NCHARS 57 \FZEROP 38 NCHARS 26 \BOUT 15 \BOUT)
NIL
()
\DWOUT :D8
(I 1 NUMBER I 0 FILE) 0@Aãããlÿå
@Aããlÿå
@Aãlÿå
@Alÿå
(45 \BOUT 35 \BOUT 24 \BOUT 12 \BOUT)
NIL
()
\STRINGOUT :D8
(P 3 CH P 2 I I 2 LEN I 1 STRING I 0 STREAM) ¬BµA b@Bã
¿@Blÿå
Bj𵂱†Bd— µyBAkSIdÊjð¥ <00>ȽIdÊjð¥ <00>ɾMmÿØIl
ؼIdÊj𥠂ʇlDð_¿MLñ³&O•NMÐÈ‚NM»JHó³@K
¿MkؽJkÔº°Ùh(157 \BOUT 117 %%ARRAY-TYPE-NUMBER 102 \GETBASEFIXP 86 %%ARRAY-BASE 69 %%ARRAY-OFFSET 48 \FZEROP 29 \BOUT 18 \BOUT 8 NCHARS)
NIL
()
\TEDIT.PUT.CHARLOOKS.LIST :D8
(P 3 LOOKS P 2 I I 3 LOOKSHASH I 2 LOOKSLIST I 1 LOOKSHASH I 0 LOOKSFILE) ]@j
@j
¿@l
@B HIã
¿HIlÿå
BkIµh»@K
¿KJA ¿JkÔºIY°á(81 PUTHASH 72 \TEDIT.PUT.SINGLE.CHARLOOKS 51 \BOUT 40 \BOUT 29 FLENGTH 22 \BOUT 13 \BOUT 6 \DWOUT)
NIL
()
\TEDIT.PUT.SINGLE.CHARLOOKS :D8
(P 3 PROPS P 2 LEN P 1 FONT P 0 FILEPOS I 1 LOOKS I 0 FORMATSTREAM) H@ AÉÂ
@j
¿@j
IÃ<00>@I
°@Ig
¿@Ig
µj½\Mã
¿LMlÿå
¿@Aɵj_¿^Oãlÿå
¿NOlÿå
¿Aɲ"AÉ_jð³O—O ©@AÉ
Ž@j
¿@j
¿g_Kµ
OhK[Aɵg¿gAÉ
²!g_Kµ
OhK[gAÉ
¿gAÉ
²!g_Kµ
OhK[gAÉ
¿@gK
@AÊjð£n €jAÊ0jð£n€jAÉ “n€jAÊjð£n€jIg
gð“n€jIg
gð“n€jAÊ jð¢l€€jAÊ0jð¢l@€jAÊjð¢l €jAÊjð¢l€jAÊ jð¢l€jAÊ0jð¢l€jAÊjð¢l€jAÊ jð¡k€jäääääääääääää_¿_Oã
¿OOlÿå
¿@ HÙZ@H
@Jã
¿@Jlÿå
@mÿ
(581 SETFILEPTR 573 \BOUT 562 \BOUT 554 SETFILEPTR 544 GETFILEPTR 537 \BOUT 524 \BOUT 399 FONTPROP 376 FONTPROP 319 \ARBOUT 188 \BOUT 180 \BOUT 172 \ARBOUT 162 \FZEROP 135 \BOUT 123 \BOUT 100 \BOUT 89 \BOUT 77 FONTPROP 64 \ATMOUT 59 FONTPROP 45 \ARBOUT 40 FONTCLASSUNPARSE 26 \BOUT 18 \BOUT 5 GETFILEPTR)
(404 ITALIC 394 SLOPE 381 BOLD 371 WEIGHT 312 CHARPROPS 299 CLCHARENCODING 280 CHARENCODING 268 CLCHARENCODING 256 CLUSERINFO 237 USERINFO 225 CLUSERINFO 218 BLACK 194 COLOR 72 SIZE 54 FAMILY 32 FONTCLASS)
()
\TEDIT.PUT.CHARLOOKS :D8
(I 4 LOOKSHARRAY I 3 EDITSTENTATIVE I 2 PC I 1 BYTELEN I 0 FORMATSTREAM) .B@ABÉ D
C´
Bd´
ÊjðhðBÊlð
(43 \TEDIT.PUT.CHARLOOKS1 16 GETHASH)
(5 PIECE)
()
\TEDIT.PUT.CHARLOOKS1 :D8
(I 4 FAT I 3 NEW I 2 CHARLOOKSINDEX I 1 BYTELEN I 0 FORMATSTREAM) <@A
@j
¿@j
@C‘k€jD’l€jä
@Bã
@Blÿå
(57 \BOUT 47 \BOUT 39 \BOUT 21 \BOUT 13 \BOUT 6 \DWOUT)
NIL
()
\TEDIT.PUT.OBJECT :D8
(P 2 BYTELEN P 1 ORIGFILEPTR P 0 OBJECT I 3 CURTEXTBYTE# I 2 FORMATSTREAM I 1 CHARSTREAM I 0 PIECE) x@ÉB "Bj
Bj
¿Bk
BHg
Hg
»HAlK¿A CÙZBI
BJ
Bmÿ
A —Amÿ
J(116 SETFILEPTR 107 RANDACCESSP 101 SETFILEPTR 93 \DWOUT 86 SETFILEPTR 76 GETEOFPTR 61 IMAGEOBJPROP 50 \ATMOUT 45 IMAGEOBJPROP 33 \BOUT 25 \BOUT 18 \DWOUT 8 GETFILEPTR)
(56 PUTFN 40 GETFN)
()
\TEDIT.PUT.PARALOOKS.LIST :D8
(P 3 PL P 2 I I 2 PARALOOKS I 1 PARAHASH I 0 LOOKSFILE) ]@j
@j
¿@l
@B HIã
¿HIlÿå
BkIµh»@K
¿KJA ¿JkÔºIY°á(81 PUTHASH 72 \TEDIT.PUT.SINGLE.PARALOOKS 51 \BOUT 40 \BOUT 29 FLENGTH 22 \BOUT 13 \BOUT 6 \DWOUT)
NIL
()
\TEDIT.PUT.SINGLE.PARALOOKS :D8
(P 24 TAB P 3 LEN P 2 TABS P 1 DEFTAB P 0 FILEPOS I 1 LOOKS I 0 FONTFILE) +@ ñ€@j
¿@j
@Aɽ\Mãlÿå
¿LMlÿå
¿@AÉ_¿^Oãlÿå
¿NOlÿå
¿@AÉ_¿_Oãlÿå
¿OOlÿå
¿@AÉ_¿_Oãlÿå
¿OOlÿå
¿@AÉ_¿_Oãlÿå
¿OOlÿå
¿@AÉ
_¿_Oãlÿå
¿OOlÿå
¿AÉ.YAÉ0Z@I¡J’l<03>l
@AÉdgð“¿k°>dgð”¿l°1dgð§dgð”¿l°dgð§dgð“¿l…¿
J¤I¢±ì@Iµj_"¿_ O"ãlÿå
¿O O"lÿå
¿J lÿñšo ¿@J
¿J±œd@O0_&¿_$O&ãlÿå
¿O$O&lÿå
¿@O0dgð“¿j°]dgð“¿k°Qdgð”¿l°Ddgð”¿l°7dgð”¿l°*dgð”¿l°dgð“¿lŽgð’l„
µ‚±ÿc@Aɵj_*¿_(O*ãlÿå
¿O(O*lÿå
¿@Aɵj_.¿_,O.ãlÿå
¿O,O.lÿå
¿@AÉ
@AÉ
@AÉ
@AÉ
@AÉ
@AÉ
@AÉ"
@AÊjðhð
@AÉ$
@AÉ
@AÉ*
@AÉ&
@AÉ
@ HÙ[@H
@Kãlÿå
¿@Klÿå
@mÿ
(808 SETFILEPTR 800 \BOUT 789 \BOUT 778 SETFILEPTR 768 GETFILEPTR 762 \ARBOUT 753 \ARBOUT 744 \ARBOUT 735 \ARBOUT 726 \ARBOUT 717 \ARBOUT 703 \ARBOUT 694 \ARBOUT 685 \ARBOUT 676 \ARBOUT 667 \ATMOUT 658 \ATMOUT 649 \ARBOUT 639 \BOUT 626 \BOUT 602 \BOUT 589 \BOUT 557 \BOUT 552 \TEDIT.THELP 444 \BOUT 431 \BOUT 401 \BOUT 396 LENGTH 388 \TEDIT.THELP 374 LENGTH 367 \BOUT 354 \BOUT 326 \BOUT 321 \TEDIT.THELP 245 \BOUT 221 \BOUT 208 \BOUT 187 \BOUT 174 \BOUT 153 \BOUT 140 \BOUT 119 \BOUT 106 \BOUT 85 \BOUT 73 \BOUT 53 \BOUT 42 \BOUT 26 \BOUT 18 \BOUT 5 GETFILEPTR)
(542 DOTTEDDECIMAL 531 DOTTEDCENTERED 518 DOTTEDRIGHT 505 DOTTEDLEFT 492 DECIMAL 479 CENTERED 467 RIGHT 455 LEFT 309 JUSTIFIED 301 JUST 288 CENTERED 280 CENTER 267 RIGHT 255 LEFT)
( 383 "Paragraph has more than 255 TABs set--can't be saved.")
\TEDIT.PUT.PARALOOKS :D8
(I 2 PARAHASH I 1 PC I 0 LOOKSFILE) 8@j
@j
¿@l
@AÉB
HIã
HIlÿå
(53 \BOUT 43 \BOUT 32 GETHASH 22 \BOUT 13 \BOUT 6 \DWOUT)
NIL
()
TEDITFROMLISPSOURCE :D8
(I 5 END I 4 START I 3 USERTEMP I 2 PROPS I 1 TSTREAM I 0 SOURCEFILE F 0 DEFAULTFONT F 1 TEDIT.SOURCE.LINELENGTH F 2 TEDIT.SOURCE.NLINES) \Aµ bghgQl P
ÖgRP È
ÖgCÉ o
@A
A(88 COPY.TEXT.TO.IMAGE 81 PUTTEXTPROPS 63 TEDIT.ATOMBOUND.READTABLE 42 FONTCREATE 29 CHARWIDTH 7 OPENTEXTSTREAM)
(56 READER-ENVIRONMENT 50 BOUNDTABLE 35 OPENHEIGHT 20 OPENWIDTH 14 PARABREAKCHARS)
( 68 (DEFAULTPUTEXTENSION ""))
SHELLSCRIPTP :D8
(I 0 FILE) @g
gð(15 L-CASE 10 FILENAMEFIELD)
(20 sh 5 EXTENSION)
()
TEDITFROMSHELLSCRIPT :D8
(I 5 END I 4 START I 3 USERTEMP I 2 PROPS I 1 TSTREAM I 0 SOURCEFILE F 0 DEFAULTFONT) \@gg A ²"AgP h
¿@ADE °#@hDEggB
bA(86 OPENTEXTSTREAM 80 \APPEND2 75 \APPEND2 53 COPYCHARS 43 TEDIT.LOOKS 35 FONTCREATE 21 TEXTSTREAMP 15 STREAMPROP)
(69 DEFAULTFONT 64 FONT 29 FONT 10 :UTF-8 5 :EXTERNAL-FORMAT)
()
(PRETTYCOMPRINT TEDIT-FILECOMS)
(RPAQQ TEDIT-FILECOMS ((DECLARE%: EVAL@COMPILE DONTCOPY (CONSTANTS (\PieceDescriptorLOOKS 0) (
\PieceDescriptorOBJECT 1) (\PieceDescriptorPARA 2) (\PieceDescriptorPAGEFRAME 3) (
\PieceDescriptorCHARLOOKSLIST 4) (\PieceDescriptorPARALOOKSLIST 5) (\PieceDescriptorSAFEOBJECT 6) (
\PieceDescriptorMETAINFO 7) (\PieceDescriptorPROPERTIES 8)) (EXPORT (MACROS \SMALLPIN \SMALLPOUT)) (
RECORDS \TEDIT.FILETRAILER)) (COMS (* ;; "Public entries ") (FNS TEDIT.GET TEDIT.FORMATTEDFILEP
TEDIT.FILEDATE TEDIT.INCLUDE TEDIT.RAW.INCLUDE TEDIT.PUT TEDIT.PUT.STREAM) (FNS
\TEDIT.GET.FOREIGN.FILE \TEDIT.GET.UNFORMATTED.FILE \TEDIT.GET.FORMATTED.FILE \TEDIT.FORMATTEDSTREAMP
\ARBIN \ATMIN \DWIN \STRINGIN \TEDIT.GET.TRAILER \TEDIT.CACHEFILE) (COMS (* ;;
"Until CL:COMPILE-FILE and any others are updated, They should use the public TEDIT.FORMATTEDFILEP") (
P (MOVD? (QUOTE \TEDIT.GET.TRAILER) (QUOTE \TEDIT.FORMATTEDP1)))) (FNS \TEDIT.GET.PIECES3
\TEDIT.GET.PROPS3 \TEDIT.MAKE.STRINGPIECE) (FNS \TEDIT.GET.UNFORMATTED.FILE.MCCS
\TEDIT.INTERPRET.MCCS.SHIFTS \TEDIT.CONVERT.XCCSTOMCCS \TEDIT.RUN.TO.STRINGPIECE) (* ; "MCCS") (FNS
\TEDIT.GET.UNFORMATTED.FILE.UTF8) (* ; "UTF-8") (FNS \TEDIT.GET.CHARLOOKS.LIST
\TEDIT.GET.SINGLE.CHARLOOKS \TEDIT.GET.CHARLOOKS \TEDIT.GET.PARALOOKS.INDEX \TEDIT.GET.CHARLOOKS.INDEX
) (FNS \TEDIT.GET.PARALOOKS.LIST \TEDIT.GET.SINGLE.PARALOOKS) (FNS \TEDIT.GET.OBJECT)) (COMS (* ;;
"Putting pageframe functions are on TEDIT-PAGE)") (FNS \TEDIT.PUT.PCTB \TEDIT.PUT.PCTB.PIECEDATA
\TEDIT.PUT.TRAILER \TEDIT.PUT.PCTB.MERGEABLE \TEDIT.PUT.UTF8.SPLITPIECES \TEDIT.PUT.MCCS.SPLITPIECES
\TEDIT.PUT.PCTB.NEXTNEW \TEDIT.INSERT.NEWPIECES \TEDIT.PUTRESET \ARBOUT \ATMOUT \DWOUT \STRINGOUT) (
FNS \TEDIT.PUT.CHARLOOKS.LIST \TEDIT.PUT.SINGLE.CHARLOOKS \TEDIT.PUT.CHARLOOKS \TEDIT.PUT.CHARLOOKS1
\TEDIT.PUT.OBJECT) (FNS \TEDIT.PUT.PARALOOKS.LIST \TEDIT.PUT.SINGLE.PARALOOKS \TEDIT.PUT.PARALOOKS)) (
GLOBALVARS TEDIT.INPUT.FORMATS *TEDIT-FILE-READTABLE*) (FNS TEDITFROMLISPSOURCE SHELLSCRIPTP
TEDITFROMSHELLSCRIPT) (INITVARS (TEDIT.SOURCE.LINELENGTH 110) (TEDIT.SOURCE.NLINES 30)) (ADDVARS (
TEDIT.INPUT.FORMATS (LISPSOURCEFILEP TEDITFROMLISPSOURCE) (SHELLSCRIPTP TEDITFROMSHELLSCRIPT))) (
INITVARS (* ; "For consistent reading and writing of info on TEdit files.") (*TEDIT-FILE-READTABLE* (
COPYREADTABLE \ORIGREADTABLE)))))
(MOVD? (QUOTE \TEDIT.GET.TRAILER) (QUOTE \TEDIT.FORMATTEDP1))
(RPAQ? TEDIT.SOURCE.LINELENGTH 110)
(RPAQ? TEDIT.SOURCE.NLINES 30)
(ADDTOVAR TEDIT.INPUT.FORMATS (LISPSOURCEFILEP TEDITFROMLISPSOURCE) (SHELLSCRIPTP TEDITFROMSHELLSCRIPT
))
(RPAQ? *TEDIT-FILE-READTABLE* (COPYREADTABLE \ORIGREADTABLE))
NIL
Reference in New Issue View Git Blame Copy Permalink