/* Generated with C2C (Cedar To C)*/
/* Copyright (C) 1993 by Xerox Corporation. All rights reserved. */
/* time: July 6, 1993 10:06:07 am PDT */
/* C2C version: April 20, 1993 (sun4) */
/* ref-counting: off */
/* file: SimpleIPRegister, module: SimpleIPRegister */
/* switches: bcfhklnouw */
#include <cedar/InstallationSupport.h>
#include <cedar/CedarExtra.h>
static char versionStamp[] = "@(#)mob←version [4168158147,1729996316] SimpleIPRegister";
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;} W7;
typedef struct {word f0, f1, f2;} W3;
typedef struct {word f0, f1;} W2;
typedef struct {word f0, f1, f2, f3, f4, f5, f6, f7;} W8;
typedef struct {W8 f; W3 r;} W11;
typedef struct {word f0, f1, f2, f3, f4, f5;} W6;
typedef struct {W8 f; word r;} W9;
typedef struct {W8 f; W2 r;} W10;
typedef W10 *W10Pt;
typedef W3 *W3Pt;
#define SOURCE(p, l) /* source p, l */
static float fc76 = 0.0;
#define BCK(idx, lim) ( ((unsigned) idx) >= ((unsigned) lim) ? (XR←RaiseBoundsFault()) : (idx) )
static float fc83 = 0.999;
#define MAX(cast, x, y) ( ( cast x) > ( cast y) ? (x) : (y) )
#define SGNCK(i) ((int) (word) (i) < 0 ? XR←RaiseArithmeticFault(): i )
static void NoName←Q2856();
static void SimpleIPRegister←P0();
static word FileIDFromStream←P60();
static word FileIDEqual←P120();
static void EnterInCache←P180();
static word GetFromCache←P240();
static word Protect←P300();
static word NoName←Q2916();
static void ipErrorProc←P360();
static void ipLogProc←P420();
static void Feedback←P480();
static word ipGuessProc←P540();
static word GetCopies←P600();
static word ipOpenProc←P660();
static void localLog←P1692();
static void doOpen←P1752();
static void ipCleanProc←P720();
static void ipAttributesProc←P780();
static void inner←P1812();
static word ipPageProc←P840();
static void doPage←P1872();
static void localLog←P2028();
static void ipCloseProc←P900();
static void doClose←P2232();
static word Clone←P960();
static word ipCloneProc←P1020();
static word ipSpecialProc←P1080();
static word MakeInstructions←P1140();
static void FillInstructionsVector←P1200();
static void NoName←Q2976();
static struct {unsigned f; char r[44];} string1 = {2752556, "\260\006\005\146\151\162\163\164\257\300\370\161\013\303\300\147\035\246\034\100\260\005\004\162\145\163\164\214\257\300\370\161\013\303\300\147\035\246\034\100\260\261\000"};
static struct {unsigned f; char r[4];} string2 = {131074, "\004\007\000"};
static struct {unsigned f; char r[16];} string3 = {851984, "\257\300\125\320\113\245\300\331\322\350\010\102\360\000\000"};
static struct {unsigned f; char r[16];} string4 = {851984, "\257\300\125\320\113\245\300\331\322\350\010\102\030\000\000"};
static struct {unsigned f; char r[16];} string5 = {851984, "\257\300\125\320\113\245\300\331\322\350\010\102\014\000\000"};
static struct {unsigned f; char r[4];} string6 = {131074, "\004\017\000"};
static struct {unsigned f; char r[4];} string7 = {131076, "\216\251\000"};
static struct {unsigned f; char r[4];} string8 = {65537, "\001\000\000"};
static struct {unsigned f; char r[16];} string9 = {851984, "\257\300|I+\246\300+&T\042B\014\000\000"};
static struct {unsigned f; char r[16];} string10 = {917520, "\216\257\300\363\223\326\161\300\017\164\046\072\104\350\000"};
static struct {unsigned f; char r[4];} string11 = {65540, "\241\000\000"};
static struct {unsigned f; char r[16];} string12 = {851984, "\257\300\177\225\363\334\300\341\277\240\013\100\164\000\000"};
static struct {unsigned f; char r[16];} string13 = {851984, "\257\300\125\320\113\245\300\331\322\350\010\102\250\000\000"};
static struct {unsigned f; char r[16];} string14 = {851984, "\257\300\125\320\113\245\300\331\322\350\010\102\330\000\000"};
static struct {unsigned f; char r[4];} string15 = {196611, "\004C\007"};
static struct {unsigned f; char r[44];} string16 = {2818092, "\216\260\007\006\154\145\156\147\164\150\210\241\000\200\177\377\005\004\164\145\170\164\254\206\012\011\155\141\170\114\145\156\147\164\150\210\241\000\200\177\377\243\261"};
static struct {unsigned f; char r[16];} string17 = {851984, "\257\300\177\225\363\334\300\341\277\240\013\100\200\000\000"};
static struct {unsigned f; char r[16];} string18 = {983056, "[code: %g(%g)] "};
static struct {unsigned f; char r[20];} string19 = {1114132, "GeneratedFeedback\000\000"};
static struct {unsigned f; char r[8];} string20 = {262152, "TRUE\000\000\000"};
static struct {unsigned f; char r[16];} string21 = {786448, "[class: %g] \000\000\000"};
static struct {unsigned f; char r[16];} string22 = {983056, "InterpressError"};
static struct {unsigned f; char r[20];} string23 = {1114132, "InterpressWarning\000\000"};
static struct {unsigned f; char r[24];} string24 = {1507352, "Interpress/Xerox/* *\240j*"};
static struct {unsigned f; char r[12];} string25 = {589836, "CopyCount\000\000"};
static struct {unsigned f; char r[32];} string26 = {1900576, "Copy count truncated to 20000\000\000"};
static struct {unsigned f; char r[20];} string27 = {1114132, "InterpressComment\000\000"};
static struct {unsigned f; char r[12];} string28 = {720908, "[code: %g] "};
static struct {unsigned f; char r[16];} string29 = {851984, "ImagerWarning\000\000"};
static struct {unsigned f; char r[12];} string30 = {720908, "ImagerError"};
static struct {unsigned f; char r[12];} string31 = {524300, "Uncaught\000\000\000"};
static struct {unsigned f; char r[12];} string32 = {655372, "ipPageProc\000"};
static struct {unsigned f; char r[20];} string33 = {1048596, "page %g, copy %g\000\000\000"};
static struct {unsigned f; char r[12];} string34 = {589836, "OutputBin\000\000"};
static struct {unsigned f; char r[16];} string35 = {917520, "Interpress 3.1\000"};
static struct {unsigned f; char r[12];} string36 = {655372, "not imaged\000"};
static struct {unsigned f; char r[24];} string37 = {1507352, "(page %g of copy %g) %g"};
static struct {unsigned f; char r[4];} string38 = {131076, "IP\000"};
static struct {unsigned f; char r[12];} string39 = {655372, "copies: %g\000"};
static struct {unsigned f; char r[24];} string40 = {1441816, "FillInstructionsVector\000"};
static struct {unsigned f; char r[16];} string41 = {851984, "\257\300\370\161\013\303\300\147\035\246\034\100\164\000\000"};
static struct {unsigned f; char r[20];} string42 = {1245203, "\006\006\040\001\044\001\050\001\054\001\060\001\100\214\010\000\004\027\001"};
static struct {unsigned f; char r[16];} string43 = {851984, "\257\300\125\320\113\245\300\331\322\350\010\100\150\000\000"};
static struct {unsigned f; char r[16];} string44 = {851984, "\257\300\074\177\166\242\300\203\113\217\044\100\150\000\000"};
static struct {unsigned f; char r[16];} string45 = {851984, "\257\300\045\370\116\014\300\270\323\074\131\100\150\000\000"};
static struct {unsigned f; char r[16];} string46 = {851984, "\257\300\146\072\276\323\300\221\127\350\046\100\150\000\000"};
static struct {unsigned f; char r[16];} string47 = {851984, "\257\300\015\277\004\146\300\034\367\146\045\100\164\000\000"};
static struct {unsigned f; char r[16];} string48 = {851984, "\257\300\177\225\363\334\300\341\277\240\013\100\150\000\000"};
static struct {unsigned f; char r[16];} string49 = {851984, "\257\300|I+\246\300+&T\042@h\000\000"};
static struct {unsigned f; char r[16];} string50 = {851984, "\257\300\041\257\203\366\300\322\161\356\007\100\150\000\000"};
static struct {unsigned f; char r[16];} string51 = {851984, "\257\300\240\236\274\171\300\344\000\142\023\100\150\000\000"};
static struct {unsigned f; char r[16];} string52 = {851984, "\257\300\332\223\177\020\300\304\076\102\260\100\164\000\000"};
static struct {unsigned f; char r[16];} string53 = {851984, "\257\300\363\223\326\161\300\017\164\046\072\100\150\000\000"};
static struct {unsigned f; char r[16];} string54 = {851984, "\257\300\275\320\070\317\300\004\110\363\366\100\150\000\000"};
static struct {
word f0[58]; word f58; word f59; word f60;
word f61; word f62; word f63; word f64;
word f65; word f66; word f67; word f68;
word f69; word f70; word f71; word f72;
word f73; word f74; word f75; word f76;
word f77; word f78; word f79; word f80;
word f81; word f82; word f83; word f84;
word f85; word f86; word f87; word f88;
word f89; word f90; word f91; word f92;
word f93; word f94; word f95; word f96;
word f97; word f98; word f99[13];
} globalframe = {
{0}, (word) FillInstructionsVector←P1200, 0, (word) MakeInstructions←P1140,
0, (word) ipSpecialProc←P1080, 0, (word) ipCloneProc←P1020,
0, (word) Clone←P960, 0, (word) ipCloseProc←P900,
0, (word) ipPageProc←P840, 0, (word) ipAttributesProc←P780,
0, (word) ipCleanProc←P720, 0, (word) ipOpenProc←P660,
0, (word) GetCopies←P600, 0, (word) ipGuessProc←P540,
0, (word) Feedback←P480, 0, (word) ipLogProc←P420,
0, (word) ipErrorProc←P360, 0, (word) Protect←P300,
0, (word) GetFromCache←P240, 0, (word) EnterInCache←P180,
0, (word) FileIDEqual←P120, 0, (word) FileIDFromStream←P60,
0, (word) SimpleIPRegister←P0, {0}
};
static void NoName←Q2856()
{
register ptr gf←c0225 = (ptr) &globalframe;
word var←c30240;
(* (( (ptr) gf←c0225)+13) ) = (word) XR←GetTypeIndex((word) &string1, 0, (word) &string2);
(* (( (ptr) gf←c0225)+15) ) = (word) XR←GetTypeIndexS((word) (&string3));
(* (( (ptr) gf←c0225)+16) ) = (word) XR←GetTypeIndexS((word) (&string4));
(* (( (ptr) gf←c0225)+17) ) = (word) XR←GetTypeIndex((word) &string5, 0, (word) &string6);
(* (( (ptr) gf←c0225)+18) ) = (word) XR←GetTypeIndex((word) &string7, 0, (word) &string8);
(* (( (ptr) gf←c0225)+19) ) = (word) XR←GetTypeIndex((word) &string9, 0, (word) &string8);
(* (( (ptr) gf←c0225)+22) ) = (word) XR←GetTypeIndex((word) &string10, 0, (word) &string8);
(* (( (ptr) gf←c0225)+23) ) = (word) XR←GetTypeIndexS((word) (&string11));
(* (( (ptr) gf←c0225)+25) ) = (word) XR←GetTypeIndex((word) &string12, 0, (word) &string8);
(* (( (ptr) gf←c0225)+26) ) = (word) XR←GetTypeIndexS((word) (&string13));
(* (( (ptr) gf←c0225)+31) ) = (word) XR←GetTypeIndex((word) &string14, 0, (word) &string15);
(* (( (ptr) gf←c0225)+32) ) = (word) XR←GetTypeIndex((word) &string16, 0, (word) &string8);
(* (( (ptr) gf←c0225)+34) ) = (word) XR←GetTypeIndex((word) &string17, 0, (word) &string2);
(* (ptr) (( (bPt) gf←c0225)+140) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0225)+22) ), (word) &string18);
(* (ptr) (( (bPt) gf←c0225)+144) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0225)+18) ), (word) &string19);
(* (ptr) (( (bPt) gf←c0225)+148) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0225)+18) ), (word) &string20);
(* (ptr) (( (bPt) gf←c0225)+152) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0225)+22) ), (word) &string21);
(* (ptr) (( (bPt) gf←c0225)+156) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0225)+18) ), (word) &string22);
(* (ptr) (( (bPt) gf←c0225)+160) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0225)+18) ), (word) &string23);
(* (ptr) (( (bPt) gf←c0225)+164) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0225)+32) ), (word) &string24);
(* (ptr) (( (bPt) gf←c0225)+168) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0225)+18) ), (word) &string25);
(* (ptr) (( (bPt) gf←c0225)+172) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0225)+22) ), (word) &string26);
(* (ptr) (( (bPt) gf←c0225)+176) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0225)+18) ), (word) &string27);
(* (ptr) (( (bPt) gf←c0225)+180) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0225)+22) ), (word) &string28);
(* (ptr) (( (bPt) gf←c0225)+184) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0225)+18) ), (word) &string29);
(* (ptr) (( (bPt) gf←c0225)+188) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0225)+18) ), (word) &string30);
(* (ptr) (( (bPt) gf←c0225)+192) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0225)+18) ), (word) &string31);
(* (ptr) (( (bPt) gf←c0225)+196) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0225)+18) ), (word) &string32);
(* (ptr) (( (bPt) gf←c0225)+200) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0225)+22) ), (word) &string33);
(* (ptr) (( (bPt) gf←c0225)+204) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0225)+18) ), (word) &string34);
(* (ptr) (( (bPt) gf←c0225)+208) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0225)+22) ), (word) &string35);
(* (ptr) (( (bPt) gf←c0225)+212) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0225)+32) ), (word) &string36);
(* (ptr) (( (bPt) gf←c0225)+216) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0225)+22) ), (word) &string37);
(* (ptr) (( (bPt) gf←c0225)+220) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0225)+18) ), (word) &string38);
(* (ptr) (( (bPt) gf←c0225)+224) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0225)+22) ), (word) &string39);
(* (ptr) (( (bPt) gf←c0225)+228) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0225)+18) ), (word) &string40);
(void) XR←DeclareGlobalFrame((word) "SimpleIPRegister", &globalframe, (word) XR←GetTypeIndex((word) &string41, 0, (word) &string42)
, (word) (( (bPt) gf←c0225)+392)/* var←c27552 */ );
var←c30240 = (word) XR←ImportInterface((word) "DecomposerRegistry", (word) XR←GetTypeIndexS((word) (&string43)), 12);
(* (( (ptr) gf←c0225)+100)/* var←c27744 */ ) = var←c30240;
(void) XR←ImportProcS(var←c30240, 262145);
var←c30240 = (word) XR←ImportInterface((word) "Imager", (word) XR←GetTypeIndexS((word) (&string44)), 84);
(* (( (ptr) gf←c0225)+111)/* var←c29568 */ ) = var←c30240;
(void) XR←ImportProcS(var←c30240, 787971);
(void) XR←ImportProcS(var←c30240, 67634946);
var←c30240 = (word) XR←ImportInterface((word) "ImagerError", (word) XR←GetTypeIndexS((word) (&string45)), 3);
(* (( (ptr) gf←c0225)+104)/* var←c28064 */ ) = var←c30240;
(void) XR←ImportProcS(var←c30240, 67371521);
var←c30240 = (word) XR←ImportInterface((word) "InterpressInterpreter", (word) XR←GetTypeIndexS((word) (&string46)), 8);
(* (( (ptr) gf←c0225)+108)/* var←c28960 */ ) = var←c30240;
(void) XR←ImportProcS(var←c30240, 67372033);
(void) XR←ImportProcS(var←c30240, 263937);
(void) XR←ImportProcS(var←c30240, 68421125);
(void) XR←ImportProcS(var←c30240, 1312005);
(void) XR←ImportProcS(var←c30240, 68420101);
var←c30240 = (word) XR←ImportInterface((word) "IO", (word) XR←GetTypeIndexS((word) (&string47)), 103);
(* (( (ptr) gf←c0225)+105)/* var←c28096 */ ) = var←c30240;
(void) XR←ImportProcS(var←c30240, 67910402);
(void) XR←ImportProcS(var←c30240, 68958724);
(void) XR←ImportProcS(var←c30240, 530434);
(void) XR←ImportProcS(var←c30240, 530946);
(void) XR←ImportProcS(var←c30240, 68159748);
(void) XR←ImportProcS(var←c30240, 67377409);
(void) XR←ImportProcS(var←c30240, 2111493);
(void) XR←ImportProcS(var←c30240, 67641090);
(void) XR←ImportProcS(var←c30240, 1071364);
(void) XR←ImportProcS(var←c30240, 1063171);
(void) XR←ImportProcS(var←c30240, 67378689);
var←c30240 = (word) XR←ImportInterface((word) "IPAttributes", (word) XR←GetTypeIndexS((word) (&string48)), 2);
(* (( (ptr) gf←c0225)+109)/* var←c29120 */ ) = var←c30240;
(void) XR←ImportProcS(var←c30240, 262401);
var←c30240 = (word) XR←ImportInterface((word) "IPInstructions", (word) XR←GetTypeIndexS((word) (&string49)), 13);
(* (( (ptr) gf←c0225)+110)/* var←c29472 */ ) = var←c30240;
(void) XR←ImportProcS(var←c30240, 67371009);
(void) XR←ImportProcS(var←c30240, 202113539);
var←c30240 = (word) XR←ImportInterface((word) "ImagerSys", (word) XR←GetTypeIndexS((word) (&string50)), 15);
(* (( (ptr) gf←c0225)+101)/* var←c27776 */ ) = var←c30240;
(void) XR←ImportProcS(var←c30240, 67374337);
(void) XR←ImportProcS(var←c30240, 67374081);
var←c30240 = (word) XR←ImportInterface((word) "Prop", (word) XR←GetTypeIndexS((word) (&string51)), 4);
(* (( (ptr) gf←c0225)+106)/* var←c28480 */ ) = var←c30240;
(void) XR←ImportProcS(var←c30240, 67895299);
(void) XR←ImportProcS(var←c30240, 67633410);
var←c30240 = (word) XR←ImportInterface((word) "RefText", (word) XR←GetTypeIndexS((word) (&string52)), 26);
(* (( (ptr) gf←c0225)+107)/* var←c28512 */ ) = var←c30240;
(void) XR←ImportProcS(var←c30240, 262913);
(void) XR←ImportProcS(var←c30240, 67371521);
var←c30240 = (word) XR←ImportInterface((word) "Rope", (word) XR←GetTypeIndexS((word) (&string53)), 43);
(* (( (ptr) gf←c0225)+102)/* var←c27872 */ ) = var←c30240;
(void) XR←ImportProcS(var←c30240, 67900163);
(void) XR←ImportProcS(var←c30240, 67896323);
var←c30240 = (word) XR←ImportInterface((word) "RuntimeError", (word) XR←GetTypeIndexS((word) (&string54)), 27);
(* (( (ptr) gf←c0225)+103)/* var←c28000 */ ) = var←c30240;
}
static void SimpleIPRegister←P0(formal←c050, formal←c045)
word formal←c050;
word formal←c045;
{
register ptr gf←c30272 = (ptr) &globalframe;
/* SimpleIPRegister: */
SOURCE(167, 10218)
SOURCE(1128, 11)
(* (( (ptr) gf←c30272)+8)/* cacheHead←v3364 */ ) = XR←NewObject(12, (* (( (ptr) gf←c30272)+13) ));
{
word var←c27616;
var←c27616 = (* (( (ptr) gf←c30272)+8)/* cacheHead←v3364 */ );
};
SOURCE(9093, 172)
{
word var←c27648;
var←c27648 = XR←NewObject(20, (* (( (ptr) gf←c30272)+15) ));
(* (ptr) var←c27648 ) = (word) (( (bPt) gf←c30272)+288)/* var←c27136 */ ;
(* (( (ptr) var←c27648)+1) ) = (word) (( (bPt) gf←c30272)+280)/* var←c27104 */ ;
(* (( (ptr) var←c27648)+2) ) = (word) (( (bPt) gf←c30272)+272)/* var←c27072 */ ;
(* (( (ptr) var←c27648)+3) ) = (word) (( (bPt) gf←c30272)+256)/* var←c27008 */ ;
(* (( (ptr) var←c27648)+4) ) = (word) (( (bPt) gf←c30272)+248)/* var←c26976 */ ;
(* (( (ptr) gf←c30272)+9)/* ipInstanceProcs←v3840 */ ) = var←c27648;
};
SOURCE(9268, 124)
{
word var←c27680;
var←c27680 = XR←NewObject(12, (* (( (ptr) gf←c30272)+16) ));
(* (ptr) var←c27680 ) = (word) (( (bPt) gf←c30272)+320)/* var←c27264 */ ;
(* (( (ptr) var←c27680)+1) ) = (word) (( (bPt) gf←c30272)+304)/* var←c27200 */ ;
(* (( (ptr) var←c27680)+2) ) = (word) (( (bPt) gf←c30272)+296)/* var←c27168 */ ;
(* (( (ptr) gf←c30272)+10)/* ipDecomposerProcs←v3868 */ ) = var←c27680;
};
SOURCE(9428, 151)
{
word var←c27712;
var←c27712 = XR←NewObject(16, (* (( (ptr) gf←c30272)+17) ));
(* (ptr) var←c27712 ) = (* (( (ptr) gf←c30272)+55) );
(* (( (ptr) var←c27712)+1) ) = (* (( (ptr) gf←c30272)+52) );
(* (( (ptr) var←c27712)+2) ) = (* (( (ptr) gf←c30272)+10)/* ipDecomposerProcs←v3868 */ );
(* (( (ptr) var←c27712)+3) ) = (* (( (ptr) gf←c30272)+11)/* ipDecomposerPrivate←v3896 */ );
(* (( (ptr) gf←c30272)+12)/* ipDecomposerData←v3924 */ ) = var←c27712;
};
SOURCE(10340, 45)
{
word pd55;
pd55 = (* (( (ptr) (* (( (ptr) gf←c30272)+100)/* var←c27744 */ ))+4) );
(void) ( *( (fPt) ((* (ptr) pd55 ))))((* ((( (ptr) gf←c30272)+12)/* ipDecomposerData←v3924 */ ) ), pd55);
};
}
static word FileIDFromStream←P60(stream←v4060)
word stream←v4060;
{
register ptr gf←c30304 = (ptr) &globalframe;
word var←c4104;
word fileName←v5664;
word created←v5692;
/* FileIDFromStream: */
SOURCE(615, 330)
SOURCE(615, 330)
var←c4104 = 0;
SOURCE(685, 49)
{
word pd56;
pd56 = (* (( (ptr) (* (( (ptr) gf←c30304)+101)/* var←c27776 */ ))+16) );
fileName←v5664 = (word) ( *( (fPt) ((* (ptr) pd56 ))))(stream←v4060, pd56);
};
SOURCE(736, 59)
{
word pd57;
pd57 = (* (( (ptr) (* (( (ptr) gf←c30304)+101)/* var←c27776 */ ))+17) );
created←v5692 = (word) ( *( (fPt) ((* (ptr) pd57 ))))(stream←v4060, pd57);
};
SOURCE(797, 148)
if ( ( (fileName←v5664 != 0) ? (created←v5692 != 2147483647) : 0 ) ) {
SOURCE(852, 93)
{
word id←v5736;
SOURCE(854, 77)
id←v5736 = XR←NewObject(8, (* (( (ptr) gf←c30304)+25) ));
(* (ptr) id←v5736 ) = fileName←v5664;
(* (( (ptr) id←v5736)+1) ) = created←v5692;
SOURCE(933, 12)
return(id←v5736);
};
};
SOURCE(615, 330)
return(var←c4104);
}
static word FileIDEqual←P120(a←v4164, b←v4192)
word a←v4164;
word b←v4192;
{
register ptr gf←c30336 = (ptr) &globalframe;
word var←c4236;
/* FileIDEqual: */
SOURCE(952, 114)
SOURCE(1004, 62)
{
word tc58;
word pd59;
if (((* (( (ptr) a←v4164)+1) ) == (* (( (ptr) b←v4192)+1) ))) {
pd59 = (* (( (ptr) (* (( (ptr) gf←c30336)+102)/* var←c27872 */ ))+8) );
tc58 = (word) (unsigned) (0 != (word) ( *( (fPt) ((* (ptr) pd59 ))))((* (ptr) a←v4164 ), (* (ptr) b←v4192 ), 1, pd59)
);
}
else {
tc58 = (word) (unsigned) 0;
};
return(tc58);
};
}
static void EnterInCache←P180(fileID←v4468, data←v4496)
word fileID←v4468;
word data←v4496;
{
register ptr gf←c30368 = (ptr) &globalframe;
/* EnterInCache: */
SOURCE(1179, 256)
(void) (XR←MonitorEntry((word) (( (bPt) gf←c30368)+16)/* LOCK←v3084 */ ));
SOURCE(1236, 199)
if ( ( (fileID←v4468 != 0) ? (data←v4496 != 0) : 0 ) ) {
SOURCE(1272, 165)
{
word cacheLast←v5780;
SOURCE(1274, 11)
cacheLast←v5780 = (* (( (ptr) gf←c30368)+8)/* cacheHead←v3364 */ );
SOURCE(1317, 56)
lab←L100002: ;
if (((* (( (ptr) cacheLast←v5780)+2) ) != 0)) {
}
else {
goto lab←L100000;
};
SOURCE(1347, 26)
cacheLast←v5780 = (* (( (ptr) cacheLast←v5780)+2) );
goto lab←L100002;
lab←L100000: ;
SOURCE(1384, 51)
{
word var←c27904;
word var←c27936;
var←c27904 = XR←NewObject(12, (* (( (ptr) gf←c30368)+13) ));
var←c27936 = var←c27904;
(* (ptr) var←c27936 ) = fileID←v4468;
(* (( (ptr) var←c27936)+1) ) = data←v4496;
(* (( (ptr) cacheLast←v5780)+2) ) = var←c27904;
};
};
};
SOURCE(1179, 256)
(void) (XR←MonitorExit((word) (( (bPt) gf←c30368)+16)/* LOCK←v3084 */ ));
return;
}
static word GetFromCache←P240(fileID←v4568)
word fileID←v4568;
{
register ptr gf←c30400 = (ptr) &globalframe;
word var←c4612;
/* GetFromCache: */
SOURCE(1444, 299)
(void) (XR←MonitorEntry((word) (( (bPt) gf←c30400)+16)/* LOCK←v3084 */ ));
SOURCE(1504, 33)
if ((fileID←v4568 == 0)) {
SOURCE(1525, 12)
(void) (XR←MonitorExit((word) (( (bPt) gf←c30400)+16)/* LOCK←v3084 */ ));
return(0);
};
SOURCE(1539, 178)
{
register word tail←v5908;
tail←v5908 = (* (( (ptr) (* (( (ptr) gf←c30400)+8)/* cacheHead←v3364 */ ))+2) );
lab←L100006: ;
if ((tail←v5908 != 0)) {
}
else {
goto lab←L100003;
};
SOURCE(1616, 101)
if ((0 != (word) FileIDEqual←P120(fileID←v4568, (* (ptr) tail←v5908 )))) {
SOURCE(1665, 26)
(* (( (ptr) (* (( (ptr) gf←c30400)+8)/* cacheHead←v3364 */ ))+2) ) = (* (( (ptr) tail←v5908)+2) );
SOURCE(1693, 24)
{
word var←c27968;
var←c27968 = (* (( (ptr) tail←v5908)+1) );
(void) (XR←MonitorExit((word) (( (bPt) gf←c30400)+16)/* LOCK←v3084 */ ));
return(var←c27968);
};
};
tail←v5908 = (* (( (ptr) tail←v5908)+2) );
goto lab←L100006;
lab←L100003: ;
};
SOURCE(1731, 12)
(void) (XR←MonitorExit((word) (( (bPt) gf←c30400)+16)/* LOCK←v3084 */ ));
return(0);
}
static word Protect←P300(formal←c0268, formal←c0269)
word formal←c0268;
word formal←c0269;
{
W7 var←c30432;
/* declaration of instance←v4684 skipped */
/* declaration of inner←v4712 skipped */
/* declaration of var←c01 skipped */
word var←c4816;
var←c30432.f4/* instance←v4684 */ = formal←c0268;
var←c30432.f5/* inner←v4712 */ = formal←c0269;
/* Protect: */
SOURCE(1748, 489)
SOURCE(1824, 413)
SOURCE(1826, 380)
{
word var←c02;
{
word var←c0253;
var←c0253 = (word) &var←c30432;
var←c02 = (word) XR←Enable(( ((word) (fPt) NoName←Q2916) ), ( ((word) (fPt) NoName←Q2976) ), var←c0253);
};
if ((var←c02 == 2)) {
goto lab←L100007;
}
else {
if ((var←c02 == 1)) {
goto lab←L02;
};
};
};
goto lab←L100010;
lab←L100007: ;
SOURCE(2222, 13)
return(1);
lab←L100010: ;
lab←L02: ;
return(var←c30432.f6/* var←c01 */ );
}
static word NoName←Q2916(formal←c0231)
word formal←c0231;
{
SOURCE(2175, 15)
{
word pd60;
pd60 = (* (( (ptr) formal←c0231)+5) );
(void) ( *( (fPt) ((* (ptr) pd60 ))))((* ((( (ptr) formal←c0231)+4)) ), pd60);
};
SOURCE(2192, 14)
(* (( (ptr) formal←c0231)+6) ) = 0;
return(1);
/* c2c skipped dead code */
}
static void ipErrorProc←P360(instance←v4876, error←v4904, warning←v4932)
word instance←v4876;
W3 error←v4904;
word warning←v4932;
{
register ptr gf←c30464 = (ptr) &globalframe;
word ros←v6080;
word key←v6108;
word severity←v6136 = 2;
/* ipErrorProc: */
SOURCE(2241, 417)
SOURCE(2329, 22)
{
word pd61;
pd61 = (* (( (ptr) (* (( (ptr) gf←c30464)+105)/* var←c28096 */ ))+34) );
ros←v6080 = (word) ( *( (fPt) ((* (ptr) pd61 ))))(0, pd61);
};
SOURCE(2353, 24)
key←v6108 = (* (( (ptr) gf←c30464)+47) );
SOURCE(2426, 57)
if ((0 != warning←v4932)) {
SOURCE(2443, 20)
key←v6108 = (* (( (ptr) gf←c30464)+46) );
SOURCE(2465, 18)
severity←v6136 = 1;
};
SOURCE(2486, 80)
if ((error←v4904.f0 != 0)) {
SOURCE(2510, 56)
{
W2 var←c28128;
var←c28128.f0 = 5;
var←c28128.f1 = error←v4904.f0;
{
word pd62;
pd62 = (* (( (ptr) (* (( (ptr) gf←c30464)+105)/* var←c28096 */ ))+61) );
(void) ( *( (fPt) ((* (ptr) pd62 ))))(ros←v6080, (* (( (ptr) gf←c30464)+45) ), var←c28128, pd62);
};
};
};
SOURCE(2568, 34)
{
word pd63;
pd63 = (* (( (ptr) (* (( (ptr) gf←c30464)+105)/* var←c28096 */ ))+93) );
(void) ( *( (fPt) ((* (ptr) pd63 ))))(ros←v6080, error←v4904.f1, 0, 2147483647, pd63);
};
SOURCE(2604, 54)
{
word var←c28160;
{
word pd64;
pd64 = (* (( (ptr) (* (( (ptr) gf←c30464)+105)/* var←c28096 */ ))+35) );
var←c28160 = (word) ( *( (fPt) ((* (ptr) pd64 ))))(ros←v6080, 1, pd64);
};
(void) Feedback←P480(instance←v4876, key←v6108, severity←v6136, var←c28160);
};
}
static void ipLogProc←P420(instance←v4992, class←v5020, code←v5048, explanation←v5076, propList←v5104)
word instance←v4992;
word class←v5020;
word code←v5048;
word explanation←v5076;
word propList←v5104;
{
register ptr gf←c30496 = (ptr) &globalframe;
word out←v6180;
word key←v6208;
word severity←v6236;
/* ipLogProc: */
SOURCE(2664, 1158)
SOURCE(2790, 22)
{
word pd65;
pd65 = (* (( (ptr) (* (( (ptr) gf←c30496)+105)/* var←c28096 */ ))+34) );
out←v6180 = (word) ( *( (fPt) ((* (ptr) pd65 ))))(0, pd65);
};
SOURCE(2814, 378)
{
word var←c28192;
var←c28192 = class←v5020;
if (( (int)var←c28192 >= (int)100)) {
key←v6208 = (* (( (ptr) gf←c30496)+44) );
goto endif066;
};
if (( (int)var←c28192 >= (int)60)) {
key←v6208 = (* (( (ptr) gf←c30496)+46) );
goto endif066;
};
if (( (int)var←c28192 >= (int)50)) {
key←v6208 = (* (( (ptr) gf←c30496)+47) );
goto endif066;
};
if (( (int)var←c28192 >= (int)10)) {
key←v6208 = (* (( (ptr) gf←c30496)+40) );
goto endif066;
};
if (( (int)var←c28192 >= (int)0)) {
key←v6208 = (* (( (ptr) gf←c30496)+39) );
goto endif066;
};
key←v6208 = (* (( (ptr) gf←c30496)+39) );
goto endif066;
endif066: ;
};
SOURCE(3194, 356)
{
word var←c28224;
var←c28224 = class←v5020;
if (( (int)var←c28224 >= (int)100)) {
severity←v6236 = 0;
goto endif067;
};
if (( (int)var←c28224 >= (int)60)) {
severity←v6236 = 1;
goto endif067;
};
if (( (int)var←c28224 >= (int)50)) {
severity←v6236 = 1;
goto endif067;
};
if (( (int)var←c28224 >= (int)10)) {
severity←v6236 = 1;
goto endif067;
};
if (( (int)var←c28224 >= (int)0)) {
severity←v6236 = 2;
goto endif067;
};
severity←v6236 = 2;
goto endif067;
endif067: ;
};
SOURCE(3552, 66)
if (( (int)class←v5020 != (int)0)) {
SOURCE(3570, 48)
{
W2 var←c28256;
var←c28256.f0 = 5;
var←c28256.f1 = class←v5020;
{
word pd68;
pd68 = (* (( (ptr) (* (( (ptr) gf←c30496)+105)/* var←c28096 */ ))+61) );
(void) ( *( (fPt) ((* (ptr) pd68 ))))(out←v6180, (* (( (ptr) gf←c30496)+38) ), var←c28256, pd68);
};
};
};
SOURCE(3620, 116)
if ((code←v5048 != 0)) {
SOURCE(3638, 98)
{
word var←c28288;
{
word pd69;
pd69 = (* (( (ptr) (* (( (ptr) gf←c30496)+104)/* var←c28064 */ ))+6) );
var←c28288 = (word) ( *( (fPt) ((* (ptr) pd69 ))))(code←v5048, pd69);
};
{
W2 var←c28320;
W2 var←c28352;
W2 var←c0254;
var←c28320.f0 = 1;
var←c28320.f1 = var←c28288;
var←c28352.f0 = 5;
var←c28352.f1 = code←v5048;
(* (ptr) (word) &var←c0254 ) = 0;
(* (( (ptr) (word) &var←c0254) + 1) ) = 0;
{
word pd70;
pd70 = (* (( (ptr) (* (( (ptr) gf←c30496)+105)/* var←c28096 */ ))+60) );
(void) ( *( (fPt) ((* (ptr) pd70 ))))(out←v6180, (* (( (ptr) gf←c30496)+35) ), var←c28320, var←c28352, var←c0254, pd70);
};
};
};
};
SOURCE(3738, 28)
{
word pd71;
pd71 = (* (( (ptr) (* (( (ptr) gf←c30496)+105)/* var←c28096 */ ))+93) );
(void) ( *( (fPt) ((* (ptr) pd71 ))))(out←v6180, explanation←v5076, 0, 2147483647, pd71);
};
SOURCE(3768, 54)
{
word var←c28416;
{
word pd72;
pd72 = (* (( (ptr) (* (( (ptr) gf←c30496)+105)/* var←c28096 */ ))+35) );
var←c28416 = (word) ( *( (fPt) ((* (ptr) pd72 ))))(out←v6180, 1, pd72);
};
(void) Feedback←P480(instance←v4992, key←v6208, severity←v6236, var←c28416);
};
}
static void Feedback←P480(instance←v5164, key←v5192, severity←v5220, info←v5248)
word instance←v5164;
word key←v5192;
word severity←v5220;
word info←v5248;
{
register ptr gf←c30528 = (ptr) &globalframe;
/* Feedback: */
SOURCE(3828, 381)
SOURCE(3952, 176)
{
word var←c28448;
var←c28448 = (* (( (ptr) instance←v5164)+9) );
if ((var←c28448 == 0)) {
goto lab←L100011;
};
if (((* (( (ptr) gf←c30528)+34) ) == XR←GetReferentType(var←c28448))) {
{
word tm←v6280;
tm←v6280 = var←c28448;
SOURCE(4008, 120)
{
word pd73;
pd73 = (* (( (ptr) (* (( (ptr) gf←c30528)+106)/* var←c28480 */ ))+5) );
if (((word) ( *( (fPt) ((* (ptr) pd73 ))))((* (( (ptr) tm←v6280)+2) ), (* (( (ptr) gf←c30528)+36) ), pd73) == 0)) {
SOURCE(4066, 62)
{
word pd74;
pd74 = (* (( (ptr) (* (( (ptr) gf←c30528)+106)/* var←c28480 */ ))+4) );
(* (( (ptr) tm←v6280)+2) ) = (word) ( *( (fPt) ((* (ptr) pd74 ))))((* (( (ptr) tm←v6280)+2) ), (* (( (ptr) gf←c30528)+36)
), (* (( (ptr) gf←c30528)+37) ), pd74);
};
};
};
};
}
else {
lab←L100011: ;
};
};
SOURCE(4145, 64)
{
word pd75;
pd75 = (* (ptr) (* (( (ptr) (* (( (ptr) instance←v5164)+1) ))+8) ) );
(void) ( *( (fPt) ((* (ptr) pd75 ))))(instance←v5164, key←v5192, severity←v5220, info←v5248, pd75);
};
}
static word ipGuessProc←P540(data←v11228, seq←v11256)
word data←v11228;
word seq←v11256;
{
register ptr gf←c30560 = (ptr) &globalframe;
word var←c11300;
word probability←v6324;
word lead←v6352;
word init←v6380;
word var←c28576;
word object←v26864;
/* ipGuessProc: */
SOURCE(4215, 343)
SOURCE(4242, 23)
probability←v6324 = (* (ptr) &fc76 );
SOURCE(4267, 42)
{
word pd77;
pd77 = (* (( (ptr) (* (( (ptr) gf←c30560)+107)/* var←c28512 */ ))+6) );
lead←v6352 = (word) ( *( (fPt) ((* (ptr) pd77 ))))(26, pd77);
};
SOURCE(4311, 31)
{
word pd78;
pd78 = (* (( (ptr) (* (( (ptr) gf←c30560)+105)/* var←c28096 */ ))+29) );
init←v6380 = (word) ( *( (fPt) ((* (ptr) pd78 ))))((* (ptr) (seq←v11256) ), pd78);
};
SOURCE(4344, 46)
{
word var←c28544;
{
word pd79;
word idx80;
pd79 = (* (( (ptr) (* (( (ptr) gf←c30560)+105)/* var←c28096 */ ))+13) );
var←c28544 = (
idx80 = (word) ( *( (fPt) ((* (ptr) pd79 ))))((* (ptr) seq←v11256 ), lead←v6352, 0, 26, pd79),
BCK(idx80, 32768)
);
};
(* (hPt) lead←v6352 ) = var←c28544;
};
SOURCE(4392, 25)
{
word pd81;
pd81 = (* (( (ptr) (* (( (ptr) gf←c30560)+105)/* var←c28096 */ ))+30) );
(void) ( *( (fPt) ((* (ptr) pd81 ))))((* (ptr) seq←v11256 ), init←v6380, pd81);
};
SOURCE(4419, 87)
object←v26864 = lead←v6352;
{
word pd82;
pd82 = (* (( (ptr) (* (( (ptr) gf←c30560)+102)/* var←c27872 */ ))+23) );
var←c28576 = (word) ( *( (fPt) ((* (ptr) pd82 ))))((* (( (ptr) gf←c30560)+41) ), object←v26864, 0, pd82);
};
if ((0 != var←c28576)) {
SOURCE(4487, 19)
probability←v6324 = (* (ptr) &fc83 );
};
SOURCE(4508, 28)
{
word pd84;
pd84 = (* (( (ptr) (* (( (ptr) gf←c30560)+107)/* var←c28512 */ ))+7) );
(void) ( *( (fPt) ((* (ptr) pd84 ))))(lead←v6352, pd84);
};
SOURCE(4538, 20)
return(probability←v6324);
}
static word GetCopies←P600(instance←v5320)
word instance←v5320;
{
register ptr gf←c30592 = (ptr) &globalframe;
word copies←v5364;
word values←v6436;
/* GetCopies: */
SOURCE(4564, 547)
SOURCE(4564, 547)
copies←v5364 = 0;
SOURCE(4636, 102)
{
word pd85;
pd85 = (* (( (ptr) (* (( (ptr) (* (( (ptr) instance←v5320)+1) ))+8) ))+1) );
values←v6436 = (word) ( *( (fPt) ((* (ptr) pd85 ))))((* (( (ptr) instance←v5320)+1) ), (* (( (ptr) gf←c30592)+42) ), pd85)
;
};
SOURCE(4740, 211)
if ( ( (values←v6436 != 0) ? ((* (ptr) values←v6436 ) > 0) : 0 ) ) {
SOURCE(4780, 171)
{
word var←c28640;
{
word limit86;
var←c28640 = (* ((( (ptr) values←v6436)+1)+(
limit86 = (* (ptr) values←v6436 ),
BCK(0, limit86)
)) );
};
if ((var←c28640 == 0)) {
goto lab←L100013;
};
{
word var←c28672;
var←c28672 = (* (ptr) var←c28640 );
if ((var←c28672 == 1)) {
{
word iv←v6480;
iv←v6480 = var←c28640;
SOURCE(4854, 27)
{
word x87;
copies←v5364 = (x87 = (* (( (ptr) iv←v6480)+1) ),
MAX((int)(word), x87, 0));
};
};
}
else {
if ((var←c28672 == 0)) {
{
word cv←v6536;
cv←v6536 = var←c28640;
SOURCE(4931, 20)
copies←v5364 = (* (( (ptr) cv←v6536)+1) );
};
}
else {
lab←L100013: ;
};
};
};
};
};
SOURCE(4962, 149)
if ((copies←v5364 > 20000)) {
SOURCE(4987, 108)
(void) ipLogProc←P420(instance←v5320, 10, 1, (* (( (ptr) gf←c30592)+43) ), 0);
SOURCE(5097, 14)
copies←v5364 = 20000;
};
SOURCE(4564, 547)
return(copies←v5364);
}
static word ipOpenProc←P660(data←v11360, formal←c0270)
word data←v11360;
word formal←c0270;
{
W11 var←c30624;
/* declaration of seq←v11388 skipped */
register ptr gf←c30656 = (ptr) &globalframe;
word var←c11432;
/* declaration of var←c28704 skipped */
/* declaration of var←c28736 skipped */
/* declaration of fileID←v6592 skipped */
(* (( (ptr) &var←c30624)+4)/* seq←v11388 */ ) = formal←c0270;
/* ipOpenProc: */
SOURCE(5120, 1378)
{
word tmpAddr88;
tmpAddr88 = (word) (( (ptr) &var←c30624)+5)/* var←c28704 */ ;
(* (ptr) tmpAddr88 ) = ( ((word) (fPt) doOpen←P1752) );
(* (( (ptr) tmpAddr88) + 1) ) = 1;
};
{
word tmpAddr89;
tmpAddr89 = (word) (( (ptr) &var←c30624)+7)/* var←c28736 */ ;
(* (ptr) tmpAddr89 ) = ( ((word) (fPt) localLog←P1692) );
(* (( (ptr) tmpAddr89) + 1) ) = 1;
};
SOURCE(5145, 41)
(* (( (ptr) &var←c30624)+9)/* fileID←v6592 */ ) = (word) FileIDFromStream←P60((* (ptr) ((* (( (ptr) &var←c30624)+4)/* seq←v11388 */ )) ))
;
SOURCE(5188, 1310)
{
word var←c28768;
var←c28768 = (word) GetFromCache←P240((* ((( (ptr) &var←c30624)+9)/* fileID←v6592 */ ) ));
if ((var←c28768 == 0)) {
goto lab←L100014;
};
if (((* (( (ptr) gf←c30656)+31) ) == XR←GetReferentType(var←c28768))) {
{
word instance←v6636;
instance←v6636 = var←c28768;
SOURCE(5250, 16)
{
word pd90;
pd90 = (* (( (ptr) (* (( (ptr) gf←c30656)+105)/* var←c28096 */ ))+28) );
(void) ( *( (fPt) ((* (ptr) pd90 ))))((* (ptr) (* (( (ptr) &var←c30624)+4)/* seq←v11388 */ ) ), 0, pd90);
};
SOURCE(5293, 24)
(* (( (ptr) instance←v6636)+1) ) = (* (( (ptr) &var←c30624)+4)/* seq←v11388 */ );
SOURCE(5319, 37)
{
word var←c28800;
{
word idx91;
var←c28800 = (
idx91 = (word) GetCopies←P600(instance←v6636),
SGNCK(idx91)
);
};
(* (( (ptr) instance←v6636)+4) ) = var←c28800;
};
SOURCE(5358, 57)
{
word tadr92;
tadr92 = (word) (( (ptr) instance←v6636) + 3);
(* (ptr) tadr92 ) = ((* (ptr) tadr92 ) & 4294967291) | (((word) (((unsigned)(* (( (bPt) (* (( (ptr) instance←v6636)+1) ))+31)
) << 29) >> 31)) << 2);
};
SOURCE(5417, 17)
return(instance←v6636);
};
}
else {
lab←L100014: ;
SOURCE(5450, 1050)
{
/* declaration of instance←v6680 skipped */
SOURCE(5452, 129)
(* (( (ptr) &var←c30624)+10)/* instance←v6680 */ ) = XR←NewObject(40, (* (( (ptr) gf←c30656)+31) ));
(* (ptr) (* (( (ptr) &var←c30624)+10)/* instance←v6680 */ ) ) = data←v11360;
(* (( (ptr) (* (( (ptr) &var←c30624)+10)/* instance←v6680 */ ))+1) ) = (* (( (ptr) &var←c30624)+4)/* seq←v11388 */ );
(* (( (ptr) (* (( (ptr) &var←c30624)+10)/* instance←v6680 */ ))+6) ) = (word) -1;
(* (( (ptr) (* (( (ptr) &var←c30624)+10)/* instance←v6680 */ ))+8) ) = (* (( (ptr) gf←c30656)+9)/* ipInstanceProcs←v3840 */ );
SOURCE(6344, 37)
{
word var←c28864;
{
word idx93;
var←c28864 = (
idx93 = (word) GetCopies←P600((* ((( (ptr) &var←c30624)+10)/* instance←v6680 */ ) )),
SGNCK(idx93)
);
};
(* (( (ptr) (* (( (ptr) &var←c30624)+10)/* instance←v6680 */ ))+4) ) = var←c28864;
};
SOURCE(6383, 30)
{
word var←c28896;
var←c28896 = (word) Protect←P300((* (( (ptr) &var←c30624)+10)/* instance←v6680 */ ), (word) (( (bPt) &var←c30624)+20)/* var←c28704 */ )
;
};
SOURCE(6415, 64)
if (((* (( (ptr) &var←c30624)+9)/* fileID←v6592 */ ) != 0)) {
SOURCE(6436, 43)
{
word var←c28928;
var←c28928 = (word) Clone←P960((* (( (ptr) &var←c30624)+10)/* instance←v6680 */ ), 1);
(void) EnterInCache←P180((* (( (ptr) &var←c30624)+9)/* fileID←v6592 */ ), var←c28928);
};
};
SOURCE(6481, 17)
return((* (( (ptr) &var←c30624)+10)/* instance←v6680 */ ));
};
};
};
}
static void localLog←P1692(class←v22744, code←v22772, explanation←v22800, propList←v22828, formal←c30688)
word class←v22744;
word code←v22772;
word explanation←v22800;
word propList←v22828;
word formal←c30688;
{
formal←c30688 = (formal←c30688 - 28);
/* localLog: */
SOURCE(5583, 42)
SOURCE(5627, 55)
(void) ipLogProc←P420((* (( (ptr) formal←c30688)+10) ), class←v22744, code←v22772, explanation←v22800, propList←v22828);
}
static void doOpen←P1752(instance←v6812, formal←c30752)
word instance←v6812;
word formal←c30752;
{
register ptr gf←c30720 = (ptr) &globalframe;
word reverse←v6840;
word credentials←v6868 = 0;
word externalInstructions←v6896;
word defaultInstructions←v6924 = 0;
word master←v6952;
formal←c30752 = (formal←c30752 - 20);
/* doOpen: */
SOURCE(5687, 14)
SOURCE(5725, 48)
reverse←v6840 = (unsigned) (((unsigned)(* (( (bPt) (* (( (ptr) instance←v6812)+1) ))+31) ) << 29) >> 31);
SOURCE(5838, 54)
externalInstructions←v6896 = (word) MakeInstructions←P1140(instance←v6812);
SOURCE(5965, 193)
{
word pd94;
pd94 = (* (( (ptr) (* (( (ptr) gf←c30720)+108)/* var←c28960 */ ))+6) );
master←v6952 = (word) ( *( (fPt) ((* (ptr) pd94 ))))((* (ptr) (* (( (ptr) formal←c30752)+4) ) ), (word) (( (bPt) formal←c30752)+28)
, credentials←v6868, externalInstructions←v6896, defaultInstructions←v6924, pd94);
};
SOURCE(6160, 71)
{
word var←c28992;
var←c28992 = XR←NewObject(12, (* (( (ptr) gf←c30720)+34) ));
(* (ptr) var←c28992 ) = (* (( (ptr) formal←c30752)+9) );
(* (( (ptr) var←c28992)+1) ) = master←v6952;
(* (( (ptr) instance←v6812)+9) ) = var←c28992;
};
SOURCE(6233, 29)
(* (( (ptr) instance←v6812)+6) ) = (* (ptr) master←v6952 );
SOURCE(6264, 75)
{
word tadr95;
tadr95 = (word) (( (ptr) instance←v6812) + 3);
(* (ptr) tadr95 ) = ((* (ptr) tadr95 ) & 4294967288) | ((word) ((((word) (unsigned) (reverse←v6840 & 1) << 2) + 2) & 7))
;
};
}
static void ipCleanProc←P720(data←v11492)
word data←v11492;
{
/* ipCleanProc: */
}
static void ipAttributesProc←P780(instance←v11552)
word instance←v11552;
{
W6 var←c30784;
/* declaration of var←c29056 skipped */
/* ipAttributesProc: */
SOURCE(6538, 129)
{
word tmpAddr96;
tmpAddr96 = (word) (( (ptr) &var←c30784)+4)/* var←c29056 */ ;
(* (ptr) tmpAddr96 ) = ( ((word) (fPt) inner←P1812) );
(* (( (ptr) tmpAddr96) + 1) ) = 1;
};
SOURCE(6638, 29)
{
word var←c29088;
var←c29088 = (word) Protect←P300(instance←v11552, (word) (( (bPt) &var←c30784)+16)/* var←c29056 */ );
};
}
static void inner←P1812(inst←v7108, formal←c30848)
word inst←v7108;
word formal←c30848;
{
register ptr gf←c30816 = (ptr) &globalframe;
formal←c30848 = (formal←c30848 - 16);
/* inner: */
SOURCE(6575, 58)
SOURCE(6608, 25)
{
word pd97;
pd97 = (* (( (ptr) (* (( (ptr) gf←c30816)+109)/* var←c29120 */ ))+5) );
(void) ( *( (fPt) ((* (ptr) pd97 ))))(inst←v7108, pd97);
};
}
static word ipPageProc←P840(instance←v11612, formal←c0271, formal←c0272)
word instance←v11612;
word formal←c0271;
word formal←c0272;
{
W9 var←c30880;
/* declaration of page←v11640 skipped */
/* declaration of copy←v11668 skipped */
word var←c11712;
/* declaration of var←c29152 skipped */
/* declaration of flags←v7136 skipped */
(* (( (ptr) &var←c30880)+4)/* page←v11640 */ ) = formal←c0271;
(* (( (ptr) &var←c30880)+5)/* copy←v11668 */ ) = formal←c0272;
/* ipPageProc: */
SOURCE(6672, 1578)
{
word tmpAddr98;
tmpAddr98 = (word) (( (ptr) &var←c30880)+6)/* var←c29152 */ ;
(* (ptr) tmpAddr98 ) = ( ((word) (fPt) doPage←P1872) );
(* (( (ptr) tmpAddr98) + 1) ) = 1;
};
SOURCE(6697, 21)
(* (( (ptr) &var←c30880)+8)/* flags←v7136 */ ) = 0;
SOURCE(8178, 56)
if ((0 != (word) Protect←P300(instance←v11612, (word) (( (bPt) &var←c30880)+24)/* var←c29152 */ ))) {
SOURCE(8212, 22)
(* (( (ptr) (&var←c30880)) + 8) ) |= 32;
};
SOURCE(8236, 14)
return((* (( (ptr) &var←c30880)+8)/* flags←v7136 */ ));
}
static void doPage←P1872(formal←c0273, formal←c30976)
word formal←c0273;
word formal←c30976;
{
W7 var←c30912;
/* declaration of instance←v7240 skipped */
register ptr gf←c30944 = (ptr) &globalframe;
/* declaration of var←c29184 skipped */
formal←c30976 = (formal←c30976 - 24);
var←c30912.f4/* instance←v7240 */ = formal←c0273;
var←c30912.f0 = formal←c30976;
/* doPage: */
SOURCE(6720, 1453)
{
word tmpAddr99;
tmpAddr99 = (word) (( (ptr) &var←c30912)+5)/* var←c29184 */ ;
(* (ptr) tmpAddr99 ) = ( ((word) (fPt) localLog←P2028) );
(* (( (ptr) tmpAddr99) + 1) ) = 1;
};
SOURCE(6758, 1415)
{
word var←c29280;
{
word var←c29216;
SOURCE(503, 24)
{
word var←c29248;
var←c29248 = (* (( (ptr) var←c30912.f4/* instance←v7240 */ )+9) );
if ((var←c29248 == 0)) {
goto lab←L100015;
};
if (((* (( (ptr) gf←c30944)+34) ) == XR←GetReferentType(var←c29248))) {
{
word tm←v23864;
tm←v23864 = var←c29248;
var←c29216 = (* (( (ptr) tm←v23864)+1) );
};
}
else {
lab←L100015: ;
var←c29216 = 0;
goto lab←L100016;
};
};
lab←L100016: ;
var←c29280 = var←c29216;
};
if ((var←c29280 == 0)) {
goto lab←L100017;
};
if (1) {
{
word m←v7268;
m←v7268 = var←c29280;
{
word var←c29312;
SOURCE(6832, 22)
(* (( (ptr) formal←c30976) + 8) ) |= 2;
SOURCE(6856, 46)
{
word idx100;
if (( (int)(
idx100 = (* (( (ptr) formal←c30976)+4) ),
SGNCK(idx100)
) >= (int)(* (ptr) m←v7268 ))) {
SOURCE(6885, 17)
(* (( (ptr) formal←c30976) + 8) ) |= 1;
};
};
SOURCE(6904, 1225)
{
word idx101;
var←c29312 = (
idx101 = (* (( (ptr) formal←c30976)+4) ),
SGNCK(idx101)
);
};
if ( ( ( (int)var←c29312 >= (int)1) ? ( (int)var←c29312 <= (int)(* (ptr) m←v7268 )) : 0 ) ) {
SOURCE(6938, 1196)
SOURCE(7218, 56)
if ((* (( (bPt) var←c30912.f4/* instance←v7240 */ )+15) ) & 04) {
SOURCE(7249, 25)
(* (( (ptr) formal←c30976)+4) ) = (((* (ptr) m←v7268 ) - (* (( (ptr) formal←c30976)+4) )) + 1);
};
SOURCE(7276, 19)
(* (( (ptr) formal←c30976) + 8) ) |= 16;
SOURCE(7297, 22)
(* (( (ptr) formal←c30976) + 8) ) |= 2;
SOURCE(7321, 130)
{
word var←c29344;
{
W2 var←c29376;
W2 var←c29408;
W2 var←c0255;
var←c29376.f0 = 5;
{
word idx102;
var←c29376.f1 = (
/*1*/ idx102 = (* (( (ptr) formal←c30976)+4) ),
/*1*/ SGNCK(idx102)
/*1*/ );
};
var←c29408.f0 = 5;
{
word idx103;
var←c29408.f1 = (
/*1*/ idx103 = (* (( (ptr) formal←c30976)+5) ),
/*1*/ SGNCK(idx103)
/*1*/ );
};
(* (ptr) (word) &var←c0255 ) = 0;
(* (( (ptr) (word) &var←c0255) + 1) ) = 0;
{
word pd104;
pd104 = (* (( (ptr) (* (( (ptr) gf←c30944)+105)/* var←c28096 */ ))+62) );
var←c29344 = (word) ( *( (fPt) ((* (ptr) pd104 ))))((* (( (ptr) gf←c30944)+50) ), var←c29376, var←c29408, var←c0255, pd104)
;
};
};
{
word pd105;
pd105 = (* (ptr) (* (( (ptr) (* (( (ptr) var←c30912.f4/* instance←v7240 */ )+1) ))+8) ) );
(void) ( *( (fPt) ((* (ptr) pd105 ))))(var←c30912.f4/* instance←v7240 */ , (* (( (ptr) gf←c30944)+49) ), 0, var←c29344, pd105)
;
};
};
SOURCE(7453, 676)
if (((* (( (ptr) formal←c30976)+5) ) == 0)) {
SOURCE(7472, 65)
{
word pd106;
word idx107;
pd106 = (* (( (ptr) (* (( (ptr) gf←c30944)+108)/* var←c28960 */ ))+9) );
(void) ( *( (fPt) ((* (ptr) pd106 ))))(m←v7268, (
/*1*/ idx107 = (* (( (ptr) formal←c30976)+4) ),
/*1*/ SGNCK(idx107)
/*1*/ ), (* (( (ptr) var←c30912.f4/* instance←v7240 */ )+2) ), (word) (( (bPt) &var←c30912)+20)/* var←c29184 */ , 1, pd106);
};
}
else {
SOURCE(7546, 585)
{
word outputPosition←v7356 = 0;
word mediaOffset←v7384 = 0;
SOURCE(7605, 123)
{
W3 var←c29504;
{
/*1*/ word pd108;
/*1*/ word idx109;
/*1*/ word idx110;
/*1*/ pd108 = (* (( (ptr) (* (( (ptr) gf←c30944)+110)/* var←c29472 */ ))+6) );
/*1*/ (void) ( *( (fPt) ((* (ptr) pd108 ))))((word) &var←c29504, m←v7268, (
/*1*/ idx109 = (* (( (ptr) formal←c30976)+5) ),
/*1*/ SGNCK(idx109)
/*1*/ ), (
/*1*/ idx110 = (* (( (ptr) formal←c30976)+4) ),
/*1*/ SGNCK(idx110)
/*1*/ ), pd108);
/*1*/ };
outputPosition←v7356 = var←c29504.f2;
mediaOffset←v7384 = var←c29504.f1;
{
/*1*/ word tadr111;
/*1*/ tadr111 = (word) (( (ptr) formal←c30976) + 8);
/*1*/ (* (ptr) tadr111 ) = ((* (ptr) tadr111 ) & 4294967279) | (((word) ((* (( (bPt) &var←c29504)+3) ) & 1)) << 4);
/*1*/ };
};
SOURCE(7730, 399)
if ((* (( (bPt) formal←c30976)+35) ) & 020) {
SOURCE(7751, 291)
{
/*1*/ word ctx←v7428;
SOURCE(7753, 38)
/*1*/ ctx←v7428 = (* (( (ptr) var←c30912.f4/* instance←v7240 */ )+2) );
SOURCE(7793, 80)
/*1*/ {
/*1*/ word var←c29536;
/*1*/ word pd112;
/*1*/ word idx113;
/*1*/ word idx114;
/*1*/ pd112 = (* (( (ptr) (* (( (ptr) gf←c30944)+108)/* var←c28960 */ ))+10) );
/*1*/ var←c29536 = (word) ( *( (fPt) ((* (ptr) pd112 ))))(m←v7268, (
/*1*/ idx113 = (* (( (ptr) formal←c30976)+4) ),
/*1*/ SGNCK(idx113)
/*1*/ ), ctx←v7428, (word) (( (bPt) &var←c30912)+20)/* var←c29184 */ , (
/*1*/ idx114 = (* (( (ptr) formal←c30976)+5) ),
/*1*/ SGNCK(idx114)
/*1*/ ), pd112);
/*1*/ };
SOURCE(7875, 165)
/*1*/ {
/*1*/ word var←c29600;
/*1*/ {
/*1*/ word pd115;
/*1*/ pd115 = (* (( (ptr) (* (( (ptr) gf←c30944)+111)/* var←c29568 */ ))+11) );
/*1*/ var←c29600 = (word) ( *( (fPt) ((* (ptr) pd115 ))))(ctx←v7428, (* (( (ptr) gf←c30944)+51) ), pd115);
/*1*/ };
/*1*/ if ((var←c29600 == 0)) {
/*1*/ goto lab←L100018;
/*1*/ };
/*1*/ if (((* (( (ptr) gf←c30944)+23) ) == XR←GetReferentType(var←c29600))) {
/*1*/ {
/*1*/ word rc←v7472;
/*1*/ rc←v7472 = var←c29600;
SOURCE(7944, 20)
/*1*/ (* (ptr) rc←v7472 ) = outputPosition←v7356;
/*1*/ };
/*1*/ }
/*1*/ else {
/*1*/ lab←L100018: ;
SOURCE(7977, 63)
/*1*/ {
/*1*/ word var←c29632;
/*1*/ {
/*1*/ word var←c29664;
/*1*/ var←c29664 = XR←NewObject(4, (* (( (ptr) gf←c30944)+23) ));
/*1*/ (* (ptr) var←c29664 ) = outputPosition←v7356;
/*1*/ var←c29632 = var←c29664;
/*1*/ };
/*1*/ {
/*1*/ word pd116;
/*1*/ pd116 = (* (( (ptr) (* (( (ptr) gf←c30944)+111)/* var←c29568 */ ))+10) );
/*1*/ (void) ( *( (fPt) ((* (ptr) pd116 ))))(ctx←v7428, (* (( (ptr) gf←c30944)+51) ), var←c29632, pd116);
/*1*/ };
/*1*/ };
/*1*/ };
/*1*/ };
/*1*/ };
}
else {
SOURCE(8049, 80)
{
/*1*/ word pd117;
/*1*/ pd117 = (* (ptr) (* (( (ptr) (* (( (ptr) var←c30912.f4/* instance←v7240 */ )+1) ))+8) ) );
/*1*/ (void) ( *( (fPt) ((* (ptr) pd117 ))))(var←c30912.f4/* instance←v7240 */ , (* (( (ptr) gf←c30944)+49) ), 0, (* (( (ptr) gf←c30944)+53)
/*1*/ ), pd117);
/*1*/ };
};
};
};
};
};
};
}
else {
lab←L100017: ;
SOURCE(8151, 22)
(* (( (ptr) formal←c30976) + 8) ) |= 32;
};
};
}
static void localLog←P2028(class←v23912, code←v23940, explanation←v23968, propList←v23996, formal←c31040)
word class←v23912;
word code←v23940;
word explanation←v23968;
word propList←v23996;
word formal←c31040;
{
register ptr gf←c31008 = (ptr) &globalframe;
formal←c31040 = (formal←c31040 - 20);
/* localLog: */
SOURCE(6940, 42)
SOURCE(6984, 226)
if ((code←v23940 == 160)) {
SOURCE(7016, 24)
(* (( (ptr) (* (ptr) formal←c31040 )) + 8) ) &= 4294967293;
}
else {
SOURCE(7049, 104)
{
W2 var←c29696;
W2 var←c29728;
W2 var←c29760;
var←c29696.f0 = 5;
{
word idx118;
var←c29696.f1 = (
idx118 = (* (( (ptr) (* (ptr) formal←c31040 ))+4) ),
SGNCK(idx118)
);
};
var←c29728.f0 = 5;
{
word idx119;
var←c29728.f1 = (
idx119 = (* (( (ptr) (* (ptr) formal←c31040 ))+5) ),
SGNCK(idx119)
);
};
var←c29760.f0 = 11;
var←c29760.f1 = explanation←v23968;
{
word pd120;
pd120 = (* (( (ptr) (* (( (ptr) gf←c31008)+105)/* var←c28096 */ ))+62) );
explanation←v23968 = (word) ( *( (fPt) ((* (ptr) pd120 ))))((* (( (ptr) gf←c31008)+54) ), var←c29696, var←c29728, var←c29760, pd120)
;
};
};
SOURCE(7155, 55)
(void) ipLogProc←P420((* (( (ptr) formal←c31040)+4) ), class←v23912, code←v23940, explanation←v23968, propList←v23996);
};
}
static void ipCloseProc←P900(instance←v11772)
word instance←v11772;
{
W6 var←c31072;
/* declaration of var←c29792 skipped */
/* ipCloseProc: */
SOURCE(8256, 242)
{
word tmpAddr121;
tmpAddr121 = (word) (( (ptr) &var←c31072)+4)/* var←c29792 */ ;
(* (ptr) tmpAddr121 ) = ( ((word) (fPt) doClose←P2232) );
(* (( (ptr) tmpAddr121) + 1) ) = 1;
};
SOURCE(8467, 31)
{
word var←c29824;
var←c29824 = (word) Protect←P300(instance←v11772, (word) (( (bPt) &var←c31072)+16)/* var←c29792 */ );
};
}
static void doClose←P2232(instance←v7604, formal←c31136)
word instance←v7604;
word formal←c31136;
{
register ptr gf←c31104 = (ptr) &globalframe;
formal←c31136 = (formal←c31136 - 16);
/* doClose: */
SOURCE(8283, 167)
SOURCE(8322, 128)
{
word var←c29920;
{
word var←c29856;
SOURCE(503, 24)
{
word var←c29888;
var←c29888 = (* (( (ptr) instance←v7604)+9) );
if ((var←c29888 == 0)) {
goto lab←L100019;
};
if (((* (( (ptr) gf←c31104)+34) ) == XR←GetReferentType(var←c29888))) {
{
word tm←v26776;
tm←v26776 = var←c29888;
var←c29856 = (* (( (ptr) tm←v26776)+1) );
};
}
else {
lab←L100019: ;
var←c29856 = 0;
goto lab←L100020;
};
};
lab←L100020: ;
var←c29920 = var←c29856;
};
if ((var←c29920 == 0)) {
goto lab←L100021;
};
if (1) {
{
word m←v7632;
m←v7632 = var←c29920;
SOURCE(8396, 22)
(* (( (ptr) instance←v7604)+9) ) = 0;
SOURCE(8420, 30)
{
word pd122;
pd122 = (* (( (ptr) (* (( (ptr) gf←c31104)+108)/* var←c28960 */ ))+11) );
(void) ( *( (fPt) ((* (ptr) pd122 ))))(m←v7632, pd122);
};
};
}
else {
lab←L100021: ;
};
};
}
static word Clone←P960(instance←v5424, clean←v5452)
word instance←v5424;
word clean←v5452;
{
register ptr gf←c31168 = (ptr) &globalframe;
word var←c5496;
/* Clone: */
SOURCE(8504, 437)
SOURCE(8581, 334)
if ((instance←v5424 != 0)) {
SOURCE(8604, 311)
{
word var←c29952;
var←c29952 = (* (( (ptr) instance←v5424)+9) );
if ((var←c29952 == 0)) {
goto lab←L100022;
};
if (((* (( (ptr) gf←c31168)+34) ) == XR←GetReferentType(var←c29952))) {
{
word tm←v7676;
tm←v7676 = var←c29952;
SOURCE(8658, 257)
if ( ( ((* (( (ptr) tm←v7676)+1) ) != 0) ? ((* (( (ptr) tm←v7676)+2) ) == 0) : 0 ) ) {
SOURCE(8704, 213)
{
word new←v7720;
SOURCE(8706, 52)
new←v7720 = XR←NewObject(40, (* (( (ptr) gf←c31168)+31) ));
(* (W10Pt) new←v7720 ) = (* (W10Pt) instance←v5424 );
SOURCE(8760, 106)
{
word var←c30016;
{
word var←c30048;
word var←c30080;
{
/*1*/ word pd123;
/*1*/ pd123 = (* (( (ptr) (* (( (ptr) gf←c31168)+108)/* var←c28960 */ ))+8) );
/*1*/ var←c30048 = (word) ( *( (fPt) ((* (ptr) pd123 ))))((* ((( (ptr) tm←v7676)+1)) ), pd123);
/*1*/ };
var←c30080 = XR←NewObject(12, (* (( (ptr) gf←c31168)+34) ));
(* (ptr) var←c30080 ) = (* (ptr) tm←v7676 );
(* (( (ptr) var←c30080)+1) ) = var←c30048;
var←c30016 = var←c30080;
};
(* (( (ptr) new←v7720)+9) ) = var←c30016;
};
SOURCE(8868, 33)
if ((0 != clean←v5452)) {
SOURCE(8882, 19)
(* (( (ptr) new←v7720)+1) ) = 0;
};
SOURCE(8903, 12)
return(new←v7720);
};
};
};
}
else {
lab←L100022: ;
};
};
};
SOURCE(8929, 12)
return(0);
}
static word ipCloneProc←P1020(instance←v11832)
word instance←v11832;
{
word var←c11876;
/* ipCloneProc: */
SOURCE(8947, 59)
SOURCE(8974, 32)
return((word) Clone←P960(instance←v11832, 0));
}
static word ipSpecialProc←P1080(instance←v11936, op←v11964, args←v11992)
word instance←v11936;
word op←v11964;
word args←v11992;
{
word var←c12036;
/* ipSpecialProc: */
SOURCE(9010, 43)
SOURCE(9041, 12)
return(0);
}
static word MakeInstructions←P1140(inst←v5592)
word inst←v5592;
{
register ptr gf←c31200 = (ptr) &globalframe;
word var←c5636;
word instructions←v7764;
/* MakeInstructions: */
SOURCE(9582, 238)
SOURCE(9664, 133)
instructions←v7764 = XR←NewObject(8, (* (( (ptr) gf←c31200)+19) ));
(* (ptr) instructions←v7764 ) = inst←v5592;
(* (( (ptr) instructions←v7764)+1) ) = (word) (( (bPt) gf←c31200)+232)/* var←c26912 */ ;
SOURCE(9799, 21)
return(instructions←v7764);
}
static void FillInstructionsVector←P1200(instr←v15028, default←v15056, instID←v15084, ops←v15112)
word instr←v15028;
word default←v15056;
word instID←v15084;
word ops←v15112;
{
register ptr gf←c31232 = (ptr) &globalframe;
word copySelect←v7808;
/* FillInstructionsVector: */
SOURCE(9826, 481)
SOURCE(9879, 63)
{
word pd124;
pd124 = (* (( (ptr) (* (( (ptr) gf←c31232)+110)/* var←c29472 */ ))+4) );
copySelect←v7808 = (word) ( *( (fPt) ((* (ptr) pd124 ))))(23, pd124);
};
SOURCE(9944, 363)
{
word var←c30176;
var←c30176 = instr←v15028;
if ((var←c30176 == 0)) {
goto lab←L100023;
};
if (((* (( (ptr) gf←c31232)+31) ) == XR←GetReferentType(var←c30176))) {
{
word inst←v7852;
inst←v7852 = var←c30176;
{
word pd125;
pd125 = (* (( (ptr) (* (( (ptr) gf←c31232)+102)/* var←c27872 */ ))+8) );
if ((0 != (word) ( *( (fPt) ((* (ptr) pd125 ))))(instID←v15084, copySelect←v7808, 0, pd125))) {
SOURCE(10045, 267)
{
word msg←v7896;
SOURCE(10047, 60)
{
W2 var←c30208;
var←c30208.f0 = 5;
var←c30208.f1 = (* (( (ptr) inst←v7852)+4) );
{
word pd126;
pd126 = (* (( (ptr) (* (( (ptr) gf←c31232)+105)/* var←c28096 */ ))+63) );
msg←v7896 = (word) ( *( (fPt) ((* (ptr) pd126 ))))((* (( (ptr) gf←c31232)+56) ), var←c30208, pd126);
};
};
SOURCE(10109, 74)
{
word pd127;
pd127 = (* (ptr) (* (( (ptr) (* (( (ptr) inst←v7852)+1) ))+8) ) );
(void) ( *( (fPt) ((* (ptr) pd127 ))))(inst←v7852, (* (( (ptr) gf←c31232)+57) ), 0, msg←v7896, pd127);
};
SOURCE(10185, 122)
if (( (int)(* (( (ptr) inst←v7852)+4) ) > (int)0)) {
SOURCE(10211, 30)
{
word pd128;
pd128 = (* (ptr) ops←v15112 );
(void) ( *( (fPt) ((* (ptr) pd128 ))))(copySelect←v7808, pd128);
};
SOURCE(10243, 28)
{
word pd129;
pd129 = (* (( (ptr) ops←v15112)+1) );
(void) ( *( (fPt) ((* (ptr) pd129 ))))((* ((( (ptr) inst←v7852)+4)) ), pd129);
};
SOURCE(10273, 18)
{
word pd130;
pd130 = (* (( (ptr) ops←v15112)+1) );
(void) ( *( (fPt) ((* (ptr) pd130 ))))(1, pd130);
};
SOURCE(10293, 14)
{
word pd131;
pd131 = (* (( (ptr) ops←v15112)+5) );
(void) ( *( (fPt) ((* (ptr) pd131 ))))(2, pd131);
};
};
};
};
};
};
}
else {
lab←L100023: ;
};
};
}
static void NoName←Q2976(formal←c0224, formal←c200000, formal←c200001, formal←c200002, formal←c200003)
word formal←c0224;
word formal←c200000;
word formal←c200001;
word formal←c200002;
word formal←c200003;
{
register ptr gf←c0252 = (ptr) &globalframe;
if ((formal←c200001 == (* (( (ptr) (* (( (ptr) gf←c0252)+103)/* var←c28000 */ ))+21) ))) {
{
word signal←v16016;
word parameters←v16044;
signal←v16016 = (* (ptr) formal←c200003 );
parameters←v16044 = (* (( (ptr) formal←c200003)+1) );
SOURCE(1860, 168)
{
word info←v6036;
SOURCE(1862, 84)
info←v6036 = XR←NewObject(8, (* (( (ptr) gf←c0252)+26) ));
(* (ptr) info←v6036 ) = signal←v16016;
(* (( (ptr) info←v6036)+1) ) = parameters←v16044;
SOURCE(1948, 66)
{
word pd132;
pd132 = (* (ptr) (* (( (ptr) (* (( (ptr) (* (( (ptr) formal←c200000)+4) ))+1) ))+8) ) );
(void) ( *( (fPt) ((* (ptr) pd132 ))))((* (( (ptr) formal←c200000)+4) ), (* (( (ptr) gf←c0252)+48) ), 3, 0, pd132);
};
SOURCE(2016, 10)
(* (ptr) formal←c0224 ) = 2;
(* (( (ptr) formal←c0224)+1) ) = 2;
return;
};
};
}
else {
if ((formal←c200001 == (* (( (ptr) (* (( (ptr) gf←c0252)+104)/* var←c28064 */ ))+5) ))) {
{
W3 error←v16752;
error←v16752 = (* (W3Pt) formal←c200003 );
SOURCE(2055, 34)
(void) ipErrorProc←P360((* (( (ptr) formal←c200000)+4) ), error←v16752, 1);
SOURCE(2091, 6)
(* (ptr) formal←c0224 ) = 1;
(* (( (ptr) formal←c0224)+1) ) = 0;
return;
};
}
else {
if ((formal←c200001 == (* (( (ptr) (* (( (ptr) gf←c0252)+104)/* var←c28064 */ ))+4) ))) {
{
W3 error←v16904;
error←v16904 = (* (W3Pt) formal←c200003 );
SOURCE(2122, 35)
(void) ipErrorProc←P360((* (( (ptr) formal←c200000)+4) ), error←v16904, 0);
SOURCE(2159, 10)
(* (ptr) formal←c0224 ) = 2;
(* (( (ptr) formal←c0224)+1) ) = 2;
return;
};
};
};
};
(* (ptr) formal←c0224 ) = 0;
(* (( (ptr) formal←c0224)+1) ) = 0;
return;
}
/* file: SimpleIPRegister, module: SimpleIPRegister, compiled at: July 6, 1993 10:06:07 am PDT */
extern void XR←install←SimpleIPRegister() {
NoName←Q2856();
}
extern void XR←run←SimpleIPRegister() { XR←Start(&globalframe); }