/* Generated with C2C (Cedar To C)*/
/* Copyright (C) 1992 by Xerox Corporation. All rights reserved. */
/* time: February 21, 1992 11:15:51 pm PST */
/* C2C version: October 16, 1990 (native) */
/* ref-counting: off */
/* file: UXIOTestImpl, module: UXIOTestImpl */
/* switches: bcfhklnouw */
#include <cedar/InstallationSupport.h>
#include <cedar/CedarExtra.h>
static char versionStamp[] = "@(#)mob←version [548150096,165317985] UXIOTestImpl";
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;} W6;
typedef struct {word f0, f1, f2, f3, f4, f5, f6, f7;} W8;
typedef struct {W8 f; W8 r;} W16;
typedef struct {W16 f; W16 r;} W32;
typedef struct {W32 f; W32 r;} W64;
typedef struct {W64 f; W64 r;} W128;
typedef struct {word f0, f1, f2;} W3;
#define SOURCE(p, l) /* source p, l */
static float fc41 = 1.0;
static void NoName←Q576();
static void UXIOTestImpl←P0();
static void DoStream←P60();
static void DoStandard←P120();
static void DoFile←P180();
static void DoInput←P240();
static word NoName←Q636();
static void DoCopy←P300();
static void DoIndex←P360();
static void DoLength←P420();
static void NoName←Q696();
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[12];} string3 = {720908, "a rope: %g\012"};
static struct {unsigned f; char r[8];} string4 = {262152, "rope\000\000\000"};
static struct {unsigned f; char r[12];} string5 = {720908, "an int: %g\012"};
static struct {unsigned f; char r[12];} string6 = {720908, "a char: %g\012"};
static struct {unsigned f; char r[16];} string7 = {786448, "an atom: %g\012\000\000\000"};
static struct {unsigned f; char r[8];} string8 = {262152, "atom\000\000\000"};
static struct {unsigned f; char r[12];} string9 = {720908, "a bool: %g\012"};
static struct {unsigned f; char r[12];} string10 = {720908, "a card: %g\012"};
static struct {unsigned f; char r[12];} string11 = {720908, "a real: %g\012"};
static struct {unsigned f; char r[8];} string12 = {393224, "myfile\000"};
static struct {unsigned f; char r[16];} string13 = {983056, "Type a string: "};
static struct {unsigned f; char r[36];} string14 = {2097188, "The line you just typed was: %g\012\000\000\000"};
static struct {unsigned f; char r[16];} string15 = {851984, "Type an int: \000\000"};
static struct {unsigned f; char r[24];} string16 = {1310744, "\012You just typed: %g\012\000\000\000"};
static struct {unsigned f; char r[16];} string17 = {917520, "\012Caught one. \012\000"};
static struct {unsigned f; char r[32];} string18 = {2031648, "Type an end-of-file or an int: "};
static struct {unsigned f; char r[24];} string19 = {1376280, "Type input filename: \000\000"};
static struct {unsigned f; char r[24];} string20 = {1441816, "Type output filename: \000"};
static struct {unsigned f; char r[28];} string21 = {1638428, "000000000000000000000000\012\000\000"};
static struct {unsigned f; char r[12];} string22 = {524300, "11111111\000\000\000"};
static struct {unsigned f; char r[20];} string23 = {1114132, "final index = %g\012\000\000"};
static struct {unsigned f; char r[20];} string24 = {1245204, "Length of %g is %g\012"};
static struct {unsigned f; char r[40];} string25 = {2424872, "Hello world; Cedar is alive on a Sun\012\000\000"};
static struct {unsigned f; char r[16];} string26 = {851984, "\257\300\040\254\033\120\300\011\332\215\141\100\164\000\000"};
static struct {unsigned f; char r[12];} string27 = {524296, "\006\001\034\010\000\004\027\001\000\000\000"};
static struct {unsigned f; char r[16];} string28 = {851984, "\257\300\055\153\222\376\300\327\164\352\142\100\150\000\000"};
static struct {unsigned f; char r[16];} string29 = {851984, "\257\300\015\277\004\146\300\034\367\146\045\100\164\000\000"};
static struct {unsigned f; char r[16];} string30 = {851984, "\257\300\241\235\001\025\300\065\011\226\172\100\150\000\000"};
static struct {
word f0[30]; word f30; word f31; word f32;
word f33; word f34; word f35; word f36;
word f37; word f38; word f39; word f40;
word f41; word f42; word f43; word f44;
word f45[4];
} globalframe = {
{0}, (word) DoLength←P420, 0, (word) DoIndex←P360,
0, (word) DoCopy←P300, 0, (word) DoInput←P240,
0, (word) DoFile←P180, 0, (word) DoStandard←P120,
0, (word) DoStream←P60, 0, (word) UXIOTestImpl←P0,
{0}
};
static void NoName←Q576()
{
register ptr gf←c067 = (ptr) &globalframe;
word var←c11560;
(* (( (ptr) gf←c067)+5) ) = (word) XR←GetTypeIndex((word) &string1, 0, (word) &string2);
(* (ptr) (( (bPt) gf←c067)+28) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c067)+5) ), (word) &string3);
(* (ptr) (( (bPt) gf←c067)+32) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c067)+5) ), (word) &string4);
(* (ptr) (( (bPt) gf←c067)+36) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c067)+5) ), (word) &string5);
(* (ptr) (( (bPt) gf←c067)+40) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c067)+5) ), (word) &string6);
(* (ptr) (( (bPt) gf←c067)+44) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c067)+5) ), (word) &string7);
(* (ptr) (( (bPt) gf←c067)+48) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c067)+5) ), (word) &string8);
(* (ptr) (( (bPt) gf←c067)+52) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c067)+5) ), (word) &string9);
(* (ptr) (( (bPt) gf←c067)+56) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c067)+5) ), (word) &string10);
(* (ptr) (( (bPt) gf←c067)+60) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c067)+5) ), (word) &string11);
(* (ptr) (( (bPt) gf←c067)+64) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c067)+5) ), (word) &string12);
(* (ptr) (( (bPt) gf←c067)+68) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c067)+5) ), (word) &string13);
(* (ptr) (( (bPt) gf←c067)+72) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c067)+5) ), (word) &string14);
(* (ptr) (( (bPt) gf←c067)+76) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c067)+5) ), (word) &string15);
(* (ptr) (( (bPt) gf←c067)+80) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c067)+5) ), (word) &string16);
(* (ptr) (( (bPt) gf←c067)+84) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c067)+5) ), (word) &string17);
(* (ptr) (( (bPt) gf←c067)+88) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c067)+5) ), (word) &string18);
(* (ptr) (( (bPt) gf←c067)+92) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c067)+5) ), (word) &string19);
(* (ptr) (( (bPt) gf←c067)+96) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c067)+5) ), (word) &string20);
(* (ptr) (( (bPt) gf←c067)+100) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c067)+5) ), (word) &string21);
(* (ptr) (( (bPt) gf←c067)+104) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c067)+5) ), (word) &string22);
(* (ptr) (( (bPt) gf←c067)+108) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c067)+5) ), (word) &string23);
(* (ptr) (( (bPt) gf←c067)+112) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c067)+5) ), (word) &string24);
(* (ptr) (( (bPt) gf←c067)+116) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c067)+5) ), (word) &string25);
(void) XR←DeclareGlobalFrame((word) "UXIOTestImpl", &globalframe, (word) XR←GetTypeIndex((word) &string26, 0, (word) &string27)
, (word) (( (bPt) gf←c067)+176)/* var←c10696 */ );
var←c11560 = (word) XR←ImportInterface((word) "Atom", (word) XR←GetTypeIndexS((word) (&string28)), 16);
(* (( (ptr) gf←c067)+47)/* var←c10920 */ ) = var←c11560;
(void) XR←ImportProcS(var←c11560, 67895555);
var←c11560 = (word) XR←ImportInterface((word) "IO", (word) XR←GetTypeIndexS((word) (&string29)), 103);
(* (( (ptr) gf←c067)+46)/* var←c10728 */ ) = var←c11560;
(void) XR←ImportProcS(var←c11560, 67377921);
(void) XR←ImportProcS(var←c11560, 2111493);
(void) XR←ImportProcS(var←c11560, 530434);
(void) XR←ImportProcS(var←c11560, 67377409);
(void) XR←ImportProcS(var←c11560, 530946);
(void) XR←ImportProcS(var←c11560, 1053698);
(void) XR←ImportProcS(var←c11560, 68160002);
(void) XR←ImportProcS(var←c11560, 67388417);
(void) XR←ImportProcS(var←c11560, 67393281);
(void) XR←ImportProcS(var←c11560, 1063171);
(void) XR←ImportProcS(var←c11560, 1071364);
var←c11560 = (word) XR←ImportInterface((word) "UXIO", (word) XR←GetTypeIndexS((word) (&string30)), 7);
(* (( (ptr) gf←c067)+48)/* var←c11112 */ ) = var←c11560;
(void) XR←ImportProcS(var←c11560, 67895555);
(void) XR←ImportProcS(var←c11560, 67371009);
}
static void UXIOTestImpl←P0(formal←c017, formal←c016)
word formal←c017;
word formal←c016;
{
/* UXIOTestImpl: */
SOURCE(53, 2942)
SOURCE(2986, 9)
(void) DoInput←P240();
}
static void DoStream←P60(s←v2884)
word s←v2884;
{
register ptr gf←c11592 = (ptr) &globalframe;
/* DoStream: */
SOURCE(113, 539)
SOURCE(147, 55)
{
word pd31;
pd31 = (* (( (ptr) (* (( (ptr) gf←c11592)+46)/* var←c10728 */ ))+93) );
(void) ( *( (fPt) ((* (ptr) pd31 ))))(s←v2884, (* (( (ptr) gf←c11592)+29) ), 0, 2147483647, pd31);
};
SOURCE(204, 43)
{
W2 var←c10760;
var←c10760.f0 = 11;
var←c10760.f1 = (* (( (ptr) gf←c11592)+8) );
{
word pd32;
pd32 = (* (( (ptr) (* (( (ptr) gf←c11592)+46)/* var←c10728 */ ))+61) );
(void) ( *( (fPt) ((* (ptr) pd32 ))))(s←v2884, (* (( (ptr) gf←c11592)+7) ), var←c10760, pd32);
};
};
SOURCE(249, 49)
{
W2 var←c10792;
var←c10792.f0 = 5;
var←c10792.f1 = 2147483647;
{
word pd33;
pd33 = (* (( (ptr) (* (( (ptr) gf←c11592)+46)/* var←c10728 */ ))+61) );
(void) ( *( (fPt) ((* (ptr) pd33 ))))(s←v2884, (* (( (ptr) gf←c11592)+9) ), var←c10792, pd33);
};
};
SOURCE(300, 50)
{
W2 var←c10824;
var←c10824.f0 = 5;
var←c10824.f1 = 2147483648;
{
word pd34;
pd34 = (* (( (ptr) (* (( (ptr) gf←c11592)+46)/* var←c10728 */ ))+61) );
(void) ( *( (fPt) ((* (ptr) pd34 ))))(s←v2884, (* (( (ptr) gf←c11592)+9) ), var←c10824, pd34);
};
};
SOURCE(352, 44)
{
W2 var←c10856;
var←c10856.f0 = 3;
var←c10856.f1 = 99;
{
word pd35;
pd35 = (* (( (ptr) (* (( (ptr) gf←c11592)+46)/* var←c10728 */ ))+61) );
(void) ( *( (fPt) ((* (ptr) pd35 ))))(s←v2884, (* (( (ptr) gf←c11592)+10) ), var←c10856, pd35);
};
};
SOURCE(398, 59)
{
word var←c10888;
{
word pd36;
pd36 = (* (( (ptr) (* (( (ptr) gf←c11592)+47)/* var←c10920 */ ))+5) );
var←c10888 = (word) ( *( (fPt) ((* (ptr) pd36 ))))((* (( (ptr) gf←c11592)+12) ), 0, 2147483647, pd36);
};
{
W2 var←c10952;
var←c10952.f0 = 1;
var←c10952.f1 = var←c10888;
{
word pd37;
pd37 = (* (( (ptr) (* (( (ptr) gf←c11592)+46)/* var←c10728 */ ))+61) );
(void) ( *( (fPt) ((* (ptr) pd37 ))))(s←v2884, (* (( (ptr) gf←c11592)+11) ), var←c10952, pd37);
};
};
};
SOURCE(459, 44)
{
W2 var←c10984;
var←c10984.f0 = 2;
var←c10984.f1 = 1;
{
word pd38;
pd38 = (* (( (ptr) (* (( (ptr) gf←c11592)+46)/* var←c10728 */ ))+61) );
(void) ( *( (fPt) ((* (ptr) pd38 ))))(s←v2884, (* (( (ptr) gf←c11592)+13) ), var←c10984, pd38);
};
};
SOURCE(505, 51)
{
W2 var←c11016;
var←c11016.f0 = 4;
var←c11016.f1 = (word) -1;
{
word pd39;
pd39 = (* (( (ptr) (* (( (ptr) gf←c11592)+46)/* var←c10728 */ ))+61) );
(void) ( *( (fPt) ((* (ptr) pd39 ))))(s←v2884, (* (( (ptr) gf←c11592)+14) ), var←c11016, pd39);
};
};
SOURCE(558, 52)
{
W2 var←c11048;
var←c11048.f0 = 4;
var←c11048.f1 = 0;
{
word pd40;
pd40 = (* (( (ptr) (* (( (ptr) gf←c11592)+46)/* var←c10728 */ ))+61) );
(void) ( *( (fPt) ((* (ptr) pd40 ))))(s←v2884, (* (( (ptr) gf←c11592)+14) ), var←c11048, pd40);
};
};
SOURCE(612, 40)
{
W2 var←c11080;
var←c11080.f0 = 8;
var←c11080.f1 = (* (ptr) &fc41 );
{
word pd42;
pd42 = (* (( (ptr) (* (( (ptr) gf←c11592)+46)/* var←c10728 */ ))+61) );
(void) ( *( (fPt) ((* (ptr) pd42 ))))(s←v2884, (* (( (ptr) gf←c11592)+15) ), var←c11080, pd42);
};
};
}
static void DoStandard←P120()
{
register ptr gf←c11624 = (ptr) &globalframe;
word s←v3008;
/* DoStandard: */
SOURCE(658, 85)
SOURCE(682, 48)
{
word pd43;
pd43 = (* (( (ptr) (* (( (ptr) gf←c11624)+48)/* var←c11112 */ ))+4) );
s←v3008 = (word) ( *( (fPt) ((* (ptr) pd43 ))))(1, pd43);
};
SOURCE(732, 11)
(void) DoStream←P60(s←v3008);
}
static void DoFile←P180()
{
register ptr gf←c11656 = (ptr) &globalframe;
word s←v3052;
/* DoFile: */
SOURCE(749, 86)
SOURCE(769, 53)
{
word pd44;
pd44 = (* (( (ptr) (* (( (ptr) gf←c11656)+48)/* var←c11112 */ ))+5) );
s←v3052 = (word) ( *( (fPt) ((* (ptr) pd44 ))))((* (( (ptr) gf←c11656)+16) ), 2, 436, pd44);
};
SOURCE(824, 11)
(void) DoStream←P60(s←v3052);
}
static void DoInput←P240()
{
W6 var←c11688;
register ptr gf←c11720 = (ptr) &globalframe;
/* declaration of i←v3096 skipped */
/* declaration of o←v3124 skipped */
/* DoInput: */
SOURCE(841, 543)
SOURCE(862, 47)
{
word pd45;
pd45 = (* (( (ptr) (* (( (ptr) gf←c11720)+48)/* var←c11112 */ ))+4) );
var←c11688.f4/* i←v3096 */ = (word) ( *( (fPt) ((* (ptr) pd45 ))))(0, pd45);
};
SOURCE(911, 48)
{
word pd46;
pd46 = (* (( (ptr) (* (( (ptr) gf←c11720)+48)/* var←c11112 */ ))+4) );
var←c11688.f5/* o←v3124 */ = (word) ( *( (fPt) ((* (ptr) pd46 ))))(1, pd46);
};
SOURCE(962, 28)
{
word pd47;
pd47 = (* (( (ptr) (* (( (ptr) gf←c11720)+46)/* var←c10728 */ ))+93) );
(void) ( *( (fPt) ((* (ptr) pd47 ))))(var←c11688.f5/* o←v3124 */ , (* (( (ptr) gf←c11720)+17) ), 0, 2147483647, pd47);
};
SOURCE(992, 69)
{
word var←c11144;
{
word pd48;
pd48 = (* (( (ptr) (* (( (ptr) gf←c11720)+46)/* var←c10728 */ ))+91) );
var←c11144 = (word) ( *( (fPt) ((* (ptr) pd48 ))))(var←c11688.f4/* i←v3096 */ , pd48);
};
{
W2 var←c11176;
var←c11176.f0 = 11;
var←c11176.f1 = var←c11144;
{
word pd49;
pd49 = (* (( (ptr) (* (( (ptr) gf←c11720)+46)/* var←c10728 */ ))+61) );
(void) ( *( (fPt) ((* (ptr) pd49 ))))(var←c11688.f5/* o←v3124 */ , (* (( (ptr) gf←c11720)+18) ), var←c11176, pd49);
};
};
};
SOURCE(1063, 26)
{
word pd50;
pd50 = (* (( (ptr) (* (( (ptr) gf←c11720)+46)/* var←c10728 */ ))+93) );
(void) ( *( (fPt) ((* (ptr) pd50 ))))(var←c11688.f5/* o←v3124 */ , (* (( (ptr) gf←c11720)+19) ), 0, 2147483647, pd50);
};
SOURCE(1091, 56)
{
word var←c11208;
{
word pd51;
pd51 = (* (( (ptr) (* (( (ptr) gf←c11720)+46)/* var←c10728 */ ))+72) );
var←c11208 = (word) ( *( (fPt) ((* (ptr) pd51 ))))(var←c11688.f4/* i←v3096 */ , pd51);
};
{
W2 var←c11240;
var←c11240.f0 = 5;
var←c11240.f1 = var←c11208;
{
word pd52;
pd52 = (* (( (ptr) (* (( (ptr) gf←c11720)+46)/* var←c10728 */ ))+61) );
(void) ( *( (fPt) ((* (ptr) pd52 ))))(var←c11688.f5/* o←v3124 */ , (* (( (ptr) gf←c11720)+20) ), var←c11240, pd52);
};
};
};
SOURCE(1149, 235)
SOURCE(1152, 202)
{
word var←c01;
{
word var←c078;
var←c078 = (word) &var←c11688;
var←c01 = (word) XR←Enable(( ((word) (fPt) NoName←Q636) ), ( ((word) (fPt) NoName←Q696) ), var←c078);
};
if ((var←c01 == 2)) {
goto lab←L100000;
};
};
goto lab←L100006;
lab←L100000: ;
lab←L100006: ;
}
static word NoName←Q636(formal←c073)
word formal←c073;
{
register ptr gf←c072 = (ptr) &globalframe;
SOURCE(1249, 105)
lab←L100005: ;
SOURCE(1252, 44)
{
word pd53;
pd53 = (* (( (ptr) (* (( (ptr) gf←c072)+46)/* var←c10728 */ ))+93) );
(void) ( *( (fPt) ((* (ptr) pd53 ))))((* (( (ptr) formal←c073)+5) ), (* (( (ptr) gf←c072)+22) ), 0, 2147483647, pd53);
};
SOURCE(1298, 56)
{
word var←c11272;
{
word pd54;
pd54 = (* (( (ptr) (* (( (ptr) gf←c072)+46)/* var←c10728 */ ))+72) );
var←c11272 = (word) ( *( (fPt) ((* (ptr) pd54 ))))((* ((( (ptr) formal←c073)+4)) ), pd54);
};
{
W2 var←c11304;
var←c11304.f0 = 5;
var←c11304.f1 = var←c11272;
{
word pd55;
pd55 = (* (( (ptr) (* (( (ptr) gf←c072)+46)/* var←c10728 */ ))+61) );
(void) ( *( (fPt) ((* (ptr) pd55 ))))((* (( (ptr) formal←c073)+5) ), (* (( (ptr) gf←c072)+20) ), var←c11304, pd55);
};
};
};
goto lab←L100005;
/* c2c skipped dead code */
}
static void DoCopy←P300()
{
register ptr gf←c11752 = (ptr) &globalframe;
word i←v3168;
word o←v3196;
word infile←v3224 = 0;
word outfile←v3252 = 0;
/* DoCopy: */
SOURCE(1391, 786)
SOURCE(1411, 47)
{
word pd56;
pd56 = (* (( (ptr) (* (( (ptr) gf←c11752)+48)/* var←c11112 */ ))+4) );
i←v3168 = (word) ( *( (fPt) ((* (ptr) pd56 ))))(0, pd56);
};
SOURCE(1460, 48)
{
word pd57;
pd57 = (* (( (ptr) (* (( (ptr) gf←c11752)+48)/* var←c11112 */ ))+4) );
o←v3196 = (word) ( *( (fPt) ((* (ptr) pd57 ))))(1, pd57);
};
SOURCE(1539, 34)
{
word pd58;
pd58 = (* (( (ptr) (* (( (ptr) gf←c11752)+46)/* var←c10728 */ ))+93) );
(void) ( *( (fPt) ((* (ptr) pd58 ))))(o←v3196, (* (( (ptr) gf←c11752)+23) ), 0, 2147483647, pd58);
};
SOURCE(1575, 24)
{
word pd59;
pd59 = (* (( (ptr) (* (( (ptr) gf←c11752)+46)/* var←c10728 */ ))+91) );
infile←v3224 = (word) ( *( (fPt) ((* (ptr) pd59 ))))(i←v3168, pd59);
};
SOURCE(1601, 35)
{
word pd60;
pd60 = (* (( (ptr) (* (( (ptr) gf←c11752)+46)/* var←c10728 */ ))+93) );
(void) ( *( (fPt) ((* (ptr) pd60 ))))(o←v3196, (* (( (ptr) gf←c11752)+24) ), 0, 2147483647, pd60);
};
SOURCE(1638, 25)
{
word pd61;
pd61 = (* (( (ptr) (* (( (ptr) gf←c11752)+46)/* var←c10728 */ ))+91) );
outfile←v3252 = (word) ( *( (fPt) ((* (ptr) pd61 ))))(i←v3168, pd61);
};
SOURCE(1665, 515)
{
word source←v3296;
word dest←v3324;
W128 buffer←v3352;
W3 bufferblock←v3380;
SOURCE(1667, 69)
{
word pd62;
pd62 = (* (( (ptr) (* (( (ptr) gf←c11752)+48)/* var←c11112 */ ))+5) );
source←v3296 = (word) ( *( (fPt) ((* (ptr) pd62 ))))(infile←v3224, 0, 436, pd62);
};
SOURCE(1738, 69)
{
word pd63;
pd63 = (* (( (ptr) (* (( (ptr) gf←c11752)+48)/* var←c11112 */ ))+5) );
dest←v3324 = (word) ( *( (fPt) ((* (ptr) pd63 ))))(outfile←v3252, 2, 436, pd63);
};
SOURCE(1847, 72)
bufferblock←v3380.f0 = 0;
bufferblock←v3380.f1 = 0;
bufferblock←v3380.f2 = 512;
SOURCE(1929, 248)
SOURCE(1931, 36)
bufferblock←v3380.f0 = (word) &buffer←v3352;
SOURCE(1969, 205)
{
word bytesread←v3460;
SOURCE(1971, 51)
{
word pd64;
pd64 = (* (( (ptr) (* (( (ptr) gf←c11752)+46)/* var←c10728 */ ))+14) );
bytesread←v3460 = (word) ( *( (fPt) ((* (ptr) pd64 ))))(source←v3296, bufferblock←v3380, pd64);
};
SOURCE(2024, 139)
lab←L100009: ;
if (( (int)bytesread←v3460 > (int)0)) {
}
else {
goto lab←L100007;
};
SOURCE(2047, 29)
bufferblock←v3380.f2 = bytesread←v3460;
SOURCE(2078, 37)
{
word pd65;
pd65 = (* (( (ptr) (* (( (ptr) gf←c11752)+46)/* var←c10728 */ ))+24) );
(void) ( *( (fPt) ((* (ptr) pd65 ))))(dest←v3324, bufferblock←v3380, pd65);
};
SOURCE(2117, 46)
{
word pd66;
pd66 = (* (( (ptr) (* (( (ptr) gf←c11752)+46)/* var←c10728 */ ))+14) );
bytesread←v3460 = (word) ( *( (fPt) ((* (ptr) pd66 ))))(source←v3296, bufferblock←v3380, pd66);
};
goto lab←L100009;
lab←L100007: ;
};
};
}
static void DoIndex←P360()
{
register ptr gf←c11784 = (ptr) &globalframe;
word i←v3504;
word o←v3532;
word s←v3560 = 0;
word outfile←v3588 = 0;
/* DoIndex: */
SOURCE(2187, 432)
SOURCE(2208, 47)
{
word pd67;
pd67 = (* (( (ptr) (* (( (ptr) gf←c11784)+48)/* var←c11112 */ ))+4) );
i←v3504 = (word) ( *( (fPt) ((* (ptr) pd67 ))))(0, pd67);
};
SOURCE(2257, 48)
{
word pd68;
pd68 = (* (( (ptr) (* (( (ptr) gf←c11784)+48)/* var←c11112 */ ))+4) );
o←v3532 = (word) ( *( (fPt) ((* (ptr) pd68 ))))(1, pd68);
};
SOURCE(2348, 35)
{
word pd69;
pd69 = (* (( (ptr) (* (( (ptr) gf←c11784)+46)/* var←c10728 */ ))+93) );
(void) ( *( (fPt) ((* (ptr) pd69 ))))(o←v3532, (* (( (ptr) gf←c11784)+24) ), 0, 2147483647, pd69);
};
SOURCE(2385, 25)
{
word pd70;
pd70 = (* (( (ptr) (* (( (ptr) gf←c11784)+46)/* var←c10728 */ ))+91) );
outfile←v3588 = (word) ( *( (fPt) ((* (ptr) pd70 ))))(i←v3504, pd70);
};
SOURCE(2412, 41)
{
word pd71;
pd71 = (* (( (ptr) (* (( (ptr) gf←c11784)+48)/* var←c11112 */ ))+5) );
s←v3560 = (word) ( *( (fPt) ((* (ptr) pd71 ))))(outfile←v3588, 2, 436, pd71);
};
SOURCE(2455, 43)
{
word pd72;
pd72 = (* (( (ptr) (* (( (ptr) gf←c11784)+46)/* var←c10728 */ ))+93) );
(void) ( *( (fPt) ((* (ptr) pd72 ))))(s←v3560, (* (( (ptr) gf←c11784)+25) ), 0, 2147483647, pd72);
};
SOURCE(2500, 17)
{
word pd73;
pd73 = (* (( (ptr) (* (( (ptr) gf←c11784)+46)/* var←c10728 */ ))+30) );
(void) ( *( (fPt) ((* (ptr) pd73 ))))(s←v3560, 8, pd73);
};
SOURCE(2519, 25)
{
word pd74;
pd74 = (* (( (ptr) (* (( (ptr) gf←c11784)+46)/* var←c10728 */ ))+93) );
(void) ( *( (fPt) ((* (ptr) pd74 ))))(s←v3560, (* (( (ptr) gf←c11784)+26) ), 0, 2147483647, pd74);
};
SOURCE(2546, 60)
{
word var←c11368;
{
word pd75;
pd75 = (* (( (ptr) (* (( (ptr) gf←c11784)+46)/* var←c10728 */ ))+29) );
var←c11368 = (word) ( *( (fPt) ((* (ptr) pd75 ))))(s←v3560, pd75);
};
{
W2 var←c11400;
var←c11400.f0 = 5;
var←c11400.f1 = var←c11368;
{
word pd76;
pd76 = (* (( (ptr) (* (( (ptr) gf←c11784)+46)/* var←c10728 */ ))+61) );
(void) ( *( (fPt) ((* (ptr) pd76 ))))(o←v3532, (* (( (ptr) gf←c11784)+27) ), var←c11400, pd76);
};
};
};
SOURCE(2608, 11)
{
word pd77;
pd77 = (* (( (ptr) (* (( (ptr) gf←c11784)+46)/* var←c10728 */ ))+28) );
(void) ( *( (fPt) ((* (ptr) pd77 ))))(s←v3560, 0, pd77);
};
}
static void DoLength←P420()
{
register ptr gf←c11816 = (ptr) &globalframe;
word i←v3632;
word o←v3660;
word s←v3688 = 0;
word infile←v3716 = 0;
/* DoLength: */
SOURCE(2625, 355)
SOURCE(2647, 47)
{
word pd78;
pd78 = (* (( (ptr) (* (( (ptr) gf←c11816)+48)/* var←c11112 */ ))+4) );
i←v3632 = (word) ( *( (fPt) ((* (ptr) pd78 ))))(0, pd78);
};
SOURCE(2696, 48)
{
word pd79;
pd79 = (* (( (ptr) (* (( (ptr) gf←c11816)+48)/* var←c11112 */ ))+4) );
o←v3660 = (word) ( *( (fPt) ((* (ptr) pd79 ))))(1, pd79);
};
SOURCE(2786, 34)
{
word pd80;
pd80 = (* (( (ptr) (* (( (ptr) gf←c11816)+46)/* var←c10728 */ ))+93) );
(void) ( *( (fPt) ((* (ptr) pd80 ))))(o←v3660, (* (( (ptr) gf←c11816)+23) ), 0, 2147483647, pd80);
};
SOURCE(2822, 24)
{
word pd81;
pd81 = (* (( (ptr) (* (( (ptr) gf←c11816)+46)/* var←c10728 */ ))+91) );
infile←v3716 = (word) ( *( (fPt) ((* (ptr) pd81 ))))(i←v3632, pd81);
};
SOURCE(2848, 39)
{
word pd82;
pd82 = (* (( (ptr) (* (( (ptr) gf←c11816)+48)/* var←c11112 */ ))+5) );
s←v3688 = (word) ( *( (fPt) ((* (ptr) pd82 ))))(infile←v3716, 0, 436, pd82);
};
SOURCE(2889, 78)
{
word var←c11432;
{
word pd83;
pd83 = (* (( (ptr) (* (( (ptr) gf←c11816)+46)/* var←c10728 */ ))+31) );
var←c11432 = (word) ( *( (fPt) ((* (ptr) pd83 ))))(s←v3688, pd83);
};
{
W2 var←c11464;
W2 var←c11496;
W2 var←c079;
var←c11464.f0 = 11;
var←c11464.f1 = infile←v3716;
var←c11496.f0 = 5;
var←c11496.f1 = var←c11432;
(* (ptr) (word) &var←c079 ) = 0;
(* (( (ptr) (word) &var←c079) + 1) ) = 0;
{
word pd84;
pd84 = (* (( (ptr) (* (( (ptr) gf←c11816)+46)/* var←c10728 */ ))+60) );
(void) ( *( (fPt) ((* (ptr) pd84 ))))(o←v3660, (* (( (ptr) gf←c11816)+28) ), var←c11464, var←c11496, var←c079, pd84);
};
};
};
SOURCE(2969, 11)
{
word pd85;
pd85 = (* (( (ptr) (* (( (ptr) gf←c11816)+46)/* var←c10728 */ ))+28) );
(void) ( *( (fPt) ((* (ptr) pd85 ))))(s←v3688, 0, pd85);
};
}
static void NoName←Q696(formal←c066, formal←c200000, formal←c200001, formal←c200002, formal←c200003)
word formal←c066;
word formal←c200000;
word formal←c200001;
word formal←c200002;
word formal←c200003;
{
register ptr gf←c077 = (ptr) &globalframe;
if ((formal←c200001 == (* (( (ptr) (* (( (ptr) gf←c077)+46)/* var←c10728 */ ))+4) ))) {
{
word stream←v8992;
stream←v8992 = (* (ptr) formal←c200003 );
SOURCE(1181, 29)
{
word pd86;
pd86 = (* (( (ptr) (* (( (ptr) gf←c077)+46)/* var←c10728 */ ))+93) );
(void) ( *( (fPt) ((* (ptr) pd86 ))))((* (( (ptr) formal←c200000)+5) ), (* (( (ptr) gf←c077)+21) ), 0, 2147483647, pd86)
;
};
SOURCE(1212, 9)
(* (ptr) formal←c066 ) = 2;
(* (( (ptr) formal←c066)+1) ) = 2;
return;
};
}
else {
if ((formal←c200001 == XR←Uncaught)) {
SOURCE(1236, 8)
(* (ptr) formal←c066 ) = 2;
(* (( (ptr) formal←c066)+1) ) = 2;
return;
};
};
(* (ptr) formal←c066 ) = 0;
(* (( (ptr) formal←c066)+1) ) = 0;
return;
}
/* file: UXIOTestImpl, module: UXIOTestImpl, compiled at: February 21, 1992 11:15:50 pm PST */
extern void XR←install←UXIOTestImpl() {
NoName←Q576();
}
extern void XR←run←UXIOTestImpl() { XR←Start(&globalframe); }