(FILECREATED "11-Sep-84 16:37:41" ("compiled on " {ERIS}TEDITSELECTION.;18) " 8-Sep-84 01:10:18" tcompl'd in "INTERLISP-D 8-Sep-84 ..." dated " 8-Sep-84 01:22:25") (FILECREATED "10-Sep-84 15:36:40" {ERIS}TEDITSELECTION.;18 85716 changes to: (FNS TEDIT.SEL.AS.STRING TEDIT.GETSEL TEDIT.MAKESEL TEDIT.SCANSEL TEDIT.SHOWSEL) previous date: "23-Aug-84 13:52:24" {ERIS}TEDITSELECTION.;17) TEDIT.SEL.AS.STRING D1 (P 7 I P 5 BASE P 4 OFFST P 3 RESULT P 2 TSEL P 1 LEN P 0 TEXTOBJ I 1 SEL I 0 STREAM) u@ bdÉQAµHÉZdÉYdjð¦JÉ¤oIl [È¼KÉLÐ½JÉH ¿IkÙjONñ³MOHÉ0 Ç¿OkØ_°êK(117Q \SETUPGETCH 65Q ALLOCSTRING 3 TEXTSTREAM) (144Q TEXTOBJ 111Q SELECTION 100Q STRINGP 71Q STRINGP 47Q SELECTION 34Q SELECTION 25Q TEXTOBJ 11Q STREAM) ( 56Q "") TEDIT.SELECTED.PIECES D1 (P 25Q I P 21Q UNDOCHAIN P 20Q COPYFN P 17Q OBJ P 16Q PCLST P 15Q INSERTCH# P 14Q REPLACING P 13Q EVENT P 12Q OPLEN P 11Q NPCCH P 10Q PCCH P 7 NPC P 6 PC P 5 INSPC# P 4 INSPC P 3 LEN P 2 PCTB P 1 CHLIM P 0 CH1 I 5 FNARG2 I 4 FNARG1 I 3 PIECEMAPFN I 2 CROSSCOPY I 1 SEL I 0 TEXTOBJ) AÉAÉ @Éó h _JÉkÐkÐÉlÙlO,²;O,jð’±ØjO,ó²O*JÉkÐkÐÉlÙýñ°O*JÉkÐkÐÉlÙñ’±§JÉO*ÐO*ÐÉ_¿JO*kØ_$¿ÉO$ÐO$ÐÉ¾JO*lØ_&¿ÉO&ÐO&ÐÉ_Hñ²VOIñ³]HOñ²NH@O*¾O*lØ_*¿@ÉºIOkÙýñ²NIkØ@O*¿@ÉºOC™N@DElC€N_ ¿O*l_,Ø_*¿±ÿ"O(404Q TCONC 350Q \SPLITPIECE 305Q \SPLITPIECE 33Q TCONC) (355Q TEXTOBJ 322Q TEXTOBJ 241Q ARRAYP 212Q ARRAYP 162Q ARRAYP 136Q ARRAYP 111Q ARRAYP 41Q ARRAYP 17Q TEXTOBJ 11Q SELECTION 3 SELECTION) () \TEDIT.FIND.FIRST.LINE D1 (P 5 CH P 4 CHNO P 3 LINE P 2 TEXTSTREAM P 1 WWIDTH P 0 LINES I 3 WINDOW I 2 CH# I 1 WHEIGHT I 0 TEXTOBJ) È C˜Cg µ@É@É$@É0c@Éjð˜HhHB@Éñ‘h@É@—@B °:B@ ¿j½lBkÙ_¿¾O¼NLñJ ]l ð¤LkÙ°ïLdkñ¢¿k‰BÙjð‘B‚LkØ¼B@É_¿dOñ’¿Ob@hL[A¿HK¿KHÎ¿KXÉkØ\Bñ²ÖK(236Q \FORMATLINE 147Q \BACKBIN 120Q \SETUPGETCH 110Q \TEDIT.PARABOUNDS 10Q GETWINDOWUSERPROP) (273Q LINEDESCRIPTOR 262Q LINEDESCRIPTOR 252Q LINEDESCRIPTOR 242Q LINEDESCRIPTOR 211Q TEXTOBJ 100Q TEXTOBJ 66Q TEXTOBJ 54Q LINEDESCRIPTOR 43Q TEXTOBJ 32Q TEXTOBJ 24Q TEXTOBJ 16Q TEXTOBJ 5 LINES) () \TEDIT.FIND.LAST.LINE D1 (L (1 LINES 0 TEXTOBJ)) <A¨@Éb¿@É´)Add¿I²IÉ@É(ýñ©IXÉY°çHNIL (63Q LINEDESCRIPTOR 51Q TEXTOBJ 43Q LINEDESCRIPTOR 30Q LINEDESCRIPTOR 16Q TEXTOBJ 5 TEXTOBJ) () \TEDIT.FIND.OVERLAPPING.LINE D1 (L (1 Y 0 LINES)) @d ÉAñ¡@@Éb°ëNIL (21Q LINEDESCRIPTOR 6 LINEDESCRIPTOR) () \TEDIT.FIND.PROTECTED.END D1 (I 2 LIMITCH# I 1 CH# I 0 TEXTOBJ) @ÉÉkÐkÐÉA@É kØ@É3K²7Kjð³~jKó²I@ÉÉkÐkÐÉýñ°I@ÉÉkÐkÐÉñ³NB²JIkÙ¼ÉLÐLÐÉBñ‘BJÉIÐIÐÉÉÉ²JIkÙ½ÉMÐMÐÉkÙIl[Ø¹±ÿh(32Q \CHTOPCNO) (225Q ARRAYP 211Q CHARLOOKS 204Q PIECE 171Q ARRAYP 150Q ARRAYP 122Q ARRAYP 115Q TEXTOBJ 74Q ARRAYP 67Q TEXTOBJ 40Q TEXTOBJ 25Q TEXTOBJ 10Q ARRAYP 3 TEXTOBJ) () \TEDIT.FIND.PROTECTED.START D1 (I 2 LIMITCH# I 1 CH# I 0 TEXTOBJ) ylA@É kØ@É3K²Kjð³YjKó“lI‚Ilñ³KB²JIkÙ¼ÉLÐLÐÉBñ¡BJÉIÐIÐÉÉÉ²JIkØ½ÉMÐMÐÉImþ[Ø¹°£h(13Q \CHTOPCNO) (144Q ARRAYP 130Q CHARLOOKS 123Q PIECE 110Q ARRAYP 67Q ARRAYP 21Q TEXTOBJ 6 TEXTOBJ) () \TEDIT.WORD.BOUND D1 (P 2 SYN2 P 1 SYN1 P 0 READSA I 2 CH I 1 PREVCH I 0 TEXTOBJ) V@ÉLµ`É!Ad¡—Bd¡¡iHd`ð©¿o ¿HAÂYHd`ð©¿o ¿HBÂZIJðhð(111Q RAID 64Q RAID) (77Q CHARTABLETYPE# 52Q CHARTABLETYPE# 15Q READTABLEP 12Q TEDIT.WORDBOUND.READTABLE 3 TEXTOBJ) ( 106Q (Check-failure: (type? CHARTABLE READSA)) 61Q (Check-failure: (type? CHARTABLE READSA))) \SHOWSEL D1 (P 16Q LL P 15Q SHADEHEIGHT P 14Q SHADE P 13Q LINES P 12Q DS P 1 SHOWFN P 0 TEXTOBJ I 2 ON I 1 HOW I 0 SEL) Þ@d¢±#É´‚±@ÉÉ´‚±@É‘ H H g @Éµnÿÿ@Éµk@É"šH@BO±ÆB¢±Æ@É$’±¹@i$¿@É©@É¢±!@É@Éð²3hjdO@É@É@ÉO@ÉÉºdJñ¢±Ù¿J±Ô@É²FhjdO@É@É@ÉÉ@ÉÙO@ÉÉ»dKñ‘¿KggO ¿@ÉµO_¢±…OÉ_²yO@Éð³OÉHÉ(ýñ´‚±„O²UOÉHÉ(ýñ³DhjdOOÉ@ÉÉ@ÉOÉÙOOÉ½dMñ‘¿MggO ¿@É ´xHÉB³o@Égð²Q@É@É°OjdOOÉOÉOÉOÉÙOOÉ¼dLñ‘¿LggO ¿±ÿ@É@ÉOHhB³ý@É$´ö@h$¿@É ²HÉB®@¿HÉ4 ¿@É§@É´Á@É@Éð²JÉOð®AhOÉO¿jJÉñ’±JÉjdOÉO&O$ñ’±ÇM²MÊjð™MÊCkð§o ¿MÈO&ñ§o ¿MÉMÈO&ØÐÈ_¿OOØ_¿O*Iñ³pNÉO&ÐO&ÐÉn‘ð²!O(kØ_(¿O*OÉO(ÐO(ÐÉkÙØ_*°+NÉO&ÐO&ÐÉnðO*kÙ_*¿O(kØ_(‡@O¿O&kØ_&¿O*kØ_*¿±ÿ6°6IOÉkØÙjð²'@OÉ¿@O¿@OÉ¿O_É_±ûj@ÉÙjð²1@j¿@Égð@@É°#@@É°@@É@ÉÙh(2067Q RAID 2045Q RAID 1735Q \FORMATLINE 1206Q \FORMATLINE 711Q RAID 667Q RAID 557Q \FORMATLINE) (2530Q SELECTION 2522Q SELECTION 2516Q SELECTION 2504Q SELECTION 2500Q SELECTION 2466Q SELECTION 2462Q SELECTION 2454Q LEFT 2447Q SELECTION 2437Q SELECTION 2424Q SELECTION 2407Q LINEDESCRIPTOR 2373Q LINEDESCRIPTOR 2366Q SELECTION 2355Q SELECTION 2344Q LINEDESCRIPTOR 2337Q SELECTION 2322Q LINEDESCRIPTOR 2263Q SELECTION 2222Q ARRAYP 2175Q ARRAYP 2137Q ARRAYP 2102Q ARRAYP 2074Q ARRAYP 2052Q ARRAYP 2030Q ARRAYP 2016Q ARRAYP 1767Q LINEDESCRIPTOR 1756Q THISLINE 1743Q THISLINE 1726Q LINEDESCRIPTOR 1711Q THISLINE 1662Q TEXTOBJ 1654Q LINEDESCRIPTOR 1637Q LINEDESCRIPTOR 1632Q SELECTION 1626Q SELECTION 1615Q LINEDESCRIPTOR 1610Q SELECTION 1604Q SELECTION 1573Q LINEDESCRIPTOR 1566Q SELECTION 1553Q LINEDESCRIPTOR 1542Q LINEDESCRIPTOR 1525Q SELECTION 1516Q RIGHT 1511Q SELECTION 1476Q LINEDESCRIPTOR 1463Q LINEDESCRIPTOR 1456Q SELECTION 1445Q LINEDESCRIPTOR 1433Q SELECTION 1422Q LINEDESCRIPTOR 1415Q SELECTION 1402Q LINEDESCRIPTOR 1364Q LINEDESCRIPTOR 1346Q LINEDESCRIPTOR 1341Q SELECTION 1330Q SELECTION 1317Q LINEDESCRIPTOR 1312Q SELECTION 1300Q LINEDESCRIPTOR 1265Q LINEDESCRIPTOR 1247Q LINEDESCRIPTOR 1242Q SELECTION 1231Q SELECTION 1220Q LINEDESCRIPTOR 1213Q SELECTION 1177Q LINEDESCRIPTOR 1162Q THISLINE 1145Q LINEDESCRIPTOR 1105Q SELECTION 1044Q ARRAYP 1017Q ARRAYP 761Q ARRAYP 724Q ARRAYP 716Q ARRAYP 674Q ARRAYP 652Q ARRAYP 640Q ARRAYP 611Q LINEDESCRIPTOR 600Q THISLINE 565Q THISLINE 550Q LINEDESCRIPTOR 533Q THISLINE 520Q LINEDESCRIPTOR 503Q LINEDESCRIPTOR 476Q SELECTION 472Q SELECTION 461Q LINEDESCRIPTOR 454Q SELECTION 450Q SELECTION 437Q LINEDESCRIPTOR 432Q SELECTION 422Q LINEDESCRIPTOR 406Q LINEDESCRIPTOR 371Q SELECTION 362Q RIGHT 355Q SELECTION 342Q LINEDESCRIPTOR 327Q LINEDESCRIPTOR 322Q SELECTION 311Q LINEDESCRIPTOR 277Q SELECTION 266Q LINEDESCRIPTOR 261Q SELECTION 244Q LINEDESCRIPTOR 226Q LINEDESCRIPTOR 205Q LINEDESCRIPTOR 200Q TEXTOBJ 164Q SELECTION 160Q SELECTION 147Q SELECTION 136Q TEXTOBJ 132Q SELECTION 121Q SELECTION 110Q THISLINE 101Q THISLINE 72Q THISLINE 61Q SELECTION 36Q SELECTION 25Q TEXTOBJ 17Q TEXTOBJ 11Q SELECTION 3 SELECTION) ( 2064Q (Check-failure: (IGREATERP (fetch (ARRAYP LENGTH) of WLIST) I)) 2042Q (Check-failure: (AND (ARRAYP WLIST) (ZEROP (fetch (ARRAYP ORIG) of WLIST)) (EQ \ST.POS16 (fetch (ARRAYP TYP) of WLIST)))) 706Q (Check-failure: (IGREATERP (fetch (ARRAYP LENGTH) of WLIST) I)) 664Q (Check-failure: (AND (ARRAYP WLIST) (ZEROP (fetch (ARRAYP ORIG) of WLIST)) (EQ \ST.POS16 (fetch (ARRAYP TYP) of WLIST))))) \TEDIT.FIXDELSEL D1 (L (4 DCH 3 CH#LIM 2 CH#1 1 TEXTOBJ 0 SELTOFIX)) ®@É´‚±¡A@Éð´‚±“@dÉCñ²&¿@@ÉDÙ@@É DÙHI IÉ Býñ³Z@dÉBýñ©¿@B¿@B@É DÙHdIñ¡¿I @@dÉ BÙjð’¿jÉ @ÉÙkØHIIhNIL (234Q SELECTION 226Q SELECTION 211Q SELECTION 204Q SELECTION 157Q SELECTION 152Q SELECTION 142Q SELECTION 127Q SELECTION 113Q SELECTION 73Q SELECTION 67Q SELECTION 55Q SELECTION 51Q SELECTION 36Q SELECTION 20Q SELECTION 3 SELECTION) () \TEDIT.FIXINSSEL D1 (L (3 DCH 2 CH#1 1 TEXTOBJ 0 SELTOFIX)) 5 @É´*A@Éð´ @ÉXBýñ¦@HCØ¿@É YBýñ¥@ICØ hNIL (17Q SELECTION 6 SELECTION) () \TEDIT.FIXSELS D1 (P 1 SELN I 1 EXCEPT I 0 TEXTOBJ) >@É@É @É@É"hHµhYdAðªÉ•I@ ¿HX°æ(66Q \FIXSEL) (56Q SELECTION 25Q TEXTOBJ 17Q TEXTOBJ 11Q TEXTOBJ 3 TEXTOBJ) () \TEDIT.REFRESH.SHOWSEL D1 (P 0 NOSEL I 5 EXTENDING I 4 NEWOP I 3 OLDOP I 2 OLDSEL I 1 NEWSEL I 0 TEXTOBJ F 1 GLOBALSEL) ¹E²CDð²AB ¿AB ¿Bi$±”B ¿CDð³uDgð§Ddgðž¿`c¿@É° line descriptor for the line where the first selected character is) LN (* -> line descriptor for the line which contains the end of the selection) YLIM (* Y value of the bottom of the line that ends the selection) POINT (* Which end should the caret appear at? (LEFT or RIGHT)) SET (* T if this selection is real; NIL if not) (\TEXTOBJ FULLXPOINTER) (* TEXTOBJ that describes the selected text) SELKIND (* What kind of selection? CHAR or WORD or LINE or PARA) HOW (* SHADE used to highlight this selection) HOWHEIGHT (* Height of the highlight (1 usually, full line for delete selection...)) HASCARET (* T if there should be a caret for this selection) SELOBJ (* If this selection is inside an object, which object?) ONFLG (* T if the selection is highlighted on the screen, else NIL) SELOBJINFO (* A Place for the selected object to put info about selection inside itself.)) SET _ NIL HOW _ BLACKSHADE HOWHEIGHT _ 1 HASCARET _ T Y0 _ 0 X0 _ 0 POINT _ (QUOTE LEFT)) (/DECLAREDATATYPE (QUOTE SELECTION) (QUOTE (POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER FULLXPOINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER))) (FILESLOAD TEXTOFD) (RPAQQ COPYSELSHADE 30583) (RPAQQ EDITMOVESHADE -1) (RPAQQ EDITGRAY 32800) (CONSTANTS (COPYSELSHADE 30583) (EDITMOVESHADE -1) (EDITGRAY 32800)) (RPAQ? TEDIT.EXTEND.PENDING.DELETE T) (RPAQ TEDIT.SELECTION (create SELECTION)) (RPAQ TEDIT.SCRATCHSELECTION (create SELECTION)) (RPAQ TEDIT.SHIFTEDSELECTION (create SELECTION HOW_COPYSELSHADE HASCARET_NIL)) (RPAQ TEDIT.MOVESELECTION (CREATE SELECTION HOW_EDITMOVESHADE HASCARET_NIL HOWHEIGHT_32767)) (RPAQ TEDIT.DELETESELECTION (CREATE SELECTION HOW_BLACKSHADE HASCARET_NIL HOWHEIGHT_32767)) (RPAQQ SELECTION NOBIND) (RPAQQ SELECTION NOBIND) (RPAQQ TEDIT.SELPENDING NIL) (PUTPROPS TEDITSELECTION COPYRIGHT ("John Sybalsky & Xerox Corporation" 1983 1984)) NIL