ThNet.mesa
Last modified by D. Swinehart, February 8, 1985 10:57:26 am PST
Ephemeral and Persistent data base services for Thrush
DIRECTORY
BTree,
BTreeSimple,
BTreeVM,
FS,
Log USING [ WhereToReport ],
Rope USING [ ROPE ],
RefTab USING [ Ref ]
;
ThNet: CEDAR DEFINITIONS = {
Thrush-wide system control parameters.
PD: TYPE = RECORD [
debug: BOOLEAN, -- Diagnostic and progress display
encryptionRequested: BOOLEAN, -- Encrypt RPC
encryptVoice: BOOLEAN, -- Separate decision; false for debugging only, please!
defaultLarkReports: BOOLEAN←FALSE, -- If TRUE and debug, Lark events reported SOMEwhere.
Otherwise, only reported if LarkControl window up for this Lark and debug=TRUE
autoGVUpdate: BOOLEAN←FALSE,
Default values for ringing -- too device-dependent, but life is hard.
ringsInvalid: BOOL←TRUE, -- set to cause recreation of standard ring tunes
tonesVolume: CARDINAL ← 2,
defaultRingVolume: CARDINAL ← 2,
subduedVolumeInterval: CARDINAL𡤁,
feepVolume: CARDINAL ← 0
];
pd: REF PD;
Types
WPState: TYPE = REF WPStateRecord;
WPStateRecord: TYPE = RECORD [
treeRootName: ROPE,-- File name for Tree, FTree, and Data files: extensions determine which
wpTree: BTreeSimple.Tree, -- Tree: BTree to white pages, sorted by RName.
wpFile: FS.OpenFile, -- open handle for file backing wpTree
wpFeepTree: BTreeSimple.Tree, -- Tree: BTree to white pages, sorted by FeepName *.
wpFeepFile: FS.OpenFile, -- open handle for file backing wpFeepTree
wpDataVMFile: FS.OpenFile, -- File containing the actual white pages entries,
wpDataVM: BTreeVM.Handle, -- indexed by entries in both BTrees. Uses BTreeVM to
wpDataVMLen: INT𡤀, -- manage its pages
wpDataVMValid: BOOL←TRUE, -- not sure what the value of this is any more.
wpExtInt: RefTab.Ref, --Map from names in text-format input files to key ATOMs in tree
accessOptions: FS.AccessOptions←$read, -- $read, $create, $write
wpOpen: BOOL←FALSE -- TRUE when trees and all their files are ready for business.
];
* FeepName is the numeric string resulting from spelling out the RName on a DTMF pad:
"Q" is presumed to live between "P" and "R" on the "7" key.
"Z" is presumed to live after "Y" on the "9" key.
All punctuation, digits, non-alphabetic keys are mapped to "1".
ROPE: TYPE=Rope.ROPE;
WPListing: TYPE = RefTab.Ref; -- a table of keys and values.
Attrs: TYPE = MACHINE DEPENDENT {
name(1), rName(2), officeNumber(3), officeDDDNumber(4),
outsideNumber(5), officeAddress(6), officeLocation(7), organization(8),
homeAddress(9), frequency(10), mailSystem(11), primaryKey(12),
(15)
};
WhitePages
These functions provide access to Swinehart's cobby old BTree-based "White Pages"
database. This one is assumed to be keyed and sorted by RName.
They are at present only called by the RName diddling code; see same for usage.
WhitePagesLookup: PROC[ wpState: WPState, name: ROPE, feep: BOOL←FALSE ] RETURNS [ listing: WPListing ];
name must be in form rr.xxxxxxx
Returns first listing for which name is a substring, case unimportant, of the listing
WhitePagesEntry: PROC[
wpState: WPState, name: ROPE←NIL, key: ATOM←$officeNumber,
feep: BOOL←FALSE, listing: WPListing←NIL
] RETURNS [fullRName: ROPE, entry: ROPE, newListing: WPListing];
WhitePagesEnter: PROC[wpState: WPState, listing: WPListing];
Put in something new, or replace something old.
WhitePagesPrint: PUBLIC SAFE PROC[wpState: WPState, listing: WPListing];
NewListing: PROC RETURNS [ThNet.WPListing];
This and the following provide a way to build database entries.
List: PROC[listing: ThNet.WPListing, key: ATOM, value: Rope.ROPE];
Include an enumerator here, if anybody ends up wanting it outside the implementation.
InitWhitePagesDatabase: PUBLIC SAFE PROC[
NIL for fileName or extIntMapName defaults to User Profile values
fileName: ROPE←NIL, extIntMapName: ROPE←NIL, accessOptions: FS.AccessOptions ← $read,
howToComplain: Log.WhereToReport←$System]
RETURNS[wpState: WPState←NIL];
CloseWhitePagesDatabase: PUBLIC SAFE PROC[
wpState: WPState, howToComplain: Log.WhereToReport←$System]
RETURNS[ok: BOOL←TRUE];
Telephone number interpretation
PhoneMap: TYPE = LIST OF PhoneMapEntry;
PhoneMapEntry: TYPE = RECORD [
pattern: ROPE,
replacement: ROPE
];
HowToDial: PROC[phoneNumber: ROPE, ownExtension: ROPE←NIL]
RETURNS [whatToDial: ROPE, isLocalExtension: BOOLEAN];
FeepName: PROC[rName: ROPE] RETURNS [feepName: ROPE];
}.