(FILECREATED " 8-Oct-85 13:47:42" {QV}<NOTECARDS>1.2K>FGHPATCH101.;1
 3261   

      changes to:  (VARS FGHPATCH101COMS)
		   (FNS NC.SetUpNOTECARDSDIRECTORIES))


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

(PRETTYCOMPRINT FGHPATCH101COMS)

(RPAQQ FGHPATCH101COMS
 ((FNS NC.SetUpNOTECARDSDIRECTORIES NC.SetUpNOTECARDSMAPSDIRECTORIES)))
(DEFINEQ

(NC.SetUpNOTECARDSDIRECTORIES

  (LAMBDA (BaseDirectory ReleaseIdentifier)                  (* fgh: " 8-Oct-85 13:44")


          (* * Set up the NoteCards directories globalvars)



    (LET (ThisDirectory NoteCardsBaseDirectory StrPtr)

          (* * Get the directory for the file now being loaded)



      (
COND

	((
SETQ
 NoteCardsBaseDirectory BaseDirectory))
	(T (
SETQ
 ThisDirectory (
PACK*
 (
QUOTE
 {)
				      (
FILENAMEFIELD
 (
FULLNAME
 (
INPUT
))
						     (
QUOTE
 HOST))
				      (
QUOTE
 })
				      (
QUOTE
 <)
				      (
FILENAMEFIELD
 (
FULLNAME
 (
INPUT
))
						     (
QUOTE
 DIRECTORY))
				      (
QUOTE
 >)))

          (* * Find the directory path up to the first subdirectory called NoteCards)



	   (
COND

	     ((
SETQ
 StrPtr (
STRPOS
 "NOTECARDS>" (
U-CASE
 ThisDirectory)
				   NIL NIL NIL T))
	       (
SETQ
 NoteCardsBaseDirectory (
SUBATOM
 ThisDirectory 1 (
SUB1
 StrPtr)))))))

          (* * Create the directory search list based on the NoteCardsBaseDirectory)



      (
COND

	(NoteCardsBaseDirectory (
LIST
 (
PACK*
 NoteCardsBaseDirectory (
OR
 ReleaseIdentifier 
									NC.ReleaseIdentifier)
					     ">")
				      (
PACK*
 NoteCardsBaseDirectory (
OR
 ReleaseIdentifier 
									NC.ReleaseIdentifier)
					     ">" "LIBRARY>")
				      NoteCardsBaseDirectory
				      (
PACK*
 NoteCardsBaseDirectory "LIBRARY>")))
	(T (
LIST
 ThisDirectory))))))

(NC.SetUpNOTECARDSMAPDIRECTORIES

  (LAMBDA (BaseDirectory)                                    (* fgh: " 8-Oct-85 13:46")


          (* * Set up the NoteCards directories maps globalvars)



    (LET (ThisDirectory StrPtr NoteCardsBaseDirectory)

          (* * Get the directory for the file now being loaded)



      (
COND

	((
SETQ
 NoteCardsBaseDirectory BaseDirectory))
	(T (
SETQ
 ThisDirectory (
PACK*
 (
QUOTE
 {)
				      (
FILENAMEFIELD
 (
FULLNAME
 (
INPUT
))
						     (
QUOTE
 HOST))
				      (
QUOTE
 })
				      (
QUOTE
 <)
				      (
FILENAMEFIELD
 (
FULLNAME
 (
INPUT
))
						     (
QUOTE
 DIRECTORY))
				      (
QUOTE
 >)))

          (* * Find the directory path up to the first subdirectory called NoteCards)



	   (
COND

	     ((
SETQ
 StrPtr (
STRPOS
 "NOTECARDS>" (
U-CASE
 ThisDirectory)
				   NIL NIL NIL T))
	       (
SETQ
 NoteCardsBaseDirectory (
SUBATOM
 ThisDirectory 1 (
SUB1
 StrPtr)))))))

          (* * Create the directory search list based on the NoteCardsBaseDirectory)



      (
COND

	(NoteCardsBaseDirectory (
LIST
 (
PACK*
 NoteCardsBaseDirectory "MAPS>NEW>")
				      (
PACK*
 NoteCardsBaseDirectory "MAPS>")
				      NoteCardsBaseDirectory))
	(T (
LIST
 ThisDirectory))))))
)
(PUTPROPS FGHPATCH101 COPYRIGHT ("Xerox Corporation" 1985))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (368 3179 (NC.SetUpNOTECARDSDIRECTORIES 378 . 1868) (NC.SetUpNOTECARDSMAPDIRECTORIES 
1870 . 3177)))))
STOP