(FILECREATED "20-Nov-84 18:05:12" ("compiled on " {PHYLUM}NOTECARDS>RELEASE1.1>NCTYPESMECH.;7) " 1-Nov-84 14:14:14" recompiled changes: NC.MakeCardTypesList in "INTERLISP-D 1-Nov-84 ..." dated " 1-Nov-84 14:40:55") (FILECREATED "20-Nov-84 18:03:10" {PHYLUM}NOTECARDS>RELEASE1.1>NCTYPESMECH.;7 15864 changes to: ( FNS NC.MakeCardTypesList) previous date: " 9-Nov-84 17:00:49" {PHYLUM}NOTECARDS>RELEASE1.1>NCTYPESMECH.;6) NC.SubstanceCopyFn D1 (P 5 CardType P 1 SaveCardType P 0 AtomCardType I 0 NoteCardType) }@d1`L2g o@o h@h`Z4hHMMYMMh L\IKKJ(143Q NC.SubstanceCopyFn 46Q NC.ReportError 43Q CONCAT 27Q MKSTRING) (64Q NC.SubstanceTypes 24Q NC.SubstanceCopyFn 12Q NC.CardTypes) ( 40Q "." 33Q "Unknown note card type: ") NC.MakeSubstanceTypesListA0001 D1 NIL hddddddddddhNIL NIL () NC.MakeSubstanceTypesListA0002 D1 NIL hhNIL NIL () NC.MakeSubstanceTypesListA0003 D1 (P 0 Value I 2 Region I 1 ID I 0 Stream) @ AH AH H(25Q NC.SetRegionViewed 15Q NC.SetScale 3 NC.GetSketchSubstance) NIL () NC.MakeSubstanceTypesList D1 NIL ~hgggggggggggg gggggggggggg gggggggggggg (173Q NC.AddSubstanceType 123Q NC.AddSubstanceType 53Q NC.AddSubstanceType) (167Q NC.UpdateLinkImagesInSketch 164Q NC.DelReferencesToCardFromSketch 161Q NC.CollectReferencesInSketch 156Q NC.SketchDirtyP 153Q NC.MarkSketchDirty 150Q NC.SketchCopySubstance 145Q NC.PutSketchSubstance 142Q NC.MakeSubstanceTypesListA0003 137Q NC.SketchCardCloseFn 134Q NC.BringUpSketchCard 131Q NC.MakeSubstanceTypesListA0002 126Q SKETCH 117Q NC.UpdateLinkImagesInGraph 114Q NC.DelReferencesToCardFromGraph 111Q NC.CollectReferencesInGraph 106Q NC.GraphDirtyP 103Q NC.MarkGraphDirty 100Q NC.GraphCopySubstance 75Q NC.PutGraphSubstance 72Q NC.GetGraphSubstance 67Q NC.GraphCardCloseFn 64Q NC.BringUpGraphCard 61Q NC.MakeSubstanceTypesListA0001 56Q GRAPH 47Q NC.UpdateLinkImagesInText 44Q NC.DelReferencesToCardFromText 41Q NC.CollectReferencesInText 36Q NC.TextDirtyP 33Q NC.MarkTextDirty 30Q NC.TextCopySubstance 25Q NC.PutTextSubstance 22Q NC.GetTextSubstance 17Q NC.TEditCloseFn 14Q NC.BringUpTEditCard 11Q OPENTEXTSTREAM 6 TEXT 3 NC.SubstanceTypes) () NC.MakeCardTypesList D1 (F 0 NC.NoteCardTypeMenu) ghddddddddddddghhgggghghdddddddg gggghghdddddddg gggghghdddddddg gggghdddddddddg ggggghddddddddg gggghdddddddddg gggghdddddddddg gggghdddddddddg hc(427Q NC.AddCardType 372Q NC.AddCardType 335Q NC.AddCardType 300Q NC.AddCardType 241Q NC.AddCardType 204Q NC.AddCardType 145Q NC.AddCardType 106Q NC.AddCardType) (423Q Icon 406Q NC.MakeDocument 403Q TEXT 400Q Text 375Q Document 366Q Title 351Q NC.MakeLinkIndex 346Q TEXT 343Q Text 340Q LinkIndex 331Q Title 314Q NC.MakeSearchCard 311Q TEXT 306Q Text 303Q Search 274Q Title 260Q NC.BringUpBrowserCard 255Q NC.MakeBrowserCard 252Q GRAPH 247Q Graph 244Q Browser 235Q Title 220Q NC.MakeContentsCard 215Q TEXT 212Q Text 207Q FileBox 200Q Icon 165Q NC.SketchCardCloseFn 161Q NC.MakeSketchCard 156Q SKETCH 153Q NoteCard 150Q Sketch 141Q Title 126Q NC.GraphCardCloseFn 122Q NC.MakeGraphCard 117Q GRAPH 114Q NoteCard 111Q Graph 102Q Icon 67Q NC.TEditCloseFn 63Q NC.MakeTEditCard 60Q TEXT 55Q NoteCard 52Q Text 47Q NC.CardTypes 22Q Icon 2 NoteCard) () NC.MarkCardDirtyFn D1 (P 5 CardType P 1 SaveCardType P 0 AtomCardType I 0 NoteCardType) @d1`L3g o@o h@h`Z6hHMMYMMh L\IKKJ(145Q NC.MarkCardDirtyFn 46Q NC.ReportError 43Q CONCAT 27Q MKSTRING) (64Q NC.SubstanceTypes 24Q NC.MarkCardDirtyFn 12Q NC.CardTypes) ( 40Q "." 33Q "Unknown note card type: ") NC.AddSubstanceType D1 (P 2 SubstanceType P 0 NewType I 13Q UpdateLinkIconsInSubstanceFn I 12Q DeleteLinksInSubstanceFn I 11Q CollectLinksInSubstanceFn I 10Q SubstanceDirtyPFn I 7 MarkSubstanceDirtyFn I 6 CopySubstanceFn I 5 PutSubstanceFn I 4 GetSubstanceFn I 3 QuitSubstanceFn I 2 EditSubstanceFn I 1 CreateSubstanceFn I 0 SubstanceName) [ @oo `I+@ABCDEFGGGGGhX`HZd@` IY(120Q REMOVE 17Q NC.ReportError) (123Q NC.SubstanceTypes 115Q NC.SubstanceTypes 101Q NC.SubstanceTypes 75Q NC.SubstanceTypes 23Q NC.SubstanceTypes) ( 14Q "Illegal substance type name: NIL" 10Q "NC.AddSubstanceType") NC.AddCardType D1 (P 5 CardType P 0 NewType I 16Q LinkDisplayMode I 15Q UpdateLinkIconsInCardFn I 14Q DeleteLinksInCardFn I 13Q CollectLinksInCardFn I 12Q CardDirtyPFn I 11Q MarkCardDirtyFn I 10Q CopyCardFn I 7 PutCardFn I 6 GetCardFn I 5 QuitCardFn I 4 EditCardFn I 3 MakeCardFn I 2 SubstanceType I 1 SuperType I 0 TypeName) @@oo:`YiooA"AhI`hZXiooB `LJ`@ABCDEFGGGGGGGGhXh hHBKhJ]d@` L\(251Q REMOVE 205Q \NCONC2 111Q NC.ReportError 106Q CONCAT) (254Q NC.CardTypes 246Q NC.CardTypes 214Q NC.NoteCardTypeMenu 210Q NC.CardTypes 130Q NC.CardTypes 115Q NC.CardTypes 62Q NC.SubstanceTypes 21Q NC.CardTypes) ( 102Q "Unknown substance type field: " 76Q "NC.AddCardType" 40Q "Unknown type in super type field: " 34Q "NC.AddCardType" 14Q "Illegal type name: NIL" 10Q "NC.AddCardType") NC.ListOfCardTypes D1 NIL -`AHI\LdgJ KhZYHXK&ZNIL (25Q NoteCard 2 NC.CardTypes) () NC.CollectReferencesFn D1 (P 5 CardType P 1 SaveCardType P 0 AtomCardType I 0 NoteCardType) @d1`L5g o@o h@h`Z:hHM!MYMMh L\IKKJ(151Q NC.CollectReferencesFn 46Q NC.ReportError 43Q CONCAT 27Q MKSTRING) (64Q NC.SubstanceTypes 24Q NC.CollectReferencesFn 12Q NC.CardTypes) ( 40Q "." 33Q "Unknown note card type: ") NC.DelReferencesFn D1 (P 5 CardType P 1 SaveCardType P 0 AtomCardType I 0 NoteCardType) @d1`L6g o@o h@h`ZhHM#MYMMh L\IKKJ(155Q NC.UpdateLinkIconsFn 46Q NC.ReportError 43Q CONCAT 27Q MKSTRING) (64Q NC.SubstanceTypes 24Q NC.UpdateLinkIconsFn 12Q NC.CardTypes) ( 40Q "." 33Q "Unknown note card type: ") NC.SubstanceDirtyPFn D1 (P 5 CardType P 1 SaveCardType P 0 AtomCardType I 0 NoteCardType) @d1`L4g o@o h@h`Z8hHM MYMMh L\IKKJ(147Q NC.SubstanceDirtyPFn 46Q NC.ReportError 43Q CONCAT 27Q MKSTRING) (64Q NC.SubstanceTypes 24Q NC.SubstanceDirtyPFn 12Q NC.CardTypes) ( 40Q "." 33Q "Unknown note card type: ") NC.SubstanceMarkDirtyFn D1 (I 0 NoteCardType) ,@ g@ g@ go@o (51Q NC.ReportError 46Q CONCAT 25Q NC.GrapherBasedP 14Q NC.SketchBasedP 3 NC.TeditBasedP) (31Q NC.MarkGraphDirty 20Q NC.MarkSketchDirty 7 NC.MarkTextDirty) ( 43Q ": Unknown note card type." 36Q "NC.SubstanceMarkDirtyFn") (PRETTYCOMPRINT NCTYPESMECHCOMS) (RPAQQ NCTYPESMECHCOMS ((* * Internal variables) (GLOBALVARS NC.CardTypes NC.SubstanceTypes) (* * Note Cards Type Mechanism) (RECORDS NoteCardType SubstanceType) (MACROS NC.Inherit) (FNS NC.SubstanceCopyFn NC.MakeSubstanceTypesList NC.MakeCardTypesList NC.MarkCardDirtyFn NC.AddSubstanceType NC.AddCardType NC.ListOfCardTypes NC.CollectReferencesFn NC.DelReferencesFn NC.EditFn NC.GetSubstanceFn NC.MakeCardFn NC.PutSubstanceFn NC.QuitCardFn NC.UpdateLinkIconsFn NC.SubstanceDirtyPFn NC.SubstanceMarkDirtyFn) (P (NC.MakeSubstanceTypesList) (NC.MakeCardTypesList)))) (RECORD NoteCardType (TypeName SuperType SubstanceType MakeCardFn EditCardFn QuitCardFn GetCardFn PutCardFn CopyCardFn MarkCardDirtyFn CardDirtyPFn CollectLinksInCardFn DeleteLinksInCardFn UpdateLinkIconsInCardFn LinkDisplayMode)) (RECORD SubstanceType (SubstanceName CreateSubstanceFn EditSubstanceFn QuitSubstanceFn GetSubstanceFn PutSubstanceFn CopySubstanceFn MarkSubstanceDirtyFn SubstanceDirtyPFn CollectLinksInSubstanceFn DeleteLinksInSubstanceFn UpdateLinkIconsInSubstanceFn)) (PUTPROPS NC.Inherit MACRO ((NC.Fn CardFn SubstanceFn CardTypeVariableName) (PROG (SaveCardType ( AtomCardType (COND ((NLISTP CardTypeVariableName) CardTypeVariableName) (T (CAR CardTypeVariableName)) ))) (RETURN (OR (for CardType in NC.CardTypes when (EQ AtomCardType (fetch (NoteCardType TypeName) of CardType)) do (SETQ SaveCardType CardType) (RETURN (OR (fetch (NoteCardType CardFn) of CardType) (AND (fetch (NoteCardType SuperType) of CardType) (NC.Fn (LIST (fetch (NoteCardType SuperType) of CardType) ))))) finally (NC.ReportError (MKSTRING (QUOTE NC.Fn)) (CONCAT "Unknown note card type: " NoteCardType "."))) (AND (NLISTP CardTypeVariableName) (fetch (SubstanceType SubstanceFn) of (for SubstanceType in NC.SubstanceTypes when (EQ (fetch (NoteCardType SubstanceType) of SaveCardType) ( fetch (SubstanceType SubstanceName) of SubstanceType)) do (RETURN SubstanceType))))))))) (NC.MakeSubstanceTypesList) (NC.MakeCardTypesList) (PUTPROPS NCTYPESMECH COPYRIGHT ("Xerox Corporation" 1984)) NIL