(FILECREATED " 4-Oct-85 22:01:41" {QV}<NOTECARDS>RELEASE1.2I>NCANNO.;4
 5220   

      changes to:  (VARS NCANNOCOMS)

      previous date: "18-Jul-85 12:58:52" {QV}<NOTECARDS>RELEASE1.2I>NCANNO.;3)


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

(PRETTYCOMPRINT NCANNOCOMS)

(RPAQQ NCANNOCOMS
 ((E (SETQ NC.SystemDate (DATE))
		      (UNMARKASCHANGED (QUOTE NC.SystemDate)
				       (QUOTE VARS)))
		   (VARS NC.SystemDate)
		   (P (UNMARKASCHANGED (QUOTE NC.SystemDate)
				       (QUOTE VARS)))
		   (* * Residual compatibility with Anno based NoteFiles)
		   (* * rht 10/4/85: I took out declarations of WORD (record)
		      and \WIN (macro)
		      in DECLARE: DONTCOPY since they're defined elsewhere, in NCDATABASE and 
		      NCUTILITIES, respectively.)
		   (GLOBALVARS ANNO.SUBSTANCE.TYPES)
		   (FNS ANNO.GETFN READ.ANNOOBJ NOTECARD.ANNO.GETFN MAKE.ANNO.NOTECARD.SUBSTANCE)
		   (RECORDS ANNO ANNOSUBSTANCETYPE)
		   (DECLARE: DONTCOPY (RECORDS ANNONOTECARDSUBSTANCE))
		   (P (MAKE.ANNO.NOTECARD.SUBSTANCE))))

(RPAQQ NC.SystemDate
 " 4-Oct-85 22:01:43")
(UNMARKASCHANGED (QUOTE NC.SystemDate)
		 (QUOTE VARS))
(* * Residual compatibility with Anno based NoteFiles)


(* * rht 10/4/85: I took out declarations of WORD (record) and \WIN (macro) in DECLARE: 
DONTCOPY since they're defined elsewhere, in NCDATABASE and NCUTILITIES, respectively.)


(DECLARE: DOEVAL@COMPILE DONTCOPY

(GLOBALVARS ANNO.SUBSTANCE.TYPES)
)
(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))
		  (QUOTE ((ANNO 0 POINTER)
			  (ANNO 2 POINTER)
			  (ANNO 4 POINTER)
			  (ANNO 6 POINTER)
			  (ANNO 8 POINTER)
			  (ANNO 10 POINTER)
			  (ANNO 12 POINTER)
			  (ANNO 14 POINTER)
			  (ANNO 16 POINTER)
			  (ANNO 18 POINTER)
			  (ANNO 20 POINTER)
			  (ANNO 22 POINTER)))
		  (QUOTE 24))
(/DECLAREDATATYPE (QUOTE ANNOSUBSTANCETYPE)
		  (QUOTE (POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER 
				  POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER))
		  (QUOTE ((ANNOSUBSTANCETYPE 0 POINTER)
			  (ANNOSUBSTANCETYPE 2 POINTER)
			  (ANNOSUBSTANCETYPE 4 POINTER)
			  (ANNOSUBSTANCETYPE 6 POINTER)
			  (ANNOSUBSTANCETYPE 8 POINTER)
			  (ANNOSUBSTANCETYPE 10 POINTER)
			  (ANNOSUBSTANCETYPE 12 POINTER)
			  (ANNOSUBSTANCETYPE 14 POINTER)
			  (ANNOSUBSTANCETYPE 16 POINTER)
			  (ANNOSUBSTANCETYPE 18 POINTER)
			  (ANNOSUBSTANCETYPE 20 POINTER)
			  (ANNOSUBSTANCETYPE 22 POINTER)
			  (ANNOSUBSTANCETYPE 24 POINTER)
			  (ANNOSUBSTANCETYPE 26 POINTER)
			  (ANNOSUBSTANCETYPE 28 POINTER)
			  (ANNOSUBSTANCETYPE 30 POINTER)
			  (ANNOSUBSTANCETYPE 32 POINTER)))
		  (QUOTE 34))
(DECLARE: DONTCOPY 
[DECLARE: EVAL@COMPILE 

(RECORD ANNONOTECARDSUBSTANCE
 (SUBSTANCETYPE ANNONOTECARDSPEC)
			      SUBSTANCETYPE ←(
QUOTE
 NOTECARD))
]
)
(MAKE.ANNO.NOTECARD.SUBSTANCE)
(PUTPROPS NCANNO COPYRIGHT ("Xerox Corporation" 1984 1985))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (1479 3093 (ANNO.GETFN 1489 . 2017) (READ.ANNOOBJ 2019 . 2329) (NOTECARD.ANNO.GETFN 2331
 . 2689) (MAKE.ANNO.NOTECARD.SUBSTANCE 2691 . 3091)))))
STOP