DIRECTORY
Atom USING [GetPName, MakeAtom],
ChoiceButtons USING [EnumTypeRef, BuildEnumTypeSelection, BuildTextPrompt, GetSelectedButton],
Commander USING [CommandProc, Handle, Register],
CommandTool USING [NextArgument],
Containers USING [ ChildXBound, ChildYBound, Container, Create ],
FS USING [ComponentPositions, ExpandName, Position],
Icons USING [ IconFlavor, NewIconFromFile ],
LoganBerry USING [AttributeType, AttributeValue, BuildIndices, Close, CompactLogs, Describe, Entry, EntryProc, Error, ErrorCode, Open, OpenDB, SchemaInfo],
LoganBerryRpcControl USING [ImportInterface, UnimportInterface],
LoganQuery USING [ComplexCursor, EndGenerate, FilterEntries, FilterProc, GenerateEntries, MergeEntries, NextEntry, Equal, Prefix, Wildcard, RE, Soundex],
LupineRuntime USING [BindingError],
Menus USING [AppendMenuEntry, ChangeNumberOfLines, ClickProc, CreateEntry, CreateMenu, GetNumberOfLines, Menu, MenuLine],
MessageWindow USING [Append, Blink],
RefTab USING [Ref, EachPairAction, Fetch, Pairs, Create, Store],
Rope USING [Cat, Concat, Equal, Fetch, FromChar, Index, Length, ROPE, SkipTo, Substr],
RPC USING [CallFailed, CallFailure, ImportFailed],
Rules USING [ Create, Rule ],
TiogaButtons USING [ CreateButton, CreateButtonFromNode, CreateViewer, FindTiogaButton, GetRope, LoadViewer, TextNodeRef, TiogaButton, TiogaButtonProc, TiogaOpsRef ],
TypeScript USING [ Create, ChangeLooks, Reset, PutChar, PutRope ], 
ViewerBLT USING [ChangeNumberOfLines],
ViewerClasses USING [ Viewer, ViewerClassRec, ViewerRec ],
ViewerEvents USING [ EventProc, RegisterEventProc ],
ViewerOps USING [AddProp, FetchProp, MoveViewer, PaintViewer],
ViewerTools USING [GetContents]
;

LoganBerryBrowserTool: CEDAR PROGRAM					       
IMPORTS Atom, ChoiceButtons, Commander, CommandTool, Containers, FS, Icons, LoganBerry, LoganBerryRpcControl, LoganQuery, LupineRuntime, Menus, MessageWindow, RefTab, Rope, RPC, Rules, TiogaButtons, --TiogaButtonsExtra,-- TypeScript, ViewerBLT, ViewerEvents, ViewerOps, ViewerTools
= BEGIN

ROPE: TYPE = Rope.ROPE;
Viewer: TYPE = ViewerClasses.Viewer;

BrowserTool: TYPE = REF BrowserToolRec;
BrowserToolRec: TYPE = RECORD[
outer: Containers.Container,  -- main container
menu: Menus.Menu,  -- command menu
dbFileName: ROPE,  -- name of database
instance: ROPE,  -- RPC interface instance
imported: BOOL_FALSE,  -- is interface imported?
db: LoganBerry.OpenDB,  -- open database handle
entryform: RefTab.Ref,  -- set of "FormField"s 
sortButton: ChoiceButtons.EnumTypeRef,  -- order of retrieval
details: Containers.Container,  -- container for choice buttons
historyData: REF ANY,  -- log of executed queries
history: Viewer,  -- viewer for history data
inner: Viewer,  -- viewer for retrieved database entries
stop: BOOLEAN,  -- stop database retrievals if TRUE
height: CARDINAL _ 0  -- current height of tool (excluding typescript viewer)
];

FormField: TYPE = REF FormFieldRec;
FormFieldRec: TYPE = RECORD [
textViewer: Viewer,
patternButton: ChoiceButtons.EnumTypeRef
];

browserIcon: Icons.IconFlavor _ tool;

itemHeight: CARDINAL = 14;
interItemHeight: CARDINAL = 5;
ruleHeight: CARDINAL = 1;
patternButtonWidth: CARDINAL = 100;
patternHSpace: CARDINAL = 5;
historyHeight: CARDINAL = 100;

StopProc: Menus.ClickProc = {
tool: BrowserTool _ NARROW[clientData];
tool.stop _ TRUE;
};

BrowseProc: Menus.ClickProc = {
tool: BrowserTool _ NARROW[clientData];
IF mouseButton # blue THEN
TypeScript.Reset[tool.inner];
DoQuery[tool.db, tool.entryform, Atom.MakeAtom[ChoiceButtons.GetSelectedButton[tool.sortButton]], tool.inner, tool];
ViewerOps.PaintViewer[viewer: tool.inner, hint: all];
};
DetailsProc: Menus.ClickProc = {
tool: BrowserTool _ NARROW[clientData];
IF tool.details.wx = 0 THEN
HideViewer[tool.details]
ELSE
UnHideViewer[tool.details];
};
HistoryProc: Menus.ClickProc = {
tool: BrowserTool _ NARROW[clientData];
IF tool.history.wx = 0 THEN {
HideViewer[tool.history];
ViewerOps.MoveViewer[viewer: tool.inner, x: tool.inner.wx, y: tool.inner.wy - historyHeight, w: tool.inner.ww, h: tool.inner.wh];
tool.height _ tool.height - historyHeight;
}
ELSE {
ViewerOps.MoveViewer[viewer: tool.inner, x: tool.inner.wx, y: tool.inner.wy + historyHeight, w: tool.inner.ww, h: tool.inner.wh];
UnHideViewer[tool.history];
tool.height _ tool.height + historyHeight;
};
MessageWindow.Append["Not fully implemented.", TRUE];
MessageWindow.Blink[];
};

AdminOpsProc: Menus.ClickProc = {
tool: BrowserTool _ NARROW[clientData];
newCount: CARDINAL _ IF Menus.GetNumberOfLines[tool.menu] = 1 THEN 2 ELSE 1;
Menus.ChangeNumberOfLines[tool.menu, newCount];
ViewerBLT.ChangeNumberOfLines[tool.outer, newCount];
};
OpenProc: Menus.ClickProc = {
msg: ROPE _ NIL;
tool: BrowserTool _ NARROW[clientData];
tool.db _ LoganBerry.Open[dbName: tool.dbFileName ! LoganBerry.Error => {ReportLBError[ec, explanation, tool.inner]; CONTINUE}];
};
CloseProc: Menus.ClickProc = {
tool: BrowserTool _ NARROW[clientData];
LoganBerry.Close[db: tool.db ! LoganBerry.Error => {ReportLBError[ec, explanation, tool.inner]; CONTINUE}];
};
BuildIndiciesProc: Menus.ClickProc = {
tool: BrowserTool _ NARROW[clientData];
LoganBerry.BuildIndices[db: tool.db ! LoganBerry.Error => {ReportLBError[ec, explanation, tool.inner]; CONTINUE}];
};
CompactLogsProc: Menus.ClickProc = {
tool: BrowserTool _ NARROW[clientData];
LoganBerry.CompactLogs[db: tool.db ! LoganBerry.Error => {ReportLBError[ec, explanation, tool.inner]; CONTINUE}];
};
DestroyProc: ViewerEvents.EventProc = {
};

MakeMainMenu: PROC [tool: BrowserTool] RETURNS [] ~ {
AppendMenu: PROC[menu: Menus.Menu, name: ROPE, proc: Menus.ClickProc, line: Menus.MenuLine _ 0, guarded: BOOL _ FALSE] = {
Menus.AppendMenuEntry[	
menu: menu,
entry: Menus.CreateEntry[name: name, proc: proc, clientData: tool, guarded: guarded],
line: line
];
};
tool.menu _ Menus.CreateMenu[lines: 2];
AppendMenu[tool.menu, "STOP!", StopProc];
AppendMenu[tool.menu, "Browse", BrowseProc];
AppendMenu[tool.menu, "Details", DetailsProc];
AppendMenu[tool.menu, "History", HistoryProc];
AppendMenu[tool.menu, "AdminOps", AdminOpsProc];
AppendMenu[tool.menu, "Open", OpenProc, 1];
AppendMenu[tool.menu, "Close", CloseProc, 1, TRUE];
AppendMenu[tool.menu, "BuildIndicies", BuildIndiciesProc, 1, TRUE];
AppendMenu[tool.menu, "CompactLogs", CompactLogsProc, 1, TRUE];
};
MakeEntryForm: PROC [tool: BrowserTool] RETURNS [] ~ {
dbSchema: LoganBerry.SchemaInfo _ LoganBerry.Describe[db: tool.db];
tool.entryform _ RefTab.Create[];
FOR k: LIST OF LoganBerry.AttributeType _ dbSchema.keys, k.rest WHILE k # NIL DO
field: FormField _ NEW[FormFieldRec];
field.patternButton _ ChoiceButtons.BuildEnumTypeSelection[viewer: tool.details, x: patternHSpace, y: tool.height, buttonNames: LIST["exact", "prefix", "wildcard", "reg. exp.", "soundex"], default: "prefix", style: flipThru, maxWidth: patternButtonWidth];
field.textViewer _ ChoiceButtons.BuildTextPrompt[viewer: tool.outer, x: field.patternButton.nextx, y: tool.height, title: Rope.Concat[Atom.GetPName[k.first], ":"]].textViewer;
tool.height _ tool.height + itemHeight + interItemHeight;
[] _ RefTab.Store[tool.entryform, k.first, field];
ENDLOOP;
};

MakeSortButton: PROC [tool: BrowserTool] RETURNS [] ~ {
AddToSortList: RefTab.EachPairAction = {
choiceList _ CONS[Atom.GetPName[NARROW[key]], choiceList];
RETURN[quit: FALSE];
};
choiceList: LIST OF ROPE _ NIL;
[] _ RefTab.Pairs[x: tool.entryform, action: AddToSortList];
tool.height _ tool.height + interItemHeight;
tool.sortButton _ ChoiceButtons.BuildEnumTypeSelection[viewer: tool.details, x: patternHSpace, y: tool.height, title: "Order by:", buttonNames: choiceList, default: NIL, style: menuSelection --vs. flipThru--];
tool.height _ tool.height + itemHeight + interItemHeight;
};

MakeBrowserTool: Commander.CommandProc = {
tool: BrowserTool _ NEW[BrowserToolRec];
position: FS.Position;
shortname: ROPE;
cp: FS.ComponentPositions;
errormsg: ROPE _ NIL;
tool.dbFileName _ CommandTool.NextArgument[cmd];
IF tool.dbFileName = NIL THEN
RETURN[msg: "No database name given.\n"];
[tool.dbFileName, cp] _ FS.ExpandName[tool.dbFileName];
tool.instance _ Rope.Substr[tool.dbFileName, cp.server.start, cp.server.length];
tool.dbFileName _ Rope.Concat["[]", Rope.Substr[tool.dbFileName, cp.dir.start-1]];
tool.imported _ TRUE;
tool.db _ LoganBerry.Open[dbName: tool.dbFileName 
! LoganBerry.Error => errormsg _ Rope.Cat["Error: ", Atom.GetPName[ec], "  ", explanation]];
IF errormsg # NIL THEN
RETURN[msg: errormsg];
position _ FS.ExpandName[tool.dbFileName].cp.base;
shortname _ Rope.Substr[base: tool.dbFileName, start: position.start, len: position.length];
MakeMainMenu[tool];
tool.outer _ Containers.Create[info: [
name: Rope.Concat["LoganBerry Browser: ", tool.dbFileName],
icon: browserIcon,
label: shortname,
iconic: FALSE,
column: left,
menu: tool.menu,
scrollable: FALSE]];
Menus.ChangeNumberOfLines[tool.menu, 1];
ViewerBLT.ChangeNumberOfLines[tool.outer, 1];
ViewerOps.AddProp[viewer: tool.outer, prop: $BrowserTool, val: tool];
[] _ ViewerEvents.RegisterEventProc[proc: DestroyProc, event: destroy, filter: tool.outer];
tool.details _ Containers.Create[info: [
parent: tool.outer, 
ww: 9999, 
wh: 9999, 
scrollable: FALSE, 
border: FALSE]];
Containers.ChildXBound[container: tool.outer, child: tool.details];
Containers.ChildYBound[container: tool.outer, child: tool.details];
tool.height _ interItemHeight;
MakeEntryForm[tool];
MakeSortButton[tool];
DividingLine[tool];
tool.history _ TiogaButtons.CreateViewer[info: [
parent: tool.outer, 
wy: tool.height, 
ww: 9999, 
wh: historyHeight, 
border: TRUE]];
Containers.ChildXBound[tool.outer, tool.history];  -- constrain rule to be width of parent
HideViewer[tool.history];
tool.inner _ TypeScript.Create[info: [
name: "LoganBerry Browser output",
parent: tool.outer, 
wx: 0,
wy: tool.height, 
ww: 9999, 
wh: 9999,
border: FALSE]];
Containers.ChildXBound[tool.outer, tool.inner];  -- constrain rule to be width of parent
Containers.ChildYBound[tool.outer, tool.inner];  -- constrain rule to be height of parent
};

DividingLine: PROC [tool: BrowserTool] RETURNS [] ~ {
rule: Rules.Rule;
rule _ Rules.Create[info: [parent: tool.outer, wx: 0, wy: tool.height, ww: 9999, wh: ruleHeight]];
Containers.ChildXBound[tool.outer, rule];  -- constrain rule to be width of parent
tool.height _ tool.height + ruleHeight;
};

HideViewer: PROC [v: Viewer] RETURNS [] ~ {
ViewerOps.MoveViewer[viewer: v, x: 2000, y: v.wy, w: v.ww, h: v.wh];
};

UnHideViewer: PROC [v: Viewer] RETURNS [] ~ {
ViewerOps.MoveViewer[viewer: v, x: 0, y: v.wy, w: v.ww, h: v.wh];
};

DoQuery: PROC [db: LoganBerry.OpenDB, form: RefTab.Ref, sortby: LoganBerry.AttributeType, v: Viewer, tool: BrowserTool] RETURNS [] ~ {
ENABLE {
LoganBerry.Error => {ReportLBError[ec, explanation, v]; CONTINUE};
RPC.CallFailed => {PostRPCError[why, v]; CONTINUE};
};
PutEntry: LoganBerry.EntryProc ~ {
FOR e: LoganBerry.Entry _ entry, e.rest UNTIL e = NIL DO
TypeScript.ChangeLooks[v, 'b];  -- print atribute type in bold
TypeScript.PutRope[v, Atom.GetPName[e.first.type]];
TypeScript.ChangeLooks[v, ' ];  -- restore normal looks
TypeScript.PutRope[v, ": "];
TypeScript.PutRope[v, e.first.value];
TypeScript.PutChar[v, '\n];
ENDLOOP;
TypeScript.PutChar[v, '\n];
RETURN[TRUE];
};
NewFilter: RefTab.EachPairAction = {
field: FormField = NARROW[val];
contents: ROPE _ ViewerTools.GetContents[field.textViewer];
ptype: ROPE _ ChoiceButtons.GetSelectedButton[field.patternButton];
IF NOT Rope.Equal[contents, ""] AND NARROW[key, ATOM] # sortby THEN
cursor _ LoganQuery.FilterEntries[input: cursor, pattern: contents, filter: NamedFilter[ptype], atype: NARROW[key]];
RETURN[quit: FALSE];
};
start, end: ROPE _ NIL;
field: FormField;
pattern, ptype: ROPE;
cursor: LoganQuery.ComplexCursor;
entry: LoganBerry.Entry;
field _ NARROW[RefTab.Fetch[form, sortby].val];
pattern _ ViewerTools.GetContents[field.textViewer];
ptype _ ChoiceButtons.GetSelectedButton[field.patternButton];
start _ OptimalStart[pattern, ptype];
cursor _ LoganQuery.GenerateEntries[db: db, key: sortby, start: start, end: end];
IF NOT Rope.Equal[pattern, ""] THEN
cursor _ LoganQuery.FilterEntries[input: cursor, pattern: pattern, filter: NamedFilter[ptype], atype: sortby, stopIfNothingGreater: TRUE];
[] _ RefTab.Pairs[form, NewFilter];
tool.stop _ FALSE;
entry _ LoganQuery.NextEntry[cursor];
WHILE entry # NIL AND NOT tool.stop DO 
[] _ PutEntry[entry];
entry _ LoganQuery.NextEntry[cursor];
ENDLOOP;
LoganQuery.EndGenerate[cursor];
};

GetAttributeValue: PROC [entry: LoganBerry.Entry, type: LoganBerry.AttributeType] RETURNS [LoganBerry.AttributeValue] ~ {
FOR e: LoganBerry.Entry _ entry, e.rest WHILE e # NIL DO
IF e.first.type = type THEN
RETURN[e.first.value];
ENDLOOP;
RETURN[NIL];
};

OptimalStart: PROC [pattern: ROPE, ptype: ROPE] RETURNS [start: ROPE] ~ {
SELECT TRUE FROM
Rope.Equal[ptype, "exact"] => {
start _ pattern;
};
Rope.Equal[ptype, "prefix"] => {
start _ pattern;
};
Rope.Equal[ptype, "wildcard"] => {
start _ Rope.Substr[base: pattern, len: Rope.Index[s1: pattern, s2: "*"]];
};
Rope.Equal[ptype, "reg. exp."] => {
i: INT _ Rope.SkipTo[s: pattern, skip: "\'#[^$*+(\\<{!"];  -- look for special chars
IF NOT i = Rope.Length[pattern] AND Rope.Fetch[pattern, i] = '* THEN  -- could be zero of previous char
i _ i-1;
start _ Rope.Substr[base: pattern, len: i];
};
Rope.Equal[ptype, "soundex"] => {
start _ Rope.FromChar[Rope.Fetch[base: pattern, index: 0]];
};
ENDCASE => start _ NIL;
};

NamedFilter: PROC [ptype: ROPE] RETURNS [LoganQuery.FilterProc] ~ {
RETURN[SELECT TRUE FROM
Rope.Equal[ptype, "exact"] => LoganQuery.Equal,
Rope.Equal[ptype, "prefix"] => LoganQuery.Prefix,
Rope.Equal[ptype, "wildcard"] => LoganQuery.Wildcard,
Rope.Equal[ptype, "reg. exp."] => LoganQuery.RE,
Rope.Equal[ptype, "soundex"] => LoganQuery.Soundex,
ENDCASE => LoganQuery.Equal];
};

ReportLBError: PROC [ec: LoganBerry.ErrorCode, explanation: ROPE, v: Viewer] RETURNS [] ~ {
TypeScript.Reset[v];
TypeScript.PutRope[v, Rope.Cat["Error: ", Atom.GetPName[ec], "  ", explanation]];
};



PostRPCError: PROC[why: RPC.CallFailure, v: Viewer] RETURNS[] = {
TypeScript.Reset[v];
TypeScript.PutRope[v, "Error: RPC failure."];
};


browserIcon _ Icons.NewIconFromFile[file: "LoganBerry.icons", n: 0 ! ANY => CONTINUE];
Commander.Register[key: "LoganBerryBrowser", proc: MakeBrowserTool,
doc: "Create a LoganBerry browser." ];

END.
\LoganBerryBrowserTool.mesa 
Copyright c 1985 by Xerox Corporation.  All rights reserved.
Doug Terry, March 6, 1986 4:41:01 pm PST
A tool for interactively browsing LoganBerry databases.
TiogaButtonsExtra USING [CreateButtonForEachNode],
Types


Viewer layout
Command menu

[parent: REF ANY, clientData: REF ANY _ NIL, mouseButton: Menus.MouseButton _ red, shift: BOOL _ FALSE, control: BOOL _ FALSE]
[parent: REF ANY, clientData: REF ANY _ NIL, mouseButton: Menus.MouseButton _ red, shift: BOOL _ FALSE, control: BOOL _ FALSE]

[parent: REF ANY, clientData: REF ANY _ NIL, mouseButton: Menus.MouseButton _ red, shift: BOOL _ FALSE, control: BOOL _ FALSE]

[parent: REF ANY, clientData: REF ANY _ NIL, mouseButton: Menus.MouseButton _ red, shift: BOOL _ FALSE, control: BOOL _ FALSE]
[parent: REF ANY, clientData: REF ANY _ NIL, mouseButton: Menus.MouseButton _ red, shift: BOOL _ FALSE, control: BOOL _ FALSE]

[parent: REF ANY, clientData: REF ANY _ NIL, mouseButton: Menus.MouseButton _ red, shift: BOOL _ FALSE, control: BOOL _ FALSE]
IF ~tool.imported THEN {
msg _ ImportLoganBerry[tool.instance];
IF msg # NIL THEN ReportLBError[NIL, "Can't import LoganBerry RPC interface", tool.inner]
ELSE tool.imported _ TRUE;
};

[parent: REF ANY, clientData: REF ANY _ NIL, mouseButton: Menus.MouseButton _ red, shift: BOOL _ FALSE, control: BOOL _ FALSE]

[parent: REF ANY, clientData: REF ANY _ NIL, mouseButton: Menus.MouseButton _ red, shift: BOOL _ FALSE, control: BOOL _ FALSE]

[parent: REF ANY, clientData: REF ANY _ NIL, mouseButton: Menus.MouseButton _ red, shift: BOOL _ FALSE, control: BOOL _ FALSE]

[viewer: ViewerClasses.Viewer, event: ViewerEvents.ViewerEvent, before: BOOL] RETURNS [abort: BOOL _ FALSE]
-- Does nothing at the moment
tool: BrowserTool _ NARROW[ViewerOps.FetchProp[viewer: viewer, prop: $BrowserTool]];
LoganBerry.Close[db: tool.db ! LoganBerry.Error => {ReportLBError[ec, explanation, tool.inner]; CONTINUE}];
first line
second line

Entry form

[key: RefTab.Key, val: RefTab.Val] RETURNS [quit: BOOLEAN]

Commander commands
[cmd: Commander.Handle] RETURNS [result: REF ANY _ NIL, msg: ROPE _ NIL]
The server component of the input file name is taken as an RPC instance; the DB file name is then given an empty server component since the file is assumed to be local to the server exporting the interface.
errormsg _ ImportLoganBerry[tool.instance];
IF errormsg # NIL THEN
RETURN[msg: errormsg];
open database
find short database name
create command section
create input form
create history viewer
create output browser
Viewer stuff


Database retrieval
PROC [entry: Entry] RETURNS [continue: BOOL]
[key: RefTab.Key, val: RefTab.Val] RETURNS [quit: BOOLEAN]
figure out where to start in database to save work
simple base query
build up filters
retrieve entries and build directory browser
Dealing with remote database servers
ImportLoganBerry: PROC[instance: ROPE] RETURNS [errormsg: ROPE _ NIL] = {
ENABLE {
RPC.ImportFailed => errormsg _ Rope.Cat["Could not import Loganberry from ", instance];
};
TRUSTED {
LoganBerryRpcControl.UnimportInterface[!LupineRuntime.BindingError => CONTINUE];};
IF Rope.Equal[instance, NIL] THEN RETURN[NIL];
LoganBerryRpcControl.ImportInterface[["Loganberry.Lark", instance]];
};
Registration, Initialization
Doug Terry, November 27, 1985 3:22:06 pm PST
taken from WPBrowserToolImpl.mesa
changes to: DIRECTORY, LoganBerryBrowserTool, browserIcon, db, dbFileName, NamedFilter, Commander, END, BrowseProc, DetailsProc, HistoryProc, MakeMainMenu, BrowserToolRec, MakeBrowserTool, itemHeight, interItemHeight, ruleHeight, patternButtonWidth, patternHSpace, historyHeight, AppendMenu (local of MakeMainMenu), MakeEntryForm, AppendEntry (local of MakeEntryForm), MakeSortButton, DividingLine, FormFieldRec, AddToSortList (local of MakeSortButton), StopProc, BrowseProc, DoQuery, PutEntry (local of DoQuery), NewFilter (local of DoQuery), ROPE, STREAM
Doug Terry, November 27, 1985 4:05:43 pm PST
changes to: PutEntry (local of DoQuery), MakeSortButton, DIRECTORY
Doug Terry, November 27, 1985 5:56:01 pm PST
changes to: MakeSortButton, AddToSortList (local of MakeSortButton), DIRECTORY, DestroyProc, MakeMainMenu, MakeBrowserTool, browserIcon, Commander, LoganBerryBrowserTool
Doug Terry, November 27, 1985 6:18:58 pm PST
changes to: MakeBrowserTool
Doug Terry, January 23, 1986 8:41:38 pm PST
changes to: DestroyProc, MakeBrowserTool
Doug Terry, January 31, 1986 2:46:52 pm PST
changes to: AdminOpsProc, OpenProc, CloseProc, BuildIndiciesProc, CompactLogsProc, DestroyProc, MakeMainMenu, DIRECTORY, AppendMenu (local of MakeMainMenu), MakeBrowserTool, LoganBerryBrowserTool
Doug Terry, January 31, 1986 2:53:26 pm PST
changes to: AdminOpsProc, MakeMainMenu, MakeBrowserTool, AppendMenu (local of MakeMainMenu)
Doug Terry, January 31, 1986 5:21:25 pm PST
changes to: AppendMenu (local of MakeMainMenu), MakeMainMenu, MakeBrowserTool, BrowseProc, DIRECTORY
Doug Terry, March 5, 1986 6:18:08 pm PST
Now calls LoganBerry.Describe to obtain the list of available indices and catches LoganBerry.Errors.
changes to: DIRECTORY, MakeEntryForm, OpenProc, CloseProc, BuildIndiciesProc, CompactLogsProc, DestroyProc, MakeBrowserTool, PutEntry (local of DoQuery)
�ʼ˜–

"Cedar" styleš
œ™Icode–

"Cedar" stylešœ
Ïm
œ1™<K™(—J˜J™7J˜š
Ïk	˜	Kšœžœ˜ KšœžœK˜^Kšœ
žœ!˜0Jšœžœ˜!Jšœžœ1˜AKšœžœ,˜4Jšœžœ!˜,Jšœ
žœ‹
˜›
Jšœžœ&˜@Kšœžœ‰
˜™
Jšœžœ˜#Jšœžœn˜yKšœžœ˜$Kšœžœ4˜@Jšœžœ6žœ˜VJšœžœ)˜2Jšœžœ˜Jšœ
žœ”
˜¦
Kšœžœ™2Jšœžœ3˜CKšœ
žœ˜&Kšœžœ'˜:Jšœ
žœ"˜4Jšœ
žœ/˜>Jšœžœ˜Jš
œ
˜
J˜—šÐblœž˜0JšžœqžœŸ
˜™Jšœž˜J˜—•StartOfExpansionL -- [cmd: Commander.Handle] RETURNS [result: REF ANY _ NIL, msg: ROPE _ NIL]™J™Kšžœžœžœ
˜Jšœžœ˜$J˜Jšœ
žœžœ˜'šœžœžœ
˜JšœÏc˜/Jšœ ˜"Jšœžœ ˜&Jšœ
žœ ˜*Jšœ
žœ
žœ ˜0Jšœ ˜/Jšœ ˜/Jšœ( ˜=Jšœ  ˜?Jšœ
žœ
žœ ˜1Jšœ ˜,Jšœ (˜8Jšœžœ #˜3Jšœžœ 7˜MJ˜—J˜Jšœžœžœ˜#šœžœžœ˜J˜Jš
œ(˜(J˜——J–L -- [cmd: Commander.Handle] RETURNS [result: REF ANY _ NIL, msg: ROPE _ NIL]™™
J˜J˜%J˜Jšœžœ˜Jšœžœ˜Jšœžœ˜Jšœžœ˜#Jšœžœ˜Jšœžœ˜J˜—™J™–‚
 -- [parent: REF ANY, clientData: REF ANY _ NIL, mouseButton: Menus.MouseButton _ red, shift: BOOL _ FALSE, control: BOOL _ FALSE]šÏbœ˜Jš
Ðck~™~Jšœžœ
˜'Jšœžœ
˜J˜—J–‚
 -- [parent: REF ANY, clientData: REF ANY _ NIL, mouseButton: Menus.MouseButton _ red, shift: BOOL _ FALSE, control: BOOL _ FALSE]˜š¡
œ˜Jš
¢~™~Jšœžœ
˜'šžœž˜Jš
œ˜—Jš
œt˜tJš
œ5˜5J˜—J™–‚
 -- [parent: REF ANY, clientData: REF ANY _ NIL, mouseButton: Menus.MouseButton _ red, shift: BOOL _ FALSE, control: BOOL _ FALSE]š¡œ˜ Jš
¢~™~Jšœžœ
˜'šžœž˜J˜—š
ž˜J˜—J˜—J™–‚
 -- [parent: REF ANY, clientData: REF ANY _ NIL, mouseButton: Menus.MouseButton _ red, shift: BOOL _ FALSE, control: BOOL _ FALSE]š¡œ˜ Jš
¢~™~Jšœžœ
˜'šžœž˜Jš
œ˜J–n[viewer: 
ViewerClasses.Viewer, x: 
INTEGER, y: 
INTEGER, w: 
INTEGER, h: 
INTEGER, paint: 
BOOL _ TRUE]š
œ�
˜�
Jš
œ*˜*J˜
—š
ž˜J–n[viewer: 
ViewerClasses.Viewer, x: 
INTEGER, y: 
INTEGER, w: 
INTEGER, h: 
INTEGER, paint: 
BOOL _ TRUE]š
œ�
˜�
Jš
œ˜Jš
œ*˜*J˜—Jšœ/žœ˜5Jš
œ˜J˜—J–‚
 -- [parent: REF ANY, clientData: REF ANY _ NIL, mouseButton: Menus.MouseButton _ red, shift: BOOL _ FALSE, control: BOOL _ FALSE]˜–‚
 -- [parent: REF ANY, clientData: REF ANY _ NIL, mouseButton: Menus.MouseButton _ red, shift: BOOL _ FALSE, control: BOOL _ FALSE]š¡œ˜!Jš
¢~™~Jšœžœ
˜'Jš	œ
žœžœ'žœžœ˜LJš
œ/˜/J˜4J˜—J™–‚
 -- [parent: REF ANY, clientData: REF ANY _ NIL, mouseButton: Menus.MouseButton _ red, shift: BOOL _ FALSE, control: BOOL _ FALSE]š¡œ˜Jš
¢~™~Jšœžœžœ
˜Jšœžœ
˜'šžœžœ™Jš
œ&™&Jšžœžœ
žœžœ6™YJšžœžœ
™J™—Jšœtž	œ˜€
J˜—J™–‚
 -- [parent: REF ANY, clientData: REF ANY _ NIL, mouseButton: Menus.MouseButton _ red, shift: BOOL _ FALSE, control: BOOL _ FALSE]š¡	œ˜Jš
¢~™~Jšœžœ
˜'Jšœ_ž	œ˜kJ˜—J™–‚
 -- [parent: REF ANY, clientData: REF ANY _ NIL, mouseButton: Menus.MouseButton _ red, shift: BOOL _ FALSE, control: BOOL _ FALSE]š¡œ˜&Jš
¢~™~Jšœžœ
˜'Jšœfž	œ˜rJ˜—J™–‚
 -- [parent: REF ANY, clientData: REF ANY _ NIL, mouseButton: Menus.MouseButton _ red, shift: BOOL _ FALSE, control: BOOL _ FALSE]š¡œ˜$Jš
¢~™~Jšœžœ
˜'Jšœež	œ˜qJ˜—J™–o -- [viewer: ViewerClasses.Viewer, event: ViewerEvents.ViewerEvent, before: BOOL] RETURNS [abort: BOOL _ FALSE]š¡œ˜'Kš
¢k™kK–.[viewer: 
ViewerClasses.Viewer, prop: 
ATOM]™Kšœžœ:™TKšœ_ž	œ™kK˜—K˜šÏnœžœžœ˜5š
£
œžœžœ<žœžœ˜zš
œ˜Jš
œ˜Jš
œU˜UJ˜
Jš
œ˜—J˜—Kš
œ'˜'Kš
œ
™
Kš
œ)˜)Kš
œ,˜,Kš
œ.˜.Kš
œ.˜.Kš
œ0˜0Kš
œ™Kš
œ+˜+Kšœ-žœ˜3Kšœ=žœ˜CKšœ9žœ˜?K˜—J™—™
J™š£
œžœžœ˜6Jš
œC˜CJš
œ!˜!šžœžœ
žœ2žœžœ
ž˜PKšœžœ˜%Kš
œÿ
˜ÿ
Kš
œ¯
˜¯
Kš
œ9˜9Kšœž
œ&˜2Kšžœ
˜—J˜—J˜š£œžœžœ˜7–> -- [key: RefTab.Key, val: RefTab.Val] RETURNS [quit: BOOLEAN]˜(Jš
¢:™:Jšœ
žœžœ˜:Jšžœžœ˜J˜—Jš	œžœ
žœ
žœžœ
˜J–2[x: 
RefTab.Ref, action: 
RefTab.EachPairAction]š
œ<˜<Kš
œ,˜,Jšœ¥
žœ)˜Ñ
Kš
œ9˜9K˜——J™™K˜š¡œ˜*Kš
¢H™HKšœžœ˜(Kš
œ˜Kšœžœ
˜Kš
œ˜Kšœ
žœžœ
˜K™Î
Kš
œ0˜0šžœžœ
ž˜Kšžœ#˜)—Kš
œ7˜7Kš
œP˜PKš
œR˜RKš
œ+™+šžœžœ
ž™Kšžœ™—Kšœžœ
˜Kš
œ
™
š
œ2˜2Kš
œ]˜]—šžœžœ
ž˜Kšžœ˜—K™Kš
œ2˜2K–9[base: 
ROPE, start: 
INT _ 0, len: 
INT _ 2147483647]š
œ\˜\Kš
œ™K˜š
œ&˜&Kš
œ;˜;Kš
œ˜Kš
œ˜Kšœžœ
˜K˜
Kš
œ˜Kšœžœ˜—Jš
œ(˜(J˜-K–>[viewer: 
ViewerClasses.Viewer, prop: 
ATOM, val: 
REF ANY]š
œE˜EK–s[proc: 
ViewerEvents.EventProc, event: 
ViewerEvents.ViewerEvent, filter: 
REF ANY _ NIL, before: 
BOOL _ TRUE]š
œ[˜[Kš
œ™š
œ(˜(Jš
œ˜Jš
œ
˜
Jš
œ
˜
Jšœžœ˜Jšœžœ˜—J–B[container: 
Containers.Container, child: 
ViewerClasses.Viewer]š
œC˜CJ–B[container: 
Containers.Container, child: 
ViewerClasses.Viewer]š
œC˜CJš
œ˜Jš
œ˜Jš
œ˜Kš
œ˜Kš
œ™š
œ0˜0Kš
œ˜Kš
œ˜Kš
œ
˜
Kš
œ˜Kšœžœ˜—Kšœ3 '˜ZJš
œ˜Kš
œ™š
œ&˜&Kš
œ"˜"Kš
œ˜Kš
œ˜Kš
œ˜Kš
œ
˜
Kš
œ	˜	Kšœžœ˜—Kšœ1 '˜XKšœ1 (˜YK˜—K˜—J™™š£œžœžœ˜5K˜Jš
œb˜bKšœ+ '˜RJš
œ'˜'K˜K˜—š£
œžœ
žœ˜+K–n[viewer: 
ViewerClasses.Viewer, x: 
INTEGER, y: 
INTEGER, w: 
INTEGER, h: 
INTEGER, paint: 
BOOL _ TRUE]š
œD˜DK˜—K˜š£œžœ
žœ˜-Kš
œA˜AK˜—J™—™K˜š£œžœkžœ˜†
šžœ˜Jšœ7ž	œ˜BJšžœ&žœ˜3J˜—š¡œ˜"Kšžœžœžœ
™,šžœ%žœžœ
ž˜8Kšœ  ˜>K˜3Kšœ  ˜7K˜K˜%K˜Kšžœ
˜—K˜Kšžœ
žœ˜
K˜—–> -- [key: RefTab.Key, val: RefTab.Val] RETURNS [quit: BOOLEAN]š¡	œ˜$Jš
¢:™:Jšœžœ˜Jšœ
žœ-˜;Jšœžœ4ž
˜Cšžœ
žœžœ
žœžœž˜CK–›
[input: 
ILQuery.ComplexCursor, pattern: 
ROPE, filter: 
ILQuery.FilterProc, atype: 
IndexedLog.AttributeType, stopIfNothingGreater: 
BOOLEAN _ FALSE]šœgžœ˜t—Kšžœžœ˜J˜—Kšœž
œ
˜K˜Kšœžœ
˜Kš
œ!˜!Kš
œ˜Kš
œ2™2Kšœžœ!˜/Kš
œ4˜4Jšœžœ4ž
˜=Kš
œ%˜%Kš
œ™Kš
œQ˜QK–›
[input: 
ILQuery.ComplexCursor, pattern: 
ROPE, filter: 
ILQuery.FilterProc, atype: 
IndexedLog.AttributeType, stopIfNothingGreater: 
BOOLEAN _ FALSE]š
œ™šžœ
žœž˜#Kšœ„
žœ˜Š
—Jš
œ#˜#Kš
œ,™,Kšœžœ
˜Kš
œ%˜%š
žœ	žœ
žœ
žœžœ
˜'K˜Kš
œ%˜%Kšžœ
˜—Kš
œ˜K˜K˜—š£œžœ;žœ ˜yšžœ%žœžœ
ž˜8šžœž˜Kšžœ˜—Kšžœ
˜—Kšžœ
žœ˜K˜—K˜š£œžœžœ	žœžœ	žœ˜Išžœ
žœ
ž˜š
œ˜K˜K˜—š
œ ˜ K˜K˜—š
œ"˜"K˜JK˜—š
œ#˜#Kšœžœ"Ïoœ ˜Tš	žœ
žœžœžœ !˜gK˜—Kš
œ+˜+K˜—š
œ!˜!Kš
œ;˜;K˜—Kšžœžœ
˜—K˜—K˜š£œžœ	žœžœ˜Cšžœ
žœ
žœ
ž˜Kš
œ/˜/Kš
œ1˜1Kš
œ5˜5Kšœ-žœ
˜0Kš
œ3˜3Kšžœ˜—K˜—K˜š£
œžœ)žœ
žœ˜[Jš
œ˜Jš
œR˜RK˜K˜——™$J˜š
£œžœžœžœž
œ™Išžœ
ž
™JšžœT™WJ™—šžœ™	JšœFžœ™R—Jš
žœžœžœ
žœ
žœ™.Jš
œD™DJ™—J˜š£œžœžœžœ˜AJš
œ˜Jš
œ-˜-J˜J˜——™J˜J–[file: 
ROPE, n: 
CARDINAL]šœEžœž	œ˜Vš
œC˜CJš
œ&˜&——J˜Jšžœ
˜™,K™!KšœÏr–œ¥œ¥;œ¥)œ¥œ¥™¬—™,Kšœ¥œ¥™B—™,Kšœ¥œ¥f™©
—™,Kšœ¥™—™+Kšœ¥™(—™+Kšœ¥wœ¥(™Ã
—™+Kšœ¥7œ™[—™+Kšœ¥
œ¥6™d—™(K™dKšœ¥yœ™˜
——…—7êg