(FILECREATED " 7-Aug-86 10:47:11" {QV}<NOTECARDS>1.3K>NEXT>KIRKPATCH024.;1
 1828   

      changes to:  (VARS KIRKPATCH024COMS NOTECARDSLIBRARYFILES))


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

(PRETTYCOMPRINT KIRKPATCH024COMS)

(RPAQQ KIRKPATCH024COMS
 ((* * adds quiet flg changed in NCTYPESMECH)
			   (FNS NC.CardTypeLoader)))
(* * adds quiet flg changed in NCTYPESMECH)


(DEFINEQ

(NC.CardTypeLoader

  (LAMBDA (TypeName FileSuggestion QuietFlg)                 (* kirk: " 7-Aug-86 10:42")


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




          (* * kirk 1Jul86 Added new process.)




          (* * kirk 15Jul86 Removed new process and added FGH's RESETLST to close stream.)




          (* * fgh 7/16/86 Added PRINTOUT to inform user before find file begins.)




          (* * kirk 8/7/86 Added QuietFlg. Will not stop LOAD messages though.)



    (
RESETLST
 (
RESETSAVE
 NIL (if
 (
OPENWP
 (
WFROMDS
 (
TTYDISPLAYSTREAM
)
							    T))
				     then
 (
QUOTE
 (
NILL
))
				   else
 (
BQUOTE
 (
CLOSEW
 , (
WFROMDS
 (
TTYDISPLAYSTREAM
))))))
		(LET (FullFileName (Window (
WFROMDS
 (
TTYDISPLAYSTREAM
))))
		     (if
 (
NOT
 QuietFlg)
			 then
 (
CLEARW
 Window)
				(
FLASHWINDOW
 Window)
				(PRINTOUT Window "Card type " TypeName " not loaded." T 
					  "Attempting to autoload."
					  T))
		     (
SETQ
 FullFileName (
NC.FindCardTypeFile
 TypeName FileSuggestion))
		     (
AND
 FullFileName (
LOAD?
 FullFileName NC.LOADFLG))))))
)
(PUTPROPS KIRKPATCH024 COPYRIGHT ("Xerox Corporation" 1986))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (415 1745 (NC.CardTypeLoader 425 . 1743)))))
STOP