(FILECREATED "18-Jan-88 17:11:59" ("compiled on " {QV}1.3KNEXT>NCTYPESMECH.;8) "12-Nov-85 14:59:23" recompiled changes: NC.DeleteCardType in "INTERLISP-D 8-Sep-87 ..." dated " 8-Sep-87 19:13:09") (FILECREATED "18-Jan-88 17:11:41" {QV}1.3KNEXT>NCTYPESMECH.;8 34134 changes to: (FNS NC.DeleteCardType) previous date: "30-Nov-87 15:49:14" {QV}1.3KNEXT>NCTYPESMECH.;7) NC.IsSubTypeOfP D1 (P 3 FieldValue P 2 CardTypeRecord P 1 CardTypeName P 0 SuperType I 1 SupposedSuperTypeName I 0 SubTypeName) @A@!Idq ZJ[dgPIJd I ZdoI J[dg oogoIo  KgIg Kdbw(200Q NC.GetCardTypeFieldOfSuper 162Q NC.ReportError 157Q CONCAT 107Q NC.ReportError 104Q CONCAT 71Q NC.CardTypeRecord 63Q NC.CardTypeLoader 26Q NC.CardTypeRecord) (175Q SuperType 167Q \\FILLME// 142Q SuperType 123Q \\EMPTY// 114Q NoteCardType 56Q NoteCardType 43Q \\EMPTY// 34Q NoteCardType) ( 153Q " still \\EMPTY// after autoloading." 146Q " of card type " 137Q "Field name " 133Q "NC.GetCardTypeField" 100Q "Cannot find full definition of card type: ") NC.CardTypeRecord D1 (L (1 NewTypeRecord 0 TypeName)) @`AAA` (23Q PUTHASH) (20Q NC.CardTypes 12Q NoteCardType 3 NC.CardTypes) () NC.MakeCardTypesListA0001A0012 D1 (P 1 FromEndPtr P 0 FromStartPtr I 3 Length I 2 FromStream I 1 ToStream I 0 Card) B CHԹBAHI i(21Q COPYBYTES 3 GETFILEPTR) NIL () NC.MakeCardTypesListA0001 D1 (NAME ERRORSET L (0 NIL) F 2 RESETY) u`hi ` l2 g`dgdhdhdgdg dg dgdgdgdgdgdgdgdgdgdg dg"dg$ghdihHdI&dld(dld*dh,dh.d`0d`2d`4dk4dk2dk0dj.dk,dk*dk(dk&dk$dk"dk dkdkdkdkdkdkdkdkdkdk dk dk` hci(552Q PUTHASH 25Q HASHARRAY 16Q HARRAYP 7 OBTAIN.MONITORLOCK) (557Q NC.NoteCardTypeMenu 547Q NC.CardTypes 327Q NC.DefaultMiddleButtonMenuItems 320Q NC.DefaultLeftButtonMenuItems 311Q NC.TypelessIcon 235Q LINKDISPLAYMODE 227Q NILL 220Q NILL 211Q NILL 202Q NILL 173Q NILL 164Q NILL 155Q NILL 146Q NC.MakeCardTypesListA0001A0012 137Q NILL 130Q NILL 121Q NILL 112Q NILL 103Q NILL 74Q NILL 65Q NILL 44Q NoteCard 37Q NoteCardTypeTYPE# 34Q NoteCard 30Q NC.CardTypes 13Q NC.CardTypes 2 NC.TypesLock) () NC.MakeCardTypesList D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q NC.MakeCardTypesListA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (NC.MakeCardTypesListA0001)) NC.AddCardTypeA0001 D1 (NAME ERRORSET P 3 FieldName P 1 NewType P 0 MainFieldNames F 4 TypeName F 5 SuperType F 6 StubFlg F 7 ListOfFILLMEFields F 10Q FullDefinitionFile F 11Q FnsAssocList F 12Q VarsAssocList F 13Q RESETY) `hi oTooUoo `dTdUdVdWdk4dg4dk2dg2dk0dg0dj.dg.dk,dg,dk*dg*dk(dg(dk&dg&dk$dg$dk"dg"dk dg dkdgdkdgdkdgdkdgdkdgdkdgdkdgdkdgdkdgdk dg dk dg dkdgVHJ IWW TI` hIci[W+gKhIhg ggKhIhgg JZ(704Q RECORDACCESS 653Q RECORDACCESS 611Q PUTHASH 600Q NC.ModifyCardType 47Q NC.ReportError 7 OBTAIN.MONITORLOCK) (700Q \\EMPTY// 675Q replace 664Q NoteCardType 656Q \\FILLME// 650Q fetch 637Q NoteCardType 616Q NC.NoteCardTypeMenu 606Q NC.CardTypes 551Q \\FILLME// 534Q \\FILLME// 517Q \\FILLME// 502Q \\FILLME// 465Q \\FILLME// 450Q \\FILLME// 433Q \\FILLME// 416Q \\FILLME// 401Q \\FILLME// 364Q \\FILLME// 347Q \\FILLME// 332Q \\FILLME// 315Q \\FILLME// 300Q \\FILLME// 263Q \\FILLME// 246Q \\FILLME// 231Q \\FILLME// 214Q \\FILLME// 177Q \\FILLME// 162Q \\FILLME// 145Q \\FILLME// 130Q \\FILLME// 113Q \\FILLME// 53Q NoteCardTypeTYPE# 2 NC.TypesLock) ( 44Q "Illegal super type name: NIL" 40Q "NC.AddCardType" 31Q "Illegal type name: NIL" 25Q "NC.AddCardType" 14Q (TypeName SuperType StubFlg FullDefinitionFile MakeFn EditFn QuitFn MakeReadOnlyFn MakeReadWriteFn GetFn PutFn CopyFn MarkDirtyFn DirtyPFn CollectLinksFn DeleteLinksFn UpdateLinkIconsFn InsertLinkFn TranslateWindowPositionFn LinkDisplayMode DefaultWidth DefaultHeight LinkAnchorModesSupported DisplayedInMenuFlg LinkIconAttachedBitMap LeftButtonMenuItems MiddleButtonMenuItems)) NC.AddCardType D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 6 StubFlg I 5 ListOfFILLMEFields I 4 FullDefinitionFile I 3 VarsAssocList I 2 FnsAssocList I 1 SuperType I 0 TypeName F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q NC.AddCardTypeA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (NC.AddCardTypeA0001)) NC.AddCardTypeStub D1 (I 5 ListOfFILLMEFields I 4 VarsAssocList I 3 FnsAssocList I 2 FullDefinitionFileName I 1 SuperType I 0 TypeName) @ACDBEi (12Q NC.AddCardType) NIL () NC.ModifyCardType D1 (P 2 AssocPair P 0 MainFieldNames I 2 VarsAssocList I 1 FnsAssocList I 0 TypeRecord) g@`'oAB I@@ @ ZH.gJh@hgJ gJg h@hg IY(137Q RECORDACCESS 124Q PACK* 110Q RECORDACCESS 54Q NC.PropagateCardTypeFieldsDownward 47Q NC.InheritFieldsFromSuperType 23Q \APPEND2) (134Q replace 121Q InheritedFlg 114Q NoteCardType 101Q replace 67Q NoteCardType 40Q NoteCardType 4 NoteCardTypeTYPE#) ( 13Q (TypeName SuperType StubFlg FullDefinitionFile MakeFn EditFn QuitFn MakeReadOnlyFn MakeReadWriteFn GetFn PutFn CopyFn MarkDirtyFn DirtyPFn CollectLinksFn DeleteLinksFn UpdateLinkIconsFn InsertLinkFn TranslateWindowPositionFn LinkDisplayMode DefaultWidth DefaultHeight LinkAnchorModesSupported DisplayedInMenuFlg LinkIconAttachedBitMap LeftButtonMenuItems MiddleButtonMenuItems)) NC.RecomputeCardTypeA0001 D1 (NAME ERRORSET P 1 SuperType P 0 TypeRecord F 2 TypeName F 3 FnsAssocList F 4 VarsAssocList F 5 RESETY) W`hi R HooR "RgHY oRoI HST hRc i(111Q NC.ModifyCardType 102Q NC.ReportError 77Q CONCAT 60Q NC.CardTypeRecord 35Q CONCAT 14Q NC.CardTypeRecord 7 OBTAIN.MONITORLOCK) (116Q NC.NoteCardTypeMenu 52Q NoteCardType 43Q NoteCard 2 NC.TypesLock) ( 73Q " has unknown super type: " 66Q "NC.RecomputeCardType" 31Q "Unknown type: " 25Q "NC.RecomputeCardType") NC.RecomputeCardType D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 2 VarsAssocList I 1 FnsAssocList I 0 TypeName F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q NC.RecomputeCardTypeA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (NC.RecomputeCardTypeA0001)) NC.ListOfCardTypesA0001 D1 (L (1 TypeName 0 TypeRecord) F 0 CollectLst F 1 ForMenuFlg) Q@.i @PcNIL (17Q NoteCardType 5 NoteCardType) () NC.ListOfCardTypes D1 (P 0 CollectLst I 0 ForMenuFlg) `g H (21Q SORT 13Q MAPHASH) (10Q NC.ListOfCardTypesA0001 5 NC.CardTypes) () NC.SubTypesOfCardTypeA0001 D1 (L (1 Key 0 TypeRecord) F 0 CollectLst F 1 TypeName) Q@ @PcNIL (15Q NoteCardType 4 NoteCardType) () NC.SubTypesOfCardType D1 (P 0 CollectLst I 0 TypeName) `g H(13Q MAPHASH) (10Q NC.SubTypesOfCardTypeA0001 5 NC.CardTypes) () NC.DeleteCardTypeA0001 D1 (NAME ERRORSET P 1 SubType P 0 SubTypes F 2 TypeName F 3 DeleteSubTypesFlg F 4 RESETY) Q`hi R H-SHdIS ol oH Rh` hci(105Q PUTHASH 74Q NC.ReportError 71Q CONCAT 61Q CHARACTER 41Q NC.DeleteCardType 14Q NC.SubTypesOfCardType 7 OBTAIN.MONITORLOCK) (112Q NC.NoteCardTypeMenu 102Q NC.CardTypes 2 NC.TypesLock) ( 65Q "This type has sub-types: " 54Q "Cannot delete a card type with existing sub-types.") NC.DeleteCardType D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 1 DeleteSubTypesFlg I 0 TypeName F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q NC.DeleteCardTypeA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (NC.DeleteCardTypeA0001)) NC.InheritFieldsFromSuperType D1 (P 5 SuperFieldValue P 4 FieldValue P 3 FieldName P 2 FlgName P 1 InheritedFlgNames P 0 TypeRecord I 1 SuperTypeRecord I 0 TypeNameOrRecord) @d` oAH byIrdJkm !gKhHhg gKhAhg ]g:Mg3Lg,LggJhHhg gKhHhgM h(217Q RECORDACCESS 174Q RECORDACCESS 121Q RECORDACCESS 101Q RECORDACCESS 57Q SUBATOM 34Q NC.CardTypeRecord 12Q NC.CardTypeRecord) (212Q replace 201Q NoteCardType 171Q fetch 160Q NoteCardType 152Q \\FILLME// 143Q \\EMPTY// 134Q \\EMPTY// 125Q \\FILLME// 116Q fetch 105Q NoteCardType 76Q fetch 65Q NoteCardType 27Q NoteCardType 5 NoteCardTypeTYPE#) ( 16Q (MakeFnInheritedFlg EditFnInheritedFlg QuitFnInheritedFlg MakeReadOnlyFnInheritedFlg MakeReadWriteFnInheritedFlg GetFnInheritedFlg PutFnInheritedFlg CopyFnInheritedFlg MarkDirtyFnInheritedFlg DirtyPFnInheritedFlg CollectLinksFnInheritedFlg DeleteLinksFnInheritedFlg UpdateLinkIconsFnInheritedFlg InsertLinkFnInheritedFlg TranslateWindowPositionFnInheritedFlg LinkDisplayModeInheritedFlg DefaultWidthInheritedFlg DefaultHeightInheritedFlg LinkAnchorModesSupportedInheritedFlg DisplayedInMenuFlgInheritedFlg LinkIconAttachedBitMapInheritedFlg LeftButtonMenuItemsInheritedFlg MiddleButtonMenuItemsInheritedFlg)) NC.PropagateCardTypeFieldsDownward D1 (P 0 SubType I 0 TypeNameOrRecord) 1@d` dH@`@ H h(50Q NC.PropagateCardTypeFieldsDownward 43Q NC.InheritFieldsFromSuperType 17Q NC.SubTypesOfCardType) (34Q NoteCardTypeTYPE# 12Q NoteCardType 5 NoteCardTypeTYPE#) () NC.AutoLoadCardType D1 (P 2 FieldValue P 1 OriginalTypeName P 0 CardTypeRecord I 2 FileSuggestion I 1 FieldName I 0 TypeName) @ @@ho H@B @ Xho@ @gCH@B ho@ @ gAhHhg ZHb XhoIoA h(212Q NC.ReportError 207Q CONCAT 165Q NC.CardTypeRecord 147Q RECORDACCESS 127Q NC.CardTypeRecord 122Q NC.ReportError 117Q CONCAT 105Q NC.CardTypeLoader 60Q NC.ReportError 55Q CONCAT 42Q NC.CardTypeRecord 35Q NC.CardTypeLoader 24Q NC.ReportError 6 NC.CardTypeRecord 2 ALLOW.BUTTON.EVENTS) (156Q NoteCardType 144Q fetch 133Q NoteCardType 74Q NoteCardType 65Q NoteCard) ( 203Q " Field name needed: " 176Q "Cannot find definition of card type: " 113Q "Cannot find full definition of card type: " 51Q "Cannot find definition of card type: " 21Q "NIL card type") NC.CardTypeLoaderA0001 D1 (NAME ERRORSET P 1 FileName P 0 Window F 2 TtyDisplayStream F 3 RESETVARSLST F 4 QuietFlg F 5 TypeName F 6 RESETY F 7 FileSuggestion F 10Q NC.LOADFLG) Ri icogR hhhScTogR oR gg hhhScR WUi T7H H oH UH oH H oH H IgWIh I c ihIh(254Q NC.FixFileDates 250Q APPLY 227Q TERPRI 222Q PRIN1 211Q TERPRI 204Q PRIN1 173Q PRIN1 165Q PRIN1 154Q FLASHWINDOW 147Q CLEARW 135Q NC.FindFile 126Q WFROMDS 104Q PUTWINDOWPROP 73Q WFROMDS 63Q WFROMDS 30Q WFROMDS 7 OPENWP 4 WFROMDS) (236Q FILESLOAD 101Q NILL 76Q PAGEFULLFN 57Q WINDOWPROP 24Q CLOSEW) ( 216Q "Attempting to autoload." 200Q " not loaded." 161Q "Card type " 67Q (QUOTE PAGEFULLFN) 52Q (NILL) 20Q (NILL)) NC.CardTypeLoader D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 2 QuietFlg I 1 FileSuggestion I 0 TypeName F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q NC.CardTypeLoaderA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (NC.CardTypeLoaderA0001)) NC.CardTypeStubLoaderA0001 D1 (NAME ERRORSET F 0 FileName F 1 RESETVARSLST F 2 AddTypeFn F 3 TypeName F 4 RESETY F 5 NSServerFlg) eggggPhohiggPhohhhhQcgSg c UP RPhg P ci(137Q NC.FixFileDates 132Q LOADFNS 120Q NC.LoadFileFromDirectories 110Q FNTYP 103Q PACK*) (127Q VARS 100Q Card 74Q NCAddStub. 37Q QUOTE 34Q REMPROP 13Q QUOTE 10Q PUTPROP 5 oldFILEDATES 2 COND) ( 47Q ((QUOTE FILEDATES)) 23Q ((QUOTE FILEDATES) oldFILEDATES)) NC.CardTypeStubLoader D1 (P 6 RESETZ P 5 RESETY P 4 LISPXHIST P 3 AddTypeFn P 2 NSServerFlg P 1 oldFILEDATES P 0 FileName I 1 FileSuggestion I 0 TypeName F 7 LISPXHIST F 10Q RESETVARSLST) fA@i HgoH HIW!Wog hg^ NK ooKoHo  K (143Q APPLY 136Q NC.ReportError 133Q CONCAT 103Q FNTYP 75Q ERROR! 67Q RESETRESTORE 55Q NC.CardTypeStubLoaderA0001 26Q STRPOS 5 NC.FindFile) (63Q ERROR 52Q INTERNAL 14Q FILEDATES) ( 127Q "." 122Q " in " 115Q "NoteCards: Can't find card type stub init procedure: " 111Q "NC.CardTypeStubLoader" 47Q (NC.CardTypeStubLoaderA0001) 22Q ":") NC.GetCardTypeFieldOfSuper D1 (I 1 FieldName I 0 CardTypeName) gAo (14Q EVAL) (2 NC.GetCardTypeField) ( 7 ((fetch (NoteCardType SuperType) of (NC.CardTypeRecord CardTypeName)))) (PRETTYCOMPRINT NCTYPESMECHCOMS) (RPAQQ NCTYPESMECHCOMS ((* * Internal variables) (GLOBALVARS NC.CardTypes NC.TypesLock) (INITVARS ( NC.CardTypes NIL) (NC.TypesLock (CREATE.MONITORLOCK "NoteCards Type Mechanism"))) (* * Note Cards Type Mechanism) (RECORDS NoteCardType) (MACROS NC.GetCardTypeField NC.ApplyFn NC.ApplySupersFn) (FNS NC.IsSubTypeOfP NC.CardTypeRecord NC.MakeCardTypesList NC.AddCardType NC.AddCardTypeStub NC.ModifyCardType NC.RecomputeCardType NC.ListOfCardTypes NC.SubTypesOfCardType NC.DeleteCardType NC.InheritFieldsFromSuperType NC.PropagateCardTypeFieldsDownward NC.AutoLoadCardType NC.CardTypeLoader NC.CardTypeStubLoader NC.GetCardTypeFieldOfSuper) (BITMAPS NC.TypelessIcon) (DECLARE: DONTEVAL@LOAD ( P (NC.MakeCardTypesList))))) (RPAQ? NC.CardTypes NIL) (RPAQ? NC.TypesLock (CREATE.MONITORLOCK "NoteCards Type Mechanism")) (DATATYPE NoteCardType (TypeName SuperType StubFlg FullDefinitionFile MakeFn (MakeFnInheritedFlg FLAG) EditFn (EditFnInheritedFlg FLAG) QuitFn (QuitFnInheritedFlg FLAG) MakeReadOnlyFn ( MakeReadOnlyFnInheritedFlg FLAG) MakeReadWriteFn (MakeReadWriteFnInheritedFlg FLAG) GetFn ( GetFnInheritedFlg FLAG) PutFn (PutFnInheritedFlg FLAG) CopyFn (CopyFnInheritedFlg FLAG) MarkDirtyFn ( MarkDirtyFnInheritedFlg FLAG) DirtyPFn (DirtyPFnInheritedFlg FLAG) CollectLinksFn ( CollectLinksFnInheritedFlg FLAG) DeleteLinksFn (DeleteLinksFnInheritedFlg FLAG) UpdateLinkIconsFn ( UpdateLinkIconsFnInheritedFlg FLAG) InsertLinkFn (InsertLinkFnInheritedFlg FLAG) TranslateWindowPositionFn (TranslateWindowPositionFnInheritedFlg FLAG) LinkDisplayMode ( LinkDisplayModeInheritedFlg FLAG) DefaultWidth (DefaultWidthInheritedFlg FLAG) DefaultHeight ( DefaultHeightInheritedFlg FLAG) LinkAnchorModesSupported (LinkAnchorModesSupportedInheritedFlg FLAG) DisplayedInMenuFlg (DisplayedInMenuFlgInheritedFlg FLAG) LinkIconAttachedBitMap ( LinkIconAttachedBitMapInheritedFlg FLAG) LeftButtonMenuItems (LeftButtonMenuItemsInheritedFlg FLAG) MiddleButtonMenuItems (MiddleButtonMenuItemsInheritedFlg FLAG)) MakeFnInheritedFlg _ T EditFnInheritedFlg _ T QuitFnInheritedFlg _ T MakeReadOnlyFnInheritedFlg _ T MakeReadWriteFnInheritedFlg _ T GetFnInheritedFlg _ T PutFnInheritedFlg _ T CopyFnInheritedFlg _ T MarkDirtyFnInheritedFlg _ T DirtyPFnInheritedFlg _ T CollectLinksFnInheritedFlg _ T DeleteLinksFnInheritedFlg _ T UpdateLinkIconsFnInheritedFlg _ T InsertLinkFnInheritedFlg _ T TranslateWindowPositionFnInheritedFlg _ T LinkDisplayModeInheritedFlg _ T DefaultWidthInheritedFlg _ T DefaultWidthInheritedFlg _ T DefaultHeightInheritedFlg _ T LinkAnchorModesSupportedInheritedFlg _ T LinkIconAttachedBitMapInheritedFlg _ T LeftButtonMenuItemsInheritedFlg _ T MiddleButtonMenuItemsInheritedFlg _ T DisplayedInMenuFlgInheritedFlg _ NIL MakeFn _ (QUOTE \\FILLME//) EditFn _ (QUOTE \\FILLME//) QuitFn _ (QUOTE \\FILLME//) MakeReadOnlyFn _ (QUOTE \\FILLME//) MakeReadWriteFn _ (QUOTE \\FILLME//) GetFn _ (QUOTE \\FILLME//) PutFn _ (QUOTE \\FILLME//) CopyFn _ ( QUOTE \\FILLME//) MarkDirtyFn _ (QUOTE \\FILLME//) DirtyPFn _ (QUOTE \\FILLME//) CollectLinksFn _ ( QUOTE \\FILLME//) DeleteLinksFn _ (QUOTE \\FILLME//) UpdateLinkIconsFn _ (QUOTE \\FILLME//) InsertLinkFn _ (QUOTE \\FILLME//) TranslateWindowPositionFn _ (QUOTE \\FILLME//) LinkDisplayMode _ ( QUOTE \\FILLME//) DefaultWidth _ (QUOTE \\FILLME//) DefaultHeight _ (QUOTE \\FILLME//) LinkAnchorModesSupported _ (QUOTE \\FILLME//) DisplayedInMenuFlg _ (QUOTE \\FILLME//) LinkIconAttachedBitMap _ (QUOTE \\FILLME//) LeftButtonMenuItems _ (QUOTE \\FILLME//) MiddleButtonMenuItems _ (QUOTE \\FILLME//)) (/DECLAREDATATYPE (QUOTE NoteCardType) (QUOTE (POINTER POINTER POINTER POINTER POINTER FLAG POINTER FLAG POINTER FLAG POINTER FLAG POINTER FLAG POINTER FLAG POINTER FLAG POINTER FLAG POINTER FLAG POINTER FLAG POINTER FLAG POINTER FLAG POINTER FLAG POINTER FLAG POINTER FLAG POINTER FLAG POINTER FLAG POINTER FLAG POINTER FLAG POINTER FLAG POINTER FLAG POINTER FLAG POINTER FLAG)) (QUOTE (( NoteCardType 0 POINTER) (NoteCardType 2 POINTER) (NoteCardType 4 POINTER) (NoteCardType 6 POINTER) ( NoteCardType 8 POINTER) (NoteCardType 8 (FLAGBITS . 0)) (NoteCardType 10 POINTER) (NoteCardType 10 ( FLAGBITS . 0)) (NoteCardType 12 POINTER) (NoteCardType 12 (FLAGBITS . 0)) (NoteCardType 14 POINTER) ( NoteCardType 14 (FLAGBITS . 0)) (NoteCardType 16 POINTER) (NoteCardType 16 (FLAGBITS . 0)) ( NoteCardType 18 POINTER) (NoteCardType 18 (FLAGBITS . 0)) (NoteCardType 20 POINTER) (NoteCardType 20 ( FLAGBITS . 0)) (NoteCardType 22 POINTER) (NoteCardType 22 (FLAGBITS . 0)) (NoteCardType 24 POINTER) ( NoteCardType 24 (FLAGBITS . 0)) (NoteCardType 26 POINTER) (NoteCardType 26 (FLAGBITS . 0)) ( NoteCardType 28 POINTER) (NoteCardType 28 (FLAGBITS . 0)) (NoteCardType 30 POINTER) (NoteCardType 30 ( FLAGBITS . 0)) (NoteCardType 32 POINTER) (NoteCardType 32 (FLAGBITS . 0)) (NoteCardType 34 POINTER) ( NoteCardType 34 (FLAGBITS . 0)) (NoteCardType 36 POINTER) (NoteCardType 36 (FLAGBITS . 0)) ( NoteCardType 38 POINTER) (NoteCardType 38 (FLAGBITS . 0)) (NoteCardType 40 POINTER) (NoteCardType 40 ( FLAGBITS . 0)) (NoteCardType 42 POINTER) (NoteCardType 42 (FLAGBITS . 0)) (NoteCardType 44 POINTER) ( NoteCardType 44 (FLAGBITS . 0)) (NoteCardType 46 POINTER) (NoteCardType 46 (FLAGBITS . 0)) ( NoteCardType 48 POINTER) (NoteCardType 48 (FLAGBITS . 0)) (NoteCardType 50 POINTER) (NoteCardType 50 ( FLAGBITS . 0)) (NoteCardType 52 POINTER) (NoteCardType 52 (FLAGBITS . 0)))) (QUOTE 54)) (DEFMACRO NC.GetCardTypeField (FieldName CardTypeNameForm) (* * Fetch the card type datatype field passed directly for FieldName (for the card type whose name is in a variable passed as the second parameter)) (* * rht 4/11/86: Was trying to autoload if field of card type was nil. Now only tries to autoload if CardTypeRecord is nil or if StubFlg is non-nil.) (* * fgh 4/25/86 Fix to above fix. Checks for CardTypeRecord before doing fetch's in 2 cluase of COND.) (* * kirk&fgh 26Jun86 Added check for InheritedFlg to above fix. Changed to a DEFMACRO) (* * fgh 8/26/86 Revamped completely to clean up and to account for case where one of supertypes is a stub and must be autoloaded. Added ability to handle \\EMPTY// fields.) (* * kirk 8/26/86 Added check for FMEMB of FieldName in (RECORDFIELDNAMES (QUOTE NoteCardTYpe)) before evaling fetch) (* * rht 11/1/86: Added check for NIL CardTypeName. Also checks whether card is top level NoteCard type before fetching from super type.) (* * rht 11/9/86: Totally revamped to use \\FILLME// field. No longer cares about value of StubFlg.) (BQUOTE (LET ((CardTypeName , CardTypeNameForm) CardTypeRecord FieldValue) (if CardTypeName then (if (OR (NULL (SETQ CardTypeRecord (NC.CardTypeRecord CardTypeName))) (EQ (SETQ FieldValue (fetch (NoteCardType , FieldName) of CardTypeRecord)) (QUOTE \\EMPTY//))) then (* * either the card type record doesn't exist or its just a stub -- either way it needs to be autoloaded.) (if (OR (NULL (NC.CardTypeLoader CardTypeName (AND CardTypeRecord (fetch (NoteCardType FullDefinitionFile) of CardTypeRecord)))) (NULL (SETQ CardTypeRecord (NC.CardTypeRecord CardTypeName)))) then (NC.ReportError NIL (CONCAT "Cannot find full definition of card type: " CardTypeName))) (if (EQ (SETQ FieldValue (fetch ( NoteCardType , FieldName) of CardTypeRecord)) (QUOTE \\EMPTY//)) then (* * still marked \\EMPTY//) ( NC.ReportError "NC.GetCardTypeField" (CONCAT "Field name " (QUOTE , FieldName) " of card type " CardTypeName " still \\EMPTY// after autoloading.")))) (if (EQ FieldValue (QUOTE \\FILLME//)) then (* * Fetch field from super type. Unfortunately direct recursion is not possible because this is a DEFMACRO.) (NC.GetCardTypeFieldOfSuper CardTypeName (QUOTE , FieldName)) else FieldValue))))) (PUTPROPS NC.ApplyFn MACRO (Args (BQUOTE (APPLY* (fetch (Card , (CAR Args)) of , (CADR Args)) ,@ (CDR Args))))) (PUTPROPS NC.ApplySupersFn MACRO (Args (BQUOTE (LET ((SuperType (fetch (Card SuperType) of , (CADR Args)))) (APPLY* (NC.GetCardTypeField , (CAR Args) SuperType) ,@ (CDR Args)))))) (RPAQ NC.TypelessIcon (READBITMAP)) (7 18 "ON@@" "ON@@" "LF@@" "LF@@" "LF@@" "LF@@" "LF@@" "LF@@" "LF@@" "LF@@" "LF@@" "LF@@" "LF@@" "LF@@" "LF@@" "LF@@" "LF@@" "ON@@") (NC.MakeCardTypesList) (PUTPROPS NCTYPESMECH COPYRIGHT ("Xerox Corporation" 1984 1985 1986 1987 1988)) NIL