-
-
Notifications
You must be signed in to change notification settings - Fork 24
/
Copy pathDICT-WINDOW-TYPES
105 lines (90 loc) · 4.36 KB
/
DICT-WINDOW-TYPES
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE "XCL-USER")
(IL:FILECREATED " 6-Oct-88 12:43:10" IL:{ERINYES}<LISPUSERS>MEDLEY>DICT-WINDOW-TYPES.\;3 4434
IL:|changes| IL:|to:| (IL:FUNCTIONS DICT-WINDOW-RECONSTITUTER SEARCH-MENU-RECONSTITUTER
DICT-WINDOW-ABSTRACTER SEARCH-MENU-ABSTRACTER SEARCH-MENU-P
DICT-WINDOW-P)
(IL:WINDOW-TYPES :DICT-WINDOW :SEARCH-MENU)
(IL:VARS IL:DICT-WINDOW-TYPESCOMS)
(IL:FNS SEARCH-MENU-P)
(FILE-ENVIRONMENTS IL:DICT-WINDOW-TYPES)
IL:|previous| IL:|date:| " 6-Oct-88 12:18:11" IL:{ERINYES}<LISPUSERS>MEDLEY>DICT-WINDOW-TYPES.\;2
)
; Copyright (c) 1988 by Xerox Corporation. All rights reserved.
(IL:PRETTYCOMPRINT IL:DICT-WINDOW-TYPESCOMS)
(IL:RPAQQ IL:DICT-WINDOW-TYPESCOMS ((FILE-ENVIRONMENTS IL:DICT-WINDOW-TYPES)
(IL:WINDOW-TYPES :DICT-WINDOW :SEARCH-MENU)
(IL:FUNCTIONS DICT-WINDOW-P DICT-WINDOW-ABSTRACTER
DICT-WINDOW-RECONSTITUTER)
(IL:FUNCTIONS SEARCH-MENU-P SEARCH-MENU-ABSTRACTER
SEARCH-MENU-RECONSTITUTER)))
(DEFINE-FILE-ENVIRONMENT IL:DICT-WINDOW-TYPES :COMPILER :COMPILE-FILE
:READTABLE "XCL"
:PACKAGE "XCL-USER")
(ROOMS:DEF-WINDOW-TYPE :DICT-WINDOW :DEPENDENCIES (:TEDIT :TEXTSTREAM)
:RECOGNIZER DICT-WINDOW-P
:ABSTRACTER DICT-WINDOW-ABSTRACTER
:RECONSTITUTER DICT-WINDOW-RECONSTITUTER
:TITLE "Definitions"
:FILES (IL:DICTTOOL IL:DICT-WINDOW-TYPES))
(ROOMS:DEF-WINDOW-TYPE :SEARCH-MENU :RECOGNIZER SEARCH-MENU-P
:ABSTRACTER SEARCH-MENU-ABSTRACTER
:RECONSTITUTER SEARCH-MENU-RECONSTITUTER
:TITLE "Search Menu"
:FILES (IL:SEARCHMENU IL:DICT-WINDOW-TYPES))
(DEFUN DICT-WINDOW-P (WINDOW)
(DECLARE (GLOBAL IL:|Dict.DefWindow|))
(EQ WINDOW IL:|Dict.DefWindow|))
(DEFUN DICT-WINDOW-ABSTRACTER (W)
(LET (NERD DICT)
(DECLARE (GLOBAL IL:|Dict.OutputStream|))
(SETQ NERD (OR (IL:STREAMPROP (IL:TEXTSTREAM W)
'IL:|nerd|)
(IL:STREAMPROP (IL:|Dict.OutputStream|)
'IL:|nerd|)))
(SETQ DICT (OR (IL:STREAMPROP (IL:TEXTSTREAM W)
'IL:|dict|)
(IL:STREAMPROP (IL:|Dict.OutputStream|)
'IL:|dict|)))
(LIST :DICT (AND DICT (IL:|Dict.Name| DICT))
:NERD
(AND NERD (IL:|InvertedDict.Name| NERD)))))
(DEFUN DICT-WINDOW-RECONSTITUTER (DATA)
(DECLARE (GLOBAL IL:|Dict.DefWindow|))
(LET (DICTSTREAM DICTNAME DICT NERDNAME NERD)
(SETQ DICTSTREAM (IL:|Dict.OutputStream| (IL:CREATEREGION 0 0 100 100)))
(COND
((SETQ DICTNAME (GETF DATA :DICT))
(COND
((SETQ DICT (IL:|DictFromName| DICTNAME))
(IL:STREAMPROP DICTSTREAM 'IL:|dict| DICT)))))
(COND
((SETQ NERDNAME (GETF DATA :NERD))
(COND
((SETQ NERD (IL:|InvertedDictFromName| NERDNAME))
(IL:STREAMPROP DICTSTREAM 'IL:|nerd| NERD)))))
IL:|Dict.DefWindow|))
(DEFUN SEARCH-MENU-P (W)
(EQUAL "Search Menu" (IL:WINDOWPROP W 'IL:TITLE)))
(DEFUN SEARCH-MENU-ABSTRACTER (W)
(LET (NERD)
(DECLARE (GLOBAL IL:|SearchMenu.Stream|))
(SETQ NERD (AND (STREAMP IL:|SearchMenu.Stream|)
(IL:STREAMPROP IL:|SearchMenu.Stream| 'IL:|nerd|)))
(LIST :NERD (AND NERD (IL:|InvertedDict.Name| NERD)))))
(DEFUN SEARCH-MENU-RECONSTITUTER (DATA)
(LET (NERDNAME NERD)
(DECLARE (GLOBAL IL:|SearchMenu| IL:|SearchMenu.Stream|))
(IL:|SearchMenu.Create|)
(COND
((NULL IL:|SearchMenu.Stream|)
(SETQ IL:|SearchMenu.Stream| (IL:OPENTEXTSTREAM))))
(COND
((SETQ NERDNAME (GETF DATA :NERD))
(COND
((SETQ NERD (IL:|InvertedDictFromName| NERDNAME))
(IL:STREAMPROP IL:|SearchMenu.Stream| 'IL:|nerd| NERD)))))
IL:|SearchMenu|))
(IL:PUTPROPS IL:DICT-WINDOW-TYPES IL:COPYRIGHT ("Xerox Corporation" 1988))
(IL:DECLARE\: IL:DONTCOPY
(IL:FILEMAP (NIL)))
IL:STOP