(FILECREATED "24-Apr-87 11:58:11" {QV}<NOTECARDS>1.3K>NEXT>RGPATCH036.;1
 3132   

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


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

(PRETTYCOMPRINT RGPATCH036COMS)

(RPAQQ RGPATCH036COMS
 ((* * rg 4/24/87 changed lib>next to next>lib)
			 (* * change to NOTECARDS)
			 (FNS NC.SetUpNOTECARDSDIRECTORIES)))
(* * rg 4/24/87 changed lib>next to next>lib)


(* * change to NOTECARDS)


(DEFINEQ

(NC.SetUpNOTECARDSDIRECTORIES

  [LAMBDA (BaseDirectory ReleaseIdentifier)                  (* Randy.Gobbel "24-Apr-87 11:55")


          (* * Set up the NoteCards directories globalvars)




          (* * fgh 8/5/86 Now adds NC.ThisDirectory onto the beginning of the directory list retruned.)




          (* * RG 4/24/87 adds next>lib> into dir list if notecards was loaded from >next)



    (LET (NoteCardsBaseDirectory StrPtr LibNextDirectory)

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



         [
COND

	   ((
SETQ
 NoteCardsBaseDirectory BaseDirectory))
	   (T (
SETQ
 NC.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
 NC.ThisDirectory)
					  NIL NIL NIL T))
		  (
SETQ
 NoteCardsBaseDirectory (
SUBATOM
 NC.ThisDirectory 1 (
SUB1
 StrPtr]
         (
SETQ
 LibNextDirectory (
COND

	     ((
STRPOS
 ">NEXT>" NC.ThisDirectory)
	       (
PACK*
 NoteCardsBaseDirectory (
OR
 ReleaseIdentifier NC.ReleaseIdentifier)
			">NEXT>LIBRARY>"))
	     (T NIL)))

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



         (
COND

	   [NoteCardsBaseDirectory (
COND

				     [LibNextDirectory (
UNION
 (
LIST
 NC.ThisDirectory)
								(
LIST
 (
PACK*
 
									   NoteCardsBaseDirectory
										 (
OR
 
										ReleaseIdentifier 
									     NC.ReleaseIdentifier)
										 ">")
									LibNextDirectory
									(
PACK*
 
									   NoteCardsBaseDirectory
										 (
OR
 
										ReleaseIdentifier 
									     NC.ReleaseIdentifier)
										 ">" "LIBRARY>")
									NoteCardsBaseDirectory
									(
PACK*
 
									   NoteCardsBaseDirectory 
										 "LIBRARY>"]
				     (T (
UNION
 (
LIST
 NC.ThisDirectory)
						 (
LIST
 (
PACK*
 NoteCardsBaseDirectory
								  (
OR
 ReleaseIdentifier 
									NC.ReleaseIdentifier)
								  ">")
							 (
PACK*
 NoteCardsBaseDirectory
								  (
OR
 ReleaseIdentifier 
									NC.ReleaseIdentifier)
								  ">" "LIBRARY>")
							 NoteCardsBaseDirectory
							 (
PACK*
 NoteCardsBaseDirectory "LIBRARY>"]
	   (T (
LIST
 NC.ThisDirectory])
)
(PUTPROPS RGPATCH036 COPYRIGHT ("Xerox Corporation" 1987))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (500 3051 (NC.SetUpNOTECARDSDIRECTORIES 510 . 3049)))))
STOP