/* Generated with C2C (Cedar To C)*/
/* Copyright (C) 1994 by Xerox Corporation. All rights reserved. */
/* time: March 23, 1994 11:27:28 am PST */
/* C2C version: January 12, 1994 (sun4) */
/* ref-counting: off */
/* file: NewUXIOTestImpl, module: NewUXIOTestImpl */
/* switches: bcfhklnouw */
#include <cedar/InstallationSupport.h>
#include <cedar/CedarExtra.h>
static char versionStamp[] = "@(#)mob←version [2671360653,93700843] NewUXIOTestImpl";
typedef unsigned word, *ptr;
typedef unsigned char byte, *bPt;
typedef unsigned short half, *hPt;
typedef word (*fPt)();
typedef struct {word f0, f1;} W2;
typedef struct {word f0, f1, f2, f3, f4, f5, f6;} W7;
typedef struct {word f0, f1, f2, f3, f4, f5, f6, f7;} W8;
typedef struct {W8 f; W8 r;} W16;
#define SOURCE(p, l) /* source p, l */
#define BCK(idx, lim) ( ((unsigned) idx) >= ((unsigned) lim) ? (XR←RaiseBoundsFault()) : (idx) )
#define SGNCK(i) ((int) (word) (i) < 0 ? XR←RaiseArithmeticFault(): i )
static float fc108 = 1.0;
static void NoName←Q732();
static void NewUXIOTestImpl←P0();
static void DoInternalSetIndex←P60();
static void DoGetTokenTest←P120();
static word MyTokenProc←P528();
static void DoStat←P180();
static void DoStream←P240();
static void DoStandard←P300();
static void DoFile←P360();
static void DoFlags←P420();
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[12];} string5 = {720908, "UXIODoFlags"};
static struct {unsigned f; char r[48];} string6 = {3014704, "/project/bonsai2.0/testlib/BlackWalnut.mailLog\000"};
static struct {unsigned f; char r[32];} string7 = {2031648, "GetIndex: %g, SetIndex was: %g\012"};
static struct {unsigned f; char r[28];} string8 = {1572892, "GetIndex: %g, EndOf: %g\012\000\000\000"};
static struct {unsigned f; char r[12];} string9 = {524300, "(%g) %g\012\000\000\000"};
static struct {unsigned f; char r[28];} string10 = {1769500, "Now do SetIndex back to %g\012"};
static struct {unsigned f; char r[8];} string11 = {327688, "break\000\000"};
static struct {unsigned f; char r[8];} string12 = {262152, "sepr\000\000\000"};
static struct {unsigned f; char r[8];} string13 = {327688, "other\000\000"};
static struct {unsigned f; char r[16];} string14 = {786448, " <<%g, %g>> \000\000\000"};
static struct {unsigned f; char r[28];} string15 = {1638428, "UnixSysCalls.Open failed\012\000\000"};
static struct {unsigned f; char r[16];} string16 = {851984, "FStat failed\012\000\000"};
static struct {unsigned f; char r[52];} string17 = {3145780, "[ino: %g, mode: %g, uid: %g, gid: %g, size: %g]\012\000\000\000"};
static struct {unsigned f; char r[12];} string18 = {655372, "UXIODoFile\000"};
static struct {unsigned f; char r[16];} string19 = {917520, "UXIODoStandard\000"};
static struct {unsigned f; char r[20];} string20 = {1179668, "UXIODoGetTokenTest\000"};
static struct {unsigned f; char r[24];} string21 = {1441816, "UXIODoInternalSetIndex\000"};
static struct {unsigned f; char r[40];} string22 = {2424872, "Hello world; Cedar is alive on a Sun\012\000\000"};
static struct {unsigned f; char r[12];} string23 = {720908, "a rope: %g\012"};
static struct {unsigned f; char r[8];} string24 = {262152, "rope\000\000\000"};
static struct {unsigned f; char r[12];} string25 = {720908, "an int: %g\012"};
static struct {unsigned f; char r[12];} string26 = {720908, "a char: %g\012"};
static struct {unsigned f; char r[16];} string27 = {786448, "an atom: %g\012\000\000\000"};
static struct {unsigned f; char r[8];} string28 = {262152, "atom\000\000\000"};
static struct {unsigned f; char r[12];} string29 = {720908, "a bool: %g\012"};
static struct {unsigned f; char r[12];} string30 = {720908, "a card: %g\012"};
static struct {unsigned f; char r[12];} string31 = {720908, "a real: %g\012"};
static struct {unsigned f; char r[8];} string32 = {393224, "myfile\000"};
static struct {unsigned f; char r[20];} string33 = {1179668, "wrote file myfile\012\000"};
static struct {unsigned f; char r[28];} string34 = {1572892, "now to append to myfile\012\000\000\000"};
static struct {unsigned f; char r[36];} string35 = {2228260, "finished appending to file myfile\012\000"};
static struct {unsigned f; char r[44];} string36 = {2818092, "unixflags: read=%xH, write=%xH, append=%xH\012"};
static struct {unsigned f; char r[48];} string37 = {2883632, "posixflags: read=%xH, write=%xH, append=%xH\012\000\000\000"};
static struct {unsigned f; char r[12];} string38 = {655372, "UXIODoStat\000"};
static struct {unsigned f; char r[16];} string39 = {851984, "\257\300\237\071\272\215\300\005\225\302\353\100\164\000\000"};
static struct {unsigned f; char r[12];} string40 = {589833, "\006\001\100\114\010\000\004\042\001\000\000"};
static struct {unsigned f; char r[16];} string41 = {851984, "\257\300\055\153\222\376\300\327\164\352\142\100\150\000\000"};
static struct {unsigned f; char r[16];} string42 = {851984, "\257\300\373\225\000\071\300\362\156\307\320\100\150\000\000"};
static struct {unsigned f; char r[16];} string43 = {851984, "\257\300\015\277\004\146\300\034\367\146\045\100\164\000\000"};
static struct {unsigned f; char r[16];} string44 = {851984, "\257\300\211\056\077\074\300\127\047\310\242\100\150\000\000"};
static struct {unsigned f; char r[16];} string45 = {851984, "\257\300\241\235\001\025\300\065\011\226\172\100\150\000\000"};
static struct {unsigned f; char r[16];} string46 = {851984, "\257\300\220\270\074\115\300\121\012\115\357\100\150\000\000"};
static struct {
word f0[4]; word f4; word f5; word f6;
word f7; word f8; word f9; word f10;
word f11; word f12[41]; word f53; word f54;
word f55; word f56; word f57; word f58;
word f59; word f60; word f61; word f62;
word f63; word f64; word f65; word f66;
word f67; word f68[7];
} globalframe = {
{0}, (word) 446, (word) 50264, (word) 243144,
(word) 55468, (word) 234330, (word) 158217, 0,
(word) 436, {0}, (word) DoFlags←P420, 0,
(word) DoFile←P360, 0, (word) DoStandard←P300, 0,
(word) DoStream←P240, 0, (word) DoStat←P180, 0,
(word) DoGetTokenTest←P120, 0, (word) DoInternalSetIndex←P60, 0,
(word) NewUXIOTestImpl←P0, {0}
};
static void NoName←Q732()
{
register ptr gf←c0125 = (ptr) &globalframe;
word var←c18852;
(* (( (ptr) gf←c0125)+13) ) = (word) XR←GetTypeIndex((word) &string1, 0, (word) &string2);
(* (( (ptr) gf←c0125)+18) ) = (word) XR←GetTypeIndex((word) &string3, 0, (word) &string4);
(* (ptr) (( (bPt) gf←c0125)+76) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0125)+13) ), (word) &string5);
(* (ptr) (( (bPt) gf←c0125)+80) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0125)+13) ), (word) &string6);
(* (ptr) (( (bPt) gf←c0125)+84) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0125)+13) ), (word) &string7);
(* (ptr) (( (bPt) gf←c0125)+88) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0125)+13) ), (word) &string8);
(* (ptr) (( (bPt) gf←c0125)+92) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0125)+13) ), (word) &string9);
(* (ptr) (( (bPt) gf←c0125)+96) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0125)+13) ), (word) &string10);
(* (ptr) (( (bPt) gf←c0125)+100) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0125)+13) ), (word) &string11);
(* (ptr) (( (bPt) gf←c0125)+104) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0125)+13) ), (word) &string12);
(* (ptr) (( (bPt) gf←c0125)+108) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0125)+13) ), (word) &string13);
(* (ptr) (( (bPt) gf←c0125)+112) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0125)+13) ), (word) &string14);
(* (ptr) (( (bPt) gf←c0125)+116) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0125)+13) ), (word) &string15);
(* (ptr) (( (bPt) gf←c0125)+120) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0125)+13) ), (word) &string16);
(* (ptr) (( (bPt) gf←c0125)+124) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0125)+13) ), (word) &string17);
(* (ptr) (( (bPt) gf←c0125)+128) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0125)+13) ), (word) &string18);
(* (ptr) (( (bPt) gf←c0125)+132) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0125)+13) ), (word) &string19);
(* (ptr) (( (bPt) gf←c0125)+136) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0125)+13) ), (word) &string20);
(* (ptr) (( (bPt) gf←c0125)+140) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0125)+13) ), (word) &string21);
(* (ptr) (( (bPt) gf←c0125)+144) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0125)+13) ), (word) &string22);
(* (ptr) (( (bPt) gf←c0125)+148) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0125)+13) ), (word) &string23);
(* (ptr) (( (bPt) gf←c0125)+152) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0125)+13) ), (word) &string24);
(* (ptr) (( (bPt) gf←c0125)+156) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0125)+13) ), (word) &string25);
(* (ptr) (( (bPt) gf←c0125)+160) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0125)+13) ), (word) &string26);
(* (ptr) (( (bPt) gf←c0125)+164) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0125)+13) ), (word) &string27);
(* (ptr) (( (bPt) gf←c0125)+168) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0125)+13) ), (word) &string28);
(* (ptr) (( (bPt) gf←c0125)+172) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0125)+13) ), (word) &string29);
(* (ptr) (( (bPt) gf←c0125)+176) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0125)+13) ), (word) &string30);
(* (ptr) (( (bPt) gf←c0125)+180) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0125)+13) ), (word) &string31);
(* (ptr) (( (bPt) gf←c0125)+184) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0125)+13) ), (word) &string32);
(* (ptr) (( (bPt) gf←c0125)+188) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0125)+13) ), (word) &string33);
(* (ptr) (( (bPt) gf←c0125)+192) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0125)+13) ), (word) &string34);
(* (ptr) (( (bPt) gf←c0125)+196) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0125)+13) ), (word) &string35);
(* (ptr) (( (bPt) gf←c0125)+200) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0125)+13) ), (word) &string36);
(* (ptr) (( (bPt) gf←c0125)+204) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0125)+13) ), (word) &string37);
(* (ptr) (( (bPt) gf←c0125)+208) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0125)+13) ), (word) &string38);
(void) XR←DeclareGlobalFrame((word) "NewUXIOTestImpl", &globalframe, (word) XR←GetTypeIndex((word) &string39, 0, (word) &string40)
, (word) (( (bPt) gf←c0125)+268)/* var←c16580 */ );
var←c18852 = (word) XR←ImportInterface((word) "Atom", (word) XR←GetTypeIndexS((word) (&string41)), 16);
(* (( (ptr) gf←c0125)+74)/* var←c18468 */ ) = var←c18852;
(void) XR←ImportProcS(var←c18852, 67895555);
var←c18852 = (word) XR←ImportInterface((word) "Commander", (word) XR←GetTypeIndexS((word) (&string42)), 3);
(* (( (ptr) gf←c0125)+69)/* var←c16612 */ ) = var←c18852;
(void) XR←ImportProcS(var←c18852, 1310725);
var←c18852 = (word) XR←ImportInterface((word) "IO", (word) XR←GetTypeIndexS((word) (&string43)), 103);
(* (( (ptr) gf←c0125)+71)/* var←c16676 */ ) = var←c18852;
(void) XR←ImportProcS(var←c18852, 801795);
(void) XR←ImportProcS(var←c18852, 1063171);
(void) XR←ImportProcS(var←c18852, 67392257);
(void) XR←ImportProcS(var←c18852, 134763778);
(void) XR←ImportProcS(var←c18852, 67373825);
(void) XR←ImportProcS(var←c18852, 530434);
(void) XR←ImportProcS(var←c18852, 528642);
(void) XR←ImportProcS(var←c18852, 67393281);
(void) XR←ImportProcS(var←c18852, 1071364);
(void) XR←ImportProcS(var←c18852, 67377409);
(void) XR←ImportProcS(var←c18852, 2111493);
(void) XR←ImportProcS(var←c18852, 530946);
var←c18852 = (word) XR←ImportInterface((word) "UnixSysCalls", (word) XR←GetTypeIndexS((word) (&string44)), 77);
(* (( (ptr) gf←c0125)+73)/* var←c18148 */ ) = var←c18852;
(void) XR←ImportProcS(var←c18852, 67372289);
(void) XR←ImportProcS(var←c18852, 67650050);
(void) XR←ImportProcS(var←c18852, 67906563);
var←c18852 = (word) XR←ImportInterface((word) "UXIO", (word) XR←GetTypeIndexS((word) (&string45)), 7);
(* (( (ptr) gf←c0125)+70)/* var←c16644 */ ) = var←c18852;
(void) XR←ImportProcS(var←c18852, 67895555);
(void) XR←ImportProcS(var←c18852, 67371009);
var←c18852 = (word) XR←ImportInterface((word) "UXStrings", (word) XR←GetTypeIndexS((word) (&string46)), 9);
(* (( (ptr) gf←c0125)+72)/* var←c18116 */ ) = var←c18852;
(void) XR←ImportProcS(var←c18852, 67371265);
}
static void NewUXIOTestImpl←P0(formal←c022, formal←c021)
word formal←c022;
word formal←c021;
{
register ptr gf←c18884 = (ptr) &globalframe;
/* NewUXIOTestImpl: */
SOURCE(91, 5458)
SOURCE(206, 71)
/* moved to installation proc */
/* moved to installation proc */
/* moved to installation proc */
/* moved to installation proc */
/* moved to installation proc */
/* moved to installation proc */
/* moved to installation proc */
SOURCE(5249, 40)
{
word pd47;
pd47 = (* (( (ptr) (* (( (ptr) gf←c18884)+69)/* var←c16612 */ ))+4) );
(void) ( *( (fPt) ((* (ptr) pd47 ))))((* (( (ptr) gf←c18884)+52) ), (word) (( (bPt) gf←c18884)+244)/* var←c16484 */ , 0, 0, 1, pd47)
;
};
SOURCE(5291, 64)
{
word pd48;
pd48 = (* (( (ptr) (* (( (ptr) gf←c18884)+69)/* var←c16612 */ ))+4) );
(void) ( *( (fPt) ((* (ptr) pd48 ))))((* (( (ptr) gf←c18884)+35) ), (word) (( (bPt) gf←c18884)+260)/* var←c16548 */ , 0, 0, 1, pd48)
;
};
SOURCE(5357, 56)
{
word pd49;
pd49 = (* (( (ptr) (* (( (ptr) gf←c18884)+69)/* var←c16612 */ ))+4) );
(void) ( *( (fPt) ((* (ptr) pd49 ))))((* (( (ptr) gf←c18884)+34) ), (word) (( (bPt) gf←c18884)+252)/* var←c16516 */ , 0, 0, 1, pd49)
;
};
SOURCE(5415, 48)
{
word pd50;
pd50 = (* (( (ptr) (* (( (ptr) gf←c18884)+69)/* var←c16612 */ ))+4) );
(void) ( *( (fPt) ((* (ptr) pd50 ))))((* (( (ptr) gf←c18884)+33) ), (word) (( (bPt) gf←c18884)+228)/* var←c16420 */ , 0, 0, 1, pd50)
;
};
SOURCE(5465, 40)
{
word pd51;
pd51 = (* (( (ptr) (* (( (ptr) gf←c18884)+69)/* var←c16612 */ ))+4) );
(void) ( *( (fPt) ((* (ptr) pd51 ))))((* (( (ptr) gf←c18884)+32) ), (word) (( (bPt) gf←c18884)+220)/* var←c16388 */ , 0, 0, 1, pd51)
;
};
SOURCE(5507, 42)
{
word pd52;
pd52 = (* (( (ptr) (* (( (ptr) gf←c18884)+69)/* var←c16612 */ ))+4) );
(void) ( *( (fPt) ((* (ptr) pd52 ))))((* (( (ptr) gf←c18884)+19) ), (word) (( (bPt) gf←c18884)+212)/* var←c16356 */ , 0, 0, 1, pd52)
;
};
}
static void DoInternalSetIndex←P60(formal←c033, cmd←v5492)
word formal←c033;
word cmd←v5492;
{
register ptr gf←c18916 = (ptr) &globalframe;
word result←v5536;
word msg←v5564;
word o←v3780;
word s←v3808 = 0;
/* DoInternalSetIndex: */
SOURCE(302, 441)
SOURCE(302, 441)
result←v5536 = 0;
SOURCE(302, 441)
msg←v5564 = 0;
SOURCE(348, 48)
{
word pd53;
pd53 = (* (( (ptr) (* (( (ptr) gf←c18916)+70)/* var←c16644 */ ))+4) );
o←v3780 = (word) ( *( (fPt) ((* (ptr) pd53 ))))(1, pd53);
};
SOURCE(488, 39)
{
word pd54;
pd54 = (* (( (ptr) (* (( (ptr) gf←c18916)+70)/* var←c16644 */ ))+5) );
s←v3808 = (word) ( *( (fPt) ((* (ptr) pd54 ))))((* (( (ptr) gf←c18916)+20) ), 0, 436, pd54);
};
SOURCE(529, 179)
{
register word i←v3880 = 0;
if (( (int)i←v3880 > (int)5)) {
goto lab←L100001;
};
lab←L100004: ;
SOURCE(553, 20)
{
word pd55;
pd55 = (* (( (ptr) (* (( (ptr) gf←c18916)+71)/* var←c16676 */ ))+30) );
(void) ( *( (fPt) ((* (ptr) pd55 ))))(s←v3808, (* ((( (ptr) gf←c18916)+4)/* where←v2804 */ +BCK(i←v3880, 6)) ), pd55);
};
SOURCE(575, 89)
{
word var←c16708;
{
word pd56;
pd56 = (* (( (ptr) (* (( (ptr) gf←c18916)+71)/* var←c16676 */ ))+29) );
var←c16708 = (word) ( *( (fPt) ((* (ptr) pd56 ))))(s←v3808, pd56);
};
{
W2 var←c16740;
W2 var←c16772;
W2 var←c0136;
var←c16740.f0 = 5;
var←c16740.f1 = var←c16708;
var←c16772.f0 = 5;
var←c16772.f1 = (* ((( (ptr) gf←c18916)+4)/* where←v2804 */ +BCK(i←v3880, 6)) );
(* (ptr) (word) &var←c0136 ) = 0;
(* (( (ptr) (word) &var←c0136) + 1) ) = 0;
{
word pd57;
pd57 = (* (( (ptr) (* (( (ptr) gf←c18916)+71)/* var←c16676 */ ))+60) );
(void) ( *( (fPt) ((* (ptr) pd57 ))))(o←v3780, (* (( (ptr) gf←c18916)+21) ), var←c16740, var←c16772, var←c0136, pd57);
};
};
};
SOURCE(666, 26)
{
word var←c16836;
{
word pd58;
pd58 = (* (( (ptr) (* (( (ptr) gf←c18916)+71)/* var←c16676 */ ))+91) );
var←c16836 = (word) ( *( (fPt) ((* (ptr) pd58 ))))(s←v3808, pd58);
};
{
word pd59;
pd59 = (* (( (ptr) (* (( (ptr) gf←c18916)+71)/* var←c16676 */ ))+93) );
(void) ( *( (fPt) ((* (ptr) pd59 ))))(o←v3780, var←c16836, 0, 2147483647, pd59);
};
};
SOURCE(694, 14)
{
word pd60;
pd60 = (* (( (ptr) (* (( (ptr) gf←c18916)+71)/* var←c16676 */ ))+21) );
(void) ( *( (fPt) ((* (ptr) pd60 ))))(o←v3780, 10, pd60);
};
if (( (int)i←v3880 >= (int)5)) {
goto lab←L100001;
};
i←v3880 = (i←v3880 + 1);
goto lab←L100004;
lab←L100001: ;
};
SOURCE(719, 11)
{
word pd61;
pd61 = (* (( (ptr) (* (( (ptr) gf←c18916)+71)/* var←c16676 */ ))+28) );
(void) ( *( (fPt) ((* (ptr) pd61 ))))(o←v3780, 0, pd61);
};
SOURCE(732, 11)
{
word pd62;
pd62 = (* (( (ptr) (* (( (ptr) gf←c18916)+71)/* var←c16676 */ ))+28) );
(void) ( *( (fPt) ((* (ptr) pd62 ))))(s←v3808, 0, pd62);
};
/* removed tail goto */
(* (ptr) formal←c033 ) = result←v5536;
(* (( (ptr) formal←c033)+1) ) = msg←v5564;
return;
}
static void DoGetTokenTest←P120(formal←c073, cmd←v5624)
word formal←c073;
word cmd←v5624;
{
W7 var←c18948;
register ptr gf←c18980 = (ptr) &globalframe;
word result←v5668;
word msg←v5696;
/* declaration of var←c16868 skipped */
/* declaration of o←v3924 skipped */
word s←v3952 = 0;
word pos←v3980 = 0;
/* DoGetTokenTest: */
SOURCE(749, 1389)
{
word tmpAddr63;
tmpAddr63 = (word) (( (ptr) &var←c18948)+4)/* var←c16868 */ ;
(* (ptr) tmpAddr63 ) = ( ((word) (fPt) MyTokenProc←P528) );
(* (( (ptr) tmpAddr63) + 1) ) = 1;
};
SOURCE(749, 1389)
result←v5668 = 0;
SOURCE(749, 1389)
msg←v5696 = 0;
SOURCE(791, 22)
var←c18948.f6/* o←v3924 */ = (* (( (ptr) cmd←v5624)+1) );
SOURCE(1314, 39)
{
word pd64;
pd64 = (* (( (ptr) (* (( (ptr) gf←c18980)+70)/* var←c16644 */ ))+5) );
s←v3952 = (word) ( *( (fPt) ((* (ptr) pd64 ))))((* (( (ptr) gf←c18980)+20) ), 0, 436, pd64);
};
SOURCE(1355, 83)
{
word var←c16900;
word var←c16932;
{
word pd65;
pd65 = (* (( (ptr) (* (( (ptr) gf←c18980)+71)/* var←c16676 */ ))+29) );
var←c16900 = (word) ( *( (fPt) ((* (ptr) pd65 ))))(s←v3952, pd65);
};
{
word pd66;
pd66 = (* (( (ptr) (* (( (ptr) gf←c18980)+71)/* var←c16676 */ ))+15) );
var←c16932 = (word) ( *( (fPt) ((* (ptr) pd66 ))))(s←v3952, pd66);
};
{
W2 var←c16964;
W2 var←c16996;
W2 var←c0137;
var←c16964.f0 = 5;
var←c16964.f1 = var←c16900;
var←c16996.f0 = 2;
var←c16996.f1 = var←c16932;
(* (ptr) (word) &var←c0137 ) = 0;
(* (( (ptr) (word) &var←c0137) + 1) ) = 0;
{
word pd67;
pd67 = (* (( (ptr) (* (( (ptr) gf←c18980)+71)/* var←c16676 */ ))+60) );
(void) ( *( (fPt) ((* (ptr) pd67 ))))(var←c18948.f6/* o←v3924 */ , (* (( (ptr) gf←c18980)+22) ), var←c16964, var←c16996, var←c0137, pd67)
;
};
};
};
SOURCE(1440, 101)
{
register word i←v4080 = 0;
if (( (int)i←v4080 > (int)4)) {
goto lab←L100006;
};
lab←L100009: ;
SOURCE(1464, 77)
{
word var←c17060;
W2 var←c047;
{
word pd68;
pd68 = (* (( (ptr) (* (( (ptr) gf←c18980)+71)/* var←c16676 */ ))+89) );
(void) ( *( (fPt) ((* (ptr) pd68 ))))((word) &var←c047, s←v3952, (word) (( (bPt) &var←c18948)+16)/* var←c16868 */ , pd68)
;
};
var←c17060 = var←c047.f0;
{
W2 var←c17092;
W2 var←c17124;
W2 var←c0138;
var←c17092.f0 = 5;
var←c17092.f1 = i←v4080;
var←c17124.f0 = 11;
var←c17124.f1 = var←c17060;
(* (ptr) (word) &var←c0138 ) = 0;
(* (( (ptr) (word) &var←c0138) + 1) ) = 0;
{
word pd69;
pd69 = (* (( (ptr) (* (( (ptr) gf←c18980)+71)/* var←c16676 */ ))+60) );
(void) ( *( (fPt) ((* (ptr) pd69 ))))(var←c18948.f6/* o←v3924 */ , (* (( (ptr) gf←c18980)+23) ), var←c17092, var←c17124, var←c0138, pd69)
;
};
};
};
if (( (int)i←v4080 >= (int)4)) {
goto lab←L100006;
};
i←v4080 = (i←v4080 + 1);
goto lab←L100009;
lab←L100006: ;
};
SOURCE(1552, 18)
{
word pd70;
pd70 = (* (( (ptr) (* (( (ptr) gf←c18980)+71)/* var←c16676 */ ))+29) );
pos←v3980 = (word) ( *( (fPt) ((* (ptr) pd70 ))))(s←v3952, pd70);
};
SOURCE(1572, 83)
{
word var←c17188;
word var←c17220;
{
word pd71;
pd71 = (* (( (ptr) (* (( (ptr) gf←c18980)+71)/* var←c16676 */ ))+29) );
var←c17188 = (word) ( *( (fPt) ((* (ptr) pd71 ))))(s←v3952, pd71);
};
{
word pd72;
pd72 = (* (( (ptr) (* (( (ptr) gf←c18980)+71)/* var←c16676 */ ))+15) );
var←c17220 = (word) ( *( (fPt) ((* (ptr) pd72 ))))(s←v3952, pd72);
};
{
W2 var←c17252;
W2 var←c17284;
W2 var←c0139;
var←c17252.f0 = 5;
var←c17252.f1 = var←c17188;
var←c17284.f0 = 2;
var←c17284.f1 = var←c17220;
(* (ptr) (word) &var←c0139 ) = 0;
(* (( (ptr) (word) &var←c0139) + 1) ) = 0;
{
word pd73;
pd73 = (* (( (ptr) (* (( (ptr) gf←c18980)+71)/* var←c16676 */ ))+60) );
(void) ( *( (fPt) ((* (ptr) pd73 ))))(var←c18948.f6/* o←v3924 */ , (* (( (ptr) gf←c18980)+22) ), var←c17252, var←c17284, var←c0139, pd73)
;
};
};
};
SOURCE(1657, 101)
{
register word i←v4124 = 6;
if (( (int)i←v4124 > (int)8)) {
goto lab←L100010;
};
lab←L100013: ;
SOURCE(1681, 77)
{
word var←c17348;
W2 var←c056;
{
word pd74;
pd74 = (* (( (ptr) (* (( (ptr) gf←c18980)+71)/* var←c16676 */ ))+89) );
(void) ( *( (fPt) ((* (ptr) pd74 ))))((word) &var←c056, s←v3952, (word) (( (bPt) &var←c18948)+16)/* var←c16868 */ , pd74)
;
};
var←c17348 = var←c056.f0;
{
W2 var←c17380;
W2 var←c17412;
W2 var←c0140;
var←c17380.f0 = 5;
var←c17380.f1 = i←v4124;
var←c17412.f0 = 11;
var←c17412.f1 = var←c17348;
(* (ptr) (word) &var←c0140 ) = 0;
(* (( (ptr) (word) &var←c0140) + 1) ) = 0;
{
word pd75;
pd75 = (* (( (ptr) (* (( (ptr) gf←c18980)+71)/* var←c16676 */ ))+60) );
(void) ( *( (fPt) ((* (ptr) pd75 ))))(var←c18948.f6/* o←v3924 */ , (* (( (ptr) gf←c18980)+23) ), var←c17380, var←c17412, var←c0140, pd75)
;
};
};
};
if (( (int)i←v4124 >= (int)8)) {
goto lab←L100010;
};
i←v4124 = (i←v4124 + 1);
goto lab←L100013;
lab←L100010: ;
};
SOURCE(1769, 83)
{
word var←c17476;
word var←c17508;
{
word pd76;
pd76 = (* (( (ptr) (* (( (ptr) gf←c18980)+71)/* var←c16676 */ ))+29) );
var←c17476 = (word) ( *( (fPt) ((* (ptr) pd76 ))))(s←v3952, pd76);
};
{
word pd77;
pd77 = (* (( (ptr) (* (( (ptr) gf←c18980)+71)/* var←c16676 */ ))+15) );
var←c17508 = (word) ( *( (fPt) ((* (ptr) pd77 ))))(s←v3952, pd77);
};
{
W2 var←c17540;
W2 var←c17572;
W2 var←c0141;
var←c17540.f0 = 5;
var←c17540.f1 = var←c17476;
var←c17572.f0 = 2;
var←c17572.f1 = var←c17508;
(* (ptr) (word) &var←c0141 ) = 0;
(* (( (ptr) (word) &var←c0141) + 1) ) = 0;
{
word pd78;
pd78 = (* (( (ptr) (* (( (ptr) gf←c18980)+71)/* var←c16676 */ ))+60) );
(void) ( *( (fPt) ((* (ptr) pd78 ))))(var←c18948.f6/* o←v3924 */ , (* (( (ptr) gf←c18980)+22) ), var←c17540, var←c17572, var←c0141, pd78)
;
};
};
};
SOURCE(1854, 56)
{
W2 var←c17636;
var←c17636.f0 = 5;
var←c17636.f1 = pos←v3980;
{
word pd79;
pd79 = (* (( (ptr) (* (( (ptr) gf←c18980)+71)/* var←c16676 */ ))+61) );
(void) ( *( (fPt) ((* (ptr) pd79 ))))(var←c18948.f6/* o←v3924 */ , (* (( (ptr) gf←c18980)+24) ), var←c17636, pd79);
};
};
SOURCE(1912, 15)
{
word pd80;
pd80 = (* (( (ptr) (* (( (ptr) gf←c18980)+71)/* var←c16676 */ ))+30) );
(void) ( *( (fPt) ((* (ptr) pd80 ))))(s←v3952, pos←v3980, pd80);
};
SOURCE(1929, 101)
{
register word i←v4168 = 6;
if (( (int)i←v4168 > (int)8)) {
goto lab←L100014;
};
lab←L100017: ;
SOURCE(1953, 77)
{
word var←c17668;
W2 var←c066;
{
word pd81;
pd81 = (* (( (ptr) (* (( (ptr) gf←c18980)+71)/* var←c16676 */ ))+89) );
(void) ( *( (fPt) ((* (ptr) pd81 ))))((word) &var←c066, s←v3952, (word) (( (bPt) &var←c18948)+16)/* var←c16868 */ , pd81)
;
};
var←c17668 = var←c066.f0;
{
W2 var←c17700;
W2 var←c17732;
W2 var←c0142;
var←c17700.f0 = 5;
var←c17700.f1 = i←v4168;
var←c17732.f0 = 11;
var←c17732.f1 = var←c17668;
(* (ptr) (word) &var←c0142 ) = 0;
(* (( (ptr) (word) &var←c0142) + 1) ) = 0;
{
word pd82;
pd82 = (* (( (ptr) (* (( (ptr) gf←c18980)+71)/* var←c16676 */ ))+60) );
(void) ( *( (fPt) ((* (ptr) pd82 ))))(var←c18948.f6/* o←v3924 */ , (* (( (ptr) gf←c18980)+23) ), var←c17700, var←c17732, var←c0142, pd82)
;
};
};
};
if (( (int)i←v4168 >= (int)8)) {
goto lab←L100014;
};
i←v4168 = (i←v4168 + 1);
goto lab←L100017;
lab←L100014: ;
};
SOURCE(2041, 83)
{
word var←c17796;
word var←c17828;
{
word pd83;
pd83 = (* (( (ptr) (* (( (ptr) gf←c18980)+71)/* var←c16676 */ ))+29) );
var←c17796 = (word) ( *( (fPt) ((* (ptr) pd83 ))))(s←v3952, pd83);
};
{
word pd84;
pd84 = (* (( (ptr) (* (( (ptr) gf←c18980)+71)/* var←c16676 */ ))+15) );
var←c17828 = (word) ( *( (fPt) ((* (ptr) pd84 ))))(s←v3952, pd84);
};
{
W2 var←c17860;
W2 var←c17892;
W2 var←c0143;
var←c17860.f0 = 5;
var←c17860.f1 = var←c17796;
var←c17892.f0 = 2;
var←c17892.f1 = var←c17828;
(* (ptr) (word) &var←c0143 ) = 0;
(* (( (ptr) (word) &var←c0143) + 1) ) = 0;
{
word pd85;
pd85 = (* (( (ptr) (* (( (ptr) gf←c18980)+71)/* var←c16676 */ ))+60) );
(void) ( *( (fPt) ((* (ptr) pd85 ))))(var←c18948.f6/* o←v3924 */ , (* (( (ptr) gf←c18980)+22) ), var←c17860, var←c17892, var←c0143, pd85)
;
};
};
};
SOURCE(2127, 11)
{
word pd86;
pd86 = (* (( (ptr) (* (( (ptr) gf←c18980)+71)/* var←c16676 */ ))+28) );
(void) ( *( (fPt) ((* (ptr) pd86 ))))(s←v3952, 0, pd86);
};
/* removed tail goto */
(* (ptr) formal←c073 ) = result←v5668;
(* (( (ptr) formal←c073)+1) ) = msg←v5696;
return;
}
static word MyTokenProc←P528(char←v11644, formal←c19044)
word char←v11644;
word formal←c19044;
{
register ptr gf←c19012 = (ptr) &globalframe;
word var←c11688;
word cc←v4212;
word what←v4240 = 0;
formal←c19044 = (formal←c19044 - 16);
/* MyTokenProc: */
SOURCE(919, 389)
SOURCE(984, 239)
{
word var←c17956;
var←c17956 = char←v11644;
if (((((((((((((var←c17956 == 91) || (var←c17956 == 93)) || (var←c17956 == 40)) || (var←c17956 == 41)) || (var←c17956 == 123)) || (var←c17956 == 125)) || (var←c17956 == 34)) || (var←c17956 == 43)) || (var←c17956 == 45)) || (var←c17956 == 42)) || (var←c17956 == 47)) || (var←c17956 == 64)) || (var←c17956 == 95)) {
SOURCE(1057, 10)
cc←v4212 = 0;
SOURCE(1069, 14)
what←v4240 = (* (( (ptr) gf←c19012)+25) );
goto endif087;
};
if ((var←c17956 <= 32)) {
SOURCE(1112, 9)
cc←v4212 = 1;
SOURCE(1123, 14)
what←v4240 = (* (( (ptr) gf←c19012)+26) );
goto endif087;
};
if (((var←c17956 == 44) || (var←c17956 == 58)) || (var←c17956 == 59)) {
SOURCE(1156, 9)
cc←v4212 = 1;
SOURCE(1167, 14)
what←v4240 = (* (( (ptr) gf←c19012)+26) );
goto endif087;
};
SOURCE(1197, 10)
cc←v4212 = 2;
SOURCE(1209, 14)
what←v4240 = (* (( (ptr) gf←c19012)+27) );
goto endif087;
endif087: ;
};
SOURCE(1226, 70)
if ((0 != (* (( (ptr) gf←c19012)+10)/* debug←v2832 */ ))) {
SOURCE(1240, 56)
{
W2 var←c17988;
W2 var←c18020;
W2 var←c0144;
var←c17988.f0 = 3;
var←c17988.f1 = char←v11644;
var←c18020.f0 = 11;
var←c18020.f1 = what←v4240;
(* (ptr) (word) &var←c0144 ) = 0;
(* (( (ptr) (word) &var←c0144) + 1) ) = 0;
{
word pd88;
pd88 = (* (( (ptr) (* (( (ptr) gf←c19012)+71)/* var←c16676 */ ))+60) );
(void) ( *( (fPt) ((* (ptr) pd88 ))))((* (( (ptr) formal←c19044)+6) ), (* (( (ptr) gf←c19012)+28) ), var←c17988, var←c18020, var←c0144, pd88)
;
};
};
};
SOURCE(1298, 10)
return(cc←v4212);
}
static void DoStat←P180(formal←c093, cmd←v5788)
word formal←c093;
word cmd←v5788;
{
register ptr gf←c19076 = (ptr) &globalframe;
word result←v5832;
word msg←v5860;
word o←v4284;
W16 stat←v4340;
word cName←v4368;
word res←v4396;
word fd←v4424;
/* DoStat: */
SOURCE(2186, 678)
SOURCE(2186, 678)
result←v5832 = 0;
SOURCE(2186, 678)
msg←v5860 = 0;
SOURCE(2220, 22)
o←v4284 = (* (( (ptr) cmd←v5788)+1) );
SOURCE(2314, 20)
XR←FillWords(&stat←v4340, 16, 0);
SOURCE(2336, 50)
{
word pd89;
pd89 = (* (( (ptr) (* (( (ptr) gf←c19076)+72)/* var←c18116 */ ))+5) );
cName←v4368 = (word) ( *( (fPt) ((* (ptr) pd89 ))))((* ((( (ptr) gf←c19076)+20)) ), pd89);
};
SOURCE(2398, 67)
{
word pd90;
pd90 = (* (( (ptr) (* (( (ptr) gf←c19076)+73)/* var←c18148 */ ))+48) );
fd←v4424 = (word) ( *( (fPt) ((* (ptr) pd90 ))))(cName←v4368, 0, (* (( (ptr) gf←c19076)+11)/* mode←v2916 */ ), pd90);
};
SOURCE(2467, 69)
if ((fd←v4424 == (word) -1)) {
SOURCE(2488, 39)
{
word pd91;
pd91 = (* (( (ptr) (* (( (ptr) gf←c19076)+71)/* var←c16676 */ ))+93) );
(void) ( *( (fPt) ((* (ptr) pd91 ))))(o←v4284, (* (( (ptr) gf←c19076)+29) ), 0, 2147483647, pd91);
};
SOURCE(2529, 7)
goto lab←L100018;
};
SOURCE(2547, 38)
SOURCE(2549, 36)
{
word pd92;
pd92 = (* (( (ptr) (* (( (ptr) gf←c19076)+73)/* var←c18148 */ ))+70) );
res←v4396 = (word) ( *( (fPt) ((* (ptr) pd92 ))))(fd←v4424, (word) &stat←v4340, pd92);
};
SOURCE(2588, 60)
if ((res←v4396 != 0)) {
SOURCE(2612, 27)
{
word pd93;
pd93 = (* (( (ptr) (* (( (ptr) gf←c19076)+71)/* var←c16676 */ ))+93) );
(void) ( *( (fPt) ((* (ptr) pd93 ))))(o←v4284, (* (( (ptr) gf←c19076)+30) ), 0, 2147483647, pd93);
};
SOURCE(2641, 7)
goto lab←L100018;
};
SOURCE(2651, 184)
{
word var←c18180;
{
word var←c18212;
word var←c18244;
var←c18212 = XR←NewObject(12, (* (( (ptr) gf←c19076)+18) ));
var←c18244 = var←c18212;
(* (ptr) var←c18244 ) = 5;
{
word idx94;
(* (( (ptr) var←c18244)+1) ) = (
idx94 = (* (( (ptr) &stat←v4340)+1) ),
SGNCK(idx94)
);
};
(* (( (ptr) var←c18244)+2) ) = XR←NewObject(12, (* (( (ptr) gf←c19076)+18) ));
var←c18244 = (* (( (ptr) var←c18244)+2) );
(* (ptr) var←c18244 ) = 5;
(* (( (ptr) var←c18244)+1) ) = (unsigned) (* (( (hPt) &stat←v4340)+4) );
(* (( (ptr) var←c18244)+2) ) = XR←NewObject(12, (* (( (ptr) gf←c19076)+18) ));
var←c18244 = (* (( (ptr) var←c18244)+2) );
(* (ptr) var←c18244 ) = 5;
(* (( (ptr) var←c18244)+1) ) = (int) ( short )(* (( (hPt) &stat←v4340)+6) );
(* (( (ptr) var←c18244)+2) ) = XR←NewObject(12, (* (( (ptr) gf←c19076)+18) ));
var←c18244 = (* (( (ptr) var←c18244)+2) );
(* (ptr) var←c18244 ) = 5;
(* (( (ptr) var←c18244)+1) ) = (int) ( short )(* (( (hPt) &stat←v4340)+7) );
(* (( (ptr) var←c18244)+2) ) = XR←NewObject(12, (* (( (ptr) gf←c19076)+18) ));
var←c18244 = (* (( (ptr) var←c18244)+2) );
(* (ptr) var←c18244 ) = 5;
{
word idx95;
(* (( (ptr) var←c18244)+1) ) = (
idx95 = (* (( (ptr) &stat←v4340)+5) ),
SGNCK(idx95)
);
};
var←c18180 = var←c18212;
};
{
word pd96;
pd96 = (* (( (ptr) (* (( (ptr) gf←c19076)+71)/* var←c16676 */ ))+64) );
(void) ( *( (fPt) ((* (ptr) pd96 ))))(o←v4284, (* (( (ptr) gf←c19076)+31) ), var←c18180, pd96);
};
};
SOURCE(2837, 27)
{
word var←c18276;
word pd97;
pd97 = (* (( (ptr) (* (( (ptr) gf←c19076)+73)/* var←c18148 */ ))+9) );
var←c18276 = (word) ( *( (fPt) ((* (ptr) pd97 ))))(fd←v4424, pd97);
};
/* removed tail goto */
lab←L100018: ;
(* (ptr) formal←c093 ) = result←v5832;
(* (( (ptr) formal←c093)+1) ) = msg←v5860;
return;
}
static void DoStream←P240(s←v3256)
word s←v3256;
{
register ptr gf←c19108 = (ptr) &globalframe;
/* DoStream: */
SOURCE(2870, 539)
SOURCE(2904, 55)
{
word pd98;
pd98 = (* (( (ptr) (* (( (ptr) gf←c19108)+71)/* var←c16676 */ ))+93) );
(void) ( *( (fPt) ((* (ptr) pd98 ))))(s←v3256, (* (( (ptr) gf←c19108)+36) ), 0, 2147483647, pd98);
};
SOURCE(2961, 43)
{
W2 var←c18308;
var←c18308.f0 = 11;
var←c18308.f1 = (* (( (ptr) gf←c19108)+38) );
{
word pd99;
pd99 = (* (( (ptr) (* (( (ptr) gf←c19108)+71)/* var←c16676 */ ))+61) );
(void) ( *( (fPt) ((* (ptr) pd99 ))))(s←v3256, (* (( (ptr) gf←c19108)+37) ), var←c18308, pd99);
};
};
SOURCE(3006, 49)
{
W2 var←c18340;
var←c18340.f0 = 5;
var←c18340.f1 = 2147483647;
{
word pd100;
pd100 = (* (( (ptr) (* (( (ptr) gf←c19108)+71)/* var←c16676 */ ))+61) );
(void) ( *( (fPt) ((* (ptr) pd100 ))))(s←v3256, (* (( (ptr) gf←c19108)+39) ), var←c18340, pd100);
};
};
SOURCE(3057, 50)
{
W2 var←c18372;
var←c18372.f0 = 5;
var←c18372.f1 = 2147483648;
{
word pd101;
pd101 = (* (( (ptr) (* (( (ptr) gf←c19108)+71)/* var←c16676 */ ))+61) );
(void) ( *( (fPt) ((* (ptr) pd101 ))))(s←v3256, (* (( (ptr) gf←c19108)+39) ), var←c18372, pd101);
};
};
SOURCE(3109, 44)
{
W2 var←c18404;
var←c18404.f0 = 3;
var←c18404.f1 = 99;
{
word pd102;
pd102 = (* (( (ptr) (* (( (ptr) gf←c19108)+71)/* var←c16676 */ ))+61) );
(void) ( *( (fPt) ((* (ptr) pd102 ))))(s←v3256, (* (( (ptr) gf←c19108)+40) ), var←c18404, pd102);
};
};
SOURCE(3155, 59)
{
word var←c18436;
{
word pd103;
pd103 = (* (( (ptr) (* (( (ptr) gf←c19108)+74)/* var←c18468 */ ))+5) );
var←c18436 = (word) ( *( (fPt) ((* (ptr) pd103 ))))((* (( (ptr) gf←c19108)+42) ), 0, 2147483647, pd103);
};
{
W2 var←c18500;
var←c18500.f0 = 1;
var←c18500.f1 = var←c18436;
{
word pd104;
pd104 = (* (( (ptr) (* (( (ptr) gf←c19108)+71)/* var←c16676 */ ))+61) );
(void) ( *( (fPt) ((* (ptr) pd104 ))))(s←v3256, (* (( (ptr) gf←c19108)+41) ), var←c18500, pd104);
};
};
};
SOURCE(3216, 44)
{
W2 var←c18532;
var←c18532.f0 = 2;
var←c18532.f1 = 1;
{
word pd105;
pd105 = (* (( (ptr) (* (( (ptr) gf←c19108)+71)/* var←c16676 */ ))+61) );
(void) ( *( (fPt) ((* (ptr) pd105 ))))(s←v3256, (* (( (ptr) gf←c19108)+43) ), var←c18532, pd105);
};
};
SOURCE(3262, 51)
{
W2 var←c18564;
var←c18564.f0 = 4;
var←c18564.f1 = (word) -1;
{
word pd106;
pd106 = (* (( (ptr) (* (( (ptr) gf←c19108)+71)/* var←c16676 */ ))+61) );
(void) ( *( (fPt) ((* (ptr) pd106 ))))(s←v3256, (* (( (ptr) gf←c19108)+44) ), var←c18564, pd106);
};
};
SOURCE(3315, 52)
{
W2 var←c18596;
var←c18596.f0 = 4;
var←c18596.f1 = 0;
{
word pd107;
pd107 = (* (( (ptr) (* (( (ptr) gf←c19108)+71)/* var←c16676 */ ))+61) );
(void) ( *( (fPt) ((* (ptr) pd107 ))))(s←v3256, (* (( (ptr) gf←c19108)+44) ), var←c18596, pd107);
};
};
SOURCE(3369, 40)
{
W2 var←c18628;
var←c18628.f0 = 8;
var←c18628.f1 = (* (ptr) &fc108 );
{
word pd109;
pd109 = (* (( (ptr) (* (( (ptr) gf←c19108)+71)/* var←c16676 */ ))+61) );
(void) ( *( (fPt) ((* (ptr) pd109 ))))(s←v3256, (* (( (ptr) gf←c19108)+45) ), var←c18628, pd109);
};
};
}
static void DoStandard←P300(formal←c0109, cmd←v5920)
word formal←c0109;
word cmd←v5920;
{
register ptr gf←c19140 = (ptr) &globalframe;
word result←v5964;
word msg←v5992;
word s←v4468;
/* DoStandard: */
SOURCE(3415, 99)
SOURCE(3415, 99)
result←v5964 = 0;
SOURCE(3415, 99)
msg←v5992 = 0;
SOURCE(3453, 48)
{
word pd110;
pd110 = (* (( (ptr) (* (( (ptr) gf←c19140)+70)/* var←c16644 */ ))+4) );
s←v4468 = (word) ( *( (fPt) ((* (ptr) pd110 ))))(1, pd110);
};
SOURCE(3503, 11)
(void) DoStream←P240(s←v4468);
/* removed tail goto */
(* (ptr) formal←c0109 ) = result←v5964;
(* (( (ptr) formal←c0109)+1) ) = msg←v5992;
return;
}
static void DoFile←P360(formal←c0114, cmd←v6052)
word formal←c0114;
word cmd←v6052;
{
register ptr gf←c19172 = (ptr) &globalframe;
word result←v6096;
word msg←v6124;
word s←v4512;
/* DoFile: */
SOURCE(3520, 300)
SOURCE(3520, 300)
result←v6096 = 0;
SOURCE(3520, 300)
msg←v6124 = 0;
SOURCE(3554, 53)
{
word pd111;
pd111 = (* (( (ptr) (* (( (ptr) gf←c19172)+70)/* var←c16644 */ ))+5) );
s←v4512 = (word) ( *( (fPt) ((* (ptr) pd111 ))))((* (( (ptr) gf←c19172)+46) ), 2, 436, pd111);
};
SOURCE(3609, 11)
(void) DoStream←P240(s←v4512);
SOURCE(3622, 38)
{
word pd112;
pd112 = (* (( (ptr) (* (( (ptr) gf←c19172)+71)/* var←c16676 */ ))+93) );
(void) ( *( (fPt) ((* (ptr) pd112 ))))((* (( (ptr) cmd←v6052)+1) ), (* (( (ptr) gf←c19172)+47) ), 0, 2147483647, pd112);
};
SOURCE(3662, 44)
{
word pd113;
pd113 = (* (( (ptr) (* (( (ptr) gf←c19172)+71)/* var←c16676 */ ))+93) );
(void) ( *( (fPt) ((* (ptr) pd113 ))))((* (( (ptr) cmd←v6052)+1) ), (* (( (ptr) gf←c19172)+48) ), 0, 2147483647, pd113);
};
SOURCE(3708, 43)
{
word pd114;
pd114 = (* (( (ptr) (* (( (ptr) gf←c19172)+70)/* var←c16644 */ ))+5) );
s←v4512 = (word) ( *( (fPt) ((* (ptr) pd114 ))))((* (( (ptr) gf←c19172)+46) ), 1, 436, pd114);
};
SOURCE(3753, 11)
(void) DoStream←P240(s←v4512);
SOURCE(3766, 54)
{
word pd115;
pd115 = (* (( (ptr) (* (( (ptr) gf←c19172)+71)/* var←c16676 */ ))+93) );
(void) ( *( (fPt) ((* (ptr) pd115 ))))((* (( (ptr) cmd←v6052)+1) ), (* (( (ptr) gf←c19172)+49) ), 0, 2147483647, pd115);
};
/* removed tail goto */
(* (ptr) formal←c0114 ) = result←v6096;
(* (( (ptr) formal←c0114)+1) ) = msg←v6124;
return;
}
static void DoFlags←P420(formal←c0124, cmd←v6756)
word formal←c0124;
word cmd←v6756;
{
register ptr gf←c19204 = (ptr) &globalframe;
word result←v6800;
word msg←v6828;
/* DoFlags: */
SOURCE(4827, 415)
SOURCE(4827, 415)
result←v6800 = 0;
SOURCE(4827, 415)
msg←v6828 = 0;
SOURCE(4862, 181)
{
W2 var←c18660;
W2 var←c18692;
W2 var←c18724;
var←c18660.f0 = 5;
var←c18660.f1 = 0;
var←c18692.f0 = 5;
var←c18692.f1 = 1537;
var←c18724.f0 = 5;
var←c18724.f1 = 521;
{
word pd116;
pd116 = (* (( (ptr) (* (( (ptr) gf←c19204)+71)/* var←c16676 */ ))+60) );
(void) ( *( (fPt) ((* (ptr) pd116 ))))((* (( (ptr) cmd←v6756)+1) ), (* (( (ptr) gf←c19204)+50) ), var←c18660, var←c18692, var←c18724, pd116)
;
};
};
SOURCE(5045, 197)
{
W2 var←c18756;
W2 var←c18788;
W2 var←c18820;
var←c18756.f0 = 5;
var←c18756.f1 = 0;
var←c18788.f0 = 5;
var←c18788.f1 = 769;
var←c18820.f0 = 5;
var←c18820.f1 = 265;
{
word pd117;
pd117 = (* (( (ptr) (* (( (ptr) gf←c19204)+71)/* var←c16676 */ ))+60) );
(void) ( *( (fPt) ((* (ptr) pd117 ))))((* (( (ptr) cmd←v6756)+1) ), (* (( (ptr) gf←c19204)+51) ), var←c18756, var←c18788, var←c18820, pd117)
;
};
};
/* removed tail goto */
(* (ptr) formal←c0124 ) = result←v6800;
(* (( (ptr) formal←c0124)+1) ) = msg←v6828;
return;
}
/* file: NewUXIOTestImpl, module: NewUXIOTestImpl, compiled at: March 23, 1994 11:27:27 am PST */
extern void XR←install←NewUXIOTestImpl() {
NoName←Q732();
}
extern void XR←run←NewUXIOTestImpl() { XR←Start(&globalframe); }