(FILECREATED "15-Jul-86 17:04:04" {QV}<NOTECARDS>1.3K>KIRKPATCH018.;1
 3838   

      changes to:  (VARS KIRKPATCH018COMS)
		   (FNS NC.LoadCardType FLASHW NC.PutTextSubstance NC.CardTypeLoader))


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

(PRETTYCOMPRINT KIRKPATCH018COMS)

(RPAQQ KIRKPATCH018COMS
 ((* * change to NCTYPESMECH)
			   (FNS NC.CardTypeLoader)
			   (* * New FN for NCUTILITIES)
			   (FNS FLASHW)
			   (* * adding local declarations)
			   (FNS NC.PutTextSubstance)))
(* * change to NCTYPESMECH)


(DEFINEQ

(NC.CardTypeLoader

  (LAMBDA (TypeName FileSuggestion)                          (* kirk: "15-Jul-86 16:44")


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



    (LET (FullFileName)
         (
SETQ
 FullFileName (
NC.FindCardTypeFile
 TypeName FileSuggestion))
         (
AND
 FullFileName (
RESETLST
 (
RESETSAVE
 NIL (if
 (
OPENWP
 (
WFROMDS
 (


										 
TTYDISPLAYSTREAM
)
										     T))
							      then
 (
QUOTE
 (
NILL
))
							    else
 (
BQUOTE
 (
CLOSEW

									       ,
									       (
WFROMDS
 (


										 
TTYDISPLAYSTREAM
)))
									     )))
					 (
LOAD?
 FullFileName NC.LOADFLG))))))
)
(* * New FN for NCUTILITIES)


(DEFINEQ

(FLASHW

  (LAMBDA (WIN? N FLASHINTERVAL SHADE)                       (* kirk: "15-Jul-86 08:51")


          (* * kirk 15Jul86 Old name kept for historical and shorthand reasons)



    (
FLASHWINDOW
 WIN? N FLASHINTERVAL SHADE)))
)
(* * adding local declarations)


(DEFINEQ

(NC.PutTextSubstance

  (LAMBDA (Card Stream)                                      (* kirk: "15-Jul-86 12:32")

                                                             (* Put text substance from card ID on the database 

							     file)


          (* * rht 9/13/85: Now doesn't try to write piece table at all if substance has zero length.)




          (* * fgh 11/13/85 Updated to handle NoteFile, Card objects.)




          (* * fgh 11/20/85 removed code to handle start and end pointers)




          (* * rht 1/23/86: Now takes Stream as arg instead of computing from Card.)




          (* * fgh 2/6/86 Now returns a version number.)




          (* * Now checks to make sure that TEXTLEN > 0 before FORMATTEDP call.)



    (LET ((Substance (
NC.FetchSubstance
 Card))
	  StartPtr StartFormatPtr EOFPtr)

          (* * Save the location of the start of this text stream.)



         (
SETQ
 StartPtr (
GETFILEPTR
 Stream))

          (* * The write down the text stream)



         (
COND

	   ((
NOT
 (
ZEROP
 (fetch
 (
TEXTOBJ
 TEXTLEN) of
 (
TEXTOBJ
 Substance))))
	     (
TEDIT.PUT.PCTB
 (
TEXTOBJ
 Substance)
			       Stream)))

          (* * fix up the file absolute pointerts to be file textstream relative pointers.)



         (if
 (
AND
 (
NOT
 (
ZEROP
 (fetch
 (
TEXTOBJ
 TEXTLEN) of
 (
TEXTOBJ
 Substance))))
		      (
TEDIT.FORMATTEDFILEP
 Substance))
	     then
 (
SETFILEPTR
 Stream (
IDIFFERENCE
 (
SETQ
 EOFPtr (
GETEOFPTR
 Stream))
							8))
		    (
SETQ
 StartFormatPtr (
\DWIN
 Stream))
		    (
SETFILEPTR
 Stream (
IDIFFERENCE
 EOFPtr 8))
		    (
\DWOUT
 Stream (
DIFFERENCE
 StartFormatPtr StartPtr)))

          (* * Set stream file ptr to eof.)



         (
SETFILEPTR
 Stream -1)
     0)))
)
(PUTPROPS KIRKPATCH018 COPYRIGHT ("Xerox Corporation" 1986))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (552 1557 (NC.CardTypeLoader 562 . 1555)) (1593 1847 (FLASHW 1603 . 1845)) (1886 3755 (
NC.PutTextSubstance 1896 . 3753)))))
STOP