(FILECREATED " 6-Nov-84 22:23:59" {PHYLUM}<PSA>NOTECARDS>RELEASE1.1>NCANNO.;13 3864   

      changes to:  (VARS NCANNOCOMS)
		   (FNS ANNO.GETFN READ.ANNOOBJ)

      previous date: " 5-Nov-84 19:12:45" {PHYLUM}<PSA>NOTECARDS>RELEASE1.1>NCANNO.;12)


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

(PRETTYCOMPRINT NCANNOCOMS)

(RPAQQ NCANNOCOMS ((* * Residual compatibility with Anno based NoteFiles)
		   (FNS ANNO.GETFN READ.ANNOOBJ NOTECARD.ANNO.GETFN MAKE.ANNO.NOTECARD.SUBSTANCE)
		   (RECORDS ANNO ANNOSUBSTANCETYPE)
		   (DECLARE: DONTCOPY (RECORDS ANNONOTECARDSUBSTANCE WORD)
			     (MACROS \WIN))
		   (P (MAKE.ANNO.NOTECARD.SUBSTANCE))))
(* * Residual compatibility with Anno based NoteFiles)

(DEFINEQ

(ANNO.GETFN
  (LAMBDA (FILESTREAM)                                       (* fgh: " 6-Nov-84 22:19")

          (* * STRIPPED DOWN VERSION OF ANNO.GETFN1 TO GET ANY OLD ANNO STYLE NOTECARDLINKS ON UNCONVERTED FILES)


    (\STRINGIN FILESTREAM)
    (\STRINGIN FILESTREAM)
    (\STRINGIN FILESTREAM)
    (\ATMIN FILESTREAM)
    (\ATMIN FILESTREAM)
    (\WIN FILESTREAM)
    (\ATMIN FILESTREAM)
    (READ FILESTREAM)
    (\ATMIN FILESTREAM)
    (NOTECARD.ANNO.GETFN NIL FILESTREAM)))

(READ.ANNOOBJ
  (LAMBDA (INFILE)                                           (* fgh: " 6-Nov-84 22:20")
                                                             (* function written onto the file by WRITE.ANNO which 
							     is called by HPRINT function.)
    (ANNO.GETFN INFILE)))

(NOTECARD.ANNO.GETFN
  (LAMBDA (INPUTANNO INFILE)                                 (* fgh: " 5-Nov-84 17:33")

          (* * This is a NoteCard Anno ImageObject. We want to convert it to a Link Icon Image Object so just return the Link 
	  Icon from Anno.GetFn)


    (RETFROM (QUOTE ANNO.GETFN)
	     (NC.LinkIconGetFn INFILE))))

(MAKE.ANNO.NOTECARD.SUBSTANCE
  (LAMBDA NIL                                                (* fgh: " 2-Nov-84 17:24")
    (SETQ ANNO.SUBSTANCE.TYPES (CONS (create ANNOSUBSTANCETYPE
					     TYPENAME ←(QUOTE NOTECARD)
					     GETSUBSTANCEFN ←(FUNCTION NOTECARD.ANNO.GETFN))
				     (AND (BOUNDP (QUOTE ANNO.SUBSTANCE.TYPES))
					  ANNO.SUBSTANCE.TYPES)))))
)
[DECLARE: EVAL@COMPILE 

(DATATYPE ANNO (ANNO\SUBSTANCE ANNO\ID ANNO\WINDOW ANNO\DATE ANNO\PARENTS ANNO\NEXTSUBID ANNO\TYPE 
			       ANNO\SUMMARIZED\IN ANNO\UPDATE\DATE ANNO\CREATE\BY ANNO\UPDATE\BY 
			       ANNO\FONT))

(DATATYPE ANNOSUBSTANCETYPE (TYPENAME CREATESUBSTANCEFN EDITSUBSTANCEFN GETSUBSTANCEFN PUTSUBSTANCEFN 
				      WHENANNODELETEDFN WHENANNOCOPIEDFN WHENANNOMOVEDFN 
				      WHENANNOINSERTEDFN SUMMARYDISPLAYFN LOCATIONMETRIC 
				      DEFAULTWINDOWSIZE ANNOWINDOWDIRTYP BUTTONEVENTINFN IMAGEBOXFN 
				      DISPLAYFN LISTOFANNOSFN))
]
(/DECLAREDATATYPE (QUOTE ANNO)
		  (QUOTE (POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER 
				  POINTER POINTER POINTER)))
(/DECLAREDATATYPE (QUOTE ANNOSUBSTANCETYPE)
		  (QUOTE (POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER 
				  POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER)))
(DECLARE: DONTCOPY 
[DECLARE: EVAL@COMPILE 

(RECORD ANNONOTECARDSUBSTANCE (SUBSTANCETYPE ANNONOTECARDSPEC)
			      SUBSTANCETYPE ←(QUOTE NOTECARD))

(ACCESSFNS WORD ((HIBYTE (LRSH DATUM 8))
		 (LOBYTE (LOGAND DATUM 255)))
		(CREATE (IPLUS (LLSH HIBYTE 8)
			       LOBYTE)))
]

(DECLARE: EVAL@COMPILE 

(PUTPROPS \WIN MACRO (OPENLAMBDA (STREAM)
				 (create WORD
					 HIBYTE ←(\BIN STREAM)
					 LOBYTE ←(\BIN STREAM))))
)
)
(MAKE.ANNO.NOTECARD.SUBSTANCE)
(PUTPROPS NCANNO COPYRIGHT ("Xerox Corporation" 1984))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (740 2354 (ANNO.GETFN 750 . 1278) (READ.ANNOOBJ 1280 . 1590) (NOTECARD.ANNO.GETFN 1592
 . 1950) (MAKE.ANNO.NOTECARD.SUBSTANCE 1952 . 2352)))))
STOP