All source files converted to LF (#315)

* All source files converted to LF

Also, HPRINT:  EQUALALL knows about CL arrays
FILEIO:  STREAM record with fields for external format functions

* Delete makeinit.dribble

* Converted CR to LF on internal/library and docs/Documentation Tools

lispusers/DICT-WINDOW-TYPES

@@ -1 +1,105 @@
-(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE "XCL-USER")
+(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