/* 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 #include 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); }