472 lines
33 KiB
Plaintext
472 lines
33 KiB
Plaintext
(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
|
||
|
||
(FILECREATED "10-Apr-2026 09:59:04" ("compiled on " {WMEDLEY}<library>TEDIT>TEDIT.;855)
|
||
"10-Apr-2026 00:42:33" recompiled explicitly%: TEDIT.CONCAT TEDIT.INSERT.OBJECT \TEDIT.COPYPIECE in
|
||
"FULL 10-Apr-2026 ..." dated "10-Apr-2026 00:42:42")
|
||
(FILECREATED "10-Mar-2026 18:07:31" {WMEDLEY}<library>tedit>TEDIT.;855 146853 :EDIT-BY rmk :CHANGES-TO
|
||
(FNS TDRIBBLE) :PREVIOUS-DATE " 2-Mar-2026 18:32:06" {WMEDLEY}<library>tedit>TEDIT.;853)
|
||
MAKE-TEDIT-EXPORTS.ALL :D8
|
||
(P 0 VAL F 1 TEDITFILES) 8 i o ¿Qo o i
|
||
¸ H (52 CNDIR 46 GATHEREXPORTS 41 MEDLEYDIR 23 CNDIR 18 MEDLEYDIR 8 DIRECTORYNAME)
|
||
NIL
|
||
( 35 "tedit-exports.all" 30 "library/tedit" 13 "library>tedit")
|
||
UPDATE-TEDIT :D8
|
||
(P 5 TCF P 4 LF P 2 CF P 1 F I 1 LDFLG I 0 FILES F 6 TEDITFILES F 7 *COMPILED-EXTENSIONS*) _ A§g b¿V!HµhYhW Z² ` !J ½Kµh§JA
|
||
¿HX°Í¼ML
|
||
•Lµái°ÞK[°Õ (81 STRING.EQUAL 76 TRUEFILENAME 61 LOAD 46 TRUEFILENAME 29 FINDFILE-WITH-EXTENSIONS)
|
||
(37 LOADEDFILELST 6 SYSLOAD)
|
||
()
|
||
EDIT-TEDITA0001 :D8
|
||
(NAME SI::*UNWIND-PROTECT* P 0 F I 0 SI::*CLEANUP-FORMS* F 1 SI::*RESETFORMS* F 2 TEDITFILES) B g d g g
|
||
¿Qc R°d H ¿H µëh (57 LOADCOMP 50 LOADFROM 36 UPDATE-TEDIT 26 SETTOPVAL 10 GETTOPVAL)
|
||
(21 YES 16 LOADDBFLG 4 LOADDBFLG)
|
||
()
|
||
EDIT-TEDIT :D8
|
||
(P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST F 3 LISPXHIST) 3 o S!g ¿$o (48 %. 33 SI::RESETUNWIND 28 \MVLIST 23 EDIT-TEDITA0001 9 BKSYSBUF)
|
||
(18 SI::RESETUNWIND)
|
||
( 43 (ANALYZE ON IN TEDITFILES) 4 " ")
|
||
TEDIT :D8
|
||
(P 1 PROC P 0 TSTREAM I 3 PROPS I 2 DONTSPAWN I 1 WINDOW I 0 TEXT) î C`
|
||
b @Aµg hdC
|
||
Xd bHà ‘H‡H É kÏ: ¿kjðhðB˜HAi g Hd²dið¬3µ g HhAhdg g g g g g Hd²dið¬3µ g HhACd´dið¬3µ g Chh
|
||
Ydg A Cg '¥I I (234 TTY.PROCESS 220 PROCESSPROP 207 ADD.PROCESS 89 \TEDIT1 40 \TEDIT.PRIMARYPANE 33 OPENTEXTSTREAM 10 \APPEND2)
|
||
(226 LEAVETTY 214 WINDOW 192 QUOTE 170 QUOTE 153 \TEDIT.RESTARTFN 148 RESTARTFORM 143 HARDRESET 138 RESTARTABLE 133 TEdit 128 NAME 112 QUOTE 95 \TEDIT1 69 TEXTOBJ 64 TEXTOBJ 57 STREAM 48 TEXTOBJ 24 Tedit 5 TEDIT.DEFAULT.PROPS)
|
||
()
|
||
TEXTSTREAM :D8
|
||
(P 2 X P 1 WINDOW P 0 TS I 1 NOERROR I 0 TSTREAM?) ¯ @@Ã ²@ ÉÃ “@± €@Ã ”@É.°s@ µ @ –@ <00>@ ´@ Yµ'@Ã ´D@Ê jð³;@ÉZ ÉÃ ´*J°'g
|
||
Z[Ã ´K ÉÃ ´J€hXdµA«@o
|
||
h (170 ERROR 126 GETWINDOWPROP 76 WFROMDS 68 DISPLAYSTREAMP 61 PROCESS.WINDOW 54 PROCESSP 46 WINDOWP)
|
||
(148 TEXTOBJ 141 STREAM 133 STREAM 121 TEXTSTREAM 111 TEXTOBJ 104 STREAM 85 SELECTION 34 TEXTOBJ 23 TEXTOBJ 16 STREAM 8 STREAM)
|
||
( 165 "is not a Tedit document")
|
||
TEXTSTREAMP :D8
|
||
(I 0 TSTREAM) @Ã ´@ ÉÃ ´@ NIL
|
||
(20 TEXTOBJ 13 STREAM 5 STREAM)
|
||
()
|
||
COERCETEXTSTREAM :D8
|
||
(P 7 FORMATSTREAM P 6 CHARSTREAM P 5 CH P 4 STR P 3 NOBJECTS P 2 CH# P 0 TEXTOBJ I 2 OUTPUTSTREAM I 1 TYPE I 0 TSTREAM) [ @ H b Ag ðªAdg ð²^¿@j
|
||
HÉkjHÉ JIó³$@ ] ™KkÔ»JmÿÔZ‰LJM ¿JkÔZ°ÜLkJKkØÙ µ‚± èo g ð²,HÉ, ²HÉ, ¿HÉ,g
|
||
¿@j
|
||
@Adg ð²9¿BœBg
|
||
µg g g bHBH hð Bg ð²Rg g g g g g o HNOhi
|
||
Nj
|
||
Oj
|
||
NOAg ð´@ (344 TEDIT.SEL.AS.SEXPR 324 SETFILEPTR 316 SETFILEPTR 309 \TEDIT.PUT.PCTB 294 OPENSTREAM 269 OPENSTREAM 239 \TEDIT.PUT.PCTB 232 \TEDIT.FORMATTEDSTREAMP 222 OPENSTREAM 200 OPENP 174 SETFILEPTR 166 OPENSTREAM 152 \GETSTREAM 142 STREAMP 125 CONCAT 109 SUBSTRING 90 RPLCHARCODE 71 IMAGEOBJP 55 ALLOCSTRING 42 \TEDIT.TEXTSETFILEPTR 14 TEXTSTREAM 5 TEXTOBJ)
|
||
(335 SEXPR 284 NEW 279 BOTH 274 {NODIRCORE} 264 NEW 259 BOTH 254 {NODIRCORE} 246 SPLIT 217 NEW 212 BOTH 207 {NODIRCORE} 195 OUTPUT 183 FILE 161 INPUT 131 STREAM 31 STRING 22 STRINGP)
|
||
( 289 ((LINELENGTH T)) 120 "")
|
||
TEDIT.CONCAT :D8
|
||
(P 18 NEWPIECE P 17 PC P 16 TSOBJ P 15 PREVPC P 14 TS P 13 FIRSTPC P 12 LASTTOBJ P 9 INITIALFILEPIECES P 8 FIRSTTOBJ P 7 TSTEXTOBJECTS P 6 CTEXTOBJ P 5 CSTREAM P 4 TS I 1 SEPARATOR I 0 TSTREAMS) ¤ Aµ$@AHµ8Ib M 0@°q ³ÙAi
|
||
µA b¿°Å£H¼h„H¼H¸Li
|
||
µL »Jµ KhZ¹°£K&º°ždLà ‘L‡L É ¸IµHhZ<>H&¹µÖJ! @¢± …O_¿NOÉ@@¿NOÉ::¿NOÉBB¿NOÉDD¿NOÉ^^¿O@O ` dj¿dj¿4O_ ¿Oµˆ_ ¿Oµ&OÉhN ¿NOO ¿N M_ Ê: jð¥NkÏ: ¿ O °2 _"O Nhg
|
||
_$¿O O$¿O$O Î
|
||
¿O$_ ¿O"ɵÐO O_¿A²O OðªO A
|
||
_ ¿O_¿O_¿±ÿR (400 \TEDIT.MAKE.STRINGPIECE 377 \TEDIT.FIRSTPIECE 341 \TEDIT.COPYPIECE 317 \TEDIT.FIRSTPIECE 290 \TEDIT.UNIQUIFY.ALL 283 \TEDIT.CONCAT.PAGEFRAMES 278 DREVERSE 267 \TEDIT.INSERTPIECES 216 LAST 90 OPENTEXTSTREAM 82 TEXTSTREAM 58 MKSTRING 50 CHARCODE.DECODE 41 CHARCODEP 27 TEXTOBJ 18 OPENTEXTSTREAM)
|
||
(335 COPY 324 PIECE 222 |PIECETYPE#| 133 TEXTOBJ 126 STREAM 117 TEXTOBJ)
|
||
()
|
||
TEDITSTRING :D8
|
||
(P 0 TSTR I 3 PROPS I 2 DONTSPAWN I 1 WINDOW I 0 TEXT) < @d˜ b ¿hdC H@khi
|
||
¿Hkjg ¿HABC (57 TEDIT 46 TEDIT.SETSEL 32 TEDIT.INSERT 18 OPENTEXTSTREAM 7 MKSTRING)
|
||
(41 LEFT)
|
||
()
|
||
TEDIT-SEE :D8
|
||
(I 3 TITLE I 2 FORMAT I 1 WINDOW I 0 FILE F 0 DEFAULTFONT) 8 @Ahg ig ig Pg Cg Bh (53 TEXTSTREAM 48 TEDIT)
|
||
(31 FORMAT 25 TITLE 19 FONT 13 LEAVETTY 7 READONLY)
|
||
()
|
||
TEDIT.COPY :D8
|
||
(P 1 TOSTREAM P 0 FROMSTREAM I 1 TO I 0 FROM) ^ @ A @Ã ³H É É b ¿AÃ ³I É É b€A@ð©@AHI h (89 \TEDIT.COPY 11 TEXTSTREAM 5 TEXTSTREAM)
|
||
(73 SELECTION 66 TEXTOBJ 59 STREAM 51 SELECTION 42 SELECTION 35 TEXTOBJ 28 STREAM 20 SELECTION)
|
||
()
|
||
TEDIT.DELETE :D8
|
||
(P 0 TEXTOBJ I 3 LEAVECARETLOOKS I 2 LEN I 1 SEL I 0 TSTREAM) 2 @ Ad3 ž¿@ABhdC
|
||
¿<>µHÉb @A
|
||
(47 \TEDIT.DELETE 26 TEDIT.SETSEL 5 TEXTOBJ)
|
||
(40 SELECTION)
|
||
()
|
||
TEDIT.INSERT :D8
|
||
(P 0 TEXTOBJ I 4 DONTSCROLL I 3 LOOKS I 2 CH#ORSEL I 1 TEXT I 0 TSTREAM) Â @ b A ™A@BC Ad“3˜A b€A ´‚± <00>A jð’± ‚@Ã ‘@‡@ É Bd3 ²"¿HBkg ¿H É b°¯H É b€B BÊ jð³C—@C
|
||
¿AB@D Ho i h (189 TEDIT.PROMPTPRINT 176 \TEDIT.INSERT 166 TEDIT.CARETLOOKS 108 TEDIT.SETSEL 57 NCHARS 45 STRINGP 36 MKSTRING 23 TEDIT.INSERT.OBJECT 13 IMAGEOBJP 5 TEXTSTREAM)
|
||
(149 SELECTION 140 SELECTION 133 TEXTOBJ 122 SELECTION 115 TEXTOBJ 103 LEFT 85 TEXTOBJ 78 STREAM 69 TEXTOBJ)
|
||
( 183 "Please select a place for the insertion.")
|
||
TEDIT.TERPRI :D8
|
||
(P 0 TEXTOBJ I 2 DONTSCROLL I 1 CH#ORSEL I 0 TSTREAM) a @ b d É Ad3 Ÿ¿HAkg ¿<>µH É b AÊ jðo A@B Ho i (94 TEDIT.PROMPTPRINT 81 \TEDIT.INSERT 37 TEDIT.SETSEL 5 TEXTSTREAM)
|
||
(61 SELECTION 54 SELECTION 47 TEXTOBJ 32 LEFT 13 STREAM)
|
||
( 88 "Please select a place for the insertion." 73 "
|
||
")
|
||
TEDIT.KILL :D8
|
||
(P 2 TEDPROC P 1 TEDW P 0 TEXTOBJ I 0 TSTREAM) 8 @ !Hi0H Yd²! É.Z ´J` ð¦J h (51 DEL.PROCESS 35 PROCESSP 27 \INSUREWINDOW 18 \TEDIT.PRIMARYPANE 5 TEXTOBJ)
|
||
(43 \RUNNING.PROCESS)
|
||
()
|
||
TEDIT.QUIT :D8
|
||
(P 1 PRIMPANE P 0 TEXTOBJ I 1 VALUE I 0 TSTREAM) 3 @ !HÉYµ HAµiZ0J É.²ïI É. ¿°ß (46 TTY.PROCESS 39 \INSUREWINDOW 29 \INSUREWINDOW 5 TEXTOBJ)
|
||
NIL
|
||
()
|
||
TEDIT.MOVE :D8
|
||
(P 1 TOSTREAM P 0 FROMSTREAM I 1 TO I 0 FROM) ^ @ A @Ã ³H É É b ¿AÃ ³I É É b€A@ð©@AHI h (89 \TEDIT.MOVE 11 TEXTSTREAM 5 TEXTSTREAM)
|
||
(73 SELECTION 66 TEXTOBJ 59 STREAM 51 SELECTION 42 SELECTION 35 TEXTOBJ 28 STREAM 20 SELECTION)
|
||
()
|
||
TEDIT.STRINGWIDTH :D8
|
||
(P 2 CH I 2 TERMSA I 1 FONT I 0 STR) è B²p@jRHdÊjð¥ <00>ȼHdÊjð¥ <00>É ½LmÿØHl
|
||
Ø»HdÊj𥠂ʇlDð¾LKñ³ N•MLÐÈ ‚MLºIJAB Ô¹LkØ\°áI@jRHdÊjð¥ <00>ȼHdÊjð¥ <00>É ½LmÿØHl
|
||
Ø»HdÊj𥠂ʇlDð¾LKñ³'N•MLÐÈ ‚MLºIJdl ð“¿l$…A
|
||
Ô¹LkØ\°ÙI (220 CHARWIDTH 178 %%ARRAY-TYPE-NUMBER 163 \GETBASEFIXP 147 %%ARRAY-BASE 130 %%ARRAY-OFFSET 102 TEDIT.CHARWIDTH 68 %%ARRAY-TYPE-NUMBER 53 \GETBASEFIXP 37 %%ARRAY-BASE 20 %%ARRAY-OFFSET)
|
||
NIL
|
||
()
|
||
TEDIT.CHARWIDTH :D8
|
||
(I 2 TERMSA I 1 FONT I 0 CH) ï B¢± Ì@lÿñ² B É€Ÿ@B É€
|
||
µj‚B@Âlådlð²9¿@lñŸ@låb ¿l#A
|
||
€jl @ñŸ@l@äb ¿l^A
|
||
€jØ@A
|
||
Ødlð²I¿@dl
|
||
ðªdl
|
||
ð¥dl
|
||
ð²A
|
||
lHñ¡Hllð˜l$A
|
||
@dlð‘jl ð³?@A
|
||
djð˜¿@A
|
||
lð³á @dl
|
||
ð²A
|
||
lHñ³¯Hl ð²Òl$ (218 CHARWIDTH 204 \TEDIT.THELP 193 CHARWIDTH 180 CHARWIDTH 159 CHARWIDTH 134 CHARWIDTH 102 CHARWIDTH 92 CHARWIDTH 70 CHARWIDTH 33 GETHASH)
|
||
(26 CHARTABLE 16 CHARTABLE)
|
||
()
|
||
TEDIT.PARAGRAPH.BOUNDARIES :D8
|
||
(P 0 TEXTOBJ I 2 PROTECTEDNOTOK I 1 SELORCH# I 0 TSTREAM) T @ A¯H É b¿HAà ˜A É€AB HAà šA É
|
||
kÙ€AB h (77 \TEDIT.PARA.LAST 50 \TEDIT.PARA.FIRST 5 TEXTOBJ)
|
||
(65 SELECTION 58 SELECTION 40 SELECTION 33 SELECTION 23 SELECTION 16 TEXTOBJ)
|
||
()
|
||
TEXTOBJ :D8
|
||
(P 0 TSTRM I 1 NOERROR I 0 TEXTOBJ?) @Ã ‘@@A
|
||
Hd– É (15 TEXTSTREAM)
|
||
(26 STREAM 5 TEXTOBJ)
|
||
()
|
||
COERCETEXTOBJ :D8
|
||
(I 2 OUTPUTSTREAM I 1 TYPE I 0 TSTREAM)
|
||
@AB (7 COERCETEXTSTREAM)
|
||
NIL
|
||
()
|
||
TDRIBBLEA0001 :D8
|
||
(I 0 TSTREAM) € @g hg @g
|
||
g ig g g hg g g i Ég i Éh @kj (125 TEDIT.SETSEL 117 TEDIT 91 \INSUREWINDOW 86 WFROMDS 70 \INSUREWINDOW 65 WFROMDS 22 TEXTPROP)
|
||
(80 OPENHEIGHT 59 OPENWIDTH 54 OFF 49 HISTORY 43 PARABREAKCHARS 38 QUIET 33 APPEND 27 LEAVETTY 17 TITLE 11 TITLE 5 Dribble)
|
||
()
|
||
TDRIBBLE :D8
|
||
(P 0 TSTREAM I 1 WINDOW I 0 TITLE) H hdddg @µo o o
|
||
Hg g H (69 DRIBBLE 63 WHENCLOSE 44 OPENTEXTSTREAM 31 CONCAT 26 DATE)
|
||
(58 TDRIBBLEA0001 53 BEFORE 8 TITLE)
|
||
( 36 (HISTORY OFF FONT DEFAULTFONT) 21 " " 16 "Tedit Dribble")
|
||
TEDIT.INSERT.OBJECT :D8
|
||
(P 4 SUBSTREAM P 3 OBJSELPIECES P 2 OBJPC P 1 SEL P 0 TEXTOBJ I 3 LOOKS I 2 CH# I 1 TSTREAM I 0 OBJECT) W A bd aBµH É bà ™AB
|
||
b¿AhB ’±` dlÏ ¿d@ ¿dk¿HÉ4½dM ¿dj¿Z@g
|
||
\²0o ¿JlÏ ¿JLà ‘L‡L É É¿` dk¿dJ ¿dJ¿dB¿dB¿g A [d´‚± …H É YhdAh Bà šB Éb¿HÊF jð§AI
|
||
¿B²$IBHÉkؾdNñ‘¿Njg ¿IA
|
||
¿KAI C˜ACI ¿A hiAhd
|
||
h (339 \TEDIT.SHOWSEL 328 \TEDIT.SCROLL.CARET 321 \TEDIT.CHANGE.CHARLOOKS 311 \TEDIT.INSERT.SELPIECES 302 \TEDIT.FIXSEL 294 \TEDIT.UPDATE.SEL 265 \TEDIT.DELETE 233 \TEDIT.SHOWSEL 202 \TEDIT.SELPIECES.COPY 124 \TEDIT.THELP 111 IMAGEOBJPROP 58 \TEDIT.READONLY 47 TEDIT.GETPOINT 13 TEXTOBJ 5 TEXTSTREAM)
|
||
(289 LEFT 246 SELECTION 239 SELECTION 223 SELECTION 216 TEXTOBJ 196 INSERT 165 |SELPIECESTYPE#| 155 TEXTOBJ 148 STREAM 139 TEXTOBJ 106 SUBSTREAM 67 |PIECETYPE#| 39 SELECTION 32 SELECTION 25 TEXTOBJ)
|
||
( 119 "SUBSTREAM NOT IMPLEMENTED")
|
||
TEDIT.EDIT.OBJECT :D8
|
||
(P 2 EDITFN P 1 CH# P 0 TEXTOBJ I 1 OBJ I 0 TSTREAM) ì @ b dà ‘@‡@ É !A ²u@A
|
||
Y²\hd@h ¿@Ik ¿h@
|
||
¿H É A ¿@ ¿Ag
|
||
Z³d@Ao i
|
||
h@o id hA²@Ao
|
||
id hH É É bµ¢@o id hAkJ³«@A
|
||
°¢ (232 TEDIT.OBJECT.CHANGED 216 TEDIT.PROMPTPRINT 177 TEDIT.PROMPTPRINT 170 CONCAT 153 TEDIT.PROMPTPRINT 138 TEDIT.PROMPTPRINT 133 CONCAT 117 IMAGEOBJPROP 105 TEDIT.NORMALIZECARET 76 \TEDIT.FIXSEL 68 \TEDIT.UPDATE.SEL 59 \TEDIT.SHOWSEL 47 TEDIT.FIND.OBJECT 38 IMAGEOBJP 5 TEXTSTREAM)
|
||
(197 SELECTION 192 SELECTION 185 TEXTOBJ 112 EDITFN 95 SELECTION 90 SELECTION 83 TEXTOBJ 29 TEXTOBJ 22 STREAM 13 TEXTOBJ)
|
||
( 209 "Please select an editable object" 165 " is not an image object" 146 "Can't find the specified object"
|
||
127 " does not have an edit function")
|
||
TEDIT.OBJECT.CHANGED :D8
|
||
(P 1 CH# P 0 TEXTOBJ I 2 PIECE/CH#/SEL I 1 OBJECT I 0 TSTREAM) ¡ @ Bd3 ³EÃ ²%ABÊ lð´BÉ Ã ´BÉ ð´$BH
|
||
°Bà ™ABÉ ð“Bɇ@Ak Yd²?@g Ik hi@hd
|
||
Hh HÊ, jðhðið³Hi
|
||
HkÏ, ¿kjðhðh@o i (158 TEDIT.PROMPTPRINT 132 \TEDIT.WINDOW.TITLE 109 \TEDIT.SHOWSEL 98 \TEDIT.UPDATE.LINES 81 TEDIT.FIND.OBJECT 54 \TEDIT.PCTOCH 5 TEXTOBJ)
|
||
(91 CHANGED 62 SELECTION 39 IMAGEOBJ 19 PIECE)
|
||
( 152 "Changed object not found in document")
|
||
TEDIT.MAP.OBJECTS :D8
|
||
(P 4 PC P 3 FNVAL P 2 OBJ P 0 CH# I 3 COLLECT? I 2 FNARG I 1 FN I 0 TSTREAM) œ A§g b¿kA@ °Ddg ð“¿H°#g ð’K°Cg ð—HJKhHJKhIY¿Kg ðªHLÉÔ¸Lɵ I \Ê lð²âLÉ Zà ²×HJBlA[²ÌCd²¿dg 𲆿J°¯ (100 DREVERSE 24 \TEDIT.FIRSTPIECE 19 TEXTOBJ)
|
||
(147 OBJECT 124 IMAGEOBJ 106 PIECE 81 STOP 54 FIRST 43 VALUE 32 CH# 6 TRUE)
|
||
()
|
||
\TEDIT.FIRST.OBJPIECE :D8
|
||
(I 0 TEXTOBJ) # @ HµhYÊ lð”IµiHX°ê (5 \TEDIT.FIRSTPIECE)
|
||
NIL
|
||
()
|
||
\TEDIT.NEXT.OBJPIECE :D8
|
||
(I 1 PC I 0 TEXTOBJ) AÉd² bÊ lð²íAµi NIL
|
||
(10 PIECE)
|
||
()
|
||
\TEDIT.CONCAT.PAGEFRAMES :D8
|
||
(P 17 TYPE P 16 PPARALOOKS P 15 PC P 14 ALLNEW P 13 R P 12 I P 10 FRAMES P 9 TSOBJ P 6 CPAGEFRAME P 5 RIGHTNEW P 4 LEFTNEW P 3 FIRSTNEW P 2 RIGHTREGIONS P 1 LEFTREGIONS P 0 FIRSTREGIONS I 2 INITIALFILEPIECES I 1 TSTEXTOBJECTS I 0 CTEXTOBJ) › €A!
|
||
OµEHk
|
||
OµlIk
|
||
Oµ‚± •Jk
|
||
Oµ‚± ½KLM
|
||
|
||
!@ ±_ ÉT_H
|
||
¸OI
|
||
¹OJ
|
||
ºO_°Š_° dO"g O
|
||
OhK[µàO_¿OkÔ_¿±ÿ]_° dO"g O
|
||
OhL\µàO_¿OkÔ_¿±ÿ1_° dO"g O
|
||
OhM]µàO_¿OkÔ_¿±ÿ _ É_ É g ð²%O ` O
|
||
O É O _¿dO ¿¿O ɵ¿AÉT ^dK
|
||
NL
|
||
NM
|
||
@NTN (403 \TEDIT.CONCAT.INSTALL.HEADINGS 393 \TEDIT.CONCAT.INSTALL.HEADINGS 384 \TEDIT.CONCAT.INSTALL.HEADINGS 375 \TEDIT.PARSE.PAGEFRAMES 370 \TEDIT.UNPARSE.PAGEFRAMES 333 NCREATE2 262 PACK* 207 PACK* 152 PACK* 120 \TEDIT.GET.PAGE.HEADINGS 108 \TEDIT.GET.PAGE.HEADINGS 97 \TEDIT.GET.PAGE.HEADINGS 75 \TEDIT.FIRSTPIECE 66 \APPEND2 61 \APPEND2)
|
||
(326 |PARALOOKSTYPE#| 316 PAGEHEADING 309 PARALOOKS 298 PIECE 255 HeadingR 200 HeadingL 145 HeadingF 86 TEXTOBJ)
|
||
()
|
||
\TEDIT.GET.PAGE.HEADINGS :D8
|
||
(P 1 PH I 1 HEADLIST I 0 PAGEREGION) € @ É g ð´@ É1HµAY É g ð²JI Ég ð²9I ÉA
|
||
µI ÉhAbI É»ºKJ ¦JKJ¿HX°Ÿ (80 SASSOC)
|
||
(103 PAGEREGION 88 PAGEREGION 72 PAGEREGION 63 HEADINGTYPE 55 PAGEREGION 46 HEADING 39 PAGEREGION 21 PAGEREGION 12 PAGE 5 PAGEREGION)
|
||
()
|
||
\TEDIT.CONCAT.INSTALL.HEADINGS :D8
|
||
(P 14 R P 9 NT P 4 SPF I 1 NEWTYPES I 0 PAGEREGION) ê @ É g ð´;@ @ ÉAHµ'IAA MµANaOµ^O
|
||
HII\ É g ð©L»Jµ KhZ¹HX°»K&º°ø_N³O_¿OµOh_¾M]°¡O&_¿°õ_ ¿` dg ¿g O h_ ¿dO ¿O _ ¿dO ¿_¿OµOh__¿O_±ÿXO&_¿°ò (64 \NCONC2)
|
||
(172 HEADINGTYPE 164 HEADING 157 |PAGEREGIONTYPE#| 87 HEADING 80 PAGEREGION 27 PAGEREGION 21 PAGEREGION 12 PAGE 5 PAGEREGION)
|
||
()
|
||
\TEDIT.MOVE.MSG :D8
|
||
(P 0 TYPE I 2 COPYFLG I 1 TOOBJ I 0 FROMOBJ) d B•o „o @´>A²1@AðœAhAÉÉ Ao
|
||
µBhð´
|
||
@o
|
||
@´ Ao „o H
|
||
id i (96 TEDIT.PROMPTPRINT 89 CONCAT 67 \TEDIT.READONLY 49 \TEDIT.READONLY 37 \TEDIT.READONLY)
|
||
NIL
|
||
( 83 "Please select a source for the " 77 "Please select a destination for the " 62 "Source" 44 "Destination"
|
||
12 "move" 6 "copy")
|
||
\TEDIT.READONLY :D8
|
||
(P 0 TEXTOBJ I 2 CHNO I 1 TYPE I 0 TSTREAM) … @Ã ‘@‡@ É HÊ:jð³*HÊjð² HAµo o
|
||
id g HÊX jð³3B–BHÉñ³*HÊjð² HAµo o
|
||
id g h (123 TEDIT.PROMPTPRINT 116 CONCAT 66 TEDIT.PROMPTPRINT 59 CONCAT)
|
||
(128 APPENDONLY 71 READONLY 21 TEXTOBJ 14 STREAM 5 TEXTOBJ)
|
||
( 111 " is append only--aborted" 106 "Text" 54 " is read only--aborted" 49 "Text")
|
||
TEDIT.NCHARS :D8
|
||
(I 0 TSTREAM) @Ã “@É @ É (16 TEXTOBJ)
|
||
(5 SELECTION)
|
||
()
|
||
TEDIT.RPLCHARCODE :D8
|
||
(P 0 TEXTLEN I 4 DONTDISPLAY I 3 NEWCHARLOOKS I 2 NEWCHARCODE I 1 N I 0 TSTREAM) i @ b d jAñ—AHkØÔb¿kAñ£AHñ–A ¿B B ¦B ¿Cµ@ABCD
|
||
³ïCà ³çC ¿°Þ (100 \ILLEGAL.ARG 84 FONTP 78 \TEDIT.RPLCHARCODE 63 \ILLEGAL.ARG 56 IMAGEOBJP 49 CHARCODEP 42 \ILLEGAL.ARG 13 TEDIT.NCHARS 5 TEXTSTREAM)
|
||
(92 CHARLOOKS)
|
||
()
|
||
TEDIT.NTHCHARCODE :D8
|
||
(I 1 N I 0 TSTREAM) \ @Ã ²3Ajð³$AjAñ“@É
|
||
„@ÉkÙÔb@Éýñ¦A@É
|
||
ýñ£jb¿@ b ° @ b ¿jAñœ@ AØkØb¿@A
|
||
(89 \TEDIT.NTHCHARCODE 75 TEDIT.NCHARS 62 TEXTSTREAM 52 TEXTSTREAM)
|
||
(5 SELECTION)
|
||
()
|
||
TEDIT.NTHCHAR :D8
|
||
(P 0 CODE I 1 N I 0 TSTREAM) @A
|
||
Hd3 ” (19 CHARACTER 6 TEDIT.NTHCHARCODE)
|
||
NIL
|
||
()
|
||
\TEDIT1 :D8
|
||
(P 0 TEXTOBJ I 2 UNSPAWNED I 1 WINDOW I 0 TSTREAM) s @ É@ A @ @ lÏHg
|
||
²Hg
|
||
¹A@lI¿B´'HÉ0ið¨HÉ0Hh0¿HÉ, ›Hg
|
||
@ (110 COERCETEXTOBJ 98 STRINGP 63 GETTEXTPROP 50 GETTEXTPROP 28 \TEDIT.TEXTCLOSEF 22 CLOSEW 16 \TEDIT.COMMAND.LOOP)
|
||
(105 STRINGP 58 AFTERQUITFN 45 AFTERQUITFN 34 STREAM 5 STREAM)
|
||
()
|
||
\TEDIT.INSERT :D8
|
||
(P 11 CH P 10 NCH# P 5 CH P 3 PARACHARS P 2 NCHARSADDED P 1 CARETCHNO P 0 TEXTOBJ I 4 TYPEIN I 3 DONTSCROLL I 2 TSTREAM I 1 SEL I 0 INSERT) A Ê jð’±@ «@ jð’±õBà ‘B‡B É 1HÉ»HhI ’±ÌHÊF jð§BA
|
||
¿HA
|
||
¹@ Ÿ@IH@K ¿k±'K¢±@Q LdÊjð¥ <00>È_¿LdÊjð¥ <00>É _¿OmÿØLl
|
||
ؾLdÊj𥠂ʇlDð_¿ONñ³#O—OOÐÈ „OOÂ]K ”Mµ
|
||
iˆOkØ_°Ýh¢± –@IROdÊjð¥ <00>È_¿OdÊjð¥ <00>É _ ¿OmÿØOl
|
||
Ø_¿OdÊj𥠂ʇlDð_ ¿OOñ³5O —O OÐÈ „O OÂ_OHOK
|
||
¿OkØ_¿OkÔ_¿°Èˆ@IH ¿@ ºHh ¿HÊ, jðhðiðHi
|
||
¿HkÏ, ¿hdBh ¿AIJØkÙjg g
|
||
¿C³5Bg IJ ¿AH É ð›hiBhd
|
||
¿D´ B h (531 \TEDIT.SCROLL.CARET 521 \TEDIT.SHOWSEL 493 \TEDIT.UPDATE.LINES 476 \TEDIT.UPDATE.SEL 452 \TEDIT.SHOWSEL 436 \TEDIT.WINDOW.TITLE 412 NCHARS 405 \TEDIT.INSERTCH 378 \TEDIT.INSERTCH 373 MEMB 327 %%ARRAY-TYPE-NUMBER 309 \GETBASEFIXP 289 %%ARRAY-BASE 269 %%ARRAY-OFFSET 195 %%ARRAY-TYPE-NUMBER 180 \GETBASEFIXP 161 %%ARRAY-BASE 142 %%ARRAY-OFFSET 115 \TEDIT.INSERTCH 103 CHARCODEP 96 TEDIT.GETPOINT 88 \TEDIT.DELETE 70 \TEDIT.READONLY 27 NCHARS 20 CHARCODEP)
|
||
(508 SELECTION 501 TEXTOBJ 486 INSERTION 470 NORMAL 465 RIGHT 55 TEXTOBJ 48 STREAM 39 TEXTOBJ 5 SELECTION)
|
||
()
|
||
\TEDIT.MOVE :D8
|
||
(P 7 TOOBJ P 6 TOCH# P 5 TODCH P 4 TOPOINT P 3 TODELEVENT P 2 FROMPIECES P 1 BPD P 0 FROMOBJ I 3 TOTSTREAM I 2 FROMTSTREAM I 1 TOSEL I 0 FROMSEL) <01> @ A @ É jð’±gBà ‘B‡B É qCà ‘C‡C É _¿AɾAÉ ½Aɼh[Z¹HOh ’±OÊF jð³+Mjñ²&OjÏF ¿CA
|
||
´‚± ÷i¹OHð˜@NM ¿@hH g CB Z´‚± ÌhdBh ¿hdCh ¿OHð²&B@hi ¿A@
|
||
¿Bg @É@É ŠB@hdi
|
||
¿Og
|
||
²)@Bi ¿I´gOdd O h ¿°KJCA ¿Ag
|
||
¿hiChd
|
||
¿Od OHð´ O I´ O h
|
||
h (381 \TEDIT.HISTORYADD.COMPOSITE 372 \TEDIT.POPEVENT 362 \TEDIT.POPEVENT 349 \TEDIT.POPEVENT 340 \TEDIT.SHOWSEL 328 \TEDIT.SET.SEL.LOOKS 316 \TEDIT.INSERT.SELPIECES 305 \TEDIT.HISTORYADD.COMPOSITE 297 \TEDIT.POPEVENT 290 \TEDIT.POPEVENT 277 \TEDIT.FOREIGN.COPY 267 GETTEXTPROP 254 \TEDIT.DELETE 242 \TEDIT.UPDATE.LINES 224 \TEDIT.SEL.DELETEDCHARS 216 \TEDIT.DELETE.SELPIECES 200 \TEDIT.SHOWSEL 190 \TEDIT.SHOWSEL 174 \TEDIT.SELPIECES.COPY 162 \TEDIT.SELPIECES 153 \TEDIT.SEL.DELETEDCHARS 132 \TEDIT.DELETE 100 \TEDIT.MOVE.MSG)
|
||
(323 NORMAL 262 COPYBYBKSYSBUF 231 DELETION 167 MOVE 72 TEXTOBJ 65 STREAM 56 TEXTOBJ 47 TEXTOBJ 40 STREAM 31 TEXTOBJ 17 SELECTION 11 SELECTION 5 SELECTION)
|
||
()
|
||
\TEDIT.COPY :D8
|
||
(P 3 TOOBJ P 2 FROMPIECES P 1 FROMOBJ I 3 TOTSTREAM I 2 FROMTSTREAM I 1 TOSEL I 0 FROMSEL) Ì @ É Hjðµ
|
||
H´H ’± ¬B É!C É»hºIKi ‘h@hI g CB Z´êhdBh ¿hdCh ¿Kg
|
||
™@Bi hKÊF jð®KjÏF ¿JCA ‡JCA ¿Ag
|
||
¿hdCh ¿hiChd
|
||
¿C h (200 \TEDIT.SCROLL.CARET 193 \TEDIT.SHOWSEL 181 \TEDIT.SHOWSEL 171 \TEDIT.SET.SEL.LOOKS 159 \TEDIT.INSERT.SELPIECES 150 \TEDIT.REPLACE.SELPIECES 127 \TEDIT.FOREIGN.COPY 118 GETTEXTPROP 106 \TEDIT.SHOWSEL 96 \TEDIT.SHOWSEL 84 \TEDIT.SELPIECES.COPY 72 \TEDIT.SELPIECES 61 \TEDIT.MOVE.MSG 26 \FZEROP)
|
||
(166 NORMAL 113 COPYBYBKSYSBUF 77 COPY 48 STREAM 37 STREAM 5 SELECTION)
|
||
()
|
||
\TEDIT.REPLACE.SELPIECES :D8
|
||
(P 5 ILEN P 4 DELEVENT P 3 DCH P 2 CH# P 1 POINT P 0 TEXTOBJ I 2 SEL I 1 TSTREAM I 0 INSERTSELPIECES) ÷ A ’± íAÃ ‘A‡A É B ÉBÉBÉ $BhAh AJK ²5BJkÙjg g
|
||
¿BA
|
||
¿HdB
|
||
4¿H ÉH¼@´}j@ É]ñ³o@ABi ´eL²+H ¿L g ¿L M¿L I¿BJMI ¿MKñ›Ag JMKÙ°KMñšAg JKMÙ‡Ag JK h (243 \TEDIT.UPDATE.LINES 198 \TEDIT.UPDATE.SEL 154 \TEDIT.POPEVENT 143 \TEDIT.INSERT.SELPIECES 105 \TEDIT.GET.INSERT.CHARLOOKS 96 \TEDIT.FIXSEL 88 \TEDIT.UPDATE.SEL 65 \TEDIT.DELETE.SELPIECES 57 \TEDIT.SHOWSEL 5 \TEDIT.READONLY)
|
||
(236 LOOKS 225 DELETION 209 INSERTION 185 TEDITHISTORYEVENT 175 TEDITHISTORYEVENT 166 :Replace 161 TEDITHISTORYEVENT 128 SELPIECES 114 TEXTOBJ 82 NORMAL 77 RIGHT 37 SELECTION 31 TEXTOBJ 24 STREAM 15 TEXTOBJ)
|
||
()
|
||
\TEDIT.INSERT.SELPIECES :D8
|
||
(P 4 NEXTPC P 3 SPFIRST P 2 SPLEN P 1 INSCH# P 0 TEXTOBJ I 3 DONTUPDATE I 2 TARGETSEL I 1 TSTREAM I 0 SELPIECES) ‰ @´‚± ƒAÃ ‘A‡A É AB
|
||
@ É@ É IH
|
||
\KLH KÉ
|
||
L
|
||
C³ HÉIJg ¿Ag IJ ¿Hdg IJhK
|
||
|
||
(134 \TEDIT.HISTORYADD 129 \TEDIT.HISTORY.EVENT 111 \TEDIT.UPDATE.LINES 97 \TEDIT.UPDATE.SEL 79 \TEDIT.DIFFUSE.PARALOOKS 70 \TEDIT.INSERTPIECES 61 \TEDIT.ALIGNEDPIECE 35 TEDIT.GETPOINT)
|
||
(119 :Insert 104 INSERTION 92 RIGHT 49 SELPIECES 41 SELPIECES 28 TEXTOBJ 21 STREAM 12 TEXTOBJ)
|
||
()
|
||
\TEDIT.RESTARTFN :D8
|
||
(P 1 ODIRTY P 0 TEXTOBJ I 2 PROPS I 1 WINDOW I 0 TSTREAM) ª @ b dAhdB
|
||
b d É!HÊ, jðhð¹H h@AhdB
|
||
b d ÉXdh ¿IHÊ, jðhðð³HI
|
||
¿HI‘k€jÏ, ¿@ A @ @ lÏHg
|
||
´Hg
|
||
ºA@lJ (159 GETTEXTPROP 146 GETTEXTPROP 124 \TEDIT.TEXTCLOSEF 118 CLOSEW 112 \TEDIT.COMMAND.LOOP 95 \TEDIT.WINDOW.TITLE 60 OPENTEXTSTREAM 18 OPENTEXTSTREAM 5 TEXTSTREAM)
|
||
(154 AFTERQUITFN 141 AFTERQUITFN 130 STREAM 68 STREAM 46 TEXTOBJ 26 STREAM)
|
||
()
|
||
\TEDIT.CHARDELETE :D8
|
||
(P 3 SEL P 2 DCH P 1 CH# P 0 TEXTOBJ I 1 FORWARD I 0 TSTREAM) ˜ @ ’± Ž@à ‘@‡@ É 1H É [ É ºh¹HÊF jð³K É kñ•Kɹ°&A<>@K
|
||
H
|
||
Ž@K
|
||
kÙH
|
||
Y´kº@IJA–g …g ¿@ h (148 \TEDIT.SCROLL.CARET 141 \TEDIT.DELETE 114 \TEDIT.LASTCHANGEABLE.CHNO 106 TEDIT.GETPOINT 98 \TEDIT.NEXTCHANGEABLE.CHNO 92 TEDIT.GETPOINT 5 \TEDIT.READONLY)
|
||
(136 LEFT 129 RIGHT 72 SELECTION 53 SELECTION 47 SELECTION 40 TEXTOBJ 31 TEXTOBJ 24 STREAM 15 TEXTOBJ)
|
||
()
|
||
\TEDIT.COPYPIECE :D8
|
||
(P 8 \INTERRUPTABLE P 3 SRCPFILE P 2 NEWPC P 1 CROSSCOPY P 0 TOOBJ I 5 PROMPTTEXTOBJ I 4 OPERATION I 3 UNPROTECT I 2 TOTSTREAM I 1 FROMTSTREAM I 0 PC) ¸ BÃ ‘B‡B É ABðhðb` @
|
||
dkÏ ¿dhÎ
|
||
¿dh¿\LdÈnð åhÒnÿåäÍ¿LlkØÐhÓÍ Z@Ê djð³dlð¯dl ðªdlð¥dl ð²z¿I¢± ±@É [g i ³Kg g o »@g g g g Kg
|
||
hh ¿K@É @É@É@É@ÉÚØ ¿@j°=dlð¥dlð²¿J J É °lð²JdÉ DABE
|
||
d¢± <00> ¿C²kJÉ Ê jð³aJ@É _¿` O
|
||
djÏ ¿djÏ¿0 O É
|
||
° d]M_¿Oµ Oh_‚O&_¿µãO¾dN
|
||
¿H
|
||
° I²J@É H
|
||
¿J@ÉH
|
||
J (434 \TEDIT.UNIQUIFY.PARALOOKS 421 \TEDIT.UNIQUIFY.CHARLOOKS 404 \TEDIT.UNIQUIFY.CHARLOOKS 332 NCREATE2 292 \TEDIT.APPLY.OBJFN 271 CONCAT 233 COPYBYTES 207 OPENSTREAM 197 STREAMPROP 164 OPENSTREAM 141 \GETSTREAM 40 NCREATE2)
|
||
(354 CHARLOOKS 325 |CHARLOOKSTYPE#| 264 PIECE 258 PIECE 192 :EXTERNAL-FORMAT 186 :EXTERNAL-FORMAT 181 NEW 176 BOTH 171 {NODIRCORE} 154 OLD 149 INPUT 135 INPUT 34 |PIECETYPE#| 21 TEXTOBJ 14 STREAM 5 TEXTOBJ)
|
||
( 159 ((TYPE TEXT)))
|
||
\TEDIT.APPLY.OBJFN :D8
|
||
(P 1 NEWOBJ P 0 OBJFN I 4 PROMPTTEXTOBJ I 3 TOTSTREAM I 2 FROMTSTREAM I 1 OPERATION I 0 OBJ) ß C£Bb¿@Adg ð—¿g °-g ð–g ° Adg ð–¿g Œg ð´g
|
||
H²@BAg ð¡C€hlH<0E>Ag ð–@ €@Ydo
|
||
² DµBAi
|
||
o
|
||
i hAg ð²1@g
|
||
X²#@C É BClHo
|
||
³ÈI µ@ (217 IMAGEOBJP 209 MEMB 190 \INSUREWINDOW 185 \TEDIT.PRIMARYPANE 175 IMAGEOBJPROP 153 TEDIT.PROMPTPRINT 147 CONCAT 137 L-CASE 124 MEMB 110 COPYALL 71 IMAGEOBJPROP)
|
||
(170 WHENCOPIEDFN 161 COPY 102 COPY 85 DELETE 66 WHENDELETEDFN 58 DELETE 52 WHENINSERTEDFN 44 INSERT 35 WHENMOVEDFN 28 MOVE 21 COPYFN 13 COPY)
|
||
( 204 (DON'T DONT) 142 " of this object not allowed." 119 (DON'T DONT))
|
||
\TEDIT.DELETE :D8
|
||
(P 3 FIRSTCHAR P 2 CLOOKS P 1 SEL P 0 TEXTOBJ I 4 DONTCHECK I 3 POINT I 2 LEN I 1 TARGETSEL/CHAR I 0 TSTREAM) ® @à ‘@‡@ É 1H É ¹hZ»AµIbà ²HA
|
||
ºAÉ»B¥AÉ b¿AɈA»C§g b¿HCg ð‘K…mÿKØBØ
|
||
Z@KBD ´1@g KB HJ4IKB H @KkÙjg i (170 \TEDIT.UPDATE.SEL 155 \TEDIT.RESET.EXTEND.PENDING.DELETE 149 \TEDIT.SEL.DELETEDCHARS 137 \TEDIT.UPDATE.LINES 122 \TEDIT.DELETE.SELPIECES 112 \TEDIT.GET.INSERT.CHARLOOKS 61 \TEDIT.GET.INSERT.CHARLOOKS)
|
||
(165 RIGHT 130 DELETION 97 LEFT 87 LEFT 52 SELECTION 37 SELECTION 30 TEXTOBJ 21 TEXTOBJ 14 STREAM 5 TEXTOBJ)
|
||
()
|
||
\TEDIT.DIFFUSE.PARALOOKS :D8
|
||
(P 1 PC P 0 PPLOOKS I 1 SUCCEEDINGPC I 0 PRIORPC) W @µAd²PÉA°CÊ jð²ï@É@° YÊ jð™IH¿Iɵì°Í Y@ð³IÊ jð´
|
||
IH¿IÉ
|
||
µæh NIL
|
||
(60 PIECE 35 PIECE)
|
||
()
|
||
\TEDIT.WORDDELETE :D8
|
||
(P 1 FIRSTNO P 0 LASTNO I 0 TSTREAM) ' @ kÙXdjñ´@H
|
||
Y@IHIÙkØ (36 \TEDIT.DELETE 23 \TEDIT.WORD.FIRST 8 TEDIT.GETPOINT)
|
||
NIL
|
||
()
|
||
\TEDIT.WORDDELETE.FORWARD :D8
|
||
(P 1 LASTNO P 0 FIRSTNO I 0 TSTREAM) > @ Xd@Ã ‘@‡@ É Éñ³@H
|
||
Y@HIHÙkØ h (57 \TEDIT.DELETE 44 \TEDIT.WORD.LAST 8 TEDIT.GETPOINT)
|
||
(32 TEXTOBJ 25 STREAM 16 TEXTOBJ)
|
||
()
|
||
\TEDIT.FINISHEDIT? :D8
|
||
(P 6 QUITFN P 4 PRIMPANE P 3 PRIMPANE P 2 QUITFLG P 1 QUITFNS P 0 TEXTOBJ I 1 NOFORCE I 0 TSTREAM) @ Hg
|
||
HÉHÉ>²<o HÉ>
|
||
³'Ho HÉ>ið•o ‚HÉ>o i g HÉIMµJg ð²8g £M¾h„M¾M½Jg ð³ÝJið³ØNiðµN´
|
||
L@HdÉFlNº°¿HÊ, jð³)HÊ8 jð²!HÊ8 jð§Iið“Jið¯o iHÉL ²<>K²%A³"K` g
|
||
ðK É. ¿Hi0i (249 TTY.PROCESS 242 \INSUREWINDOW 234 PROCESSPROP 210 MOUSECONFIRM 85 TEDIT.PROMPTPRINT 79 CONCAT 46 STRING.EQUAL 19 GETTEXTPROP 5 TEXTOBJ)
|
||
(229 WINDOW 224 \TTY.PROCESS 135 DON'T 116 DON'T 108 DON'T 90 DON'T 14 QUITFN)
|
||
( 201 "Not saved yet; LEFT to Quit anyway." 74 " operation in progress" 65 "Edit" 54 "Not closed: " 38
|
||
"Get")
|
||
\TEDIT.THELP :D8
|
||
(I 1 MESS2 I 0 MESS1 F 0 \TEDIT.THELPFLG) P—@A
|
||
@Ai (17 ERROR 8 HELP)
|
||
NIL
|
||
()
|
||
\TEDIT.PARAPIECES :D8
|
||
(P 3 START-OF-PIECE P 2 LAST P 1 FIRST P 0 FIRSTCHAR I 2 TEXTOBJ I 1 LASTCHAR I 0 SEL/FIRSTCHAR) ’ <11>@à ²@ɸ@É jð³/@ É
|
||
kÙ°$@Ã ²@ ÉX@ ÉØkÙ„@¸A£Hb¿BH
|
||
YBA
|
||
Z` I¼dL ¿J½dM¿JIÙkؾdN¿I_¿dO¿J_¿dO¿ (85 \TEDIT.PARA.LAST 77 \TEDIT.PARA.FIRST)
|
||
(91 |SELPIECESTYPE#| 56 TEDITHISTORYEVENT 47 TEDITHISTORYEVENT 39 TEDITHISTORYEVENT 27 SELECTION 8 SELECTION)
|
||
()
|
||
\TEDIT.PARACHNOS :D8
|
||
(P 7 PC P 3 CHNO P 2 PARAS P 1 LASTPARAPC P 0 FIRSTPARA I 2 TEXTOBJ I 1 LASTCHAR I 0 SEL/FIRSTCHAR) w @Ã ²@ É
|
||
kÙb¿@Éb ¿B@
|
||
BA
|
||
HAHµ°- _¿OÊ jð©K¾MµNh]¼OdI𖿈N&½°õɵL _¿KOÉÔ»°Ì (40 \TEDIT.PARA.LAST 33 \TEDIT.PARA.LAST)
|
||
(105 PIECE 60 PIECE 13 SELECTION 5 SELECTION)
|
||
()
|
||
\TEDIT.PARA.FIRST :D8
|
||
(P 7 PC P 6 PLENTOT P 3 START P 2 START-OF-PIECE P 1 CHPIECE I 2 PROTECTEDNOTOK I 1 CHNO I 0 TEXTOBJ) Ú @É Hjðµ
|
||
H´H “jhPAÃ ²A É ¹A É°?AÃ ›A@
|
||
»A¹°-Aà ”AÉ°A@ɼdLñ‘¿L½jMñ¡M€jb@i ¹J»jI²GI°@ _Ê jð²6BŸOÉ Ê jð²$Od²Éjð³OÉ Ê0jð–NOÉÔ¾OÉ
|
||
µÀKNÙOÉ
|
||
”OÉ…@ (214 \TEDIT.FIRSTPIECE 116 \TEDIT.CHTOPC 71 \TEDIT.PCTOCH 21 \FZEROP)
|
||
(154 CHARLOOKS 134 PIECE 82 SELECTION 63 PIECE 53 SELPIECES 44 SELPIECES 36 SELPIECES)
|
||
()
|
||
\TEDIT.PARA.LAST :D8
|
||
(P 8 PC P 7 PLENTOT P 4 FORMATTED P 3 END P 2 START-OF-PIECE P 1 CHPIECE I 2 PROTECTEDNOTOK I 1 CHNO I 0 TEXTOBJ) Ô @É Hjðµ
|
||
H´H “jh`Aà ²A ɹA ÉIÉÙkÙ°9Aà ™AY@
|
||
°(AÃ šA É
|
||
kÙ€A@ɽdMñ‘¿M@i ¹J»jI°? _d² Éjð³OÉ Ê0jð™OOÉÔ_¿OÊ jð²B™OÉ Ê jð•OɵÃKOØmÿØ@ɾdNñ‘¿NO (116 \TEDIT.CHTOPC 78 \TEDIT.PCTOCH 21 \FZEROP)
|
||
(131 PIECE 93 SELECTION 86 SELECTION 69 PIECE 53 SELPIECES 44 SELPIECES 36 SELPIECES)
|
||
()
|
||
\TEDIT.WORD.FIRST :D8
|
||
(P 4 CN P 2 CH P 1 READSA P 0 TEXTOBJ I 2 WORDBOUNDTABLE I 1 CHNO I 0 TSTREAM) & Akñ¡k@ É 1Bµ HÉDµ` É ¹hºAHÉ»dKñ‘¿Kbd@L
|
||
Z ²AJlÿñ² I É€ŸJI É€
|
||
µj‚IJÂlð²@ É É Ê jð³*LµibJlÿñ²$I É€ŸJI É€
|
||
µj‰LmÿÔ¼°…IJÂlð²bA@L
|
||
Z ²@Jlÿñ² I É€ŸJI É€
|
||
µj‚IJÂlð²@ É É Ê jð§LµikØLmÿÔ¼°¦A (242 GETHASH 211 CHARCODEP 205 \TEDIT.NTHCHARCODE 175 GETHASH 105 GETHASH 74 CHARCODEP 68 \TEDIT.NTHCHARCODE)
|
||
(269 CHARLOOKS 260 STREAM 235 CHARTABLE 225 CHARTABLE 168 CHARTABLE 158 CHARTABLE 132 CHARLOOKS 123 STREAM 98 CHARTABLE 88 CHARTABLE 39 READTABLEP 34 TEDIT.WORDBOUND.READTABLE 18 TEXTOBJ 11 STREAM)
|
||
()
|
||
\TEDIT.WORD.LAST :D8
|
||
(P 4 CN P 3 CH P 2 TEXTLEN P 1 READSA P 0 TEXTOBJ I 2 WORDBOUNDTABLE I 1 CHNO I 0 TSTREAM) % Adkñ¡¿kb@ É 1Bµ HÉDµ` É ¹Hɺh»JAñ¡JA@L
|
||
[ ²AKlÿñ² I É€ŸKI É€
|
||
µj‚IKÂlð²@ É É Ê jð³+Lµib¿Klÿñ²#I É€ŸKI É€
|
||
µ
|
||
jˆLkÔ¼°…IKÂlð²aA@L
|
||
[ ²@Klÿñ² I É€ŸKI É€
|
||
µj‚IKÂlð²@ É É Ê jð§LµikÙLkÔ¼°§A (242 GETHASH 211 CHARCODEP 205 \TEDIT.NTHCHARCODE 176 GETHASH 105 GETHASH 74 CHARCODEP 68 \TEDIT.NTHCHARCODE)
|
||
(269 CHARLOOKS 260 STREAM 235 CHARTABLE 225 CHARTABLE 169 CHARTABLE 159 CHARTABLE 132 CHARLOOKS 123 STREAM 98 CHARTABLE 88 CHARTABLE 42 READTABLEP 37 TEDIT.WORDBOUND.READTABLE 21 TEXTOBJ 14 STREAM)
|
||
()
|
||
TEDITSYSTEMDATE :D8
|
||
(P 2 F F 5 TEDITFILES) : UAHµIg
|
||
Zg
|
||
¼K“LKó“L»J¹HX°Î (40 IDATE 33 GETP 18 GETP)
|
||
(28 FILEDATES 13 FILEDATES)
|
||
()
|
||
TEDIT.IMAGESOURCEP :D8
|
||
(I 0 X) @i
|
||
µ@ (14 TEDIT.FORMATTEDFILEP 6 TEXTSTREAM)
|
||
NIL
|
||
()
|
||
(PRETTYCOMPRINT TEDITCOMS)
|
||
(RPAQQ TEDITCOMS ((FILES (SYSLOAD) POSTSCRIPTSTREAM PDFSTREAM WHEELSCROLL) (COMS (* ; "Loadup stuff")
|
||
(* ;;
|
||
"Would be nice to just do (DOFILESLOAD (CDR TEDITFILES)). But the order for exports.all and the order for loading have to be aligned."
|
||
) (VARS TEDITFILES) (FILES TEDIT-PCTREE TEDIT-SELECTION TEDIT-SCREEN TEDIT-STREAM TEDIT-COMMAND
|
||
TEDIT-ABBREV TEDIT-LOOKS TEDIT-STYLES) (FNS MAKE-TEDIT-EXPORTS.ALL UPDATE-TEDIT EDIT-TEDIT) (DECLARE%:
|
||
DONTEVAL@LOAD DONTCOPY DONTEVAL@COMPILE (* ;;
|
||
"This gets EXPORTS.ALL loaded when TEDIT-EXPORTS.ALL is loaded") (EXPORT (FILES (FROM LOADUPS)
|
||
EXPORTS.ALL))) (DECLARE%: EVAL@COMPILE DONTCOPY (FILES TEDIT-EXPORTS.ALL))) (DECLARE%: EVAL@COMPILE
|
||
DONTCOPY (* ;; "Assertions go to comments if not being checked, so we see value-warnings") (EXPORT (
|
||
COMS (MACROS TEDIT-ASSERT) (MACROS FTEXTOBJ) (GLOBALVARS CHECK-TEDIT-ASSERTIONS) (INITVARS (
|
||
CHECK-TEDIT-ASSERTIONS T))))) (INITVARS (TEDIT.TENTATIVE NIL) (TEDIT.DEFAULT.PROPS NIL)) (GLOBALVARS
|
||
TEDIT.TENTATIVE TEDIT.DEFAULT.PROPS) (* ;; "Unslashed functions. Public?") (FNS TEDIT TEXTSTREAM
|
||
TEXTSTREAMP COERCETEXTSTREAM TEDIT.CONCAT TEDITSTRING TEDIT-SEE TEDIT.COPY TEDIT.DELETE TEDIT.INSERT
|
||
TEDIT.TERPRI TEDIT.KILL TEDIT.QUIT TEDIT.MOVE TEDIT.STRINGWIDTH TEDIT.CHARWIDTH
|
||
TEDIT.PARAGRAPH.BOUNDARIES) (FNS TEXTOBJ COERCETEXTOBJ) (MACROS TEVAL) (FNS TDRIBBLE) (COMS (* ;
|
||
"Object-oriented editing") (FNS TEDIT.INSERT.OBJECT TEDIT.EDIT.OBJECT TEDIT.OBJECT.CHANGED
|
||
TEDIT.MAP.OBJECTS \TEDIT.FIRST.OBJPIECE \TEDIT.NEXT.OBJPIECE) (FILES IMAGEOBJ)) (FNS
|
||
\TEDIT.CONCAT.PAGEFRAMES \TEDIT.GET.PAGE.HEADINGS \TEDIT.CONCAT.INSTALL.HEADINGS) (FNS \TEDIT.MOVE.MSG
|
||
\TEDIT.READONLY) (FNS TEDIT.NCHARS TEDIT.RPLCHARCODE TEDIT.NTHCHARCODE TEDIT.NTHCHAR) (* ;;
|
||
"Slashed functions. Private?") (FNS \TEDIT1 \TEDIT.INSERT \TEDIT.MOVE \TEDIT.COPY
|
||
\TEDIT.REPLACE.SELPIECES \TEDIT.INSERT.SELPIECES \TEDIT.RESTARTFN \TEDIT.CHARDELETE \TEDIT.COPYPIECE
|
||
\TEDIT.APPLY.OBJFN \TEDIT.DELETE \TEDIT.DIFFUSE.PARALOOKS \TEDIT.WORDDELETE \TEDIT.WORDDELETE.FORWARD
|
||
\TEDIT.FINISHEDIT?) (COMS (FNS \TEDIT.THELP) (INITVARS (\TEDIT.THELPFLG NIL))) (FNS \TEDIT.PARAPIECES
|
||
\TEDIT.PARACHNOS \TEDIT.PARA.FIRST \TEDIT.PARA.LAST) (FNS \TEDIT.WORD.FIRST \TEDIT.WORD.LAST) (FILES
|
||
TEDIT-FIND TEDIT-HISTORY TEDIT-FILE TEDIT-OLDFILE TEDIT-WINDOW TEDIT-TFBRAVO TEDIT-HCPY TEDIT-PAGE
|
||
TEDIT-BUTTONS TEDIT-MENU TEDIT-FNKEYS) (COMS (* ; "TEDIT Support information") (FNS TEDITSYSTEMDATE) (
|
||
VARS (TEDITSYSTEMDATE (TEDITSYSTEMDATE)))) (COMS (* ;
|
||
"IMAGETYPE Interface, so the system can decide if a file is a TEdit file.") (FNS TEDIT.IMAGESOURCEP) (
|
||
ALISTS (PRINTFILETYPES TEDIT)) (P (DEFAULT.IMAGETYPE.CONVERSIONS (QUOTE (TEDIT TEDIT.TO.IMAGEFILE)))))
|
||
))
|
||
(FILESLOAD (SYSLOAD) POSTSCRIPTSTREAM PDFSTREAM WHEELSCROLL)
|
||
(RPAQQ TEDITFILES (TEDIT TEDIT-PCTREE TEDIT-SELECTION TEDIT-SCREEN TEDIT-STREAM TEDIT-COMMAND
|
||
TEDIT-FILE TEDIT-OLDFILE TEDIT-LOOKS TEDIT-STYLES TEDIT-WINDOW TEDIT-BUTTONS TEDIT-MENU TEDIT-FIND
|
||
TEDIT-FNKEYS TEDIT-HCPY TEDIT-HISTORY TEDIT-PAGE TEDIT-ABBREV TEDIT-TFBRAVO))
|
||
(FILESLOAD TEDIT-PCTREE TEDIT-SELECTION TEDIT-SCREEN TEDIT-STREAM TEDIT-COMMAND TEDIT-ABBREV
|
||
TEDIT-LOOKS TEDIT-STYLES)
|
||
(RPAQ? TEDIT.TENTATIVE NIL)
|
||
(RPAQ? TEDIT.DEFAULT.PROPS NIL)
|
||
(PUTPROPS TEVAL MACRO ((FORM WINDOW TIT DONTDEFER) (* ; "Capture FORM's T output in Tedit") (LET* ((
|
||
TSTREAM (TEXTSTREAM (TEDIT NIL (OR WINDOW (QUOTE TeditEval)) NIL (BQUOTE (LEAVETTY T HISTORY OFF
|
||
PARABREAKCHARS NIL APPEND QUIET TITLE (\, (OR TIT "Tedit EVAL")) (\, (PACK* "F" "ORM")) (QUOTE FORM)
|
||
FONT DEFAULTFONT)))))) (RESETLST (RESETSAVE (TTYDISPLAYSTREAM TSTREAM)) (RESETSAVE (DSPFONT
|
||
DEFAULTFONT T) (QUOTE (PROGN (DSPFONT OLDVALUE T)))) (BKSYSBUF " ") (* ; "Suppress pagehold") (CL:UNLESS
|
||
DONTDEFER (TEDIT.DEFER.UPDATES TSTREAM)) (CL:UNLESS TIT (PRINTDEF (QUOTE FORM) NIL T NIL NIL T) (
|
||
TERPRI T)) (PROG1 FORM (TERPRI T))))))
|
||
(FILESLOAD IMAGEOBJ)
|
||
(RPAQ? \TEDIT.THELPFLG NIL)
|
||
(FILESLOAD TEDIT-FIND TEDIT-HISTORY TEDIT-FILE TEDIT-OLDFILE TEDIT-WINDOW TEDIT-TFBRAVO TEDIT-HCPY
|
||
TEDIT-PAGE TEDIT-BUTTONS TEDIT-MENU TEDIT-FNKEYS)
|
||
(RPAQ TEDITSYSTEMDATE (TEDITSYSTEMDATE))
|
||
(ADDTOVAR PRINTFILETYPES (TEDIT (TEST TEDIT.IMAGESOURCEP) (EXTENSION (TEDIT TED))))
|
||
(DEFAULT.IMAGETYPE.CONVERSIONS (QUOTE (TEDIT TEDIT.TO.IMAGEFILE)))
|
||
NIL
|