/* Generated with C2C (Cedar To C)*/
/* Copyright (C) 1993 by Xerox Corporation. All rights reserved. */
/* time: September 14, 1993 4:29:39 pm PDT */
/* C2C version: April 20, 1993 (sun4) */
/* ref-counting: off */
/* file: XlErrorHandlingWithFeedback, module: XlErrorHandlingWithFeedback */
/* switches: bcfhklnouw */
#include <cedar/InstallationSupport.h>
#include <cedar/CedarExtra.h>
static char versionStamp[] = "@(#)mob←version [548439001,1164810627] XlErrorHandlingWithFeedback";
typedef unsigned word, *ptr;
typedef unsigned char byte, *bPt;
typedef unsigned short half, *hPt;
typedef word (*fPt)();
typedef struct {word f0, f1, f2, f3, f4, f5, f6, f7;} W8;
typedef struct {W8 f; word r;} W9;
typedef struct {word f0, f1;} W2;
typedef struct {word f0, f1, f2, f3, f4, f5;} W6;
typedef struct {word f0, f1, f2;} W3;
#define SOURCE(p, l) /* source p, l */
static void NoName←Q1860();
static void XlErrorHandlingWithFeedback←P0();
static void Explain←P60();
static void Ap0←P240();
static void Ap←P300();
static void SwapLastError←P120();
static void ErrorEventProc←P180();
static word NoName←Q1920();
static void NoName←Q1980();
static struct {unsigned f; char r[16];} string1 = {917520, "\216\257\300\363\223\326\161\300\017\164\046\072\104\350\000"};
static struct {unsigned f; char r[4];} string2 = {65537, "\001\000\000"};
static struct {unsigned f; char r[4];} string3 = {131076, "\216\251\000"};
static struct {unsigned f; char r[16];} string4 = {851984, "\257\300\304\042\023\266\300\315\144\243\337\103\260\000\000"};
static struct {unsigned f; char r[4];} string5 = {131074, "\003\010\000"};
static struct {unsigned f; char r[16];} string6 = {851984, "bad value: %g\000\000"};
static struct {unsigned f; char r[20];} string7 = {1114132, "bad window id: %g\000\000"};
static struct {unsigned f; char r[20];} string8 = {1114132, "bad pixmap id: %g\000\000"};
static struct {unsigned f; char r[16];} string9 = {983056, "bad atom id: %g"};
static struct {unsigned f; char r[20];} string10 = {1114132, "bad cursor id: %g\000\000"};
static struct {unsigned f; char r[16];} string11 = {983056, "bad font id: %g"};
static struct {unsigned f; char r[12];} string12 = {720908, "match error"};
static struct {unsigned f; char r[20];} string13 = {1245204, "bad drawable id: %g"};
static struct {unsigned f; char r[16];} string14 = {786448, "access error\000\000\000"};
static struct {unsigned f; char r[24];} string15 = {1310744, "server out of memory\000\000\000"};
static struct {unsigned f; char r[20];} string16 = {1245204, "bad colormap id: %g"};
static struct {unsigned f; char r[20];} string17 = {1245204, "bad gContext id: %g"};
static struct {unsigned f; char r[28];} string18 = {1703964, "idChoice error: bad id: %g\000"};
static struct {unsigned f; char r[12];} string19 = {655372, "name error\000"};
static struct {unsigned f; char r[16];} string20 = {786448, "length error\000\000\000"};
static struct {unsigned f; char r[24];} string21 = {1310744, "implementation error\000\000\000"};
static struct {unsigned f; char r[20];} string22 = {1114132, "connection wedged\000\000"};
static struct {unsigned f; char r[20];} string23 = {1114132, "connection closed\000\000"};
static struct {unsigned f; char r[20];} string24 = {1179668, "reply inconsistent\000"};
static struct {unsigned f; char r[20];} string25 = {1179668, "unknown error (%g)\000"};
static struct {unsigned f; char r[20];} string26 = {1179668, " (majorOpCode: %g)\000"};
static struct {unsigned f; char r[20];} string27 = {1179668, " (minorOpCode: %g)\000"};
static struct {unsigned f; char r[16];} string28 = {983056, "bad request: %g"};
static struct {unsigned f; char r[12];} string29 = {720908, "reply wrong"};
static struct {unsigned f; char r[4];} string30 = {65540, " \000\000"};
static struct {unsigned f; char r[20];} string31 = {1114132, "Xl: unknown error\000\000"};
static struct {unsigned f; char r[12];} string32 = {589836, "nil error\000\000"};
static struct {unsigned f; char r[12];} string33 = {589836, "X11Errors\000\000"};
static struct {unsigned f; char r[32];} string34 = {1900576, "package is not an error event\000\000"};
static struct {unsigned f; char r[12];} string35 = {524300, "XlErrors\000\000\000"};
static struct {unsigned f; char r[44];} string36 = {2818092, "...Similar X window error(s) suppressed...\012"};
static struct {unsigned f; char r[20];} string37 = {1245204, "XError [%g, kind:%g"};
static struct {unsigned f; char r[24];} string38 = {1441816, "%g, major:%g, minor:%g\000"};
static struct {unsigned f; char r[12];} string39 = {655372, "%g, bad:%g\000"};
static struct {unsigned f; char r[48];} string40 = {2883632, "%g, event sequenceNo: %g last sequenceNo: %g\000\000\000"};
static struct {unsigned f; char r[4];} string41 = {65540, "]\000\000"};
static struct {unsigned f; char r[8];} string42 = {458760, "XlError"};
static struct {unsigned f; char r[16];} string43 = {851984, "\257\300\040\260\203\331\300\105\155\231\203\100\164\000\000"};
static struct {unsigned f; char r[16];} string44 = {851981, "\006\003\040\001\044\001\100\104\010\000\004\045\001\000\000"};
static struct {unsigned f; char r[16];} string45 = {851984, "\257\300\212\174\364\337\300\361\376\000\156\100\150\000\000"};
static struct {unsigned f; char r[16];} string46 = {851984, "\257\300\015\277\004\146\300\034\367\146\045\100\164\000\000"};
static struct {unsigned f; char r[16];} string47 = {851984, "\257\300\363\223\326\161\300\017\164\046\072\100\150\000\000"};
static struct {unsigned f; char r[16];} string48 = {851984, "\257\300\353\035\365\325\300\132\075\117\337\100\150\000\000"};
static struct {unsigned f; char r[16];} string49 = {851984, "\257\300\304\042\023\266\300\315\144\243\337\100\150\000\000"};
static struct {unsigned f; char r[16];} string50 = {851984, "\257\300\212\247\207\172\300\123\222\237\073\100\150\000\000"};
static struct {
word f0[54]; word f54; word f55; word f56;
word f57; word f58; word f59; word f60;
word f61[7];
} globalframe = {
{0}, (word) ErrorEventProc←P180, 0, (word) SwapLastError←P120,
0, (word) Explain←P60, 0, (word) XlErrorHandlingWithFeedback←P0,
{0}
};
static void NoName←Q1860()
{
register ptr gf←c0130 = (ptr) &globalframe;
word var←c17052;
(* (( (ptr) gf←c0130)+13) ) = (word) XR←GetTypeIndex((word) &string1, 0, (word) &string2);
(* (( (ptr) gf←c0130)+15) ) = (word) XR←GetTypeIndex((word) &string3, 0, (word) &string2);
(* (( (ptr) gf←c0130)+16) ) = (word) XR←GetTypeIndex((word) &string4, 0, (word) &string5);
(* (ptr) (( (bPt) gf←c0130)+68) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0130)+13) ), (word) &string6);
(* (ptr) (( (bPt) gf←c0130)+72) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0130)+13) ), (word) &string7);
(* (ptr) (( (bPt) gf←c0130)+76) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0130)+13) ), (word) &string8);
(* (ptr) (( (bPt) gf←c0130)+80) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0130)+13) ), (word) &string9);
(* (ptr) (( (bPt) gf←c0130)+84) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0130)+13) ), (word) &string10);
(* (ptr) (( (bPt) gf←c0130)+88) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0130)+13) ), (word) &string11);
(* (ptr) (( (bPt) gf←c0130)+92) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0130)+13) ), (word) &string12);
(* (ptr) (( (bPt) gf←c0130)+96) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0130)+13) ), (word) &string13);
(* (ptr) (( (bPt) gf←c0130)+100) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0130)+13) ), (word) &string14);
(* (ptr) (( (bPt) gf←c0130)+104) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0130)+13) ), (word) &string15);
(* (ptr) (( (bPt) gf←c0130)+108) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0130)+13) ), (word) &string16);
(* (ptr) (( (bPt) gf←c0130)+112) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0130)+13) ), (word) &string17);
(* (ptr) (( (bPt) gf←c0130)+116) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0130)+13) ), (word) &string18);
(* (ptr) (( (bPt) gf←c0130)+120) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0130)+13) ), (word) &string19);
(* (ptr) (( (bPt) gf←c0130)+124) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0130)+13) ), (word) &string20);
(* (ptr) (( (bPt) gf←c0130)+128) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0130)+13) ), (word) &string21);
(* (ptr) (( (bPt) gf←c0130)+132) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0130)+13) ), (word) &string22);
(* (ptr) (( (bPt) gf←c0130)+136) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0130)+13) ), (word) &string23);
(* (ptr) (( (bPt) gf←c0130)+140) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0130)+13) ), (word) &string24);
(* (ptr) (( (bPt) gf←c0130)+144) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0130)+13) ), (word) &string25);
(* (ptr) (( (bPt) gf←c0130)+148) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0130)+13) ), (word) &string26);
(* (ptr) (( (bPt) gf←c0130)+152) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0130)+13) ), (word) &string27);
(* (ptr) (( (bPt) gf←c0130)+156) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0130)+13) ), (word) &string28);
(* (ptr) (( (bPt) gf←c0130)+160) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0130)+13) ), (word) &string29);
(* (ptr) (( (bPt) gf←c0130)+164) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0130)+13) ), (word) &string30);
(* (ptr) (( (bPt) gf←c0130)+168) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0130)+13) ), (word) &string31);
(* (ptr) (( (bPt) gf←c0130)+172) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0130)+13) ), (word) &string32);
(* (ptr) (( (bPt) gf←c0130)+176) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0130)+15) ), (word) &string33);
(* (ptr) (( (bPt) gf←c0130)+180) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0130)+13) ), (word) &string34);
(* (ptr) (( (bPt) gf←c0130)+184) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0130)+15) ), (word) &string35);
(* (ptr) (( (bPt) gf←c0130)+188) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0130)+13) ), (word) &string36);
(* (ptr) (( (bPt) gf←c0130)+192) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0130)+13) ), (word) &string37);
(* (ptr) (( (bPt) gf←c0130)+196) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0130)+13) ), (word) &string38);
(* (ptr) (( (bPt) gf←c0130)+200) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0130)+13) ), (word) &string39);
(* (ptr) (( (bPt) gf←c0130)+204) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0130)+13) ), (word) &string40);
(* (ptr) (( (bPt) gf←c0130)+208) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0130)+13) ), (word) &string41);
(* (ptr) (( (bPt) gf←c0130)+212) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0130)+15) ), (word) &string42);
(void) XR←DeclareGlobalFrame((word) "XlErrorHandlingWithFeedback", &globalframe, (word) XR←GetTypeIndex((word) &string43, 0, (word) &string44)
, (word) (( (bPt) gf←c0130)+240)/* var←c14268 */ );
var←c17052 = (word) XR←ImportInterface((word) "BasicTime", (word) XR←GetTypeIndexS((word) (&string45)), 24);
(* (( (ptr) gf←c0130)+62)/* var←c14300 */ ) = var←c17052;
(void) XR←ImportProcS(var←c17052, 67636226);
(void) XR←ImportProcS(var←c17052, 67111424);
var←c17052 = (word) XR←ImportInterface((word) "IO", (word) XR←GetTypeIndexS((word) (&string46)), 103);
(* (( (ptr) gf←c0130)+66)/* var←c16092 */ ) = var←c17052;
(void) XR←ImportProcS(var←c17052, 68958724);
(void) XR←ImportProcS(var←c17052, 67910402);
var←c17052 = (word) XR←ImportInterface((word) "Rope", (word) XR←GetTypeIndexS((word) (&string47)), 43);
(* (( (ptr) gf←c0130)+65)/* var←c16028 */ ) = var←c17052;
(void) XR←ImportProcS(var←c17052, 67633666);
(void) XR←ImportProcS(var←c17052, 68419845);
var←c17052 = (word) XR←ImportInterface((word) "SimpleFeedback", (word) XR←GetTypeIndexS((word) (&string48)), 7);
(* (( (ptr) gf←c0130)+67)/* var←c16188 */ ) = var←c17052;
(void) XR←ImportProcS(var←c17052, 525058);
(void) XR←ImportProcS(var←c17052, 1048580);
var←c17052 = (word) XR←ImportInterface((word) "XlPrivate", (word) XR←GetTypeIndexS((word) (&string49)), 77);
(* (( (ptr) gf←c0130)+64)/* var←c14556 */ ) = var←c17052;
(void) XR←ImportProcS(var←c17052, 67389697);
(void) XR←ImportProcS(var←c17052, 67390209);
(void) XR←ImportProcS(var←c17052, 67389953);
var←c17052 = (word) XR←ImportInterface((word) "XlPrivateErrorHandling", (word) XR←GetTypeIndexS((word) (&string50)), 10);
(* (( (ptr) gf←c0130)+63)/* var←c14332 */ ) = var←c17052;
(void) XR←ImportProcS(var←c17052, 263169);
(void) XR←ImportProcS(var←c17052, 262913);
(void) XR←ImportProcS(var←c17052, 262145);
}
static void XlErrorHandlingWithFeedback←P0(formal←c022, formal←c021)
word formal←c022;
word formal←c021;
{
register ptr gf←c17084 = (ptr) &globalframe;
/* XlErrorHandlingWithFeedback: */
SOURCE(89, 4202)
SOURCE(2328, 47)
(* (( (ptr) gf←c17084)+10)/* lastTime←v2860 */ ) = (* (ptr) (* (( (ptr) (* (( (ptr) gf←c17084)+62)/* var←c14300 */ ))+12)
) );
SOURCE(4178, 62)
{
word pd51;
pd51 = (* (( (ptr) (* (( (ptr) gf←c17084)+63)/* var←c14332 */ ))+4) );
(void) ( *( (fPt) ((* (ptr) pd51 ))))((word) ((( (bPt) gf←c17084)+216)/* var←c14172 */ ), pd51);
};
SOURCE(4242, 49)
{
word pd52;
pd52 = (* (( (ptr) (* (( (ptr) gf←c17084)+63)/* var←c14332 */ ))+7) );
(void) ( *( (fPt) ((* (ptr) pd52 ))))((word) ((( (bPt) gf←c17084)+232)/* var←c14236 */ ), pd52);
};
}
static void Explain←P60(errorEvent←v2996)
word errorEvent←v2996;
{
W9 var←c17116;
register ptr gf←c17148 = (ptr) &globalframe;
/* declaration of var←c14364 skipped */
/* declaration of var←c14396 skipped */
/* declaration of ev←v3268 skipped */
/* Explain: */
SOURCE(233, 2020)
{
word tmpAddr53;
tmpAddr53 = (word) (( (ptr) &var←c17116)+4)/* var←c14364 */ ;
(* (ptr) tmpAddr53 ) = ( ((word) (fPt) Ap←P300) );
(* (( (ptr) tmpAddr53) + 1) ) = 1;
};
{
word tmpAddr54;
tmpAddr54 = (word) (( (ptr) &var←c17116)+6)/* var←c14396 */ ;
(* (ptr) tmpAddr54 ) = ( ((word) (fPt) Ap0←P240) );
(* (( (ptr) tmpAddr54) + 1) ) = 1;
};
SOURCE(456, 31)
(* (( (ptr) &var←c17116)+8)/* ev←v3268 */ ) = 0;
SOURCE(489, 1764)
if ( ( (errorEvent←v2996 != 0) ? ((* (( (ptr) errorEvent←v2996)+5) ) == 0) : 0 ) ) {
SOURCE(553, 28)
SOURCE(555, 26)
(* (( (ptr) &var←c17116)+8)/* ev←v3268 */ ) = errorEvent←v2996;
SOURCE(597, 52)
(* (ptr) (* (( (ptr) &var←c17116)+8)/* ev←v3268 */ ) ) = 1;
SOURCE(651, 1602)
{
word var←c14428;
var←c14428 = (* (( (ptr) (* (( (ptr) &var←c17116)+8)/* ev←v3268 */ ))+13) );
if ((var←c14428 == 0)) {
goto lab←L100000;
};
if (((* (( (ptr) gf←c17148)+16) ) == XR←GetReferentType(var←c14428))) {
{
word r←v3472;
r←v3472 = var←c14428;
SOURCE(705, 1510)
if (( (unsigned) (* (bPt) r←v3472 ) != 0)) {
SOURCE(736, 42)
(void) Ap0←P240((* (( (ptr) gf←c17148)+45) ), (word) (( (bPt) &var←c17116)+24)/* var←c14396 */ );
}
else {
SOURCE(780, 22)
(* (( (ptr) r←v3472)+10) ) = 1;
SOURCE(804, 38)
{
word var←c14460;
{
word var←c14492;
word b←v14124;
b←v14124 = (unsigned) (word) (* (( (bPt) r←v3472)+(* (( (ptr) r←v3472)+10) )) );
(* (( (ptr) r←v3472)+10) ) = ((* (( (ptr) r←v3472)+10) ) + 1);
var←c14492 = b←v14124;
var←c14460 = var←c14492;
};
(* (( (ptr) (* (( (ptr) &var←c17116)+8)/* ev←v3268 */ ))+6) ) = var←c14460;
};
SOURCE(844, 29)
{
word var←c14524;
{
word pd55;
pd55 = (* (( (ptr) (* (( (ptr) gf←c17148)+64)/* var←c14556 */ ))+78) );
var←c14524 = (word) ( *( (fPt) ((* (ptr) pd55 ))))(r←v3472, pd55);
};
(* (( (ptr) (* (( (ptr) &var←c17116)+8)/* ev←v3268 */ ))+8) ) = var←c14524;
};
SOURCE(875, 34)
{
word pd56;
pd56 = (* (( (ptr) (* (( (ptr) gf←c17148)+64)/* var←c14556 */ ))+79) );
(* (( (ptr) (* (( (ptr) &var←c17116)+8)/* ev←v3268 */ ))+12) ) = (word) ( *( (fPt) ((* (ptr) pd56 ))))(r←v3472, pd56);
};
SOURCE(911, 37)
{
word pd57;
pd57 = (* (( (ptr) (* (( (ptr) gf←c17148)+64)/* var←c14556 */ ))+78) );
(* (( (ptr) (* (( (ptr) &var←c17116)+8)/* ev←v3268 */ ))+11) ) = (word) ( *( (fPt) ((* (ptr) pd57 ))))(r←v3472, pd57);
};
SOURCE(950, 41)
{
word var←c14588;
{
word pd58;
pd58 = (* (( (ptr) (* (( (ptr) gf←c17148)+64)/* var←c14556 */ ))+77) );
var←c14588 = (word) ( *( (fPt) ((* (ptr) pd58 ))))(r←v3472, pd58);
};
(* (( (ptr) (* (( (ptr) &var←c17116)+8)/* ev←v3268 */ ))+10) ) = var←c14588;
};
SOURCE(993, 1095)
{
word var←c14620;
var←c14620 = (* (( (ptr) (* (( (ptr) &var←c17116)+8)/* ev←v3268 */ ))+6) );
switch (var←c14620) {
case 0:
SOURCE(1025, 16)
(void) Ap0←P240((* (( (ptr) gf←c17148)+43) ), (word) (( (bPt) &var←c17116)+24)/* var←c14396 */ );
break;
case 1:
SOURCE(1054, 46)
{
/*1*/ W2 var←c14652;
/*1*/ {
/*1*/ W2 var←c14684;
/*1*/ word v←v14076;
/*1*/ v←v14076 = (* (( (ptr) (* (( (ptr) &var←c17116)+8)/* ev←v3268 */ ))+10) );
/*1*/ var←c14684.f0 = 4;
/*1*/ var←c14684.f1 = v←v14076;
/*1*/ var←c14652 = var←c14684;
/*1*/ };
/*1*/ (void) Ap←P300((* (( (ptr) gf←c17148)+39) ), var←c14652, (word) (( (bPt) &var←c17116)+16)/* var←c14364 */ );
/*1*/ };
break;
case 2:
SOURCE(1111, 41)
{
/*1*/ W2 var←c14748;
/*1*/ {
/*1*/ W2 var←c14780;
/*1*/ word v←v14028;
/*1*/ v←v14028 = (* (( (ptr) (* (( (ptr) &var←c17116)+8)/* ev←v3268 */ ))+12) );
/*1*/ var←c14780.f0 = 4;
/*1*/ var←c14780.f1 = v←v14028;
/*1*/ var←c14748 = var←c14780;
/*1*/ };
/*1*/ (void) Ap←P300((* (( (ptr) gf←c17148)+17) ), var←c14748, (word) (( (bPt) &var←c17116)+16)/* var←c14364 */ );
/*1*/ };
break;
case 3:
SOURCE(1164, 45)
{
/*1*/ W2 var←c14844;
/*1*/ {
/*1*/ W2 var←c14876;
/*1*/ word v←v13980;
/*1*/ v←v13980 = (* (( (ptr) (* (( (ptr) &var←c17116)+8)/* ev←v3268 */ ))+12) );
/*1*/ var←c14876.f0 = 4;
/*1*/ var←c14876.f1 = v←v13980;
/*1*/ var←c14844 = var←c14876;
/*1*/ };
/*1*/ (void) Ap←P300((* (( (ptr) gf←c17148)+18) ), var←c14844, (word) (( (bPt) &var←c17116)+16)/* var←c14364 */ );
/*1*/ };
break;
case 4:
SOURCE(1221, 45)
{
/*1*/ W2 var←c14940;
/*1*/ {
/*1*/ W2 var←c14972;
/*1*/ word v←v13932;
/*1*/ v←v13932 = (* (( (ptr) (* (( (ptr) &var←c17116)+8)/* ev←v3268 */ ))+12) );
/*1*/ var←c14972.f0 = 4;
/*1*/ var←c14972.f1 = v←v13932;
/*1*/ var←c14940 = var←c14972;
/*1*/ };
/*1*/ (void) Ap←P300((* (( (ptr) gf←c17148)+19) ), var←c14940, (word) (( (bPt) &var←c17116)+16)/* var←c14364 */ );
/*1*/ };
break;
case 5:
SOURCE(1276, 43)
{
/*1*/ W2 var←c15036;
/*1*/ {
/*1*/ W2 var←c15068;
/*1*/ word v←v13884;
/*1*/ v←v13884 = (* (( (ptr) (* (( (ptr) &var←c17116)+8)/* ev←v3268 */ ))+12) );
/*1*/ var←c15068.f0 = 4;
/*1*/ var←c15068.f1 = v←v13884;
/*1*/ var←c15036 = var←c15068;
/*1*/ };
/*1*/ (void) Ap←P300((* (( (ptr) gf←c17148)+20) ), var←c15036, (word) (( (bPt) &var←c17116)+16)/* var←c14364 */ );
/*1*/ };
break;
case 6:
SOURCE(1331, 45)
{
/*1*/ W2 var←c15132;
/*1*/ {
/*1*/ W2 var←c15164;
/*1*/ word v←v13836;
/*1*/ v←v13836 = (* (( (ptr) (* (( (ptr) &var←c17116)+8)/* ev←v3268 */ ))+12) );
/*1*/ var←c15164.f0 = 4;
/*1*/ var←c15164.f1 = v←v13836;
/*1*/ var←c15132 = var←c15164;
/*1*/ };
/*1*/ (void) Ap←P300((* (( (ptr) gf←c17148)+21) ), var←c15132, (word) (( (bPt) &var←c17116)+16)/* var←c14364 */ );
/*1*/ };
break;
case 7:
SOURCE(1386, 43)
{
/*1*/ W2 var←c15228;
/*1*/ {
/*1*/ W2 var←c15260;
/*1*/ word v←v13788;
/*1*/ v←v13788 = (* (( (ptr) (* (( (ptr) &var←c17116)+8)/* ev←v3268 */ ))+12) );
/*1*/ var←c15260.f0 = 4;
/*1*/ var←c15260.f1 = v←v13788;
/*1*/ var←c15228 = var←c15260;
/*1*/ };
/*1*/ (void) Ap←P300((* (( (ptr) gf←c17148)+22) ), var←c15228, (word) (( (bPt) &var←c17116)+16)/* var←c14364 */ );
/*1*/ };
break;
case 8:
SOURCE(1440, 18)
(void) Ap0←P240((* (( (ptr) gf←c17148)+23) ), (word) (( (bPt) &var←c17116)+24)/* var←c14396 */ );
break;
case 9:
SOURCE(1472, 47)
{
/*1*/ W2 var←c15324;
/*1*/ {
/*1*/ W2 var←c15356;
/*1*/ word v←v13740;
/*1*/ v←v13740 = (* (( (ptr) (* (( (ptr) &var←c17116)+8)/* ev←v3268 */ ))+12) );
/*1*/ var←c15356.f0 = 4;
/*1*/ var←c15356.f1 = v←v13740;
/*1*/ var←c15324 = var←c15356;
/*1*/ };
/*1*/ (void) Ap←P300((* (( (ptr) gf←c17148)+24) ), var←c15324, (word) (( (bPt) &var←c17116)+16)/* var←c14364 */ );
/*1*/ };
break;
case 10:
SOURCE(1531, 19)
(void) Ap0←P240((* (( (ptr) gf←c17148)+25) ), (word) (( (bPt) &var←c17116)+24)/* var←c14396 */ );
break;
case 11:
SOURCE(1561, 27)
(void) Ap0←P240((* (( (ptr) gf←c17148)+26) ), (word) (( (bPt) &var←c17116)+24)/* var←c14396 */ );
break;
case 12:
SOURCE(1602, 47)
{
/*1*/ W2 var←c15420;
/*1*/ {
/*1*/ W2 var←c15452;
/*1*/ word v←v13692;
/*1*/ v←v13692 = (* (( (ptr) (* (( (ptr) &var←c17116)+8)/* ev←v3268 */ ))+12) );
/*1*/ var←c15452.f0 = 4;
/*1*/ var←c15452.f1 = v←v13692;
/*1*/ var←c15420 = var←c15452;
/*1*/ };
/*1*/ (void) Ap←P300((* (( (ptr) gf←c17148)+27) ), var←c15420, (word) (( (bPt) &var←c17116)+16)/* var←c14364 */ );
/*1*/ };
break;
case 13:
SOURCE(1663, 47)
{
/*1*/ W2 var←c15516;
/*1*/ {
/*1*/ W2 var←c15548;
/*1*/ word v←v13644;
/*1*/ v←v13644 = (* (( (ptr) (* (( (ptr) &var←c17116)+8)/* ev←v3268 */ ))+12) );
/*1*/ var←c15548.f0 = 4;
/*1*/ var←c15548.f1 = v←v13644;
/*1*/ var←c15516 = var←c15548;
/*1*/ };
/*1*/ (void) Ap←P300((* (( (ptr) gf←c17148)+28) ), var←c15516, (word) (( (bPt) &var←c17116)+16)/* var←c14364 */ );
/*1*/ };
break;
case 14:
SOURCE(1724, 54)
{
/*1*/ W2 var←c15612;
/*1*/ {
/*1*/ W2 var←c15644;
/*1*/ word v←v13596;
/*1*/ v←v13596 = (* (( (ptr) (* (( (ptr) &var←c17116)+8)/* ev←v3268 */ ))+12) );
/*1*/ var←c15644.f0 = 4;
/*1*/ var←c15644.f1 = v←v13596;
/*1*/ var←c15612 = var←c15644;
/*1*/ };
/*1*/ (void) Ap←P300((* (( (ptr) gf←c17148)+29) ), var←c15612, (word) (( (bPt) &var←c17116)+16)/* var←c14364 */ );
/*1*/ };
break;
case 15:
SOURCE(1788, 17)
(void) Ap0←P240((* (( (ptr) gf←c17148)+30) ), (word) (( (bPt) &var←c17116)+24)/* var←c14396 */ );
break;
case 16:
SOURCE(1817, 19)
(void) Ap0←P240((* (( (ptr) gf←c17148)+31) ), (word) (( (bPt) &var←c17116)+24)/* var←c14396 */ );
break;
case 17:
SOURCE(1856, 27)
(void) Ap0←P240((* (( (ptr) gf←c17148)+32) ), (word) (( (bPt) &var←c17116)+24)/* var←c14396 */ );
break;
case 254:
SOURCE(1905, 24)
(void) Ap0←P240((* (( (ptr) gf←c17148)+33) ), (word) (( (bPt) &var←c17116)+24)/* var←c14396 */ );
break;
case 255:
SOURCE(1960, 24)
(void) Ap0←P240((* (( (ptr) gf←c17148)+34) ), (word) (( (bPt) &var←c17116)+24)/* var←c14396 */ );
break;
case 241:
SOURCE(1998, 25)
(void) Ap0←P240((* (( (ptr) gf←c17148)+35) ), (word) (( (bPt) &var←c17116)+24)/* var←c14396 */ );
break;
default:
SOURCE(2036, 52)
{
/*1*/ W2 var←c15708;
/*1*/ {
/*1*/ W2 var←c15740;
/*1*/ word v←v13548;
/*1*/ v←v13548 = (* (( (ptr) (* (( (ptr) &var←c17116)+8)/* ev←v3268 */ ))+6) );
/*1*/ var←c15740.f0 = 4;
/*1*/ var←c15740.f1 = v←v13548;
/*1*/ var←c15708 = var←c15740;
/*1*/ };
/*1*/ (void) Ap←P300((* (( (ptr) gf←c17148)+36) ), var←c15708, (word) (( (bPt) &var←c17116)+16)/* var←c14364 */ );
/*1*/ };
break;
};
};
SOURCE(2090, 49)
{
W2 var←c15804;
{
W2 var←c15836;
word v←v13500;
v←v13500 = (* (( (ptr) (* (( (ptr) &var←c17116)+8)/* ev←v3268 */ ))+10) );
var←c15836.f0 = 4;
var←c15836.f1 = v←v13500;
var←c15804 = var←c15836;
};
(void) Ap←P300((* (( (ptr) gf←c17148)+37) ), var←c15804, (word) (( (bPt) &var←c17116)+16)/* var←c14364 */ );
};
SOURCE(2141, 74)
if (((* (( (ptr) (* (( (ptr) &var←c17116)+8)/* ev←v3268 */ ))+11) ) != 0)) {
SOURCE(2166, 49)
{
W2 var←c15900;
{
W2 var←c15932;
word v←v13452;
v←v13452 = (* (( (ptr) (* (( (ptr) &var←c17116)+8)/* ev←v3268 */ ))+11) );
var←c15932.f0 = 4;
var←c15932.f1 = v←v13452;
var←c15900 = var←c15932;
};
(void) Ap←P300((* (( (ptr) gf←c17148)+38) ), var←c15900, (word) (( (bPt) &var←c17116)+16)/* var←c14364 */ );
};
};
};
};
}
else {
lab←L100000: ;
SOURCE(2235, 18)
(void) Ap0←P240((* (( (ptr) gf←c17148)+40) ), (word) (( (bPt) &var←c17116)+24)/* var←c14396 */ );
};
};
};
}
static void Ap0←P240(r←v3344, formal←c17212)
word r←v3344;
word formal←c17212;
{
register ptr gf←c17180 = (ptr) &globalframe;
formal←c17212 = (formal←c17212 - 24);
/* Ap0: */
SOURCE(285, 78)
SOURCE(314, 49)
{
word var←c15996;
{
word pd59;
pd59 = (* (( (ptr) (* (( (ptr) gf←c17180)+65)/* var←c16028 */ ))+5) );
var←c15996 = (word) ( *( (fPt) ((* (ptr) pd59 ))))((* (( (ptr) (* (( (ptr) formal←c17212)+8) ))+5) ), r←v3344, (* (( (ptr) gf←c17180)+41)
), 0, 0, pd59);
};
(* (( (ptr) (* (( (ptr) formal←c17212)+8) ))+5) ) = var←c15996;
};
}
static void Ap←P300(format←v3404, v1←v3432, formal←c17276)
word format←v3404;
W2 v1←v3432;
word formal←c17276;
{
register ptr gf←c17244 = (ptr) &globalframe;
formal←c17276 = (formal←c17276 - 16);
/* Ap: */
SOURCE(368, 85)
SOURCE(426, 27)
{
word var←c16060;
{
word pd60;
pd60 = (* (( (ptr) (* (( (ptr) gf←c17244)+66)/* var←c16092 */ ))+63) );
var←c16060 = (word) ( *( (fPt) ((* (ptr) pd60 ))))(format←v3404, v1←v3432, pd60);
};
(void) Ap0←P240(var←c16060, (word) (( (bPt) formal←c17276)+24));
};
}
static void SwapLastError←P120(formal←c087, newLastError←v3056, now←v3084)
word formal←c087;
word newLastError←v3056;
word now←v3084;
{
register ptr gf←c17308 = (ptr) &globalframe;
word previous←v3128;
word older←v3156;
word time←v3184;
/* SwapLastError: */
SOURCE(2378, 312)
(void) (XR←MonitorEntry((word) (( (bPt) gf←c17308)+16)/* LOCK←v2748 */ ));
SOURCE(2378, 312)
previous←v3128 = 0;
SOURCE(2378, 312)
older←v3156 = 0;
SOURCE(2532, 25)
previous←v3128 = (* (( (ptr) gf←c17308)+8)/* lastErrorEvent←v2804 */ );
SOURCE(2559, 28)
older←v3156 = (* (( (ptr) gf←c17308)+9)/* secondLastErrorEvent←v2832 */ );
SOURCE(2589, 37)
(* (( (ptr) gf←c17308)+9)/* secondLastErrorEvent←v2832 */ ) = (* (( (ptr) gf←c17308)+8)/* lastErrorEvent←v2804 */ );
SOURCE(2628, 29)
(* (( (ptr) gf←c17308)+8)/* lastErrorEvent←v2804 */ ) = newLastError←v3056;
SOURCE(2659, 15)
time←v3184 = (* (( (ptr) gf←c17308)+10)/* lastTime←v2860 */ );
SOURCE(2676, 14)
(* (( (ptr) gf←c17308)+10)/* lastTime←v2860 */ ) = now←v3084;
/* removed tail goto */
(void) (XR←MonitorExit((word) (( (bPt) gf←c17308)+16)/* LOCK←v2748 */ ));
(* (ptr) formal←c087 ) = previous←v3128;
(* (( (ptr) formal←c087)+1) ) = older←v3156;
(* (( (ptr) formal←c087)+2) ) = time←v3184;
return;
}
static void ErrorEventProc←P180(event←v4476, clientData←v4504, tq←v4532)
word event←v4476;
word clientData←v4504;
word tq←v4532;
{
W6 var←c17340;
register ptr gf←c17372 = (ptr) &globalframe;
word c←v3516;
word message←v3544;
/* ErrorEventProc: */
SOURCE(2696, 1476)
SOURCE(2733, 35)
c←v3516 = (* (( (ptr) event←v4476)+2) );
SOURCE(2770, 40)
message←v3544 = (* (( (ptr) gf←c17372)+42) );
SOURCE(2812, 1233)
{
word var←c16124;
var←c16124 = event←v4476;
if ((var←c16124 == 0)) {
goto lab←L100018;
};
if (((* (( (ptr) var←c16124)+4) ) == 1)) {
{
word error←v3588;
error←v3588 = var←c16124;
SOURCE(2868, 37)
{
word pd61;
pd61 = (* (( (ptr) (* (( (ptr) gf←c17372)+63)/* var←c14332 */ ))+8) );
(void) ( *( (fPt) ((* (ptr) pd61 ))))(error←v3588, pd61);
};
SOURCE(2907, 646)
{
word now←v3632;
word previous←v3660 = 0;
word previous2←v3688 = 0;
word lastTime←v3716;
SOURCE(2992, 42)
now←v3632 = (* (ptr) (* (( (ptr) (* (( (ptr) gf←c17372)+62)/* var←c14300 */ ))+12) ) );
SOURCE(3103, 48)
SOURCE(3103, 48)
{
/* declaration of var←c01 skipped */
var←c17340.f4/* var←c01 */ = (* (( (ptr) (* (( (ptr) gf←c17372)+62)/* var←c14300 */ ))+14) );
{
/* declaration of var←c02 skipped */
{
word var←c03;
{
word var←c0141;
var←c0141 = (word) &var←c17340;
var←c03 = (word) XR←Enable(( ((word) (fPt) NoName←Q1920) ), ( ((word) (fPt) NoName←Q1980) ), var←c0141);
};
if ((var←c03 == 2)) {
goto lab←L100020;
};
};
now←v3632 = var←c17340.f5/* var←c02 */ ;
};
};
lab←L100020: ;
SOURCE(3162, 59)
{
W3 var←c16156;
(void) SwapLastError←P120((word) &var←c16156, error←v3588, now←v3632);
lastTime←v3716 = var←c16156.f2;
previous2←v3688 = var←c16156.f1;
previous←v3660 = var←c16156.f0;
};
SOURCE(3223, 323)
if ( ( (previous←v3660 != 0) ? ((* (( (ptr) previous←v3660)+2) ) == c←v3516) : 0 ) ) {
SOURCE(3272, 274)
if (((* (( (ptr) previous←v3660)+6) ) == (* (( (ptr) error←v3588)+6) ))) {
SOURCE(3317, 229)
{
word pd62;
pd62 = (* (( (ptr) (* (( (ptr) gf←c17372)+62)/* var←c14300 */ ))+16) );
if (( (int)(word) ( *( (fPt) ((* (ptr) pd62 ))))(lastTime←v3716, now←v3632, pd62) <= (int)2)) {
SOURCE(3372, 153)
if ((previous2←v3688 == 0) || ((* (( (ptr) previous2←v3688)+2) ) != c←v3516)) {
SOURCE(3423, 102)
/*1*/ {
/*1*/ word pd63;
/*1*/ pd63 = (* (( (ptr) (* (( (ptr) gf←c17372)+67)/* var←c16188 */ ))+4) );
/*1*/ (void) ( *( (fPt) ((* (ptr) pd63 ))))((* (( (ptr) gf←c17372)+44) ), 0, (* (( (ptr) gf←c17372)+46) ), (* (( (ptr) gf←c17372)+47)
/*1*/ ), pd63);
/*1*/ };
/*1*/ };
SOURCE(3539, 7)
return;
};
};
};
};
};
SOURCE(3558, 100)
{
W2 var←c16220;
W2 var←c16316;
{
W2 var←c16252;
word v←v13116;
v←v13116 = (* (( (ptr) error←v3588)+5) );
var←c16252.f0 = 11;
var←c16252.f1 = v←v13116;
var←c16220 = var←c16252;
};
{
W2 var←c16348;
word v←v13404;
v←v13404 = (* (( (ptr) error←v3588)+6) );
var←c16348.f0 = 4;
var←c16348.f1 = v←v13404;
var←c16316 = var←c16348;
};
{
W2 var←c0142;
(* (ptr) (word) &var←c0142 ) = 0;
(* (( (ptr) (word) &var←c0142) + 1) ) = 0;
{
word pd64;
pd64 = (* (( (ptr) (* (( (ptr) gf←c17372)+66)/* var←c16092 */ ))+62) );
message←v3544 = (word) ( *( (fPt) ((* (ptr) pd64 ))))((* (( (ptr) gf←c17372)+48) ), var←c16220, var←c16316, var←c0142, pd64)
;
};
};
};
SOURCE(3660, 118)
{
W2 var←c16444;
W2 var←c16540;
{
W2 var←c16476;
word v←v13356;
v←v13356 = (* (( (ptr) error←v3588)+10) );
var←c16476.f0 = 4;
var←c16476.f1 = v←v13356;
var←c16444 = var←c16476;
};
{
W2 var←c16572;
word v←v13308;
v←v13308 = (* (( (ptr) error←v3588)+11) );
var←c16572.f0 = 4;
var←c16572.f1 = v←v13308;
var←c16540 = var←c16572;
};
{
W2 var←c16636;
var←c16636.f0 = 11;
var←c16636.f1 = message←v3544;
{
word pd65;
pd65 = (* (( (ptr) (* (( (ptr) gf←c17372)+66)/* var←c16092 */ ))+62) );
message←v3544 = (word) ( *( (fPt) ((* (ptr) pd65 ))))((* (( (ptr) gf←c17372)+49) ), var←c16636, var←c16444, var←c16540, pd65)
;
};
};
};
SOURCE(3780, 75)
{
W2 var←c16668;
{
W2 var←c16700;
word v←v13260;
v←v13260 = (* (( (ptr) error←v3588)+12) );
var←c16700.f0 = 4;
var←c16700.f1 = v←v13260;
var←c16668 = var←c16700;
};
{
W2 var←c16764;
W2 var←c0143;
var←c16764.f0 = 11;
var←c16764.f1 = message←v3544;
(* (ptr) (word) &var←c0143 ) = 0;
(* (( (ptr) (word) &var←c0143) + 1) ) = 0;
{
word pd66;
pd66 = (* (( (ptr) (* (( (ptr) gf←c17372)+66)/* var←c16092 */ ))+62) );
message←v3544 = (word) ( *( (fPt) ((* (ptr) pd66 ))))((* (( (ptr) gf←c17372)+50) ), var←c16764, var←c16668, var←c0143, pd66)
;
};
};
};
SOURCE(3857, 148)
if ((c←v3516 != 0)) {
SOURCE(3874, 131)
{
W2 var←c16828;
W2 var←c16924;
{
W2 var←c16860;
word v←v13212;
v←v13212 = (* (( (ptr) error←v3588)+8) );
var←c16860.f0 = 4;
var←c16860.f1 = v←v13212;
var←c16828 = var←c16860;
};
{
W2 var←c16956;
word v←v13164;
v←v13164 = (* (( (ptr) c←v3516)+13) );
var←c16956.f0 = 4;
var←c16956.f1 = v←v13164;
var←c16924 = var←c16956;
};
{
W2 var←c17020;
var←c17020.f0 = 11;
var←c17020.f1 = message←v3544;
{
word pd67;
pd67 = (* (( (ptr) (* (( (ptr) gf←c17372)+66)/* var←c16092 */ ))+62) );
message←v3544 = (word) ( *( (fPt) ((* (ptr) pd67 ))))((* (( (ptr) gf←c17372)+51) ), var←c17020, var←c16828, var←c16924, pd67)
;
};
};
};
};
SOURCE(4010, 35)
{
word pd68;
pd68 = (* (( (ptr) (* (( (ptr) gf←c17372)+65)/* var←c16028 */ ))+6) );
message←v3544 = (word) ( *( (fPt) ((* (ptr) pd68 ))))(message←v3544, (* (( (ptr) gf←c17372)+52) ), pd68);
};
};
}
else {
lab←L100018: ;
};
};
SOURCE(4065, 63)
{
word pd69;
pd69 = (* (( (ptr) (* (( (ptr) gf←c17372)+67)/* var←c16188 */ ))+4) );
(void) ( *( (fPt) ((* (ptr) pd69 ))))((* (( (ptr) gf←c17372)+44) ), 0, (* (( (ptr) gf←c17372)+46) ), message←v3544, pd69)
;
};
SOURCE(4130, 42)
{
word pd70;
pd70 = (* (( (ptr) (* (( (ptr) gf←c17372)+67)/* var←c16188 */ ))+7) );
(void) ( *( (fPt) ((* (ptr) pd70 ))))((* (( (ptr) gf←c17372)+44) ), (* (( (ptr) gf←c17372)+53) ), pd70);
};
}
static word NoName←Q1920(formal←c0139)
word formal←c0139;
{
SOURCE(3103, 48)
{
word pd71;
pd71 = (* (( (ptr) formal←c0139)+4) );
(* (( (ptr) formal←c0139)+5) ) = (word) ( *( (fPt) ((* (ptr) pd71 ))))(pd71);
};
return(0);
}
static void NoName←Q1980(formal←c0129, formal←c200000, formal←c200001, formal←c200002, formal←c200003)
word formal←c0129;
word formal←c200000;
word formal←c200001;
word formal←c200002;
word formal←c200003;
{
register ptr gf←c0140 = (ptr) &globalframe;
if ((formal←c200001 == (* (( (ptr) (* (( (ptr) gf←c0140)+62)/* var←c14300 */ ))+5) ))) {
SOURCE(3151, 9)
(* (ptr) formal←c0129 ) = 2;
(* (( (ptr) formal←c0129)+1) ) = 2;
return;
};
(* (ptr) formal←c0129 ) = 0;
(* (( (ptr) formal←c0129)+1) ) = 0;
return;
}
/* file: XlErrorHandlingWithFeedback, module: XlErrorHandlingWithFeedback, compiled at: September 14, 1993 4:29:38 pm PDT */
extern void XR←install←XlErrorHandlingWithFeedback() {
NoName←Q1860();
}
extern void XR←run←XlErrorHandlingWithFeedback() { XR←Start(&globalframe); }