(FILECREATED "18-Mar-85 18:56:02" {PHYLUM}<NOTECARDS>RELEASE1.2>NCANNO.;5
 4252   

      changes to:  (VARS NCANNOCOMS)

      previous date: "13-Mar-85 01:21:02" {PHYLUM}<NOTECARDS>RELEASE1.2>NCANNO.;4)


(* 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)
		   (GLOBALVARS ANNO.SUBSTANCE.TYPES)
		   (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))))

(RPAQQ NC.SystemDate
 "18-Mar-85 18:56:03")
(UNMARKASCHANGED (QUOTE NC.SystemDate)
		 (QUOTE VARS))
(* * Residual compatibility with Anno based NoteFiles)


(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)))
(/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 1985))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (1123 2737 (ANNO.GETFN 1133 . 1661) (READ.ANNOOBJ 1663 . 1973) (NOTECARD.ANNO.GETFN 1975
 . 2333) (MAKE.ANNO.NOTECARD.SUBSTANCE 2335 . 2735)))))
STOP