(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