(FILECREATED "15-Jun-86 12:52:01" {ERIS}<TAMARIN>UCODE>GETSIM.;2
 1809   

      changes to:  (VARS GETSIMCOMS)
		   (FNS FilterNodeNames)

      previous date: "14-Jun-86 14:12:14" {ERIS}<TAMARIN>UCODE>GETSIM.;1)


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

(PRETTYCOMPRINT GETSIMCOMS)

(RPAQQ GETSIMCOMS
 ((FNS CollectSimFile FilterNodeNames)))
(DEFINEQ

(CollectSimFile

  [LAMBDA (file)                                             (* agb: "14-Jun-86 14:11")

    (
PROG
 (fl ty end)
	    (
SETQ
 fl (
OPENFILE
 file (
QUOTE
 INPUT)))
	    (
SETQ
 end (
DIFFERENCE
 (
GETEOFPTR
 fl)
				      4))
	    (
RATOM
 fl)
	    (
RATOM
 fl)
	    (
RATOM
 fl)
	    [
SETQ
 res (until
 (
GEQ
 (
GETFILEPTR
 fl)
					end)
			   collect
 (
SETQ
 ty (
RATOM
 fl))
				     (if
 (
EQ
 ty (
QUOTE
 N))
					 then
 (
LIST
 ty (
RATOM
 fl)
							(
RATOM
 fl)
							(
RATOM
 fl)
							(
RATOM
 fl)
							(
RATOM
 fl)
							(
RATOM
 fl)
							(
RATOM
 fl))
				       elseif
 (
OR
 (
EQ
 ty (
QUOTE
 d))
						      (
EQ
 ty (
QUOTE
 e)))
					 then
 (
LIST
 ty (
RATOM
 fl)
							(
RATOM
 fl)
							(
RATOM
 fl)
							(
RATOM
 fl)
							(
RATOM
 fl)
							(
RATOM
 fl)
							(
RATOM
 fl))
				       else
 (
HELP
]
	    (
CLOSEF
 fl])

(FilterNodeNames

  [LAMBDA NIL                                                (* agb: "14-Jun-86 20:27")

    (
PROG
 (r1)
	    (
SETQ
 r1 (for
 i in
 res when
 (
EQ
 (
CAR
 i)
						      (
QUOTE
 N))
			  collect
 (
CADR
 i)))
	    (
SETQ
 r1 (
SORT
 r1))
	    (
SETQ
 r1 (
INTERSECTION
 r1 r1))
	    (
RETURN
 r1])
)
(PUTPROPS GETSIM COPYRIGHT ("Xerox Corporation" 1986))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (379 1732 (CollectSimFile 389 . 1370) (FilterNodeNames 1372 . 1730)))))
STOP