DIRECTORY DB USING [Attribute, AttributeValueList, Domain, Entity, Relation, Relship, RelshipSet, Value], GVBasics USING [RName], Nuthatch USING [EncryptionKey, ID, IDType, NuthatchUserHandle, Tune, VoiceFileID], Rope USING [ROPE], BasicTime USING [GMT, nullGMT], Thrush USING [nullKey], UserCredentials ; NuthatchDB: CEDAR DEFINITIONS = { Entity: TYPE = DB.Entity; -- for other Nuthatch modules Domain: TYPE = DB.Domain; AttributeValueList: TYPE = DB.AttributeValueList; Relation: TYPE = DB.Relation; Relship: TYPE = DB.Relship; RelshipSet: TYPE = DB.RelshipSet; Value: TYPE = DB.Value; Attribute: TYPE = DB.Attribute; VoiceMessage: TYPE = Entity; InitializeDB: PROC[close: BOOL_TRUE] RETURNS [success: BOOL_TRUE, logReadPoint: INT]; CatalogVoiceFile: PROC[ msg: Nuthatch.VoiceFileID_ NIL, tuneNumber: Nuthatch.Tune_ -1, recordTime: BasicTime.GMT _ BasicTime.nullGMT, creator: GVBasics.RName_ NIL, samples: INT_ -1, startSample: INT_ -1, expirationDate: BasicTime.GMT _ BasicTime.nullGMT, encryptionKeyRope: Rope.ROPE_NIL, type: Rope.ROPE_NIL , referenceCount: INT_ 0, close: BOOL_TRUE -- Close transaction after completing operation. ] RETURNS [New: BOOL_FALSE]; GetVoiceFileID: PROC[ user: GVBasics.RName, refIDType: Rope.ROPE, refID: Rope.ROPE, close: BOOL_TRUE] RETURNS [voiceFileID: Nuthatch.VoiceFileID_ NIL]; GetVoiceFileEntry: PROC[ msg: Nuthatch.VoiceFileID_ NIL, close: BOOL_TRUE] RETURNS [ tuneNumber: Nuthatch.Tune_ -1, recordTime: BasicTime.GMT _ BasicTime.nullGMT, creator: GVBasics.RName_ NIL, samples: INT_ -1, startSample: INT_ -1, expirationDate: BasicTime.GMT _ BasicTime.nullGMT, encryptionKey: Nuthatch.EncryptionKey_Thrush.nullKey, type: Rope.ROPE_NIL , referenceCount: INT_ 0, found: BOOL_FALSE ]; MakeInterestEntry: PROC[ voiceFileID: Nuthatch.VoiceFileID, refIDType: Nuthatch.IDType, refID: Nuthatch.ID, user: GVBasics.RName, close: BOOL_TRUE ]; AddInterest: PROC[ voiceFileID: Nuthatch.VoiceFileID_ NIL, refIDType: Nuthatch.IDType_NIL, refID: Nuthatch.ID_NIL, user: GVBasics.RName_NIL, close: BOOL_TRUE ]; LoseInterest: PROC[ voiceFileID: Nuthatch.VoiceFileID_ NIL, refIDType: Nuthatch.IDType_NIL, refID: Nuthatch.ID_NIL, user: GVBasics.RName_NIL, close: BOOL_TRUE ]; RemoveInterestEntry: PROC[ voiceFileID: Nuthatch.VoiceFileID, refIDType: Nuthatch.IDType, refID: Nuthatch.ID, user: GVBasics.RName, close: BOOL_TRUE ]; SetReadPoint: PROC [nuthatchUserHandle: Nuthatch.NuthatchUserHandle, close: BOOL_TRUE]; CloseTransaction: PROC; MarkTransaction: PROC; AbortTransaction: PROC; }. PNuthatchDB.Mesa Last Edited by: Swinehart, April 30, 1984 2:14:28 pm PDT Ê#˜J™J™8J˜šÏk ˜ JšœœW˜_Jšœ œ ˜Jšœ œœ1˜RJšœœœ˜Jšœ œœ ˜ Jšœœ ˜J˜J˜J˜—šœ œ œ˜!J˜Jšœœœ Ïc˜8Jšœœœ˜Jšœœœ˜1Jšœ œœ ˜Jšœ œœ ˜Jšœ œœ ˜!Jšœœœ˜Jšœ œœ ˜J˜Jšœœ ˜J˜—JšÏn œœœœœ œœœ˜UJ˜šŸœœ˜Jšœœ˜ J˜Jšœœ˜/Jšœœ˜Jšœ œ˜Jšœ œ˜Jšœœ˜2Jšœœœ˜!Jšœ œœ˜Jšœœ˜Jšœœœž0˜BJšœœœœ˜J˜—šŸœœ˜Jš œ&œœ œœ˜OJšœ%œ˜1J˜—šŸœœ˜Jšœœ œœ˜1šœ˜ J˜Jšœœ˜/Jšœœ˜Jšœ œ˜Jšœ œ˜Jšœœ˜2J˜5Jšœ œœ˜Jšœœ˜Jšœœ˜Jšœ˜—J˜—šŸœœ˜Jšœ"˜"Jšœ˜Jšœœ˜Jšœ˜Jšœœ˜Jšœ˜—J˜šŸ œœ˜Jšœ#œ˜(Jšœœ˜ Jšœœœ˜Jšœ˜Jšœœ˜J˜J˜—šŸ œœ˜Jšœ#œ˜(Jšœœ˜ Jšœœœ˜Jšœ˜Jšœœ˜J˜J˜—šŸœœ˜J˜#J˜Jšœœ˜J˜Jšœœ˜J˜J˜—JšŸ œœ:œœ˜WJ˜JšŸœœ˜JšŸœœ˜JšŸœœ˜J˜J˜J˜J˜J˜—…— òe