(FILECREATED " 6-Jan-86 16:36:14" {ERIS}<LISPCORE>LIBRARY>CMLHELP.;7
 3611   

      changes to:  (VARS CMLPATH CMLHELPCOMS)
		   (FNS CMLSHOW CMLHASHFILE ADDHASHFILE)

      previous date: " 9-Sep-85 17:47:33" {ERIS}<LISPCORE>LIBRARY>CMLHELP.;6)


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

(PRETTYCOMPRINT CMLHELPCOMS)

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

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

(RPAQQ CMLWINDOW
 NIL)
(DEFINEQ

(ADDHASHFILE

  [LAMBDA (NAME VAL HARRAY)
    (
PUTHASHFILE
 NAME (
CONS
 VAL (
GETHASHFILE
 NAME HARRAY))
		   HARRAY])

(CMLSHOW

  [LAMBDA (NAME TO)                                          (* lmm " 6-Jan-86 16:34")

    (LET [(OUT (
OR
 TO (
OPENSTREAM
 (
QUOTE
 {SCRATCH})
				      (
QUOTE
 BOTH)
				      (
QUOTE
 NEW]
         [for
 HF inside
 (CMLHASHFILE
)
	    do
 (for
 X inside
 (
GETHASHFILE
 (
U-CASE
 NAME)
						  (
CAR
 HF))
		    do
 (
RESETLST
 [
RESETSAVE
 NIL (
LIST
 (
QUOTE
 CLOSEF?)
							      (
SETQ
 STR (
OPENSTREAM

								  (
PACKFILENAME
 (
QUOTE
 NAME)
										  (
CAR
 X)
										  (
QUOTE
 BODY)
										  (
CDR
 HF))
								  (
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
								(
QUOTE
 (FONT (TERMINAL 10]
						     [(ALLFILE T)
						       (
TEDIT.SETSEL

							 [
SETQ
 STR
							   (
OPENTEXTSTREAM

							     STR NIL NIL NIL
							     (
QUOTE
 (FONT (TERMINAL 10]
							 (
CADR
 X)
							 (
DIFFERENCE
 END (
CADR
 X)))
						       (
OPENTEXTSTREAM
 STR (CMLWINDOW
)
									 NIL NIL
									 (
QUOTE

									   (FONT (TERMINAL 10]
						     (
PROGN
 (PRINTOUT OUT "(from " (
FULLNAME

									  STR)
									")" T)
							      (
COPYBYTES
 STR OUT (
CADR
 X)
									   END)
							      (
TERPRI
 OUT]
         (if
 (
NOT
 TO)
	     then
 (
OPENTEXTSTREAM
 OUT (CMLWINDOW
)
				      NIL NIL (
QUOTE
 (FONT (TERMINAL 10])

(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                                                (* lmm " 6-Jan-86 16:23")

    (
OR
 CMLDEFS (
SETQ
 CMLDEFS (for
 path inside
 CMLPATH
				     collect
 (
CONS
 (
OPENHASHFILE
 (
PACKFILENAME
 (
QUOTE

											 BODY)
										       "CML.HASH"
										       (
QUOTE

											 BODY)
										       path)
								       (
QUOTE
 INPUT))
						       path])
)

(RPAQ? CMLDEFS
 )
(PUTPROPS CMLHELP COPYRIGHT ("Xerox Corporation" 1985 1986))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (591 3506 (ADDHASHFILE 601 . 730) (CMLSHOW 732 . 2371) (MAKECMLINDEX 2373 . 2965) (
CMLWINDOW 2967 . 3077) (CMLHASHFILE 3079 . 3504)))))
STOP