(FILECREATED " 1-May-86 23:35:19" {QV}<NOTECARDS>1.3K>FGHPATCH028.;1
 3092   

      changes to:  (VARS FGHPATCH028COMS)
		   (FNS NC.GetBrowserSubstance NC.GetGraphSubstance))


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

(PRETTYCOMPRINT FGHPATCH028COMS)

(RPAQQ FGHPATCH028COMS
 ((* * Fixes to handle obscure cases of old style browsers -- FROM 
			     NCBROWSERCARD and NCGRAPHCARD)
			  (FNS NC.GetBrowserSubstance NC.GetGraphSubstance)))
(* * Fixes to handle obscure cases of old style browsers -- FROM NCBROWSERCARD and NCGRAPHCARD
)


(DEFINEQ

(NC.GetBrowserSubstance

  (LAMBDA (Card Length Stream VersionNum)                    (* fgh: " 1-May-86 23:31")


          (* * Go get all the browser-specific info and then get the graph that is the browser's substance.)




          (* * rht 2/14/86: Added call to NC.ApplySupersFn)




          (* * rht 2/28/86: Added special handling for old version -1 style. I.e. pre 1.3k.)




          (* * fgh 5/1/86 Can't have negative versions, so changed old style to be 255 255.0 Also added defaults for old 

	  style browser specs.)



    (if
 (
NEQ
 VersionNum 255)
	then
 (
NC.SetBrowserRootsInfo
 Card (
NC.ReadBrowserRootsInfo
 Stream))
	       (
NC.SetBrowserLinkLabels
 Card (
NC.ReadBrowserLinkLabels
 Stream))
	       (
NC.SetBrowserFormat
 Card (
NC.ReadBrowserFormat
 Stream))
	       (
NC.SetSpecialBrowserSpecs
 Card (
NC.ReadSpecialBrowserSpecs
 Stream))
	       (
NC.SetBrowserDepth
 Card (
NC.ReadBrowserDepth
 Stream))
	       (
NC.SetBrowserLinksLegend
 Card (
NC.ReadBrowserLinksLegend
 Stream))
	       (
NC.SetBrowserSavedLinkingInfo
 Card (
NC.ReadBrowserSavedLinkingInfo
 Stream))
      else
 (
NC.SetBrowserRootsInfo
 Card NIL)
	     (
NC.SetBrowserLinkLabels
 Card NIL)
	     (
NC.SetBrowserFormat
 Card NIL)
	     (
NC.SetSpecialBrowserSpecs
 Card NIL)
	     (
NC.SetBrowserDepth
 Card 0)
	     (
NC.SetBrowserLinksLegend
 Card NIL)
	     (
NC.SetBrowserSavedLinkingInfo
 Card NIL))
    (NC.ApplySupersFn GetFn Card Length Stream VersionNum)))

(NC.GetGraphSubstance

  (LAMBDA (Card Length Stream VersionNum)                    (* fgh: " 1-May-86 23:27")


          (* * Read the Graph)




          (* * fgh 11/14/85 Updated to handle Card object.)




          (* * fgh 11/20/85 NoteCards now passes start and end ptrs down.)




          (* * fgh 11/21/85 Now passes length instead of start and end ptrs.)




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




          (* * rht 2/7/86: Now uses READGRAPH instead of HREAD)




          (* * rht 2/28/86: Added special handling for old version -1 style. I.e. pre 1.3k.)




          (* * fgh 5/1/86 Can't have negative version numbers, so changed old style versions to be 255.0)



    (if
 (
EQ
 VersionNum 255)
	then
 (
HREAD
 Stream)
      else
 (
READGRAPH
 Stream))))
)
(PUTPROPS FGHPATCH028 COPYRIGHT ("Xerox Corporation" 1986))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (578 3010 (NC.GetBrowserSubstance 588 . 2135) (NC.GetGraphSubstance 2137 . 3008)))))
STOP