(FILECREATED "19-Jun-86 23:05:32" {QV}<NOTECARDS>1.3K>KIRKPATCH008.;2 9706
changes to: (FNS NC.AddCardTypeStub NC.CardTypeLoader NC.FindCardTypeFile
NCP.AddFileBoxCardTypeStub NCP.AddHashCardTypeStub NCP.AddListCardTypeStub
NCP.AddTextCardTypeStub NCP.AddSketchCardTypeStub NCP.AddGraphCardTypeStub
NCP.AddBrowserCardTypeStub NCP.AddSearchCardTypeStub
NCP.AddDocumentCardTypeStub NCP.AddLinkIndexCardTypeStub
NCP.AddFileCardTypeStub)
(VARS KIRKPATCH008COMS FullFileName)
previous date: "19-Jun-86 21:59:36" {QV}<NOTECARDS>1.3K>KIRKPATCH008.;1)
(* Copyright (c) 1986 by Xerox Corporation. All rights reserved.)
(PRETTYCOMPRINT KIRKPATCH008COMS)
(RPAQQ KIRKPATCH008COMS ((* * change to NCTYPESMECH)
(FNS NC.AddCardTypeStub NC.CardTypeLoader)
(* * new FNS for NCTYPESMECH)
(FNS NC.FindCardTypeFile)
(* * new fn for NCHASHCARD)
(FNS NCP.AddHashCardTypeStub)
(* * new fn for NCLISTCARD)
(FNS NCP.AddListCardTypeStub)
(* * new fn for NCTEXTCARD)
(FNS NCP.AddTextCardTypeStub)
(* * new fn for NCFILEBOXCARD)
(FNS NCP.AddFileBoxCardTypeStub)
(* * new fn for NCSKETCHCARD)
(FNS NCP.AddSketchCardTypeStub)
(* * new fn for NCGRAPHCARD)
(FNS NCP.AddGraphCardTypeStub)
(* * new fn for NCBROWSERCARD)
(FNS NCP.AddBrowserCardTypeStub)
(* * new fn for NCSEARCHCARD)
(FNS NCP.AddSearchCardTypeStub)
(* * new fn for NCDOCUMENTCARD)
(FNS NCP.AddDocumentCardTypeStub)
(* * new fn for NCLINKINDEXCARD)
(FNS NCP.AddLinkIndexCardTypeStub)
(* * new fn for NCFILECARD)
(FNS NCP.AddFileCardTypeStub)))
(* * change to NCTYPESMECH)
(DEFINEQ
(NC.AddCardTypeStub
(LAMBDA (TypeName SuperType FullDefinitionFileName FnsAssocList VarsAssocList)
(* kirk: "19-Jun-86 22:34")
(* * Create a card type stub to hold as a place holder until the actual card type is autoloaded.)
(* * If FullDefinitionFileName is not supplied, one is constructed from the type name.)
(* * If SuperType is not supplied, the Type's NCP.Add...CardTypeStub is called. If the SuperType is supplied but
unloaded, it's stub is loaded.)
(* * When called from a card type's NCP.Add...CardTypeStub function, SuperType MUST be specified to avoid infinite
recusion.)
(* * kirk 18Jun86 Changed to use FullDefinitionFileName and deal with NIL or UnLoaded SuperType.
Now gets called recursively in that case. Hence, the above warning.)
(LET (NewType AddTypeFn AddTypeForm (MainFieldNames (CONSTANT (for FieldName
in (RECORDFIELDNAMES
(QUOTE NoteCardType))
when (NEQ (QUOTE
InheritedFlg)
(SUBATOM
FieldName -12
-1))
collect FieldName))))
(if (NULL TypeName)
then (NC.ReportError "NC.AddCardType" "Illegal type name: NIL"))
(OR (SETQ FullDefinitionFileName (NC.FindCardTypeFile TypeName))
(NC.ReportError "NC.AddCardTypeStub" (CONCAT
"NoteCards: Can't find card type file: "
TypeName ".")))
(if SuperType
then (if (NULL (NC.CardTypeRecord SuperType))
then (NC.AddCardTypeStub SuperType))
(* * Create new NoteCardType)
(SETQ NewType
(create NoteCardType
TypeName ← TypeName
SuperType ← SuperType
StubFlg ← T
FullDefinitionFile ← FullDefinitionFileName))
(for AssocPair in (APPEND FnsAssocList VarsAssocList)
when (FMEMB (CAR AssocPair)
MainFieldNames)
do
(* * Set the proper field to the given value)
(RECORDACCESS (BQUOTE (NoteCardType , (CAR AssocPair)))
NewType NIL (QUOTE replace)
(CADR AssocPair)))
(* * Stash the new card type record, reset the menu and then return.)
(PUTHASH TypeName NewType NC.CardTypes)
(SETQ NC.NoteCardTypeMenu)
NewType
else (NC.CardTypeStubLoader TypeName FullDefinitionFileName)))))
(NC.CardTypeLoader
(LAMBDA (TypeName FileSuggestion) (* kirk: "19-Jun-86 22:31")
(* * Load card type TypeName using FileSuggestion as the first place to look. Otherwise look in the directories
specified by NoteCardsDirectories.)
(* * fgh 2/3/86 First written.)
(LET ((FullFileName (NC.FindCardTypeFile TypeName FileSuggestion)))
(AND FullFileName (LOAD FullFileName (QUOTE SYSLOAD))))))
)
(* * new FNS for NCTYPESMECH)
(DEFINEQ
(NC.FindCardTypeFile
(LAMBDA (Type FileSuggestion) (* kirk: "19-Jun-86 12:57")
(* * kirk 12Jun86: find code file to implement a card type)
(LET ((FileName (PACK* (QUOTE NC)
(U-CASE TypeName)
(QUOTE CARD))))
(OR (AND FileSuggestion (INFILEP FileSuggestion))
(OR (FINDFILE (PACK* FileName (QUOTE .dcom))
T NOTECARDSDIRECTORIES)
(FINDFILE FileName T NOTECARDSDIRECTORIES))))))
)
(* * new fn for NCHASHCARD)
(DEFINEQ
(NCP.AddHashCardTypeStub
(LAMBDA NIL (* kirk: "19-Jun-86 20:52")
(* * kirk 18Jun86 Add the text card stub)
(NC.AddCardTypeStub (QUOTE Hash)
(QUOTE NoteCard)
(QUOTE NCHASHCARD))))
)
(* * new fn for NCLISTCARD)
(DEFINEQ
(NCP.AddListCardTypeStub
(LAMBDA NIL (* kirk: "19-Jun-86 20:52")
(* * kirk 18Jun86 Add the text card stub)
(NC.AddCardTypeStub (QUOTE List)
(QUOTE NoteCard)
(QUOTE NCLISTCARD))))
)
(* * new fn for NCTEXTCARD)
(DEFINEQ
(NCP.AddTextCardTypeStub
(LAMBDA NIL (* kirk: "19-Jun-86 20:52")
(* * kirk 18Jun86 Add the text card stub)
(NC.AddCardTypeStub (QUOTE Text)
(QUOTE NoteCard)
(QUOTE NCTEXTCARD)
NIL
(QUOTE ((DisplayedInMenuFlg . T))))))
)
(* * new fn for NCFILEBOXCARD)
(DEFINEQ
(NCP.AddFileBoxCardTypeStub
(LAMBDA NIL (* kirk: "19-Jun-86 20:51")
(* * kirk 18Jun86 Add the FileBox card stub)
(NC.AddCardTypeStub (QUOTE FileBox)
(QUOTE Text)
(QUOTE NCFILEBOXCARD)
NIL
(QUOTE ((DisplayedInMenuFlg . T))))))
)
(* * new fn for NCSKETCHCARD)
(DEFINEQ
(NCP.AddSketchCardTypeStub
(LAMBDA NIL (* kirk: "19-Jun-86 20:51")
(* * kirk 18Jun86 Add the Sketch card stub)
(NC.AddCardTypeStub (QUOTE Sketch)
(QUOTE NoteCard)
(QUOTE NCSKETCHCARD)
NIL
(QUOTE ((DisplayedInMenuFlg . T))))))
)
(* * new fn for NCGRAPHCARD)
(DEFINEQ
(NCP.AddGraphCardTypeStub
(LAMBDA NIL (* kirk: "19-Jun-86 21:21")
(* * kirk 18Jun86 Add the Sketch card stub)
(NC.AddCardTypeStub (QUOTE Graph)
(QUOTE NoteCard)
(QUOTE NCGRAPHCARD)
NIL
(QUOTE ((DisplayedInMenuFlg . T))))))
)
(* * new fn for NCBROWSERCARD)
(DEFINEQ
(NCP.AddBrowserCardTypeStub
(LAMBDA NIL (* kirk: "19-Jun-86 21:22")
(* * kirk 18Jun86 Add the Sketch card stub)
(NC.AddCardTypeStub (QUOTE Browser)
(QUOTE Graph)
(QUOTE NCGRAPHCARD)
NIL
(QUOTE ((DisplayedInMenuFlg . T))))))
)
(* * new fn for NCSEARCHCARD)
(DEFINEQ
(NCP.AddSearchCardTypeStub
(LAMBDA NIL (* kirk: "19-Jun-86 21:45")
(* * kirk 18Jun86 Add the FileBox card stub)
(NC.AddCardTypeStub (QUOTE Search)
(QUOTE Text)
(QUOTE NCSEARCHCARD)
NIL
(QUOTE ((DisplayedInMenuFlg . T))))))
)
(* * new fn for NCDOCUMENTCARD)
(DEFINEQ
(NCP.AddDocumentCardTypeStub
(LAMBDA NIL (* kirk: "19-Jun-86 21:49")
(* * kirk 18Jun86 Add the FileBox card stub)
(NC.AddCardTypeStub (QUOTE Document)
(QUOTE Text)
(QUOTE NCDOCUMENTCARD)
NIL
(QUOTE ((DisplayedInMenuFlg . T))))))
)
(* * new fn for NCLINKINDEXCARD)
(DEFINEQ
(NCP.AddLinkIndexCardTypeStub
(LAMBDA NIL (* kirk: "19-Jun-86 21:55")
(* * kirk 18Jun86 Add the FileBox card stub)
(NC.AddCardTypeStub (QUOTE LinkIndex)
(QUOTE Text)
(QUOTE NCLINKINDEX)
NIL
(QUOTE ((DisplayedInMenuFlg . T))))))
)
(* * new fn for NCFILECARD)
(DEFINEQ
(NCP.AddFileCardTypeStub
(LAMBDA NIL (* kirk: "19-Jun-86 21:55")
(* * kirk 18Jun86 Add the text card stub)
(NC.AddCardTypeStub (QUOTE File)
(QUOTE NoteCard)
(QUOTE NCFILECARD)
NIL
(QUOTE ((DisplayedInMenuFlg . T))))))
)
(PUTPROPS KIRKPATCH008 COPYRIGHT ("Xerox Corporation" 1986))
(DECLARE: DONTCOPY
(FILEMAP (NIL (1717 4879 (NC.AddCardTypeStub 1727 . 4383) (NC.CardTypeLoader 4385 . 4877)) (4916 5454
(NC.FindCardTypeFile 4926 . 5452)) (5489 5783 (NCP.AddHashCardTypeStub 5499 . 5781)) (5818 6112 (
NCP.AddListCardTypeStub 5828 . 6110)) (6147 6494 (NCP.AddTextCardTypeStub 6157 . 6492)) (6532 6887 (
NCP.AddFileBoxCardTypeStub 6542 . 6885)) (6924 7279 (NCP.AddSketchCardTypeStub 6934 . 7277)) (7315
7667 (NCP.AddGraphCardTypeStub 7325 . 7665)) (7705 8058 (NCP.AddBrowserCardTypeStub 7715 . 8056)) (
8095 8447 (NCP.AddSearchCardTypeStub 8105 . 8445)) (8486 8844 (NCP.AddDocumentCardTypeStub 8496 . 8842
)) (8884 9241 (NCP.AddLinkIndexCardTypeStub 8894 . 9239)) (9276 9623 (NCP.AddFileCardTypeStub 9286 .
9621)))))
STOP