(FILECREATED "14-Jul-87 21:25:44" {QV}<NOTECARDS>1.3K>LIBRARY>NCMAPS.;4
 3183   

      changes to:  (VARS NCMAPSCOMS)

      previous date: "10-Oct-86 12:23:02" {QV}<NOTECARDS>1.3K>LIBRARY>NCMAPS.;3)


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

(PRETTYCOMPRINT NCMAPSCOMS)

(RPAQQ NCMAPSCOMS
 [(DECLARE: DONTEVAL@LOAD (FILES (FROM VALUEOF NOTECARDSDIRECTORIES)
						    NCSKETCHCARD))
		     (* * NOTECARDSMAPDIRECTORIES stuff)
		     (GLOBALVARS NOTECARDSMAPDIRECTORIES UseMapWithPoliticalBoundaries)
		     (FNS NC.SetUpNOTECARDSMAPDIRECTORIES)
		     (INITVARS (NOTECARDSMAPDIRECTORIES (NC.SetUpNOTECARDSMAPDIRECTORIES)))
		     (* * Smash any dummy MAP def'n on SKETCH.ELEMENT.TYPE.NAMES before loading 
			NEWMAP)
		     (DECLARE: DONTEVAL@LOAD (P (DREMOVE (QUOTE MAP)
							 SKETCH.ELEMENT.TYPE.NAMES))
			       (FILES (FROM VALUEOF NOTECARDSMAPDIRECTORIES)
				      NEWMAP)
			       (P (NCP.ChangeCardTypeFields (QUOTE Sketch)
							    NIL
							    (BQUOTE ((MiddleButtonMenuItems
								       ,
								       (SKETCH.COMMANDMENU.ITEMS
									 T T])
(DECLARE: DONTEVAL@LOAD 
(FILESLOAD (FROM VALUEOF NOTECARDSDIRECTORIES)
	   NCSKETCHCARD)
)
(* * NOTECARDSMAPDIRECTORIES stuff)


(DECLARE: DOEVAL@COMPILE DONTCOPY

(GLOBALVARS NOTECARDSMAPDIRECTORIES UseMapWithPoliticalBoundaries)
)
(DEFINEQ

(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))))))
)

(RPAQ? NOTECARDSMAPDIRECTORIES
 (NC.SetUpNOTECARDSMAPDIRECTORIES))
(* * Smash any dummy MAP def'n on SKETCH.ELEMENT.TYPE.NAMES before loading NEWMAP)


(DECLARE: DONTEVAL@LOAD 
(DREMOVE (QUOTE MAP)
	 SKETCH.ELEMENT.TYPE.NAMES)

(FILESLOAD (FROM VALUEOF NOTECARDSMAPDIRECTORIES)
	   NEWMAP)

[NCP.ChangeCardTypeFields (QUOTE Sketch)
			  NIL
			  (BQUOTE ((MiddleButtonMenuItems , (SKETCH.COMMANDMENU.ITEMS T T]
)
(PUTPROPS NCMAPS COPYRIGHT ("Xerox Corporation" 1986 1987))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (1348 2680 (NC.SetUpNOTECARDSMAPDIRECTORIES 1358 . 2678)))))
STOP