(FILECREATED "28-Jun-85 18:15:30" {PHYLUM}<NOTECARDS>RELEASE1.2I>FGHPATCH016.;3
 2130   

      changes to:  (FNS NC.GetTextSubstance)
		   (VARS FGHPATCH016COMS)

      previous date: "28-Jun-85 17:51:49" {PHYLUM}<NOTECARDS>RELEASE1.2I>FGHPATCH016.;1)


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

(PRETTYCOMPRINT FGHPATCH016COMS)

(RPAQQ FGHPATCH016COMS
 ((* * Fixes for left over CORE files problem)
			(* * From NCDATABASE)
			(FNS NC.GetTextSubstance)))
(* * Fixes for left over CORE files problem)


(* * From NCDATABASE)


(DEFINEQ

(NC.GetTextSubstance

  (LAMBDA (DatabaseStream ID)                                (* fgh: "28-Jun-85 18:15")

                                                             (* Get a text stream from the database file)

    (LET ((TempStream (
OPENSTREAM
 (
QUOTE
 {NODIRCORE})
				  (
QUOTE
 BOTH)
				  (
QUOTE
 NEW)))
       StartPtr EndPtr StartFormatPtr TempFileEof TextStream)
      (
SETQ
 StartPtr (NC.GetPtr DatabaseStream))
      (
SETQ
 EndPtr (NC.GetPtr DatabaseStream))

          (* * Copy text stream to a NODIRCORE file)



      (
COPYBYTES
 DatabaseStream TempStream StartPtr EndPtr)

          (* * fix up file absolute pinter to the beginning of the formatting nformation)



      (
COND

	((
IGREATERP
 (
SETQ
 TempFileEof (
GETEOFPTR
 TempStream))
		    2)
	  (
SETFILEPTR
 TempStream (
IDIFFERENCE
 TempFileEof 2))
	  (
COND

	    ((
FMEMB
 (\WIN TempStream)
		    NC.TEditFormatIDs)
	      (
SETFILEPTR
 TempStream (
IDIFFERENCE
 TempFileEof 8))
	      (
SETQ
 StartFormatPtr (
\DWIN
 TempStream))
	      (
SETFILEPTR
 TempStream (
IDIFFERENCE
 TempFileEof 8))
	      (
\DWOUT
 TempStream (
IDIFFERENCE
 StartFormatPtr StartPtr))))))

          (* * return an open textstream on the temp file)



      (
SETQ
 TextStream (
OPENTEXTSTREAM
 TempStream NIL NIL NIL (
NC.MakeTEditPropsList
)))
      (
STREAMPROP
 TextStream (
QUOTE
 NoteCardID)
		  ID)
      TextStream)))
)
(PUTPROPS FGHPATCH016 COPYRIGHT ("Xerox Corporation" 1985))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (569 2048 (NC.GetTextSubstance 579 . 2046)))))
STOP