386 lines
23 KiB
Plaintext
386 lines
23 KiB
Plaintext
(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
|
||
|
||
(FILECREATED " 3-May-2026 10:47:18" ("compiled on " {MEDLEY}<lispusers>DOC-OBJECTS.;2)
|
||
" 1-May-2026 13:20:42" tcompl'd in "APPS 1-May-2026 ..." dated " 1-May-2026 13:20:50")
|
||
(FILECREATED " 3-May-2026 10:44:14" {MEDLEY}<lispusers>DOC-OBJECTS.;2 53774 :EDIT-BY "lmm" :CHANGES-TO
|
||
(VARS DOC-OBJECTSCOMS) (FNS DOCOBJ-ACQUIRE-OBJECT DOCOBJ-INIT DOCOBJ-TEDIT-MENU-ENTRY
|
||
DOCOBJ-GET-LOOKS DOCOBJ-REGISTER-OBJECT DOCOBJ-STRING-IMAGEBOX DOCOBJ-WAIT-MOUSE
|
||
DOCOBJ-BEFOREHARDCOPYFN DOCOBJ-AFTERHARDCOPYFN DOCOBJ-ACQUIRE-EVALED-OBJECT
|
||
DOCOBJ-ACQUIRE-SNAPPED-OBJECT 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 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 DOCOBJ-MAKE-HRULE
|
||
DOCOBJ-EDIT-HRULE DOCOBJ-HRULE-INIT DOCOBJ-HRULE-GET-WIDTH DOCOBJ-HRULE-BUTTONEVENTINFN
|
||
DOCOBJ-MAKE-INCLUDE DOCOBJ-MAKE-INCLUDE-IMAGEFNS DOCOBJ-INCLUDE-CREATE-OBJ DOCOBJ-INCLUDE-EDIT
|
||
DOCOBJ-INCLUDE-EDIT-WINDOWP DOCOBJ-INCLUDE-RESET-OBJ 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)
|
||
:PREVIOUS-DATE " 9-Dec-2024 21:07:13" {MEDLEY}<lispusers>DOC-OBJECTS.;1)
|
||
DOCOBJ-ACQUIRE-OBJECT :D8
|
||
NIL k ` Ã ³U` do ¿di ¿d` ¿d` ¿dg ¿dg ¿jdnÿdhHdI
|
||
¿ „` (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 % g g g ` 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 0 TEXTOBJ I 1 CH#ORCHARLOOKS I 0 TEXTOBJ) \ @ Aà ‘AHÉYjð³%IµAd3 ³,à ²A É° ²äHÉ4AªHÉ É€hH
|
||
(89 PLOOKS 84 \TEDIT.CHTOPC 58 \FZEROP 5 TEXTOBJ)
|
||
(74 SELECTION 49 SELECTION 41 SELECTION 14 CHARLOOKS)
|
||
()
|
||
DOCOBJ-REGISTER-OBJECT :D8
|
||
(I 0 OBJECT F 0 TEXTOBJ) & @´#Pg g Pg g @ (34 TEXTPROP 18 TEXTPROP)
|
||
(29 DOCOBJ-AFTERHARDCOPYFN 24 AFTERHARDCOPYFN 13 DOCOBJ-BEFOREHARDCOPYFN 8 BEFOREHARDCOPYFN)
|
||
()
|
||
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
|
||
Xd ÉYH É Zdg
|
||
A [ðJg K Z€J È
|
||
\J È ]@J
|
||
LjIñ¡I‚jIÙØMIÙjh (88 STRINGWIDTH 78 FONTCREATE 69 FONTCREATE 61 FONTCOPY 46 IMAGESTREAMTYPE 40 FONTPROP 10 DOCOBJ-GET-LOOKS)
|
||
(55 DEVICE 35 DEVICE 26 CHARLOOKS 17 CHARLOOKS)
|
||
()
|
||
DOCOBJ-WAIT-MOUSE :D8
|
||
(P 0 REGION I 0 STREAM) B h@
|
||
¿` låYjð³$I—I ³H@ @ ³Ïhi (58 INSIDEP 53 LASTMOUSEY 47 LASTMOUSEX 38 \FZEROP 14 GETMOUSESTATE 6 DSPCLIPPINGREGION)
|
||
(20 LASTMOUSEBUTTONS)
|
||
()
|
||
DOCOBJ-BEFOREHARDCOPYFNA0001 :D8
|
||
(NAME SI::*UNWIND-PROTECT* P 9 PREVPC P 8 FN P 7 OBJ P 6 PC P 5 CH# P 4 EVENTS P 3 FAILED P 2 PREVSEL P 1 OLDDIRTY P 0 TEXTOBJ I 0 SI::*CLEANUP-FORMS* F 10 TEXTSTREAM) ÷
|
||
W W HÊ, jðhð¹H É !kH 2 N³%Hh ¿IHÊ, jðhðð’± ‰HI
|
||
¿HI²wk°uNÊ lð²NÉ _ŸOg
|
||
_µMNÉÔ½NÉ^°² ²ïNÉ
|
||
_¿HONMlO£i»°—H L¼O›NOÉð³ÅO°ÈNH ð³·H °¸jÏ, ¿HL
|
||
K´W H Jg (230 DOCOBJ-AFTERHARDCOPYFN 220 \TEDIT.HISTORYADD.COMPOSITE 206 \TEDIT.FIRSTPIECE 197 \TEDIT.FIRSTPIECE 172 \TEDIT.POPEVENT 142 DEFINEDP 121 IMAGEOBJPROP 86 \TEDIT.WINDOW.TITLE 53 \TEDIT.FIRSTPIECE 43 \TEDIT.COPYSEL 13 TEXTOBJ 6 TEDIT.DEFER.UPDATES)
|
||
(244 DON'T 236 TEXTOBJ 116 BEFOREHARDCOPYFN 38 SELECTION 31 TEXTOBJ)
|
||
()
|
||
DOCOBJ-BEFOREHARDCOPYFN :D8
|
||
(P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 0 TEXTSTREAM F 3 LISPXHIST) S!g ¿$ (23 SI::RESETUNWIND 18 \MVLIST 13 DOCOBJ-BEFOREHARDCOPYFNA0001)
|
||
(8 SI::RESETUNWIND)
|
||
()
|
||
DOCOBJ-AFTERHARDCOPYFNA0001 :D8
|
||
(NAME SI::*UNWIND-PROTECT* P 1 PREVUNDONE P 0 TEXTOBJ I 0 SI::*CLEANUP-FORMS* F 2 TSTREAM F 3 SI::*RESETFORMS*) W g g Ro g RhhRg i hScR H ɹRi
|
||
H II (74 TEDIT.UNDO 55 TEXTOBJ 42 TEXTPROP)
|
||
(80 TEXTOBJ 64 TEXTOBJ 36 DON'TUPDATE 22 \TEDIT.FILL.PANES 9 TEXTPROP 4 PROGN)
|
||
( 15 ((QUOTE DON'TUPDATE) OLDVALUE))
|
||
DOCOBJ-AFTERHARDCOPYFN :D8
|
||
(P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 0 TSTREAM F 3 LISPXHIST) & @ b S!g ¿$ (31 SI::RESETUNWIND 26 \MVLIST 21 DOCOBJ-AFTERHARDCOPYFNA0001 5 TEXTSTREAM)
|
||
(16 SI::RESETUNWIND)
|
||
()
|
||
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
|
||
g g g g g g g dddddg
|
||
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) 0 Gg ð´&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
|
||
H HhHA
|
||
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
|
||
g g g g g g ddddddg
|
||
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
|
||
H² Hd3@ð–H ŒH —H µ A¥o h (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) ) @ Hd² d3@ð–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 @g H HA
|
||
h (32 PRINT 25 IMAGEOBJPROP 10 MKSTRING 5 FULLNAME)
|
||
(19 OBJECTDATUM)
|
||
()
|
||
DOCOBJ-MAKE-HRULE :D8
|
||
(P 4 WIDTH P 0 I) 8 kAHkåjðhðHkð
|
||
\•Ldjó¨¿I »Jµ
|
||
KhZ¹HkÔX°ÕK&º°÷ (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
|
||
d£d‘hH Y` Vio WK g ð´J´IHô@g I @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
|
||
h NIL
|
||
(14 DOCOBJ-HRULE-BUTTONEVENTINFN 9 IMAGEFNS 4 HRULE.IMAGEFNS)
|
||
()
|
||
DOCOBJ-HRULE-GET-WIDTH :D8
|
||
(I 1 FIRST? I 0 RULE?) u ` ³.o hddid
|
||
¿o hddid
|
||
¿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) & Gg ð´ A ´ @ ´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
|
||
HµQo
|
||
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
|
||
g g g g g g g dddddg
|
||
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) . @d<>dª 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 1 TSTREAM I 0 INCLOBJ F 6 DOCOBJ-INCLUDE-EDITMENU F 7 TXTFILE F 8 *TEDIT-EXTENSIONS*) \ VµZ` do ¿do ¿di ¿do ¿dg ¿dg ¿dg ¿jdnÿdhHdI
|
||
¿c dg ð²0¿Ao @ Jd¢± — Zd¢± Œ@ô’± „@Jidg 𢱠•¿ @g Wg
|
||
g Wg
|
||
` W µ @ L³Ao i ¿A@
|
||
hKµL h½LM
|
||
]µK[°á ¿M hdg ð›¿@³Ó@iig ð´ @´@hi (305 GIVE.TTY.PROCESS 298 TOTOPW 285 DOCOBJ-INCLUDE-EDIT-WINDOWP 274 TEDIT 269 MKATOM 257 TEDIT.PROMPTPRINT 248 TEDIT.PROMPTPRINT 230 INFILEP 221 FINDFILE-WITH-EXTENSIONS 208 PACKFILENAME.STRING 203 FILENAMEFIELD 186 FILENAMEFIELD 167 OPENWINDOWS 132 MKSTRING 118 TEDIT.GETINPUT 95 MENU)
|
||
(332 DISABLE 313 ENABLE 213 DIRECTORIES 198 DIRECTORY 191 DIRECTORY 181 HOST 174 HOST 156 EDIT.FILE 101 NEW.FILE 64 DEFAULTMENUHELDFN 55 CLRPROMPT 46 Y 7 |MENUTYPE#|)
|
||
( 242 "Can't find " 111 "Enter new file name: " 37 (-1 . 30) 23 (("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"))
|
||
14 "Edit Include")
|
||
DOCOBJ-INCLUDE-EDIT-WINDOWP :D8
|
||
(P 1 TXTFILE P 0 TEXTOBJ I 1 WINDOW I 0 FILENAME) b A ´Z Ai
|
||
Xd²5 É,Yd²* ´#I Yd² ¦Id3@ð´ @I
|
||
´Aµ@Ag
|
||
b¿b ¿°¢ (87 GETWINDOWUSERPROP 69 CL::SIMPLE-STRING-EQUAL 54 STRINGP 45 FULLNAME 37 STREAMP 17 TEXTOBJ 5 WINDOWP)
|
||
(82 ICONFOR 26 TEXTOBJ)
|
||
()
|
||
DOCOBJ-INCLUDE-RESET-OBJ :D8
|
||
(P 1 FNAME P 0 INCLOBJ I 0 IMAGEOBJ) _ @g
|
||
X²=H¹@g o Io ¿@g o Io ¿@g g h (91 IMAGEOBJPROP 74 IMAGEOBJPROP 69 CONCAT 46 IMAGEOBJPROP 41 CONCAT 13 IMAGEOBJPROP)
|
||
(86 DOCOBJ-INCLUDE-BEFOREHARDCOPYFN 81 BEFOREHARDCOPYFN 53 DONTINCLDISPLAYSTRING 25 INCLDISPLAYSTRING 8 OBJECTDATUM)
|
||
( 64 "]" 58 "@DoNotInclude[" 36 "]" 30 "@Include[")
|
||
DOCOBJ-INCLUDE-BEFOREHARDCOPYFN :D8
|
||
(P 1 TXTFILE P 0 INCLFILE I 3 CH# I 2 PC I 1 OBJ I 0 TEXTOBJ F 2 *TEDIT-EXTENSIONS* F 3 DOCOBJ-INCLUDE-SAFE) É Ag
|
||
´‚± ·Ag
|
||
@ É,HI´-g Ig
|
||
g Ig
|
||
` R Xd²L@ É Ckg @d É
|
||
@HhdS
|
||
@o H
|
||
|
||
i@o Ao id h (197 TEDIT.PROMPTPRINT 190 CONCAT 170 TEDIT.PROMPTPRINT 165 CONCAT 153 TEDIT.INCLUDE 142 \TEDIT.DELETE 123 \TEDIT.UPDATE.SEL 94 FINDFILE-WITH-EXTENSIONS 82 PACKFILENAME.STRING 77 FILENAMEFIELD 61 FILENAMEFIELD 29 IMAGEOBJPROP 10 IMAGEOBJPROP)
|
||
(137 SELECTION 130 TEXTOBJ 118 LEFT 111 SELECTION 104 TEXTOBJ 87 DIRECTORIES 72 DIRECTORY 66 DIRECTORY 56 HOST 50 HOST 36 TEXTOBJ 24 OBJECTDATUM 5 OBJECTDATUM)
|
||
( 185 " not found" 178 "Included file " 159 "Included ")
|
||
DOCOBJ-INCLUDE-CLEANUPFN :D8
|
||
(P 2 PC P 0 TEXTOBJ I 2 LEN I 1 STARTPOS I 0 TEXTSTREAM) Ž o g
|
||
@ AdBØkÙH !Iµ°9 ¿IÉ ºIÉ »JÊ o
|
||
˜JÉ ¿JdKð²#¿H H ÉH@AB ¿H É Z°º (129 BLOCK 121 TEDIT.DELETE 90 CLOSEF? 81 MEMB 35 \TEDIT.SELPIECES 20 TEXTOBJ 14 HELP)
|
||
(137 PIECE 111 TEXTOBJ 105 TEXTOBJ 66 PIECE 57 PIECE 48 SELPIECES 9 DOCOBJ-INCLUDE-CLEANUPFN)
|
||
( 76 (0 1 2 11 8 9) 4 "NOTUSED?")
|
||
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) 7 Gg ð´-A ´% @g
|
||
F
|
||
´
|
||
@ g (47 DOCOBJ-INCLUDE-RESET-OBJ 39 DOCOBJ-INCLUDE-EDIT 33 IMAGEOBJPROP 22 ALLOW.BUTTON.EVENTS 15 DOCOBJ-WAIT-MOUSE)
|
||
(52 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´,Bg ð¤H³ @H•g „g
|
||
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) ' @ Hd¤hdX©Hih
|
||
¿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
|
||
H´1A g ð¤H³ @H•g „g
|
||
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 TEDIT IMAGEOBJ) (DECLARE%: EVAL@COMPILE DONTCOPY (FILES TEDIT-EXPORTS.ALL)) (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-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 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 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)) (
|
||
INITVARS (DOCOBJ-INCLUDE-SAFE T)) (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-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 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 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 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-SAFE T)
|
||
(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)
|
||
NIL
|