/* Generated with C2C (Cedar To C)*/ /* Copyright (C) 1993 by Xerox Corporation. All rights reserved. */ /* time: September 14, 1993 4:27:56 pm PDT */ /* C2C version: April 20, 1993 (sun4) */ /* ref-counting: off */ /* file: XlSimpleErrorHandlingImpl, module: XlSimpleErrorHandlingImpl */ /* switches: bcfhklnouw */ #include #include static char versionStamp[] = "@(#)mob_version [3469650699,1406623585] XlSimpleErrorHandlingImpl"; 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; #define SOURCE(p, l) /* source p, l */ static void NoName_Q1584(); static void XlSimpleErrorHandlingImpl_P0(); static void Explain_P60(); static void Ap0_P360(); static void Ap_P420(); static word PrintLastErrorEvent_P120(); static word PrintLastError_P180(); static word PrintLastErrorReply_P240(); static void ErrorEventProc_P300(); static word NoName_Q1644(); static void NoName_Q1704(); 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[44];} string3 = {2752556, "\260\006\005\146\151\162\163\164\257\300\015\277\004\146\300\034\367\146\045\112\114\005\004\162\145\163\164\214\257\300\015\277\004\146\300\034\367\146\045\112\114\261\000"}; static struct {unsigned f; char r[28];} string4 = {1572888, "\006\002\000\007\000\040\016\000\003\001\000\000\000\000\014\014\000\014\014\014\014\000\010\001\000\000\000"}; static struct {unsigned f; char r[16];} string5 = {851984, "\257\300\304\042\023\266\300\315\144\243\337\103\260\000\000"}; static struct {unsigned f; char r[4];} string6 = {131074, "\003\010\000"}; static struct {unsigned f; char r[20];} string7 = {1114132, "bad pixmap id: %g\000\000"}; static struct {unsigned f; char r[16];} string8 = {983056, "bad atom id: %g"}; static struct {unsigned f; char r[20];} string9 = {1114132, "bad cursor id: %g\000\000"}; static struct {unsigned f; char r[16];} string10 = {983056, "bad font id: %g"}; static struct {unsigned f; char r[12];} string11 = {720908, "match error"}; static struct {unsigned f; char r[20];} string12 = {1245204, "bad drawable id: %g"}; static struct {unsigned f; char r[16];} string13 = {786448, "access error\000\000\000"}; static struct {unsigned f; char r[24];} string14 = {1310744, "server out of memory\000\000\000"}; static struct {unsigned f; char r[20];} string15 = {1245204, "bad colormap id: %g"}; static struct {unsigned f; char r[20];} string16 = {1245204, "bad gContext id: %g"}; static struct {unsigned f; char r[28];} string17 = {1703964, "idChoice error: bad id: %g\000"}; static struct {unsigned f; char r[12];} string18 = {655372, "name error\000"}; static struct {unsigned f; char r[16];} string19 = {786448, "length error\000\000\000"}; static struct {unsigned f; char r[24];} string20 = {1310744, "implementation error\000\000\000"}; static struct {unsigned f; char r[20];} string21 = {1114132, "connection wedged\000\000"}; static struct {unsigned f; char r[20];} string22 = {1114132, "connection closed\000\000"}; static struct {unsigned f; char r[20];} string23 = {1179668, "reply inconsistent\000"}; static struct {unsigned f; char r[20];} string24 = {1179668, "unknown error (%g)\000"}; static struct {unsigned f; char r[20];} string25 = {1179668, " (majorOpCode: %g)\000"}; static struct {unsigned f; char r[20];} string26 = {1179668, " (minorOpCode: %g)\000"}; static struct {unsigned f; char r[20];} string27 = {1114132, "bad window id: %g\000\000"}; static struct {unsigned f; char r[12];} string28 = {720908, "reply wrong"}; static struct {unsigned f; char r[4];} string29 = {65540, " \000\000"}; static struct {unsigned f; char r[44];} string30 = {2818092, "[%g, kind:%g, major:%g, minor:%g, bad: %g] "}; static struct {unsigned f; char r[16];} string31 = {851984, "bad value: %g\000\000"}; static struct {unsigned f; char r[16];} string32 = {983056, "bad request: %g"}; static struct {unsigned f; char r[12];} string33 = {589836, "nil error\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[16];} string35 = {851984, "\257\300\316\316\253\013\300\123\327\137\141\100\164\000\000"}; static struct {unsigned f; char r[16];} string36 = {917518, "\006\004\020\001\024\001\030\001\074\010\000\004\034\001\000"}; static struct {unsigned f; char r[16];} string37 = {851984, "\257\300\015\277\004\146\300\034\367\146\045\100\164\000\000"}; static struct {unsigned f; char r[16];} string38 = {851984, "\257\300\363\223\326\161\300\017\164\046\072\100\150\000\000"}; static struct {unsigned f; char r[16];} string39 = {851984, "\257\300\351\276\264\273\300\115\104\320\264\100\164\000\000"}; static struct {unsigned f; char r[16];} string40 = {851984, "\257\300\304\042\023\266\300\315\144\243\337\100\150\000\000"}; static struct {unsigned f; char r[16];} string41 = {851984, "\257\300\212\247\207\172\300\123\222\237\073\100\150\000\000"}; static struct {unsigned f; char r[16];} string42 = {851984, "\257\300\276\357\323\042\300\311\135\170\244\100\150\000\000"}; static struct { word f0[43]; word f43; word f44; word f45; word f46; word f47; word f48; word f49; word f50; word f51; word f52; word f53; word f54[7]; } globalframe = { {0}, (word) ErrorEventProc_P300, 0, (word) PrintLastErrorReply_P240, 0, (word) PrintLastError_P180, 0, (word) PrintLastErrorEvent_P120, 0, (word) Explain_P60, 0, (word) XlSimpleErrorHandlingImpl_P0, {0} }; static void NoName_Q1584() { register ptr gf_c0102 = (ptr) &globalframe; word var_c16096; (* (( (ptr) gf_c0102)+9) ) = (word) XR_GetTypeIndex((word) &string1, 0, (word) &string2); (* (( (ptr) gf_c0102)+13) ) = (word) XR_GetTypeIndex((word) &string3, 0, (word) &string4); (* (( (ptr) gf_c0102)+14) ) = (word) XR_GetTypeIndex((word) &string5, 0, (word) &string6); (* (ptr) (( (bPt) gf_c0102)+60) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0102)+9) ), (word) &string7); (* (ptr) (( (bPt) gf_c0102)+64) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0102)+9) ), (word) &string8); (* (ptr) (( (bPt) gf_c0102)+68) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0102)+9) ), (word) &string9); (* (ptr) (( (bPt) gf_c0102)+72) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0102)+9) ), (word) &string10); (* (ptr) (( (bPt) gf_c0102)+76) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0102)+9) ), (word) &string11); (* (ptr) (( (bPt) gf_c0102)+80) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0102)+9) ), (word) &string12); (* (ptr) (( (bPt) gf_c0102)+84) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0102)+9) ), (word) &string13); (* (ptr) (( (bPt) gf_c0102)+88) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0102)+9) ), (word) &string14); (* (ptr) (( (bPt) gf_c0102)+92) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0102)+9) ), (word) &string15); (* (ptr) (( (bPt) gf_c0102)+96) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0102)+9) ), (word) &string16); (* (ptr) (( (bPt) gf_c0102)+100) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0102)+9) ), (word) &string17); (* (ptr) (( (bPt) gf_c0102)+104) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0102)+9) ), (word) &string18); (* (ptr) (( (bPt) gf_c0102)+108) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0102)+9) ), (word) &string19); (* (ptr) (( (bPt) gf_c0102)+112) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0102)+9) ), (word) &string20); (* (ptr) (( (bPt) gf_c0102)+116) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0102)+9) ), (word) &string21); (* (ptr) (( (bPt) gf_c0102)+120) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0102)+9) ), (word) &string22); (* (ptr) (( (bPt) gf_c0102)+124) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0102)+9) ), (word) &string23); (* (ptr) (( (bPt) gf_c0102)+128) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0102)+9) ), (word) &string24); (* (ptr) (( (bPt) gf_c0102)+132) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0102)+9) ), (word) &string25); (* (ptr) (( (bPt) gf_c0102)+136) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0102)+9) ), (word) &string26); (* (ptr) (( (bPt) gf_c0102)+140) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0102)+9) ), (word) &string27); (* (ptr) (( (bPt) gf_c0102)+144) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0102)+9) ), (word) &string28); (* (ptr) (( (bPt) gf_c0102)+148) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0102)+9) ), (word) &string29); (* (ptr) (( (bPt) gf_c0102)+152) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0102)+9) ), (word) &string30); (* (ptr) (( (bPt) gf_c0102)+156) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0102)+9) ), (word) &string31); (* (ptr) (( (bPt) gf_c0102)+160) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0102)+9) ), (word) &string32); (* (ptr) (( (bPt) gf_c0102)+164) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0102)+9) ), (word) &string33); (* (ptr) (( (bPt) gf_c0102)+168) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0102)+9) ), (word) &string34); (void) XR_DeclareGlobalFrame((word) "XlSimpleErrorHandlingImpl", &globalframe, (word) XR_GetTypeIndex((word) &string35, 0, (word) &string36) , (word) (( (bPt) gf_c0102)+212)/* var_c14080 */ ); var_c16096 = (word) XR_ImportInterface((word) "IO", (word) XR_GetTypeIndexS((word) (&string37)), 103); (* (( (ptr) gf_c0102)+58)/* var_c15872 */ ) = var_c16096; (void) XR_ImportProcS(var_c16096, 67648770); (void) XR_ImportProcS(var_c16096, 67910402); var_c16096 = (word) XR_ImportInterface((word) "Rope", (word) XR_GetTypeIndexS((word) (&string38)), 43); (* (( (ptr) gf_c0102)+57)/* var_c15808 */ ) = var_c16096; (void) XR_ImportProcS(var_c16096, 67901955); (void) XR_ImportProcS(var_c16096, 68419845); var_c16096 = (word) XR_ImportInterface((word) "Xl", (word) XR_GetTypeIndexS((word) (&string39)), 218); (* (( (ptr) gf_c0102)+60)/* var_c16064 */ ) = var_c16096; var_c16096 = (word) XR_ImportInterface((word) "XlPrivate", (word) XR_GetTypeIndexS((word) (&string40)), 77); (* (( (ptr) gf_c0102)+56)/* var_c14336 */ ) = var_c16096; (void) XR_ImportProcS(var_c16096, 67389697); (void) XR_ImportProcS(var_c16096, 67390209); (void) XR_ImportProcS(var_c16096, 67389953); var_c16096 = (word) XR_ImportInterface((word) "XlPrivateErrorHandling", (word) XR_GetTypeIndexS((word) (&string41)), 10); (* (( (ptr) gf_c0102)+55)/* var_c14112 */ ) = var_c16096; (void) XR_ImportProcS(var_c16096, 263169); (void) XR_ImportProcS(var_c16096, 262913); (void) XR_ImportProcS(var_c16096, 262145); var_c16096 = (word) XR_ImportInterface((word) "XlTQPrivate", (word) XR_GetTypeIndexS((word) (&string42)), 4); (* (( (ptr) gf_c0102)+59)/* var_c15936 */ ) = var_c16096; (void) XR_ImportProcS(var_c16096, 262913); } static void XlSimpleErrorHandlingImpl_P0(formal_c021, formal_c020) word formal_c021; word formal_c020; { register ptr gf_c16128 = (ptr) &globalframe; /* XlSimpleErrorHandlingImpl: */ SOURCE(75, 3375) SOURCE(3337, 62) { word pd43; pd43 = (* (( (ptr) (* (( (ptr) gf_c16128)+55)/* var_c14112 */ ))+4) ); (void) ( *( (fPt) ((* (ptr) pd43 ))))((word) ((( (bPt) gf_c16128)+172)/* var_c13920 */ ), pd43); }; SOURCE(3401, 49) { word pd44; pd44 = (* (( (ptr) (* (( (ptr) gf_c16128)+55)/* var_c14112 */ ))+7) ); (void) ( *( (fPt) ((* (ptr) pd44 ))))((word) ((( (bPt) gf_c16128)+204)/* var_c14048 */ ), pd44); }; } static void Explain_P60(errorEvent_v2996) word errorEvent_v2996; { W9 var_c16160; register ptr gf_c16192 = (ptr) &globalframe; /* declaration of var_c14144 skipped */ /* declaration of var_c14176 skipped */ /* declaration of ev_v3288 skipped */ /* Explain: */ SOURCE(197, 2020) { word tmpAddr45; tmpAddr45 = (word) (( (ptr) &var_c16160)+4)/* var_c14144 */ ; (* (ptr) tmpAddr45 ) = ( ((word) (fPt) Ap_P420) ); (* (( (ptr) tmpAddr45) + 1) ) = 1; }; { word tmpAddr46; tmpAddr46 = (word) (( (ptr) &var_c16160)+6)/* var_c14176 */ ; (* (ptr) tmpAddr46 ) = ( ((word) (fPt) Ap0_P360) ); (* (( (ptr) tmpAddr46) + 1) ) = 1; }; SOURCE(420, 31) (* (( (ptr) &var_c16160)+8)/* ev_v3288 */ ) = 0; SOURCE(453, 1764) if ( ( (errorEvent_v2996 != 0) ? ((* (( (ptr) errorEvent_v2996)+5) ) == 0) : 0 ) ) { SOURCE(517, 28) SOURCE(519, 26) (* (( (ptr) &var_c16160)+8)/* ev_v3288 */ ) = errorEvent_v2996; SOURCE(561, 52) (* (ptr) (* (( (ptr) &var_c16160)+8)/* ev_v3288 */ ) ) = 1; SOURCE(615, 1602) { word var_c14208; var_c14208 = (* (( (ptr) (* (( (ptr) &var_c16160)+8)/* ev_v3288 */ ))+13) ); if ((var_c14208 == 0)) { goto lab_L100000; }; if (((* (( (ptr) gf_c16192)+14) ) == XR_GetReferentType(var_c14208))) { { word r_v3492; r_v3492 = var_c14208; SOURCE(669, 1510) if (( (unsigned) (* (bPt) r_v3492 ) != 0)) { SOURCE(700, 42) (void) Ap0_P360((* (( (ptr) gf_c16192)+42) ), (word) (( (bPt) &var_c16160)+24)/* var_c14176 */ ); } else { SOURCE(744, 22) (* (( (ptr) r_v3492)+10) ) = 1; SOURCE(768, 38) { word var_c14240; { word var_c14272; word b_v13872; b_v13872 = (unsigned) (word) (* (( (bPt) r_v3492)+(* (( (ptr) r_v3492)+10) )) ); (* (( (ptr) r_v3492)+10) ) = ((* (( (ptr) r_v3492)+10) ) + 1); var_c14272 = b_v13872; var_c14240 = var_c14272; }; (* (( (ptr) (* (( (ptr) &var_c16160)+8)/* ev_v3288 */ ))+6) ) = var_c14240; }; SOURCE(808, 29) { word var_c14304; { word pd47; pd47 = (* (( (ptr) (* (( (ptr) gf_c16192)+56)/* var_c14336 */ ))+78) ); var_c14304 = (word) ( *( (fPt) ((* (ptr) pd47 ))))(r_v3492, pd47); }; (* (( (ptr) (* (( (ptr) &var_c16160)+8)/* ev_v3288 */ ))+8) ) = var_c14304; }; SOURCE(839, 34) { word pd48; pd48 = (* (( (ptr) (* (( (ptr) gf_c16192)+56)/* var_c14336 */ ))+79) ); (* (( (ptr) (* (( (ptr) &var_c16160)+8)/* ev_v3288 */ ))+12) ) = (word) ( *( (fPt) ((* (ptr) pd48 ))))(r_v3492, pd48); }; SOURCE(875, 37) { word pd49; pd49 = (* (( (ptr) (* (( (ptr) gf_c16192)+56)/* var_c14336 */ ))+78) ); (* (( (ptr) (* (( (ptr) &var_c16160)+8)/* ev_v3288 */ ))+11) ) = (word) ( *( (fPt) ((* (ptr) pd49 ))))(r_v3492, pd49); }; SOURCE(914, 41) { word var_c14368; { word pd50; pd50 = (* (( (ptr) (* (( (ptr) gf_c16192)+56)/* var_c14336 */ ))+77) ); var_c14368 = (word) ( *( (fPt) ((* (ptr) pd50 ))))(r_v3492, pd50); }; (* (( (ptr) (* (( (ptr) &var_c16160)+8)/* ev_v3288 */ ))+10) ) = var_c14368; }; SOURCE(957, 1095) { word var_c14400; var_c14400 = (* (( (ptr) (* (( (ptr) &var_c16160)+8)/* ev_v3288 */ ))+6) ); switch (var_c14400) { case 0: SOURCE(989, 16) (void) Ap0_P360((* (( (ptr) gf_c16192)+41) ), (word) (( (bPt) &var_c16160)+24)/* var_c14176 */ ); break; case 1: SOURCE(1018, 46) { /*1*/ W2 var_c14432; /*1*/ { /*1*/ W2 var_c14464; /*1*/ word v_v13824; /*1*/ v_v13824 = (* (( (ptr) (* (( (ptr) &var_c16160)+8)/* ev_v3288 */ ))+10) ); /*1*/ var_c14464.f0 = 4; /*1*/ var_c14464.f1 = v_v13824; /*1*/ var_c14432 = var_c14464; /*1*/ }; /*1*/ (void) Ap_P420((* (( (ptr) gf_c16192)+40) ), var_c14432, (word) (( (bPt) &var_c16160)+16)/* var_c14144 */ ); /*1*/ }; break; case 2: SOURCE(1075, 41) { /*1*/ W2 var_c14528; /*1*/ { /*1*/ W2 var_c14560; /*1*/ word v_v13776; /*1*/ v_v13776 = (* (( (ptr) (* (( (ptr) &var_c16160)+8)/* ev_v3288 */ ))+12) ); /*1*/ var_c14560.f0 = 4; /*1*/ var_c14560.f1 = v_v13776; /*1*/ var_c14528 = var_c14560; /*1*/ }; /*1*/ (void) Ap_P420((* (( (ptr) gf_c16192)+39) ), var_c14528, (word) (( (bPt) &var_c16160)+16)/* var_c14144 */ ); /*1*/ }; break; case 3: SOURCE(1128, 45) { /*1*/ W2 var_c14624; /*1*/ { /*1*/ W2 var_c14656; /*1*/ word v_v13728; /*1*/ v_v13728 = (* (( (ptr) (* (( (ptr) &var_c16160)+8)/* ev_v3288 */ ))+12) ); /*1*/ var_c14656.f0 = 4; /*1*/ var_c14656.f1 = v_v13728; /*1*/ var_c14624 = var_c14656; /*1*/ }; /*1*/ (void) Ap_P420((* (( (ptr) gf_c16192)+35) ), var_c14624, (word) (( (bPt) &var_c16160)+16)/* var_c14144 */ ); /*1*/ }; break; case 4: SOURCE(1185, 45) { /*1*/ W2 var_c14720; /*1*/ { /*1*/ W2 var_c14752; /*1*/ word v_v13680; /*1*/ v_v13680 = (* (( (ptr) (* (( (ptr) &var_c16160)+8)/* ev_v3288 */ ))+12) ); /*1*/ var_c14752.f0 = 4; /*1*/ var_c14752.f1 = v_v13680; /*1*/ var_c14720 = var_c14752; /*1*/ }; /*1*/ (void) Ap_P420((* (( (ptr) gf_c16192)+15) ), var_c14720, (word) (( (bPt) &var_c16160)+16)/* var_c14144 */ ); /*1*/ }; break; case 5: SOURCE(1240, 43) { /*1*/ W2 var_c14816; /*1*/ { /*1*/ W2 var_c14848; /*1*/ word v_v13632; /*1*/ v_v13632 = (* (( (ptr) (* (( (ptr) &var_c16160)+8)/* ev_v3288 */ ))+12) ); /*1*/ var_c14848.f0 = 4; /*1*/ var_c14848.f1 = v_v13632; /*1*/ var_c14816 = var_c14848; /*1*/ }; /*1*/ (void) Ap_P420((* (( (ptr) gf_c16192)+16) ), var_c14816, (word) (( (bPt) &var_c16160)+16)/* var_c14144 */ ); /*1*/ }; break; case 6: SOURCE(1295, 45) { /*1*/ W2 var_c14912; /*1*/ { /*1*/ W2 var_c14944; /*1*/ word v_v13584; /*1*/ v_v13584 = (* (( (ptr) (* (( (ptr) &var_c16160)+8)/* ev_v3288 */ ))+12) ); /*1*/ var_c14944.f0 = 4; /*1*/ var_c14944.f1 = v_v13584; /*1*/ var_c14912 = var_c14944; /*1*/ }; /*1*/ (void) Ap_P420((* (( (ptr) gf_c16192)+17) ), var_c14912, (word) (( (bPt) &var_c16160)+16)/* var_c14144 */ ); /*1*/ }; break; case 7: SOURCE(1350, 43) { /*1*/ W2 var_c15008; /*1*/ { /*1*/ W2 var_c15040; /*1*/ word v_v13536; /*1*/ v_v13536 = (* (( (ptr) (* (( (ptr) &var_c16160)+8)/* ev_v3288 */ ))+12) ); /*1*/ var_c15040.f0 = 4; /*1*/ var_c15040.f1 = v_v13536; /*1*/ var_c15008 = var_c15040; /*1*/ }; /*1*/ (void) Ap_P420((* (( (ptr) gf_c16192)+18) ), var_c15008, (word) (( (bPt) &var_c16160)+16)/* var_c14144 */ ); /*1*/ }; break; case 8: SOURCE(1404, 18) (void) Ap0_P360((* (( (ptr) gf_c16192)+19) ), (word) (( (bPt) &var_c16160)+24)/* var_c14176 */ ); break; case 9: SOURCE(1436, 47) { /*1*/ W2 var_c15104; /*1*/ { /*1*/ W2 var_c15136; /*1*/ word v_v13488; /*1*/ v_v13488 = (* (( (ptr) (* (( (ptr) &var_c16160)+8)/* ev_v3288 */ ))+12) ); /*1*/ var_c15136.f0 = 4; /*1*/ var_c15136.f1 = v_v13488; /*1*/ var_c15104 = var_c15136; /*1*/ }; /*1*/ (void) Ap_P420((* (( (ptr) gf_c16192)+20) ), var_c15104, (word) (( (bPt) &var_c16160)+16)/* var_c14144 */ ); /*1*/ }; break; case 10: SOURCE(1495, 19) (void) Ap0_P360((* (( (ptr) gf_c16192)+21) ), (word) (( (bPt) &var_c16160)+24)/* var_c14176 */ ); break; case 11: SOURCE(1525, 27) (void) Ap0_P360((* (( (ptr) gf_c16192)+22) ), (word) (( (bPt) &var_c16160)+24)/* var_c14176 */ ); break; case 12: SOURCE(1566, 47) { /*1*/ W2 var_c15200; /*1*/ { /*1*/ W2 var_c15232; /*1*/ word v_v13440; /*1*/ v_v13440 = (* (( (ptr) (* (( (ptr) &var_c16160)+8)/* ev_v3288 */ ))+12) ); /*1*/ var_c15232.f0 = 4; /*1*/ var_c15232.f1 = v_v13440; /*1*/ var_c15200 = var_c15232; /*1*/ }; /*1*/ (void) Ap_P420((* (( (ptr) gf_c16192)+23) ), var_c15200, (word) (( (bPt) &var_c16160)+16)/* var_c14144 */ ); /*1*/ }; break; case 13: SOURCE(1627, 47) { /*1*/ W2 var_c15296; /*1*/ { /*1*/ W2 var_c15328; /*1*/ word v_v13392; /*1*/ v_v13392 = (* (( (ptr) (* (( (ptr) &var_c16160)+8)/* ev_v3288 */ ))+12) ); /*1*/ var_c15328.f0 = 4; /*1*/ var_c15328.f1 = v_v13392; /*1*/ var_c15296 = var_c15328; /*1*/ }; /*1*/ (void) Ap_P420((* (( (ptr) gf_c16192)+24) ), var_c15296, (word) (( (bPt) &var_c16160)+16)/* var_c14144 */ ); /*1*/ }; break; case 14: SOURCE(1688, 54) { /*1*/ W2 var_c15392; /*1*/ { /*1*/ W2 var_c15424; /*1*/ word v_v13344; /*1*/ v_v13344 = (* (( (ptr) (* (( (ptr) &var_c16160)+8)/* ev_v3288 */ ))+12) ); /*1*/ var_c15424.f0 = 4; /*1*/ var_c15424.f1 = v_v13344; /*1*/ var_c15392 = var_c15424; /*1*/ }; /*1*/ (void) Ap_P420((* (( (ptr) gf_c16192)+25) ), var_c15392, (word) (( (bPt) &var_c16160)+16)/* var_c14144 */ ); /*1*/ }; break; case 15: SOURCE(1752, 17) (void) Ap0_P360((* (( (ptr) gf_c16192)+26) ), (word) (( (bPt) &var_c16160)+24)/* var_c14176 */ ); break; case 16: SOURCE(1781, 19) (void) Ap0_P360((* (( (ptr) gf_c16192)+27) ), (word) (( (bPt) &var_c16160)+24)/* var_c14176 */ ); break; case 17: SOURCE(1820, 27) (void) Ap0_P360((* (( (ptr) gf_c16192)+28) ), (word) (( (bPt) &var_c16160)+24)/* var_c14176 */ ); break; case 254: SOURCE(1869, 24) (void) Ap0_P360((* (( (ptr) gf_c16192)+29) ), (word) (( (bPt) &var_c16160)+24)/* var_c14176 */ ); break; case 255: SOURCE(1924, 24) (void) Ap0_P360((* (( (ptr) gf_c16192)+30) ), (word) (( (bPt) &var_c16160)+24)/* var_c14176 */ ); break; case 241: SOURCE(1962, 25) (void) Ap0_P360((* (( (ptr) gf_c16192)+31) ), (word) (( (bPt) &var_c16160)+24)/* var_c14176 */ ); break; default: SOURCE(2000, 52) { /*1*/ W2 var_c15488; /*1*/ { /*1*/ W2 var_c15520; /*1*/ word v_v13296; /*1*/ v_v13296 = (* (( (ptr) (* (( (ptr) &var_c16160)+8)/* ev_v3288 */ ))+6) ); /*1*/ var_c15520.f0 = 4; /*1*/ var_c15520.f1 = v_v13296; /*1*/ var_c15488 = var_c15520; /*1*/ }; /*1*/ (void) Ap_P420((* (( (ptr) gf_c16192)+32) ), var_c15488, (word) (( (bPt) &var_c16160)+16)/* var_c14144 */ ); /*1*/ }; break; }; }; SOURCE(2054, 49) { W2 var_c15584; { W2 var_c15616; word v_v13248; v_v13248 = (* (( (ptr) (* (( (ptr) &var_c16160)+8)/* ev_v3288 */ ))+10) ); var_c15616.f0 = 4; var_c15616.f1 = v_v13248; var_c15584 = var_c15616; }; (void) Ap_P420((* (( (ptr) gf_c16192)+33) ), var_c15584, (word) (( (bPt) &var_c16160)+16)/* var_c14144 */ ); }; SOURCE(2105, 74) if (((* (( (ptr) (* (( (ptr) &var_c16160)+8)/* ev_v3288 */ ))+11) ) != 0)) { SOURCE(2130, 49) { W2 var_c15680; { W2 var_c15712; word v_v13200; v_v13200 = (* (( (ptr) (* (( (ptr) &var_c16160)+8)/* ev_v3288 */ ))+11) ); var_c15712.f0 = 4; var_c15712.f1 = v_v13200; var_c15680 = var_c15712; }; (void) Ap_P420((* (( (ptr) gf_c16192)+34) ), var_c15680, (word) (( (bPt) &var_c16160)+16)/* var_c14144 */ ); }; }; }; }; } else { lab_L100000: ; SOURCE(2199, 18) (void) Ap0_P360((* (( (ptr) gf_c16192)+36) ), (word) (( (bPt) &var_c16160)+24)/* var_c14176 */ ); }; }; }; } static void Ap0_P360(r_v3364, formal_c16256) word r_v3364; word formal_c16256; { register ptr gf_c16224 = (ptr) &globalframe; formal_c16256 = (formal_c16256 - 24); /* Ap0: */ SOURCE(249, 78) SOURCE(278, 49) { word var_c15776; { word pd51; pd51 = (* (( (ptr) (* (( (ptr) gf_c16224)+57)/* var_c15808 */ ))+5) ); var_c15776 = (word) ( *( (fPt) ((* (ptr) pd51 ))))((* (( (ptr) (* (( (ptr) formal_c16256)+8) ))+5) ), r_v3364, (* (( (ptr) gf_c16224)+37) ), 0, 0, pd51); }; (* (( (ptr) (* (( (ptr) formal_c16256)+8) ))+5) ) = var_c15776; }; } static void Ap_P420(format_v3424, v1_v3452, formal_c16320) word format_v3424; W2 v1_v3452; word formal_c16320; { register ptr gf_c16288 = (ptr) &globalframe; formal_c16320 = (formal_c16320 - 16); /* Ap: */ SOURCE(332, 85) SOURCE(390, 27) { word var_c15840; { word pd52; pd52 = (* (( (ptr) (* (( (ptr) gf_c16288)+58)/* var_c15872 */ ))+63) ); var_c15840 = (word) ( *( (fPt) ((* (ptr) pd52 ))))(format_v3424, v1_v3452, pd52); }; (void) Ap0_P360(var_c15840, (word) (( (bPt) formal_c16320)+24)); }; } static word PrintLastErrorEvent_P120() { register ptr gf_c16352 = (ptr) &globalframe; word var_c3072; /* PrintLastErrorEvent: */ SOURCE(2308, 87) SOURCE(2371, 24) return((* (( (ptr) gf_c16352)+4)/* lastErrorEvent_v2748 */ )); } static word PrintLastError_P180() { register ptr gf_c16384 = (ptr) &globalframe; word r_v3132; /* PrintLastError: */ SOURCE(2399, 70) SOURCE(2399, 70) r_v3132 = 0; SOURCE(2450, 19) return((* (( (ptr) gf_c16384)+5)/* lastError_v2776 */ )); } static word PrintLastErrorReply_P240() { register ptr gf_c16416 = (ptr) &globalframe; word var_c3192; /* PrintLastErrorReply: */ SOURCE(2473, 71) SOURCE(2520, 24) return((* (( (ptr) gf_c16416)+6)/* lastErrorReply_v2804 */ )); } static void ErrorEventProc_P300(event_v4512, clientData_v4540, formal_c0121) word event_v4512; word clientData_v4540; word formal_c0121; { W6 var_c16448; /* declaration of tq_v4568 skipped */ register ptr gf_c16480 = (ptr) &globalframe; word connection_v3536 = 0; word originalCodeByte_v3564; var_c16448.f4/* tq_v4568 */ = formal_c0121; /* ErrorEventProc: */ SOURCE(2548, 759) SOURCE(2636, 93) if ((event_v4512 != 0)) { SOURCE(2656, 29) connection_v3536 = (* (( (ptr) event_v4512)+2) ); SOURCE(2687, 42) originalCodeByte_v3564 = (* (ptr) event_v4512 ); }; SOURCE(2733, 574) { word var_c15904; var_c15904 = event_v4512; if ((var_c15904 == 0)) { goto lab_L100016; }; if (((* (( (ptr) var_c15904)+4) ) == 1)) { { /* declaration of error_v3608 skipped */ var_c16448.f5/* error_v3608 */ = var_c15904; SOURCE(2789, 37) { word pd53; pd53 = (* (( (ptr) (* (( (ptr) gf_c16480)+55)/* var_c14112 */ ))+8) ); (void) ( *( (fPt) ((* (ptr) pd53 ))))(var_c16448.f5/* error_v3608 */ , pd53); }; SOURCE(2828, 479) SOURCE(2834, 452) { word var_c01; { word var_c0116; var_c0116 = (word) &var_c16448; var_c01 = (word) XR_Enable(( ((word) (fPt) NoName_Q1644) ), ( ((word) (fPt) NoName_Q1704) ), var_c0116); }; if ((var_c01 == 2)) { goto lab_L100017; }; }; goto lab_L100020; lab_L100017: ; lab_L100020: ; }; } else { lab_L100016: ; SOURCE(3326, 5) (void) XR_RaiseUnnamedError(); }; }; } static word NoName_Q1644(formal_c0114) word formal_c0114; { register ptr gf_c0113 = (ptr) &globalframe; SOURCE(2902, 37) { word sequenceNo_v3652; word r_v3680; SOURCE(2902, 37) sequenceNo_v3652 = (* (( (ptr) (* (( (ptr) formal_c0114)+5) ))+8) ); SOURCE(2941, 232) { word var_c15968; { word var_c16000; word var_c16032; var_c16000 = XR_NewObject(12, (* (( (ptr) gf_c0113)+13) )); var_c16032 = var_c16000; (* (ptr) var_c16032 ) = 11; (* (( (ptr) var_c16032)+1) ) = (* (( (ptr) (* (( (ptr) formal_c0114)+5) ))+5) ); (* (( (ptr) var_c16032)+2) ) = XR_NewObject(12, (* (( (ptr) gf_c0113)+13) )); var_c16032 = (* (( (ptr) var_c16032)+2) ); (* (ptr) var_c16032 ) = 4; (* (( (ptr) var_c16032)+1) ) = (* (( (ptr) (* (( (ptr) formal_c0114)+5) ))+6) ); (* (( (ptr) var_c16032)+2) ) = XR_NewObject(12, (* (( (ptr) gf_c0113)+13) )); var_c16032 = (* (( (ptr) var_c16032)+2) ); (* (ptr) var_c16032 ) = 4; (* (( (ptr) var_c16032)+1) ) = (* (( (ptr) (* (( (ptr) formal_c0114)+5) ))+10) ); (* (( (ptr) var_c16032)+2) ) = XR_NewObject(12, (* (( (ptr) gf_c0113)+13) )); var_c16032 = (* (( (ptr) var_c16032)+2) ); (* (ptr) var_c16032 ) = 4; (* (( (ptr) var_c16032)+1) ) = (* (( (ptr) (* (( (ptr) formal_c0114)+5) ))+11) ); (* (( (ptr) var_c16032)+2) ) = XR_NewObject(12, (* (( (ptr) gf_c0113)+13) )); var_c16032 = (* (( (ptr) var_c16032)+2) ); (* (ptr) var_c16032 ) = 4; (* (( (ptr) var_c16032)+1) ) = (* (( (ptr) (* (( (ptr) formal_c0114)+5) ))+12) ); var_c15968 = var_c16000; }; { word pd54; pd54 = (* (( (ptr) (* (( (ptr) gf_c0113)+58)/* var_c15872 */ ))+65) ); r_v3680 = (word) ( *( (fPt) ((* (ptr) pd54 ))))((* (( (ptr) gf_c0113)+38) ), var_c15968, pd54); }; }; SOURCE(3175, 22) (* (( (ptr) gf_c0113)+4)/* lastErrorEvent_v2748 */ ) = (* (( (ptr) formal_c0114)+5) ); SOURCE(3199, 32) (* (( (ptr) gf_c0113)+6)/* lastErrorReply_v2804 */ ) = (* (( (ptr) (* (( (ptr) formal_c0114)+5) ))+13) ); SOURCE(3233, 27) { word pd55; pd55 = (* (( (ptr) (* (( (ptr) gf_c0113)+57)/* var_c15808 */ ))+30) ); (* (( (ptr) gf_c0113)+5)/* lastError_v2776 */ ) = (word) ( *( (fPt) ((* (ptr) pd55 ))))(r_v3680, 0, 2147483647, pd55); }; SOURCE(3263, 23) { word var_c096; var_c096 = (* (( (ptr) formal_c0114)+5) ); (void) (XR_RaiseSignal((* (( (ptr) (* (( (ptr) gf_c0113)+60)/* var_c16064 */ ))+4) ), 0, (word) &var_c096)); }; }; return(0); } static void NoName_Q1704(formal_c0101, formal_c200000, formal_c200001, formal_c200002, formal_c200003) word formal_c0101; word formal_c200000; word formal_c200001; word formal_c200002; word formal_c200003; { register ptr gf_c0115 = (ptr) &globalframe; if ((formal_c200001 == XR_Aborted)) { SOURCE(2854, 33) { word pd56; pd56 = (* (( (ptr) (* (( (ptr) gf_c0115)+59)/* var_c15936 */ ))+7) ); (void) ( *( (fPt) ((* (ptr) pd56 ))))((* ((( (ptr) formal_c200000)+4)) ), pd56); }; SOURCE(2889, 10) (* (ptr) formal_c0101 ) = 2; (* (( (ptr) formal_c0101)+1) ) = 2; return; }; (* (ptr) formal_c0101 ) = 0; (* (( (ptr) formal_c0101)+1) ) = 0; return; } /* file: XlSimpleErrorHandlingImpl, module: XlSimpleErrorHandlingImpl, compiled at: September 14, 1993 4:27:56 pm PDT */ extern void XR_install_XlSimpleErrorHandlingImpl() { NoName_Q1584(); } extern void XR_run_XlSimpleErrorHandlingImpl() { XR_Start(&globalframe); }