(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP" BASE 10) (FILECREATED " 9-May-2018 11:10:37" ("compiled on " {DSK}kaplan>Local>medley3.5>lispcore>lispusers>DOC-OBJECTS.;7) " 9-Apr-2000 18:01:32" tcompl'd in "LFG 9-May-2018 ..." dated " 9-May-2018 08:40:29") (FILECREATED " 9-May-2018 11:09:43" {DSK}kaplan>Local>medley3.5>lispcore>lispusers>DOC-OBJECTS.;7 50515 changes to%: (FNS DOCOBJ-INCLUDE-EDIT DOCOBJ-INCLUDE-BEFOREHARDCOPYFN) previous date%: " 9-May-2018 10:35:47" {DSK}kaplan>Local>medley3.5>lispcore>lispusers>DOC-OBJECTS.;4) DOCOBJ-ACQUIRE-OBJECT :D8 NIL k`U`dodi d`d`dg dgjdndhHdI ` (104 MENU) (99 DocObjectsMenu 93 DocObjectsMenu 64 DEFAULTMENUHELDFN 55 CLRPROMPT 46 DocObjectsMenuFont 37 DocObjectsMenuCommands 16 |MENUTYPE#| 9 MENU 4 DocObjectsMenu) ( 23 "Select object type: ") DOCOBJ-INIT :D8 NIL %ggg `o (34 TEDIT.ADD.MENUITEM 19 CHANGENAME) (24 TEDIT.DEFAULT.MENU 14 DOCOBJ-ACQUIRE-OBJECT 9 PROMPTFOREVALED 4 GET.OBJ.FROM.USER) ( 29 (Object (FUNCTION DOCOBJ-TEDIT-MENU-ENTRY) "Insert a Document Object")) DOCOBJ-TEDIT-MENU-ENTRY :D8 (I 0 TEXTSTREAM) @d (11 GET.OBJ.FROM.USER 6 TEXTOBJ) NIL () DOCOBJ-GET-LOOKS :D8 (P 3 NLOOKS P 2 FONT P 1 LOOKS P 0 TEXTOBJ I 1 CH#ORCHARLOOKS I 0 TEXTOBJ) @ aAAH\j8L,Ad3 6HdAAH   H4.HAdMMH  A5HHdNNH  I(190 \CHTOPC 136 \CHTOPC 82 \FZEROP 69 \CHTOPC 5 TEXTOBJ) (195 PIECE 183 TEXTOBJ 168 SELECTION 161 TEXTOBJ 153 TEXTOBJ 141 PIECE 129 TEXTOBJ 114 SELECTION 106 TEXTOBJ 98 SELECTION 90 TEXTOBJ 74 PIECE 62 TEXTOBJ 48 TEXTOBJ 23 TEXTOBJ 14 CHARLOOKS) () DOCOBJ-REGISTER-OBJECT :D8 (P 1 $$PROPLST$$ P 0 $$TEXTOBJ$$ I 0 OBJECT F 2 TEXTOBJ) @]R HFIGHgghFR HFI*HgghF@gg gg (126 LISTPUT 109 LISTPUT 54 TEXTOBJ 8 TEXTOBJ) (121 DOCOBJ-AFTERHARDCOPYFN 116 AFTERHARDCOPYFN 104 DOCOBJ-BEFOREHARDCOPYFN 99 BEFOREHARDCOPYFN 87 DOCOBJ-AFTERHARDCOPYFN 82 AFTERHARDCOPYFN 77 TEXTOBJ 63 TEXTOBJ 41 DOCOBJ-BEFOREHARDCOPYFN 36 BEFOREHARDCOPYFN 31 TEXTOBJ 17 TEXTOBJ) () DOCOBJ-STRING-IMAGEBOX :D8 (P 5 DESCENT P 4 HEIGHT P 3 DEVICE P 2 FONT P 1 CLOFFSET P 0 LOOKS I 1 IMAGESTREAM I 0 STRING F 6 TEXTOBJ F 7 CHNO) o`VW XdYHZdg A [JgK ZJ \J ]@J LjIIjIMIjh(88 STRINGWIDTH 61 FONTCOPY 46 IMAGESTREAMTYPE 40 FONTPROP 10 DOCOBJ-GET-LOOKS) (78 FONTDESCRIPTOR 69 FONTDESCRIPTOR 55 DEVICE 35 DEVICE 26 CHARLOOKS 17 CHARLOOKS) () DOCOBJ-WAIT-MOUSE :D8 (P 0 REGION I 0 STREAM) Bh@ `lYj$II H@ @ hi(58 INSIDEP 53 LASTMOUSEY 47 LASTMOUSEX 38 \FZEROP 14 GETMOUSESTATE 6 DSPCLIPPINGREGION) (20 LASTMOUSEBUTTONS) () DOCOBJ-INVOKE-IMAGEOBJFN :D8 (P 1 IMAGEOBJFN P 0 IMAGEOBJ I 3 IMAGEOBJFNNAME I 2 PC# I 1 PIECE I 0 CH#) = AhAXd HC Ydd H@ABlI(45 DEFINEDP 35 IMAGEOBJPROP 26 IMAGEOBJP) (17 PIECE 8 PIECE) () DOCOBJ-BEFOREHARDCOPYFNA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 0 FRM I 0 SI::*CLEANUP-FORMS* F 1 TEXTOBJ F 2 *DOCOBJ-FORMS*) (QkXkjhRdHH h(31 APPLY) (5 TEXTOBJ) () DOCOBJ-BEFOREHARDCOPYFNA0004 :D8 (F 2 TEXTOBJ F 3 OLD-UNWIND-FLAG) WRhd RjjdhRkR RSkjHIXIjhR (84 TEDIT.UPDATE.SCREEN 52 \TEDIT.MARK.LINES.DIRTY 14 \SHOWSEL) (58 TEXTOBJ 45 TEXTOBJ 27 SELECTION 20 TEXTOBJ 5 TEXTOBJ) () DOCOBJ-BEFOREHARDCOPYFN :D8 (P 4 OLD-UNWIND-FLAG P 3 $$PROPLST$$ P 2 $$TEXTOBJ$$ P 1 *DOCOBJ-FORMS* P 0 TEXTSTREAM I 1 TEXTOBJ I 0 TEXTSTREAM) A H JF[JgH hhFhAgg AXjhg Ahd AjAkA ALkgH h }jXA $Iih(201 TEDIT.UPDATE.SCREEN 187 LISTPUT 180 TEDIT.STREAMCHANGEDP 156 \TEDIT.MARK.LINES.DIRTY 122 \SHOWSEL 107 \MVLIST 102 DOCOBJ-BEFOREHARDCOPYFNA0001 75 TEDIT.MAPPIECES 49 TEDIT.STREAMCHANGEDP 14 TEXTOBJ 5 TEXTSTREAM) (174 DOCOBJ-VIRGINP 163 TEXTOBJ 149 TEXTOBJ 136 SELECTION 129 TEXTOBJ 113 TEXTOBJ 97 DOCOBJ-BEFOREHARDCOPYFNA0004 82 TEXTOBJ 70 BEFOREHARDCOPYFN 65 DOCOBJ-INVOKE-IMAGEOBJFN 43 DOCOBJ-VIRGINP 38 TEXTOBJ 23 TEXTOBJ) () DOCOBJ-AFTERHARDCOPYFNA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 0 FRM I 0 SI::*CLEANUP-FORMS* F 1 TEXTOBJ F 2 *DOCOBJ-FORMS*) (QkXkjhRdHH h(31 APPLY) (5 TEXTOBJ) () DOCOBJ-AFTERHARDCOPYFNA0004 :D8 (F 2 TEXTOBJ F 3 OLD-UNWIND-FLAG) WRhd RjjdhRkR RSkjHIXIjhR (84 TEDIT.UPDATE.SCREEN 52 \TEDIT.MARK.LINES.DIRTY 14 \SHOWSEL) (58 TEXTOBJ 45 TEXTOBJ 27 SELECTION 20 TEXTOBJ 5 TEXTOBJ) () DOCOBJ-AFTERHARDCOPYFN :D8 (P 1 OLD-UNWIND-FLAG P 0 *DOCOBJ-FORMS* I 1 TEXTOBJ I 0 TEXTSTREAM) hAgg AXjhg Ahd AjAkA AIkjXA $H@ Fg' @i (159 TEDIT.STREAMCHANGEDP 137 TEXTOBJ 123 TEDIT.UPDATE.SCREEN 101 \TEDIT.MARK.LINES.DIRTY 67 \SHOWSEL 52 \MVLIST 47 DOCOBJ-AFTERHARDCOPYFNA0001 20 TEDIT.MAPPIECES) (149 DOCOBJ-VIRGINP 142 TEXTOBJ 108 TEXTOBJ 94 TEXTOBJ 81 SELECTION 74 TEXTOBJ 58 TEXTOBJ 42 DOCOBJ-AFTERHARDCOPYFNA0004 27 TEXTOBJ 15 AFTERHARDCOPYFN 10 DOCOBJ-INVOKE-IMAGEOBJFN) () DOCOBJ-ACQUIRE-EVALED-OBJECT :D8 NIL o (9 PROMPTFOREVALED) NIL ( 4 "Form to eval: ") DOCOBJ-ACQUIRE-SNAPPED-OBJECT :D8 NIL (4 GETREGION) NIL () DOCOBJ-EDIT-TIMESTAMP :D8 (I 0 TIMESTAMP) @ H @H@h@(8 EDIT-DATEFORMAT) NIL () DOCOBJ-MAKE-TIMESTAMP :D8 NIL h`h` (24 IMAGEOBJCREATE 4 IDATE) (19 DOCOBJ-TIMESTAMP-IMAGEFNS 10 DocObjectsTimeStampFormat) () DOCOBJ-MAKE-TIMESTAMP-IMAGEFNS :D8 (P 12 PREPRINTFN P 11 WHENOPERATEDONFN P 10 WHENCOPIEDFN P 9 WHENDELETEDFN P 8 WHENINSERTEDFN P 7 WHENMOVEDFN P 6 COPYBUTTONEVENTINFN P 5 BUTTONEVENTINFN P 4 COPYFN P 3 GETFN P 2 PUTFN P 1 IMAGEBOXFN P 0 DISPLAYFN) K gggggggdddddg HIJKLMNOOOOOO (72 IMAGEFNSCREATE) (44 DOCOBJ-TIMESTAMP-PREPRINTFN 34 NILL 29 DOCOBJ-TIMESTAMP-BUTTONEVENTINFN 24 DOCOBJ-TIMESTAMP-COPYFN 19 DOCOBJ-TIMESTAMP-GETFN 14 DOCOBJ-TIMESTAMP-PUTFN 9 DOCOBJ-TIMESTAMP-IMAGEBOXFN 4 DOCOBJ-TIMESTAMP-DISPLAYFN) () DOCOBJ-TIMESTAMP-BUTTONEVENTINFN :D8 (I 7 BUTTON I 6 HOSTSTREAM I 5 WINDOW I 4 RELY I 3 RELX I 2 SELECTION I 1 WINDOWSTREAM I 0 IMAGEOBJ) 0Gg&A @g g(38 DOCOBJ-EDIT-TIMESTAMP 33 IMAGEOBJPROP 22 ALLOW.BUTTON.EVENTS 15 DOCOBJ-WAIT-MOUSE) (45 CHANGED 28 OBJECTDATUM 6 MIDDLE) () DOCOBJ-TIMESTAMP-COPYFN :D8 (I 2 TARGETHOSTSTREAM I 1 SOURCEHOSTSTREAM I 0 IMAGEOBJ) @g ` (25 IMAGEOBJCREATE 15 COPYALL 10 IMAGEOBJPROP) (20 DOCOBJ-TIMESTAMP-IMAGEFNS 5 OBJECTDATUM) () DOCOBJ-TIMESTAMP-DISPLAYFN :D8 (I 3 HOSTSTREAM I 2 IMAGESTREAMTYPE I 1 IMAGESTREAM I 0 IMAGEOBJ) @g A (21 PRIN1 15 DOCOBJ-TIMESTAMP-TO-STRING 10 IMAGEOBJPROP) (5 OBJECTDATUM) () DOCOBJ-TIMESTAMP-GETFN :D8 (I 0 FILESTREAM) @ ` (15 IMAGEOBJCREATE 5 READ) (10 DOCOBJ-TIMESTAMP-IMAGEFNS) () DOCOBJ-TIMESTAMP-IMAGEBOXFN :D8 (P 1 TIMESTRING P 0 TIMESTAMP I 3 RIGHTMARGIN I 2 CURRENTX I 1 IMAGESTREAM I 0 IMAGEOBJ) @g H IA (29 DOCOBJ-STRING-IMAGEBOX 19 DOCOBJ-TIMESTAMP-TO-STRING 10 IMAGEOBJPROP) (5 OBJECTDATUM) () DOCOBJ-TIMESTAMP-PREPRINTFN :D8 (I 0 IMAGEOBJ) @g (15 DOCOBJ-TIMESTAMP-TO-STRING 10 IMAGEOBJPROP) (5 OBJECTDATUM) () DOCOBJ-TIMESTAMP-PUTFN :D8 (P 0 TIMESTAMP I 1 FILESTREAM I 0 IMAGEOBJ) #@g HHhHA h(31 PRINT 19 IDATE 10 IMAGEOBJPROP) (5 OBJECTDATUM) () DOCOBJ-TIMESTAMP-TO-STRING :D8 (I 0 TIMESTAMP) @ @@@ (22 GDATE 7 STRINGP) NIL () DOCOBJ-MAKE-FILESTAMP :D8 (F 0 TEXTOBJ) P ` (15 IMAGEOBJCREATE 5 DOCOBJ-FILESTAMP-NEW-FULLNAME) (10 DOCOBJ-FILESTAMP-IMAGEFNS) () DOCOBJ-MAKE-FILESTAMP-IMAGEFNS :D8 (P 12 PREPRINTFN P 11 WHENOPERATEDONFN P 10 WHENCOPIEDFN P 9 WHENDELETEDFN P 8 WHENINSERTEDFN P 7 WHENMOVEDFN P 6 COPYBUTTONEVENTINFN P 5 BUTTONEVENTINFN P 4 COPYFN P 3 GETFN P 2 PUTFN P 1 IMAGEBOXFN P 0 DISPLAYFN) G ggggggddddddg HIJKLMNOOOOOO (68 IMAGEFNSCREATE) (40 DOCOBJ-FILESTAMP-PREPRINTFN 29 NILL 24 DOCOBJ-FILESTAMP-COPYFN 19 DOCOBJ-FILESTAMP-GETFN 14 DOCOBJ-FILESTAMP-PUTFN 9 DOCOBJ-FILESTAMP-IMAGEBOXFN 4 DOCOBJ-FILESTAMP-DISPLAYFN) () DOCOBJ-FILESTAMP-COPYFN :D8 (I 2 TARGETHOSTSTREAM I 1 SOURCEHOSTSTREAM I 0 IMAGEOBJ) @g ` (20 IMAGEOBJCREATE 10 IMAGEOBJPROP) (15 DOCOBJ-FILESTAMP-IMAGEFNS 5 OBJECTDATUM) () DOCOBJ-FILESTAMP-DISPLAYFN :D8 (I 3 HOSTSTREAM I 2 IMAGESTREAMTYPE I 1 IMAGESTREAM I 0 IMAGEOBJ) @ A (11 PRIN1 5 DOCOBJ-FILESTAMP-GET-FULLNAME) NIL () DOCOBJ-FILESTAMP-GETFN :D8 (P 0 FULLNAME I 0 FILESTREAM) @ Hd ` (26 IMAGEOBJCREATE 16 MKSTRING 5 READ) (21 DOCOBJ-FILESTAMP-IMAGEFNS) () DOCOBJ-FILESTAMP-IMAGEBOXFN :D8 (P 0 FULLNAME I 3 RIGHTMARGIN I 2 CURRENTX I 1 IMAGESTREAM I 0 IMAGEOBJ) @ HA (15 DOCOBJ-STRING-IMAGEBOX 5 DOCOBJ-FILESTAMP-GET-FULLNAME) NIL () DOCOBJ-FILESTAMP-GET-FULLNAME :D8 (P 0 FULLNAME I 1 NODEFAULTFLG I 0 IMAGEOBJ) 8@g HHd3@H H H Aoh(42 COPYALL 35 STRINGP 28 MKSTRING 10 IMAGEOBJPROP) (5 OBJECTDATUM) ( 51 "-- not yet filed --") DOCOBJ-FILESTAMP-NEW-FULLNAME :D8 (P 0 FULLNAME I 0 TEXTOBJ) )@ Hdd3@H H H (38 COPYALL 30 STRINGP 23 MKSTRING 5 FULLNAME) NIL () DOCOBJ-FILESTAMP-PREPRINTFN :D8 (I 0 IMAGEOBJ) @i (6 DOCOBJ-FILESTAMP-GET-FULLNAME) NIL () DOCOBJ-FILESTAMP-PUTFN :D8 (P 0 FULLNAME I 1 FILESTREAM I 0 IMAGEOBJ) $A @gH HA h(32 PRINT 25 IMAGEOBJPROP 10 MKSTRING 5 FULLNAME) (19 OBJECTDATUM) () DOCOBJ-MAKE-HRULE :D8 (P 4 WIDTH P 0 I) 8kAHkjhHk \LdjI J KhZHkXK&(33 HRULE.CREATE 18 DOCOBJ-HRULE-GET-WIDTH) NIL () DOCOBJ-EDIT-HRULEA0002 :D8 (P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 NEWWIDTH F 3 SI::NLSETQ-VALUE) i@R hcg(10 EDITE) (19 :NORMAL) () DOCOBJ-EDIT-HRULE :D8 (P 5 *CONDITION-HANDLER-BINDINGS* P 4 SI::*NLSETQFLAG* P 3 *PROCEED-CASES* P 2 SI::NLSETQ-VALUE P 1 NEWWIDTH P 0 OLDWIDTH I 0 IMAGEOBJ F 6 *PROCEED-CASES* F 7 *CONDITION-HANDLER-BINDINGS*) Z@g ddhH Y`VioWK gJIH@gI @h(84 IMAGEOBJPROP 55 DOCOBJ-EDIT-HRULEA0002 26 COPYALL 10 IMAGEOBJPROP) (78 RULE.WIDTH 61 :NORMAL 35 SI::NLSETQ-PROCEED-CASE 5 RULE.WIDTH) ( 43 (CL:ERROR . SI::NLSETQHANDLER)) DOCOBJ-HRULE-INIT :D8 NIL `g hNIL (14 DOCOBJ-HRULE-BUTTONEVENTINFN 9 IMAGEFNS 4 HRULE.IMAGEFNS) () DOCOBJ-HRULE-GET-WIDTH :D8 (I 1 FIRST? I 0 RULE?) u`.ohddid ohddid A,``` ``` @``i (114 NUMBERPAD.READ 94 MOVEW 73 MOVEW 44 CREATE.NUMBERPAD.READER 22 CREATE.NUMBERPAD.READER) (108 DOCOBJ-HRULE-BLANK-PAD 102 DOCOBJ-HRULE-RULE-PAD 89 LASTMOUSEY 84 LASTMOUSEX 79 DOCOBJ-HRULE-BLANK-PAD 68 LASTMOUSEY 63 LASTMOUSEX 58 DOCOBJ-HRULE-RULE-PAD 49 DOCOBJ-HRULE-BLANK-PAD 27 DOCOBJ-HRULE-RULE-PAD 4 DOCOBJ-HRULE-RULE-PAD) ( 33 "Blank space: " 11 "Rule width: ") DOCOBJ-HRULE-BUTTONEVENTINFN :D8 (I 7 BUTTON I 6 HOSTSTREAM I 5 WINDOW I 4 RELY I 3 RELX I 2 SELECTION I 1 WINDOWSTREAM I 0 IMAGEOBJ) &GgA @ g(28 DOCOBJ-EDIT-HRULE 22 ALLOW.BUTTON.EVENTS 15 DOCOBJ-WAIT-MOUSE) (35 CHANGED 6 MIDDLE) () DOCOBJ-MAKE-INCLUDE :D8 (P 0 SUBFILE F 1 TEXTOBJ) %Qo HQo h (34 DOCOBJ-INCLUDE-CREATE-OBJ 27 TEDIT.PROMPTPRINT 10 TEDIT.GETINPUT) NIL ( 22 "... aborted." 5 "Enter file name: ") DOCOBJ-MAKE-INCLUDE-IMAGEFNS :D8 (P 12 PREPRINTFN P 11 WHENOPERATEDONFN P 10 WHENCOPIEDFN P 9 WHENDELETEDFN P 8 WHENINSERTEDFN P 7 WHENMOVEDFN P 6 COPYBUTTONEVENTINFN P 5 BUTTONEVENTINFN P 4 COPYFN P 3 GETFN P 2 PUTFN P 1 IMAGEBOXFN P 0 DISPLAYFN) K gggggggdddddg HIJKLMNOOOOOO (72 IMAGEFNSCREATE) (44 DOCOBJ-INCLUDE-PREPRINTFN 34 NILL 29 DOCOBJ-INCLUDE-BUTTONEVENTINFN 24 DOCOBJ-INCLUDE-COPYFN 19 DOCOBJ-INCLUDE-GETFN 14 DOCOBJ-INCLUDE-PUTFN 9 DOCOBJ-INCLUDE-IMAGEBOXFN 4 DOCOBJ-INCLUDE-DISPLAYFN) () DOCOBJ-INCLUDE-CREATE-OBJ :D8 (P 0 IMAGEOBJ I 0 INCLOBJ) .@dd ihb` Xd H H(42 DOCOBJ-REGISTER-OBJECT 36 DOCOBJ-INCLUDE-RESET-OBJ 29 IMAGEOBJCREATE 13 MKSTRING) (24 DOCOBJ-INCLUDE-IMAGEFNS) () DOCOBJ-INCLUDE-EDIT :D8 (P 5 W P 4 FULLNAME P 2 NEWNAME I 0 INCLOBJ F 6 TEXTOBJ F 7 DOCOBJ-INCLUDE-EDITMENU) dWZ`dododi dodgdg dgjdndhHdI c dg0Vo@ Jd Zd@@Jidg@igV,g gV,g h @ LVoi V@ hKL hLM ]K[ M hdg@@iig @@hi(313 GIVE.TTY.PROCESS 306 TOTOPW 293 DOCOBJ-INCLUDE-EDIT-WINDOWP 282 TEDIT 277 MKATOM 265 TEDIT.PROMPTPRINT 256 TEDIT.PROMPTPRINT 238 INFILEP 229 FINDFILE 222 PACKFILENAME.STRING 217 FILENAMEFIELD 194 FILENAMEFIELD 168 OPENWINDOWS 133 MKSTRING 119 TEDIT.GETINPUT 96 MENU) (340 DISABLE 321 ENABLE 212 DIRECTORY 205 TEXTOBJ 199 DIRECTORY 189 HOST 182 TEXTOBJ 176 HOST 157 EDIT.FILE 102 NEW.FILE 65 DEFAULTMENUHELDFN 56 CLRPROMPT 47 Y 8 |MENUTYPE#|) ( 250 "Can't find " 112 "Enter new file name: " 38 (-1 . 30) 24 (("New File" (QUOTE NEW.FILE) "Include a different file") ("Edit File" (QUOTE EDIT.FILE) "Edit the included file") ("Enable" (QUOTE ENABLE) "Include the file during hardcopy") ("Disable" (QUOTE DISABLE) "Do not include the file during hardcopy")) 15 "Edit Include") DOCOBJ-INCLUDE-EDIT-WINDOWP :D8 (P 1 TXTFILE P 0 TEXTOBJ I 1 WINDOW I 0 FILENAME) nA f Ag Xd=6H,Yd* #I Yd Id3@ @I A@Ag bb(99 GETWINDOWUSERPROP 81 CL::SIMPLE-STRING-EQUAL 66 STRINGP 57 FULLNAME 49 STREAMP 21 GETWINDOWUSERPROP 5 WINDOWP) (94 ICONFOR 38 TEXTOBJ 30 TEXTOBJ 16 TEXTOBJ) () DOCOBJ-INCLUDE-RESET-OBJ :D8 (P 1 FNAME P 0 INCLOBJ I 0 IMAGEOBJ) o @g X=H@goIo @goIo @gg @gg h(107 IMAGEOBJPROP 91 IMAGEOBJPROP 74 IMAGEOBJPROP 69 CONCAT 46 IMAGEOBJPROP 41 CONCAT 13 IMAGEOBJPROP) (102 DOCOBJ-INCLUDE-AFTERHARDCOPYFN 97 AFTERHARDCOPYFN 86 DOCOBJ-INCLUDE-BEFOREHARDCOPYFN 81 BEFOREHARDCOPYFN 53 DONTINCLDISPLAYSTRING 25 INCLDISPLAYSTRING 8 OBJECTDATUM) ( 64 "]" 58 "@DoNotInclude[" 36 "]" 30 "@Include[") DOCOBJ-INCLUDE-AFTERHARDCOPYFN :D8 (P 1 STARTPOS P 0 HEADOBJ I 1 CH# I 0 IMAGEOBJ F 2 *DOCOBJ-FORMS* F 3 TEXTSTREAM) Z@g @gAk  @g Xdg YHgh gSIAIkhRch(65 IMAGEOBJPROP 52 IMAGEOBJPROP 40 IMAGEOBJPROP 25 IMAGEOBJPROP 10 IMAGEOBJPROP) (70 DOCOBJ-INCLUDE-CLEANUPFN 59 INCLUDEDP 47 INCLSTARTPOS 35 INCLIMAGEOBJ 17 INCLSTARTPOS 5 OBJECTDATUM) () DOCOBJ-INCLUDE-BEFOREHARDCOPYFNA0001A0002 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 TEXTSTREAM F 1 IMAGEOBJ F 2 INCLFILE F 3 ENDOBJ F 4 STARTPOS) P kXkjhPTjg Po Po PRigP ,g gP ,g h Rhdi SP SgQ Qgi (169 IMAGEOBJPROP 157 IMAGEOBJPROP 145 TEDIT.INSERT.OBJECT 138 TEDIT.INCLUDE 126 FINDFILE 119 PACKFILENAME.STRING 114 FILENAMEFIELD 97 TEXTOBJ 86 FILENAMEFIELD 69 TEXTOBJ 55 TEDIT.PARALOOKS 44 TEDIT.INSERT 33 TEDIT.SETSEL 5 TEXTOBJ) (163 INCLUDEDP 151 INCLIMAGEOBJ 109 DIRECTORY 102 TEXTOBJ 91 DIRECTORY 81 HOST 74 TEXTOBJ 63 HOST 28 RIGHT 10 TEXTOBJ) ( 50 (NEWPAGEAFTER NIL NEWPAGEBEFORE NIL LINELEADING 0 POSTPARALEADING 0 PARALEADING 0) 39 " ") DOCOBJ-INCLUDE-BEFOREHARDCOPYFNA0001A0005 :D8 (F 2 TEXTSTREAM F 3 OLD-UNWIND-FLAG) uR hd R jjdhR kR  R SkjHIXIjhR (114 TEDIT.UPDATE.SCREEN 109 TEXTOBJ 78 TEXTOBJ 72 \TEDIT.MARK.LINES.DIRTY 60 TEXTOBJ 53 TEXTOBJ 25 TEXTOBJ 19 \SHOWSEL 5 TEXTOBJ) (83 TEXTOBJ 65 TEXTOBJ 37 SELECTION 30 TEXTOBJ 10 TEXTOBJ) () DOCOBJ-INCLUDE-BEFOREHARDCOPYFNA0001 :D8 (P 0 OLD-UNWIND-FLAG I 4 WINDOWS I 3 ENDOBJ I 2 IMAGEOBJ I 1 INCLFILE I 0 STARTPOS F 1 TEXTSTREAM) D#Qoi QA Qo oAo Q Xjhg Q hd Q jQ kQ  Q HkjXQ $DQo oAo (224 PROMPTPRINT 207 TEDIT.PROMPTPRINT 189 TEDIT.UPDATE.SCREEN 184 TEXTOBJ 164 TEXTOBJ 157 \TEDIT.MARK.LINES.DIRTY 145 TEXTOBJ 138 TEXTOBJ 115 TEXTOBJ 108 \SHOWSEL 94 TEXTOBJ 88 \MVLIST 83 DOCOBJ-INCLUDE-BEFOREHARDCOPYFNA0001A0002 58 TEXTOBJ 51 PROMPTPRINT 34 TEDIT.PROMPTPRINT 22 TEDIT.PROMPTPRINT 14 TEDIT.PROMPTPRINT) (169 TEXTOBJ 150 TEXTOBJ 127 SELECTION 120 TEXTOBJ 99 TEXTOBJ 78 DOCOBJ-INCLUDE-BEFOREHARDCOPYFNA0001A0005 63 TEXTOBJ) ( 219 "... done.]" 213 "[TEdit hardcopy: including " 202 " done." 46 "...]" 40 "[TEdit hardcopy: including " 29 "..." 8 "Including ") DOCOBJ-INCLUDE-BEFOREHARDCOPYFN :D8 (P 0 INCLOBJ I 1 CH# I 0 IMAGEOBJ F 1 *DOCOBJ-FORMS* F 2 TEXTOBJ) J@g Hd84@g &gAkH@RhQch(50 DOCOBJ-INCLUDE-CREATE-OBJ 32 IMAGEOBJPROP 10 IMAGEOBJPROP) (56 TEXTOBJ 39 DOCOBJ-INCLUDE-BEFOREHARDCOPYFNA0001 27 INCLUDEDP 5 OBJECTDATUM) () DOCOBJ-INCLUDE-CLEANUPFN :D8 (P 3 PC P 1 PCS P 0 SEL I 2 LEN I 1 STARTPOS I 0 TEXTSTREAM) ^@AB @ H IJ@AB [K K JZ(86 CLOSEF 72 OPENP 47 BLOCK 42 TEDIT.DELETE 22 TEDIT.SELECTED.PIECES 16 TEXTOBJ 7 TEDIT.SETSEL) (79 PIECE 65 PIECE 55 PIECE) () DOCOBJ-INCLUDE-BUTTONEVENTINFN :D8 (I 7 BUTTON I 6 HOSTSTREAM I 5 WINDOW I 4 RELY I 3 RELX I 2 SELECTION I 1 WINDOWSTREAM I 0 IMAGEOBJ) 6Gg,A $@g @ g(46 DOCOBJ-INCLUDE-RESET-OBJ 38 DOCOBJ-INCLUDE-EDIT 33 IMAGEOBJPROP 22 ALLOW.BUTTON.EVENTS 15 DOCOBJ-WAIT-MOUSE) (51 CHANGED 28 OBJECTDATUM 6 MIDDLE) () DOCOBJ-INCLUDE-COPYFN :D8 (I 2 TARGETHOSTSTREAM I 1 SOURCEHOSTSTREAM I 0 IMAGEOBJ) @g (20 DOCOBJ-INCLUDE-CREATE-OBJ 15 COPYALL 10 IMAGEOBJPROP) (5 OBJECTDATUM) () DOCOBJ-INCLUDE-DISPLAYFN :D8 (P 0 INCLOBJ I 3 HOSTSTREAM I 2 IMAGESTREAMTYPE I 1 IMAGESTREAM I 0 IMAGEOBJ) <@g H+BgH@Hgg A h(56 PRIN1 50 IMAGEOBJPROP 10 IMAGEOBJPROP) (45 DONTINCLDISPLAYSTRING 39 INCLDISPLAYSTRING 22 DISPLAY 5 OBJECTDATUM) () DOCOBJ-INCLUDE-GETFN :D8 (P 0 INCLOBJ I 0 FILESTREAM) '@ HdhdXHih H (36 DOCOBJ-INCLUDE-CREATE-OBJ 29 \NCONC2 5 READ) NIL () DOCOBJ-INCLUDE-IMAGEBOXFN :D8 (P 0 INCLOBJ I 3 RIGHTMARGIN I 2 CURRENTX I 1 IMAGESTREAM I 0 IMAGEOBJ) N@g H1A gH@Hgg A h jdddh(61 DOCOBJ-STRING-IMAGEBOX 55 IMAGEOBJPROP 22 IMAGESTREAMTYPE 10 IMAGEOBJPROP) (50 DONTINCLDISPLAYSTRING 44 INCLDISPLAYSTRING 27 DISPLAY 5 OBJECTDATUM) () DOCOBJ-INCLUDE-PREPRINTFN :D8 (I 0 IMAGEOBJ) @g (10 IMAGEOBJPROP) (5 OBJECTDATUM) () DOCOBJ-INCLUDE-PUTFN :D8 (I 1 FILESTREAM I 0 IMAGEOBJ) @g A (16 PRINT 10 IMAGEOBJPROP) (5 OBJECTDATUM) () (PRETTYCOMPRINT DOC-OBJECTSCOMS) (RPAQQ DOC-OBJECTSCOMS ((* ;;; "This TEdit subsystem implements an extensible facility originally intended to provide bibliography and citation capabilities. The TEdit function GET.OBJ.FROM.USER, the one triggered by typing ^O, calls the function PROMPTFOREVALED which is redefined by this subsystem to be equivalent to the function DocObj-Acquire-Object. This function inserts IMAGEOBJects into the current TEdit, and is driven by the variables DocObjectsMenu and DocObjectsMenuCommands (analogous to BackgroundMenu and BackgroundMenuCommands). Each menu entry contains a form that, when EVAL'd, creates and returns a particular kind of IMAGEOBJ. Note that this form is EVAL'd under the function DocObj-Acquire-Object, which runs under the function GET.OBJ.FROM.USER, which gets TEXTSTREAM and TEXTOBJ as arguments. They can be (and are) used freely to record state or other desired info. The image objects supplied by this subsystem are 'Eval`d Form' (i.e., the original behavior of ^O), 'Screen Snap' (equivalent to right-buttoning in the background while holding the SHIFT key down), etc." ) (FILES (SYSLOAD) TEDIT IMAGEOBJ) (VARS (DocObjectsMenu NIL) (DocObjectsConfirmEditMenu NIL)) ( INITVARS (DocObjectsMenuCommands NIL) (DocObjectsMenuFont (FONTCREATE (QUOTE (MODERN 12 BOLD))))) ( COMS (* ;; "The hook into GET.OBJ.FROM.USER") (FNS DOCOBJ-ACQUIRE-OBJECT DOCOBJ-INIT DOCOBJ-TEDIT-MENU-ENTRY DOCOBJ-GET-LOOKS DOCOBJ-REGISTER-OBJECT DOCOBJ-STRING-IMAGEBOX DOCOBJ-WAIT-MOUSE DOCOBJ-INVOKE-IMAGEOBJFN DOCOBJ-BEFOREHARDCOPYFN DOCOBJ-AFTERHARDCOPYFN)) (COMS (* ;; "Eval'd Form") (FNS DOCOBJ-ACQUIRE-EVALED-OBJECT) (ADDVARS (DocObjectsMenuCommands ("Eval'd Form" ( DOCOBJ-ACQUIRE-EVALED-OBJECT) "Insert the value of a form to be typed in")))) (COMS (* ;; "Screen Snap") (FNS DOCOBJ-ACQUIRE-SNAPPED-OBJECT) (ADDVARS (DocObjectsMenuCommands ("Screen Snap" ( DOCOBJ-ACQUIRE-SNAPPED-OBJECT) "Insert a snap from the screen")))) (COMS (* ;; "Time Stamp") ( DECLARE%: DONTCOPY (RECORDS DOCOBJ-TIMESTAMP)) (FILES (SYSLOAD) DATEFORMAT-EDITOR) (FNS DOCOBJ-EDIT-TIMESTAMP DOCOBJ-MAKE-TIMESTAMP DOCOBJ-MAKE-TIMESTAMP-IMAGEFNS DOCOBJ-TIMESTAMP-BUTTONEVENTINFN DOCOBJ-TIMESTAMP-COPYFN DOCOBJ-TIMESTAMP-DISPLAYFN DOCOBJ-TIMESTAMP-GETFN DOCOBJ-TIMESTAMP-IMAGEBOXFN DOCOBJ-TIMESTAMP-PREPRINTFN DOCOBJ-TIMESTAMP-PUTFN DOCOBJ-TIMESTAMP-TO-STRING) (INITVARS (DocObjectsTimeStampFormat) (DOCOBJ-TIMESTAMP-IMAGEFNS ( DOCOBJ-MAKE-TIMESTAMP-IMAGEFNS))) (ADDVARS (DocObjectsMenuCommands ("Time Stamp" ( DOCOBJ-MAKE-TIMESTAMP) "Date & time this document is PUT")))) (COMS (* ;; "File Stamp") (FNS DOCOBJ-MAKE-FILESTAMP DOCOBJ-MAKE-FILESTAMP-IMAGEFNS DOCOBJ-FILESTAMP-COPYFN DOCOBJ-FILESTAMP-DISPLAYFN DOCOBJ-FILESTAMP-GETFN DOCOBJ-FILESTAMP-IMAGEBOXFN DOCOBJ-FILESTAMP-GET-FULLNAME DOCOBJ-FILESTAMP-NEW-FULLNAME DOCOBJ-FILESTAMP-PREPRINTFN DOCOBJ-FILESTAMP-PUTFN) (INITVARS (DOCOBJ-FILESTAMP-IMAGEFNS (DOCOBJ-MAKE-FILESTAMP-IMAGEFNS))) ( ADDVARS (DocObjectsMenuCommands ("File Stamp" (DOCOBJ-MAKE-FILESTAMP) "Name of file to which this document was last PUT.")))) (COMS (* ;; "Horizontal Rule") (FILES (SYSLOAD ) HRULE READNUMBER) (FNS DOCOBJ-MAKE-HRULE DOCOBJ-EDIT-HRULE DOCOBJ-HRULE-INIT DOCOBJ-HRULE-GET-WIDTH DOCOBJ-HRULE-BUTTONEVENTINFN) (VARS (DOCOBJ-HRULE-RULE-PAD) (DOCOBJ-HRULE-BLANK-PAD)) (ADDVARS ( DocObjectsMenuCommands ("Horizontal Rule" (DOCOBJ-MAKE-HRULE) "One or more horizontal rules"))) (P ( DOCOBJ-HRULE-INIT))) (COMS (* ;; "INCLUDE") (DECLARE%: EVAL@COMPILE DONTCOPY (RECORDS INCLOBJ)) (FNS DOCOBJ-MAKE-INCLUDE DOCOBJ-MAKE-INCLUDE-IMAGEFNS DOCOBJ-INCLUDE-CREATE-OBJ DOCOBJ-INCLUDE-EDIT DOCOBJ-INCLUDE-EDIT-WINDOWP DOCOBJ-INCLUDE-RESET-OBJ) (FNS DOCOBJ-INCLUDE-AFTERHARDCOPYFN DOCOBJ-INCLUDE-BEFOREHARDCOPYFN DOCOBJ-INCLUDE-CLEANUPFN DOCOBJ-INCLUDE-BUTTONEVENTINFN DOCOBJ-INCLUDE-COPYFN DOCOBJ-INCLUDE-DISPLAYFN DOCOBJ-INCLUDE-GETFN DOCOBJ-INCLUDE-IMAGEBOXFN DOCOBJ-INCLUDE-PREPRINTFN DOCOBJ-INCLUDE-PUTFN) (INITVARS (DOCOBJ-INCLUDE-EDITMENU) ( DOCOBJ-INCLUDE-IMAGEFNS (DOCOBJ-MAKE-INCLUDE-IMAGEFNS))) (ADDVARS (DocObjectsMenuCommands ("Include" ( DOCOBJ-MAKE-INCLUDE) "Include another document right here when hardcopying")))) (DECLARE%: DONTEVAL@LOAD DOCOPY (P (DOCOBJ-INIT))) (DECLARE%: EVAL@LOAD DONTCOPY (COMS (PROP FILETYPE DOC-OBJECTS ) (PROP MAKEFILE-ENVIRONMENT DOC-OBJECTS))))) (FILESLOAD (SYSLOAD) TEDIT IMAGEOBJ) (RPAQQ DocObjectsMenu NIL) (RPAQQ DocObjectsConfirmEditMenu NIL) (RPAQ? DocObjectsMenuCommands NIL) (RPAQ? DocObjectsMenuFont (FONTCREATE (QUOTE (MODERN 12 BOLD)))) (ADDTOVAR DocObjectsMenuCommands ("Eval'd Form" (DOCOBJ-ACQUIRE-EVALED-OBJECT) "Insert the value of a form to be typed in")) (ADDTOVAR DocObjectsMenuCommands ("Screen Snap" (DOCOBJ-ACQUIRE-SNAPPED-OBJECT) "Insert a snap from the screen")) (FILESLOAD (SYSLOAD) DATEFORMAT-EDITOR) (RPAQ? DocObjectsTimeStampFormat) (RPAQ? DOCOBJ-TIMESTAMP-IMAGEFNS (DOCOBJ-MAKE-TIMESTAMP-IMAGEFNS)) (ADDTOVAR DocObjectsMenuCommands ("Time Stamp" (DOCOBJ-MAKE-TIMESTAMP) "Date & time this document is PUT")) (RPAQ? DOCOBJ-FILESTAMP-IMAGEFNS (DOCOBJ-MAKE-FILESTAMP-IMAGEFNS)) (ADDTOVAR DocObjectsMenuCommands ("File Stamp" (DOCOBJ-MAKE-FILESTAMP) "Name of file to which this document was last PUT.")) (FILESLOAD (SYSLOAD) HRULE READNUMBER) (RPAQQ DOCOBJ-HRULE-RULE-PAD NIL) (RPAQQ DOCOBJ-HRULE-BLANK-PAD NIL) (ADDTOVAR DocObjectsMenuCommands ("Horizontal Rule" (DOCOBJ-MAKE-HRULE) "One or more horizontal rules" )) (DOCOBJ-HRULE-INIT) (RPAQ? DOCOBJ-INCLUDE-EDITMENU) (RPAQ? DOCOBJ-INCLUDE-IMAGEFNS (DOCOBJ-MAKE-INCLUDE-IMAGEFNS)) (ADDTOVAR DocObjectsMenuCommands ("Include" (DOCOBJ-MAKE-INCLUDE) "Include another document right here when hardcopying")) (DOCOBJ-INIT) (PUTPROPS DOC-OBJECTS COPYRIGHT ("Johannes A. G. M. Koomen" 1986 1987 1993 2018)) NIL