DIRECTORY
Commander,
CommanderOps,
FileViewerOps,
FileViewerOpsBackdoor,
Menus USING [MouseButton],
MessageWindow USING [Append, Blink, Clear],
NodeAddrs USING [PutTextAddr, GetTextAddr, TextAddrNotFound],
RefTab USING [Fetch, Create, Ref, Store],
Rope,
TEditSelectionOps USING [ShowGivenPositionRange],
TextNode USING [BadArgs, Location, LocWithin, Ref, LocOffset],
TiogaOps USING [FirstChild, Location, SetSelection, SelectionError, ViewerDoc],
TiogaMenuOps,
ViewerClasses USING [Viewer],
ViewerTools USING [GetContents];
CycleThruErrorLog: CEDAR PROGRAM
IMPORTS Commander, CommanderOps, FileViewerOps, FileViewerOpsBackdoor, MessageWindow, NodeAddrs, RefTab, Rope, TEditSelectionOps, TextNode, TiogaOps, TiogaMenuOps, ViewerTools
 = BEGIN OPEN FileViewerOpsBackdoor;

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

ErrorLocRec: TYPE = RECORD[node: TextNode.Ref, uniq: REF INT, start, end: TiogaOps.Location, nxt, prev: ErrorLoc];
ErrorLoc: TYPE = REF ErrorLocRec;
ErrListRec: TYPE = RECORD[root: TextNode.Ref, headLoc, curLoc: ErrorLoc];
ErrList: TYPE = REF ErrListRec;	-- ErrList is a pointer to a doubly linked list of ErrLoc's


CycleThruErrorLog: ErrorLogProc = {
any: REF ANY;
errList: ErrList;
found: BOOLEAN;
viewer: Viewer = NARROW[parent];
count: INT;
loc: TextNode.Location;

FOR v: ViewerClasses.Viewer м parent, v.link UNTIL v = NIL DO
[found, any] м RefTab.Fetch[viewerTable, v];
IF found OR v.link = parent THEN EXIT;
ENDLOOP;
IF ~found OR ~repeat THEN {
errList м NEW[ErrListRec];
MakeErrList[errList, log, viewer];
[] м RefTab.Store[viewerTable, parent, errList];
}
ELSE {
errList м NARROW[any];
};

IF control THEN 
IF mouseButton = red THEN {
FileViewerOps.RemoveErrorLog[viewer.file];
RETURN;
}
ELSE {	-- new errlog file
errList м NEW[ErrListRec];
MakeErrList[errList, log, viewer];
[] м RefTab.Store[viewerTable, parent, errList];
};

WHILE TRUE DO {
ENABLE {
 NodeAddrs.TextAddrNotFound, TextNode.BadArgs => {
IF mouseButton = yellow THEN {
MessageWindow.Append["Position of first error has been erased!", TRUE];
MessageWindow.Blink[];
GOTO done
}
ELSE LOOP;
};
};
IF errList = NIL OR errList.headLoc = NIL THEN RETURN;
IF mouseButton = red THEN {
IF errList.curLoc = NIL THEN errList.curLoc м errList.headLoc
ELSE IF errList.curLoc.nxt # NIL THEN errList.curLoc м errList.curLoc.nxt
ELSE {MessageWindow.Append["At last error", TRUE]; MessageWindow.Blink[]; RETURN;};
}
ELSE IF mouseButton = blue THEN {
IF errList.curLoc = NIL THEN errList.curLoc м errList.headLoc
ELSE IF errList.curLoc.prev # NIL THEN errList.curLoc м errList.curLoc.prev
ELSE {MessageWindow.Append["At first error", TRUE]; MessageWindow.Blink[]; RETURN;};
}
ELSE errList.curLoc м errList.headLoc;
MessageWindow.Clear[];
[loc.node, loc.where] м NodeAddrs.GetTextAddr[errList.curLoc.node, errList.curLoc.uniq];
count м TextNode.LocOffset[TextNode.LocWithin[errList.root, 0, 1, TRUE], loc, 1, TRUE];
TiogaOps.SetSelection[log, errList.curLoc.start, errList.curLoc.end
! TiogaOps.SelectionError => {
MakeErrList[errList, log, viewer];
GOTO done;
} ];
TiogaMenuOps.Normalize[log];
TEditSelectionOps.ShowGivenPositionRange[
viewer: viewer,
selectionId: feedback,
posI: count, posF: count+2,
skipCommentNodes: TRUE,
pendingDelete: FALSE]
EXITS
done => RETURN;
};
RETURN;
ENDLOOP;
};

MakeErrList: PROC[errList: ErrList, log, viewer: ViewerClasses.Viewer] = {
i, prevStart: INT м 0;
pos, this: INT;
vRope: ROPE;
prevloc, curloc: ErrorLoc;
loc: TextNode.Location;
root, vRopeNode: TextNode.Ref;

TiogaMenuOps.Reset[log];
vRope м ViewerTools.GetContents[log];
root м TiogaOps.ViewerDoc[viewer];
vRopeNode м TiogaOps.FirstChild[TiogaOps.ViewerDoc[log]];
errList.root м root;
errList.headLoc м NIL;
DO
ch: CHAR;
this м Rope.Find[vRope, "[", i];
IF this < 0 THEN EXIT;
pos м 0;
i м this;
DO
ch м Rope.Fetch[vRope, i м i + 1];
IF ch IN ['0 .. '9] THEN pos м (pos *10 ) + ORD[ch] - ORD['0]
ELSE EXIT;
ENDLOOP;
IF  ( ch # '] ) OR ( i = this + 1 ) THEN LOOP;	-- skip []
curloc м NEW[ErrorLocRec];
curloc.start м [vRopeNode, this];
curloc.end м [vRopeNode, i];
prevStart м this;
loc м TextNode.LocWithin[n: root, count: pos, break: 1, skipCommentNodes: TRUE];
IF errList.headLoc = NIL THEN { errList.headLoc м curloc; prevloc м NIL };
curloc.prev м prevloc;
curloc.nxt м NIL;
curloc.node м loc.node;
curloc.uniq м NEW[INT м i];	-- This could be new of anything
NodeAddrs.PutTextAddr[loc.node, curloc.uniq, loc.where];
IF prevloc # NIL THEN prevloc.nxt м curloc;
prevloc м curloc;
ENDLOOP;
errList.curLoc м NIL;
};


ActivateErrorLogProc: Commander.CommandProc = {
sourceFileName: Rope.ROPE;
args: LIST OF Rope.ROPE м CommanderOps.ParseToList[cmd: cmd].list;
IF args = NIL THEN RETURN [$Failure, "Usage: ActivateErrorLog filename"];
IF args.rest # NIL THEN RETURN [$Failure, "Usage: ActivateErrorLog filename"];
sourceFileName м Rope.Concat[args.first, ".mesa"];
FileViewerOps.ShowLog[sourceFileName];
FileViewerOps.AttachErrorLog[sourceFileName];
};

UnRegisterErrorLogProc: Commander.CommandProc ~
{ UnregisterErrorLogProc[CycleThruErrorLog] };


viewerTable: RefTab.Ref;	

viewerTable м RefTab.Create[];
RegisterErrorLogProc[CycleThruErrorLog, NIL];

Commander.Register[
key: "ActivateErrorLog", 
proc: ActivateErrorLogProc, 
doc: "Brings up a file and adds an errlog button."];

Commander.Register[
key: "ErrorLogParsers.UnRegister", 
proc: UnRegisterErrorLogProc];

END.


   Р  
CycleThruErrorLog.mesa
Copyright ╙ 1989, 1991 by Xerox Corporation.  All rights reserved.
David Goldberg April 27, 1989 1:31:01 pm PDT
Theimer, March 14, 1990 6:38 pm PST
Willie-s, June 22, 1992 6:09 pm PDT
Michael Plass, January 14, 1992 9:39 am PST

Errlog operations
PROC[log: Viewer, repeat: BOOLEAN, clientData: REF ANY _ NIL, parent: Viewer, 
mouseButton: Menus.MouseButton _ red, shift, control: BOOL _ FALSE];
if viewer is split, need to check all splits
Commander procs
[cmd: Commander.Handle] RETURNS [result: REF ANY _ NIL, msg: ROPE _ NIL]
args: LIST OF Rope.ROPE _ CommandTool.ParseToList[cmd: cmd, switchChar: ' ].list;
Initialization
Э╩'  ХNewlineDelimiter
Ц(cedarcode) styleЩ codeЩKЪЬ
╧eЬ7ЩBKЩ,KЩ#KЩ#KЩ+KЩ Ъ╧k	Ш	KЪЬ
Ш
KЪЬШKЪЬШKЪЬШKЪЬЮЬШKЪЬЮЬШ+KЪЬ
ЮЬ.Ш=KЪЬЮЬШ)KШKЪЬЮЬШ1KЪЬ	ЮЬ0Ш>KЪЬ	ЮЬAШOKЪЬШKЪЬЮЬ
ШKЪЬЮЬШ ЧЧheadЪЬЮЬЮШ KЪЮЬиШпKЪЮЬШ$KШ KЪЮЬЮЬЮЬШKЪЬЮЬШ$KШ ЧKЪ	ЬЮЬЮЬЮЬЮЬ6ШrKЪЬ
ЮЬЮЬШ!KЪЬЮЬЮЬ0ШIKЪЬ	ЮЬЮЬ╧c;Ш[KШ KШ KЪ╨blЩKШ Ъ╧nЬШ#KЪЮЬЮЬЮЬЮЬЮЬIЮЬЮЬЩУKЪЬЮЬЮЬШKЪЬШKЪЬЮЬШKЪЬЮЬ	Ш KЪЬЮЬШKЪЬШKШ KЪЬ,Щ,ЪЮЬ*ЮЬЮЬЮШ=KЪЬ,Ш,KЪЮЬЮЬЮЬЮЬШ&KЪЮЬШЧЪЮЬЮЬ	ЮЬШKЪЬ
ЮЬШKЪЬ"Ш"KЪЬ0Ш0KЪЬШЧЪЮШKЪЬ
ЮЬШKШЧKШ ЪЮЬ	ЮЬШЪЮЬЮЬШKШ*KЪЮЬШKШЧЪЮЬШKЪЬ
ЮЬШKШ"KЪЬ0Ш0KШЧЧKШ ЪЮЬЮЬЮЬШЪЮЬШprocШ2ЪЮЬЮЬШMЪЬAЮЬШGMЪЬШMЪЮЬШ	MЪЬШЧMЪЮЬЮЬШ
MЪЬШЧKШЧKЪЮЬЮЬЮЬЮЬЮЬЮЬШ6ЪЮЬЮЬШЪЮЬЮЬЮЬ!Ш=KЪЮЬЮЬЮЬЮЬ$ШIKЪЮЬ(ЮЬЮЬШSЧKЪЬШЧЪЮЬЮЬЮЬШ!ЪЮЬЮЬЮЬ!Ш=KЪЮЬЮЬЮЬЮЬ%ШKKЪЮЬ)ЮЬЮЬШTKШЧЧKЪЮЬ"Ш&KЪЬШKЪЬXШXKЪЬBЮЬЮЬШWЪЬCШCШKШ"KЪЮЬШ
KШЧЧKШЪЬ)Ш)KЪЬШKЪЬШKЪЬШKЪЬЮЬШKЪЬЮЬШЧЪЮШKЪЬЮЬШЧKШKЪЮЬШKЪЮЬШЧKШKШ ЧЪбЬЮЬ9ШJKЪЬЮЬШKЪЬЮЬШKЪЬЮЬШKШKЪЬШKШKШ KЪЬШKШ%KЪЬ"Ш"KШ9KШKЪЬЮЬШЪЮШKЪЬЮЬШ	KШ KЪЮЬ
ЮЬЮЬШKШKШ	ЪЮШKШ"Ъ
ЮЬЮЬЮЬЮЬЮЬШ=KЪЮЬЮЬШ
ЧKЪЮЬШЧKЪ	ЮЬЮЬЮЬЮЬЯ
Ш9KЪЬ	ЮЬШKШ!KШKШKЪЬJЮЬШPKЪЮЬЮЬЮЬ'ЮЬШJKШKЪЬЮЬШKШKЪЬЮЬЮЬЯ Ш<KЪЬ8Ш8KЪЮЬЮЬЮЬШ+KШKЪЮЬШЧKЪЬЮЬШKЪЬШЧKШ KШ KЪаЩKШ ЪбЬШ/KЪЬЮЬ
ЮЬЮЬЮЬЮЬЮЬЩHKЪЬЮЬШKЪЬЮЬЮЬЮЬ:ЩQKЪЬЮЬЮЬЮЬ+ШBKЪЮЬЮЬЮЬ0ШIKЪЮЬЮЬЮЬЮЬ0ШNKЪЬ2Ш2KЪЬ&Ш&KЪЬ-Ш-KЪЬШKШ ЧШ/KШ.ЧKШ KШ KЪаЩKШ KЪЬШKЪЬШKЪЬ(ЮЬШ-KШ ШKШKШKШ4KШ ЧШKШ#KШKШ ЧKЪЮЬШKШ KШ KШ Ч ЕЧ    ■  ╡  