
DIRECTORY Atom, Commander, IO;

XlDebug: CEDAR PROGRAM
IMPORTS Atom, Commander, IO ~ 
BEGIN

debugArrayCnt: INT = 4000; --same as in XlImplUtilities
DebugArray: TYPE = ARRAY [0..debugArrayCnt) OF BYTE м ALL[0];

WriteDebugInfo: Commander.CommandProc ~ {
s: IO.STREAM м cmd.out;
cnt, idx, sequenceNumber: INT м 0;
fix: REF PACKED ARRAY [0..32) OF BYTE м NEW[PACKED ARRAY [0..32) OF BYTE м ALL[0]];  
da: REF DebugArray; -- м NEW[DebugArray м ALL[0]];
WITH Atom.GetProp[$XlDebug, $XlDebug1] SELECT FROM
ri: REF INT => sequenceNumber м riн;
ENDCASE => {};
WITH Atom.GetProp[$XlDebug, $XlDebug2] SELECT FROM
x: REF PACKED ARRAY [0..32) OF BYTE => fixн м xн;
ENDCASE => {};
WITH Atom.GetProp[$XlDebug, $XlDebug3] SELECT FROM
x: REF DebugArray => da м x;
ENDCASE => {};
idx м (sequenceNumber MOD debugArrayCnt) + 2*debugArrayCnt; --make it positive enough that simple mod will work
IF da=NIL 
THEN IO.PutRope[s, "no unexpected replies so far\n"]
ELSE { 
IO.PutRope[s, "un-expected reply\ntext:"];
FOR i: INT IN [0..32) DO
IO.PutF1[s, " %g", IO.int[fix[i]]]
ENDLOOP;
IO.PutF1[s, "\nsequencenumber %g \n", IO.int[sequenceNumber]];
IO.PutF[s, "request codes:  %g %g %g\n", IO.int[da[(idx-1) MOD debugArrayCnt]], IO.int[da[idx MOD debugArrayCnt]], IO.int[da[(idx+1) MOD debugArrayCnt]]]
};
WITH Atom.GetProp[$XlDebug, $XlDebugSP] SELECT FROM
ri: REF INT => cnt м riн;
ENDCASE => {};
IO.PutF1[s, "Count of double replies so far: %g \n", IO.int[cnt]];
};

XlDebugBlock: Commander.CommandProc ~ {
Atom.PutProp[$XlDebug, $SignalReplyNotExpected, $TRUE];
};

Commander.Register["XlDebugWrite", WriteDebugInfo, "Write debug data for famous error"];
Commander.Register["XlDebugBlock", XlDebugBlock, "Block if famous error occurs"];
END. occurs

    Ф  XlDebug.mesa
Copyright ╙ 1989, 1990, 1991, 1993 by Xerox Corporation.  All rights reserved.
Christian Jacobi, September 30, 1993 4:18 pm PDT

Э╩е  Ц(cedarcode) styleХNewlineDelimiter
Ш codeЩKЪЬ
╧eЬCЩNKЩ0KЩ ЧKЪ╧k	ЬЮЬШKШ Ъ╧nЬЮЬЮШKЪЮЬЮЬШЧЪЮШKШ ЧKЪЬЮЬ	╧cШ7KЪЬЮЬЮЬЮЬЮЬЮЬШ=KШ ЪЯЬШ)KЪЬЮЬЮЬШKЪЬЮЬШ"KЪЬЮЬЮЬЮЬ	ЮЬЮЬЮЬЮЬЮЬ	ЮЬЮЬЮЬШUKЪЬЮЬаШ2ЪЮЬ#ЮЬЮШ2KЪЬЮЬЮЬШ$KЪЮЬШЧЪЮЬ#ЮЬЮШ2KЪЬЮЬЮЬЮЬ	ЮЬЮЬШ1KЪЮЬШЧЪЮЬ#ЮЬЮШ2KЪЬЮЬШKЪЮЬШЧKЪЬЮЬ#а3ШoЪЮЬЮЬШ
KЪЮЬЮЬ-Ш4ЪЮЬШKЪЮЬ(Ш*ЪЮЬЮЬЮЬ	ЮШKЪЮЬЮЬШ"KЪЮЬШЧKЪЮЬ$ЮЬШ>KЪЮЬ'ЮЬЮЬЮЬЮЬЮЬЮЬШЩKШЧЧЪЮЬ$ЮЬЮШ3KЪЬЮЬЮЬШKЪЮЬШЧKЪЮЬ3ЮЬШBKШKШ ЧЪЯЬШ'KШ7KШЧKШ KШXKШQKЪЮЬЬЬЬЬШKШ Ч ЕЧ    ┬  	√  