(FILECREATED " 3-Jun-86 17:42:04" {QV}<NOTECARDS>1.3K>FGHPATCH048.;2
 2865   

      changes to:  (FNS NC.LoadFileFromDirectories NC.CardTypeLoader)
		   (VARS FGHPATCH048COMS)

      previous date: " 3-Jun-86 17:39:34" {QV}<NOTECARDS>1.3K>FGHPATCH048.;1)


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

(PRETTYCOMPRINT FGHPATCH048COMS)

(RPAQQ FGHPATCH048COMS
 ((* * Fixes to bug %# 47, tty window during autoload)
			  (FNS NC.LoadFileFromDirectories NC.CardTypeLoader)))
(* * Fixes to bug %# 47, tty window during autoload)


(DEFINEQ

(NC.LoadFileFromDirectories

  (LAMBDA (FileName Directories)                             (* fgh: " 3-Jun-86 17:41")


          (* * Try to load FileName from Directories. The latter can be a list in which case the elements should be directory

	  paths. It can be an atom in which case it should be a DIRECTORIES var. Or it can be NIL in which case it defaults 

	  to the litatom NOTECARDSDIRECTORIES.)




          (* * fgh 6/3/86 Now closes tty window after ts done.)



    (
OR
 Directories (
SETQ
 Directories (
QUOTE
 NOTECARDSDIRECTORIES)))
    (
RESETLST
 (
RESETSAVE
 NIL (
BQUOTE
 (
AND
 , (
NOT
 (
OPENWP
 (
WFROMDS
 (
TTYDISPLAYSTREAM
)
										T)))
						  (
CLOSEW
 , (
WFROMDS
 (
TTYDISPLAYSTREAM
))))))
		(
APPLY*
 (
QUOTE
 FILESLOAD)
			  (if
 (
LISTP
 Directories)
			      then
 (
LIST
 (
QUOTE
 FROM)
					     Directories)
			    else
 (
LIST
 (
QUOTE
 FROM)
					   (
QUOTE
 VALUEOF)
					   Directories))
			  FileName))))

(NC.CardTypeLoader

  (LAMBDA (TypeName FileSuggestion)                          (* fgh: " 3-Jun-86 17:40")


          (* * Load card type TypeName using FileSuggestion as the first place to look. Otherwise look in the directories 

	  specified by NoteCardsDirectories.)




          (* * fgh 2/3/86 First written.)




          (* * fgh 6/3/86 Now removes TTY window if it was not previously open.)



    (LET ((FileName (
PACK*
 (
QUOTE
 NC)
			     (
U-CASE
 TypeName)
			     (
QUOTE
 CARD)))
	  FullFileName)
         (
RESETLST
 (
RESETSAVE
 NIL (
BQUOTE
 (
AND
 , (
NOT
 (
OPENWP
 (
WFROMDS
 (


										 
TTYDISPLAYSTREAM
)))
								)
						       (
CLOSEW
 , (
WFROMDS
 (
TTYDISPLAYSTREAM
)))))
				  )
		     (
OR
 (
AND
 FileSuggestion (
SETQ
 FullFileName (
INFILEP
 FileSuggestion))
				  (
LOAD
 FullFileName (
QUOTE
 SYSLOAD)))
			   (
AND
 (
SETQ
 FullFileName (
OR
 (
FINDFILE
 (
PACK*
 FileName
										  (
QUOTE
 .dcom))
									 T NOTECARDSDIRECTORIES)
							     (
FINDFILE
 FileName T 
									 NOTECARDSDIRECTORIES)))
				  (
LOAD
 FullFileName (
QUOTE
 SYSLOAD))))))))
)
(PUTPROPS FGHPATCH048 COPYRIGHT ("Xerox Corporation" 1986))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (562 2783 (NC.LoadFileFromDirectories 572 . 1594) (NC.CardTypeLoader 1596 . 2781)))))
STOP