(FILECREATED "20-Nov-85 18:28:41" {QV}<NOTECARDS>1.3K>FGHPATCH003.;1 14987
changes to: (VARS FGHPATCH003COMS)
(RECORDS Card CardObject NoteFile))
(* Copyright (c) 1985 by Xerox Corporation. All rights reserved.)
(PRETTYCOMPRINT FGHPATCH003COMS)
(RPAQQ FGHPATCH003COMS ((* * redefinition of Card objects from NCCARDS to make NCServer easier)
(RECORDS Card CardObject)
(* * redifinition of noteFile object from NCDATABASE to make server easier)
(RECORDS NoteFile)))
(* * redefinition of Card objects from NCCARDS to make NCServer easier)
[DECLARE: EVAL@COMPILE
(ACCESSFNS Card ((UID (fetch (CardObject UID) of DATUM)
(replace (CardObject UID) of DATUM with NEWVALUE))
(NoteFile (LET ((\NF (fetch (CardObject NoteFile) of DATUM)))
(COND
((type? NoteFile \NF)
\NF)
(\NF (replace (CardObject NoteFile) of DATUM
with (NC.NoteFileFromNoteFileUID \NF)))))
(replace (CardObject NoteFile) of DATUM with NEWVALUE))
(Monitor (fetch (CardObject Monitor) of DATUM)
(replace (CardObject Monitor) of DATUM with NEWVALUE))
(Status (fetch (CardObject Status) of DATUM)
(replace (CardObject Status) of DATUM with NEWVALUE))
(IndexDirtyFlg (fetch (CardObject IndexDirtyFlg) of DATUM)
(replace (CardObject IndexDirtyFlg) of DATUM with NEWVALUE))
(IndexLoc (fetch (CardObject IndexLoc) of DATUM)
(replace (CardObject IndexLoc) of DATUM with NEWVALUE))
(MainLoc (fetch (CardObject MainLoc) of DATUM)
(replace (CardObject MainLoc) of DATUM with NEWVALUE))
(LinksLoc (fetch (CardObject LinksLoc) of DATUM)
(replace (CardObject LinksLoc) of DATUM with NEWVALUE))
(PropListLoc (fetch (CardObject PropListLoc) of DATUM)
(replace (CardObject PropListLoc) of DATUM with NEWVALUE))
(TitleLoc (fetch (CardObject TitleLoc) of DATUM)
(replace (CardObject TitleLoc) of DATUM with NEWVALUE))
(Title (fetch (CardObject Title) of DATUM)
(replace (CardObject Title) of DATUM with NEWVALUE))
(TitleDirtyFlg (fetch (CardObject TitleDirtyFlg) of DATUM)
(replace (CardObject TitleDirtyFlg) of DATUM with NEWVALUE))
(Type (fetch (CardObject Type) of DATUM)
(replace (CardObject Type) of DATUM with NEWVALUE))
(ActiveFlg (fetch (CardObject ActiveFlg) of DATUM)
(replace (CardObject ActiveFlg) of DATUM with NEWVALUE))
(ActiveCardFlg (fetch (CardObject ActiveFlg) of DATUM)
(replace (CardObject ActiveFlg) of DATUM with NEWVALUE))
(CardCache (fetch (CardObject CardCache) of DATUM)
(replace (CardObject CardCache) of DATUM with NEWVALUE))
(UserData (fetch (CardObject UserData) of DATUM)
(replace (CardObject UserData) of DATUM with NEWVALUE))
(Substance (LET ((\Cache (fetch (CardObject CardCache) of DATUM)))
(AND \Cache (fetch (CardCache Substance) of \Cache)))
(LET ((\Cache (fetch (CardObject CardCache) of DATUM)))
(COND
(\Cache (replace (CardCache Substance) of \Cache
with NEWVALUE))
(T (replace (CardObject CardCache) of DATUM
with (create CardCache
Substance ← NEWVALUE))
NEWVALUE))))
(Links (LET ((\Cache (fetch (CardObject CardCache) of DATUM)))
(AND \Cache (fetch (CardCache Links) of \Cache)))
(LET ((\Cache (fetch (CardObject CardCache) of DATUM)))
(COND
(\Cache (replace (CardCache Links) of \Cache with NEWVALUE))
(T (replace (CardObject CardCache) of DATUM
with (create CardCache
Links ← NEWVALUE))
NEWVALUE))))
(FromLinks (LET ((\Cache (fetch (CardObject CardCache) of DATUM))
\Links)
(AND \Cache (SETQ \Links (fetch (CardCache Links)
of \Cache))
(fetch (LinksCache FromLinks) of \Links)))
(LET ((\Cache (OR (fetch (CardObject CardCache) of DATUM)
(replace (CardObject CardCache) of DATUM
with (create CardCache))))
\Links)
(SETQ \Links (fetch (CardCache Links) of \Cache))
(COND
(\Links (replace (LinksCache FromLinks) of \Links
with NEWVALUE))
(T (replace (CardCache Links) of \Cache
with (create LinksCache
FromLinks ← NEWVALUE))
NEWVALUE))))
(ToLinks (LET ((\Cache (fetch (CardObject CardCache) of DATUM))
\Links)
(AND \Cache (SETQ \Links (fetch (CardCache Links)
of \Cache))
(fetch (LinksCache ToLinks) of \Links)))
(LET ((\Cache (OR (fetch (CardObject CardCache) of DATUM)
(replace (CardObject CardCache) of DATUM
with (create CardCache))))
\Links)
(SETQ \Links (fetch (CardCache Links) of \Cache))
(COND
(\Links (replace (LinksCache ToLinks) of \Links with
NEWVALUE))
(T (replace (CardCache Links) of \Cache
with (create LinksCache
ToLinks ← NEWVALUE))
NEWVALUE))))
(GlobalLinks (LET ((\Cache (fetch (CardObject CardCache) of DATUM))
\Links)
(AND \Cache (SETQ \Links (fetch (CardCache Links)
of \Cache))
(fetch (LinksCache GlobalLinks) of \Links)))
(LET ((\Cache (OR (fetch (CardObject CardCache) of DATUM)
(replace (CardObject CardCache) of DATUM
with (create CardCache))))
\Links)
(SETQ \Links (fetch (CardCache Links) of \Cache))
(COND
(\Links (replace (LinksCache GlobalLinks) of \Links
with NEWVALUE))
(T (replace (CardCache Links) of \Cache
with (create LinksCache
GlobalLinks ← NEWVALUE))
NEWVALUE))))
(PropList (LET ((\Cache (fetch (CardObject CardCache) of DATUM)))
(AND \Cache (fetch (CardCache PropList) of \Cache)))
(LET ((\Cache (fetch (CardObject CardCache) of DATUM)))
(COND
(\Cache (replace (CardCache PropList) of \Cache with
NEWVALUE))
(T (replace (CardObject CardCache) of DATUM
with (create CardCache
PropList ← NEWVALUE))
NEWVALUE))))
(Region (LET ((\Cache (fetch (CardObject CardCache) of DATUM)))
(AND \Cache (fetch (CardCache Region) of \Cache)))
(LET ((\Cache (fetch (CardObject CardCache) of DATUM)))
(COND
(\Cache (replace (CardCache Region) of \Cache with NEWVALUE))
(T (replace (CardObject CardCache) of DATUM
with (create CardCache
Region ← NEWVALUE))
NEWVALUE))))
(SavedRegion (LET ((\Cache (fetch (CardObject CardCache) of DATUM)))
(AND \Cache (fetch (CardCache SavedRegion) of \Cache)))
(LET ((\Cache (fetch (CardObject CardCache) of DATUM)))
(COND
(\Cache (replace (CardCache SavedRegion) of \Cache
with NEWVALUE))
(T (replace (CardObject CardCache) of DATUM
with (create CardCache
SavedRegion ← NEWVALUE))
NEWVALUE))))
(ItemDate (LET ((\Cache (fetch (CardObject CardCache) of DATUM)))
(AND \Cache (fetch (CardCache ItemDate) of \Cache)))
(LET ((\Cache (fetch (CardObject CardCache) of DATUM)))
(COND
(\Cache (replace (CardCache ItemDate) of \Cache with
NEWVALUE))
(T (replace (CardObject CardCache) of DATUM
with (create CardCache
ItemDate ← NEWVALUE))
NEWVALUE))))
(LinksDate (LET ((\Cache (fetch (CardObject CardCache) of DATUM)))
(AND \Cache (fetch (CardCache LinksDate) of \Cache)))
(LET ((\Cache (fetch (CardObject CardCache) of DATUM)))
(COND
(\Cache (replace (CardCache LinksDate) of \Cache
with NEWVALUE))
(T (replace (CardObject CardCache) of DATUM
with (create CardCache
LinksDate ← NEWVALUE))
NEWVALUE))))
(TitleDate (LET ((\Cache (fetch (CardObject CardCache) of DATUM)))
(AND \Cache (fetch (CardCache TitleDate) of \Cache)))
(LET ((\Cache (fetch (CardObject CardCache) of DATUM)))
(COND
(\Cache (replace (CardCache TitleDate) of \Cache
with NEWVALUE))
(T (replace (CardObject CardCache) of DATUM
with (create CardCache
TitleDate ← NEWVALUE))
NEWVALUE))))
(PropListDate (LET ((\Cache (fetch (CardObject CardCache) of DATUM)))
(AND \Cache (fetch (CardCache PropListDate) of \Cache)))
(LET ((\Cache (fetch (CardObject CardCache) of DATUM)))
(COND
(\Cache (replace (CardCache PropListDate) of \Cache
with NEWVALUE))
(T (replace (CardObject CardCache) of DATUM
with (create CardCache
PropListDate ← NEWVALUE))
NEWVALUE))))
(LinksDirtyFlg (LET ((\Cache (fetch (CardObject CardCache) of DATUM)))
(AND \Cache (fetch (CardCache LinksDirtyFlg) of \Cache)))
(LET ((\Cache (fetch (CardObject CardCache) of DATUM)))
(COND
(\Cache (replace (CardCache LinksDirtyFlg) of \Cache
with NEWVALUE))
(T (replace (CardObject CardCache) of DATUM
with (create CardCache
LinksDirtyFlg ← NEWVALUE))
NEWVALUE))))
(PropListDirtyFlg (LET ((\Cache (fetch (CardObject CardCache) of DATUM)))
(AND \Cache (fetch (CardCache PropListDirtyFlg)
of \Cache)))
(LET ((\Cache (fetch (CardObject CardCache) of DATUM)))
(COND
(\Cache (replace (CardCache PropListDirtyFlg)
of \Cache with NEWVALUE))
(T (replace (CardObject CardCache) of DATUM
with (create CardCache
PropListDirtyFlg ← NEWVALUE))
NEWVALUE))))
(SubstanceDirtyFlg (LET ((\Cache (fetch (CardObject CardCache) of DATUM)))
(AND \Cache (fetch (CardCache SubstanceDirtyFlg)
of \Cache)))
(LET ((\Cache (fetch (CardObject CardCache) of DATUM)))
(COND
(\Cache (replace (CardCache SubstanceDirtyFlg)
of \Cache with NEWVALUE))
(T (replace (CardObject CardCache) of DATUM
with (create CardCache
SubstanceDirtyFlg ← NEWVALUE))
NEWVALUE))))
(NewCardFlg (LET ((\Cache (fetch (CardObject CardCache) of DATUM)))
(AND \Cache (fetch (CardCache NewCardFlg) of \Cache)))
(LET ((\Cache (fetch (CardObject CardCache) of DATUM)))
(COND
(\Cache (replace (CardCache NewCardFlg) of \Cache
with NEWVALUE))
(T (replace (CardObject CardCache) of DATUM
with (create CardCache
NewCardFlg ← NEWVALUE))
NEWVALUE))))
(BeingDeletedFlg (LET ((\Cache (fetch (CardObject CardCache) of DATUM)))
(AND \Cache (fetch (CardCache BeingDeletedFlg)
of \Cache)))
(LET ((\Cache (fetch (CardObject CardCache) of DATUM)))
(COND
(\Cache (replace (CardCache BeingDeletedFlg)
of \Cache with NEWVALUE))
(T (replace (CardObject CardCache) of DATUM
with (create CardCache
BeingDeletedFlg ← NEWVALUE))
NEWVALUE)))))
(CREATE (create CardObject))
(TYPE? (TYPE? CardObject DATUM)))
(DATATYPE CardObject (UID NoteFile Monitor Status (IndexDirtyFlg FLAG)
(IndexLoc INTEGER)
(MainLoc INTEGER)
(LinksLoc INTEGER)
(PropListLoc INTEGER)
(TitleLoc INTEGER)
Title
(TitleDirtyFlg FLAG)
Type
(ActiveFlg FLAG)
CardCache UserData))
]
(/DECLAREDATATYPE (QUOTE CardObject)
(QUOTE (POINTER POINTER POINTER POINTER FLAG FIXP FIXP FIXP FIXP FIXP POINTER FLAG
POINTER FLAG POINTER POINTER))
(QUOTE ((CardObject 0 POINTER)
(CardObject 2 POINTER)
(CardObject 4 POINTER)
(CardObject 6 POINTER)
(CardObject 6 (FLAGBITS . 0))
(CardObject 8 FIXP)
(CardObject 10 FIXP)
(CardObject 12 FIXP)
(CardObject 14 FIXP)
(CardObject 16 FIXP)
(CardObject 18 POINTER)
(CardObject 18 (FLAGBITS . 0))
(CardObject 20 POINTER)
(CardObject 20 (FLAGBITS . 0))
(CardObject 22 POINTER)
(CardObject 24 POINTER)))
(QUOTE 26))
(* * redifinition of noteFile object from NCDATABASE to make server easier)
[DECLARE: EVAL@COMPILE
(DATATYPE NoteFile (UID Stream FullFileName HashArray (HashArraySize FIXP)
(NextIndexNum FIXP)
(Version BYTE)
(NextLinkNum FIXP)
(CheckptPtr FIXP)
LinkLabelsCard TableOfContentsCard ToBeFiledCard OrphansCard
UserHashTableCard ReservedCards Menu MonitorLock ExclusiveAccessMonitor
CachingProcess UserProps))
]
(/DECLAREDATATYPE (QUOTE NoteFile)
(QUOTE (POINTER POINTER POINTER POINTER FIXP FIXP BYTE FIXP FIXP POINTER POINTER
POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER
POINTER))
(QUOTE ((NoteFile 0 POINTER)
(NoteFile 2 POINTER)
(NoteFile 4 POINTER)
(NoteFile 6 POINTER)
(NoteFile 8 FIXP)
(NoteFile 10 FIXP)
(NoteFile 6 (BITS . 7))
(NoteFile 12 FIXP)
(NoteFile 14 FIXP)
(NoteFile 16 POINTER)
(NoteFile 18 POINTER)
(NoteFile 20 POINTER)
(NoteFile 22 POINTER)
(NoteFile 24 POINTER)
(NoteFile 26 POINTER)
(NoteFile 28 POINTER)
(NoteFile 30 POINTER)
(NoteFile 32 POINTER)
(NoteFile 34 POINTER)
(NoteFile 36 POINTER)))
(QUOTE 38))
(PUTPROPS FGHPATCH003 COPYRIGHT ("Xerox Corporation" 1985))
(DECLARE: DONTCOPY
(FILEMAP (NIL)))
STOP