WPDirectory.mesa
Copyright Ó 1987 by Xerox Corporation. All rights reserved.
Doug Terry, July 13, 1987 5:01:20 pm PDT
Interface to whitepage database facilities.
DIRECTORY
Rope USING [ROPE],
LoganBerry USING [Entry],
LoganQuery USING [AttributePatterns, ComplexCursor],
TiogaButtons USING [TiogaButtonProc];
WPDirectory: CEDAR DEFINITIONS
~ BEGIN
ROPE: TYPE ~ Rope.ROPE;
Entry: TYPE ~ LoganBerry.Entry;
Cursor: TYPE ~ LoganQuery.ComplexCursor;
AttributePatterns: TYPE ~ LoganQuery.AttributePatterns;
ParseQueryRope: PROC [query: ROPE] RETURNS [db: ROPE, patterns: AttributePatterns];
Interprets the given rope as an ad-hoc database query and intelligently parses it into a list of attribute patterns suitable for passing to QueryEntries (below).
QueryEntries: PROC [db: ROPE ← NIL, patterns: AttributePatterns] RETURNS [cursor: Cursor];
Sets up a query for entries in the whitepage databases that match the given attribute patterns.
NextEntry: PROC [cursor: Cursor] RETURNS [entry: Entry];
Retrieves the next entry relative to the given cursor. The cursor is automatically updated so that NextEntry may be repeatedly called to enumerate entries. NIL is returned if the cursor is at the end of the sequence.
GetName: PROC [entry: Entry] RETURNS [ROPE];
GetRName: PROC [entry: Entry] RETURNS [ROPE];
GetHomePhone: PROC [entry: Entry] RETURNS [ROPE];
GetOfficePhone: PROC [entry: Entry] RETURNS [ROPE];
GetRemarks: PROC [entry: Entry] RETURNS [ROPE];
DirectoryButtonNotifier: TiogaButtons.TiogaButtonProc;
Interprets a Tioga button as a telephone directory entry: left clicking simply selects the entry, middle or right clicking attempts to place a phone call.
END.