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/GREP

@@ -1 +1,78 @@
-
(FILECREATED "14-May-86 08:04:43" {DSK}<LISPFILES>GREP.;1
 2502   
+
(FILECREATED "14-May-86 08:04:43" {DSK}<LISPFILES>GREP.;1
 2502   
+
+      changes to:  (FNS DOGREP)
+
+      previous date: " 5-Mar-86 12:15:18" {DANTE}<LISPNEW>LISPUSERS>GREP.;1)
+
+
+(* Copyright (c) 1984, 1985, 1986 by Xerox Corporation. All rights reserved.)
+
+(PRETTYCOMPRINT GREPCOMS)
+
+(RPAQQ GREPCOMS
 ((FNS DOGREP GREP PHONE)
+		   (FILES BSEARCH)
+		   (INITVARS (PHONELISTFILES))))
+(DEFINEQ
+
+(DOGREP

+  [LAMBDA (STR FILES)                                        (* Newman "14-May-86 08:04")

+
+          (* * Originally coded by Larry Masinter.)

+
+
+
+          (* * No longer permanently modifies the DSPFONT when DSPFONT is not the same as the DEFAULTFONT.

+	  -DVN "14-May-86 08:03:59")

+
+
+    (if
 (
LISTP
 FILES)
+	then
 (for
 FILE in
 FILES do
 (DOGREP
 STRS FILE))
+      elseif
 (
STRPOS
 "*" FILES)
+	then
 (DOGREP
 STRS (
DIRECTORY
 FILES NIL "*" ""))
+      else
 (
RESETLST
 (
INFILE
 FILES)
+			 (
RESETSAVE
 NIL (
LIST
 (
QUOTE
 CLOSEF?)
+						  (
INPUT
)))
+			 (
RESETSAVE
 NIL (
LIST
 (
QUOTE
 DSPFONT)
+						  (
DSPFONT
)))
+			 (bind
 FOUND for
 STR inside
 STRS
+			    do
 (
SETFILEPTR
 NIL 0)
+				 (bind
 POS while
 (
SETQ
 POS
+						       (
FFILEPOS
 STR NIL NIL NIL NIL NIL 
+								   UPPERCASEARRAY))
+				    do
 (
OR
 FOUND (
PROGN
 (PRINTOUT NIL T .FONT COMMENTFONT 
+									"(from "
+									(
INPUT
)
+									")" .FONT DEFAULTFONT)
+							      (
SETQ
 FOUND T)))
+					 (
COPYCHARS

+					   NIL T (
OR
 (
BFILEPOS
 [
CONSTANT

+								     (
MKSTRING
 (
CHARACTER

+										   (
CHARCODE
 CR]
+								   (
INPUT
)
+								   0 POS)
+						       0)
+					   POS)
+					 (
DSPFONT
 BOLDFONT)
+					 [
COPYCHARS
 NIL T POS (
SETQ
 POS (
IPLUS
 POS
+										     (
NCHARS
 STR]
+					 (
DSPFONT
 DEFAULTFONT)
+					 (
COPYCHARS
 NIL T POS (
ADD1
 (
FILEPOS

+									  (
CHARACTER
 (
CHARCODE

+											 CR))
+									  NIL POS])
+
+(GREP

+(LAMBDA (STRS FILES) (* lmm " 1-Apr-85 15:27") (RESETLST (DOGREP STRS FILES))))
+
+(PHONE

+  [LAMBDA (NAME)
                                                       (* lmm 
+                                                                           " 5-Mar-86 12:14")

+    (GREP
 NAME (OR PHONELISTFILES (PROMPTFORWORD "Name of directory file: "])
+)
+(FILESLOAD BSEARCH)
+
+(RPAQ? PHONELISTFILES
 )
+(PUTPROPS GREP COPYRIGHT ("Xerox Corporation" 1984 1985 1986))
+(DECLARE: DONTCOPY
+  (FILEMAP (NIL (392 2368 (DOGREP 402 . 2000) (GREP 2002 . 2091) (PHONE 2093 . 2366)))))
+STOP