From c2915bf5d3c4428ffbaacf1cb3d872a1bf7d40d4 Mon Sep 17 00:00:00 2001 From: rmkaplan <69548581+rmkaplan@users.noreply.github.com> Date: Sat, 11 Dec 2021 21:45:29 -0800 Subject: [PATCH] Rmk8: Revised EDITINTERFACE, another attempt at SEDIT-TOPLEVEL (#619) * EDITINTERFACE: further cleanup * SEDIT: Another attempt at adding a property interface --- sources/EDITINTERFACE | 135 +++++++----- sources/EDITINTERFACE.LCOM | Bin 16102 -> 16204 bytes sources/SEDIT-ACCESS | 98 +++++---- sources/SEDIT-ACCESS.DFASL | Bin 8636 -> 8684 bytes sources/SEDIT-DECLS | 411 ++++++++++++++++------------------- sources/SEDIT-DECLS.LCOM | 335 +++++++++++++++++++++++++++- sources/SEDIT-EXPORTS | 12 +- sources/SEDIT-EXPORTS.DFASL | Bin 2278 -> 2310 bytes sources/SEDIT-TOPLEVEL | 158 ++++++++------ sources/SEDIT-TOPLEVEL.DFASL | Bin 13898 -> 14351 bytes 10 files changed, 755 insertions(+), 394 deletions(-) diff --git a/sources/EDITINTERFACE b/sources/EDITINTERFACE index 9c2c1c9f..d9f2a03f 100644 --- a/sources/EDITINTERFACE +++ b/sources/EDITINTERFACE @@ -1,12 +1,12 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED " 4-Dec-2021 10:40:27"  -{DSK}kaplan>Local>medley3.5>my-medley>sources>EDITINTERFACE.;21 46036 +(FILECREATED " 8-Dec-2021 18:25:33"  +{DSK}kaplan>Local>medley3.5>my-medley>sources>EDITINTERFACE.;29 47473 - changes to%: (FNS EDITDATE?) + :CHANGES-TO (FNS EDITDATE? EDITDATE) - previous date%: " 3-Dec-2021 15:45:20" -{DSK}kaplan>Local>medley3.5>my-medley>sources>EDITINTERFACE.;19) + :PREVIOUS-DATE " 8-Dec-2021 16:11:23" +{DSK}kaplan>Local>medley3.5>my-medley>sources>EDITINTERFACE.;27) (* ; " @@ -109,7 +109,7 @@ Copyright (c) 1986-1988, 1990-1991 by Venue & Xerox Corporation. (DEFGLOBALVAR XCL::ED-LAST-INFO NIL "used in ED to stash last call info so (ED NIL) will restart last edit") -(CL:DEFUN ED (CL::NAME CL::OPTIONS) (* ; "Edited 5-Jul-88 16:03 by woz") +(CL:DEFUN ED (CL::NAME CL::OPTIONS) (* ; "Edited 5-Jul-88 16:03 by woz") (* ;;; "Standard Common Lisp editor entry. CLtL say's ED does something reasonable when passed a pathname. We coerce name into something that might be the name of something with an IL:FILES definition, & try to edit that. Then save call info in ED-LAST-INFO, so (ED) will start last edit over again.") @@ -629,21 +629,21 @@ Copyright (c) 1986-1988, 1990-1991 by Venue & Xerox Corporation. (FIXEDITDATE [LAMBDA (EXPR) - (* ;; "Edited 3-Dec-2021 15:35 by rmk: Updated to add dates to the initial undated comments that begins with current-editor initials, to provide a kind of dated change-log capability.") - (* ; "Edited 3-Dec-2021 15:03 by rmk") + (* ;; "Edited 8-Dec-2021 16:11 by rmk: Updated to add dates to the initial undated comments that begins with current-editor initials, to provide a kind of dated change-log capability.") + (* ; "Edited 3-Dec-2021 15:03 by rmk") (* ; "Edited 22-Oct-2021 16:58 by rmk:") (* ; "Edited 27-Sep-2018 22:04 by rmk:") (* ; "Edited 31-Mar-2000 17:13 by rmk:") (* ; "Edited 17-Jul-89 11:13 by jtm:") (* ; "18-JUL-78 21:11") - (* ;; "Inserts or replaces previous edit date. This retains multiple edits (at least one day apart or by different editor) unless *REPLACE-OLD-EDIT-DATES*. Note that the new date doesn't show up within the current SEDIT session, you have to exit and re-edit to see it.") + (* ;; "Inserts or replaces previous edit date. This retains multiple edits (at least one day apart or by different editor) unless *REPLACE-OLD-EDIT-DATES*. Note that the new date doesn't show up within the current SEDIT session, you have to exit and re-edit to see it. ") (CL:WHEN (AND INITIALS (LISTP EXPR) (LISTP (CDR EXPR))) (PROG (E) - (* ;; "Normalize out the colon, add it back if needed.") + (* ;; "Normalize out the colon, add it back if needed. ") (COND ((FMEMB (CAR EXPR) @@ -729,26 +729,36 @@ Copyright (c) 1986-1988, 1990-1991 by Venue & Xerox Corporation. (IF (STRING.EQUAL INITLS (CADR PARSE)) THEN - (* ;; "This is a previous date with this author. If more than a day later, add a new date. If less than a day, assume we are in essentially the same session, and update (CAR E) to the current time.") + (* ;; "Another edit by the same author. If not dated but contains a rest, then upgrade the rest comment with a date Otherwise,If more than a day later, add a new date. If less than a day, assume we are in essentially the same session, and update (CAR E) to the current time.") - [IF (OR (NULL (CAR PARSE)) - (IGREATERP (IDIFFERENCE (IDATE) - (IDATE (CAR PARSE))) - (TIMES 24 3600))) + [IF (NULL (CAR PARSE)) THEN - (* ;; "If no date, must have been %"INITIALS: xxx%" and we definitely want to upgraded to the Edited... format") + (* ;; "If no date but %"INITIALS: xxx%", we definitely want to upgraded to the Edited... initials: xxx format") - (/ATTACH (EDITDATE NIL INITLS (CADDR PARSE)) + (/RPLACA E (EDITDATE (CAR E) + INITLS + (CADDR PARSE))) + ELSEIF (IGREATERP (IDIFFERENCE (IDATE) + (IDATE (CAR PARSE))) + (TIMES 24 3600)) + THEN + (* ;; + "If we aren't upgrading, then we don't want to propagate the previous REST.") + + (/ATTACH (EDITDATE NIL INITLS) E) ELSE - (* ;; "Same author, within a day. ") + (* ;; + "Same author, within a day. Just change the date, keep the REST.") - (/RPLACA E (EDITDATE NIL INITLS (CADDR PARSE] + (/RPLACA E (EDITDATE (CAR E) + INITLS + (CADDR PARSE] ELSE - (* ;; - "Not a previous date, or not one with this author. Add a new one.") - (/ATTACH (EDITDATE NIL INITLS (CADDR PARSE)) + (* ;; "Not a previous date, or not one with this author. Add a new one. If rmk is editing and sees an lmm: rest, we don't want to attribute that rest to rmk in the new one.") + + (/ATTACH (EDITDATE NIL INITLS) E)) ELSE (* ;; "Need a new date, didn't even see %" by %", and returns a parsed pair (DATE INITIALS).") -(* ;;; "If RESTOK, this also parses strings with additional stuff after the (%"Edited by : xxx%") and strings that appear to begin with initials but don't have a date (: xxx). In those cases the return is a triple (DATE INITIALS REST), where DATE may be NIL. ") +(* ;;; "If RESTOK, this also parses strings with additional stuff after the INITLS (%"Edited by : xxx%") and strings that appear to begin with initials but don't have a date (: xxx). In those cases the return is a triple (DATE INITIALS REST), where DATE may be NIL. ") (* ;;; "") @@ -772,41 +785,55 @@ Copyright (c) 1986-1988, 1990-1991 by Venue & Xerox Corporation. (* ;;; "There is no harm in not recognizing prehistoric formats, new dates will always be added on.") (LET ((TAIL COMMENT) - STRING BYPOS DATE I RESTPOS) + STRING BYPOS (IPOS 1) + DATE I IENDPOS RESTPOS) (CL:WHEN [AND (EQ COMMENTFLG (CAR (LISTP TAIL))) (MEMB [CAR (LISTP (SETQ TAIL (CDR TAIL] '(; ;; ;;;)) (STRINGP (SETQ STRING (CAR (SETQ TAIL (CDR TAIL] (SETQ STRING (CL:STRING-TRIM `(#\Space) STRING)) - (CL:UNLESS [AND [STREQUAL "Edited " (SUBSTRING STRING 1 7 (CONSTANT (CONCAT] - (SETQ BYPOS (STRPOS " by " STRING 8)) - [IDATE (SETQ DATE (CL:STRING-TRIM `(#\Space) - (SUBSTRING STRING 8 (SUB1 BYPOS] - (SETQ I (SUBSTRING STRING (IPLUS BYPOS 4) - (OR (SETQ RESTPOS (STRPOS " " STRING (IPLUS BYPOS 4))) - -1] + (CL:WHEN [AND [STREQUAL "Edited " (SUBSTRING STRING 1 7 (CONSTANT (CONCAT] + (SETQ BYPOS (STRPOS " by " STRING 8)) + (IDATE (SETQ DATE (CL:STRING-TRIM `(#\Space) + (SUBSTRING STRING 8 (SUB1 BYPOS] - (* ;; "Could be %": abc%" to be upgraded with a date") + (* ;; "Standard format, initials should be next. ") - (CL:WHEN (SETQ RESTPOS (STRPOS " " STRING)) - (SETQ I (SUBSTRING STRING 1 (SUB1 RESTPOS))))) - (CL:WHEN (AND I (ILESSP (NCHARS I) - 12)) (* ; + (SETQ IPOS (IPLUS BYPOS 4))) + + (* ;; "Chomp off the next substring--initials?") + + (CL:WHEN (IGREATERP (NCHARS STRING) + IPOS) + [SETQ IENDPOS (SUB1 (OR (STRPOS " " STRING IPOS) + (ADD1 (NCHARS STRING] + (SETQ I (SUBSTRING STRING IPOS IENDPOS)) + (CL:WHEN (ILESSP (NCHARS I) + 12) (* ;  "Sanity check: Initials should be short.") - (CL:WHEN (EQ (CHARCODE %:) - (NTHCHARCODE I -1)) (* ; - "Normalize out the colon in the return") - (SETQ I (SUBSTRING I 1 -2))) - (IF RESTOK - THEN (LIST DATE I (AND RESTPOS (SUBSTRING STRING RESTPOS))) - ELSEIF (AND DATE (NOT RESTPOS)) - THEN (LIST DATE I))))]) + (CL:WHEN (EQ (CHARCODE %:) + (NTHCHARCODE I -1)) (* ; "Normalize out the colon") + (SETQ I (SUBSTRING I 1 -2))) + (CL:WHEN (SETQ REST (SUBSTRING STRING (ADD1 IENDPOS))) + (SETQ REST (CL:STRING-TRIM `(#\Space) + REST))) + (IF (IGREATERP (NCHARS REST) + 0) + THEN + (* ;; "Could be %": abc%" to be upgraded with a date") + + (CL:WHEN RESTOK (LIST DATE I REST)) + ELSEIF DATE + THEN + (* ;; "If we saw just initials") + + (LIST DATE I)))))]) (EDITDATE [LAMBDA (OLDDATE INITLS REST) - (* ;; "Edited 3-Dec-2021 13:17 by rmk: Upgraded to make sure that the comment includes REST") + (* ;; "Edited 8-Dec-2021 17:58 by rmk: Upgraded to make sure that the comment includes REST") (* ; " 20-Nov-86 23:23 by Masinter") (* ;; "Generates a new date from an old one. Packs : onto INITLS if there is a REST. In the REST case we upgrade a singe semicolon to a double.") @@ -815,7 +842,7 @@ Copyright (c) 1986-1988, 1990-1991 by Venue & Xerox Corporation. " by " INITLS)) NEWDATE OLDSEMI) (CL:WHEN REST - (SETQ EDITSTRING (CONCAT EDITSTRING ":" REST))) + (SETQ EDITSTRING (CONCAT EDITSTRING ": " REST))) (CL:WHEN OLDDATE (SETQ OLDSEMI (CADR OLDDATE))) (SETQ NEWDATE (LIST (CL:IF REST @@ -901,11 +928,11 @@ Copyright (c) 1986-1988, 1990-1991 by Venue & Xerox Corporation. ) (PUTPROPS EDITINTERFACE COPYRIGHT ("Venue & Xerox Corporation" 1986 1987 1988 1990 1991)) (DECLARE%: DONTCOPY - (FILEMAP (NIL (4080 10379 (ED 4080 . 10379)) (10381 14357 (INSTALL-PROTOTYPE-DEFN 10381 . 14357)) ( -14358 31141 (EDITDEF.FNS 14368 . 15704) (EDITF 15706 . 16586) (EDITFB 16588 . 17436) (EDITFNS 17438 . -18758) (EDITLOADFNS? 18760 . 22560) (EDITMODE 22562 . 24572) (EDITP 24574 . 25085) (EDITV 25087 . -25726) (DC 25728 . 26409) (DF 26411 . 27453) (DP 27455 . 28539) (DV 28541 . 29113) (EDITPROP 29115 . -29334) (EF 29336 . 29665) (EP 29667 . 29850) (EV 29852 . 30031) (EDITE 30033 . 30911) (EDITL 30913 . -31139)) (31491 45181 (NEW/EDITDATE 31501 . 31723) (FIXEDITDATE 31725 . 39112) (EDITDATE? 39114 . 41927 -) (EDITDATE 41929 . 43184) (SETINITIALS 43186 . 45179))))) + (FILEMAP (NIL (4086 10381 (ED 4086 . 10381)) (10383 14359 (INSTALL-PROTOTYPE-DEFN 10383 . 14359)) ( +14360 31143 (EDITDEF.FNS 14370 . 15706) (EDITF 15708 . 16588) (EDITFB 16590 . 17438) (EDITFNS 17440 . +18760) (EDITLOADFNS? 18762 . 22562) (EDITMODE 22564 . 24574) (EDITP 24576 . 25087) (EDITV 25089 . +25728) (DC 25730 . 26411) (DF 26413 . 27455) (DP 27457 . 28541) (DV 28543 . 29115) (EDITPROP 29117 . +29336) (EF 29338 . 29667) (EP 29669 . 29852) (EV 29854 . 30033) (EDITE 30035 . 30913) (EDITL 30915 . +31141)) (31493 46618 (NEW/EDITDATE 31503 . 31725) (FIXEDITDATE 31727 . 39874) (EDITDATE? 39876 . 43363 +) (EDITDATE 43365 . 44621) (SETINITIALS 44623 . 46616))))) STOP diff --git a/sources/EDITINTERFACE.LCOM b/sources/EDITINTERFACE.LCOM index 9f69beea56abbb4d1de0fcfe7e684a62d061942e..fa7db4824c165b09bc1789a4d12bfbd3a1736ecd 100644 GIT binary patch delta 1543 zcmZux&u<$=6!zE&4epO@g9;&1swbxhTgYK&_LtYKRR3CMH{M;F-8FXFq)Hm6s7Y-meqeO@+Cn_};KpcSCS;sh`KFoacecyXCp7(Zs zefP)rK4`v>Ntd=Z(}X7&a3)KntRU=lnzL#O5-_gGSxmB6-urpJHbyTlE+(M0aeu4z zEIT2IR6JQWOs(i>c~2{yG9B-?t2-))il_*XE$VrDNpsU)6_RD!g}7ESyb=w*4#y}3 z*_xxhZdB`TI#5n!r6DcD=l5rfW{st9mOn zEnU*eHb{!XY#K*Y#a1o=+3M5)vciP+S`|X`=*twGcNx+a`089NpXVxyqFj4zWJc(jh z;Qe*-F`cph7x{hu?a9dqst;oCe~H#|F*et8(GZyadGRs2=KmnR((`n*T!}`}+2BeZ zIy!2{19Wq6mC}ge0bfD=7xmVdk?{|&Oa;~oV%K`uo!!2`{dDyC-DRfgY|L@bi2E&) z6ch}vIyJMGFXlmz6%Kzl&5OCgrPpo|D?*BS^=SP2C(Oion{ z2Ic%~%0e&0(m)whC{`^?v%Rvplmav}6^%r5or|~6G-mV|ddjL1)uYWA+6itjyk%Od z$P-GU8|*#hZlMy#GURL2F{Hl_k~dDb*ESrZ|*OIM0cvvIb;;uVU^|mu+p74 zc(ly0aWvQstp>Aw6%YB&LFe$+vSBlFt$WU5?xTTi-TQ~7>SmvQYIW}Y%?yv1?al$E zdy&W{H{e*p2FHAx9E*J8=(GG_#1zaRaL=|lMEI2L@kpv%BShO@P zodtx*;MNNv1q7d1@dDVM9>f-_B@M7jddI17Mi`633O^ELR=A*sSd>SsAP(CJlg#Ne zU~(cCF9wwl5@gf>h0T?rY`xGM9#m#8M7Rk5h^P$vh4v5zOS1~8xNVs6BoIM@S*CsMSp`wvt=2>Rb==O_LJ D=^bp? delta 1420 zcmZuxO>7%g5cac^CUr{VkP5jLiAEbC*@}|vd;50R-X3blUVAs*wHsHhS3q_q{r2@pUUu_>CE)M)bLx4FuQdU<(SfP=l` z`oW9nvLqzJ@w{p2*{Ys#^c*9-DBoS9h=D4iq`-b-@953?EjaGHra?SkszF%KnNE&* zUroTxx9Yc>owslCl#KBIC(0U?H6oteEd+6@zZm>}YNk>x+ZAWiEal3ZkOxfNAEsjG z5)i!hQn3H>#W{ptb;ao&^ridZw3AqmSg6qnu%DH_zy&`~Q@u^&{$}jFr~1zLcr)hC zME0iT6b1e^JrA;)a^H)@E{j~FgDk0#wX}S>YG)jvDa9Q`9%2IQJr%3wfJ{}6^{TVI zWSO1@Kd+&Z=>8PF)c<|vGMX1bIH=!f9yO1fog?Vn5I`mr1P;Vx|CQO@`4Ayu|27^+ z3}E*j`GiU0My0>!?u?HI(8eJ2{sRE$E@}=(m#?bThTVv$LnWqm%%%2D1k}CPNV|@il z!LU-TSea}FBv~0TP%?5M1Wa!ZK*I7F5-HT2s##htEbHqV84E~i=yDZElE6yFaWYv0 zh&qhipHu|2BtuoNIhAq^DnP+xrvyAf1qiHe`v&YMD7bBPp{qc)Y}z1gDGwFl=-n_C;PSS(T;Oxa%)EruhF zNFYwA1htJ--jD(iqK@7$g_2`rjZ8IL&gnoz2}<6r1~?^-5V4x{D()2@E3CWE;$fL~ zpIM}{S-^z##M1nnOKcQuz-*O`xQXP_NZp5z(yejwr;N` z!X>k0h2wx#!uF29b_x6bJc&h!FYMHA?(NqTz;=QFZ`@&rs)8VZk_16NX!;A1&GwK< OX#b)HsK0V$ZtPzm0!~r@ diff --git a/sources/SEDIT-ACCESS b/sources/SEDIT-ACCESS index e89ee4ba..9300d9cf 100644 --- a/sources/SEDIT-ACCESS +++ b/sources/SEDIT-ACCESS @@ -1,15 +1,17 @@ -(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE (DEFPACKAGE "SEDIT" (USE "LISP" "XCL"))) -(IL:FILECREATED "19-Jan-93 11:17:23" IL:|{DSK}lde>lispcore>sources>SEDIT-ACCESS.;3| 16340 +(DEFINE-FILE-INFO PACKAGE (DEFPACKAGE "SEDIT" (USE "LISP" "XCL")) READTABLE "XCL" BASE 10) - IL:|previous| IL:|date:| " 5-Jan-93 02:16:37" -IL:|{DSK}lde>lispcore>sources>SEDIT-ACCESS.;2|) +(IL:FILECREATED " 2-Dec-2021 23:29:30"  +IL:|{DSK}kaplan>Local>medley3.5>my-medley>sources>SEDIT-ACCESS.;2| 16200 + + IL:|previous| IL:|date:| "19-Jan-93 11:17:23" +IL:|{DSK}kaplan>Local>medley3.5>my-medley>sources>SEDIT-ACCESS.;1|) -; Copyright (c) 1987, 1988, 1990, 1993 by Venue & Xerox Corporation. All rights reserved. +; Copyright (c) 1987-1988, 1990, 1993 by Venue & Xerox Corporation. (IL:PRETTYCOMPRINT IL:SEDIT-ACCESSCOMS) -(IL:RPAQQ IL:SEDIT-ACCESSCOMS +(IL:RPAQQ IL:SEDIT-ACCESSCOMS ((IL:PROP IL:FILETYPE IL:SEDIT-ACCESS) (IL:PROP IL:MAKEFILE-ENVIRONMENT IL:SEDIT-ACCESS) (IL:LOCALVARS . T) @@ -21,11 +23,10 @@ IL:|{DSK}lde>lispcore>sources>SEDIT-ACCESS.;2|) EDIT-SELECTION GAP LINE-BLOCK LINE-START LIST-FORMAT OPEN-STRING STRING-ITEM WEAK-LINK))) -(IL:PUTPROPS IL:SEDIT-ACCESS IL:FILETYPE :COMPILE-FILE) +(IL:PUTPROPS IL:SEDIT-ACCESS IL:FILETYPE :COMPILE-FILE) -(IL:PUTPROPS IL:SEDIT-ACCESS IL:MAKEFILE-ENVIRONMENT (:READTABLE "XCL" :PACKAGE - (DEFPACKAGE "SEDIT" (:USE "LISP" - "XCL")))) +(IL:PUTPROPS IL:SEDIT-ACCESS IL:MAKEFILE-ENVIRONMENT (:READTABLE "XCL" :PACKAGE + (DEFPACKAGE "SEDIT" (:USE "LISP" "XCL")))) (IL:DECLARE\: IL:DOEVAL@COMPILE IL:DONTCOPY (IL:LOCALVARS . T) @@ -48,7 +49,7 @@ IL:|{DSK}lde>lispcore>sources>SEDIT-ACCESS.;2|) IL:FULLXPOINTER IL:WORD IL:FULLXPOINTER IL:FULLXPOINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:FULLXPOINTER IL:FULLXPOINTER IL:POINTER IL:POINTER - IL:POINTER IL:POINTER IL:POINTER) + IL:POINTER IL:POINTER IL:POINTER IL:POINTER) '((EDIT-CONTEXT 0 IL:POINTER) (EDIT-CONTEXT 2 IL:POINTER) (EDIT-CONTEXT 4 IL:POINTER) @@ -108,8 +109,9 @@ IL:|{DSK}lde>lispcore>sources>SEDIT-ACCESS.;2|) (EDIT-CONTEXT 110 IL:POINTER) (EDIT-CONTEXT 112 IL:POINTER) (EDIT-CONTEXT 114 IL:POINTER) - (EDIT-CONTEXT 116 IL:POINTER)) - '118) + (EDIT-CONTEXT 116 IL:POINTER) + (EDIT-CONTEXT 118 IL:POINTER)) + '120) (IL:/DECLAREDATATYPE 'EDIT-ENV '(IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER @@ -295,7 +297,7 @@ IL:|{DSK}lde>lispcore>sources>SEDIT-ACCESS.;2|) LAST-MOUSE-X LAST-MOUSE-Y LAST-MOUSE-TYPE \\X \\Y \\Z \\T FIRST-BLOCK CURRENT-BLOCK MATCHING? BELOW? VISIBLE? (REPAINT-START IL:FULLXPOINTER) (REPAINT-LINE IL:FULLXPOINTER) - REPAINT-X RELINEARIZATION-TIME-STAMP SHIFT-Y SHIFT-DOWN SHIFT-RIGHT)) + REPAINT-X RELINEARIZATION-TIME-STAMP SHIFT-Y SHIFT-DOWN SHIFT-RIGHT PROPS)) (IL:DATATYPE EDIT-ENV (PARSE-INFO PARSE-INFO-UNKNOWN USER-DATA DEFAULT-FONT ITALIC-FONT KEYWORD-FONT @@ -305,17 +307,17 @@ IL:|{DSK}lde>lispcore>sources>SEDIT-ACCESS.;2|) DEFAULT-CHAR-HANDLER HELP-MENU)) (IL:DATATYPE EDIT-NODE ((NODE-TYPE IL:FULLXPOINTER) - FORMAT UNASSIGNED (SUPER-NODE IL:FULLXPOINTER) - (DEPTH IL:WORD) - (SUB-NODE-INDEX IL:WORD) - STRUCTURE SUB-NODES (LINEAR-THREAD IL:FULLXPOINTER) - LINEAR-FORM - (START-X IL:WORD) - (RIGHT-MARGIN IL:WORD) - (PREFERRED-WIDTH IL:WORD) - (ACTUAL-WIDTH IL:WORD) - (CHANGED? IL:FLAG) - INLINE-WIDTH ACTUAL-LLENGTH FIRST-LINE LAST-LINE)) + FORMAT UNASSIGNED (SUPER-NODE IL:FULLXPOINTER) + (DEPTH IL:WORD) + (SUB-NODE-INDEX IL:WORD) + STRUCTURE SUB-NODES (LINEAR-THREAD IL:FULLXPOINTER) + LINEAR-FORM + (START-X IL:WORD) + (RIGHT-MARGIN IL:WORD) + (PREFERRED-WIDTH IL:WORD) + (ACTUAL-WIDTH IL:WORD) + (CHANGED? IL:FLAG) + INLINE-WIDTH ACTUAL-LLENGTH FIRST-LINE LAST-LINE)) (IL:DATATYPE EDIT-NODE-TYPE (NAME ASSIGN-FORMAT COMPUTE-FORMAT-VALUES LINEARIZE SUB-NODE-CHANGED SET-POINT @@ -324,43 +326,43 @@ IL:|{DSK}lde>lispcore>sources>SEDIT-ACCESS.;2|) CLOSE-NODE)) (IL:DATATYPE EDIT-POINT ((POINT-NODE IL:FULLXPOINTER) - POINT-INDEX POINT-TYPE POINT-X (POINT-LINE IL:FULLXPOINTER) - POINT-STRING POINT-OFFSET)) + POINT-INDEX POINT-TYPE POINT-X (POINT-LINE IL:FULLXPOINTER) + POINT-STRING POINT-OFFSET)) (IL:DATATYPE EDIT-SELECTION ((SELECT-NODE IL:FULLXPOINTER) - SELECT-START SELECT-END SELECT-TYPE DELETE-OK? PENDING-DELETE? - SELECT-START-X (SELECT-START-LINE IL:FULLXPOINTER) - SELECT-END-X - (SELECT-END-LINE IL:FULLXPOINTER) - SELECT-STRING SELECT-START-OFFSET SELECT-END-OFFSET)) + SELECT-START SELECT-END SELECT-TYPE DELETE-OK? PENDING-DELETE? + SELECT-START-X (SELECT-START-LINE IL:FULLXPOINTER) + SELECT-END-X + (SELECT-END-LINE IL:FULLXPOINTER) + SELECT-STRING SELECT-START-OFFSET SELECT-END-OFFSET)) (IL:DATATYPE GAP (LINEAR-ITEM)) (IL:DATATYPE LINE-BLOCK ((BLOCK-START IL:FULLXPOINTER) - BLOCK-NEW-X BLOCK-WIDTH NEXT-BLOCK BITS? BLOCK-X BLOCK-BASE-LINE - BLOCK-ASCENT BLOCK-DESCENT)) + BLOCK-NEW-X BLOCK-WIDTH NEXT-BLOCK BITS? BLOCK-X BLOCK-BASE-LINE + BLOCK-ASCENT BLOCK-DESCENT)) (IL:DATATYPE LINE-START ((NEXT-LINE IL:FULLXPOINTER) - (PREV-LINE IL:FULLXPOINTER) - (NODE IL:FULLXPOINTER) - (LINE-ASCENT IL:WORD) - (LINE-DESCENT IL:WORD) - (LINE-SKIP IL:WORD) - (LINE-LENGTH IL:WORD) - (INDENT IL:WORD) - YCOORD - (CACHE-TIME IL:WORD) - CACHED-Y - (CACHED-ASCENT IL:WORD) - (CACHED-DESCENT IL:WORD))) + (PREV-LINE IL:FULLXPOINTER) + (NODE IL:FULLXPOINTER) + (LINE-ASCENT IL:WORD) + (LINE-DESCENT IL:WORD) + (LINE-SKIP IL:WORD) + (LINE-LENGTH IL:WORD) + (INDENT IL:WORD) + YCOORD + (CACHE-TIME IL:WORD) + CACHED-Y + (CACHED-ASCENT IL:WORD) + (CACHED-DESCENT IL:WORD))) (IL:DATATYPE LIST-FORMAT (LIST-FORMATS LIST-INLINE? LIST-PFORMAT LIST-MFORMAT LIST-SUBLISTS)) (IL:RECORD OPEN-STRING (REAL-LENGTH SUBSTRING . BUFFER-STRING)) (IL:DATATYPE STRING-ITEM (STRING (WIDTH IL:WORD) - (FONT IL:FULLXPOINTER) - (PRIN-2? IL:FLAG))) + (FONT IL:FULLXPOINTER) + (PRIN-2? IL:FLAG))) (IL:DATATYPE WEAK-LINK ((DESTINATION IL:FULLXPOINTER))) ) diff --git a/sources/SEDIT-ACCESS.DFASL b/sources/SEDIT-ACCESS.DFASL index 71f38c8effb65e3b303f17b60862ca93faa868b7..72d48da4de1da1c93b2b028a21b4379a749ea3ec 100644 GIT binary patch literal 8684 zcmd5?OKcm*8Kx+S;!6}QD=)iF8C$YMa@V!xJQ^oevf?hKt*Bjkcd18Uw03MNkII%I z+d+afK-)u4Eb?Gna0}$tQ!l;r)ALN^pyUOndL851`?oXYXiIg zeDlvg|7-r4;p*d5cBj#*G!AaxeQUpaSUGrb|L%kPmA!+*%DsaJhc~;GJ-{pP+u_Cs zFL&;B5AUsf@5bHz8+TS(2RCo*uiWn5+V8%1`NDH6x8F0lvBCrIt%Q#4MyAzhIAM6< zrR97m1l~OC-nierRjDkScK4>ad~x|wW%=@zcojLf^*m?r_y7ChrLqMZ8?p= zu_DKA`HggH@L{i93nR<3t-v;2uic4igI@Vk<^I84bHDpecOSiSI}IWRAN8`$j@O7> z-y8JDevm!`0?W43bUnvJxiGxxmqFr$-*&uo0S09JP6Q$|K;~>WaAMqZH%Y!l_K$kwozNNdCb(l9qKQ+0 zVRmG#wxCBr6RTF}Hk~qh$q-ZADhJ+jg+S ziO=Bc0>7T%SBhS#zwzr&{Q5P&e$KC-#An`#&wMvNvmT$h6rVmHpDx1`Q%Z?4%G`h~ z&22l@2Bf36F@PlHgv7pQp|21|f$OcAZscsn6-3V<3Mm?yO+VPQB1SWq?I6N2Vc`V~ zrv9FQtFSOPh%@zP0LRy?Hn)BYtrAt2(1BHq>ySHsfn%wo?Yo{5*iX1U-*!y&Ph9yv zfH~qsFs^i=ou#(pZN(K2nnh|hd@pi#K-3EW6;=a(!|_Zj^1-mv=z3Y@V2y?u0CQLb zAQn!DrKTuZ$Q!p|<;EA0vEjFO19xpb8uTXzy{ERicOG;r=PNti!-IFBDj(iGIJ|NH zt%Ez@!>Qllh!&MrtDVx8KH5EO;7=9*j1(T{~K*xn?yKI&CYkIP@S4 z>bYl|4Jh9(I-Ypv!p>?4@;i|;(o?dbjJB*@5bW9hHgOl2Hd{`Uy)dnSRX?I|!z@Jw zQOIaiULlbWxd|K-f$#J18KltP-kM`;|Di?NG0LU0ngte3rxA4m=M|9DPlK?>Y)C$+ z{4Gp!B`U<;hrNkr%UT1LX+0X#n7uZOn~q7jt~zlDqvy?PxyCSSeIYNuku?cxf zB4!7?Wzy1e0+vY#E^L-b&7;_40}2y&7l>p5JY1|_&~Pqknkqn!oj9Y|=mY^K120(2 z`evuq+EMDDftq6ngp&i4F<4~cN_?H+r&|_OBE+n~eGQ@miNX$pbZ~GqIC$F+Y-TSp z=g@F12PzthfW_cI%>WcKghX%puqm4;=qR#F$c*4gRzvz4v!|~yQ~KI##GJmSeAjdX zP+HYQkUOod9YQ&%tc`W3yd3b%s?+kfna*yxp$q4M#GTUtEFh?ny7X$BiW*N`29DJj zt9UAKwC`vE!W!PB628f6U@Ba9n~}+Oj4Mci+rt$!NqZaEN+qd2=syX@8 zT|l33JvdS8{*eke-2xxM!sor0rkW1^4a(b4lmtuhYR8B2D3DSjpEhw8gc#ITlg^X` z&1vJI#snr*IlHB6!n)IHn^3nqz(_%@4f-c}DdngvaneJ^eb~$Jc>qJ+@vJa(*F35` zw0!en2h3LsUMJ|J?X+<-i1*a$99_K7@nJ8QR8tV0(=4>}VP&0GD>qulld@X7dO4#? zs5&xEQ8C1&tmi9I>YAHYu;xNaYj_5VK+}N=W$Re#o}vX+9kx)liD@`HEY9&&n5pP` zlt;t8uA~M+`S;e;{+H)6fSeSDTvE!kv#W#tEQp)%tW9Q_X178j^T`W3F~{IQ2e%c% zOxWQ&YWK*oXP_*S{IYhP-pP2@(1}DDe_V^BS_~bbn{3Rdblc{d3d1S*$Fmk{)$lvxZCNyuRERnI{VG;N+L!eZ;O;x8>;SOff z5~m^gM$3l^q&6E${Q@I;|G)}{Cs1|Tgz2WZjTMx0o7)^n5>aGC zEJcO*%_cYr2jZb^anPS;5e4NFp$42a>8zm6(=cydA&$ozx*n8lJaFAa&zb%P?-Vm| zda&{I&Nzc5DVH`jGUCJ$SlTk2b;vyL_5L^q)#QsludO}cf2$NgR z^C?%aVZM5>#})?tobnj$m5>~C+u*=4E08Sce-GZ2yWOONdQ-KdCjX zfKkOt3O}M6ruR9#3E`<}cv)1p3_`d_a#Au+Thuj1HU$EO9!^bA#PCh!A1_B4xGCZB z4(>j53QpGCr}zU*0rrFz+yj!Li~EOWfxTn3(}YSt+%qYFX9xWWtV7Jl={7l1@+bI& zp(6;_EVxN6gE6oHkdS9Ei8-9$n8@|i1t-3am%R@4j>pfWxZQ>}Q!6+*NI07Up1sh@gjk}^kdMAASlMUo{RV5>+w}2q2Ns7h;u3KAv!H+ zHG=Srz_U!F4Dik*w;uIGt}-ox@pv8#L}~MB^;SC1XFz8X@B-N~KQ+?Mj#g3x|JXuD8m9-QwVFdt~eI(+FTj{K`iw(~0Li2Vf|rF0!*O zyjd6Ctc&cdi|nim@70C(>LNSq!h>~@opq6&b>WG+@I+mBqAs$tF0!*Ova_zTlkA#j z%ZWZO=p{kd1Z@cV0@H7UkC^)ZdG6qEz7RJ<#LWFNsxm|z4HZZ7*TrFc zjb%YUE9mD1{Y^n%5%kM~UJ>-Gf?gH0&6UV#3T$0r-`2YGdB|uf+*9wi7!wFO67-g! zcLe>Kpsxw~JA%G0=+^~(OVE3QepBi7wtDZ2zB_`xE9gT(-xu^dOox!qO#P3akF1nm zSuf>PI!#_5so1hse^vTR%CgkS&rGrAFDIuy_+G@{t>!kZ4fxy*U%JJoBfL7CbXq))>~GZ=>? zRf6;^0Cc~}!KWvy1)oGi*ySeR!jn~BM6VDHzXszkKtPvlA3tHes;0ur*2CT;P8b3K zKaSwvEZ|tkEBvwszt*}D-xkBzjE%S+*Wzlt6fef-7&-6{aYO;=gFcNgT(CnOLFt<8^E+abh=6v*IqLjmTYgcWFz3QP;7V#HnH$ zk{l#R3$#7-#3Db83vPkjdg`T@-g+pC76FRhdg`T@-g@e#m!8u1GqZeRWi&vGwl=W) z=9@Qf=KanLSDz%(+s$^lIe7Qpo!$Okd2s*W-u;8}n}fab{^0)Jt$z7Uz{?+6!Pa+Q zxqWB<+iUo^xc1KN{e!_^cYkg7*6P~so&9^a27CS0bLZE1)c#svTTW=0&88g$=e~BK z5D00v_WCyu`nSvB{r>*#n;)DlU$|U;?dIM4H}^gO^71MG7p`2mbmjb|bA^@}w0RAB zRA+FP23@=)2fYk~Rl$3IS<86@D}Tk#`@)UjhT1ZS{ON+f5-4~E5- z)3%$wZHBhh_L|AW_@iN|9)zZAnZ9K>ZnqcK$HUTv^191KW#y%0pEfXrBqZ`0u9iScL- z5m<*6n(J+QJe&pB0JP9Gn_K3FJs!=DKOJU4xCTBM507ozzPD{Oy-vq-jkXhX$HRFt zKC*v2ob3f5X^uNk;LLcK`p~_g*6=4tr7qv7*M!%rU#FCPsTkA_bk4L@XoOGk4*1kN7KojMv;Q<8zE4OmKyhf5Ip zhofpAjTp^hFfE~T_8_3r5H4Nc>jntCg@9>Up?B5v5x9;a_q=5{+oo?@W@v^xT^l>> z=oG%r@#}GZCFqs-3%~xruV3=(r~LX+bn3n6)Q#xWW_0R8bg~kiEWs2DY7r%rxdoA! zxn`SN5OVI;7y^-l4*On!zFZLcj=Nzvq1}m2Bl;Ag5Qd@A^8Ah&GMd7O1`)Oa`Q|g2 z_-hQVLq2X1XX1|l&Tg1pZv7fsMJh3Y4atk?#~nYzvDDG^99Ib(#oVrE*#_DtI{h60 zGsKBtbh;1iG_`H_YINF#W}cc&&kgNu5cLv3xpm*$vR%UrJy7gPG`%c!kcUAEzzpU- z_`(jb!sI1O8LjayWM}j|GB&;Lj_+)2hU3xvc=*KC{@wfia;3c8-y6ISb$RdJVDIL^ zoxxogweTB!{1zWy;Ny4jn0aG7TBIp<0QOs+5W(kbzqzkI-#0~?d^4O6bmk3VS~}eHOC4!X|5#=1$Ni;O?Ev9 zgEH<~MiZ*GgN7&G<3Vpd0QtSpp6V%DP%7Kz4hVKF?;3IEm^RvWi>**lz`7TbyJ42R zg2-hwDyxvtgV+R)Ip6bm_##qhZ+FACwEa*cZ5U`CU}CdOY97Ysn^2gzJ4Yl7;Nc>FVTH%zrlA~UTd^_n&7SXLFmS?R z)VF%=_O@CMDyTWOK{y#O9)m?DIvw3$`02I@l?XA@cU}kYK%lU}ARKHQ4Fn!{1sz6q2w4<7aW*8cGkfwnGbOLTPRz;c%62Ws zhefNJ2yzQr+X<9`%G%t7%F7Nhw9_e3D77D84YH`GZU%4 zG-*TRZMj-R28`<)Sl`&da3(T)ZQNQ^{mMC^*>;)}Airhrpg#qo>qtDPBx?JFFBiaZ z%N7Obn4S$yU<6wZ>zuYbf+>e_1h!o_11?1xfGW-W;Hqsg;8DFCs&q!z_M5tDKJK`1 zme&1KWv|c%8$q`7hD+us`2PfDEvQ6-CI5|{2Q^V3#aKS=+$;z&D5wSwmU4R1(mMhCLXg@!s;BxCE?PMae*oz z=C7VFPw{GWOn<|HIM(nYWPZzrvSevr>Yls_r5yH6wR34WJ*mi17iP*kF2&JggDa|m zQ1jglwdrL!_mPv_kcsP;Hg zNbN8b#w+8|0!Kxb73EGU_BlrMrhyd3DYfb8_OogHn-W4BqGmF5PcWnSJ37rB9jo(>eG zNuEJ7h>LiE5jdhLh?ajQ_G*Tvi|s>p&fu{^3DtFQE_OSykm81(M;Dnq$^lQRxim~k zu68Vqu>f6aGzvL}+ZWZjPlu_UrU!dx9K%hsxe3=O*z*-bnh=XNd|FmP0n-aBD*VvW zFub3|>kl54CO1TNwIGCxBnKt)bVXfbq$3b0^l(&yB8G1&|9B%x!Sx8wba3IJqi>vZ zpW!bnIoK20aQKglF76+i1@?~hUJEMyWX~iAK7&8oKpkQ}4!8NKl0U~M4DCU`-z#rblr9yaOGW5X5xP`_ zE)}6mMd(r~vezq057fJ|q_E=?{VR_N`ov^iU$8f5os2&8sV$@5Vhn2d3)=8!qZOs$ ziqLRHXt*LYTuJjvSA=#eN;{PKbC7wYM-Ht4IX}mP9OzyZc~=!HsEQR-#R{sz##OP3 zs<3fY#7kA!xwaqGYH#5sRRH<8(> zraW2`_N)ne)>7=n+EhiUO;wbduy0M+x29saCTv?-WX@P|#Ney)Ee1 z1$|x6-xTz>1pS7fZwvZOLBFlm^^SV)ioUyoz9;BCK_4(3KnyeWKYl9v{s&f}>n>Jg zJV(l!{O{2JQkJRCd1qBUfa0Lec<`}^KTRF)m|O568@^$SuS0lI$ndA>2+qH=QBi;T z!$#@Qr)Ibtv7|Ig!CxNWgEV|9>U2>kVvmhSDPY2z3Vz>2^^+&yyBLf^@=1Cw0zkK! z418TO+wj#hfIV#v2Bp6^570%+!>?4Ys;Tg5^quSi)2jLWO^_YE(>pDH{UUf@5ixc9-q+k?AnySMxCUsF8fPbpRtKS9%+|MJU!0QET_ A?*IS* diff --git a/sources/SEDIT-DECLS b/sources/SEDIT-DECLS index cbbc7436..6634c6a3 100644 --- a/sources/SEDIT-DECLS +++ b/sources/SEDIT-DECLS @@ -1,19 +1,19 @@ -(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE (DEFPACKAGE SEDIT (USE LISP XCL))) -(IL:FILECREATED "19-Jan-93 11:18:34" IL:|{DSK}lde>lispcore>sources>SEDIT-DECLS.;3| 50314 +(DEFINE-FILE-INFO PACKAGE (DEFPACKAGE SEDIT (USE LISP XCL)) READTABLE "XCL" BASE 10) - IL:|changes| IL:|to:| (IL:RECORDS BROKEN-ATOM EDIT-CONTEXT EDIT-ENV EDIT-NODE EDIT-NODE-TYPE - EDIT-POINT EDIT-SELECTION GAP LINE-BLOCK LINE-START LIST-FORMAT - OPEN-STRING STRING-ITEM WEAK-LINK) +(IL:FILECREATED " 1-Dec-2021 20:02:36"  +IL:|{DSK}kaplan>Local>medley3.5>my-medley>sources>SEDIT-DECLS.;2| 48072 - IL:|previous| IL:|date:| " 5-Jan-93 02:19:37" -IL:|{DSK}lde>lispcore>sources>SEDIT-DECLS.;2|) + IL:|changes| IL:|to:| (IL:RECORDS EDIT-CONTEXT) + + IL:|previous| IL:|date:| "19-Jan-93 11:18:34" +IL:|{DSK}kaplan>Local>medley3.5>my-medley>sources>SEDIT-DECLS.;1|) -; Copyright (c) 1987, 1988, 1990, 1993 by Venue & Xerox Corporation. All rights reserved. +; Copyright (c) 1987-1988, 1990, 1993 by Venue & Xerox Corporation. (IL:PRETTYCOMPRINT IL:SEDIT-DECLSCOMS) -(IL:RPAQQ IL:SEDIT-DECLSCOMS +(IL:RPAQQ IL:SEDIT-DECLSCOMS ((IL:PROP IL:FILETYPE IL:SEDIT-DECLS) (IL:PROP IL:MAKEFILE-ENVIRONMENT IL:SEDIT-DECLS) @@ -79,11 +79,11 @@ IL:|{DSK}lde>lispcore>sources>SEDIT-DECLS.;2|) (IL:P (IL:|printout| T T "EXPORTS.ALL must be loaded to compile SEdit" T) (IL:|printout| T T "SEDIT-ACCESS must be REMADE NEW if you change a record" T)))) -(IL:PUTPROPS IL:SEDIT-DECLS IL:FILETYPE :COMPILE-FILE) +(IL:PUTPROPS IL:SEDIT-DECLS IL:FILETYPE :COMPILE-FILE) -(IL:PUTPROPS IL:SEDIT-DECLS IL:MAKEFILE-ENVIRONMENT (:READTABLE "XCL" :PACKAGE - (DEFPACKAGE IL:SEDIT (:USE IL:LISP - IL:XCL)))) +(IL:PUTPROPS IL:SEDIT-DECLS IL:MAKEFILE-ENVIRONMENT (:READTABLE "XCL" :PACKAGE + (DEFPACKAGE IL:SEDIT (:USE IL:LISP IL:XCL) + ))) @@ -113,7 +113,7 @@ IL:|{DSK}lde>lispcore>sources>SEDIT-DECLS.;2|) LAST-MOUSE-X LAST-MOUSE-Y LAST-MOUSE-TYPE \\X \\Y \\Z \\T FIRST-BLOCK CURRENT-BLOCK MATCHING? BELOW? VISIBLE? (REPAINT-START IL:FULLXPOINTER) (REPAINT-LINE IL:FULLXPOINTER) - REPAINT-X RELINEARIZATION-TIME-STAMP SHIFT-Y SHIFT-DOWN SHIFT-RIGHT) + REPAINT-X RELINEARIZATION-TIME-STAMP SHIFT-Y SHIFT-DOWN SHIFT-RIGHT PROPS) CHANGED-NODES IL:_ (CONS)) (IL:DATATYPE EDIT-ENV @@ -124,22 +124,20 @@ IL:|{DSK}lde>lispcore>sources>SEDIT-DECLS.;2|) DEFAULT-CHAR-HANDLER HELP-MENU)) (IL:DATATYPE EDIT-NODE ((NODE-TYPE IL:FULLXPOINTER) - FORMAT UNASSIGNED (SUPER-NODE IL:FULLXPOINTER) - (DEPTH IL:WORD) - (SUB-NODE-INDEX IL:WORD) - STRUCTURE SUB-NODES (LINEAR-THREAD IL:FULLXPOINTER) - LINEAR-FORM - (START-X IL:WORD) - (RIGHT-MARGIN IL:WORD) - (PREFERRED-WIDTH IL:WORD) - (ACTUAL-WIDTH IL:WORD) - (CHANGED? IL:FLAG) - INLINE-WIDTH ACTUAL-LLENGTH FIRST-LINE LAST-LINE) - (IL:ACCESSFNS (INLINE? (EQ (IL:|fetch| FIRST-LINE IL:|of| IL:DATUM - ) - (IL:|fetch| LAST-LINE IL:|of| IL:DATUM) - ))) - FORMAT IL:_ 'NOT-YET-ASSIGNED) + FORMAT UNASSIGNED (SUPER-NODE IL:FULLXPOINTER) + (DEPTH IL:WORD) + (SUB-NODE-INDEX IL:WORD) + STRUCTURE SUB-NODES (LINEAR-THREAD IL:FULLXPOINTER) + LINEAR-FORM + (START-X IL:WORD) + (RIGHT-MARGIN IL:WORD) + (PREFERRED-WIDTH IL:WORD) + (ACTUAL-WIDTH IL:WORD) + (CHANGED? IL:FLAG) + INLINE-WIDTH ACTUAL-LLENGTH FIRST-LINE LAST-LINE) + (IL:ACCESSFNS (INLINE? (EQ (IL:|fetch| FIRST-LINE IL:|of| IL:DATUM) + (IL:|fetch| LAST-LINE IL:|of| IL:DATUM)))) + FORMAT IL:_ 'NOT-YET-ASSIGNED) (IL:DATATYPE EDIT-NODE-TYPE (NAME ASSIGN-FORMAT COMPUTE-FORMAT-VALUES LINEARIZE SUB-NODE-CHANGED SET-POINT @@ -148,89 +146,80 @@ IL:|{DSK}lde>lispcore>sources>SEDIT-DECLS.;2|) CLOSE-NODE)) (IL:DATATYPE EDIT-POINT ((POINT-NODE IL:FULLXPOINTER) - POINT-INDEX POINT-TYPE POINT-X (POINT-LINE IL:FULLXPOINTER) - POINT-STRING POINT-OFFSET)) + POINT-INDEX POINT-TYPE POINT-X (POINT-LINE IL:FULLXPOINTER) + POINT-STRING POINT-OFFSET)) (IL:DATATYPE EDIT-SELECTION ((SELECT-NODE IL:FULLXPOINTER) - SELECT-START SELECT-END SELECT-TYPE DELETE-OK? PENDING-DELETE? - SELECT-START-X (SELECT-START-LINE IL:FULLXPOINTER) - SELECT-END-X - (SELECT-END-LINE IL:FULLXPOINTER) - SELECT-STRING SELECT-START-OFFSET SELECT-END-OFFSET)) + SELECT-START SELECT-END SELECT-TYPE DELETE-OK? PENDING-DELETE? + SELECT-START-X (SELECT-START-LINE IL:FULLXPOINTER) + SELECT-END-X + (SELECT-END-LINE IL:FULLXPOINTER) + SELECT-STRING SELECT-START-OFFSET SELECT-END-OFFSET)) (IL:DATATYPE GAP (LINEAR-ITEM)) (IL:DATATYPE LINE-BLOCK ((BLOCK-START IL:FULLXPOINTER) - BLOCK-NEW-X BLOCK-WIDTH NEXT-BLOCK BITS? BLOCK-X BLOCK-BASE-LINE - BLOCK-ASCENT BLOCK-DESCENT)) + BLOCK-NEW-X BLOCK-WIDTH NEXT-BLOCK BITS? BLOCK-X BLOCK-BASE-LINE + BLOCK-ASCENT BLOCK-DESCENT)) (IL:DATATYPE LINE-START ((NEXT-LINE IL:FULLXPOINTER) - (PREV-LINE IL:FULLXPOINTER) - (NODE IL:FULLXPOINTER) - (LINE-ASCENT IL:WORD) - (LINE-DESCENT IL:WORD) - (LINE-SKIP IL:WORD) - (LINE-LENGTH IL:WORD) - (INDENT IL:WORD) - YCOORD - (CACHE-TIME IL:WORD) - CACHED-Y - (CACHED-ASCENT IL:WORD) - (CACHED-DESCENT IL:WORD)) - (IL:ACCESSFNS (LINE-HEIGHT (IL:IPLUS (IL:FETCH LINE-SKIP IL:OF - IL:DATUM) - (IL:FETCH LINE-ASCENT IL:OF - IL:DATUM) - (IL:FETCH LINE-DESCENT IL:OF - IL:DATUM)))) - (IL:ACCESSFNS (BASE-LINE-Y (IL:IDIFFERENCE (IL:ADD1 (IL:FETCH YCOORD - IL:OF IL:DATUM - )) - (IL:IPLUS (IL:FETCH LINE-SKIP - IL:OF IL:DATUM) - (IL:FETCH LINE-ASCENT - IL:OF IL:DATUM))))) - (IL:ACCESSFNS (NEXT-LINE-Y (IL:IDIFFERENCE (IL:FETCH YCOORD - IL:OF IL:DATUM) - (IL:FETCH LINE-HEIGHT IL:OF - IL:DATUM)))) - (IL:ACCESSFNS (OLD-TOP (IF (EQ (IL:FETCH CACHE-TIME IL:OF - IL:DATUM) - (IL:|fetch| RELINEARIZATION-TIME-STAMP - IL:|of| CONTEXT)) - (IL:SUB1 (IL:IPLUS (IL:FETCH CACHED-Y - IL:OF IL:DATUM) - (IL:FETCH CACHED-ASCENT - IL:OF IL:DATUM))) - (IL:FETCH YCOORD IL:OF IL:DATUM)))) - (IL:ACCESSFNS (OLD-BOTTOM (IF (EQ (IL:FETCH CACHE-TIME IL:OF - IL:DATUM) - (IL:|fetch| - RELINEARIZATION-TIME-STAMP - IL:|of| CONTEXT)) - (IL:IDIFFERENCE (IL:FETCH CACHED-Y - IL:OF IL:DATUM) - (IL:FETCH CACHED-DESCENT - IL:OF IL:DATUM)) - (IL:ADD1 (IL:FETCH NEXT-LINE-Y - IL:OF IL:DATUM)))))) + (PREV-LINE IL:FULLXPOINTER) + (NODE IL:FULLXPOINTER) + (LINE-ASCENT IL:WORD) + (LINE-DESCENT IL:WORD) + (LINE-SKIP IL:WORD) + (LINE-LENGTH IL:WORD) + (INDENT IL:WORD) + YCOORD + (CACHE-TIME IL:WORD) + CACHED-Y + (CACHED-ASCENT IL:WORD) + (CACHED-DESCENT IL:WORD)) + (IL:ACCESSFNS (LINE-HEIGHT (IL:IPLUS (IL:FETCH LINE-SKIP IL:OF IL:DATUM) + (IL:FETCH LINE-ASCENT IL:OF IL:DATUM) + (IL:FETCH LINE-DESCENT IL:OF IL:DATUM)))) + (IL:ACCESSFNS (BASE-LINE-Y (IL:IDIFFERENCE (IL:ADD1 (IL:FETCH YCOORD + IL:OF IL:DATUM)) + (IL:IPLUS (IL:FETCH LINE-SKIP IL:OF + IL:DATUM + ) + (IL:FETCH LINE-ASCENT IL:OF IL:DATUM + ))))) + (IL:ACCESSFNS (NEXT-LINE-Y (IL:IDIFFERENCE (IL:FETCH YCOORD IL:OF IL:DATUM) + (IL:FETCH LINE-HEIGHT IL:OF IL:DATUM)))) + (IL:ACCESSFNS (OLD-TOP (IF (EQ (IL:FETCH CACHE-TIME IL:OF IL:DATUM) + (IL:|fetch| RELINEARIZATION-TIME-STAMP + IL:|of| CONTEXT)) + (IL:SUB1 (IL:IPLUS (IL:FETCH CACHED-Y IL:OF + IL:DATUM + ) + (IL:FETCH CACHED-ASCENT + IL:OF IL:DATUM))) + (IL:FETCH YCOORD IL:OF IL:DATUM)))) + (IL:ACCESSFNS (OLD-BOTTOM (IF (EQ (IL:FETCH CACHE-TIME IL:OF IL:DATUM) + (IL:|fetch| RELINEARIZATION-TIME-STAMP + IL:|of| CONTEXT)) + (IL:IDIFFERENCE (IL:FETCH CACHED-Y IL:OF + IL:DATUM + ) + (IL:FETCH CACHED-DESCENT IL:OF IL:DATUM) + ) + (IL:ADD1 (IL:FETCH NEXT-LINE-Y IL:OF IL:DATUM))) + ))) (IL:DATATYPE LIST-FORMAT (LIST-FORMATS LIST-INLINE? LIST-PFORMAT LIST-MFORMAT LIST-SUBLISTS) - (IL:ACCESSFNS (NON-STANDARD? (NULL (IL:|fetch| LIST-FORMATS - IL:|of| IL:DATUM)))) - (IL:ACCESSFNS (SET-FORMAT-LIST (IL:|fetch| LIST-INLINE? IL:|of| - IL:DATUM))) - (IL:ACCESSFNS (CFVLIST (IL:|fetch| LIST-PFORMAT IL:|of| IL:DATUM - ))) - (IL:ACCESSFNS (LINEARIZE-LIST (IL:|fetch| LIST-MFORMAT IL:|of| - IL:DATUM))) - LIST-SUBLISTS IL:_ NIL) + (IL:ACCESSFNS (NON-STANDARD? (NULL (IL:|fetch| LIST-FORMATS IL:|of| IL:DATUM + )))) + (IL:ACCESSFNS (SET-FORMAT-LIST (IL:|fetch| LIST-INLINE? IL:|of| IL:DATUM))) + (IL:ACCESSFNS (CFVLIST (IL:|fetch| LIST-PFORMAT IL:|of| IL:DATUM))) + (IL:ACCESSFNS (LINEARIZE-LIST (IL:|fetch| LIST-MFORMAT IL:|of| IL:DATUM))) + LIST-SUBLISTS IL:_ NIL) (IL:RECORD OPEN-STRING (REAL-LENGTH SUBSTRING . BUFFER-STRING)) (IL:DATATYPE STRING-ITEM (STRING (WIDTH IL:WORD) - (FONT IL:FULLXPOINTER) - (PRIN-2? IL:FLAG))) + (FONT IL:FULLXPOINTER) + (PRIN-2? IL:FLAG))) (IL:DATATYPE WEAK-LINK ((DESTINATION IL:FULLXPOINTER))) ) @@ -248,7 +237,7 @@ IL:|{DSK}lde>lispcore>sources>SEDIT-DECLS.;2|) IL:FULLXPOINTER IL:WORD IL:FULLXPOINTER IL:FULLXPOINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:FULLXPOINTER IL:FULLXPOINTER IL:POINTER IL:POINTER - IL:POINTER IL:POINTER IL:POINTER) + IL:POINTER IL:POINTER IL:POINTER IL:POINTER) '((EDIT-CONTEXT 0 IL:POINTER) (EDIT-CONTEXT 2 IL:POINTER) (EDIT-CONTEXT 4 IL:POINTER) @@ -308,8 +297,9 @@ IL:|{DSK}lde>lispcore>sources>SEDIT-DECLS.;2|) (EDIT-CONTEXT 110 IL:POINTER) (EDIT-CONTEXT 112 IL:POINTER) (EDIT-CONTEXT 114 IL:POINTER) - (EDIT-CONTEXT 116 IL:POINTER)) - '118) + (EDIT-CONTEXT 116 IL:POINTER) + (EDIT-CONTEXT 118 IL:POINTER)) + '120) (IL:/DECLAREDATATYPE 'EDIT-ENV '(IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER @@ -529,8 +519,8 @@ IL:|{DSK}lde>lispcore>sources>SEDIT-DECLS.;2|) (IL:RPAQQ IL:MICASPERPT 35.27778) -(IL:RPAQQ QUOTE-WRAPPER-LIST (QUOTE QUOTE IL:BQUOTE IL:BQUOTE IL:COMMA IL:\\\, COMMA-AT IL:\\\,@ - COMMA-DOT IL:\\\,. FUNCTION FUNCTION)) +(IL:RPAQQ QUOTE-WRAPPER-LIST (QUOTE QUOTE IL:BQUOTE IL:BQUOTE IL:COMMA IL:\\\, COMMA-AT IL:\\\,@ + COMMA-DOT IL:\\\,. FUNCTION FUNCTION)) (IL:CONSTANTS (EDITOR-NAME "SEdit") @@ -545,11 +535,11 @@ IL:|{DSK}lde>lispcore>sources>SEDIT-DECLS.;2|) (IL:DECLARE\: IL:EVAL@COMPILE -(IL:PUTPROPS GET-PROMPT-WINDOW IL:MACRO ((CONTEXT) - (IL:GETPROMPTWINDOW (IL:|fetch| DISPLAY-WINDOW - IL:|of| CONTEXT)))) +(IL:PUTPROPS GET-PROMPT-WINDOW IL:MACRO ((CONTEXT) + (IL:GETPROMPTWINDOW (IL:|fetch| DISPLAY-WINDOW IL:|of| + CONTEXT)))) -(IL:PUTPROPS EVAL-IN-PROCESS IL:MACRO (NIL (LET* ((PROCESS (IF (EQ (IL:PROCESSPROP (IL:THIS.PROCESS) +(IL:PUTPROPS EVAL-IN-PROCESS IL:MACRO (NIL (LET* ((PROCESS (IF (EQ (IL:PROCESSPROP (IL:THIS.PROCESS) 'IL:NAME) 'IL:MOUSE) (IL:TTY.PROCESS) @@ -562,10 +552,10 @@ IL:|{DSK}lde>lispcore>sources>SEDIT-DECLS.;2|) IL:|of| (CADADR PROCFORM))) (T PROCESS))))) -(IL:PUTPROPS LOOKUP-COMMAND IL:MACRO ((CHAR TABLE) +(IL:PUTPROPS LOOKUP-COMMAND IL:MACRO ((CHAR TABLE) (GETHASH CHAR TABLE))) -(IL:PUTPROPS QUOTE-WRAPPER IL:MACRO (TYPE (COND +(IL:PUTPROPS QUOTE-WRAPPER IL:MACRO (TYPE (COND ((AND (IL:LISTP (CAR TYPE)) (EQ (CAAR TYPE) 'QUOTE)) @@ -573,38 +563,33 @@ IL:|{DSK}lde>lispcore>sources>SEDIT-DECLS.;2|) (IL:KWOTE (IL:|for| W IL:|in| (CADAR TYPE) IL:|collect| (IL:LISTGET QUOTE-WRAPPER-LIST - W))) + W))) (IL:KWOTE (IL:LISTGET QUOTE-WRAPPER-LIST (CADAR TYPE))))) (T `(IL:LISTGET QUOTE-WRAPPER-LIST ,(CAR TYPE)))))) -(IL:PUTPROPS QUOTE-WRAPPER-NAME IL:MACRO ((TYPE) +(IL:PUTPROPS QUOTE-WRAPPER-NAME IL:MACRO ((TYPE) (IL:LISTGET (IL:CONSTANT (IL:REVERSE QUOTE-WRAPPER-LIST)) TYPE))) -(IL:PUTPROPS REPAINT-NEW-LINE IL:MACRO (IL:OPENLAMBDA (LINE) - (WHEN (IL:ILESSP (IL:|fetch| NEXT-LINE-Y - IL:|of| (CAR LINE)) - (IL:|fetch| WINDOW-TOP IL:|of| - CONTEXT)) - (REPAINT CONTEXT (IL:|fetch| INDENT - IL:|of| (CAR LINE)) - (IL:|fetch| BASE-LINE-Y - IL:|of| (CAR LINE)) - (CDR LINE) - (IL:|fetch| LINEAR-POINTER IL:|of| - CONTEXT)) - (WHEN (IL:ILESSP (IL:|fetch| NEXT-LINE-Y - IL:|of| (CAR LINE)) - (IL:|fetch| WINDOW-BOTTOM - IL:|of| CONTEXT)) - (IL:|replace| BELOW? IL:|of| CONTEXT - IL:|with| T))))) +(IL:PUTPROPS REPAINT-NEW-LINE IL:MACRO (IL:OPENLAMBDA (LINE) + (WHEN (IL:ILESSP (IL:|fetch| NEXT-LINE-Y IL:|of| + (CAR LINE)) + (IL:|fetch| WINDOW-TOP IL:|of| CONTEXT)) + (REPAINT CONTEXT (IL:|fetch| INDENT IL:|of| (CAR LINE)) + (IL:|fetch| BASE-LINE-Y IL:|of| (CAR LINE)) + (CDR LINE) + (IL:|fetch| LINEAR-POINTER IL:|of| CONTEXT)) + (WHEN (IL:ILESSP (IL:|fetch| NEXT-LINE-Y + IL:|of| (CAR LINE)) + (IL:|fetch| WINDOW-BOTTOM IL:|of| CONTEXT)) + (IL:|replace| BELOW? IL:|of| CONTEXT IL:|with| + T))))) -(IL:PUTPROPS RESET-CONTROL-VARIABLES IL:MACRO ((CONTEXT) +(IL:PUTPROPS RESET-CONTROL-VARIABLES IL:MACRO ((CONTEXT) (WHEN (COMPILING-POST-KOTO) - (IL:SETQ *PACKAGE* (IL:FETCH PACKAGE - IL:OF CONTEXT)) + (IL:SETQ *PACKAGE* (IL:FETCH PACKAGE IL:OF CONTEXT + )) (IL:SETQ *PRINT-ARRAY* NIL) (IL:SETQ *PRINT-BASE* (IL:FETCH PRINT-BASE IL:OF CONTEXT)) @@ -614,7 +599,7 @@ IL:|{DSK}lde>lispcore>sources>SEDIT-DECLS.;2|) (IL:SETQ *PRINT-GENSYM* T) (IL:SETQ *PRINT-RADIX* NIL)))) -(IL:PUTPROPS SELECT-COMMENT-INDENT IL:MACRO ((KEY LEVEL-1-INDENT LEVEL-2-INDENT LEVEL-3-INDENT) +(IL:PUTPROPS SELECT-COMMENT-INDENT IL:MACRO ((KEY LEVEL-1-INDENT LEVEL-2-INDENT LEVEL-3-INDENT) (IL:SELECTQ KEY (1 LEVEL-1-INDENT) (2 LEVEL-2-INDENT) @@ -622,34 +607,31 @@ IL:|{DSK}lde>lispcore>sources>SEDIT-DECLS.;2|) LEVEL-3-INDENT) (IL:SHOULDNT "unexpected comment level")))) -(IL:PUTPROPS SET-COMMENT-POSITIONS IL:MACRO ((COMMENT-START-X COMMENT-INDENT FORM-INDENT PAREN-WIDTH +(IL:PUTPROPS SET-COMMENT-POSITIONS IL:MACRO ((COMMENT-START-X COMMENT-INDENT FORM-INDENT PAREN-WIDTH NODE CONTEXT) (COND - ((IL:IGEQ (IL:IPLUS FORM-INDENT (IL:|fetch| - COMMENT-WIDTH - IL:|of| - CONTEXT)) - (IL:|fetch| RIGHT-MARGIN IL:|of| - NODE)) + ((IL:IGEQ (IL:IPLUS FORM-INDENT (IL:|fetch| + COMMENT-WIDTH + IL:|of| CONTEXT)) + (IL:|fetch| RIGHT-MARGIN IL:|of| NODE)) (IL:SETQ COMMENT-START-X - (IL:IPLUS (IL:|fetch| START-X IL:|of| - NODE) + (IL:IPLUS (IL:|fetch| START-X IL:|of| NODE) PAREN-WIDTH)) (IL:SETQ COMMENT-INDENT COMMENT-START-X)) (T (IL:SETQ COMMENT-START-X (IL:IDIFFERENCE (IL:|fetch| RIGHT-MARGIN IL:|of| NODE) - (IL:|fetch| COMMENT-WIDTH IL:|of| - CONTEXT))) + (IL:|fetch| COMMENT-WIDTH IL:|of| CONTEXT) + )) (IL:SETQ COMMENT-INDENT (IL:IPLUS COMMENT-START-X (IL:|fetch| COMMENT-SEPARATION - IL:|of| CONTEXT) - )))))) + IL:|of| CONTEXT))))) + )) -(IL:PUTPROPS SET-SELECTION-NOWHERE IL:MACRO ((SELECTION) - (IL:|replace| SELECT-NODE IL:|of| SELECTION - IL:|with| NIL))) +(IL:PUTPROPS SET-SELECTION-NOWHERE IL:MACRO ((SELECTION) + (IL:|replace| SELECT-NODE IL:|of| SELECTION IL:|with| + NIL))) ) @@ -662,108 +644,99 @@ IL:|{DSK}lde>lispcore>sources>SEDIT-DECLS.;2|) DESTINATION IL:_ ,DEST)) (IL:DECLARE\: IL:EVAL@COMPILE -(IL:PUTPROPS ADVANCE IL:MACRO ((WIDTH) +(IL:PUTPROPS ADVANCE IL:MACRO ((WIDTH) (IL:|add| (IL:|fetch| CURRENT-X IL:|of| CONTEXT) WIDTH))) -(IL:PUTPROPS CLOSE-OPEN-NODE IL:MACRO ((CONTEXT) +(IL:PUTPROPS CLOSE-OPEN-NODE IL:MACRO ((CONTEXT) (WHEN (IL:|fetch| OPEN-NODE-CHANGED? IL:|of| CONTEXT) (CLOSE-NODE CONTEXT)))) -(IL:PUTPROPS DEAD-NODE? IL:MACRO ((NODE) +(IL:PUTPROPS DEAD-NODE? IL:MACRO ((NODE) (EQ 0 (IL:|fetch| DEPTH IL:|of| NODE)))) -(IL:PUTPROPS END-UNDO-BLOCK IL:MACRO (NIL (COLLECT-UNDO-BLOCK CONTEXT))) +(IL:PUTPROPS END-UNDO-BLOCK IL:MACRO (NIL (COLLECT-UNDO-BLOCK CONTEXT))) -(IL:PUTPROPS ESCAPE-CHAR IL:MACRO ((READ-TABLE) - (IL:|fetch| (READTABLEP IL:ESCAPECHAR) IL:|of| - (OR READ-TABLE - *READTABLE*)))) +(IL:PUTPROPS ESCAPE-CHAR IL:MACRO ((READ-TABLE) + (IL:|fetch| (READTABLEP IL:ESCAPECHAR) IL:|of| (OR READ-TABLE + *READTABLE*)))) -(IL:PUTPROPS EQ-POINT-TYPE IL:MACRO ((POINT TYPE) +(IL:PUTPROPS EQ-POINT-TYPE IL:MACRO ((POINT TYPE) (LET ((POINTNODE (IL:|fetch| POINT-NODE IL:|of| POINT))) (IF (IL:|type?| EDIT-SELECTION POINTNODE) - (EQ (IL:|fetch| NODE-TYPE - IL:|of| (IL:|fetch| SELECT-NODE - IL:|of| POINTNODE)) + (EQ (IL:|fetch| NODE-TYPE IL:|of| (IL:|fetch| + SELECT-NODE + IL:|of| POINTNODE) + ) TYPE) (EQ (IL:|fetch| NODE-TYPE IL:|of| POINTNODE) TYPE))))) -(IL:PUTPROPS NEXT-LINEAR IL:MACRO ((CONTEXT ITEM) - (AND (IL:LISTP (IL:|fetch| LINEAR-POINTER IL:|of| CONTEXT) - ) +(IL:PUTPROPS NEXT-LINEAR IL:MACRO ((CONTEXT ITEM) + (AND (IL:LISTP (IL:|fetch| LINEAR-POINTER IL:|of| CONTEXT)) (EQ (CAR (IL:|fetch| LINEAR-POINTER IL:|of| CONTEXT)) ITEM)))) -(IL:PUTPROPS SET-LINEAR IL:MACRO (IL:OPENLAMBDA (CONTEXT NEW-LPTR) - (IL:|replace| LINEAR-POINTER IL:|of| CONTEXT - IL:|with| NEW-LPTR) - (IF (IL:LISTP (IL:|fetch| LINEAR-PREV IL:|of| CONTEXT - )) - (RPLACD (IL:|fetch| LINEAR-PREV IL:|of| CONTEXT) - NEW-LPTR) - (IL:|replace| LINEAR-FORM - IL:|of| (IL:|fetch| LINEAR-PREV IL:|of| - CONTEXT) - IL:|with| NEW-LPTR)))) +(IL:PUTPROPS SET-LINEAR IL:MACRO (IL:OPENLAMBDA (CONTEXT NEW-LPTR) + (IL:|replace| LINEAR-POINTER IL:|of| CONTEXT IL:|with| NEW-LPTR) + (IF (IL:LISTP (IL:|fetch| LINEAR-PREV IL:|of| CONTEXT)) + (RPLACD (IL:|fetch| LINEAR-PREV IL:|of| CONTEXT) + NEW-LPTR) + (IL:|replace| LINEAR-FORM IL:|of| (IL:|fetch| LINEAR-PREV + IL:|of| CONTEXT) + IL:|with| NEW-LPTR)))) -(IL:PUTPROPS START-UNDO-BLOCK IL:MACRO (NIL (IL:|push| (IL:|fetch| UNDO-LIST IL:|of| - CONTEXT) +(IL:PUTPROPS START-UNDO-BLOCK IL:MACRO (NIL (IL:|push| (IL:|fetch| UNDO-LIST IL:|of| CONTEXT) NIL))) -(IL:PUTPROPS STEP-LINEAR IL:MACRO ((CONTEXT) +(IL:PUTPROPS STEP-LINEAR IL:MACRO ((CONTEXT) (IL:|replace| LINEAR-POINTER IL:|of| CONTEXT - IL:|with| (CDR (IL:|replace| LINEAR-PREV IL:|of| - CONTEXT - IL:|with| (IL:|fetch| - LINEAR-POINTER - IL:|of| CONTEXT))))) - ) + IL:|with| (CDR (IL:|replace| LINEAR-PREV IL:|of| CONTEXT + IL:|with| (IL:|fetch| LINEAR-POINTER + IL:|of| CONTEXT)))))) -(IL:PUTPROPS SUBNODE IL:MACRO (X (IF (EQ (CAR X) +(IL:PUTPROPS SUBNODE IL:MACRO (X (IF (EQ (CAR X) 1) (LIST 'CADR (LIST 'IL:FETCH 'SUB-NODES (CADR X))) (LIST 'CADR (LIST 'IL:NTH (LIST 'IL:FETCH 'SUB-NODES (CADR X)) (CAR X)))))) -(IL:PUTPROPS UNDO-BY IL:MACRO (INFO (LIST 'IL:PUSH '(IL:|fetch| UNDO-LIST IL:|of| CONTEXT) +(IL:PUTPROPS UNDO-BY IL:MACRO (INFO (LIST 'IL:PUSH '(IL:|fetch| UNDO-LIST IL:|of| CONTEXT) (LIST* 'LIST (IL:KWOTE (CAR INFO)) (CDR INFO))))) -(IL:PUTPROPS ZAP-CLISP-TRANSLATION IL:MACRO ((X) +(IL:PUTPROPS ZAP-CLISP-TRANSLATION IL:MACRO ((X) (AND IL:CLISPARRAY (IL:PUTHASH X NIL IL:CLISPARRAY)))) -(IL:PUTPROPS SMASH-USING IL:MACRO (X (IL:|bind| (SRC IL:_ (IF (IL:ATOM (CADDR X)) - (CADDR X) - '$$SOURCE)) +(IL:PUTPROPS SMASH-USING IL:MACRO (X (IL:|bind| (SRC IL:_ (IF (IL:ATOM (CADDR X)) + (CADDR X) + '$$SOURCE)) DEST (DESCR IL:_ (IL:GETDESCRIPTORS (CAR X))) - IL:|first| (IL:SETQ DEST - (LIST 'IL:REPLACEFIELDVAL (LIST 'QUOTE - (CAR DESCR)) - (CADR X) - (LIST 'IL:FETCHFIELD - (LIST 'QUOTE (CAR DESCR)) - SRC))) + IL:|first| (IL:SETQ DEST (LIST 'IL:REPLACEFIELDVAL + (LIST 'QUOTE (CAR DESCR)) + (CADR X) + (LIST 'IL:FETCHFIELD + (LIST 'QUOTE + (CAR DESCR)) + SRC))) (IL:SETQ DESCR (CDR DESCR)) IL:|while| DESCR IL:|do| (IL:SETQ DEST (LIST 'IL:FREPLACEFIELDVAL - (LIST 'QUOTE (CAR DESCR)) - DEST - (LIST 'IL:FETCHFIELD - (LIST 'QUOTE - (CAR DESCR)) - SRC))) + (LIST 'QUOTE (CAR DESCR)) + DEST + (LIST 'IL:FETCHFIELD + (LIST 'QUOTE (CAR DESCR)) + SRC))) (IL:SETQ DESCR (CDR DESCR)) IL:|finally| (WHEN (NOT (IL:ATOM (CADDR X))) - (IL:SETQ DEST - (LIST 'LET (LIST (LIST '$$SOURCE - (CADDR X))) - DEST))) + (IL:SETQ DEST + (LIST 'LET (LIST (LIST '$$SOURCE + (CADDR X))) + DEST))) (RETURN DEST)))) -(IL:PUTPROPS IL:HALF IL:MACRO ((IL:X) +(IL:PUTPROPS IL:HALF IL:MACRO ((IL:X) (IL:LRSH IL:X 1))) ) @@ -775,10 +748,10 @@ IL:|{DSK}lde>lispcore>sources>SEDIT-DECLS.;2|) (DEFPARAMETER *IL-CL-CONFLICTS* - '(IL:*PRINT-STRUCTURE* IL:* IL:APPEND IL:APPLY IL:ASSOC IL:ATOM IL:BLOCK IL:CHARACTER  - IL:EQUAL IL:ERROR IL:FLOATP IL:FORMAT IL:FUNCTION IL:GETHASH IL:IF IL:LAMBDA IL:LENGTH - IL:LISTP IL:MAPCAR IL:NTH IL:NUMBER IL:NUMBERP IL:PRIN1 IL:READ IL:REVERSE IL:SETQ - IL:SPACE IL:STRINGP IL:TERPRI)) + '(IL:*PRINT-STRUCTURE* IL:* IL:APPEND IL:APPLY IL:ASSOC IL:ATOM IL:BLOCK IL:CHARACTER IL:EQUAL + IL:ERROR IL:FLOATP IL:FORMAT IL:FUNCTION IL:GETHASH IL:IF IL:LAMBDA IL:LENGTH IL:LISTP + IL:MAPCAR IL:NTH IL:NUMBER IL:NUMBERP IL:PRIN1 IL:READ IL:REVERSE IL:SETQ IL:SPACE + IL:STRINGP IL:TERPRI)) (DEFPARAMETER *IL-IMPORTS* '(IL:\" IL:$$ITERATE IL:$$LST1 IL:$$OUT IL:\( IL:*DISPLAY-EDITOR* IL:\, IL:\. IL:.P2 @@ -804,12 +777,12 @@ IL:|{DSK}lde>lispcore>sources>SEDIT-DECLS.;2|) IL:EXPR IL:EXTENT IL:FCHARACTER IL:FETCHFIELD IL:FILECREATED IL:FILEMAP IL:FILEPKGFLG IL:FILES IL:FILESLOAD IL:FILETYPE IL:FIND.PROCESS IL:FIXEDITDATE IL:FIXP IL:FIXR IL:FLAG IL:FLAGBITS IL:FLASHWINDOW IL:FLENGTH IL:FM.CHANGELABEL IL:FM.CHANGESTATE - IL:FM.DONTRESHAPE IL:FM.EDITITEM IL:FM.GETITEM IL:FM.ITEMPROP IL:FM.RESETMENU IL:FMEMB + IL:FM.DONTRESHAPE IL:FM.EDITITEM IL:FM.GETITEM IL:FM.ITEMPROP IL:FM.RESETMENU IL:FMEMB IL:FN IL:FNS IL:FONT IL:FONTCREATE IL:FONTPROP IL:FORM IL:FORWORD IL:FREEMENU IL:FREPLACEFIELDVAL IL:FULLXPOINTER IL:FUNCTIONS IL:GACHA IL:GETD IL:GETDEF IL:GETDESCRIPTORS IL:GETPROMPTWINDOW IL:GETPROP IL:GETPROPLIST IL:GETREGION IL:GETSYNTAX IL:GLOBALVARS IL:GROUP IL:HALF IL:HEIGHT IL:HEIGHTIFWINDOW IL:HELVETICA IL:ICON - IL:ICONWINDOW IL:ID IL:IDIFFERENCE IL:IFWORD IL:IGEQ IL:IGREATERP IL:ILEQ IL:ILESSP + IL:ICONWINDOW IL:ID IL:IDIFFERENCE IL:IFWORD IL:IGEQ IL:IGREATERP IL:ILEQ IL:ILESSP IL:IMAX IL:IMIN IL:IMINUS IL:IN/SCROLL/BAR? IL:INNERESCQUOTE IL:INFOHOOK IL:INITRECORDS IL:INITVARS IL:INPUT IL:INSIDEP IL:INTERPRESS IL:INVERT IL:IPLUS IL:IQUOTIENT IL:ITALICFONT IL:ITEM IL:ITEMS IL:ITEMWIDTH IL:ITIMES IL:KEYACTION IL:KEYACTIONTABLE @@ -817,10 +790,10 @@ IL:|{DSK}lde>lispcore>sources>SEDIT-DECLS.;2|) IL:LASTMOUSEX IL:LASTMOUSEY IL:LCONC IL:LEFT IL:LEFTBRACKET IL:LEFTPAREN IL:LEQ IL:LINEDELETE IL:LINKS IL:LISTGET IL:LISTPUT IL:LITATOM IL:LOCALCLOSE IL:LOCALVARS IL:LRSH IL:MACRO IL:MACROS IL:MAINWINDOW IL:MAKEFILE-ENVIRONMENT IL:MARKASCHANGED - IL:MARKASCHANGEDFNS IL:MASK IL:MAXWIDTH IL:MEMB IL:MENU IL:MENUFONT IL:MENUOFFSET - IL:MESS IL:MICASPERPT IL:MIDDLE IL:MKSTRING IL:MOUSE IL:MOUSECONFIRM IL:MOUSESTATE IL:MOVE - IL:MOVETO IL:MULTESCAPECHAR IL:MULTIPLE-ESCAPE IL:NAME IL:NCHARS IL:NCONC1 IL:NEQ - IL:NILL IL:NLAMBDA IL:NLISTP IL:NLSETQ IL:NOBIND IL:NONE IL:NOTIFY.EVENT IL:NTHCHARCODE + IL:MARKASCHANGEDFNS IL:MASK IL:MAXWIDTH IL:MEMB IL:MENU IL:MENUFONT IL:MENUOFFSET IL:MESS + IL:MICASPERPT IL:MIDDLE IL:MKSTRING IL:MOUSE IL:MOUSECONFIRM IL:MOUSESTATE IL:MOVE + IL:MOVETO IL:MULTESCAPECHAR IL:MULTIPLE-ESCAPE IL:NAME IL:NCHARS IL:NCONC1 IL:NEQ IL:NILL + IL:NLAMBDA IL:NLISTP IL:NLSETQ IL:NOBIND IL:NONE IL:NOTIFY.EVENT IL:NTHCHARCODE IL:OBTAIN.MONITORLOCK IL:OFFST IL:OPENLAMBDA IL:OPENSTRINGSTREAM IL:OPENWP IL:P IL:PACKAGEDELIM IL:PAINT IL:POINTER IL:PRETTYCOMPRINT IL:PRIN2 IL:PROCESS IL:PROCESS.APPLY IL:PROCESS.EVAL IL:PROCESS.EVALV IL:PROCESSP IL:PROCESSPROP IL:PROCTYPEAHEAD diff --git a/sources/SEDIT-DECLS.LCOM b/sources/SEDIT-DECLS.LCOM index 14f1a8d9..a11b30d3 100644 --- a/sources/SEDIT-DECLS.LCOM +++ b/sources/SEDIT-DECLS.LCOM @@ -1 +1,334 @@ -(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE (DEFPACKAGE SEDIT (USE LISP XCL))) (IL:FILECREATED "26-Jan-98 13:33:30" ("compiled on " IL:|{DSK}disk2>jdstools>lc3>lispcore3.0>sources>SEDIT-DECLS.;1|) "30-Mar-95 20:33:04" IL:|bcompl'd| IL:|in| "Medley 14-Aug-95 ..." IL:|dated| "14-Aug-95 15:27:48") (IL:FILECREATED "19-Jan-93 11:18:34" IL:|{DSK}lde>lispcore>sources>SEDIT-DECLS.;3| 50314 IL:|changes| IL:|to:| (IL:RECORDS BROKEN-ATOM EDIT-CONTEXT EDIT-ENV EDIT-NODE EDIT-NODE-TYPE EDIT-POINT EDIT-SELECTION GAP LINE-BLOCK LINE-START LIST-FORMAT OPEN-STRING STRING-ITEM WEAK-LINK) IL:|previous| IL:|date:| " 5-Jan-93 02:19:37" IL:|{DSK}lde>lispcore>sources>SEDIT-DECLS.;2|) (IL:PRETTYCOMPRINT IL:SEDIT-DECLSCOMS) (IL:RPAQQ IL:SEDIT-DECLSCOMS ((IL:PROP IL:FILETYPE IL:SEDIT-DECLS) (IL:PROP IL:MAKEFILE-ENVIRONMENT IL:SEDIT-DECLS) (IL:* IL:|;;;| "This file is for declaring things which are shared among sedit files. This file is loaded at compile time by each sedit file, but the contents of this file are not copied into any of the compiled files. The RECORDS declarations are here, and they are INITRECORDed and SYSRECORDed in SEDIT-ACCESS. If you change a record, make sure sedit-access gets remade NEW. All GLOBALVARS declarations are done here, because they're needed at compile time, but the actual variable declarations are done in the appropriate file. Constants and Macros are declared here only if they are shared among files; otherwise they can remain in the appropriate file. " ) (IL:RECORDS BROKEN-ATOM EDIT-CONTEXT EDIT-ENV EDIT-NODE EDIT-NODE-TYPE EDIT-POINT EDIT-SELECTION GAP LINE-BLOCK LINE-START LIST-FORMAT OPEN-STRING STRING-ITEM WEAK-LINK) (IL:* IL:|;;| "interface globalvars") (IL:GLOBALVARS CONVERT-UPGRADE KEEP-WINDOW-REGION CONTEXTS LISP-EDIT-ENVIRONMENT LIST-FORMATS-TABLE PRETTY-PRINT-ENV REGIONS) (IL:* IL:|;;| "shared globalvars") (IL:GLOBALVARS IL:BOLDFONT IL:CLISPFONT IL:COMMENTFLG IL:COMMENTFONT IL:DEFAULTFONT IL:PROMPTWINDOW IL:ITALICFONT ARGS-GAP ATOM-CARET BASIC-GAP BODY-GAP BUTTON-STRING BUTTON-STRING-NODE STRUCTURE-CARET CLISP-INDENT-WORDS CLISP-PROGRAM-WORDS COMMAND-TABLE-SPEC LIST-PARSE-INFO TERMINAL-TABLE TEMP-POINT TEMP-SELECTION TYPE-CLISP TYPE-COMMENT TYPE-COMMENT-WORD TYPE-DOTLIST TYPE-GAP TYPE-LIST TYPE-LITATOM TYPE-QUOTE TYPE-ROOT TYPE-STRING TYPE-UNKNOWN TYPES ARGS-BITMAP BODY-BITMAP GAP-BITMAP) (IL:* IL:|;;| "window file globalvars") (IL:GLOBALVARS TITLED-ICON SELECTION-PENDING? PENDING-SELECTION INITIAL-SELECTION SCRATCH-SELECTION PENDING-CARET PENDING-LAST-X PENDING-LAST-Y PENDING-TYPE PENDING-SHIFT LAST-MOVE-CLOCK BUTTON-STRING-NODE) (IL:* IL:|;;| "command file globalvars") ( IL:GLOBALVARS MENUS MENU-DESCRIPTION MUTATE-CANDIDATE PACKAGE-CANDIDATE PRINTBASE-CANDIDATE FIND-CANDIDATE SUBSTITUTE-CANDIDATE) (IL:* IL:|;;| "random constants") (IL:CONSTANTS (EDITOR-NAME "SEdit") (IL:MICASPERPT 35.27778) (QUOTE-WRAPPER-LIST (QUOTE (QUOTE QUOTE IL:BQUOTE IL:BQUOTE IL:COMMA IL:\\\, COMMA-AT IL:\\\,@ COMMA-DOT IL:\\\,. FUNCTION FUNCTION)))) (IL:* IL:|;;| "random macros") ( IL:MACROS GET-PROMPT-WINDOW EVAL-IN-PROCESS LOOKUP-COMMAND QUOTE-WRAPPER QUOTE-WRAPPER-NAME REPAINT-NEW-LINE RESET-CONTROL-VARIABLES SELECT-COMMENT-INDENT SET-COMMENT-POSITIONS SET-SELECTION-NOWHERE) (IL:* IL:|;;| "kernel macros") (IL:FUNCTIONS CREATE-WEAK-LINK) (IL:MACROS ADVANCE CLOSE-OPEN-NODE DEAD-NODE? END-UNDO-BLOCK ESCAPE-CHAR EQ-POINT-TYPE NEXT-LINEAR SET-LINEAR START-UNDO-BLOCK STEP-LINEAR SUBNODE UNDO-BY ZAP-CLISP-TRANSLATION SMASH-USING IL:HALF) (IL:* IL:|;;| "the symbols that come from interlisp, divided into those that conflict with CL symbols and those that don't. The SEDIT package declaration in the makefile-environment for all these files need not actually import any of these symbols, it just makes the functions easier to edit if you do cause then you don't need so many IL: prefixes." ) (IL:VARIABLES *IL-CL-CONFLICTS* *IL-IMPORTS*) (IL:* IL:|;;| "and a little reminder:") (IL:P ( IL:|printout| T T "EXPORTS.ALL must be loaded to compile SEdit" T) (IL:|printout| T T "SEDIT-ACCESS must be REMADE NEW if you change a record" T)))) (IL:PUTPROPS IL:SEDIT-DECLS IL:FILETYPE :COMPILE-FILE) (IL:PUTPROPS IL:SEDIT-DECLS IL:MAKEFILE-ENVIRONMENT (:READTABLE "XCL" :PACKAGE (DEFPACKAGE IL:SEDIT ( :USE IL:LISP IL:XCL)))) (IL:DATATYPE BROKEN-ATOM (ATOM-CHARS)) (IL:DATATYPE EDIT-CONTEXT (ENVIRONMENT PROFILE EVAL-FN EVAL-IN-PROCESS CONTEXT-LOCK COMPLETION-EVENT EDIT-TYPE ICON-TITLE EDIT-OPTIONS COMMENT-WIDTH COMMENT-SEPARATION FIND-CANDIDATE SUBSTITUTE-CANDIDATE DISPLAY-WINDOW WINDOW-LEFT WINDOW-BOTTOM WINDOW-RIGHT WINDOW-TOP ROOT ROOT-CHANGED-FN COMPLETION-FN CHANGED-STRUCTURE? (DONT-COLLECT-CHANGES? IL:FLAG) CHANGED-NODES OPEN-NODE-CHANGED? OPEN-NODE OPEN-NODE-INFO ATOM-STARTED ATOM-STARTED-UNDO-POINTER UNDO-LIST UNDO-UNDO-LIST CARET CARET-POINT SELECTION SELECTION-DISPLAYED? (CURRENT-NODE IL:FULLXPOINTER) CURRENT-X (CURRENT-LINE IL:FULLXPOINTER) (LAST-LINEARIZED-SUB-NODE-INDEX IL:WORD) (LINEAR-POINTER IL:FULLXPOINTER) (LINEAR-PREV IL:FULLXPOINTER ) LAST-MOUSE-X LAST-MOUSE-Y LAST-MOUSE-TYPE \\X \\Y \\Z \\T FIRST-BLOCK CURRENT-BLOCK MATCHING? BELOW? VISIBLE? (REPAINT-START IL:FULLXPOINTER) (REPAINT-LINE IL:FULLXPOINTER) REPAINT-X RELINEARIZATION-TIME-STAMP SHIFT-Y SHIFT-DOWN SHIFT-RIGHT) CHANGED-NODES IL:_ (CONS)) (IL:DATATYPE EDIT-ENV (PARSE-INFO PARSE-INFO-UNKNOWN USER-DATA DEFAULT-FONT ITALIC-FONT KEYWORD-FONT COMMENT-FONT BROKEN-ATOM-FONT SPACE-WIDTH DEFAULT-LINE-SKIP EM-WIDTH INDENT-BASE INDENT-STEP MAX-WIDTH COMMENT-WIDTH-PERCENT INIT-COMMENT-SEPARATION LPAREN-STRING RPAREN-STRING DOT-STRING QUOTE-STRING COMMENT-STRING COMMAND-TABLE DEFAULT-CHAR-HANDLER HELP-MENU)) (IL:DATATYPE EDIT-NODE ((NODE-TYPE IL:FULLXPOINTER) FORMAT UNASSIGNED (SUPER-NODE IL:FULLXPOINTER) ( DEPTH IL:WORD) (SUB-NODE-INDEX IL:WORD) STRUCTURE SUB-NODES (LINEAR-THREAD IL:FULLXPOINTER) LINEAR-FORM (START-X IL:WORD) (RIGHT-MARGIN IL:WORD) (PREFERRED-WIDTH IL:WORD) (ACTUAL-WIDTH IL:WORD) (CHANGED? IL:FLAG) INLINE-WIDTH ACTUAL-LLENGTH FIRST-LINE LAST-LINE) (IL:ACCESSFNS (INLINE? (EQ ( IL:|fetch| FIRST-LINE IL:|of| IL:DATUM) (IL:|fetch| LAST-LINE IL:|of| IL:DATUM)))) FORMAT IL:_ (QUOTE NOT-YET-ASSIGNED)) (IL:DATATYPE EDIT-NODE-TYPE (NAME ASSIGN-FORMAT COMPUTE-FORMAT-VALUES LINEARIZE SUB-NODE-CHANGED SET-POINT COMPUTE-POINT-POSITION COMPUTE-SELECTION-POSITION SET-SELECTION GROW-SELECTION SELECT-SEGMENT INSERT DELETE COPY-STRUCTURE COPY-SELECTION STRINGIFY BACK-SPACE CLOSE-NODE)) (IL:DATATYPE EDIT-POINT ((POINT-NODE IL:FULLXPOINTER) POINT-INDEX POINT-TYPE POINT-X (POINT-LINE IL:FULLXPOINTER) POINT-STRING POINT-OFFSET)) (IL:DATATYPE EDIT-SELECTION ((SELECT-NODE IL:FULLXPOINTER) SELECT-START SELECT-END SELECT-TYPE DELETE-OK? PENDING-DELETE? SELECT-START-X (SELECT-START-LINE IL:FULLXPOINTER) SELECT-END-X ( SELECT-END-LINE IL:FULLXPOINTER) SELECT-STRING SELECT-START-OFFSET SELECT-END-OFFSET)) (IL:DATATYPE GAP (LINEAR-ITEM)) (IL:DATATYPE LINE-BLOCK ((BLOCK-START IL:FULLXPOINTER) BLOCK-NEW-X BLOCK-WIDTH NEXT-BLOCK BITS? BLOCK-X BLOCK-BASE-LINE BLOCK-ASCENT BLOCK-DESCENT)) (IL:DATATYPE LINE-START ((NEXT-LINE IL:FULLXPOINTER) (PREV-LINE IL:FULLXPOINTER) (NODE IL:FULLXPOINTER ) (LINE-ASCENT IL:WORD) (LINE-DESCENT IL:WORD) (LINE-SKIP IL:WORD) (LINE-LENGTH IL:WORD) (INDENT IL:WORD ) YCOORD (CACHE-TIME IL:WORD) CACHED-Y (CACHED-ASCENT IL:WORD) (CACHED-DESCENT IL:WORD)) (IL:ACCESSFNS (LINE-HEIGHT (IL:IPLUS (IL:FETCH LINE-SKIP IL:OF IL:DATUM) (IL:FETCH LINE-ASCENT IL:OF IL:DATUM) ( IL:FETCH LINE-DESCENT IL:OF IL:DATUM)))) (IL:ACCESSFNS (BASE-LINE-Y (IL:IDIFFERENCE (IL:ADD1 (IL:FETCH YCOORD IL:OF IL:DATUM)) (IL:IPLUS (IL:FETCH LINE-SKIP IL:OF IL:DATUM) (IL:FETCH LINE-ASCENT IL:OF IL:DATUM))))) (IL:ACCESSFNS (NEXT-LINE-Y (IL:IDIFFERENCE (IL:FETCH YCOORD IL:OF IL:DATUM) (IL:FETCH LINE-HEIGHT IL:OF IL:DATUM)))) (IL:ACCESSFNS (OLD-TOP (IF (EQ (IL:FETCH CACHE-TIME IL:OF IL:DATUM) ( IL:|fetch| RELINEARIZATION-TIME-STAMP IL:|of| CONTEXT)) (IL:SUB1 (IL:IPLUS (IL:FETCH CACHED-Y IL:OF IL:DATUM) (IL:FETCH CACHED-ASCENT IL:OF IL:DATUM))) (IL:FETCH YCOORD IL:OF IL:DATUM)))) (IL:ACCESSFNS (OLD-BOTTOM (IF (EQ (IL:FETCH CACHE-TIME IL:OF IL:DATUM) (IL:|fetch| RELINEARIZATION-TIME-STAMP IL:|of| CONTEXT)) (IL:IDIFFERENCE (IL:FETCH CACHED-Y IL:OF IL:DATUM) (IL:FETCH CACHED-DESCENT IL:OF IL:DATUM) ) (IL:ADD1 (IL:FETCH NEXT-LINE-Y IL:OF IL:DATUM)))))) (IL:DATATYPE LIST-FORMAT (LIST-FORMATS LIST-INLINE? LIST-PFORMAT LIST-MFORMAT LIST-SUBLISTS) ( IL:ACCESSFNS (NON-STANDARD? (NULL (IL:|fetch| LIST-FORMATS IL:|of| IL:DATUM)))) (IL:ACCESSFNS ( SET-FORMAT-LIST (IL:|fetch| LIST-INLINE? IL:|of| IL:DATUM))) (IL:ACCESSFNS (CFVLIST (IL:|fetch| LIST-PFORMAT IL:|of| IL:DATUM))) (IL:ACCESSFNS (LINEARIZE-LIST (IL:|fetch| LIST-MFORMAT IL:|of| IL:DATUM ))) LIST-SUBLISTS IL:_ NIL) (IL:RECORD OPEN-STRING (REAL-LENGTH SUBSTRING . BUFFER-STRING)) (IL:DATATYPE STRING-ITEM (STRING (WIDTH IL:WORD) (FONT IL:FULLXPOINTER) (PRIN-2? IL:FLAG))) (IL:DATATYPE WEAK-LINK ((DESTINATION IL:FULLXPOINTER))) (IL:/DECLAREDATATYPE (QUOTE BROKEN-ATOM) (QUOTE (IL:POINTER)) (QUOTE ((BROKEN-ATOM 0 IL:POINTER))) ( QUOTE 2)) (IL:/DECLAREDATATYPE (QUOTE EDIT-CONTEXT) (QUOTE (IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:FLAG IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:FULLXPOINTER IL:POINTER IL:FULLXPOINTER IL:WORD IL:FULLXPOINTER IL:FULLXPOINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:FULLXPOINTER IL:FULLXPOINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER)) (QUOTE ((EDIT-CONTEXT 0 IL:POINTER) (EDIT-CONTEXT 2 IL:POINTER) ( EDIT-CONTEXT 4 IL:POINTER) (EDIT-CONTEXT 6 IL:POINTER) (EDIT-CONTEXT 8 IL:POINTER) (EDIT-CONTEXT 10 IL:POINTER) (EDIT-CONTEXT 12 IL:POINTER) (EDIT-CONTEXT 14 IL:POINTER) (EDIT-CONTEXT 16 IL:POINTER) ( EDIT-CONTEXT 18 IL:POINTER) (EDIT-CONTEXT 20 IL:POINTER) (EDIT-CONTEXT 22 IL:POINTER) (EDIT-CONTEXT 24 IL:POINTER) (EDIT-CONTEXT 26 IL:POINTER) (EDIT-CONTEXT 28 IL:POINTER) (EDIT-CONTEXT 30 IL:POINTER) ( EDIT-CONTEXT 32 IL:POINTER) (EDIT-CONTEXT 34 IL:POINTER) (EDIT-CONTEXT 36 IL:POINTER) (EDIT-CONTEXT 38 IL:POINTER) (EDIT-CONTEXT 40 IL:POINTER) (EDIT-CONTEXT 42 IL:POINTER) (EDIT-CONTEXT 42 (IL:FLAGBITS . 0)) (EDIT-CONTEXT 44 IL:POINTER) (EDIT-CONTEXT 46 IL:POINTER) (EDIT-CONTEXT 48 IL:POINTER) ( EDIT-CONTEXT 50 IL:POINTER) (EDIT-CONTEXT 52 IL:POINTER) (EDIT-CONTEXT 54 IL:POINTER) (EDIT-CONTEXT 56 IL:POINTER) (EDIT-CONTEXT 58 IL:POINTER) (EDIT-CONTEXT 60 IL:POINTER) (EDIT-CONTEXT 62 IL:POINTER) ( EDIT-CONTEXT 64 IL:POINTER) (EDIT-CONTEXT 66 IL:POINTER) (EDIT-CONTEXT 68 IL:FULLXPOINTER) ( EDIT-CONTEXT 70 IL:POINTER) (EDIT-CONTEXT 72 IL:FULLXPOINTER) (EDIT-CONTEXT 74 (IL:BITS . 15)) ( EDIT-CONTEXT 76 IL:FULLXPOINTER) (EDIT-CONTEXT 78 IL:FULLXPOINTER) (EDIT-CONTEXT 80 IL:POINTER) ( EDIT-CONTEXT 82 IL:POINTER) (EDIT-CONTEXT 84 IL:POINTER) (EDIT-CONTEXT 86 IL:POINTER) (EDIT-CONTEXT 88 IL:POINTER) (EDIT-CONTEXT 90 IL:POINTER) (EDIT-CONTEXT 92 IL:POINTER) (EDIT-CONTEXT 94 IL:POINTER) ( EDIT-CONTEXT 96 IL:POINTER) (EDIT-CONTEXT 98 IL:POINTER) (EDIT-CONTEXT 100 IL:POINTER) (EDIT-CONTEXT 102 IL:POINTER) (EDIT-CONTEXT 104 IL:FULLXPOINTER) (EDIT-CONTEXT 106 IL:FULLXPOINTER) (EDIT-CONTEXT 108 IL:POINTER) (EDIT-CONTEXT 110 IL:POINTER) (EDIT-CONTEXT 112 IL:POINTER) (EDIT-CONTEXT 114 IL:POINTER ) (EDIT-CONTEXT 116 IL:POINTER))) (QUOTE 118)) (IL:/DECLAREDATATYPE (QUOTE EDIT-ENV) (QUOTE (IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER)) (QUOTE ((EDIT-ENV 0 IL:POINTER) (EDIT-ENV 2 IL:POINTER) (EDIT-ENV 4 IL:POINTER) (EDIT-ENV 6 IL:POINTER) (EDIT-ENV 8 IL:POINTER) (EDIT-ENV 10 IL:POINTER) (EDIT-ENV 12 IL:POINTER) (EDIT-ENV 14 IL:POINTER) (EDIT-ENV 16 IL:POINTER) (EDIT-ENV 18 IL:POINTER) (EDIT-ENV 20 IL:POINTER) (EDIT-ENV 22 IL:POINTER) (EDIT-ENV 24 IL:POINTER) (EDIT-ENV 26 IL:POINTER) (EDIT-ENV 28 IL:POINTER) (EDIT-ENV 30 IL:POINTER) (EDIT-ENV 32 IL:POINTER) (EDIT-ENV 34 IL:POINTER) (EDIT-ENV 36 IL:POINTER) (EDIT-ENV 38 IL:POINTER) (EDIT-ENV 40 IL:POINTER) (EDIT-ENV 42 IL:POINTER) (EDIT-ENV 44 IL:POINTER) (EDIT-ENV 46 IL:POINTER))) (QUOTE 48)) (IL:/DECLAREDATATYPE (QUOTE EDIT-NODE) (QUOTE (IL:FULLXPOINTER IL:POINTER IL:POINTER IL:FULLXPOINTER IL:WORD IL:WORD IL:POINTER IL:POINTER IL:FULLXPOINTER IL:POINTER IL:WORD IL:WORD IL:WORD IL:WORD IL:FLAG IL:POINTER IL:POINTER IL:POINTER IL:POINTER)) (QUOTE ((EDIT-NODE 0 IL:FULLXPOINTER) (EDIT-NODE 2 IL:POINTER) (EDIT-NODE 4 IL:POINTER) (EDIT-NODE 6 IL:FULLXPOINTER) (EDIT-NODE 8 (IL:BITS . 15)) ( EDIT-NODE 9 (IL:BITS . 15)) (EDIT-NODE 10 IL:POINTER) (EDIT-NODE 12 IL:POINTER) (EDIT-NODE 14 IL:FULLXPOINTER) (EDIT-NODE 16 IL:POINTER) (EDIT-NODE 18 (IL:BITS . 15)) (EDIT-NODE 19 (IL:BITS . 15)) (EDIT-NODE 20 (IL:BITS . 15)) (EDIT-NODE 21 (IL:BITS . 15)) (EDIT-NODE 16 (IL:FLAGBITS . 0)) ( EDIT-NODE 22 IL:POINTER) (EDIT-NODE 24 IL:POINTER) (EDIT-NODE 26 IL:POINTER) (EDIT-NODE 28 IL:POINTER) )) (QUOTE 30)) (IL:/DECLAREDATATYPE (QUOTE EDIT-NODE-TYPE) (QUOTE (IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER)) (QUOTE ((EDIT-NODE-TYPE 0 IL:POINTER) ( EDIT-NODE-TYPE 2 IL:POINTER) (EDIT-NODE-TYPE 4 IL:POINTER) (EDIT-NODE-TYPE 6 IL:POINTER) ( EDIT-NODE-TYPE 8 IL:POINTER) (EDIT-NODE-TYPE 10 IL:POINTER) (EDIT-NODE-TYPE 12 IL:POINTER) ( EDIT-NODE-TYPE 14 IL:POINTER) (EDIT-NODE-TYPE 16 IL:POINTER) (EDIT-NODE-TYPE 18 IL:POINTER) ( EDIT-NODE-TYPE 20 IL:POINTER) (EDIT-NODE-TYPE 22 IL:POINTER) (EDIT-NODE-TYPE 24 IL:POINTER) ( EDIT-NODE-TYPE 26 IL:POINTER) (EDIT-NODE-TYPE 28 IL:POINTER) (EDIT-NODE-TYPE 30 IL:POINTER) ( EDIT-NODE-TYPE 32 IL:POINTER) (EDIT-NODE-TYPE 34 IL:POINTER))) (QUOTE 36)) (IL:/DECLAREDATATYPE (QUOTE EDIT-POINT) (QUOTE (IL:FULLXPOINTER IL:POINTER IL:POINTER IL:POINTER IL:FULLXPOINTER IL:POINTER IL:POINTER)) (QUOTE ((EDIT-POINT 0 IL:FULLXPOINTER) (EDIT-POINT 2 IL:POINTER ) (EDIT-POINT 4 IL:POINTER) (EDIT-POINT 6 IL:POINTER) (EDIT-POINT 8 IL:FULLXPOINTER) (EDIT-POINT 10 IL:POINTER) (EDIT-POINT 12 IL:POINTER))) (QUOTE 14)) (IL:/DECLAREDATATYPE (QUOTE EDIT-SELECTION) (QUOTE (IL:FULLXPOINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:FULLXPOINTER IL:POINTER IL:FULLXPOINTER IL:POINTER IL:POINTER IL:POINTER)) (QUOTE ((EDIT-SELECTION 0 IL:FULLXPOINTER) (EDIT-SELECTION 2 IL:POINTER) (EDIT-SELECTION 4 IL:POINTER) (EDIT-SELECTION 6 IL:POINTER) (EDIT-SELECTION 8 IL:POINTER) (EDIT-SELECTION 10 IL:POINTER ) (EDIT-SELECTION 12 IL:POINTER) (EDIT-SELECTION 14 IL:FULLXPOINTER) (EDIT-SELECTION 16 IL:POINTER) ( EDIT-SELECTION 18 IL:FULLXPOINTER) (EDIT-SELECTION 20 IL:POINTER) (EDIT-SELECTION 22 IL:POINTER) ( EDIT-SELECTION 24 IL:POINTER))) (QUOTE 26)) (IL:/DECLAREDATATYPE (QUOTE GAP) (QUOTE (IL:POINTER)) (QUOTE ((GAP 0 IL:POINTER))) (QUOTE 2)) (IL:/DECLAREDATATYPE (QUOTE LINE-BLOCK) (QUOTE (IL:FULLXPOINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER)) (QUOTE ((LINE-BLOCK 0 IL:FULLXPOINTER) ( LINE-BLOCK 2 IL:POINTER) (LINE-BLOCK 4 IL:POINTER) (LINE-BLOCK 6 IL:POINTER) (LINE-BLOCK 8 IL:POINTER) (LINE-BLOCK 10 IL:POINTER) (LINE-BLOCK 12 IL:POINTER) (LINE-BLOCK 14 IL:POINTER) (LINE-BLOCK 16 IL:POINTER))) (QUOTE 18)) (IL:/DECLAREDATATYPE (QUOTE LINE-START) (QUOTE (IL:FULLXPOINTER IL:FULLXPOINTER IL:FULLXPOINTER IL:WORD IL:WORD IL:WORD IL:WORD IL:WORD IL:POINTER IL:WORD IL:POINTER IL:WORD IL:WORD)) (QUOTE ((LINE-START 0 IL:FULLXPOINTER) (LINE-START 2 IL:FULLXPOINTER) (LINE-START 4 IL:FULLXPOINTER) (LINE-START 6 (IL:BITS . 15)) (LINE-START 7 (IL:BITS . 15)) (LINE-START 8 (IL:BITS . 15)) (LINE-START 9 (IL:BITS . 15)) ( LINE-START 10 (IL:BITS . 15)) (LINE-START 12 IL:POINTER) (LINE-START 11 (IL:BITS . 15)) (LINE-START 14 IL:POINTER) (LINE-START 16 (IL:BITS . 15)) (LINE-START 17 (IL:BITS . 15)))) (QUOTE 18)) (IL:/DECLAREDATATYPE (QUOTE LIST-FORMAT) (QUOTE (IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER )) (QUOTE ((LIST-FORMAT 0 IL:POINTER) (LIST-FORMAT 2 IL:POINTER) (LIST-FORMAT 4 IL:POINTER) ( LIST-FORMAT 6 IL:POINTER) (LIST-FORMAT 8 IL:POINTER))) (QUOTE 10)) (IL:/DECLAREDATATYPE (QUOTE STRING-ITEM) (QUOTE (IL:POINTER IL:WORD IL:FULLXPOINTER IL:FLAG)) (QUOTE ( (STRING-ITEM 0 IL:POINTER) (STRING-ITEM 2 (IL:BITS . 15)) (STRING-ITEM 4 IL:FULLXPOINTER) (STRING-ITEM 3 (IL:FLAGBITS . 0)))) (QUOTE 6)) (IL:/DECLAREDATATYPE (QUOTE WEAK-LINK) (QUOTE (IL:FULLXPOINTER)) (QUOTE ((WEAK-LINK 0 IL:FULLXPOINTER) )) (QUOTE 2)) (IL:RPAQ EDITOR-NAME "SEdit") (IL:RPAQQ IL:MICASPERPT 35.27778) (IL:RPAQQ QUOTE-WRAPPER-LIST (QUOTE QUOTE IL:BQUOTE IL:BQUOTE IL:COMMA IL:\\\, COMMA-AT IL:\\\,@ COMMA-DOT IL:\\\,. FUNCTION FUNCTION)) (IL:CONSTANTS (EDITOR-NAME "SEdit") (IL:MICASPERPT 35.27778) (QUOTE-WRAPPER-LIST (QUOTE (QUOTE QUOTE IL:BQUOTE IL:BQUOTE IL:COMMA IL:\\\, COMMA-AT IL:\\\,@ COMMA-DOT IL:\\\,. FUNCTION FUNCTION)))) (IL:PUTPROPS GET-PROMPT-WINDOW IL:MACRO ((CONTEXT) (IL:GETPROMPTWINDOW (IL:|fetch| DISPLAY-WINDOW IL:|of| CONTEXT)))) (IL:PUTPROPS EVAL-IN-PROCESS IL:MACRO (NIL (LET* ((PROCESS (IF (EQ (IL:PROCESSPROP (IL:THIS.PROCESS) ( QUOTE IL:NAME)) (QUOTE IL:MOUSE)) (IL:TTY.PROCESS) (IL:THIS.PROCESS))) (PROCFORM (IL:PROCESSPROP PROCESS (QUOTE IL:FORM)))) (COND ((EQ (CAR PROCFORM) (QUOTE SEDIT1)) (IL:|fetch| (EDIT-CONTEXT EVAL-IN-PROCESS) IL:|of| (CADADR PROCFORM))) (T PROCESS))))) (IL:PUTPROPS LOOKUP-COMMAND IL:MACRO ((CHAR TABLE) (GETHASH CHAR TABLE))) (IL:PUTPROPS QUOTE-WRAPPER IL:MACRO (TYPE (COND ((AND (IL:LISTP (CAR TYPE)) (EQ (CAAR TYPE) (QUOTE QUOTE))) (IF (IL:LISTP (CADAR TYPE)) (IL:KWOTE (IL:|for| W IL:|in| (CADAR TYPE) IL:|collect| (IL:LISTGET QUOTE-WRAPPER-LIST W))) (IL:KWOTE (IL:LISTGET QUOTE-WRAPPER-LIST (CADAR TYPE))))) (T (IL:BQUOTE ( IL:LISTGET QUOTE-WRAPPER-LIST (IL:\\\, (CAR TYPE)))))))) (IL:PUTPROPS QUOTE-WRAPPER-NAME IL:MACRO ((TYPE) (IL:LISTGET (IL:CONSTANT (IL:REVERSE QUOTE-WRAPPER-LIST)) TYPE))) (IL:PUTPROPS REPAINT-NEW-LINE IL:MACRO (IL:OPENLAMBDA (LINE) (WHEN (IL:ILESSP (IL:|fetch| NEXT-LINE-Y IL:|of| (CAR LINE)) (IL:|fetch| WINDOW-TOP IL:|of| CONTEXT)) (REPAINT CONTEXT (IL:|fetch| INDENT IL:|of| (CAR LINE)) (IL:|fetch| BASE-LINE-Y IL:|of| (CAR LINE)) (CDR LINE) (IL:|fetch| LINEAR-POINTER IL:|of| CONTEXT)) (WHEN (IL:ILESSP (IL:|fetch| NEXT-LINE-Y IL:|of| (CAR LINE)) (IL:|fetch| WINDOW-BOTTOM IL:|of| CONTEXT)) (IL:|replace| BELOW? IL:|of| CONTEXT IL:|with| T))))) (IL:PUTPROPS RESET-CONTROL-VARIABLES IL:MACRO ((CONTEXT) (WHEN (COMPILING-POST-KOTO) (IL:SETQ *PACKAGE* (IL:FETCH PACKAGE IL:OF CONTEXT)) (IL:SETQ *PRINT-ARRAY* NIL) (IL:SETQ *PRINT-BASE* (IL:FETCH PRINT-BASE IL:OF CONTEXT)) (IL:SETQ *PRINT-CASE* (IL:FETCH PRINT-CASE IL:OF CONTEXT)) (IL:SETQ *PRINT-ESCAPE* T) (IL:SETQ *PRINT-GENSYM* T) (IL:SETQ *PRINT-RADIX* NIL)))) (IL:PUTPROPS SELECT-COMMENT-INDENT IL:MACRO ((KEY LEVEL-1-INDENT LEVEL-2-INDENT LEVEL-3-INDENT) ( IL:SELECTQ KEY (1 LEVEL-1-INDENT) (2 LEVEL-2-INDENT) ((3 4 5) LEVEL-3-INDENT) (IL:SHOULDNT "unexpected comment level")))) (IL:PUTPROPS SET-COMMENT-POSITIONS IL:MACRO ((COMMENT-START-X COMMENT-INDENT FORM-INDENT PAREN-WIDTH NODE CONTEXT) (COND ((IL:IGEQ (IL:IPLUS FORM-INDENT (IL:|fetch| COMMENT-WIDTH IL:|of| CONTEXT)) ( IL:|fetch| RIGHT-MARGIN IL:|of| NODE)) (IL:SETQ COMMENT-START-X (IL:IPLUS (IL:|fetch| START-X IL:|of| NODE) PAREN-WIDTH)) (IL:SETQ COMMENT-INDENT COMMENT-START-X)) (T (IL:SETQ COMMENT-START-X ( IL:IDIFFERENCE (IL:|fetch| RIGHT-MARGIN IL:|of| NODE) (IL:|fetch| COMMENT-WIDTH IL:|of| CONTEXT))) ( IL:SETQ COMMENT-INDENT (IL:IPLUS COMMENT-START-X (IL:|fetch| COMMENT-SEPARATION IL:|of| CONTEXT))))))) (IL:PUTPROPS SET-SELECTION-NOWHERE IL:MACRO ((SELECTION) (IL:|replace| SELECT-NODE IL:|of| SELECTION IL:|with| NIL))) (DEFMACRO CREATE-WEAK-LINK (DEST) (IL:BQUOTE (IL:|create| WEAK-LINK DESTINATION IL:_ (IL:\\\, DEST)))) (IL:PUTPROPS ADVANCE IL:MACRO ((WIDTH) (IL:|add| (IL:|fetch| CURRENT-X IL:|of| CONTEXT) WIDTH))) (IL:PUTPROPS CLOSE-OPEN-NODE IL:MACRO ((CONTEXT) (WHEN (IL:|fetch| OPEN-NODE-CHANGED? IL:|of| CONTEXT) (CLOSE-NODE CONTEXT)))) (IL:PUTPROPS DEAD-NODE? IL:MACRO ((NODE) (EQ 0 (IL:|fetch| DEPTH IL:|of| NODE)))) (IL:PUTPROPS END-UNDO-BLOCK IL:MACRO (NIL (COLLECT-UNDO-BLOCK CONTEXT))) (IL:PUTPROPS ESCAPE-CHAR IL:MACRO ((READ-TABLE) (IL:|fetch| (READTABLEP IL:ESCAPECHAR) IL:|of| (OR READ-TABLE *READTABLE*)))) (IL:PUTPROPS EQ-POINT-TYPE IL:MACRO ((POINT TYPE) (LET ((POINTNODE (IL:|fetch| POINT-NODE IL:|of| POINT))) (IF (IL:|type?| EDIT-SELECTION POINTNODE) (EQ (IL:|fetch| NODE-TYPE IL:|of| (IL:|fetch| SELECT-NODE IL:|of| POINTNODE)) TYPE) (EQ (IL:|fetch| NODE-TYPE IL:|of| POINTNODE) TYPE))))) (IL:PUTPROPS NEXT-LINEAR IL:MACRO ((CONTEXT ITEM) (AND (IL:LISTP (IL:|fetch| LINEAR-POINTER IL:|of| CONTEXT)) (EQ (CAR (IL:|fetch| LINEAR-POINTER IL:|of| CONTEXT)) ITEM)))) (IL:PUTPROPS SET-LINEAR IL:MACRO (IL:OPENLAMBDA (CONTEXT NEW-LPTR) (IL:|replace| LINEAR-POINTER IL:|of| CONTEXT IL:|with| NEW-LPTR) (IF (IL:LISTP (IL:|fetch| LINEAR-PREV IL:|of| CONTEXT)) (RPLACD (IL:|fetch| LINEAR-PREV IL:|of| CONTEXT) NEW-LPTR) (IL:|replace| LINEAR-FORM IL:|of| (IL:|fetch| LINEAR-PREV IL:|of| CONTEXT) IL:|with| NEW-LPTR)))) (IL:PUTPROPS START-UNDO-BLOCK IL:MACRO (NIL (IL:|push| (IL:|fetch| UNDO-LIST IL:|of| CONTEXT) NIL))) (IL:PUTPROPS STEP-LINEAR IL:MACRO ((CONTEXT) (IL:|replace| LINEAR-POINTER IL:|of| CONTEXT IL:|with| ( CDR (IL:|replace| LINEAR-PREV IL:|of| CONTEXT IL:|with| (IL:|fetch| LINEAR-POINTER IL:|of| CONTEXT)))) )) (IL:PUTPROPS SUBNODE IL:MACRO (X (IF (EQ (CAR X) 1) (LIST (QUOTE CADR) (LIST (QUOTE IL:FETCH) (QUOTE SUB-NODES) (CADR X))) (LIST (QUOTE CADR) (LIST (QUOTE IL:NTH) (LIST (QUOTE IL:FETCH) (QUOTE SUB-NODES) (CADR X)) (CAR X)))))) (IL:PUTPROPS UNDO-BY IL:MACRO (INFO (LIST (QUOTE IL:PUSH) (QUOTE (IL:|fetch| UNDO-LIST IL:|of| CONTEXT )) (LIST* (QUOTE LIST) (IL:KWOTE (CAR INFO)) (CDR INFO))))) (IL:PUTPROPS ZAP-CLISP-TRANSLATION IL:MACRO ((X) (AND IL:CLISPARRAY (IL:PUTHASH X NIL IL:CLISPARRAY))) ) (IL:PUTPROPS SMASH-USING IL:MACRO (X (IL:|bind| (SRC IL:_ (IF (IL:ATOM (CADDR X)) (CADDR X) (QUOTE $$SOURCE))) DEST (DESCR IL:_ (IL:GETDESCRIPTORS (CAR X))) IL:|first| (IL:SETQ DEST (LIST (QUOTE IL:REPLACEFIELDVAL) (LIST (QUOTE QUOTE) (CAR DESCR)) (CADR X) (LIST (QUOTE IL:FETCHFIELD) (LIST (QUOTE QUOTE) (CAR DESCR)) SRC))) (IL:SETQ DESCR (CDR DESCR)) IL:|while| DESCR IL:|do| (IL:SETQ DEST (LIST ( QUOTE IL:FREPLACEFIELDVAL) (LIST (QUOTE QUOTE) (CAR DESCR)) DEST (LIST (QUOTE IL:FETCHFIELD) (LIST ( QUOTE QUOTE) (CAR DESCR)) SRC))) (IL:SETQ DESCR (CDR DESCR)) IL:|finally| (WHEN (NOT (IL:ATOM (CADDR X ))) (IL:SETQ DEST (LIST (QUOTE LET) (LIST (LIST (QUOTE $$SOURCE) (CADDR X))) DEST))) (RETURN DEST)))) (IL:PUTPROPS IL:HALF IL:MACRO ((IL:X) (IL:LRSH IL:X 1))) (DEFPARAMETER *IL-CL-CONFLICTS* (QUOTE (IL:*PRINT-STRUCTURE* IL:* IL:APPEND IL:APPLY IL:ASSOC IL:ATOM IL:BLOCK IL:CHARACTER IL:EQUAL IL:ERROR IL:FLOATP IL:FORMAT IL:FUNCTION IL:GETHASH IL:IF IL:LAMBDA IL:LENGTH IL:LISTP IL:MAPCAR IL:NTH IL:NUMBER IL:NUMBERP IL:PRIN1 IL:READ IL:REVERSE IL:SETQ IL:SPACE IL:STRINGP IL:TERPRI))) (DEFPARAMETER *IL-IMPORTS* (QUOTE (IL:\" IL:$$ITERATE IL:$$LST1 IL:$$OUT IL:\( IL:*DISPLAY-EDITOR* IL:\, IL:\. IL:.P2 IL:/DECLAREDATATYPE IL:\; IL:|;;| IL:|;;;| IL:? IL:ACCESSFNS IL:ADD.PROCESS IL:ADD1 IL:ADDSPELL IL:ADDSPELLFLG IL:ADDTOVAR IL:ALIST IL:ALISTS IL:ALLOCSTRING IL:APPLY* IL:ASCENT IL:ATM IL:ATTACHWINDOW IL:AWAIT.EVENT IL:BASE IL:BITBLT IL:BITMAPHEIGHT IL:BITMAPS IL:BITMAPWIDTH IL:BITS IL:BKSYSBUF IL:BLACKSHADE IL:BLTSHADE IL:BOLD IL:BOLDFONT IL:BOTTOM IL:BOX IL:BQUOTE IL:BS IL:BUTTONEVENTFN IL:BUTTONS IL:C IL:CASEINSENSITIVE IL:CCODEP IL:CHANGENAME IL:CHANGEOFFSETFLG IL:CHARCODE IL:CHARDELETE IL:CHARWIDTH IL:CHCON1 IL:CLEARBUF IL:CLEARW IL:CLISP\: IL:CLISPARRAY IL:CLISPFONT IL:CLISPTRAN IL:CLISPWORD IL:CLOCK IL:CLOSEFN IL:CLOSEW IL:COLUMN IL:COLUMNSPACE IL:COMMA IL:COMMENTFLG IL:COMMENTFONT IL:COMS IL:COMTAIL IL:CONCAT IL:CONCATLIST IL:CONSTANT IL:CONSTANTS IL:CONTROL IL:COPY IL:COPYALL IL:COPYRIGHT IL:COPYTERMTABLE IL:CR IL:CREATE IL:CREATE.EVENT IL:CREATE.MONITORLOCK IL:CREATEREGION IL:CREATEW IL:CTRL IL:CTRLV IL:CURSORCREATE IL:DATATYPE IL:DATE IL:DATUM IL:DECLARATIONS\: IL:DECLARE\: IL:DEFAULTFONT IL:DEFINEQ IL:DEL IL:DESCENT IL:DOCOPY IL:DOEVAL@COMPILE IL:DON\'T IL:DONTCOPY IL:DONTEVAL@LOAD IL:DONTWAIT IL:DOWINDOWCOM IL:DREMOVE IL:DREVERSE IL:DSP IL:DSPCLIPPINGREGION IL:DSPFONT IL:DSPLINEFEED IL:DSPRIGHTMARGIN IL:DSPXOFFSET IL:DSPXPOSITION IL:DSPYOFFSET IL:|Definition-for-EDITDATE| IL:|Definition-for-EDITE| IL:|Definition-for-EDITL| IL:E IL:ECHOMODE IL:EDIT IL:EDITCHANGES IL:EDITFERROR IL:EDITGETD IL:EDITMACROS IL:EDITMODE IL:ENVIRONMENT IL:EOL IL:EQMEMB IL:ERSETQ IL:ESC IL:ESCAPE IL:ESCAPECHAR IL:EVAL@COMPILE IL:EVALV IL:EXPANDFN IL:EXPANDREGIONFN IL:EXPANDW IL:EXPR IL:EXTENT IL:FCHARACTER IL:FETCHFIELD IL:FILECREATED IL:FILEMAP IL:FILEPKGFLG IL:FILES IL:FILESLOAD IL:FILETYPE IL:FIND.PROCESS IL:FIXEDITDATE IL:FIXP IL:FIXR IL:FLAG IL:FLAGBITS IL:FLASHWINDOW IL:FLENGTH IL:FM.CHANGELABEL IL:FM.CHANGESTATE IL:FM.DONTRESHAPE IL:FM.EDITITEM IL:FM.GETITEM IL:FM.ITEMPROP IL:FM.RESETMENU IL:FMEMB IL:FN IL:FNS IL:FONT IL:FONTCREATE IL:FONTPROP IL:FORM IL:FORWORD IL:FREEMENU IL:FREPLACEFIELDVAL IL:FULLXPOINTER IL:FUNCTIONS IL:GACHA IL:GETD IL:GETDEF IL:GETDESCRIPTORS IL:GETPROMPTWINDOW IL:GETPROP IL:GETPROPLIST IL:GETREGION IL:GETSYNTAX IL:GLOBALVARS IL:GROUP IL:HALF IL:HEIGHT IL:HEIGHTIFWINDOW IL:HELVETICA IL:ICON IL:ICONWINDOW IL:ID IL:IDIFFERENCE IL:IFWORD IL:IGEQ IL:IGREATERP IL:ILEQ IL:ILESSP IL:IMAX IL:IMIN IL:IMINUS IL:IN/SCROLL/BAR? IL:INNERESCQUOTE IL:INFOHOOK IL:INITRECORDS IL:INITVARS IL:INPUT IL:INSIDEP IL:INTERPRESS IL:INVERT IL:IPLUS IL:IQUOTIENT IL:ITALICFONT IL:ITEM IL:ITEMS IL:ITEMWIDTH IL:ITIMES IL:KEYACTION IL:KEYACTIONTABLE IL:KEYBOARDSTREAM IL:KEYDOWNP IL:KWOTE IL:L IL:L-CASE IL:LABEL IL:LASTMOUSESTATE IL:LASTMOUSEX IL:LASTMOUSEY IL:LCONC IL:LEFT IL:LEFTBRACKET IL:LEFTPAREN IL:LEQ IL:LINEDELETE IL:LINKS IL:LISTGET IL:LISTPUT IL:LITATOM IL:LOCALCLOSE IL:LOCALVARS IL:LRSH IL:MACRO IL:MACROS IL:MAINWINDOW IL:MAKEFILE-ENVIRONMENT IL:MARKASCHANGED IL:MARKASCHANGEDFNS IL:MASK IL:MAXWIDTH IL:MEMB IL:MENU IL:MENUFONT IL:MENUOFFSET IL:MESS IL:MICASPERPT IL:MIDDLE IL:MKSTRING IL:MOUSE IL:MOUSECONFIRM IL:MOUSESTATE IL:MOVE IL:MOVETO IL:MULTESCAPECHAR IL:MULTIPLE-ESCAPE IL:NAME IL:NCHARS IL:NCONC1 IL:NEQ IL:NILL IL:NLAMBDA IL:NLISTP IL:NLSETQ IL:NOBIND IL:NONE IL:NOTIFY.EVENT IL:NTHCHARCODE IL:OBTAIN.MONITORLOCK IL:OFFST IL:OPENLAMBDA IL:OPENSTRINGSTREAM IL:OPENWP IL:P IL:PACKAGEDELIM IL:PAINT IL:POINTER IL:PRETTYCOMPRINT IL:PRIN2 IL:PROCESS IL:PROCESS.APPLY IL:PROCESS.EVAL IL:PROCESS.EVALV IL:PROCESSP IL:PROCESSPROP IL:PROCTYPEAHEAD IL:PROMPTFORWORD IL:PROMPTWINDOW IL:PROP IL:PROPLST IL:PROPS IL:PUTD IL:PUTDEF IL:PUTHASH IL:PUTPROP IL:PUTPROPS IL:QUOTIENT IL:READCODE IL:READP IL:READSA IL:RECORD IL:RECORDS IL:RECORDTRAN IL:REDISPLAYW IL:REGION IL:REJECTMAINCOMS IL:RELEASE.MONITORLOCK IL:RELMOVETO IL:REPAINTFN IL:REPLACEFIELDVAL IL:REPOSITIONATTACHEDWINDOWS IL:RESETLST IL:RESETSAVE IL:RESETVAR IL:RESHAPEFN IL:RESTARTABLE IL:RETFROM IL:RETYPE IL:RIGHT IL:RIGHTBRACKET IL:RIGHTBUTTONFN IL:RIGHTPAREN IL:ROWSPACE IL:RPAQ IL:RPAQ? IL:RPAQQ IL:RPLCHARCODE IL:RPLNODE2 IL:RPLSTRING IL:SCROLL.HANDLER IL:SCROLLBYREPAINTFN IL:SCROLLEXTENTUSE IL:SCROLLFN IL:SCROLLW IL:SELCHARQ IL:SELECTEDFN IL:SELECTQ IL:SEPRCHAR IL:SETFS IL:SETINTERRUPT IL:SETPROPLIST IL:SETSYNTAX IL:SETTERMTABLE IL:SHAPEW IL:SHIFT IL:SHIFTDOWNP IL:SHOULDNT IL:SHRINKFN IL:SMALLP IL:SMARTARGLIST IL:SP IL:SPECVARS IL:SPELLFILE IL:STATE IL:STKPOS IL:STREQUAL IL:STRINGDELIM IL:STRINGWIDTH IL:STRPOS IL:SUB1 IL:SUBSTRING IL:SYSRECORDS IL:SYSTEMRECLST IL:TAB IL:TABLE IL:TAIL IL:TCONC IL:TEDIT.INSERT IL:TEDIT.PARALOOKS IL:THIS.PROCESS IL:TIMES IL:TITLE IL:TITLEDICON IL:TITLEDICONW IL:TITLEREG IL:TOP IL:TOTOPW IL:TTY.PROCESS IL:TTY.PROCESSP IL:TTY/EDITDATE IL:TTY/EDITE IL:TTY/EDITL IL:TTY\: IL:TTYDISPLAYSTREAM IL:TTYEXITFN IL:TYPENAME IL:U-CASE IL:UNTILMOUSESTATE IL:UP IL:USEDFREE IL:VARIABLES IL:VARS IL:VARTYPE IL:WAIT.FOR.TTY IL:WHITESHADE IL:WIDTH IL:WINDOW IL:WINDOWADDPROP IL:WINDOWENTRYFN IL:WINDOWPROP IL:WINDOWREGION IL:WITH.MONITOR IL:WORD IL:WORDDELETE IL:WXOFFSET IL:WYOFFSET IL:X IL:Y IL:[ IL:\\\, IL:\\\,. IL:\\\,@ IL:\\ADDBASE IL:\\BACKGROUND IL:\\BLT IL:\\BLTCHAR IL:\\CARET.CREATE IL:\\CARET.DOWN IL:\\CARET.FLASH? IL:\\DEFAULTKEYACTION IL:\\DTEST IL:\\GETBASE IL:\\GETSYSBUF IL:\\KEYBOARD.STREAM IL:\\LINEBUF.OFD IL:\\PUTBASE IL:\\SAVEVMBACKGROUND IL:\\SYNCODE IL:] IL:^ IL:_ IL:ADD IL:ALWAYS IL:AS IL:BIND IL:BY IL:CHANGE IL:|changes| IL:COLLECT IL:COUNT IL:CREATE IL:|date:| IL:DO IL:EACHTIME IL:ELSE IL:ELSEIF IL:FETCH IL:FFETCH IL:FINALLY IL:FIRST IL:FOR IL:FREPLACE IL:FROM WHEN IL:IN IL:INSTRING IL:JOIN IL:LARGEST IL:NEVER IL:OF IL:OLD IL:ON IL:OUTOF IL:POP IL:|previous| IL:|printout| IL:PUSH IL:PUSHNEW IL:REPEATUNTIL IL:REPEATWHILE IL:REPLACE IL:SMALLEST IL:SUM IL:THEN IL:THEREIS IL:TO IL:|to:| IL:TYPE? IL:UNLESS IL:UNTIL IL:USING IL:WHEN IL:WHERE IL:WHILE IL:WITH IL:{ IL:}))) (IL:|printout| T T "EXPORTS.ALL must be loaded to compile SEdit" T) (IL:|printout| T T "SEDIT-ACCESS must be REMADE NEW if you change a record" T) (IL:PUTPROPS IL:SEDIT-DECLS IL:COPYRIGHT ("Venue & Xerox Corporation" 1987 1988 1990 1993)) NIL \ No newline at end of file +(DEFINE-FILE-INFO PACKAGE (DEFPACKAGE SEDIT (USE LISP XCL)) READTABLE "XCL" BASE 10) + +(IL:FILECREATED " 1-Dec-2021 23:12:16" ("compiled on " +IL:|{DSK}kaplan>Local>medley3.5>my-medley>sources>SEDIT-DECLS.;2|) " 1-Dec-2021 22:55:38" +"COMPILE-FILEd" IL:|in| "FULL 1-Dec-2021 ..." IL:|dated| " 1-Dec-2021 22:55:43") +(IL:FILECREATED " 1-Dec-2021 20:02:36" +IL:|{DSK}kaplan>Local>medley3.5>my-medley>sources>SEDIT-DECLS.;2| 48072 IL:|changes| IL:|to:| ( +IL:RECORDS EDIT-CONTEXT) IL:|previous| IL:|date:| "19-Jan-93 11:18:34" +IL:|{DSK}kaplan>Local>medley3.5>my-medley>sources>SEDIT-DECLS.;1|) +(IL:RPAQQ IL:SEDIT-DECLSCOMS ((IL:PROP IL:FILETYPE IL:SEDIT-DECLS) (IL:PROP IL:MAKEFILE-ENVIRONMENT +IL:SEDIT-DECLS) (IL:* IL:|;;;| +"This file is for declaring things which are shared among sedit files. This file is loaded at compile time by each sedit file, but the contents of this file are not copied into any of the compiled files. The RECORDS declarations are here, and they are INITRECORDed and SYSRECORDed in SEDIT-ACCESS. If you change a record, make sure sedit-access gets remade NEW. All GLOBALVARS declarations are done here, because they're needed at compile time, but the actual variable declarations are done in the appropriate file. Constants and Macros are declared here only if they are shared among files; otherwise they can remain in the appropriate file. " +) (IL:RECORDS BROKEN-ATOM EDIT-CONTEXT EDIT-ENV EDIT-NODE EDIT-NODE-TYPE EDIT-POINT EDIT-SELECTION GAP + LINE-BLOCK LINE-START LIST-FORMAT OPEN-STRING STRING-ITEM WEAK-LINK) (IL:* IL:|;;| +"interface globalvars") (IL:GLOBALVARS CONVERT-UPGRADE KEEP-WINDOW-REGION CONTEXTS +LISP-EDIT-ENVIRONMENT LIST-FORMATS-TABLE PRETTY-PRINT-ENV REGIONS) (IL:* IL:|;;| "shared globalvars") +(IL:GLOBALVARS IL:BOLDFONT IL:CLISPFONT IL:COMMENTFLG IL:COMMENTFONT IL:DEFAULTFONT IL:PROMPTWINDOW +IL:ITALICFONT ARGS-GAP ATOM-CARET BASIC-GAP BODY-GAP BUTTON-STRING BUTTON-STRING-NODE STRUCTURE-CARET +CLISP-INDENT-WORDS CLISP-PROGRAM-WORDS COMMAND-TABLE-SPEC LIST-PARSE-INFO TERMINAL-TABLE TEMP-POINT +TEMP-SELECTION TYPE-CLISP TYPE-COMMENT TYPE-COMMENT-WORD TYPE-DOTLIST TYPE-GAP TYPE-LIST TYPE-LITATOM +TYPE-QUOTE TYPE-ROOT TYPE-STRING TYPE-UNKNOWN TYPES ARGS-BITMAP BODY-BITMAP GAP-BITMAP) (IL:* IL:|;;| +"window file globalvars") (IL:GLOBALVARS TITLED-ICON SELECTION-PENDING? PENDING-SELECTION +INITIAL-SELECTION SCRATCH-SELECTION PENDING-CARET PENDING-LAST-X PENDING-LAST-Y PENDING-TYPE +PENDING-SHIFT LAST-MOVE-CLOCK BUTTON-STRING-NODE) (IL:* IL:|;;| "command file globalvars") ( +IL:GLOBALVARS MENUS MENU-DESCRIPTION MUTATE-CANDIDATE PACKAGE-CANDIDATE PRINTBASE-CANDIDATE +FIND-CANDIDATE SUBSTITUTE-CANDIDATE) (IL:* IL:|;;| "random constants") (IL:CONSTANTS (EDITOR-NAME +"SEdit") (IL:MICASPERPT 35.27778) (QUOTE-WRAPPER-LIST (QUOTE (QUOTE QUOTE IL:BQUOTE IL:BQUOTE IL:COMMA + IL:\\\, COMMA-AT IL:\\\,@ COMMA-DOT IL:\\\,. FUNCTION FUNCTION)))) (IL:* IL:|;;| "random macros") ( +IL:MACROS GET-PROMPT-WINDOW EVAL-IN-PROCESS LOOKUP-COMMAND QUOTE-WRAPPER QUOTE-WRAPPER-NAME +REPAINT-NEW-LINE RESET-CONTROL-VARIABLES SELECT-COMMENT-INDENT SET-COMMENT-POSITIONS +SET-SELECTION-NOWHERE) (IL:* IL:|;;| "kernel macros") (IL:FUNCTIONS CREATE-WEAK-LINK) (IL:MACROS +ADVANCE CLOSE-OPEN-NODE DEAD-NODE? END-UNDO-BLOCK ESCAPE-CHAR EQ-POINT-TYPE NEXT-LINEAR SET-LINEAR +START-UNDO-BLOCK STEP-LINEAR SUBNODE UNDO-BY ZAP-CLISP-TRANSLATION SMASH-USING IL:HALF) (IL:* IL:|;;| +"the symbols that come from interlisp, divided into those that conflict with CL symbols and those that don't. The SEDIT package declaration in the makefile-environment for all these files need not actually import any of these symbols, it just makes the functions easier to edit if you do cause then you don't need so many IL: prefixes." +) (IL:VARIABLES *IL-CL-CONFLICTS* *IL-IMPORTS*) (IL:* IL:|;;| "and a little reminder:") (IL:P ( +IL:|printout| T T "EXPORTS.ALL must be loaded to compile SEdit" T) (IL:|printout| T T +"SEDIT-ACCESS must be REMADE NEW if you change a record" T)))) +(IL:PUTPROPS IL:SEDIT-DECLS IL:FILETYPE :COMPILE-FILE) +(IL:PUTPROPS IL:SEDIT-DECLS IL:MAKEFILE-ENVIRONMENT (:READTABLE "XCL" :PACKAGE (DEFPACKAGE IL:SEDIT ( +:USE IL:LISP IL:XCL)))) +(IL:DATATYPE BROKEN-ATOM (ATOM-CHARS)) +(IL:DATATYPE EDIT-CONTEXT (ENVIRONMENT PROFILE EVAL-FN EVAL-IN-PROCESS CONTEXT-LOCK COMPLETION-EVENT +EDIT-TYPE ICON-TITLE EDIT-OPTIONS COMMENT-WIDTH COMMENT-SEPARATION FIND-CANDIDATE SUBSTITUTE-CANDIDATE + DISPLAY-WINDOW WINDOW-LEFT WINDOW-BOTTOM WINDOW-RIGHT WINDOW-TOP ROOT ROOT-CHANGED-FN COMPLETION-FN +CHANGED-STRUCTURE? (DONT-COLLECT-CHANGES? IL:FLAG) CHANGED-NODES OPEN-NODE-CHANGED? OPEN-NODE +OPEN-NODE-INFO ATOM-STARTED ATOM-STARTED-UNDO-POINTER UNDO-LIST UNDO-UNDO-LIST CARET CARET-POINT +SELECTION SELECTION-DISPLAYED? (CURRENT-NODE IL:FULLXPOINTER) CURRENT-X (CURRENT-LINE IL:FULLXPOINTER) + (LAST-LINEARIZED-SUB-NODE-INDEX IL:WORD) (LINEAR-POINTER IL:FULLXPOINTER) (LINEAR-PREV IL:FULLXPOINTER +) LAST-MOUSE-X LAST-MOUSE-Y LAST-MOUSE-TYPE \\X \\Y \\Z \\T FIRST-BLOCK CURRENT-BLOCK MATCHING? BELOW? + VISIBLE? (REPAINT-START IL:FULLXPOINTER) (REPAINT-LINE IL:FULLXPOINTER) REPAINT-X +RELINEARIZATION-TIME-STAMP SHIFT-Y SHIFT-DOWN SHIFT-RIGHT PROPS) CHANGED-NODES IL:_ (CONS)) +(IL:DATATYPE EDIT-ENV (PARSE-INFO PARSE-INFO-UNKNOWN USER-DATA DEFAULT-FONT ITALIC-FONT KEYWORD-FONT +COMMENT-FONT BROKEN-ATOM-FONT SPACE-WIDTH DEFAULT-LINE-SKIP EM-WIDTH INDENT-BASE INDENT-STEP MAX-WIDTH + COMMENT-WIDTH-PERCENT INIT-COMMENT-SEPARATION LPAREN-STRING RPAREN-STRING DOT-STRING QUOTE-STRING +COMMENT-STRING COMMAND-TABLE DEFAULT-CHAR-HANDLER HELP-MENU)) +(IL:DATATYPE EDIT-NODE ((NODE-TYPE IL:FULLXPOINTER) FORMAT UNASSIGNED (SUPER-NODE IL:FULLXPOINTER) ( +DEPTH IL:WORD) (SUB-NODE-INDEX IL:WORD) STRUCTURE SUB-NODES (LINEAR-THREAD IL:FULLXPOINTER) +LINEAR-FORM (START-X IL:WORD) (RIGHT-MARGIN IL:WORD) (PREFERRED-WIDTH IL:WORD) (ACTUAL-WIDTH IL:WORD) +(CHANGED? IL:FLAG) INLINE-WIDTH ACTUAL-LLENGTH FIRST-LINE LAST-LINE) (IL:ACCESSFNS (INLINE? (EQ ( +IL:|fetch| FIRST-LINE IL:|of| IL:DATUM) (IL:|fetch| LAST-LINE IL:|of| IL:DATUM)))) FORMAT IL:_ (QUOTE +NOT-YET-ASSIGNED)) +(IL:DATATYPE EDIT-NODE-TYPE (NAME ASSIGN-FORMAT COMPUTE-FORMAT-VALUES LINEARIZE SUB-NODE-CHANGED +SET-POINT COMPUTE-POINT-POSITION COMPUTE-SELECTION-POSITION SET-SELECTION GROW-SELECTION +SELECT-SEGMENT INSERT DELETE COPY-STRUCTURE COPY-SELECTION STRINGIFY BACK-SPACE CLOSE-NODE)) +(IL:DATATYPE EDIT-POINT ((POINT-NODE IL:FULLXPOINTER) POINT-INDEX POINT-TYPE POINT-X (POINT-LINE +IL:FULLXPOINTER) POINT-STRING POINT-OFFSET)) +(IL:DATATYPE EDIT-SELECTION ((SELECT-NODE IL:FULLXPOINTER) SELECT-START SELECT-END SELECT-TYPE +DELETE-OK? PENDING-DELETE? SELECT-START-X (SELECT-START-LINE IL:FULLXPOINTER) SELECT-END-X ( +SELECT-END-LINE IL:FULLXPOINTER) SELECT-STRING SELECT-START-OFFSET SELECT-END-OFFSET)) +(IL:DATATYPE GAP (LINEAR-ITEM)) +(IL:DATATYPE LINE-BLOCK ((BLOCK-START IL:FULLXPOINTER) BLOCK-NEW-X BLOCK-WIDTH NEXT-BLOCK BITS? +BLOCK-X BLOCK-BASE-LINE BLOCK-ASCENT BLOCK-DESCENT)) +(IL:DATATYPE LINE-START ((NEXT-LINE IL:FULLXPOINTER) (PREV-LINE IL:FULLXPOINTER) (NODE IL:FULLXPOINTER +) (LINE-ASCENT IL:WORD) (LINE-DESCENT IL:WORD) (LINE-SKIP IL:WORD) (LINE-LENGTH IL:WORD) (INDENT IL:WORD +) YCOORD (CACHE-TIME IL:WORD) CACHED-Y (CACHED-ASCENT IL:WORD) (CACHED-DESCENT IL:WORD)) (IL:ACCESSFNS + (LINE-HEIGHT (IL:IPLUS (IL:FETCH LINE-SKIP IL:OF IL:DATUM) (IL:FETCH LINE-ASCENT IL:OF IL:DATUM) ( +IL:FETCH LINE-DESCENT IL:OF IL:DATUM)))) (IL:ACCESSFNS (BASE-LINE-Y (IL:IDIFFERENCE (IL:ADD1 (IL:FETCH + YCOORD IL:OF IL:DATUM)) (IL:IPLUS (IL:FETCH LINE-SKIP IL:OF IL:DATUM) (IL:FETCH LINE-ASCENT IL:OF +IL:DATUM))))) (IL:ACCESSFNS (NEXT-LINE-Y (IL:IDIFFERENCE (IL:FETCH YCOORD IL:OF IL:DATUM) (IL:FETCH +LINE-HEIGHT IL:OF IL:DATUM)))) (IL:ACCESSFNS (OLD-TOP (IF (EQ (IL:FETCH CACHE-TIME IL:OF IL:DATUM) ( +IL:|fetch| RELINEARIZATION-TIME-STAMP IL:|of| CONTEXT)) (IL:SUB1 (IL:IPLUS (IL:FETCH CACHED-Y IL:OF +IL:DATUM) (IL:FETCH CACHED-ASCENT IL:OF IL:DATUM))) (IL:FETCH YCOORD IL:OF IL:DATUM)))) (IL:ACCESSFNS +(OLD-BOTTOM (IF (EQ (IL:FETCH CACHE-TIME IL:OF IL:DATUM) (IL:|fetch| RELINEARIZATION-TIME-STAMP IL:|of| + CONTEXT)) (IL:IDIFFERENCE (IL:FETCH CACHED-Y IL:OF IL:DATUM) (IL:FETCH CACHED-DESCENT IL:OF IL:DATUM) +) (IL:ADD1 (IL:FETCH NEXT-LINE-Y IL:OF IL:DATUM)))))) +(IL:DATATYPE LIST-FORMAT (LIST-FORMATS LIST-INLINE? LIST-PFORMAT LIST-MFORMAT LIST-SUBLISTS) ( +IL:ACCESSFNS (NON-STANDARD? (NULL (IL:|fetch| LIST-FORMATS IL:|of| IL:DATUM)))) (IL:ACCESSFNS ( +SET-FORMAT-LIST (IL:|fetch| LIST-INLINE? IL:|of| IL:DATUM))) (IL:ACCESSFNS (CFVLIST (IL:|fetch| +LIST-PFORMAT IL:|of| IL:DATUM))) (IL:ACCESSFNS (LINEARIZE-LIST (IL:|fetch| LIST-MFORMAT IL:|of| IL:DATUM +))) LIST-SUBLISTS IL:_ NIL) +(IL:RECORD OPEN-STRING (REAL-LENGTH SUBSTRING . BUFFER-STRING)) +(IL:DATATYPE STRING-ITEM (STRING (WIDTH IL:WORD) (FONT IL:FULLXPOINTER) (PRIN-2? IL:FLAG))) +(IL:DATATYPE WEAK-LINK ((DESTINATION IL:FULLXPOINTER))) +(IL:/DECLAREDATATYPE (QUOTE BROKEN-ATOM) (QUOTE (IL:POINTER)) (QUOTE ((BROKEN-ATOM 0 IL:POINTER))) ( +QUOTE 2)) +(IL:/DECLAREDATATYPE (QUOTE EDIT-CONTEXT) (QUOTE (IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER + IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER +IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:FLAG +IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER +IL:POINTER IL:POINTER IL:POINTER IL:FULLXPOINTER IL:POINTER IL:FULLXPOINTER IL:WORD IL:FULLXPOINTER +IL:FULLXPOINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER + IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:FULLXPOINTER IL:FULLXPOINTER IL:POINTER IL:POINTER +IL:POINTER IL:POINTER IL:POINTER IL:POINTER)) (QUOTE ((EDIT-CONTEXT 0 IL:POINTER) (EDIT-CONTEXT 2 +IL:POINTER) (EDIT-CONTEXT 4 IL:POINTER) (EDIT-CONTEXT 6 IL:POINTER) (EDIT-CONTEXT 8 IL:POINTER) ( +EDIT-CONTEXT 10 IL:POINTER) (EDIT-CONTEXT 12 IL:POINTER) (EDIT-CONTEXT 14 IL:POINTER) (EDIT-CONTEXT 16 + IL:POINTER) (EDIT-CONTEXT 18 IL:POINTER) (EDIT-CONTEXT 20 IL:POINTER) (EDIT-CONTEXT 22 IL:POINTER) ( +EDIT-CONTEXT 24 IL:POINTER) (EDIT-CONTEXT 26 IL:POINTER) (EDIT-CONTEXT 28 IL:POINTER) (EDIT-CONTEXT 30 + IL:POINTER) (EDIT-CONTEXT 32 IL:POINTER) (EDIT-CONTEXT 34 IL:POINTER) (EDIT-CONTEXT 36 IL:POINTER) ( +EDIT-CONTEXT 38 IL:POINTER) (EDIT-CONTEXT 40 IL:POINTER) (EDIT-CONTEXT 42 IL:POINTER) (EDIT-CONTEXT 42 + (IL:FLAGBITS . 0)) (EDIT-CONTEXT 44 IL:POINTER) (EDIT-CONTEXT 46 IL:POINTER) (EDIT-CONTEXT 48 +IL:POINTER) (EDIT-CONTEXT 50 IL:POINTER) (EDIT-CONTEXT 52 IL:POINTER) (EDIT-CONTEXT 54 IL:POINTER) ( +EDIT-CONTEXT 56 IL:POINTER) (EDIT-CONTEXT 58 IL:POINTER) (EDIT-CONTEXT 60 IL:POINTER) (EDIT-CONTEXT 62 + IL:POINTER) (EDIT-CONTEXT 64 IL:POINTER) (EDIT-CONTEXT 66 IL:POINTER) (EDIT-CONTEXT 68 IL:FULLXPOINTER +) (EDIT-CONTEXT 70 IL:POINTER) (EDIT-CONTEXT 72 IL:FULLXPOINTER) (EDIT-CONTEXT 74 (IL:BITS . 15)) ( +EDIT-CONTEXT 76 IL:FULLXPOINTER) (EDIT-CONTEXT 78 IL:FULLXPOINTER) (EDIT-CONTEXT 80 IL:POINTER) ( +EDIT-CONTEXT 82 IL:POINTER) (EDIT-CONTEXT 84 IL:POINTER) (EDIT-CONTEXT 86 IL:POINTER) (EDIT-CONTEXT 88 + IL:POINTER) (EDIT-CONTEXT 90 IL:POINTER) (EDIT-CONTEXT 92 IL:POINTER) (EDIT-CONTEXT 94 IL:POINTER) ( +EDIT-CONTEXT 96 IL:POINTER) (EDIT-CONTEXT 98 IL:POINTER) (EDIT-CONTEXT 100 IL:POINTER) (EDIT-CONTEXT +102 IL:POINTER) (EDIT-CONTEXT 104 IL:FULLXPOINTER) (EDIT-CONTEXT 106 IL:FULLXPOINTER) (EDIT-CONTEXT +108 IL:POINTER) (EDIT-CONTEXT 110 IL:POINTER) (EDIT-CONTEXT 112 IL:POINTER) (EDIT-CONTEXT 114 IL:POINTER +) (EDIT-CONTEXT 116 IL:POINTER) (EDIT-CONTEXT 118 IL:POINTER))) (QUOTE 120)) +(IL:/DECLAREDATATYPE (QUOTE EDIT-ENV) (QUOTE (IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER +IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER +IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER +IL:POINTER)) (QUOTE ((EDIT-ENV 0 IL:POINTER) (EDIT-ENV 2 IL:POINTER) (EDIT-ENV 4 IL:POINTER) (EDIT-ENV + 6 IL:POINTER) (EDIT-ENV 8 IL:POINTER) (EDIT-ENV 10 IL:POINTER) (EDIT-ENV 12 IL:POINTER) (EDIT-ENV 14 +IL:POINTER) (EDIT-ENV 16 IL:POINTER) (EDIT-ENV 18 IL:POINTER) (EDIT-ENV 20 IL:POINTER) (EDIT-ENV 22 +IL:POINTER) (EDIT-ENV 24 IL:POINTER) (EDIT-ENV 26 IL:POINTER) (EDIT-ENV 28 IL:POINTER) (EDIT-ENV 30 +IL:POINTER) (EDIT-ENV 32 IL:POINTER) (EDIT-ENV 34 IL:POINTER) (EDIT-ENV 36 IL:POINTER) (EDIT-ENV 38 +IL:POINTER) (EDIT-ENV 40 IL:POINTER) (EDIT-ENV 42 IL:POINTER) (EDIT-ENV 44 IL:POINTER) (EDIT-ENV 46 +IL:POINTER))) (QUOTE 48)) +(IL:/DECLAREDATATYPE (QUOTE EDIT-NODE) (QUOTE (IL:FULLXPOINTER IL:POINTER IL:POINTER IL:FULLXPOINTER +IL:WORD IL:WORD IL:POINTER IL:POINTER IL:FULLXPOINTER IL:POINTER IL:WORD IL:WORD IL:WORD IL:WORD IL:FLAG + IL:POINTER IL:POINTER IL:POINTER IL:POINTER)) (QUOTE ((EDIT-NODE 0 IL:FULLXPOINTER) (EDIT-NODE 2 +IL:POINTER) (EDIT-NODE 4 IL:POINTER) (EDIT-NODE 6 IL:FULLXPOINTER) (EDIT-NODE 8 (IL:BITS . 15)) ( +EDIT-NODE 9 (IL:BITS . 15)) (EDIT-NODE 10 IL:POINTER) (EDIT-NODE 12 IL:POINTER) (EDIT-NODE 14 +IL:FULLXPOINTER) (EDIT-NODE 16 IL:POINTER) (EDIT-NODE 18 (IL:BITS . 15)) (EDIT-NODE 19 (IL:BITS . 15)) + (EDIT-NODE 20 (IL:BITS . 15)) (EDIT-NODE 21 (IL:BITS . 15)) (EDIT-NODE 16 (IL:FLAGBITS . 0)) ( +EDIT-NODE 22 IL:POINTER) (EDIT-NODE 24 IL:POINTER) (EDIT-NODE 26 IL:POINTER) (EDIT-NODE 28 IL:POINTER) +)) (QUOTE 30)) +(IL:/DECLAREDATATYPE (QUOTE EDIT-NODE-TYPE) (QUOTE (IL:POINTER IL:POINTER IL:POINTER IL:POINTER +IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER +IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER)) (QUOTE ((EDIT-NODE-TYPE 0 IL:POINTER) ( +EDIT-NODE-TYPE 2 IL:POINTER) (EDIT-NODE-TYPE 4 IL:POINTER) (EDIT-NODE-TYPE 6 IL:POINTER) ( +EDIT-NODE-TYPE 8 IL:POINTER) (EDIT-NODE-TYPE 10 IL:POINTER) (EDIT-NODE-TYPE 12 IL:POINTER) ( +EDIT-NODE-TYPE 14 IL:POINTER) (EDIT-NODE-TYPE 16 IL:POINTER) (EDIT-NODE-TYPE 18 IL:POINTER) ( +EDIT-NODE-TYPE 20 IL:POINTER) (EDIT-NODE-TYPE 22 IL:POINTER) (EDIT-NODE-TYPE 24 IL:POINTER) ( +EDIT-NODE-TYPE 26 IL:POINTER) (EDIT-NODE-TYPE 28 IL:POINTER) (EDIT-NODE-TYPE 30 IL:POINTER) ( +EDIT-NODE-TYPE 32 IL:POINTER) (EDIT-NODE-TYPE 34 IL:POINTER))) (QUOTE 36)) +(IL:/DECLAREDATATYPE (QUOTE EDIT-POINT) (QUOTE (IL:FULLXPOINTER IL:POINTER IL:POINTER IL:POINTER +IL:FULLXPOINTER IL:POINTER IL:POINTER)) (QUOTE ((EDIT-POINT 0 IL:FULLXPOINTER) (EDIT-POINT 2 IL:POINTER +) (EDIT-POINT 4 IL:POINTER) (EDIT-POINT 6 IL:POINTER) (EDIT-POINT 8 IL:FULLXPOINTER) (EDIT-POINT 10 +IL:POINTER) (EDIT-POINT 12 IL:POINTER))) (QUOTE 14)) +(IL:/DECLAREDATATYPE (QUOTE EDIT-SELECTION) (QUOTE (IL:FULLXPOINTER IL:POINTER IL:POINTER IL:POINTER +IL:POINTER IL:POINTER IL:POINTER IL:FULLXPOINTER IL:POINTER IL:FULLXPOINTER IL:POINTER IL:POINTER +IL:POINTER)) (QUOTE ((EDIT-SELECTION 0 IL:FULLXPOINTER) (EDIT-SELECTION 2 IL:POINTER) (EDIT-SELECTION +4 IL:POINTER) (EDIT-SELECTION 6 IL:POINTER) (EDIT-SELECTION 8 IL:POINTER) (EDIT-SELECTION 10 IL:POINTER +) (EDIT-SELECTION 12 IL:POINTER) (EDIT-SELECTION 14 IL:FULLXPOINTER) (EDIT-SELECTION 16 IL:POINTER) ( +EDIT-SELECTION 18 IL:FULLXPOINTER) (EDIT-SELECTION 20 IL:POINTER) (EDIT-SELECTION 22 IL:POINTER) ( +EDIT-SELECTION 24 IL:POINTER))) (QUOTE 26)) +(IL:/DECLAREDATATYPE (QUOTE GAP) (QUOTE (IL:POINTER)) (QUOTE ((GAP 0 IL:POINTER))) (QUOTE 2)) +(IL:/DECLAREDATATYPE (QUOTE LINE-BLOCK) (QUOTE (IL:FULLXPOINTER IL:POINTER IL:POINTER IL:POINTER +IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER)) (QUOTE ((LINE-BLOCK 0 IL:FULLXPOINTER) ( +LINE-BLOCK 2 IL:POINTER) (LINE-BLOCK 4 IL:POINTER) (LINE-BLOCK 6 IL:POINTER) (LINE-BLOCK 8 IL:POINTER) + (LINE-BLOCK 10 IL:POINTER) (LINE-BLOCK 12 IL:POINTER) (LINE-BLOCK 14 IL:POINTER) (LINE-BLOCK 16 +IL:POINTER))) (QUOTE 18)) +(IL:/DECLAREDATATYPE (QUOTE LINE-START) (QUOTE (IL:FULLXPOINTER IL:FULLXPOINTER IL:FULLXPOINTER IL:WORD + IL:WORD IL:WORD IL:WORD IL:WORD IL:POINTER IL:WORD IL:POINTER IL:WORD IL:WORD)) (QUOTE ((LINE-START 0 + IL:FULLXPOINTER) (LINE-START 2 IL:FULLXPOINTER) (LINE-START 4 IL:FULLXPOINTER) (LINE-START 6 (IL:BITS + . 15)) (LINE-START 7 (IL:BITS . 15)) (LINE-START 8 (IL:BITS . 15)) (LINE-START 9 (IL:BITS . 15)) ( +LINE-START 10 (IL:BITS . 15)) (LINE-START 12 IL:POINTER) (LINE-START 11 (IL:BITS . 15)) (LINE-START 14 + IL:POINTER) (LINE-START 16 (IL:BITS . 15)) (LINE-START 17 (IL:BITS . 15)))) (QUOTE 18)) +(IL:/DECLAREDATATYPE (QUOTE LIST-FORMAT) (QUOTE (IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER +)) (QUOTE ((LIST-FORMAT 0 IL:POINTER) (LIST-FORMAT 2 IL:POINTER) (LIST-FORMAT 4 IL:POINTER) ( +LIST-FORMAT 6 IL:POINTER) (LIST-FORMAT 8 IL:POINTER))) (QUOTE 10)) +(IL:/DECLAREDATATYPE (QUOTE STRING-ITEM) (QUOTE (IL:POINTER IL:WORD IL:FULLXPOINTER IL:FLAG)) (QUOTE ( +(STRING-ITEM 0 IL:POINTER) (STRING-ITEM 2 (IL:BITS . 15)) (STRING-ITEM 4 IL:FULLXPOINTER) (STRING-ITEM + 3 (IL:FLAGBITS . 0)))) (QUOTE 6)) +(IL:/DECLAREDATATYPE (QUOTE WEAK-LINK) (QUOTE (IL:FULLXPOINTER)) (QUOTE ((WEAK-LINK 0 IL:FULLXPOINTER) +)) (QUOTE 2)) +(IL:RPAQ EDITOR-NAME "SEdit") +(IL:RPAQQ IL:MICASPERPT 35.27778) +(IL:RPAQQ QUOTE-WRAPPER-LIST (QUOTE QUOTE IL:BQUOTE IL:BQUOTE IL:COMMA IL:\\\, COMMA-AT IL:\\\,@ +COMMA-DOT IL:\\\,. FUNCTION FUNCTION)) +(IL:CONSTANTS (EDITOR-NAME "SEdit") (IL:MICASPERPT 35.27778) (QUOTE-WRAPPER-LIST (QUOTE (QUOTE QUOTE +IL:BQUOTE IL:BQUOTE IL:COMMA IL:\\\, COMMA-AT IL:\\\,@ COMMA-DOT IL:\\\,. FUNCTION FUNCTION)))) +(IL:PUTPROPS GET-PROMPT-WINDOW IL:MACRO ((CONTEXT) (IL:GETPROMPTWINDOW (IL:|fetch| DISPLAY-WINDOW +IL:|of| CONTEXT)))) +(IL:PUTPROPS EVAL-IN-PROCESS IL:MACRO (NIL (LET* ((PROCESS (IF (EQ (IL:PROCESSPROP (IL:THIS.PROCESS) ( +QUOTE IL:NAME)) (QUOTE IL:MOUSE)) (IL:TTY.PROCESS) (IL:THIS.PROCESS))) (PROCFORM (IL:PROCESSPROP +PROCESS (QUOTE IL:FORM)))) (COND ((EQ (CAR PROCFORM) (QUOTE SEDIT1)) (IL:|fetch| (EDIT-CONTEXT +EVAL-IN-PROCESS) IL:|of| (CADADR PROCFORM))) (T PROCESS))))) +(IL:PUTPROPS LOOKUP-COMMAND IL:MACRO ((CHAR TABLE) (GETHASH CHAR TABLE))) +(IL:PUTPROPS QUOTE-WRAPPER IL:MACRO (TYPE (COND ((AND (IL:LISTP (CAR TYPE)) (EQ (CAAR TYPE) (QUOTE +QUOTE))) (IF (IL:LISTP (CADAR TYPE)) (IL:KWOTE (IL:|for| W IL:|in| (CADAR TYPE) IL:|collect| (IL:LISTGET + QUOTE-WRAPPER-LIST W))) (IL:KWOTE (IL:LISTGET QUOTE-WRAPPER-LIST (CADAR TYPE))))) (T (IL:BQUOTE ( +IL:LISTGET QUOTE-WRAPPER-LIST (IL:\\\, (CAR TYPE)))))))) +(IL:PUTPROPS QUOTE-WRAPPER-NAME IL:MACRO ((TYPE) (IL:LISTGET (IL:CONSTANT (IL:REVERSE +QUOTE-WRAPPER-LIST)) TYPE))) +(IL:PUTPROPS REPAINT-NEW-LINE IL:MACRO (IL:OPENLAMBDA (LINE) (WHEN (IL:ILESSP (IL:|fetch| NEXT-LINE-Y +IL:|of| (CAR LINE)) (IL:|fetch| WINDOW-TOP IL:|of| CONTEXT)) (REPAINT CONTEXT (IL:|fetch| INDENT IL:|of| + (CAR LINE)) (IL:|fetch| BASE-LINE-Y IL:|of| (CAR LINE)) (CDR LINE) (IL:|fetch| LINEAR-POINTER IL:|of| + CONTEXT)) (WHEN (IL:ILESSP (IL:|fetch| NEXT-LINE-Y IL:|of| (CAR LINE)) (IL:|fetch| WINDOW-BOTTOM +IL:|of| CONTEXT)) (IL:|replace| BELOW? IL:|of| CONTEXT IL:|with| T))))) +(IL:PUTPROPS RESET-CONTROL-VARIABLES IL:MACRO ((CONTEXT) (WHEN (COMPILING-POST-KOTO) (IL:SETQ +*PACKAGE* (IL:FETCH PACKAGE IL:OF CONTEXT)) (IL:SETQ *PRINT-ARRAY* NIL) (IL:SETQ *PRINT-BASE* (IL:FETCH + PRINT-BASE IL:OF CONTEXT)) (IL:SETQ *PRINT-CASE* (IL:FETCH PRINT-CASE IL:OF CONTEXT)) (IL:SETQ +*PRINT-ESCAPE* T) (IL:SETQ *PRINT-GENSYM* T) (IL:SETQ *PRINT-RADIX* NIL)))) +(IL:PUTPROPS SELECT-COMMENT-INDENT IL:MACRO ((KEY LEVEL-1-INDENT LEVEL-2-INDENT LEVEL-3-INDENT) ( +IL:SELECTQ KEY (1 LEVEL-1-INDENT) (2 LEVEL-2-INDENT) ((3 4 5) LEVEL-3-INDENT) (IL:SHOULDNT +"unexpected comment level")))) +(IL:PUTPROPS SET-COMMENT-POSITIONS IL:MACRO ((COMMENT-START-X COMMENT-INDENT FORM-INDENT PAREN-WIDTH +NODE CONTEXT) (COND ((IL:IGEQ (IL:IPLUS FORM-INDENT (IL:|fetch| COMMENT-WIDTH IL:|of| CONTEXT)) ( +IL:|fetch| RIGHT-MARGIN IL:|of| NODE)) (IL:SETQ COMMENT-START-X (IL:IPLUS (IL:|fetch| START-X IL:|of| +NODE) PAREN-WIDTH)) (IL:SETQ COMMENT-INDENT COMMENT-START-X)) (T (IL:SETQ COMMENT-START-X ( +IL:IDIFFERENCE (IL:|fetch| RIGHT-MARGIN IL:|of| NODE) (IL:|fetch| COMMENT-WIDTH IL:|of| CONTEXT))) ( +IL:SETQ COMMENT-INDENT (IL:IPLUS COMMENT-START-X (IL:|fetch| COMMENT-SEPARATION IL:|of| CONTEXT))))))) +(IL:PUTPROPS SET-SELECTION-NOWHERE IL:MACRO ((SELECTION) (IL:|replace| SELECT-NODE IL:|of| SELECTION +IL:|with| NIL))) +|expand-CREATE-WEAK-LINK| :D8 +(IL:L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) #@ggggHhNIL +(25 IL:_ 20 DESTINATION 15 WEAK-LINK 10 IL:|create|) +() +(IL:SETF-MACRO-FUNCTION (QUOTE CREATE-WEAK-LINK) (QUOTE |expand-CREATE-WEAK-LINK|)) +(IL:PUTPROPS ADVANCE IL:MACRO ((WIDTH) (IL:|add| (IL:|fetch| CURRENT-X IL:|of| CONTEXT) WIDTH))) +(IL:PUTPROPS CLOSE-OPEN-NODE IL:MACRO ((CONTEXT) (WHEN (IL:|fetch| OPEN-NODE-CHANGED? IL:|of| CONTEXT) + (CLOSE-NODE CONTEXT)))) +(IL:PUTPROPS DEAD-NODE? IL:MACRO ((NODE) (EQ 0 (IL:|fetch| DEPTH IL:|of| NODE)))) +(IL:PUTPROPS END-UNDO-BLOCK IL:MACRO (NIL (COLLECT-UNDO-BLOCK CONTEXT))) +(IL:PUTPROPS ESCAPE-CHAR IL:MACRO ((READ-TABLE) (IL:|fetch| (READTABLEP IL:ESCAPECHAR) IL:|of| (OR +READ-TABLE *READTABLE*)))) +(IL:PUTPROPS EQ-POINT-TYPE IL:MACRO ((POINT TYPE) (LET ((POINTNODE (IL:|fetch| POINT-NODE IL:|of| +POINT))) (IF (IL:|type?| EDIT-SELECTION POINTNODE) (EQ (IL:|fetch| NODE-TYPE IL:|of| (IL:|fetch| +SELECT-NODE IL:|of| POINTNODE)) TYPE) (EQ (IL:|fetch| NODE-TYPE IL:|of| POINTNODE) TYPE))))) +(IL:PUTPROPS NEXT-LINEAR IL:MACRO ((CONTEXT ITEM) (AND (IL:LISTP (IL:|fetch| LINEAR-POINTER IL:|of| +CONTEXT)) (EQ (CAR (IL:|fetch| LINEAR-POINTER IL:|of| CONTEXT)) ITEM)))) +(IL:PUTPROPS SET-LINEAR IL:MACRO (IL:OPENLAMBDA (CONTEXT NEW-LPTR) (IL:|replace| LINEAR-POINTER IL:|of| + CONTEXT IL:|with| NEW-LPTR) (IF (IL:LISTP (IL:|fetch| LINEAR-PREV IL:|of| CONTEXT)) (RPLACD (IL:|fetch| + LINEAR-PREV IL:|of| CONTEXT) NEW-LPTR) (IL:|replace| LINEAR-FORM IL:|of| (IL:|fetch| LINEAR-PREV +IL:|of| CONTEXT) IL:|with| NEW-LPTR)))) +(IL:PUTPROPS START-UNDO-BLOCK IL:MACRO (NIL (IL:|push| (IL:|fetch| UNDO-LIST IL:|of| CONTEXT) NIL))) +(IL:PUTPROPS STEP-LINEAR IL:MACRO ((CONTEXT) (IL:|replace| LINEAR-POINTER IL:|of| CONTEXT IL:|with| ( +CDR (IL:|replace| LINEAR-PREV IL:|of| CONTEXT IL:|with| (IL:|fetch| LINEAR-POINTER IL:|of| CONTEXT)))) +)) +(IL:PUTPROPS SUBNODE IL:MACRO (X (IF (EQ (CAR X) 1) (LIST (QUOTE CADR) (LIST (QUOTE IL:FETCH) (QUOTE +SUB-NODES) (CADR X))) (LIST (QUOTE CADR) (LIST (QUOTE IL:NTH) (LIST (QUOTE IL:FETCH) (QUOTE SUB-NODES) + (CADR X)) (CAR X)))))) +(IL:PUTPROPS UNDO-BY IL:MACRO (INFO (LIST (QUOTE IL:PUSH) (QUOTE (IL:|fetch| UNDO-LIST IL:|of| CONTEXT +)) (LIST* (QUOTE LIST) (IL:KWOTE (CAR INFO)) (CDR INFO))))) +(IL:PUTPROPS ZAP-CLISP-TRANSLATION IL:MACRO ((X) (AND IL:CLISPARRAY (IL:PUTHASH X NIL IL:CLISPARRAY))) +) +(IL:PUTPROPS SMASH-USING IL:MACRO (X (IL:|bind| (SRC IL:_ (IF (IL:ATOM (CADDR X)) (CADDR X) (QUOTE +$$SOURCE))) DEST (DESCR IL:_ (IL:GETDESCRIPTORS (CAR X))) IL:|first| (IL:SETQ DEST (LIST (QUOTE +IL:REPLACEFIELDVAL) (LIST (QUOTE QUOTE) (CAR DESCR)) (CADR X) (LIST (QUOTE IL:FETCHFIELD) (LIST (QUOTE + QUOTE) (CAR DESCR)) SRC))) (IL:SETQ DESCR (CDR DESCR)) IL:|while| DESCR IL:|do| (IL:SETQ DEST (LIST ( +QUOTE IL:FREPLACEFIELDVAL) (LIST (QUOTE QUOTE) (CAR DESCR)) DEST (LIST (QUOTE IL:FETCHFIELD) (LIST ( +QUOTE QUOTE) (CAR DESCR)) SRC))) (IL:SETQ DESCR (CDR DESCR)) IL:|finally| (WHEN (NOT (IL:ATOM (CADDR X +))) (IL:SETQ DEST (LIST (QUOTE LET) (LIST (LIST (QUOTE $$SOURCE) (CADDR X))) DEST))) (RETURN DEST)))) +(IL:PUTPROPS IL:HALF IL:MACRO ((IL:X) (IL:LRSH IL:X 1))) +(PROCLAIM (QUOTE (SPECIAL *IL-CL-CONFLICTS*))) +(IL:SETQ *IL-CL-CONFLICTS* (QUOTE (IL:*PRINT-STRUCTURE* IL:* IL:APPEND IL:APPLY IL:ASSOC IL:ATOM +IL:BLOCK IL:CHARACTER IL:EQUAL IL:ERROR IL:FLOATP IL:FORMAT IL:FUNCTION IL:GETHASH IL:IF IL:LAMBDA +IL:LENGTH IL:LISTP IL:MAPCAR IL:NTH IL:NUMBER IL:NUMBERP IL:PRIN1 IL:READ IL:REVERSE IL:SETQ IL:SPACE +IL:STRINGP IL:TERPRI))) +(PROCLAIM (QUOTE (SPECIAL *IL-IMPORTS*))) +(IL:SETQ *IL-IMPORTS* (QUOTE (IL:\" IL:$$ITERATE IL:$$LST1 IL:$$OUT IL:\( IL:*DISPLAY-EDITOR* IL:\, +IL:\. IL:.P2 IL:/DECLAREDATATYPE IL:\; IL:|;;| IL:|;;;| IL:? IL:ACCESSFNS IL:ADD.PROCESS IL:ADD1 +IL:ADDSPELL IL:ADDSPELLFLG IL:ADDTOVAR IL:ALIST IL:ALISTS IL:ALLOCSTRING IL:APPLY* IL:ASCENT IL:ATM +IL:ATTACHWINDOW IL:AWAIT.EVENT IL:BASE IL:BITBLT IL:BITMAPHEIGHT IL:BITMAPS IL:BITMAPWIDTH IL:BITS +IL:BKSYSBUF IL:BLACKSHADE IL:BLTSHADE IL:BOLD IL:BOLDFONT IL:BOTTOM IL:BOX IL:BQUOTE IL:BS +IL:BUTTONEVENTFN IL:BUTTONS IL:C IL:CASEINSENSITIVE IL:CCODEP IL:CHANGENAME IL:CHANGEOFFSETFLG +IL:CHARCODE IL:CHARDELETE IL:CHARWIDTH IL:CHCON1 IL:CLEARBUF IL:CLEARW IL:CLISP\: IL:CLISPARRAY +IL:CLISPFONT IL:CLISPTRAN IL:CLISPWORD IL:CLOCK IL:CLOSEFN IL:CLOSEW IL:COLUMN IL:COLUMNSPACE IL:COMMA + IL:COMMENTFLG IL:COMMENTFONT IL:COMS IL:COMTAIL IL:CONCAT IL:CONCATLIST IL:CONSTANT IL:CONSTANTS +IL:CONTROL IL:COPY IL:COPYALL IL:COPYRIGHT IL:COPYTERMTABLE IL:CR IL:CREATE IL:CREATE.EVENT +IL:CREATE.MONITORLOCK IL:CREATEREGION IL:CREATEW IL:CTRL IL:CTRLV IL:CURSORCREATE IL:DATATYPE IL:DATE +IL:DATUM IL:DECLARATIONS\: IL:DECLARE\: IL:DEFAULTFONT IL:DEFINEQ IL:DEL IL:DESCENT IL:DOCOPY +IL:DOEVAL@COMPILE IL:DON\'T IL:DONTCOPY IL:DONTEVAL@LOAD IL:DONTWAIT IL:DOWINDOWCOM IL:DREMOVE +IL:DREVERSE IL:DSP IL:DSPCLIPPINGREGION IL:DSPFONT IL:DSPLINEFEED IL:DSPRIGHTMARGIN IL:DSPXOFFSET +IL:DSPXPOSITION IL:DSPYOFFSET IL:|Definition-for-EDITDATE| IL:|Definition-for-EDITE| +IL:|Definition-for-EDITL| IL:E IL:ECHOMODE IL:EDIT IL:EDITCHANGES IL:EDITFERROR IL:EDITGETD +IL:EDITMACROS IL:EDITMODE IL:ENVIRONMENT IL:EOL IL:EQMEMB IL:ERSETQ IL:ESC IL:ESCAPE IL:ESCAPECHAR +IL:EVAL@COMPILE IL:EVALV IL:EXPANDFN IL:EXPANDREGIONFN IL:EXPANDW IL:EXPR IL:EXTENT IL:FCHARACTER +IL:FETCHFIELD IL:FILECREATED IL:FILEMAP IL:FILEPKGFLG IL:FILES IL:FILESLOAD IL:FILETYPE IL:FIND.PROCESS + IL:FIXEDITDATE IL:FIXP IL:FIXR IL:FLAG IL:FLAGBITS IL:FLASHWINDOW IL:FLENGTH IL:FM.CHANGELABEL +IL:FM.CHANGESTATE IL:FM.DONTRESHAPE IL:FM.EDITITEM IL:FM.GETITEM IL:FM.ITEMPROP IL:FM.RESETMENU IL:FMEMB + IL:FN IL:FNS IL:FONT IL:FONTCREATE IL:FONTPROP IL:FORM IL:FORWORD IL:FREEMENU IL:FREPLACEFIELDVAL +IL:FULLXPOINTER IL:FUNCTIONS IL:GACHA IL:GETD IL:GETDEF IL:GETDESCRIPTORS IL:GETPROMPTWINDOW IL:GETPROP + IL:GETPROPLIST IL:GETREGION IL:GETSYNTAX IL:GLOBALVARS IL:GROUP IL:HALF IL:HEIGHT IL:HEIGHTIFWINDOW +IL:HELVETICA IL:ICON IL:ICONWINDOW IL:ID IL:IDIFFERENCE IL:IFWORD IL:IGEQ IL:IGREATERP IL:ILEQ IL:ILESSP + IL:IMAX IL:IMIN IL:IMINUS IL:IN/SCROLL/BAR? IL:INNERESCQUOTE IL:INFOHOOK IL:INITRECORDS IL:INITVARS +IL:INPUT IL:INSIDEP IL:INTERPRESS IL:INVERT IL:IPLUS IL:IQUOTIENT IL:ITALICFONT IL:ITEM IL:ITEMS +IL:ITEMWIDTH IL:ITIMES IL:KEYACTION IL:KEYACTIONTABLE IL:KEYBOARDSTREAM IL:KEYDOWNP IL:KWOTE IL:L +IL:L-CASE IL:LABEL IL:LASTMOUSESTATE IL:LASTMOUSEX IL:LASTMOUSEY IL:LCONC IL:LEFT IL:LEFTBRACKET +IL:LEFTPAREN IL:LEQ IL:LINEDELETE IL:LINKS IL:LISTGET IL:LISTPUT IL:LITATOM IL:LOCALCLOSE IL:LOCALVARS + IL:LRSH IL:MACRO IL:MACROS IL:MAINWINDOW IL:MAKEFILE-ENVIRONMENT IL:MARKASCHANGED IL:MARKASCHANGEDFNS + IL:MASK IL:MAXWIDTH IL:MEMB IL:MENU IL:MENUFONT IL:MENUOFFSET IL:MESS IL:MICASPERPT IL:MIDDLE +IL:MKSTRING IL:MOUSE IL:MOUSECONFIRM IL:MOUSESTATE IL:MOVE IL:MOVETO IL:MULTESCAPECHAR +IL:MULTIPLE-ESCAPE IL:NAME IL:NCHARS IL:NCONC1 IL:NEQ IL:NILL IL:NLAMBDA IL:NLISTP IL:NLSETQ IL:NOBIND + IL:NONE IL:NOTIFY.EVENT IL:NTHCHARCODE IL:OBTAIN.MONITORLOCK IL:OFFST IL:OPENLAMBDA IL:OPENSTRINGSTREAM + IL:OPENWP IL:P IL:PACKAGEDELIM IL:PAINT IL:POINTER IL:PRETTYCOMPRINT IL:PRIN2 IL:PROCESS +IL:PROCESS.APPLY IL:PROCESS.EVAL IL:PROCESS.EVALV IL:PROCESSP IL:PROCESSPROP IL:PROCTYPEAHEAD +IL:PROMPTFORWORD IL:PROMPTWINDOW IL:PROP IL:PROPLST IL:PROPS IL:PUTD IL:PUTDEF IL:PUTHASH IL:PUTPROP +IL:PUTPROPS IL:QUOTIENT IL:READCODE IL:READP IL:READSA IL:RECORD IL:RECORDS IL:RECORDTRAN IL:REDISPLAYW + IL:REGION IL:REJECTMAINCOMS IL:RELEASE.MONITORLOCK IL:RELMOVETO IL:REPAINTFN IL:REPLACEFIELDVAL +IL:REPOSITIONATTACHEDWINDOWS IL:RESETLST IL:RESETSAVE IL:RESETVAR IL:RESHAPEFN IL:RESTARTABLE IL:RETFROM + IL:RETYPE IL:RIGHT IL:RIGHTBRACKET IL:RIGHTBUTTONFN IL:RIGHTPAREN IL:ROWSPACE IL:RPAQ IL:RPAQ? IL:RPAQQ + IL:RPLCHARCODE IL:RPLNODE2 IL:RPLSTRING IL:SCROLL.HANDLER IL:SCROLLBYREPAINTFN IL:SCROLLEXTENTUSE +IL:SCROLLFN IL:SCROLLW IL:SELCHARQ IL:SELECTEDFN IL:SELECTQ IL:SEPRCHAR IL:SETFS IL:SETINTERRUPT +IL:SETPROPLIST IL:SETSYNTAX IL:SETTERMTABLE IL:SHAPEW IL:SHIFT IL:SHIFTDOWNP IL:SHOULDNT IL:SHRINKFN +IL:SMALLP IL:SMARTARGLIST IL:SP IL:SPECVARS IL:SPELLFILE IL:STATE IL:STKPOS IL:STREQUAL IL:STRINGDELIM + IL:STRINGWIDTH IL:STRPOS IL:SUB1 IL:SUBSTRING IL:SYSRECORDS IL:SYSTEMRECLST IL:TAB IL:TABLE IL:TAIL +IL:TCONC IL:TEDIT.INSERT IL:TEDIT.PARALOOKS IL:THIS.PROCESS IL:TIMES IL:TITLE IL:TITLEDICON +IL:TITLEDICONW IL:TITLEREG IL:TOP IL:TOTOPW IL:TTY.PROCESS IL:TTY.PROCESSP IL:TTY/EDITDATE IL:TTY/EDITE + IL:TTY/EDITL IL:TTY\: IL:TTYDISPLAYSTREAM IL:TTYEXITFN IL:TYPENAME IL:U-CASE IL:UNTILMOUSESTATE IL:UP + IL:USEDFREE IL:VARIABLES IL:VARS IL:VARTYPE IL:WAIT.FOR.TTY IL:WHITESHADE IL:WIDTH IL:WINDOW +IL:WINDOWADDPROP IL:WINDOWENTRYFN IL:WINDOWPROP IL:WINDOWREGION IL:WITH.MONITOR IL:WORD IL:WORDDELETE +IL:WXOFFSET IL:WYOFFSET IL:X IL:Y IL:[ IL:\\\, IL:\\\,. IL:\\\,@ IL:\\ADDBASE IL:\\BACKGROUND IL:\\BLT + IL:\\BLTCHAR IL:\\CARET.CREATE IL:\\CARET.DOWN IL:\\CARET.FLASH? IL:\\DEFAULTKEYACTION IL:\\DTEST +IL:\\GETBASE IL:\\GETSYSBUF IL:\\KEYBOARD.STREAM IL:\\LINEBUF.OFD IL:\\PUTBASE IL:\\SAVEVMBACKGROUND +IL:\\SYNCODE IL:] IL:^ IL:_ IL:ADD IL:ALWAYS IL:AS IL:BIND IL:BY IL:CHANGE IL:|changes| IL:COLLECT +IL:COUNT IL:CREATE IL:|date:| IL:DO IL:EACHTIME IL:ELSE IL:ELSEIF IL:FETCH IL:FFETCH IL:FINALLY IL:FIRST + IL:FOR IL:FREPLACE IL:FROM WHEN IL:IN IL:INSTRING IL:JOIN IL:LARGEST IL:NEVER IL:OF IL:OLD IL:ON +IL:OUTOF IL:POP IL:|previous| IL:|printout| IL:PUSH IL:PUSHNEW IL:REPEATUNTIL IL:REPEATWHILE IL:REPLACE + IL:SMALLEST IL:SUM IL:THEN IL:THEREIS IL:TO IL:|to:| IL:TYPE? IL:UNLESS IL:UNTIL IL:USING IL:WHEN +IL:WHERE IL:WHILE IL:WITH IL:{ IL:}))) +(IL:TERPRI T) +(IL:PRIN1 "EXPORTS.ALL must be loaded to compile SEdit" T) +(IL:TERPRI T) +(IL:TERPRI T) +(IL:PRIN1 "SEDIT-ACCESS must be REMADE NEW if you change a record" T) +(IL:TERPRI T) +(IL:PUTPROPS IL:SEDIT-DECLS IL:COPYRIGHT ("Venue & Xerox Corporation" 1987 1988 1990 1993)) +NIL diff --git a/sources/SEDIT-EXPORTS b/sources/SEDIT-EXPORTS index 72521baa..d33ed6cd 100644 --- a/sources/SEDIT-EXPORTS +++ b/sources/SEDIT-EXPORTS @@ -1,12 +1,12 @@ (DEFINE-FILE-INFO PACKAGE (DEFPACKAGE SEDIT (USE LISP XCL)) READTABLE "XCL" BASE 10) -(IL:FILECREATED " 1-Dec-2021 17:38:50"  -IL:|{DSK}kaplan>Local>medley3.5>my-medley>sources>SEDIT-EXPORTS.;2| 2883 +(IL:FILECREATED " 1-Dec-2021 20:41:41"  +IL:|{DSK}kaplan>Local>medley3.5>my-medley>sources>SEDIT-EXPORTS.;3| 2921 IL:|changes| IL:|to:| (IL:VARS IL:SEDIT-EXPORTSCOMS) - IL:|previous| IL:|date:| "17-May-90 11:01:36" -IL:|{DSK}kaplan>Local>medley3.5>my-medley>sources>SEDIT-EXPORTS.;1|) + IL:|previous| IL:|date:| " 1-Dec-2021 17:38:50" +IL:|{DSK}kaplan>Local>medley3.5>my-medley>sources>SEDIT-EXPORTS.;2|) ; Copyright (c) 1987-1988, 1990 by Venue & Xerox Corporation. @@ -20,7 +20,7 @@ IL:|{DSK}kaplan>Local>medley3.5>my-medley>sources>SEDIT-EXPORTS.;1|) (IL:* IL:|;;| "REGION MANAGER") - (IL:P (EXPORT '(GET-WINDOW-REGION SAVE-WINDOW-REGION GET-WINDOW)) + (IL:P (EXPORT '(GET-WINDOW-REGION SAVE-WINDOW-REGION GET-WINDOW GET-PROP PUT-PROP)) (EXPORT '(KEEP-WINDOW-REGION))) (IL:* IL:|;;| "PROGRAMMERS INTERFACE") @@ -55,7 +55,7 @@ IL:|{DSK}kaplan>Local>medley3.5>my-medley>sources>SEDIT-EXPORTS.;1|) (IL:* IL:|;;| "REGION MANAGER") -(EXPORT '(GET-WINDOW-REGION SAVE-WINDOW-REGION GET-WINDOW)) +(EXPORT '(GET-WINDOW-REGION SAVE-WINDOW-REGION GET-WINDOW GET-PROP PUT-PROP)) (EXPORT '(KEEP-WINDOW-REGION)) diff --git a/sources/SEDIT-EXPORTS.DFASL b/sources/SEDIT-EXPORTS.DFASL index 06b67e49f60d205d827a3a017b234a3cd5bf4abe..bddeb86aae9f78af6becd40036dfa3dd6ce242d7 100644 GIT binary patch delta 311 zcmaDR*d{a~o6&e;jv|MVft86N5KWw_4`Ul`JoATbBlX^JZT|;yOg8Tz! zDuH+bp%C6=KIVKb{h10gCNs}8nyERtow-Gnb*A!6m6@tD)n=;Cn9MX&8bmlwmSK@+ zwwY-=*^Whq+W|>Dm1Q2I<75`rN*SQ+j2?FXfDliAzhICGWMwm1Q$X4$u}PrlR%UYn z>ds)(g*n@B@?17|M&ro}>=w+7GhKnS6~E6+-GZ-Yt%{nuDX2i_M vnNc&NL3~b@nMpH~XQs?d1@YLKXXebzotXz>15GIc(ngbKa(FS%{{J5US^#9w delta 281 zcmZn@dL}p_o6%@ujv|Mlxs|bnm8rqRsrqpC#xs8y8JQ=aWOARZ!<@^dJ5yoCWagO$ zGu0`d?PgY^AlmW`l z=wbH{2=Vmy3kIn`R<@Hh1*~0xO#(%`Gn)%gdk32?++maVvbi%FO?F_nU}l`@45Y32 zy=HpP^qJ{9({HB#%z&AJAUSTCJ;bF$1#n3*^;X=XBr$Id)6Yi9P$ V91t65N&%2In!J<4i+Se%{{W2tTx$RT diff --git a/sources/SEDIT-TOPLEVEL b/sources/SEDIT-TOPLEVEL index 10a96af7..914e16f7 100644 --- a/sources/SEDIT-TOPLEVEL +++ b/sources/SEDIT-TOPLEVEL @@ -1,11 +1,12 @@ (DEFINE-FILE-INFO PACKAGE (DEFPACKAGE "SEDIT" (USE "LISP" "XCL")) READTABLE "XCL" BASE 10) -(IL:FILECREATED " 8-Dec-2021 11:15:19" IL:|{DSK}medley>medley>sources>SEDIT-TOPLEVEL.;2| 36871 +(IL:FILECREATED " 8-Dec-2021 14:01:58"  +IL:|{DSK}kaplan>Local>medley3.5>my-medley>sources>SEDIT-TOPLEVEL.;19| 37986 - IL:|changes| IL:|to:| (IL:FNS MARKASCHANGEDFN) + :CHANGES-TO (IL:FNS GET-WINDOW-REGION) - IL:|previous| IL:|date:| " 2-Dec-2021 23:05:22" -IL:|{DSK}medley>medley>sources>SEDIT-TOPLEVEL.;1|) + :PREVIOUS-DATE " 8-Dec-2021 11:50:57" +IL:|{DSK}kaplan>Local>medley3.5>my-medley>sources>SEDIT-TOPLEVEL.;18|) ; Copyright (c) 1986-1988, 1990-1991 by Venue & Xerox Corporation. @@ -19,14 +20,14 @@ IL:|{DSK}medley>medley>sources>SEDIT-TOPLEVEL.;1|) (IL:DECLARE\: IL:DONTCOPY IL:DOEVAL@COMPILE (IL:FILES IL:SEDIT-DECLS)) (IL:INITVARS CONTEXTS REGIONS) (IL:VARS (IL:*DISPLAY-EDITOR* 'SEDIT)) - (IL:FNS SEDIT RESET GET-WINDOW-REGION SAVE-WINDOW-REGION GET-WINDOW) + (IL:FNS SEDIT RESET GET-WINDOW-REGION SAVE-WINDOW-REGION GET-WINDOW GET-PROP PUT-PROP) (IL:FNS GET-CONTEXT DISINTEGRATE-CONTEXT AWAKE-COMMAND-PROCESS AWAKE-ME MARKASCHANGEDFN NEW-FUNCTION-BODY) (IL:FUNCTIONS QUERY-THROW-AWAY-CHANGES SET-OPTIONS SET-PROPS START-PROCESS) (IL:COMS (IL:* IL:|;;| - "THESE CAN ALL BE NUKED WITH THE NEW EDIT INTERFACE AND A DETACHED TTY/EDITOR (WOZ 1/25/91)") + "THESE CAN ALL BE NUKED WITH THE NEW EDIT INTERFACE AND A DETACHED TTY/EDITOR (WOZ 1/25/91)") (IL:PROP (IL:|Definition-for-EDITL| IL:|Definition-for-EDITE| IL:|Definition-for-EDITDATE|) @@ -52,8 +53,8 @@ IL:|{DSK}medley>medley>sources>SEDIT-TOPLEVEL.;1|) (IL:PUTPROPS IL:SEDIT-TOPLEVEL IL:FILETYPE :COMPILE-FILE) (IL:PUTPROPS IL:SEDIT-TOPLEVEL IL:MAKEFILE-ENVIRONMENT (:READTABLE "XCL" :PACKAGE - (DEFPACKAGE "SEDIT" - (:USE "LISP" "XCL")))) + (DEFPACKAGE "SEDIT" (:USE "LISP" "XCL") + ))) (IL:DECLARE\: IL:DOEVAL@COMPILE IL:DONTCOPY (IL:LOCALVARS . T) @@ -120,20 +121,35 @@ IL:|{DSK}medley>medley>sources>SEDIT-TOPLEVEL.;1|) (il:lambda nil (il:* il:\; "Edited 10-Jul-87 08:35 by DCB") (cond (contexts (il:error "Can't reset SEdit while there are open SEdit windows")) (t (create-environments) (reset-formats) t))) ) -(get-window-region -(il:lambda (context reason name type) (il:* il:\; "Edited 19-Nov-87 10:18 by DCB") (il:* il:|;;;| "called to get a region for this sedit window. should return the region for the sedit including the prompt window. context is being built and needs a window. the context will have at least the name (IconTitle) and type (EditType) of the object being edited, and can be used as desired to map between contexts and windows. If reason is :CREATE, then this function must return a region. If :EXPAND, then this algorithm returns a region from the stack only if SEDIT.KEEP.WINDOW.REGION is nil, otherwise it returns NIL, telling the window system not to reshape on expansion.") (when (or (eq reason :create) (not keep-window-region)) (or (il:pop regions) (progn (il:|printout| il:promptwindow t "Select region for SEdit window.") (il:getregion 30 20))))) -) +(GET-WINDOW-REGION + (IL:LAMBDA (CONTEXT REASON NAME TYPE) + + (IL:* IL:|;;| + "Edited 8-Dec-2021 14:01 by rmk: The :REGION property gives the user directe control") + (IL:* IL:\; "Edited 1-Dec-2021 22:51 by rmk:") + (IL:* IL:\; "Edited 19-Nov-87 10:18 by DCB") + +(IL:* IL:|;;;| "called to get a region for this sedit window. should return the region for the sedit including the prompt window. context is being built and needs a window. the context will have at least the name (IconTitle) and type (EditType) of the object being edited, and can be used as desired to map between contexts and windows. If reason is :CREATE, then this function must return a region. If :EXPAND, then this algorithm returns a region from the stack only if SEDIT.KEEP.WINDOW.REGION is nil, otherwise it returns NIL, telling the window system not to reshape on expansion.") + + (OR (GET-PROP CONTEXT :REGION) + (WHEN (OR (EQ REASON :CREATE) + (NOT KEEP-WINDOW-REGION)) + (OR (IL:POP REGIONS) + (PROGN (IL:|printout| IL:PROMPTWINDOW T "Select region for SEdit window.") + (IL:GETREGION 30 20))))))) (SAVE-WINDOW-REGION - (IL:LAMBDA (CONTEXT REASON NAME TYPE REGION) (IL:* IL:\; "Edited 23-Nov-87 17:46 by DCB") + (IL:LAMBDA (CONTEXT REASON NAME TYPE REGION) (IL:* IL:\; "Edited 1-Dec-2021 21:13 by rmk:") + (IL:* IL:\; "Edited 23-Nov-87 17:46 by DCB") (IL:* IL:|;;;| "Release this sedit windows region to be used again. If we're shrinking, KEEP-WINDOW-REGION determines whether to release the region or not. If an icon is being closed, don't release the region because it was handled appropriately when the window as shrunk. remember, we're maintaining regions including the prompt window height, so use WINDOWREGION to get the whole region.") (WHEN (OR (EQ REASON :CLOSE) (AND (EQ REASON :SHRINK) (NOT KEEP-WINDOW-REGION))) - (IL:|push| REGIONS (OR REGION (IL:WINDOWREGION (IL:|fetch| DISPLAY-WINDOW - IL:|of| CONTEXT))))))) + (UNLESS (GET-PROP CONTEXT :DONT-KEEP-WINDOW-REGION) + (IL:|push| REGIONS (OR REGION (IL:WINDOWREGION (IL:|fetch| DISPLAY-WINDOW IL:|of| CONTEXT + )))))))) (GET-WINDOW (IL:LAMBDA (CONTEXT) (IL:* IL:\; "Edited 25-Nov-2021 23:13 by rmk:") @@ -142,6 +158,23 @@ IL:|{DSK}medley>medley>sources>SEDIT-TOPLEVEL.;1|)  "Returns the current window of CONTEXT, for clients that don't have SEDIT declarations") (IL:|fetch| DISPLAY-WINDOW IL:|of| CONTEXT))) + +(GET-PROP + (IL:LAMBDA (CONTEXT PROP) (IL:* IL:\; "Edited 1-Dec-2021 21:40 by rmk:") + (WHEN (IL:WINDOWP CONTEXT) + (SETQ CONTEXT (IL:WINDOWPROP CONTEXT 'EDIT-CONTEXT))) + (IL:LISTGET (IL:FETCH (EDIT-CONTEXT PROPS) IL:OF CONTEXT) + PROP))) + +(PUT-PROP + (IL:LAMBDA (CONTEXT PROP VALUE) (IL:* IL:\; "Edited 1-Dec-2021 21:44 by rmk:") + (WHEN (IL:WINDOWP CONTEXT) + (SETQ CONTEXT (IL:WINDOWPROP CONTEXT 'EDIT-CONTEXT))) + (LET ((PROPS (IL:FETCH (EDIT-CONTEXT PROPS) IL:OF CONTEXT))) + (IF PROPS + (IL:LISTPUT PROPS PROP VALUE) + (IL:REPLACE (EDIT-CONTEXT PROPS) IL:OF CONTEXT IL:WITH (LIST PROP VALUE))) + VALUE))) ) (IL:DEFINEQ @@ -207,12 +240,9 @@ IL:|{DSK}medley>medley>sources>SEDIT-TOPLEVEL.;1|) ) (MARKASCHANGEDFN - (IL:LAMBDA (NAME TYPE REASON) (IL:* IL:\; - "Edited 8-Dec-2021 11:08 by medley") - (IL:* IL:\; - "Edited 2-Dec-2021 22:57 by larry") - (IL:* IL:\; - "Edited 3-Apr-91 15:42 by jds") + (IL:LAMBDA (NAME TYPE REASON) (IL:* IL:\; "Edited 8-Dec-2021 11:49 by rmk") + (IL:* IL:\; "Edited 2-Dec-2021 22:57 by larry") + (IL:* IL:\; "Edited 3-Apr-91 15:42 by jds") (IL:* IL:|;;;| "When a managed object is changed, we must check if we have an open edit on it. If so, calling SEdit again, with the fresh definition, will force the update. This is fairly tricky, though. Markaschanged is called as a result of editing a managed definition, so this markaschangedfn could be running in the sedit process under the completion-fn half way through completion. IDEALLY in this case we could say \"i know it changed, i just changed it!\" and ignore this call. BUT FOR NOW (1/14/91) since the manager can change the definition on completion (editdates, for one), we have to notify SEdit. Since calling editdef will restart the sedit process, the completion-fn will not finish, so do the verify-structure here.") @@ -261,46 +291,41 @@ IL:|{DSK}medley>medley>sources>SEDIT-TOPLEVEL.;1|) (IL:* IL:|;;;| "set up the OPTIONS provided in the call to SEDIT for this context. Most of these options do not require immediate action. Rather, they control how some command or interaction will work later, so we just store the option list in the context. Most of these options are really edit-interface options, not sedit options. We stash them so that when the *edit-fn* is called under M-O, it will be handed the same options that this edit was started with") (IL:REPLACE (EDIT-CONTEXT EDIT-OPTIONS) IL:OF CONTEXT IL:WITH (IF (LISTP OPTIONS) - OPTIONS - (LIST OPTIONS)))) + OPTIONS + (LIST OPTIONS)))) -(DEFUN SET-PROPS (CONTEXT PROPS) +(DEFUN SET-PROPS (CONTEXT PROPS) (IL:* IL:\; "Edited 1-Dec-2021 20:10 by rmk:") (IL:* IL:|;;;| "go through the PROPS list supplied in the call to SEDIT and store the info in the context. The :NAME and :TYPE props are already handled, because get-context uses this information to find an appropriate context. Grab the current values of the variables that determine reading and printing, and save them in a profile in the context, so that later changes to the globals don't affect existing contexts. ") +(IL:* IL:|;;;| "RMK: Added ability to store arbitrary properties, in a new PROPS field. Perhaps should filter out the ones that are built-in and interpreted separately, but presumably doesn't matter. The point of this is to allow clients to provide additional information in the call to SEDIT that can be retrieved later (SEDITPROP, like STREAMPROP, WINDOWPROP, etc.) ") + (IL:REPLACE (EDIT-CONTEXT COMPLETION-FN) IL:OF CONTEXT IL:WITH (OR (IL:LISTGET PROPS - :COMPLETION-FN - ) - #'NULL)) - (IL:REPLACE (EDIT-CONTEXT ROOT-CHANGED-FN) IL:OF CONTEXT IL:WITH (OR (IL:LISTGET - PROPS - :ROOT-CHANGED-FN - ) - #'NULL)) - (IL:REPLACE (EDIT-CONTEXT ENVIRONMENT) IL:OF CONTEXT IL:WITH (OR (IL:LISTGET PROPS - :ENVIRONMENT) - LISP-EDIT-ENVIRONMENT - )) - (IL:REPLACE (EDIT-CONTEXT PROFILE) IL:OF CONTEXT IL:WITH (OR (IL:LISTGET PROPS - :PROFILE) - (SAVE-PROFILE - (COPY-PROFILE - "READ-PRINT")))) - (IL:REPLACE (EDIT-CONTEXT EVAL-IN-PROCESS) IL:OF CONTEXT IL:WITH (OR (IL:LISTGET - PROPS - :EVAL-IN-PROCESS - ) - (EVAL-IN-PROCESS) - )) - (IL:REPLACE (EDIT-CONTEXT EVAL-FN) IL:OF CONTEXT IL:WITH (OR (IL:LISTGET PROPS - :EVAL-FN) - (XCL::PROFILE-ENTRY-VALUE - '*EVAL-FUNCTION*))) + :COMPLETION-FN) + #'NULL)) + (IL:REPLACE (EDIT-CONTEXT ROOT-CHANGED-FN) IL:OF CONTEXT IL:WITH (OR (IL:LISTGET PROPS + :ROOT-CHANGED-FN) + #'NULL)) + (IL:REPLACE (EDIT-CONTEXT ENVIRONMENT) IL:OF CONTEXT IL:WITH (OR (IL:LISTGET PROPS :ENVIRONMENT) + LISP-EDIT-ENVIRONMENT)) + (IL:REPLACE (EDIT-CONTEXT PROFILE) IL:OF CONTEXT IL:WITH (OR (IL:LISTGET PROPS :PROFILE) + (SAVE-PROFILE (COPY-PROFILE + "READ-PRINT")))) + (IL:REPLACE (EDIT-CONTEXT EVAL-IN-PROCESS) IL:OF CONTEXT IL:WITH (OR (IL:LISTGET PROPS + :EVAL-IN-PROCESS) + (EVAL-IN-PROCESS))) + (IL:REPLACE (EDIT-CONTEXT EVAL-FN) IL:OF CONTEXT IL:WITH (OR (IL:LISTGET PROPS :EVAL-FN) + (XCL::PROFILE-ENTRY-VALUE + '*EVAL-FUNCTION*))) (WHEN (IL:LISTGET PROPS :SELECT-STRUCTURE) - (IL:REPLACE (EDIT-CONTEXT FIND-CANDIDATE) IL:OF CONTEXT - IL:WITH (CONS (IL:LISTGET PROPS :SELECT-STRUCTURE) - (OR (IL:LISTGET PROPS :SELECT-INSTANCE) - 1))))) + (IL:REPLACE (EDIT-CONTEXT FIND-CANDIDATE) IL:OF CONTEXT IL:WITH (CONS (IL:LISTGET PROPS + :SELECT-STRUCTURE + ) + (OR (IL:LISTGET PROPS + :SELECT-INSTANCE + ) + 1)))) + (IL:REPLACE (EDIT-CONTEXT PROPS) IL:OF CONTEXT IL:WITH PROPS)) (DEFUN START-PROCESS (CONTEXT) @@ -549,16 +574,17 @@ IL:|{DSK}medley>medley>sources>SEDIT-TOPLEVEL.;1|) (IL:DEFPRINT 'GAP 'PRINT-GAP) (IL:PUTPROPS IL:SEDIT-TOPLEVEL IL:COPYRIGHT ("Venue & Xerox Corporation" 1986 1987 1988 1990 1991)) (IL:DECLARE\: IL:DONTCOPY - (IL:FILEMAP (NIL (3145 7363 (SEDIT 3158 . 5144) (RESET 5146 . 5347) (GET-WINDOW-REGION 5349 . 6226) ( -SAVE-WINDOW-REGION 6228 . 7055) (GET-WINDOW 7057 . 7361)) (7364 14508 (GET-CONTEXT 7377 . 9397) ( -DISINTEGRATE-CONTEXT 9399 . 10125) (AWAKE-COMMAND-PROCESS 10127 . 11720) (AWAKE-ME 11722 . 12105) ( -MARKASCHANGEDFN 12107 . 14304) (NEW-FUNCTION-BODY 14306 . 14506)) (14510 15493 ( -QUERY-THROW-AWAY-CHANGES 14510 . 15493)) (15495 16294 (SET-OPTIONS 15495 . 16294)) (16296 19714 ( -SET-PROPS 16296 . 19714)) (19716 20387 (START-PROCESS 19716 . 20387)) (20703 33680 (SEDITE 20716 . -26483) (SEDITL 26485 . 27630) (FN-CHANGED 27632 . 27927) (PROP-CHANGED 27929 . 28066) (PROPLST-CHANGED - 28068 . 28196) (VAR-CHANGED 28198 . 28310) (ALIST-COMPLETION 28312 . 29123) (COMPLETION 29125 . 30505 -) (PROPS-COMPLETION 30507 . 31332) (TTYFN 31334 . 33172) (LOCATE-NODE-FROM-EDITCHAIN 33174 . 33678)) ( -33826 34195 (SMART-TTYFN 33826 . 34195)) (34318 36003 (PRETTY-PRINT 34331 . 35374) (MAP-FONT 35376 . -36001)) (36185 36288 (MAKE-BROKEN-ATOM 36185 . 36288)) (36290 36448 (PRINT-BROKEN-ATOM 36290 . 36448)) - (36450 36534 (MAKE-GAP 36450 . 36534)) (36536 36664 (PRINT-GAP 36536 . 36664))))) + (IL:FILEMAP (NIL (3174 8776 (SEDIT 3187 . 5173) (RESET 5175 . 5376) (GET-WINDOW-REGION 5378 . 6676) ( +SAVE-WINDOW-REGION 6678 . 7692) (GET-WINDOW 7694 . 7998) (GET-PROP 8000 . 8304) (PUT-PROP 8306 . 8774) +) (8777 15717 (GET-CONTEXT 8790 . 10810) (DISINTEGRATE-CONTEXT 10812 . 11538) (AWAKE-COMMAND-PROCESS +11540 . 13133) (AWAKE-ME 13135 . 13518) (MARKASCHANGEDFN 13520 . 15513) (NEW-FUNCTION-BODY 15515 . +15715)) (15719 16702 (QUERY-THROW-AWAY-CHANGES 15719 . 16702)) (16704 17479 (SET-OPTIONS 16704 . 17479 +)) (17481 20829 (SET-PROPS 17481 . 20829)) (20831 21502 (START-PROCESS 20831 . 21502)) (21818 34795 ( +SEDITE 21831 . 27598) (SEDITL 27600 . 28745) (FN-CHANGED 28747 . 29042) (PROP-CHANGED 29044 . 29181) ( +PROPLST-CHANGED 29183 . 29311) (VAR-CHANGED 29313 . 29425) (ALIST-COMPLETION 29427 . 30238) ( +COMPLETION 30240 . 31620) (PROPS-COMPLETION 31622 . 32447) (TTYFN 32449 . 34287) ( +LOCATE-NODE-FROM-EDITCHAIN 34289 . 34793)) (34941 35310 (SMART-TTYFN 34941 . 35310)) (35433 37118 ( +PRETTY-PRINT 35446 . 36489) (MAP-FONT 36491 . 37116)) (37300 37403 (MAKE-BROKEN-ATOM 37300 . 37403)) ( +37405 37563 (PRINT-BROKEN-ATOM 37405 . 37563)) (37565 37649 (MAKE-GAP 37565 . 37649)) (37651 37779 ( +PRINT-GAP 37651 . 37779))))) IL:STOP diff --git a/sources/SEDIT-TOPLEVEL.DFASL b/sources/SEDIT-TOPLEVEL.DFASL index c49369b911162655293dd262c4791332d6c48702..19a34dcaceccb75cfec7cb2e8b3803cdf52cd816 100644 GIT binary patch delta 4011 zcmai1du)@}760z%XW}F{ao#bB^M2LN0~?aihJ3L<5);RE>@N=wrjpP=0trEc#}I8E z(1ubRAUlBkX<6CUurXRoKsHTG+8CYIt@~@*{#YlmZquZpskER~9jZ2soqMloGQu{= z`tG^s-gD0HoO{l>*S{P)ci_C;);l?TaI$sZ;DNEh{jI)}Kn)Yu^__FyOwREuIb z3-k*wq!-Q_JY*7nV;EpOhw&}s{o3d!hoLyBZu(3NH0lXK5YELw zRNGOJrbD6{>5MJRn_@s>7sOaJ)7E774DYfx);BiT8WQL(Mmvss!dfc(OGtd%TK$!JmxIF29%5MT`*&<6SiXd8X0&z87N`qk1Kv1cLp&NE*>mw;T=! z{S4H#4mNyev)aEw9Vk`(aMR>k7vICU@oGN6-%Z=e5`9O-s zy*ngJiY!u+t066LE48}TodAlM&nC!=p@oqXqcbBnD^~fmFk*(ssbyKWR4)+)T>`EC z3$%5cmuAIH6alx*jg%s+dbTHCh^BKq0l#AJlI5VC@3Ql4a58Q4^yOI8;Kp@%KuI_* z5RuCY!lK$0yCf91CDHhPeHE@D;dYyzGT%QURhk903rR77j_2Jfy|Jj4r8CU~gqy~+ zUlkFxp?{i%EGXu1lSwOels1zFwKFFU@L7DJY*etYFnW!O7O{YHB&OwLtywVcK6Temz-}O}|~|z&zEP zM>am-Srrd3B@a5eE}kjz^?XKXd=_F+U08l;^bp2A088d@X+R(XN%+AJW|bdIatZR& zo9yu_uBMm|xmfaAk1ToAA`9p69FNme4Z?J~-4etIJ#}bsJ3Vg$#=(YhNKKTcLkb3c zk#wfy9ezO9#9Xy!RhIOCDPw&}59(Wk6!SjZ>r3PoY|E%6AvlupudN|1S$jNMztk;b zx+sw#4k#*x1H3UT&FX1*<`I{Xc9`yfM}8UG!w)S=4l(nt5pUs+Cc+BkncJFw^0*xLi12(ygIosR&u?m#d?mTdT)deugQ-v^&&eT($LrEDK*hCgR_ zlP${)IfaDuLol}nzsGZ{(%3N##4gdKAcb%v_ir^ti5zDwu9A0+N^BrA`|>lh6XiG{ zVfIV#i#!_{fWPK-q*!Rw-eOoX;raYR&N!7|?9Ok?=*y!fGAKugQ&NO@eopN_FlOek z?33M!J*jjaA#%h`)n*3Fnehlc3(Tyo zUY{K1+u>|MHi^TPf>L9g;UGKVR|UD5ak48GO~xef;C1NrD;T>7{IlQyiNLt^1=q*A zCZ>2tjoQvqoMf4}!bE0jdf4g5i2OD$>y)A9(pgN4n zL8+bUZnQSMJh=XzXc@-R)+Z{^z|>rZ?Y3qt?TfZLG6Fxd^*E1N4y@)u%+xdk_%&Hm0&A1kVjBe+QsG$ z?V~hx48Fa3x(~|AI#yQ4;mxwrx@xNHJ*JnDOPuWB13`zAcHj|q_WHXvEvmcWVc8+e zZjr3HijS7JU_RU|FRyxgBb61dJJ@i8q+=1AI^P$1*dxU(Xn1FM8y=Ti3wig^srykv zOidVNL(QVP2bwF|EVSI8?$XhUT(owjqL|FW&nwEv9k^dnTseXvN#lK?ja`d)3ywTn zdgIb8F{)O6(~~>2EsdhINxCBrv}NMuj-sQ_xE|1O&C)FDM1j31kR-Jw+*0>G+fq7O z($Is&-pa)G!N-+9vh33dYijCoNilp_Ri3;w%TD+mJiydyYu6O395P+Q;&N9{qk9Dp zM$d9KOs8+KrQaW8!yGFwGRI3~u8gly#A9%%`jBOetSx75Itj{aa&z$M*N5tjlE)Jc z%03@^9FV)9)Rb6GXQ^9F*uivCdmx1VEUM#hy5=XAapQk;ryxKJhIcx=SSebbV|NcT zU{fJBOl#@Nn`jpwnYjM|ccq&TZaz?Z`{7>g)oEfBS(7748Xd}*Xd`oXO8yQxtkENb z_|*M6@#(yYMKzMrow#4AN_>uKk2BpPU8?OlJSMGA3M>3FxUXqtOGB*93fCK%#0@Q; zJEYlDa@no+qh?y!n@6Q6N3@j^F}bxiINeCjC6tG2Rj)&Ehb&P8g(Ln zgmz8o;PVRO`OCoeIm6JjaT`yho6G}e>wy}Aa|wM4~!j`N3g)^*F80`+LN zdX#&84GQY3$SdHfudD16x$ulZox&#t-Xuq7==Uoa7IktKHPV>BwtT5RjaXjOicdd) z;0F!WSl54Q=wJ5{ySqdOd(wyw=x8j+f%Iv zo$Q;iI0qjzUfDh;=+-8Lb}PR9F)w6)A5(_a%6s3Bb(`qFPxfz)E*7!!6Ix-@M!3HbbaaO~6XALB~T=25f*4E4$nsDC0G`~UcuVzxIqiQN_n+jJaphfZQ z%{$Q-p=jV%Cv81mo&-V^?m8W09!#!s{5H5M%uf_v;0mL#$2D4hj^Fv`wAswcJb$NN V;D3?Mu%HO%;WJlAv-9!ee*?zuhYtV% delta 3419 zcmZ`5YiyI(^}FBaM-n?B!Fia(&ifsl7jX#mv3#*V95;T&{*sWwM%NIM0D&+FZ3Tmb zq7JBmhEtetm#CdvCN{4;%BGfS70@4(TB>$Grb;UvnVyzV_c^WM%ET-M3m)8mg$k8j;M{>-Bb!3xs3u&dhKvA)B-zGL0O_uC(! zS3a0mhzTMF{ptZNUU0$36`y~I4y~cXH8cR9Tih#B6P%iA5&#~yZX!uY zSPxYA)Ctrf{cYny|Iz5ey^ULvyKOVT1n?R5TKTfjszj(e=2 z6(jd%!DRQHEkZub!JU4wY7@XI0AUGQNW_gXZR^xNR2+n%m9d(jL?n`SU0BWV2X3wG zaitoCnkoV8SV0D_rg~|GO;AJ^KBPo zI}Ly7v|;$A%~>7BtrCz9hVD<#Uv7xBO`U3xP+1CZZ z;%yEyuI32A2w2c1O&2bUdP)tqpX5hRZOobwE9{bP^eqm1m1SekP&Dtf5iQXv4;x}G}As_u*6^y3e&}> z4D#jgwM3j$_6i(cDIaZmf;BImyp7e67w3YNjnYcGg^poaFzj1&D_R@7T3zv}Y#YNy zHKnW3%+)M`qk0`y{cv>~I`drhVAnJY&?}5dcCpX5(L}Z<;EzT0s2XCF&3xy_3>^_D zSZZ1h@7~Tg%{+n|vNo%ch!*m87IA^wzt6T+CK;DQPs4hwh`kMU zjW2a`UoN(CaETOP>stEXl?HRrl9Vqgd@7Ka;6{U^TudG#-H9wYH*J)IRf}{S{@KuL z8)vMqOx<9k9j$F^tRgdTtg)6{hSwXb8n$6j^28wMwFqN$+t=^z#!D=VI>fa^F0+v| zfx9j0O?hK)p>(}BU!oIVGw#uFK3-?|Tcne?AzSUuf!mF%$Pyr{0JSPCjW|QO$P`>` zdfPT-lrlQ#Mr{?m++3HFoag!cDJJWKX2-xZ?-R1CnaAK3pZDi62_{~ld`O+(toNVc zV3s!%nH3E&TPt|XyY1j^*=O5MGMiVJ&W5`!EQt48ipVV}T3u~>x`=MD;CwQwec>qj zzesn$W2bQT1RVZqP>~8dE7H=M4wA?vVjn zxf;`82&gfgk5uWl@+fBw@}VhR?BqKx8MY_R!H2C+IX>fD6Bf3pPF9!cE7A>5w(b7r zbOCy@GTf)D{!nW$9P;boXdvtvFz`;1Qe|9W%8F9>Fw*-U$QT4&lAgqBF=HfI3vgov z4Cj~`TH776bPodUJr5ds1>biUe%4;Q%I@G|_W$X|u0=Wxe{c7w(}s-xz&8;F&>zC+ zM8n|+k1%4U({c^hd&epOOTr$Q?dY)3bX$Ig>nk0O6-lLx&KA>I5e^EUbTpC!VC-zG z(PS$>T^<$5_!l^Qes_;@PX4I`fF_S%aMMj5)Zb32W|0YerUl%&#Ze z$=@ro6Rcge_9U)wzip8RZhPg6qQ8Cuy(t_u-5*C&>10g m0#>h`syiue?UROLzVrD44$g>2_i=t^=@k58ZBz;0zyDt`Y}*I`