(FILECREATED " 8-Jun-87 18:18:30" ("compiled on " {QV}1.3K>NEXT>NCTYPESMECH.;80) "12-Nov-85 14:59:23" recompiled changes: NC.CardTypeStubLoader in "LOOPS/KOTO 17-Apr-87 ..." dated "17-Apr-87 16:50:00") (FILECREATED " 8-Jun-87 18:17:57" {QV}1.3K>NEXT>NCTYPESMECH.;80 32441 changes to: (FNS NC.CardTypeStubLoader) previous date: "21-Apr-87 19:00:20" {QV}1.3K>NEXT>NCTYPESMECH.;79) 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.MakeCardTypesListA0001A0004 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) Z`hi ` l2 g`dgdhdgdgghdihHdI"dld$dld&d`,d`.d`0dk0dk.dk,dj*dg*dk(dg(dk&dk$dk"dk dg dkdgdkdgdkdgdkdkdgdkdgdkdkdgdkdgdk dg dk dg dkdg` hci(517Q PUTHASH 25Q HASHARRAY 16Q HARRAYP 7 OBTAIN.MONITORLOCK) (524Q NC.NoteCardTypeMenu 514Q NC.CardTypes 506Q \\FILLME// 471Q \\FILLME// 454Q \\FILLME// 437Q \\FILLME// 422Q \\FILLME// 377Q \\FILLME// 362Q \\FILLME// 337Q \\FILLME// 322Q \\FILLME// 305Q \\FILLME// 270Q \\FILLME// 231Q \\FILLME// 214Q \\FILLME// 155Q NC.DefaultMiddleButtonMenuItems 146Q NC.DefaultLeftButtonMenuItems 137Q NC.TypelessIcon 75Q LINKDISPLAYMODE 67Q NILL 60Q NC.MakeCardTypesListA0001A0004 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 `dTdUdVdWdk0dg0dk.dg.dk,dg,dj*dg*dk(dg(dk&dg&dk$dg$dk"dg"dk dg dkdgdkdgdkdgdkdgdkdgdkdgdkdgdkdgdkdgdk dg dk dg dkdgVHJ IWW TI` hIci[W+gKhIhg ggKhIhgg JZ(652Q RECORDACCESS 621Q RECORDACCESS 557Q PUTHASH 546Q NC.ModifyCardType 47Q NC.ReportError 7 OBTAIN.MONITORLOCK) (646Q \\EMPTY// 643Q replace 632Q NoteCardType 624Q \\FILLME// 616Q fetch 605Q NoteCardType 564Q NC.NoteCardTypeMenu 554Q NC.CardTypes 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 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 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) L`hi R H-SHdIS ol oH Rh` ci(105Q PUTHASH 74Q NC.ReportError 71Q CONCAT 61Q CHARACTER 41Q NC.DeleteCardType 14Q NC.SubTypesOfCardType 7 OBTAIN.MONITORLOCK) (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 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 FileSuggestion F 7 RESETY) Ri icogR hhhScTogR oR gg hhhScR VUi T7H H oH UH oH H oH H Ig`Ih I cihIh(254Q NC.FixFileDates 250Q APPLY 226Q TERPRI 221Q PRIN1 210Q TERPRI 203Q PRIN1 172Q PRIN1 164Q PRIN1 153Q FLASHWINDOW 146Q CLEARW 134Q NC.FindFile 126Q WFROMDS 104Q PUTWINDOWPROP 73Q WFROMDS 63Q WFROMDS 30Q WFROMDS 7 OPENWP 4 WFROMDS) (240Q NC.LOADFLG 235Q FILESLOAD 101Q NILL 76Q PAGEFULLFN 57Q WINDOWPROP 24Q CLOSEW) ( 215Q "Attempting to autoload." 177Q " not loaded." 160Q "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) Pgg P h(15Q CLOSEF 11Q OPENSTREAM) (6 OLD 3 BOTH) () NC.CardTypeStubLoaderA0002 D1 (NAME ERRORSET F 0 FileName F 1 AddTypeFn F 2 RESETVARSLST F 3 TypeName F 4 RESETY F 5 RandAccessible F 6 NoInitFn) nggggPhohiggPhohhhhRcgSg cUQPhg gP` Q hc ci(144Q FNTYP 137Q LOAD? 121Q LOADFNS 103Q PACK*) (134Q NC.LOADFLG 126Q NOT-FOUND: 116Q 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 7 RESETZ P 6 RESETY P 5 LISPXHIST P 4 AddTypeFn P 3 NoInitFn P 2 RandAccessible P 1 oldFILEDATES P 0 FileName I 1 FileSuggestion I 0 TypeName F 10Q LISPXHIST F 11Q RESETVARSLST) hA@i Hgo !HLW!Wog hg_ OH KooLoHo  L (145Q APPLY 140Q NC.ReportError 135Q CONCAT 104Q NC.FixFileDates 76Q ERROR! 67Q RESETRESTORE 54Q NC.CardTypeStubLoaderA0002 25Q NC.CardTypeStubLoaderA0001 5 NC.FindFile) (62Q ERROR 51Q INTERNAL 14Q FILEDATES) ( 131Q "." 124Q " in " 117Q "NoteCards: Can't find card type stub init procedure: " 113Q "NC.CardTypeStubLoader" 46Q (NC.CardTypeStubLoaderA0002) 22Q (NC.CardTypeStubLoaderA0001)) 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) (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) 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 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//) 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)) (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)))) (QUOTE 50)) (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)) NIL