(FILECREATED " 1-Aug-85 16:37:21" {ERIS}<LISPCORE>LIBRARY>CMLHELP.;5
 2674   

      changes to:  (FNS CMLSHOW CMLHASHFILE)

      previous date: "30-Jul-85 04:11:55" {ERIS}<LISPCORE>LIBRARY>CMLHELP.;3)


(* Copyright (c) 1985 by Xerox Corporation. All rights reserved.)

(PRETTYCOMPRINT CMLHELPCOMS)

(RPAQQ CMLHELPCOMS
 ((VARS CMLPATH (CMLWINDOW)) (FNS CMLSHOW MAKECMLINDEX CMLWINDOW CMLHASHFILE) (
INITVARS (CMLDEFS))))

(RPAQQ CMLPATH
 {ERIS}<COMMONLISP>CURRENT>.SLISP)

(RPAQQ CMLWINDOW
 NIL)
(DEFINEQ

(CMLSHOW

(LAMBDA (NAME TO) (* lmm "31-Jul-85 03:22") (LET ((OUT (OR TO (OPENSTREAM (QUOTE {SCRATCH}) (QUOTE 
BOTH) (QUOTE NEW))))) (for X in (GETHASHFILE (U-CASE NAME) (CMLHASHFILE)) do (RESETLST (RESETSAVE NIL 
(LIST (QUOTE CLOSEF?) (SETQ STR (OPENSTREAM (OR (PACKFILENAME (QUOTE NAME) (CAR X) (QUOTE BODY) 
CMLPATH) (ERROR (CAR X) "CMLFILE NOT FOUND")) (QUOTE INPUT) (QUOTE OLD))))) (LET ((END (OR (FILEPOS 
"
(def" STR (PLUS 4 (CADR X))) (GETEOFPTR STR)))) (SELECTQ OUT (TEDIT (OPENTEXTSTREAM STR (CMLWINDOW) (
CADR X) END)) ((ALLFILE T) (TEDIT.SETSEL (SETQ STR (OPENTEXTSTREAM STR)) (CADR X) (DIFFERENCE END (
CADR X))) (OPENTEXTSTREAM STR (CMLWINDOW))) (PROGN (PRINTOUT OUT "(from " (FULLNAME STR) ")" T) (
COPYBYTES STR OUT (CADR X) END) (TERPRI OUT)))))) (if (NOT TO) then (OPENTEXTSTREAM OUT (CMLWINDOW))))
))

(MAKECMLINDEX

  [LAMBDA (HF PATTERN)                                       (* lmm "30-Jul-85 02:33")

    (
SETQ
 HF (
OPENHASHFILE
 HF (
QUOTE
 NEW)
			   40 3080))
    (bind
 STR NF for
 FILE in
 (
FILDIR
 PATTERN)
       do
 (
RESETLST
 [
RESETSAVE
 NIL (
LIST
 (
QUOTE
 CLOSEF?)
					 (
SETQ
 STR (
OPENSTREAM
 FILE (
QUOTE
 INPUT)
							       (
QUOTE
 OLD]
		    (
SETQ
 NF (
NAMEFIELD
 FILE))
		    (while
 (
FILEPOS
 "
(def" STR)
		       do
 (
READC
 STR)
			  (LET ((POS (
GETFILEPTR
 STR))
				(DEFFER (
PROGN
 (
BIN
 STR)
					       (
READ
 STR CMLRDTBL)))
				(DEFD (
READ
 STR CMLRDTBL)))
			       (LET ((DEFA (if
 (
LISTP
 DEFD)
					       then
 (
CAR
 DEFD)
					     else
 DEFD)))
				    (if
 (
SYMBOLP
 DEFA)
					then
 (
ADDHASHFILE
 (
U-CASE
 DEFA)
							  (
LIST
 NF POS)
							  HF])

(CMLWINDOW

  [LAMBDA NIL
    (
OR
 CMLWINDOW (
SETQ
 CMLWINDOW (
CREATEW
 (
QUOTE
 (0 0 500 300))
					   "CML definitions"])

(CMLHASHFILE

(LAMBDA NIL (* lmm "30-Jul-85 03:55") (OR CMLDEFS (SETQ CMLDEFS (OPENHASHFILE (PACKFILENAME (QUOTE 
BODY) (QUOTE CML.HASH) (QUOTE BODY) CMLPATH) (QUOTE INPUT))))))
)

(RPAQ? CMLDEFS
 )
(PUTPROPS CMLHELP COPYRIGHT ("Xerox Corporation" 1985))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (512 2574 (CMLSHOW 522 . 1343) (MAKECMLINDEX 1345 . 2251) (CMLWINDOW 2253 . 2390) (
CMLHASHFILE 2392 . 2572)))))
STOP