(FILECREATED " 9-Sep-85 17:47:33" {ERIS}<LISPCORE>LIBRARY>CMLHELP.;6
 2359   

      changes to:  (FNS MAKECMLINDEX CMLSHOW CMLHASHFILE) (VARS CMLHELPCOMS)

      previous date: " 1-Aug-85 16:37:21" {ERIS}<LISPCORE>LIBRARY>CMLHELP.;5)


(* 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) (* raf " 9-Sep-85 17:33") (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 (PATTERN HF) (* raf " 9-Sep-85 17:44") (SETQ HF (OPENHASHFILE (OR HF "CML.HASH") (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 (* raf " 9-Sep-85 17:46") (OR CMLDEFS (SETQ CMLDEFS (OPENHASHFILE (PACKFILENAME (QUOTE 
BODY) "CML.HASH" (QUOTE BODY) CMLPATH) (QUOTE INPUT))))))
)

(RPAQ? CMLDEFS
 )
(PUTPROPS CMLHELP COPYRIGHT ("Xerox Corporation" 1985))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (544 2259 (CMLSHOW 554 . 1375) (MAKECMLINDEX 1377 . 1969) (CMLWINDOW 1971 . 2081) (
CMLHASHFILE 2083 . 2257)))))
STOP