DIRECTORY IO, Rope, SymTab ; WalnutSortDB: CEDAR DEFINITIONS = BEGIN ROPE: TYPE ~ Rope.ROPE; Trigger: TYPE ~ RECORD [msNames: LIST OF ROPE _ NIL, priority: CARDINAL _ 10]; TriggerSet: TYPE ~ REF TriggerSetRep; TriggerSetRep: TYPE ~ RECORD [ mapping: SymTab.Ref _ NIL, -- NARROW SymTab.Fetch[key: ] to a REF Trigger. clientData: REF ANY _ NIL ]; DeclareSegment: PROC [user: ROPE]; GetTriggerSetFromDB: PROC RETURNS [t: TriggerSet]; AddTrigger: PROC [msName, keyword: ROPE, priority: CARDINAL _ 10]; DeleteTrigger: PROC [msName, keyword: ROPE]; DumpToFile: PROC [fileName: ROPE]; LoadFromFile: PROC [fileName: ROPE]; DumpToStream: PROC [s: IO.STREAM]; LoadFromStream: PROC [s: IO.STREAM]; Close: PROC; InvalidateCache: PROC; END. üWalnutSortDB.mesa Eric Nickell, June 9, 1985 6:07:05 pm PDT Dave Rumph, October 15, 1985 12:55:25 pm PDT Looks up the default segment for the current user and declares it with Cypress. Builds the user a trigger set. This procedure may be somewhat expensive CPU-wise. Puts a new trigger in the database Deletes an existing trigger from the database, if found. Dumps a copy of the trigger specifications to the file. Loads trigger specifications from the file, erasing previous definitions. Dumps a copy of the trigger specifications to the stream. Loads trigger specifications from the stream, erasing previous definitions. Closes the transaction with the keyword database, if currently open. This procedure is solely a convenience for those applications wishing to quiesce an Alpine server. Any calls are purely optional from the standpoint of WalnutSort. WalnutSort keeps around cached information derived from the WalnutSort database. This procedure provides the wizard the opportunity to muck around with the underlying data, and have WalnutSort not confuse the situation with cached information. Dave Rumph, October 15, 1985 12:54:04 pm PDT Changed to facilitate smoother user changes changes to: WalnutSortDB, DeclareSegment (added "user" parameter) Êõ˜šœ™J™)J™,J™—šÏk ˜ Jšœ˜J˜J˜—šœœœ˜'J˜Jšœœœ˜J˜Icodešœ œœœœœœœ˜NKšœœœ˜%šœœœ˜KšœœÏc?˜ZKšœœ ˜K˜—J˜code2šÏnœœœ˜"K™OK˜—šŸœœœ˜2K™RK™—šŸ œœœœ˜BK™"K™—šŸ œœœ˜,K™8K™—šŸ œœœ˜"J™7J™—šŸœœœ˜$J™IJ™—šŸœœœœ˜"J™9J™—šŸœœœœ˜$J™KJ™—šŸœœ˜J™êJ˜—šŸœœ˜K™ôK™—Jšœ˜—šœ)™,K™+KšœÏrœ™A—K™—…—ð á