<> <> <> <<>> <<>> <> <<>> DIRECTORY LoganBerry USING [Entry, OpenDB], RefID USING [nullID], Rope USING [ROPE]; ScriptDB: CEDAR DEFINITIONS = { <<>> Handle: TYPE = REF HandleRec; HandleRec: TYPE = RECORD [ scriptDB: LoganBerry.OpenDB_RefID.nullID, scriptEntriesDB: LoganBerry.OpenDB_RefID.nullID, scriptDBName: Rope.ROPE, scriptEntriesDBName: Rope.ROPE ]; ScriptID: TYPE = ScriptedDocs.ScriptID; Script: TYPE = ScriptedDocs.Script; EntryID: TYPE = ScriptedDocs.EntryID; ScriptEntry: TYPE = ScriptedDocs.ScriptEntry; LBEntry: TYPE = LoganBerry.Entry; ID: TYPE = Rope.ROPE; <> Error: ERROR [ec: ATOM, explanation: Rope.ROPE _ NIL]; Open: PROC [dbName: Rope.ROPE] RETURNS [handle: Handle _ NIL]; <> ReadScriptDesc: PROC [handle: Handle, sid: ScriptID] RETURNS [script: Script]; <> WriteScriptDesc: PROC [handle: Handle, script: Script]; <> <<>> ReadEntryDesc: PROC [handle: Handle, eid: EntryID] RETURNS [scriptEntry: ScriptEntry]; <> WriteEntryDesc: PROC [handle: Handle, scriptEntry: ScriptEntry]; <> }. <<>> <> <> <> <> <> <> <<>>