420 lines
31 KiB
Plaintext
420 lines
31 KiB
Plaintext
(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
|
||
|
||
(FILECREATED "13-May-2026 09:38:23" ("compiled on " {MEDLEY}<library>tedit>TEDIT-SELECTION.;742)
|
||
"11-May-2026 13:30:12" brecompiled exprs%: \TEDIT.SECONDARYSEL.OFF in "FULL 11-May-2026 ..." dated
|
||
"11-May-2026 13:30:21")
|
||
(FILECREATED "13-May-2026 09:38:23" {MEDLEY}<library>tedit>TEDIT-SELECTION.;742 162117 :EDIT-BY rmk
|
||
:CHANGES-TO (FNS \TEDIT.SEL.OFF \TEDIT.SECONDARYSEL.OFF) (VARS TEDIT-SELECTIONCOMS) :PREVIOUS-DATE
|
||
"16-Apr-2026 09:27:41" {MEDLEY}<library>tedit>TEDIT-SELECTION.;741)
|
||
\TEDIT.SELECTION.DEFPRINT :D8
|
||
(P 3 LOC P 2 INFO P 1 WHICH P 0 TEXTOBJ I 0 SEL) ¸ @i
|
||
1H²@H É ð•g „o Y@ Ê jð³N@ Éo @ É o @ Ék
|
||
o @ É kð•o †l
|
||
„o Z@ [o Io Jo Ko Ko
|
||
h (179 CONCAT 141 LOC 128 CONCAT 122 CHARACTER 93 NTHCHAR 6 TEXTOBJ)
|
||
(104 SELECTION 85 SELECTION 72 SELECTION 59 SELECTION 46 SELECTION 33 SEL 26 SELECTION 19 TEXTOBJ)
|
||
( 173 "}" 166 "/" 159 " " 153 " " 147 "{SEL:" 134 "unset" 114 "_" 98 " " 79 "-" 66 "-" 39 "")
|
||
\TEDIT.SET.GLOBAL.SELECTIONS :D8
|
||
(P 1 S I 1 SOURCESEL I 0 SELOPERATION) ß @g ð©@dg ðœ¿A g ð›A @dg ðœ¿A g ð›A @dg ðœ¿A ³co 1HµhY ³GI` dkÏ ¿dk ¿dnÿÿ¿djÏ ¿dg ¿hdºdJ¿hd»dK¿dj¿
|
||
¿HX°ªo (220 \TEDIT.THELP 204 SETTOPVAL 134 BOUNDP 105 \TEDIT.COPYSEL 83 \TEDIT.COPYSEL 64 \TEDIT.COPYSEL 42 \TEDIT.COPYSEL 23 \TEDIT.COPYSEL)
|
||
(173 LEFT 142 |SELECTIONTYPE#| 110 TEDIT.DELETESELECTION 96 DELETE 88 TEDIT.COPYLOOKSSELECTION 75 COPYLOOKS 69 TEDIT.MOVESELECTION 55 MOVE 47 TEDIT.SHIFTEDSELECTION 34 COPY 28 TEDIT.SELECTION 14 PENDINGDEL 5 NORMAL)
|
||
( 215 "UNKNOWN SELOPERATION" 118 (TEDIT.SELECTION TEDIT.SHIFTEDSELECTION TEDIT.COPYLOOKSSELECTION TEDIT.MOVESELECTION TEDIT.DELETESELECTION))
|
||
\TEDIT.SELECTED.PIECES :D8
|
||
(P 6 PC P 1 SELPIECES P 0 TEXTOBJ I 5 FNARG2 I 4 FNARG1 I 3 PIECEMAPFN I 2 CROSSCOPY I 1 SEL I 0 TSTREAM) ˜ @Ã ‘@‡@ É AµH É hH BœIg @ €IQJµ°8 ¿JÉ ¾JÉ _¿C™NHDElC€N½LµMh\»NdOð–KM&¼°õÉ ¾°Õ (69 \TEDIT.SELPIECES.COPY 52 \TEDIT.SELPIECES 4 NOTUSED)
|
||
(147 PIECE 102 PIECE 93 PIECE 84 SELPIECES 63 COPY 45 SELECTION 38 TEXTOBJ 26 TEXTOBJ 19 STREAM 10 TEXTOBJ)
|
||
()
|
||
\TEDIT.FIND.PROTECTED.END :D8
|
||
(P 3 PC P 2 START-OF-PIECE I 2 LIMITCH# I 1 CH# I 0 TEXTOBJ) H B@ÉHdIñ‘¿Ib A@i ˆJjKÉÙÔºKÉ
|
||
d² »JBñ´KÉ Ê jð³ÚJ (27 \TEDIT.CHTOPC)
|
||
(61 CHARLOOKS 47 PIECE)
|
||
()
|
||
\TEDIT.FIND.PROTECTED.START :D8
|
||
(P 1 PC P 0 START-OF-PIECE I 2 LIMITCH# I 1 CH# I 0 TEXTOBJ) 5 A@i ˆHIÉÔ¸IÉd² ¹BHñ´IÉ Ê jð³ÜH (10 \TEDIT.CHTOPC)
|
||
(42 CHARLOOKS 28 PIECE)
|
||
()
|
||
\TEDIT.WORD.BOUND :D8
|
||
(P 0 READSA I 2 CH I 1 PREVCH I 0 TEXTOBJ) r A3 ²lB3 ²g@ ÉDµ` É Alÿñ² H É€ŸAH É€
|
||
µj‚HAÂBlÿñ² H É€ŸBH É€
|
||
µj‚HBÂðhði (99 GETHASH 63 GETHASH)
|
||
(92 CHARTABLE 82 CHARTABLE 56 CHARTABLE 46 CHARTABLE 29 READTABLEP 24 TEDIT.WORDBOUND.READTABLE 15 TEXTOBJ)
|
||
()
|
||
\TEDIT.EXTEND.SEL :D8
|
||
(P 5 TEMP P 4 NCHLIM P 3 NCH# P 2 CCHLIM P 1 CCH# P 0 TEXTOBJ I 3 EVENIFPROTECTED I 2 TSTREAM I 1 CURSEL I 0 NEWSEL) m @Ê jð’±cAÊ jð’±YBÃ ‘B‡B É AÉAÉ
|
||
@É@É
|
||
5C³:KJñ˜HJK ŽILñ² HILkÙ ]²@Ihg hM
|
||
¿@É»@É
|
||
¼@jÏ ¿jdðhðJKñ³ AIhg hL
|
||
¿@Jhg hL± ŒLdIñ³ ¿AKhg hJ
|
||
¿@Khg hI°gJÙ¾jNñ¡N‚jNÙKIÙ_¿jOñ¢OƒjOÙñ²%AKhg hJ
|
||
¿@kÏ ¿@Ihg hK°#AIhg hL
|
||
¿@kÏ ¿@Lhg hJ
|
||
¿AÉ @É ð¤Ah ¿@B
|
||
@dÊ jðhðhðB @jÏ ¿jdðhðAB
|
||
h (360 \TEDIT.FIXSEL 342 \TEDIT.SHOWSEL 325 \TEDIT.FIXSEL 304 \TEDIT.UPDATE.SEL 281 \TEDIT.UPDATE.SEL 246 \TEDIT.UPDATE.SEL 184 \TEDIT.UPDATE.SEL 147 \TEDIT.UPDATE.SEL 106 \TEDIT.UPDATE.SEL 87 \TEDIT.FIND.PROTECTED.END 71 \TEDIT.FIND.PROTECTED.START)
|
||
(296 RIGHT 273 RIGHT 261 LEFT 238 LEFT 193 LEFT 176 LEFT 156 RIGHT 139 RIGHT 98 LEFT 41 TEXTOBJ 34 STREAM 25 TEXTOBJ)
|
||
()
|
||
\TEDIT.SCAN.LINE :D8
|
||
(P 15 CHARCL P 14 CHARW P 13 CHAR P 12 CS P 10 RIGHTHALF P 9 THISLINE P 8 PASTRIGHT P 7 SELCHAR P 6 DCH P 5 XLIM P 4 X0 P 3 CHNO P 2 CLOOKS P 1 CHARSLOT P 0 TEXTOBJ I 6 WORDSELFLG I 5 BUTTON I 4 TSTREAM I 3 SELOPERATION I 2 NEWSEL I 1 X I 0 LINE) Ò @ B Bg DÃ ‘D‡D É ¡
|
||
HÉ8_@O É ð¬D@É@ b €@É
|
||
]AdMñ¡¿db@É[A@Éñ_—@ÉkÙb¿OQOdà ™¿O É_¿O É_ ¿OÉ _¿OÉ_ ¿OÉ_ ¿OO ð³MO Ô½AMñ¢O<18>KkÔ»OlÐ_°ÏhYd´‚±*Oµ
|
||
AMIÉâÙýñhð_IÉZdÊ jð’±Eg ð’± ÿCg ð’± ôdÊjð³oh_¿IlÐQOdà ™¿O É_¿O É_ ¿OÉ _¿OÉ_ ¿OÉ_ ¿OO ð³"MO Ô½KkÔ»O Êjð•Oµi‰OlÐ_°Èh°{JÊjð³ri_¿ImúÐQOdà œ¿O ÉmúÐ_¿O É_ ¿OÉ _¿OÉ_ ¿OÉ_ ¿MjO ÙÔ½KmÿÔ»O Êjð”IlЈOdO ð“¿h‡múÐ_°ÄhYµhɺIÉ _JÊ jð®j¾BCg ð²5k°3HÉjð’j° F³Cg ðžHÊ:jð—Oà ¿k¾BCg ð‘k€jÏ ¿BK@Éð“@ɨO•g „g BNjð‘M„MIÉÙBMBKBN BNBÉØ
|
||
BO§O €h Bg BkÏ ¿kjðhðF²"BÉ ³ @Ê& jð²JÊ jð›AHOBI
|
||
B (718 \TEDIT.SCAN.LINE.WORD 660 IMAGEOBJP 71 \TEDIT.FORMATLINE)
|
||
(670 CHAR 613 LEFT 607 RIGHT 579 NORMAL 569 IMAGEOBJ 553 NORMAL 529 NORMAL 430 THISLINE 415 THISLINE 406 THISLINE 310 THISLINE 298 THISLINE 289 THISLINE 257 DELETE 246 RIGHT 141 THISLINE 129 THISLINE 120 THISLINE 57 THISLINE 41 TEXTOBJ 34 STREAM 25 TEXTOBJ 17 CHAR 11 SELECTION 5 LINEDESCRIPTOR)
|
||
()
|
||
\TEDIT.SCAN.LINE.WORD :D8
|
||
(P 17 CHARCL P 16 CHARW P 15 CHAR P 14 CSLOT P 12 PREVCHAR P 10 CHARCL P 9 CHARW P 8 CHAR P 7 CSLOT P 5 LASTCHAR P 3 XLIM P 2 X0 P 1 CHLIM P 0 CH# I 4 CHARSLOT I 3 NEWSEL I 2 THISLINE I 1 TEXTOBJ I 0 X) t C CÉg ðªo ¿CÉCÉ
|
||
CÉCÉDÉ DmúÐR Ndà ›¿B ÉmúÐ_¿B É_¿OÉ _¿OÉ_¿OÉ_¿Oà ³0AOM ³%OÊ jð² JjOÙÔºHmÿÔ¸O½OdO𢱠«¿DÉ DlÐROdà ™¿O É_ ¿B É_$¿O É _ ¿O É_ ¿O É_"¿O O$ð³ O à ³AOO ¨O"Ê jð³LCg CHCI
|
||
CIHÙ CJCKCDÉÊjð²lKJÙñ³2@KJØâýñ³)g °'múÐ_±ÿ
|
||
KO Ô»IkÔ¹O _¿O lÐ_ ±ÿjg \L (252 \TEDIT.WORD.BOUND 124 \TEDIT.WORD.BOUND 25 \TEDIT.THELP)
|
||
(365 LEFT 326 RIGHT 269 WORD 240 IMAGEOBJ 200 THISLINE 189 THISLINE 180 THISLINE 113 IMAGEOBJ 80 THISLINE 66 THISLINE 58 THISLINE 13 CHAR 5 SELECTION)
|
||
( 20 "Can only expand CHAR selections to WORD selections")
|
||
\TEDIT.XYTOSEL :D8
|
||
(P 4 SELFN P 3 PARALASTCHNO P 2 PARAFIRSTCHNO P 1 LINE P 0 TEXTOBJ I 8 REGIONTYPE I 7 CURSEL I 6 BUTTON I 5 PANE I 4 SELOPERATION I 3 TSTREAM I 2 NEWSEL I 1 Y I 0 X) × B BjÏ ¿jdðhðCà ‘C‡C É A@AEH Y´‚± ¼FGHG dg ðªdg 𢱠‡¿I ÉkØHÉñ²I É AñœI ÉkØb ¿I@BDCFddg ðŸ¿GÉo
|
||
ˆg ð´i
|
||
¢± ãBÉ ¢± ÜG¢± ÖGhCh ¿CBI@AEDF
|
||
± ¹dg ð²=¿HÊ8 jð¦BjÏ hBIÉhg hIÉkØ
|
||
¿Bg ¿Bh ¿BkÏ °tg ð²bHÊ8 jð²¿Bh ¿HIÉi ºHIÉi »BJhIÉJÙKkØIÉÙñ¥g „g hKkØ
|
||
¿Bh ¿Bg ¿BkÏ ‰o ¿BÊ jð’±ÿXHg
|
||
\²HBDg lLg ð’±ÿ.BjÏ ¿jdðhðBC
|
||
B (467 \TEDIT.FIXSEL 423 GETTEXTPROP 401 \TEDIT.THELP 370 \TEDIT.UPDATE.SEL 330 \TEDIT.PARA.LAST 318 \TEDIT.PARA.FIRST 265 \TEDIT.UPDATE.SEL 216 \TEDIT.SELECT.OBJECT 201 \TEDIT.SHOWSEL 174 \TEDIT.SCAN.LINE 158 MEMB 68 \TEDIT.REGIONTYPE 50 \TEDIT.XYTOSEL.LINE)
|
||
(444 DON'T 434 TENTATIVE 418 SELFN 382 PARA 360 RIGHT 354 LEFT 292 PARA 272 LINE 253 LEFT 225 LINE 164 MIDDLE 141 RIGHT 121 LINEDESCRIPTOR 110 LINEDESCRIPTOR 94 LINEDESCRIPTOR 82 PANE 74 TEXT 38 TEXTOBJ 31 STREAM 22 TEXTOBJ 5 SELECTION)
|
||
( 396 "Unknown text/line-bar region?" 153 (WORD PARA))
|
||
\TEDIT.REGIONTYPE :D8
|
||
(L (3 REGIONTYPE 2 TEXTOBJ 1 CURSEL 0 BUTTON)) K C¥BÉb¿@dg ð²¿Cdg ð².¿Bɲ'g g ð²AÉo
|
||
µg bC (61 MEMB)
|
||
(69 TEXT 45 RIGHT 39 PARA 25 LINE 14 MIDDLE)
|
||
( 56 (LINE PARA))
|
||
\TEDIT.XYTOSEL.INLINEP :D8
|
||
(I 3 TEXTOBJ I 2 PANE I 1 Y I 0 X) @ABC H´@HÉÙl ñ¡Hh (8 \TEDIT.XYTOSEL.LINE)
|
||
NIL
|
||
()
|
||
\TEDIT.XYTOSEL.LINE :D8
|
||
(P 0 L I 3 TEXTOBJ I 2 PANE I 1 Y I 0 X) — Bg
|
||
Éd¥B
|
||
@A ´I0Bg
|
||
É<02>HY É µ)HBg
|
||
Éð³<H²7IdÉCÉýñ³-É XÉ Añ³ÄHÉkØHÉÙZjðJµH ²ùIh (143 \FZEROP 79 GETWINDOWPROP 48 GETWINDOWPROP 32 INSIDEP 25 DSPCLIPPINGREGION 10 GETWINDOWPROP)
|
||
(111 LINEDESCRIPTOR 84 PANEPROPS 74 PANEPROPS 63 LINEDESCRIPTOR 53 PANEPROPS 43 PANEPROPS 15 PANEPROPS 5 PANEPROPS)
|
||
()
|
||
\TEDIT.FIXSEL :D8
|
||
(P 20 L P 19 PBOTTOM P 18 L P 17 LN P 16 L1 P 15 XLIM P 14 X0 P 13 PENDLINE P 12 PSTARTLINE P 11 PANE P 7 LASTCHNO P 6 FIRSTCHNO P 0 TEXTOBJ I 2 ONLYPANE I 1 TSTREAM I 0 SEL) : Aà ‘A‡A É 1@µHÉb ¿HÉ¢±ö@Ê jð’±ìHÊXjð¢±â@É@É@ɹkIñ¡I€k@É
|
||
kÙºkJñ¡J€kH•M_ ¿L_"¿Odà ”¿Oɵ±¥_¿O"¢±›O ¢±”B™OdBð¢±v¿Og
|
||
É É µ°6 _$¿O h¿O"h¿O$ÉkØNñ<4E>O$ÉOñ¥O$µi‹O$ É µGh_¢±O ³_NOÉýñ³VNOÉkØýñ´LO´HAONOÉ»dKñ¡¿K@É jð²@Ég ð° _$°”NHÉñ´OÉ É _ ¿@O ¿hO
|
||
!O°O(É O&ñ£O*°O(_* É µ:O*µO_¤O_¿O ³SOOÉýñ³IOOÉkØýñ²=O²9@É jð² O °% _(¿OO(ÉkØýñ²<C3B1>O(°¸AOOi _ ¿@O ¿O O¿O"O¿OOOh_¿Oµ Oh_¿Og
|
||
ɵ @O&°ã_¿O _ ¿O"_"±þN (535 GETWINDOWPROP 478 \TEDIT.CHTOLINEX 353 DSPCLIPPINGREGION 336 \TEDIT.CHTOLINEX 170 GETWINDOWPROP)
|
||
(540 PANEPROPS 530 PANEPROPS 448 LINEDESCRIPTOR 383 LINEDESCRIPTOR 314 LINEDESCRIPTOR 306 RIGHT 236 LINEDESCRIPTOR 193 LINEDESCRIPTOR 182 LINEDESCRIPTOR 175 PANEPROPS 165 PANEPROPS 115 TEXTOBJ 37 SELECTION 21 TEXTOBJ 14 STREAM 5 TEXTOBJ)
|
||
()
|
||
\TEDIT.CHTOLINEX :D8
|
||
(P 9 CHARCL P 8 CHARW P 7 CHAR P 6 CHARSLOT P 4 CHNO P 3 X P 2 X P 1 THISLINE P 0 TEXTOBJ I 3 AFTER I 2 CH# I 1 LINE I 0 TSTREAM) ô A @à ‘@‡@ É H É8¹AI É ðª@AÉA ¿C<C2BF>BAÉÙjð“AÉC«BAÉÙjð“AÉ
|
||
AÉ
|
||
AÉIS
|
||
Mdà ˜¿M ɾI É_¿NÉ _¿NÉ_¿NÉ_¿OŸlÀOñ©OlÏñ£j_¿NOð³#LdBÙjðš¿C•KNÉÔKkÔ¼KOÔ»NlÐ^°µBAÉÙjð´AÉkØHÉñ´AÉAÉ
|
||
ð´AÉ
|
||
(63 \TEDIT.FORMATLINE)
|
||
(126 THISLINE 117 THISLINE 109 THISLINE 49 THISLINE 36 TEXTOBJ 27 TEXTOBJ 20 STREAM 11 TEXTOBJ 5 LINEDESCRIPTOR)
|
||
()
|
||
\TEDIT.RESET.EXTEND.PENDING.DELETE :D8
|
||
(P 0 TEXTOBJ I 0 TSTREAM) K @Ã ‘@‡@ É hd@h H É g
|
||
H jÏF ¿jdðhð (56 \TEDIT.SET.SEL.LOOKS 33 \TEDIT.SHOWSEL)
|
||
(62 TEXTOBJ 51 NORMAL 46 SELECTION 39 TEXTOBJ 21 TEXTOBJ 14 STREAM 5 TEXTOBJ)
|
||
()
|
||
\TEDIT.SET.SEL.LOOKS :D8
|
||
(I 1 OPERATION I 0 SEL) î @ Adg ð²¿@nÿÿ¿@k ¿@kÏ ± Äg ð²@nww¿@k ¿@jÏ ± ¨Adg ð²¿@nww¿@l ¿@jÏ ± ˆg ð²@nÿÿ¿@n@ ¿@jÏ °jAdg ð²¿@nÿÿ¿@n@ ¿@jÏ °Jg ð²@nÿÿ¿@n@ ¿@kÏ °-Adg ð²¿@nÿÿ¿@n@ ¿@kÏ ‹›o A
|
||
¿@A @ (229 \TEDIT.THELP)
|
||
(193 INVERTED 162 PENDINGDEL 132 DELETE 101 MOVE 71 COPYLOOKS 41 COPY 12 NORMAL 5 SELECTION)
|
||
( 223 "UNKNOWN SELECTION OPERATION")
|
||
\TEDIT.SHOWSEL :D8
|
||
(P 7 LN P 6 L1 P 5 PANE P 0 TEXTOBJ I 4 DONTFIX I 3 ONLYPANE I 2 TSTREAM I 1 ON I 0 SEL) Bà ‘B‡B É @µHÉb @Ê jð’± ÛA@Ê jðhðð’± ÍHÊXjð´‚± ÂHÉ´‚± ¹AšD¨@BC ¿@É ² B@HÉJA•g „g ¿°q@É@ÉH3Ldà “¿Lɵ°V½Kµ°O¾Jµ°G_¿C–MdCð²(¿N²O²@É jð¬HNOM@
|
||
¿@MHA ¿Mg
|
||
ɵ@Ašk‰½K»Jº° jYÏ ¿Ijðhðh (227 GETWINDOWPROP 215 \TEDIT.SETCARET 205 \TEDIT.SHOWSEL.HILIGHT 123 \TEDIT.OPERATE.OBJECT 94 \TEDIT.FIXSEL)
|
||
(232 PANEPROPS 222 PANEPROPS 143 TEXTOBJ 118 UNHIGHLIGHTED 112 HIGHLIGHTED 37 SELECTION 21 TEXTOBJ 14 STREAM 5 TEXTOBJ)
|
||
()
|
||
\TEDIT.NOSEL :D8
|
||
(I 2 ONLYPANE I 1 SEL I 0 TSTREAM) Ah@B (8 \TEDIT.SHOWSEL)
|
||
NIL
|
||
()
|
||
\TEDIT.SEL.OFF :D8
|
||
(I 2 ONLYPANE I 1 SEL I 0 TSTREAM) Ah@B (8 \TEDIT.SHOWSEL)
|
||
NIL
|
||
()
|
||
\TEDIT.SECONDARYSEL.OFF :D8
|
||
(P 0 TOBJ I 0 TSTREAM) " @ É HÉ ´HÉ h@h Hh h (26 \TEDIT.SHOWSEL)
|
||
(5 STREAM)
|
||
()
|
||
\TEDIT.SEL.ON :D8
|
||
(I 3 DONTFIX I 2 ONLYPANE I 1 SEL I 0 TSTREAM)
|
||
Ai@BC
|
||
(10 \TEDIT.SHOWSEL)
|
||
NIL
|
||
()
|
||
\TEDIT.SHOWSEL.HILIGHT :D8
|
||
(P 8 DISTBELOW P 7 RIGHT P 6 LEFT P 5 L P 4 PBOTTOM P 3 SHADEHEIGHT P 2 SHADE P 1 LASTCHNO P 0 CH# I 4 SEL I 3 PANE I 2 LN I 1 L1 I 0 TEXTOBJ) ×
|
||
A B DÉDÉ
|
||
kÙDɵnÿÿDÉ µkhC
|
||
U j_¿Jnÿÿð™@Ê:jð¢l»A°\MÉ
|
||
¾IM ÉýñIMÉkØýñ”M´D€MÉ_¿JCNMÉ OÙONÙKMÉ _¿dOñ’¿Og
|
||
¿MdB𑿈 É µh ]É Lýñ³óHM Éýñ³ŠHMÉkØýñ¢±ÿM´‚±ÿyDɱÿu (143 BLTSHADE 40 DSPCLIPPINGREGION)
|
||
(182 LINEDESCRIPTOR 167 LINEDESCRIPTOR 156 LINEDESCRIPTOR 137 INVERT 79 LINEDESCRIPTOR 11 LINEDESCRIPTOR 5 LINEDESCRIPTOR)
|
||
()
|
||
\TEDIT.UPDATE.SEL :D8
|
||
(P 1 SEL P 0 TSTREAM I 5 CHLIM I 4 LOOKS I 3 POINT I 2 DCH I 1 CH# I 0 TSTREAM/SEL) 5 @Ã ²7@ ÉÃ ²(@XÃ ‘H‡H É É Y°/@Ã “@Y°$@Ã Ÿ@X É YŠo I
|
||
¿Aà ²)BªA Éb¿CªA Éb¿A Éb¿°?Ad²¿B¥Ab¿C¦Ab¿A³%A° ªI Éb¿B¨Eµ5IÉ b¿C¥IÉb¿kAñ›kb¿g b¿I AIB IBjð–Ak…AÙ°ÎABØ
|
||
ICIh IkÏ ¿kjðhðD—ID
|
||
¿HšIiHhd
|
||
I (305 \TEDIT.SHOWSEL 291 \TEDIT.SET.SEL.LOOKS 108 \TEDIT.THELP)
|
||
(239 SELECTION 230 LEFT 193 SELECTION 149 TEDITHISTORYEVENT 138 TEDITHISTORYEVENT 125 TEDITHISTORYEVENT 115 TEDITHISTORYEVENT 95 SELECTION 88 TEXTOBJ 80 TEXTOBJ 69 SELECTION 60 SELECTION 53 TEXTOBJ 48 TEXTOBJ 41 STREAM 32 TEXTOBJ 23 TEXTOBJ 16 STREAM 8 STREAM)
|
||
( 102 "Not a text stream or selection")
|
||
\TEDIT.CARETLINE :D8
|
||
(I 2 TEXTOBJ I 1 PANE I 0 SEL) M @ Ê jð³?@ Édg ð™¿@AB g ð˜@AB o @ É
|
||
h (72 \TEDIT.THELP 53 \TEDIT.SEL.LN 37 \TEDIT.SEL.L1)
|
||
(65 SELECTION 43 RIGHT 26 LEFT 18 SELECTION 5 SELECTION)
|
||
( 59 "ILLEGAL POINT")
|
||
\TEDIT.SEL.L1 :D8
|
||
(P 3 P P 2 L I 2 TEXTOBJ I 1 PANE I 0 SEL) L A¥BÉJb¿@ ÉB"Idà ²%¿IÉ° ºKAð‘JH¸Kg
|
||
ɵh»HµÜ°ù (56 GETWINDOWPROP)
|
||
(61 PANEPROPS 51 PANEPROPS 26 TEXTOBJ 13 SELECTION)
|
||
()
|
||
\TEDIT.SEL.LN :D8
|
||
(P 3 P P 2 L I 2 TEXTOBJ I 1 PANE I 0 SEL) L A¥BÉJb¿@ ÉB"Idà ²%¿IÉ° ºKAð‘JH¸Kg
|
||
ɵh»HµÜ°ù (56 GETWINDOWPROP)
|
||
(61 PANEPROPS 51 PANEPROPS 26 TEXTOBJ 13 SELECTION)
|
||
()
|
||
\TEDIT.SEL.DELETEDCHARS :D8
|
||
(P 3 DCH P 2 E P 1 B P 0 LASTCHAR I 2 LEN I 1 FIRSTCHAR I 0 SELTOFIX) ” AÃ ›AÉ b¿AÉb€ABØmÿØ@É@ É
|
||
kÙ@É $AJñ‘hIHñ²-@ @ ÉjBÙÔ@ @ É
|
||
jBÙÔ\
|
||
L@IdAñ‘¿AAIñ«JHÙ½jMñ¡M<C2A1>j<EFBFBD>HJñ¢KB…KJAÙkØÙg (145 \TEDIT.UPDATE.SEL)
|
||
(140 LEFT 86 SELECTION 80 SELECTION 66 SELECTION 60 SELECTION 33 SELECTION 5 SELECTION)
|
||
()
|
||
\TEDIT.COPYSEL :D8
|
||
(I 1 TO I 0 FROM) @ AµL` @
|
||
dhο@É HdI¿@É HdI¿@É HdI¿bA ¿A@É¿A@É¿A@É¿A@É
|
||
|
||
¿A@É ¿A@É ¿A@É ¿A@É ¿A@É¿A@Ê jð¡k€jHIÏ ¿I¿AhοA@É¿A@É¿A@É ¿A@Ê jð¡k€jHIÏ ¿I¿A@É ¿A@Ê jð¡k€jHIÏ ¿I¿A@É ±ÿ> (156 COPY 144 COPY 132 COPY 68 COPY 50 COPY 32 COPY 19 NCREATE2)
|
||
(87 SELECTION 13 |SELECTIONTYPE#| 5 SELECTION)
|
||
()
|
||
\TEDIT.SEL.CHANGED? :D8
|
||
(I 1 OLDSEL I 0 NEWSEL) y @ A AÊ jðhð´a@ÉAÉÙjð´V@É
|
||
AÉ
|
||
Ùjð´K@É AÉ Ùjð´@@ÉAÉð´7@ÉAÉð´.@É AÉ ð´%@ÉAÉð´ @Ê jðhðAÊ jðhðð´ @É AÉ ðhð NIL
|
||
(11 SELECTION 5 SELECTION)
|
||
()
|
||
\TEDIT.SELECT.OBJECTA0001A0002 :D8
|
||
(P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 3 OBJ F 4 SELPANE F 5 NEWSEL F 6 BUTTON F 7 X F 8 SELOPERATION F 9 Y F 10 LINE F 11 SI::NLSETQ-VALUE) G i@Sg
|
||
ºST É UWUÉÙWWÉÙTdg
|
||
VWl Jhcg (51 GETWINDOWPROP 23 \INSUREWINDOW 15 IMAGEOBJPROP)
|
||
(68 :NORMAL 46 TEXTSTREAM 10 BUTTONEVENTINFN)
|
||
()
|
||
\TEDIT.SELECT.OBJECTA0001 :D8
|
||
(NAME SI::*UNWIND-PROTECT* P 2 SI::*NLSETQFLAG* P 1 *PROCEED-CASES* P 0 SI::NLSETQ-VALUE I 0 SI::*CLEANUP-FORMS* F 3 OBJ F 4 NEWSEL F 5 LINE F 6 RESULT F 7 PANE F 8 *PROCEED-CASES*) / STÉUW ` WI g ð´Hc (31 \TEDIT.SELECT.OBJECTA0001A0002 11 \TEDIT.CLIP.OBJECT)
|
||
(37 :NORMAL 19 SI::NLSETQ-PROCEED-CASE)
|
||
()
|
||
\TEDIT.SELECT.OBJECT :D8
|
||
(P 5 RESETSTATE P 4 SI::*RESETFORMS* P 3 LISPXHIST P 2 RESULT P 1 OBJ P 0 TEXTOBJ I 7 BUTTON I 6 SELOPERATION I 5 SELPANE I 4 Y I 3 X I 2 LINE I 1 NEWSEL I 0 TSTREAM F 6 LISPXHIST) Ø @à ‘@‡@ É AÉ V!g ¿$J²/Jg ð³&Jdš¿g J ³Jg ðJd²¿g J ›AjÏ ¿jdðhðJg ð®Jd²L¿g J ²A@g AÉk hi@ih
|
||
Hh HÊ, jðhðið³Hi
|
||
HkÏ, ¿kjðhðhJ¥Ah hJ (188 \TEDIT.WINDOW.TITLE 165 \TEDIT.SHOWSEL 154 \TEDIT.UPDATE.LINES 51 SI::RESETUNWIND 46 \MVLIST 41 \TEDIT.SELECT.OBJECTA0001)
|
||
(145 CHANGED 135 CHANGED 122 CHANGED 101 DONT 88 DONT 78 DON'T 65 DON'T 36 SI::RESETUNWIND 21 TEXTOBJ 14 STREAM 5 TEXTOBJ)
|
||
()
|
||
\TEDIT.SHOWSEL.OBJECTA0001A0002 :D8
|
||
(P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 OBJ F 3 PANE F 4 ON F 5 SI::NLSETQ-VALUE F 6 SEL F 7 TSTREAM F 8 IMAGEFN) ( i@RST•g „g VWlWhc
|
||
g NIL
|
||
(37 :NORMAL 19 UNHIGHLIGHTED 13 HIGHLIGHTED)
|
||
()
|
||
\TEDIT.SHOWSEL.OBJECTA0001 :D8
|
||
(NAME SI::*UNWIND-PROTECT* P 2 SI::*NLSETQFLAG* P 1 *PROCEED-CASES* P 0 SI::NLSETQ-VALUE I 0 SI::*CLEANUP-FORMS* F 3 OBJ F 4 SEL F 5 *PROCEED-CASES* F 6 L1 F 7 PANE) + STÉVW ` UI g ð´H (30 \TEDIT.SHOWSEL.OBJECTA0001A0002 11 \TEDIT.CLIP.OBJECT)
|
||
(36 :NORMAL 19 SI::NLSETQ-PROCEED-CASE)
|
||
()
|
||
\TEDIT.SHOWSEL.OBJECT :D8
|
||
(P 4 RESETSTATE P 3 SI::*RESETFORMS* P 2 LISPXHIST P 1 IMAGEFN P 0 OBJ I 4 PANE I 3 ON I 2 L1 I 1 SEL I 0 TSTREAM F 5 LISPXHIST) ` AÉ AÉ g
|
||
I´EDg
|
||
Éd¥D
|
||
AÉBÉ ´ U!g ¿$ (89 SI::RESETUNWIND 84 \MVLIST 79 \TEDIT.SHOWSEL.OBJECTA0001 63 INSIDE? 52 DSPCLIPPINGREGION 37 GETWINDOWPROP 20 IMAGEOBJPROP 4 NOTUSED)
|
||
(74 SI::RESETUNWIND 42 PANEPROPS 32 PANEPROPS 15 WHENOPERATEDONFN)
|
||
()
|
||
\TEDIT.CLIP.OBJECT :D8
|
||
(P 1 DS P 0 OBJBOX I 3 PANE I 2 LINE I 1 X I 0 OBJ F 3 SI::*RESETFORMS*) Ð @g
|
||
µ @C
|
||
C É g g g IhhAhI
|
||
ØHÙI
|
||
hScg g g IhhB ÉhI
|
||
ØHÙI
|
||
hScg g g IhhjdHhC
|
||
AÙºdJñ‘¿JHhI
|
||
hSc (198 DSPCLIPPINGREGION 172 DSPCLIPPINGREGION 131 DSPYOFFSET 119 DSPYOFFSET 74 DSPXOFFSET 61 DSPXOFFSET 25 \INSUREWINDOW 19 IMAGEBOX 10 IMAGEOBJPROP)
|
||
(153 OLDVALUE 148 DSPCLIPPINGREGION 143 PROGN 110 LINEDESCRIPTOR 96 OLDVALUE 91 DSPYOFFSET 86 PROGN 45 OLDVALUE 40 DSPXOFFSET 35 PROGN 5 BOUNDBOX)
|
||
()
|
||
\TEDIT.OPERATE.OBJECTA0001 :D8
|
||
(P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 OBJ F 3 PANE F 4 OPERATION F 5 SI::NLSETQ-VALUE F 6 SEL F 7 TSTREAM F 8 WHENOPERATEDONFN) # i@RS É TVWlWhc
|
||
g (11 \INSUREWINDOW)
|
||
(32 :NORMAL)
|
||
()
|
||
\TEDIT.OPERATE.OBJECTA0002A0003 :D8
|
||
(P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 OBJ F 3 PANE F 4 OPERATION F 5 SI::NLSETQ-VALUE F 6 SEL F 7 TSTREAM F 8 WHENOPERATEDONFN) # i@RS É TVWlWhc
|
||
g (11 \INSUREWINDOW)
|
||
(32 :NORMAL)
|
||
()
|
||
\TEDIT.OPERATE.OBJECTA0002 :D8
|
||
(NAME SI::*UNWIND-PROTECT* P 2 SI::*NLSETQFLAG* P 1 *PROCEED-CASES* P 0 SI::NLSETQ-VALUE I 0 SI::*CLEANUP-FORMS* F 3 OBJ F 4 SEL F 5 *PROCEED-CASES* F 6 L1 F 7 P) + STÉVW ` UI g ð´H (30 \TEDIT.OPERATE.OBJECTA0002A0003 11 \TEDIT.CLIP.OBJECT)
|
||
(36 :NORMAL 19 SI::NLSETQ-PROCEED-CASE)
|
||
()
|
||
\TEDIT.OPERATE.OBJECT :D8
|
||
(P 13 RESETSTATE P 12 SI::*RESETFORMS* P 11 LISPXHIST P 10 P P 9 L1 P 6 SI::*NLSETQFLAG* P 5 *PROCEED-CASES* P 4 SI::NLSETQ-VALUE P 3 LINE P 2 TEXTOBJ P 1 WHENOPERATEDONFN P 0 OBJ I 3 OPERATION I 2 PANE I 1 SEL I 0 TSTREAM F 14 *PROCEED-CASES* F 15 LISPXHIST) 9 AÉ Hg
|
||
!@Ã ‘@‡@ É ºh»I´‚± ðCdg ð²I¿ABJ [´‚± Öhd@h AÉKÉB ` W M Ai@hd
|
||
g ð³Cg ðªCg 𢱠<00>AÉJ"
|
||
Odà ²o¿OÉ°h_²JOg
|
||
Éd¦O
|
||
AÉOÉ ² W !
|
||
g ¿$O_¿Og
|
||
ɵh_¿Oµ<>°öo C
|
||
(310 \TEDIT.THELP 278 GETWINDOWPROP 255 SI::RESETUNWIND 250 \MVLIST 245 \TEDIT.OPERATE.OBJECTA0002 228 INSIDE? 216 DSPCLIPPINGREGION 200 GETWINDOWPROP 131 \TEDIT.SHOWSEL 118 \TEDIT.OPERATE.OBJECTA0001 98 MOVETO 86 \TEDIT.SHOWSEL 70 \TEDIT.SEL.L1 16 IMAGEOBJPROP)
|
||
(283 PANEPROPS 273 PANEPROPS 240 SI::RESETUNWIND 205 PANEPROPS 195 PANEPROPS 174 TEXTOBJ 154 DESELECTED 146 UNHIGHLIGHTED 137 HIGHLIGHTED 106 SI::NLSETQ-PROCEED-CASE 58 SELECTED 41 TEXTOBJ 34 STREAM 25 TEXTOBJ 11 WHENOPERATEDONFN)
|
||
( 304 "BAD WHENOPERATEDON OPERATION")
|
||
\TEDIT.SELPIECES :D8
|
||
(P 2 RIGHTPC P 1 LEFTPC P 0 FIRSTCHAR I 2 TEXTOBJ I 1 LASTCHAR I 0 SEL/FIRSTCHAR) Î
|
||
p@à ²)@Ê jð³@ɸ@É jð‘H‚@É
|
||
kÙb¿°;j¸mÿb¿°2@à ²(@ ɸ@ ɵj@ ɵjØkÙb¿<>@¸HBɼ»kKñhð´_KLñhð´XAHBÉ OOñhð´ OOñhð´=AkØB
|
||
ZHB
|
||
Y` dI ¿JÉ
|
||
½dM¿AHÙkؾdN¿dH¿dA¿ (161 \TEDIT.ALIGNEDPIECE 153 \TEDIT.ALIGNEDPIECE)
|
||
(167 |SELPIECESTYPE#| 83 TEDITHISTORYEVENT 72 TEDITHISTORYEVENT 63 TEDITHISTORYEVENT 55 TEDITHISTORYEVENT 8 SELECTION)
|
||
()
|
||
\TEDIT.SELPIECES.COPY :D8
|
||
(P 4 NEWFIRSTPIECE P 3 PREVPC P 2 NPC P 1 PC I 4 CHARLOOKS I 3 FROMTSTREAM I 2 TOTSTREAM I 1 OPERATION I 0 SELPIECES) @´hC£Bb¿@QHµ°D ¿HÉ ¹HÉ ½ICBhA
|
||
Z¡hD”JD ¿Kµ)J\¿JKÎ
|
||
¿J»IdMð²#¿` @
|
||
dL ¿dK¿ J°ÓÉ Y°¯ (94 NCREATE2 52 \TEDIT.COPYPIECE)
|
||
(122 PIECE 110 PIECE 88 |SELPIECESTYPE#| 40 PIECE 31 PIECE 22 SELPIECES)
|
||
()
|
||
\TEDIT.SELPIECES.CONCAT :D8
|
||
(I 2 TEXTOBJ I 1 SP2 I 0 SP1) r @ É ¡AA É ¡@@ÉAÉ AÉ @ÉÎ
|
||
` @É HdI ¿AÉHdI¿@ÉAÉØHdI¿@ÉHdI¿AÉHdI¿ NIL
|
||
(42 |SELPIECESTYPE#| 16 SELPIECES 5 SELPIECES)
|
||
()
|
||
\TEDIT.SELPIECES.CHARTRANSFORM :D8
|
||
(P 10 I P 8 CH P 7 STR P 6 I P 4 PCONTENTS P 3 PC P 1 INDEX P 0 TEXTOBJ I 3 TSTREAM I 2 OBJECTSTOO I 1 CHARFN I 0 SELPIECES) J Cà ‘C‡C É j@3Jµ± ¿JÉ »JÉ ½KÉ ¼KÊ dlð¥dlð²3¿kLON
|
||
_² ONOIkÔYHlA ¿NkÔ¾°Û± ½djð³dlð¯dl ðªdlð¥dl ð²|¿KÉ KÉkÙj
|
||
OOó³'OOkØKO
|
||
IkÔYlA ¿OkÔ_°ØOÊjð§O „OʇlDðšKlÏ ¿KlˆKlÏ ¿Kk¿KO °(lð²IkÔ¹B² KLIlA <00>o KÊ
|
||
¿KdMð‘@É [±þô (309 \TEDIT.THELP 231 %%ARRAY-TYPE-NUMBER 206 RPLCHARCODE 192 \TEDIT.PIECE.NTHCHARCODE 159 ALLOCSTRING 113 RPLCHARCODE 89 NTHCHARCODE)
|
||
(324 PIECE 55 PIECE 46 PIECE 37 SELPIECES 21 TEXTOBJ 14 STREAM 5 TEXTOBJ)
|
||
( 300 "ILLEGAL PIECE TYPE")
|
||
\TEDIT.SELPIECES.FROM.STRING :D8
|
||
(P 17 PREVPC P 16 STR P 15 PC P 11 LASTEOLPOS P 10 NCHARS P 3 EOLPOS P 2 FIRSTPIECE P 1 PTYPE P 0 BYTESPERCHAR I 4 PARALOOKS I 3 CHARLOOKS I 2 CHECKFOREOL I 1 TEXTOBJ I 0 STRING) « A C¥AÉ@b¿D¥AÉ:b¿Aµ kl‚ @ b dÊjð³d °Ê: jð³Ýib¿°×@ʇlDð•l¹l¸B¢± íg @
|
||
[¢± Ý@ jb@OkØK_ _ ¿` dIÏ ¿dO ¿O ¼dL¿dC ¿dD¿dkÏ ¿dO Î
|
||
¿dj¿_ O"µ{O _"¿g @OkØ µO»_ ¿OµSO h__¿OOñ³‚O mÿ
|
||
l
|
||
ð¦O jÏ ¿` O½dM ¿dO ¿dO¿dk¿@ ¾dN¿O &_¿°²O ¿°‚` dIÏ ¿d@ ¿@ _¿dO¿dH¿dC ¿dD¿dj¿Z` dJ ¿dJ¿@ _¿dO¿dk¿@ _¿dO¿ (415 NCHARS 395 NCHARS 343 NCHARS 298 NCHARS 249 NTHCHARCODE 212 STRPOS 153 NCHARS 125 SUBSTRING 108 NCHARS 97 STRPOS 52 %%ARRAY-TYPE-NUMBER 36 CONCAT)
|
||
(378 |SELPIECESTYPE#| 325 |PIECETYPE#| 265 |SELPIECESTYPE#| 202 %
|
||
133 |PIECETYPE#| 91 %
|
||
5 TEXTOBJ)
|
||
()
|
||
\TEDIT.SELPIECES.TO.STRING :D8
|
||
(P 7 J P 4 PCONTENTS P 3 PC P 1 RESULT P 0 I I 2 TEXTOBJ I 1 OBJECTCHARCODE I 0 SELPIECES) k@ É @3Jµ± ã ¿JÉ »JÉ ½KÉ ¼KÊ dlð¥dlð²¿IHL ¿HKÉÔX± Ÿdjð³ dkð³dlð¯dl ðªdlð¥dl ð²7¿LKÉ
|
||
¿KÉkONó³ IHL ¿HkÔ¸OkÔ_°ä°Kdlð²'¿IHAµBg
|
||
bµl ¿HkÔX° lðšo <00>o KÊ
|
||
¿KdMð‘IÉ [±ÿ/ (241 \TEDIT.THELP 226 \TEDIT.THELP 205 RPLCHARCODE 194 GETTEXTPROP 153 RPLCHARCODE 148 \INCCODE 126 SETFILEPTR 75 RPLSTRING 13 ALLOCSTRING)
|
||
(256 PIECE 189 OBJECTBYTE 46 PIECE 37 PIECE 28 SELPIECES 6 SELPIECES)
|
||
( 232 "ILLEGAL PIECE TYPE" 221 "SUBSTREAM PIECES NOT IMPLEMENTED")
|
||
TEDIT.XYTOCH :D8
|
||
(P 2 SCRSEL I 2 PANE I 1 Y I 0 X) Ü ` dkÏ ¿dk ¿dnÿÿ¿djÏ ¿dg ¿hdHdI¿hdHdI¿dj¿@dg ðš¿hB
|
||
°g ðœhB
|
||
kÙ€@b Adg ð²¿Bg
|
||
É kÙ°g ð™hB
|
||
€Ab@AJBg
|
||
g Bg hg
|
||
JÊ jð£JÉh (205 \TEDIT.XYTOSEL 182 GETWINDOWPROP 162 DSPCLIPPINGREGION 137 GETWINDOWPROP 106 DSPCLIPPINGREGION 89 DSPCLIPPINGREGION)
|
||
(199 TEXT 193 LEFT 187 NORMAL 177 TEXTSTREAM 153 BOTTOM 142 PANEPROPS 132 PANEPROPS 122 TOP 97 RIGHT 79 LEFT 35 LEFT 4 |SELECTIONTYPE#|)
|
||
()
|
||
TEDIT.SELPROP :D8
|
||
(P 3 NEWVALUE P 2 PROP P 1 SEL P 0 X) * e lHñ–H ¿kaà “ka°ka É laJdg ð–¿Iɱ Ûg ð•IÉ
|
||
± ÎJg ð©Jdg ð–¿IÉ ± ¶g ð•Iɱ ©Jg ð©Jdg ð–¿Iɱ ‘g ð²IÉ jð”IÉ°}I É
|
||
kÙ°qJdg ð›¿IÉI
|
||
°\g ð”IÉ °PJdg ð•¿IÉ°Ag ð”IÉ°5Jdg ð•¿IÉ °&g ð”IÉ °Jdg ð™¿IÊ jðhð„ Hlñ¢±la»Jdg ð—¿IK± âg ð©Jdg ð›¿IhK ± Æg ð² IKo
|
||
µK ± ¤Jg ðªJdg ð² ¿IKo
|
||
µK °wg ðŸIhKkØIÉÙ °`Jdg ðž¿IhKIÉÙ °Hg ð•IK°;Jdg ð–¿IK °+g ð˜IK
|
||
°Jdg ðš¿IK‘k€jÏ „ ¿IÉ™IdÉ
|
||
¿ (550 \TEDIT.FIXSEL 536 \ILLEGAL.ARG 509 \TEDIT.SET.SEL.LOOKS 464 \TEDIT.UPDATE.SEL 440 \TEDIT.UPDATE.SEL 415 \ILLEGAL.ARG 406 MEMB 370 \ILLEGAL.ARG 361 MEMB 338 \TEDIT.UPDATE.SEL 284 \ILLEGAL.ARG 192 TEDIT.GETPOINT 34 TEXTOBJ 14 \ILLEGAL.ARG)
|
||
(518 SET 500 SELOPERATION 486 SHADEHEIGHT 471 SHADE 449 CHLIM 424 CHLAST 390 SELKIND 381 KIND 346 POINT 327 DCH 318 LENGTH 303 CH# 267 SET 253 SELOPERATION 240 SHADEHEIGHT 226 SHADE 213 TEXTSTREAM 199 SELOBJ 180 POINTCH# 167 SELECTION 147 CHLAST 133 SELKIND 124 KIND 110 POINT 96 DCH 87 LENGTH 73 CHLIM 59 CH# 46 SELECTION 39 TEXTOBJ 22 SELECTION)
|
||
( 401 (CHAR WORD LINE PARA VOLATILE) 356 (LEFT RIGHT))
|
||
TEDIT.GETPOINT :D8
|
||
(P 0 TEXTOBJ I 1 SEL I 0 TSTREAM) s @ Ad3 ²HÉkØñ£kAñ•A A¥HÉb€A AÉdg ð”¿AÉg ð² AÉ Yjð¯IµAÉ
|
||
²÷AÉkØo AÉ
|
||
(112 \TEDIT.THELP 91 \FZEROP 31 \ILLEGAL.ARG 5 TEXTOBJ)
|
||
(67 RIGHT 55 LEFT 46 SELECTION)
|
||
( 104 "Selection's POINT is neither RIGHT nor LEFT.")
|
||
TEDIT.GETSEL :D8
|
||
(I 0 TSTREAM) 4 @ b d É ` H
|
||
d@οdh¿dh¿dh¿ (29 NCREATE2 13 TEXTOBJ 5 TEXTSTREAM)
|
||
(23 |SELECTIONTYPE#|)
|
||
()
|
||
TEDIT.GETSEL.PARA :D8
|
||
(P 4 PCHLIM P 3 PCH# P 1 SEL P 0 TEXTOBJ I 0 TSTREAM) a @ !HɹHI É
|
||
HI É
|
||
kÙ
|
||
kØ` I
|
||
dK¿dL
|
||
¿LKÙºdJ ¿djÏ ¿dkÏ ¿ (63 NCREATE2 46 \TEDIT.PARA.LAST 26 \TEDIT.PARA.FIRST 5 TEXTOBJ)
|
||
(57 |SELECTIONTYPE#| 37 SELECTION 19 SELECTION)
|
||
()
|
||
TEDIT.SCANSEL :D8
|
||
(P 0 SEL I 0 TSTREAM) 3 @ b d ÉÉ H Ê jð®@HÉkÙ
|
||
HÉ h (43 \TEDIT.TEXTSETFILEPTR 5 TEXTSTREAM)
|
||
(26 SELECTION 13 STREAM)
|
||
()
|
||
TEDIT.SET.SEL.LOOKS :D8
|
||
(P 1 TSTREAM P 0 WASON I 1 OPERATION I 0 SEL) 1 @ Ê jðhð@ @hIh @A
|
||
@HI @ (45 \TEDIT.SHOWSEL 37 \TEDIT.SET.SEL.LOOKS 30 \TEDIT.SHOWSEL 18 TEXTSTREAM)
|
||
(5 SELECTION)
|
||
()
|
||
TEDIT.SETSEL :D8
|
||
(P 3 PC P 2 TEXTLEN P 1 SEL P 0 TEXTOBJ I 6 OPERATION I 5 LEAVECARETLOOKS I 4 PENDINGDELFLG I 3 POINT I 2 LEN I 1 CH# I 0 TSTREAM) E @ b BŸjBñ›o B
|
||
¿@à ‘@‡@ É QH É ¹Hɺh[d@h Aà ²AI
|
||
¿I jÏ ± ™Cdg ð³ g ð³Cµ
|
||
g b‰o
|
||
¿jAñ—kJØAØb¿JjðžIkjg °QAJñžIJjg °>BJAÙkؼdLñ‘¿Lb¿IABC ¿IBkð´ d ÉH
|
||
[Ê lð´KÉ ¿H D‘k€j]ÏF ¿MjðhðIF
|
||
E¯H HI
|
||
4¿Ii@ Hh @ (322 TEDIT.GETSEL 312 \TEDIT.SHOWSEL 301 \TEDIT.GET.INSERT.CHARLOOKS 286 \TEDIT.SET.SEL.LOOKS 243 \TEDIT.CHTOPC 222 \TEDIT.UPDATE.SEL 195 \TEDIT.UPDATE.SEL 176 \TEDIT.UPDATE.SEL 146 ERROR 93 \TEDIT.COPYSEL 78 \TEDIT.SHOWSEL 24 ERROR 5 TEXTSTREAM)
|
||
(294 TEXTOBJ 264 TEXTOBJ 235 SELECTION 190 RIGHT 171 LEFT 133 LEFT 122 RIGHT 114 LEFT 100 SELECTION 84 SELECTION 63 SELECTION 56 TEXTOBJ 47 TEXTOBJ 40 STREAM 31 TEXTOBJ)
|
||
( 141 "is an illegal POINT" 18 "Selection length cannot be negative")
|
||
TEDIT.SHOWSEL :D8
|
||
(I 2 SEL I 1 ONFLG I 0 TSTREAM) A™hd@h ¿BA@ (19 \TEDIT.SHOWSEL 10 \TEDIT.SHOWSEL)
|
||
NIL
|
||
()
|
||
TEDIT.SEL.AS.STRING :D8
|
||
(P 4 C P 3 I P 1 CH# P 0 RESULT I 3 CODEFOROBJECT I 2 LEN I 1 SEL/CH# I 0 TSTREAM) – @ b A³d É Éb¿ Aà ²A É b¿A É€A¹Bjð«Bd² šo Bl
|
||
X@IkÙ
|
||
BkKJó³ @ \ ’CµHKL ¿KkÔ[°ã¼°ðH (136 RPLCHARCODE 124 IMAGEOBJP 106 \TEDIT.TEXTSETFILEPTR 96 ALLOCSTRING 87 CONCAT 76 \FZEROP 5 TEXTSTREAM)
|
||
(56 SELECTION 45 SELECTION 37 SELECTION 23 TEXTOBJ 16 STREAM)
|
||
( 82 "")
|
||
TEDIT.SEL.AS.SEXPRA0001 :D8
|
||
(P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 TSTREAM F 3 RDTBL F 4 FLG F 5 SI::NLSETQ-VALUE) i@RST hc
|
||
g (12 READ)
|
||
(21 :NORMAL)
|
||
()
|
||
TEDIT.SEL.AS.SEXPR :D8
|
||
(P 3 *CONDITION-HANDLER-BINDINGS* P 2 SI::*NLSETQFLAG* P 1 *PROCEED-CASES* P 0 SI::NLSETQ-VALUE I 3 FLG I 2 RDTBL I 1 SEL I 0 TSTREAM F 4 *READTABLE* F 5 *PROCEED-CASES* F 6 *CONDITION-HANDLER-BINDINGS*) O @ b dddA
|
||
BµT kÙ
|
||
` Uio VI g ð´H (64 TEDIT.SEL.AS.SEXPRA0001 37 \TEDIT.TEXTSETFILEPTR 30 \TEDIT.WORD.FIRST 25 TEDIT.ATOMBOUND.READTABLE 16 TEDIT.GETPOINT 5 TEXTSTREAM)
|
||
(70 :NORMAL 45 SI::NLSETQ-PROCEED-CASE)
|
||
( 53 (CL:ERROR . SI::NLSETQHANDLER))
|
||
TEDIT.SELECTALL :D8
|
||
(I 2 SEL I 1 TEXTOBJ I 0 TEXTSTREAM) @j@ ÉkØg (21 TEDIT.SETSEL 7 TEXTOBJ)
|
||
(16 LEFT)
|
||
()
|
||
(PRETTYCOMPRINT TEDIT-SELECTIONCOMS)
|
||
(RPAQQ TEDIT-SELECTIONCOMS ((DECLARE%: EVAL@COMPILE DONTCOPY (EXPORT (RECORDS SELECTION SELPIECES) (
|
||
CONSTANTS (COPYSELSHADE 30583) (COPYLOOKSSELSHADE 30583) (EDITMOVESHADE BLACKSHADE) (EDITGRAY 32800))
|
||
(MACROS WITHINLINEP FWITHINLINEP LINESELECTEDP FLINESELECTEDP IBETWEENP) (MACROS GETSEL SETSEL FGETSEL
|
||
FSETSEL SELECTION!) (I.S.OPRS inselpieces) (MACROS GETSPC SETSPC FGETSPC FSETSPC SELPIECES!) (
|
||
GLOBALVARS TEDIT.EXTEND.PENDING.DELETE) (GLOBALVARS TEDIT.SELECTION TEDIT.SHIFTEDSELECTION
|
||
TEDIT.MOVESELECTION TEDIT.COPYLOOKSSELECTION TEDIT.DELETESELECTION))) (INITRECORDS SELECTION SELPIECES
|
||
) (FNS \TEDIT.SELECTION.DEFPRINT) (P (\TEDIT.SET.GLOBAL.SELECTIONS)) (FNS \TEDIT.SET.GLOBAL.SELECTIONS
|
||
) (FNS \TEDIT.SELECTED.PIECES \TEDIT.FIND.PROTECTED.END \TEDIT.FIND.PROTECTED.START \TEDIT.WORD.BOUND)
|
||
(INITVARS (TEDIT.EXTEND.PENDING.DELETE T)) (* ; "Setting for a %"Laurel%" mode") (COMS (* ;
|
||
"Selection manipulating code") (FNS \TEDIT.EXTEND.SEL \TEDIT.SCAN.LINE \TEDIT.SCAN.LINE.WORD
|
||
\TEDIT.XYTOSEL \TEDIT.REGIONTYPE \TEDIT.XYTOSEL.INLINEP \TEDIT.XYTOSEL.LINE) (FNS \TEDIT.FIXSEL
|
||
\TEDIT.CHTOLINEX) (FNS \TEDIT.RESET.EXTEND.PENDING.DELETE \TEDIT.SET.SEL.LOOKS) (DECLARE%:
|
||
EVAL@COMPILE DONTCOPY (EXPORT (MACROS \TEDIT.NOSEL \TEDIT.SEL.ON \TEDIT.SEL.OFF))) (FNS \TEDIT.SHOWSEL
|
||
\TEDIT.NOSEL \TEDIT.SEL.OFF \TEDIT.SECONDARYSEL.OFF \TEDIT.SEL.ON \TEDIT.SHOWSEL.HILIGHT
|
||
\TEDIT.UPDATE.SEL \TEDIT.CARETLINE \TEDIT.SEL.L1 \TEDIT.SEL.LN \TEDIT.SEL.DELETEDCHARS) (FNS
|
||
\TEDIT.COPYSEL \TEDIT.SEL.CHANGED?)) (COMS (* ; "Image objects") (FNS \TEDIT.SELECT.OBJECT
|
||
\TEDIT.SHOWSEL.OBJECT \TEDIT.CLIP.OBJECT \TEDIT.OPERATE.OBJECT)) (* ;; "SELPIECES") (FNS
|
||
\TEDIT.SELPIECES \TEDIT.SELPIECES.COPY \TEDIT.SELPIECES.CONCAT \TEDIT.SELPIECES.CHARTRANSFORM
|
||
\TEDIT.SELPIECES.FROM.STRING \TEDIT.SELPIECES.TO.STRING) (* ;; "User entries to the selection code") (
|
||
FNS TEDIT.XYTOCH TEDIT.SELPROP TEDIT.GETPOINT TEDIT.GETSEL TEDIT.GETSEL.PARA TEDIT.SCANSEL
|
||
TEDIT.SET.SEL.LOOKS TEDIT.SETSEL TEDIT.SHOWSEL TEDIT.SEL.AS.STRING TEDIT.SEL.AS.SEXPR TEDIT.SELECTALL)
|
||
(DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) (LAMA
|
||
TEDIT.SELPROP)))))
|
||
(/DECLAREDATATYPE (QUOTE SELECTION) (QUOTE (POINTER POINTER POINTER POINTER POINTER POINTER POINTER
|
||
POINTER POINTER POINTER POINTER FLAG FULLXPOINTER POINTER POINTER POINTER FLAG POINTER FLAG POINTER))
|
||
(QUOTE ((SELECTION 0 POINTER) (SELECTION 2 POINTER) (SELECTION 4 POINTER) (SELECTION 6 POINTER) (
|
||
SELECTION 8 POINTER) (SELECTION 10 POINTER) (SELECTION 12 POINTER) (SELECTION 14 POINTER) (SELECTION
|
||
16 POINTER) (SELECTION 18 POINTER) (SELECTION 20 POINTER) (SELECTION 20 (FLAGBITS . 0)) (SELECTION 22
|
||
FULLXPOINTER) (SELECTION 24 POINTER) (SELECTION 26 POINTER) (SELECTION 28 POINTER) (SELECTION 28 (
|
||
FLAGBITS . 0)) (SELECTION 30 POINTER) (SELECTION 30 (FLAGBITS . 0)) (SELECTION 32 POINTER))) (QUOTE 34
|
||
))
|
||
(DEFPRINT (QUOTE SELECTION) (FUNCTION \TEDIT.SELECTION.DEFPRINT))
|
||
(/DECLAREDATATYPE (QUOTE SELPIECES) (QUOTE (POINTER POINTER POINTER POINTER POINTER)) (QUOTE ((
|
||
SELPIECES 0 POINTER) (SELPIECES 2 POINTER) (SELPIECES 4 POINTER) (SELPIECES 6 POINTER) (SELPIECES 8
|
||
POINTER))) (QUOTE 10))
|
||
(\TEDIT.SET.GLOBAL.SELECTIONS)
|
||
(RPAQ? TEDIT.EXTEND.PENDING.DELETE T)
|
||
NIL
|