/* 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 <cedar/InstallationSupport.h>
#include <cedar/CedarExtra.h>
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); }