/* Generated with C2C (Cedar To C)*/
/* Copyright (C) 1992 by Xerox Corporation. All rights reserved. */
/* time: March 10, 1992 11:57:47 am PST */
/* C2C version: October 16, 1990 (native) */
/* ref-counting: off */
/* file: AISChangeHeaderImpl, module: AISChangeHeaderImpl */
/* switches: bcfhklnouw */
#include <cedar/InstallationSupport.h>
#include <cedar/CedarExtra.h>
static char versionStamp[] = "@(#)mob←version [2585634825,3424018526] AISChangeHeaderImpl";
typedef unsigned word, *ptr;
typedef unsigned char byte, *bPt;
typedef unsigned short half, *hPt;
typedef word (*fPt)();
typedef struct {word f0, f1, f2;} W3;
typedef struct {word f0, f1, f2, f3, f4, f5, f6;} W7;
typedef struct {word f0, f1;} W2;
typedef W2 *W2Pt;
typedef struct {word f0, f1, f2, f3, f4, f5, f6, f7;} W8;
typedef W8 *W8Pt;
typedef struct {W8 f; W8 r;} W16;
typedef struct {W16 f; W16 r;} W32;
typedef struct {W32 f; W32 r;} W64;
typedef struct {word f0, f1, f2, f3, f4, f5;} W6;
typedef struct {W32 f; W6 r;} W38;
typedef struct {W64 f; W38 r;} W102;
typedef struct {word f0, f1, f2, f3, f4;} W5;
typedef W5 *W5Pt;
typedef struct {W8 f; W2 r;} W10;
typedef struct {W16 f; W10 r;} W26;
typedef struct {W64 f; W26 r;} W90;
typedef W90 *W90Pt;
typedef struct {word f0, f1, f2, f3;} W4;
typedef W4 *W4Pt;
#define SOURCE(p, l) /* source p, l */
#define BCK(idx, lim) ( ((unsigned) idx) >= ((unsigned) lim) ? (XR←RaiseBoundsFault()) : (idx) )
#define IOP2(op, x, y) ( (word) ((x) op (y)) )
static float fc26 = 0.0;
static void NoName←Q720();
static void AISChangeHeaderImpl←P0();
static word Card←P60();
static void WriteBytes←P120();
static void WriteInfo←P180();
static void WritePartHeader←P300();
static void AISChangeHeaderCmd←P240();
static word NoName←Q780();
static word NoName←Q840();
static void NoName←Q900();
static void NoName←Q960();
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[48];} string3 = {2883632, "\260\006\005\146\151\162\163\164\216\257\300\363\223\326\161\300\017\164\046\072\104\350\005\004\162\145\163\164\214\216\257\300\363\223\326\161\300\017\164\046\072\104\350\261\000\000\000"};
static struct {unsigned f; char r[4];} string4 = {131074, "\004\003\000"};
static struct {unsigned f; char r[16];} string5 = {851984, "\257\300\071\045\144\167\300\145\377\112\006\100\274\000\000"};
static struct {unsigned f; char r[44];} string6 = {2752556, "\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\000"};
static struct {unsigned f; char r[4];} string7 = {131076, "\216\251\000"};
static struct {unsigned f; char r[8];} string8 = {458760, "Failure"};
static struct {unsigned f; char r[92];} string9 = {5898332, "%ss-placement%ii-bitsPerPixel%i-numberScanlines%i-pixelsPerLine%i-comment%s-wordsPerLine%i\000"};
static struct {unsigned f; char r[16];} string10 = {983056, "AISChangeHeader"};
static struct {unsigned f; char r[188];} string11 = {12189884, "\012AISChangeHeader <ais-in> <ais-out> [-option]\012options include:\012\011-placement <x, y: INTEGER>\012\011-bitsPerPixel <INTEGER>\012\011-numberScanlines <INTEGER>\012\011-pixelsPerLine <INTEGER>\012\011-comment <ROPE>\000"};
static struct {unsigned f; char r[16];} string12 = {983056, "can't open file"};
static struct {unsigned f; char r[16];} string13 = {851984, "\257\300\232\035\250\011\300\314\026\140\136\100\164\000\000"};
static struct {unsigned f; char r[8];} string14 = {458759, "\006\002\024\0018\004\037"};
static struct {unsigned f; char r[16];} string15 = {851984, "\257\300\150\223\370\056\300\265\120\000\347\100\150\000\000"};
static struct {unsigned f; char r[16];} string16 = {851984, "\257\300\061\070\246\330\300\204\123\076\053\100\150\000\000"};
static struct {unsigned f; char r[16];} string17 = {851984, "\257\300\373\225\000\071\300\362\156\307\320\100\150\000\000"};
static struct {unsigned f; char r[16];} string18 = {851984, "\257\300\344\212\014\176\300\070\230\121\123\100\150\000\000"};
static struct {unsigned f; char r[16];} string19 = {851984, "\257\300\015\277\004\146\300\034\367\146\045\100\164\000\000"};
static struct {
word f0[4]; word f4; word f5[14]; word f19;
word f20; word f21; word f22; word f23;
word f24; word f25; word f26; word f27;
word f28[6];
} globalframe = {
{0}, 1024, {0}, (word) AISChangeHeaderCmd←P240,
0, (word) WriteInfo←P180, 0, (word) WriteBytes←P120,
0, (word) Card←P60, 0, (word) AISChangeHeaderImpl←P0,
{0}
};
static void NoName←Q720()
{
register ptr gf←c086 = (ptr) &globalframe;
word var←c17156;
(* (( (ptr) gf←c086)+7) ) = (word) XR←GetTypeIndex((word) &string1, 0, (word) &string2);
(* (( (ptr) gf←c086)+8) ) = (word) XR←GetTypeIndex((word) &string3, 0, (word) &string4);
(* (( (ptr) gf←c086)+10) ) = (word) XR←GetTypeIndexS((word) (&string5));
(* (( (ptr) gf←c086)+11) ) = (word) XR←GetTypeIndexS((word) (&string6));
(* (( (ptr) gf←c086)+12) ) = (word) XR←GetTypeIndex((word) &string7, 0, (word) &string2);
(* (ptr) (( (bPt) gf←c086)+56) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c086)+12) ), (word) &string8);
(* (ptr) (( (bPt) gf←c086)+60) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c086)+7) ), (word) &string9);
(* (ptr) (( (bPt) gf←c086)+64) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c086)+7) ), (word) &string10);
(* (ptr) (( (bPt) gf←c086)+68) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c086)+7) ), (word) &string11);
(* (ptr) (( (bPt) gf←c086)+72) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c086)+7) ), (word) &string12);
(void) XR←DeclareGlobalFrame((word) "AISChangeHeaderImpl", &globalframe, (word) XR←GetTypeIndex((word) &string13, 0, (word) &string14)
, (word) (( (bPt) gf←c086)+108)/* var←c16356 */ );
var←c17156 = (word) XR←ImportInterface((word) "AISIO", (word) XR←GetTypeIndexS((word) (&string15)), 9);
(* (( (ptr) gf←c086)+32)/* var←c16868 */ ) = var←c17156;
(void) XR←ImportProcS(var←c17156, 67371265);
var←c17156 = (word) XR←ImportInterface((word) "Args", (word) XR←GetTypeIndexS((word) (&string16)), 10);
(* (( (ptr) gf←c086)+31)/* var←c16772 */ ) = var←c17156;
(void) XR←ImportProc(var←c17156, 8, 360, 12, 3);
var←c17156 = (word) XR←ImportInterface((word) "Commander", (word) XR←GetTypeIndexS((word) (&string17)), 3);
(* (( (ptr) gf←c086)+29)/* var←c16388 */ ) = var←c17156;
(void) XR←ImportProcS(var←c17156, 1310725);
var←c17156 = (word) XR←ImportInterface((word) "FS", (word) XR←GetTypeIndexS((word) (&string18)), 36);
(* (( (ptr) gf←c086)+33)/* var←c16964 */ ) = var←c17156;
(void) XR←ImportProcS(var←c17156, 70522636);
var←c17156 = (word) XR←ImportInterface((word) "IO", (word) XR←GetTypeIndexS((word) (&string19)), 103);
(* (( (ptr) gf←c086)+30)/* var←c16452 */ ) = var←c17156;
(void) XR←ImportProcS(var←c17156, 530434);
(void) XR←ImportProcS(var←c17156, 1053444);
(void) XR←ImportProcS(var←c17156, 68159748);
(void) XR←ImportProcS(var←c17156, 530946);
(void) XR←ImportProcS(var←c17156, 1053698);
}
static void AISChangeHeaderImpl←P0(formal←c024, formal←c023)
word formal←c024;
word formal←c023;
{
register ptr gf←c17188 = (ptr) &globalframe;
/* AISChangeHeaderImpl: */
SOURCE(73, 4708)
/* moved to installation proc */
SOURCE(4505, 208)
(* (( (ptr) gf←c17188)+5)/* usage←v2916 */ ) = (* (( (ptr) gf←c17188)+17) );
SOURCE(4716, 65)
{
word pd20;
pd20 = (* (( (ptr) (* (( (ptr) gf←c17188)+29)/* var←c16388 */ ))+4) );
(void) ( *( (fPt) ((* (ptr) pd20 ))))((* (( (ptr) gf←c17188)+16) ), (word) (( (bPt) gf←c17188)+76)/* var←c16228 */ , (* (
( (ptr) gf←c17188)+5)/* usage←v2916 */ ), 0, 1, pd20);
};
}
static word Card←P60(h←v2996)
word h←v2996;
{
word b←v3040;
/* Card: */
SOURCE(216, 77)
SOURCE(268, 25)
b←v3040 = h←v2996;
SOURCE(216, 77)
return(b←v3040);
}
static void WriteBytes←P120(out←v3100, base←v3128, bytes←v3156)
word out←v3100;
word base←v3128;
word bytes←v3156;
{
register ptr gf←c17220 = (ptr) &globalframe;
/* WriteBytes: */
SOURCE(297, 147)
SOURCE(384, 60)
{
W3 var←c16420;
var←c16420.f0 = base←v3128;
var←c16420.f1 = 0;
var←c16420.f2 = bytes←v3156;
{
word pd21;
pd21 = (* (( (ptr) (* (( (ptr) gf←c17220)+30)/* var←c16452 */ ))+24) );
(void) ( *( (fPt) ((* (ptr) pd21 ))))(out←v3100, var←c16420, pd21);
};
};
}
static void WriteInfo←P180(formal←c0103, info←v3256)
word formal←c0103;
word info←v3256;
{
W7 var←c17252;
/* declaration of out←v3228 skipped */
register ptr gf←c17284 = (ptr) &globalframe;
/* declaration of var←c16484 skipped */
word header←v3424;
W3 raster←v3452;
W2 uca←v3480;
var←c17252.f4/* out←v3228 */ = formal←c0103;
/* WriteInfo: */
SOURCE(450, 2505)
{
word tmpAddr22;
tmpAddr22 = (word) (( (ptr) &var←c17252)+5)/* var←c16484 */ ;
(* (ptr) tmpAddr22 ) = ( ((word) (fPt) WritePartHeader←P300) );
(* (( (ptr) tmpAddr22) + 1) ) = 1;
};
SOURCE(1606, 59)
{
word idx23;
header←v3424 = (( (((unsigned)(word) Card←P60((
idx23 = (* (( (ptr) gf←c17284)+4)/* wordsHeader←v2776 */ ),
BCK(idx23, 65536)
)) << 16) >> 16) ) + 2225733632);
};
SOURCE(1667, 103)
{
word var←c16548;
word var←c16580;
word var←c16612;
var←c16548 = (* (( (hPt) (* (( (ptr) info←v3256)+1) ))+1) );
var←c16580 = (word) Card←P60(3);
var←c16612 = (word) Card←P60(1);
raster←v3452.f0 = (((* (hPt) (* (( (ptr) info←v3256)+1) ) ) << 16) + ( (((unsigned)var←c16548 << 16) >> 16) ));
raster←v3452.f1 = ((var←c16580 << 16) + ( (((unsigned)var←c16612 << 16) >> 16) ));
raster←v3452.f2 = 131071;
};
SOURCE(1772, 97)
{
word var←c16644;
var←c16644 = (* (( (hPt) (* (( (ptr) info←v3256)+2) ))+1) );
uca←v3480.f0 = (((* (hPt) (* (( (ptr) info←v3256)+2) ) ) << 16) + ( (((unsigned)var←c16644 << 16) >> 16) ));
uca←v3480.f1 = (word) -1;
};
SOURCE(1879, 64)
SOURCE(1880, 63)
(void) WriteBytes←P120(var←c17252.f4/* out←v3228 */ , (word) &header←v3424, 4);
SOURCE(1946, 89)
(void) WritePartHeader←P300(1, 18, (word) (( (bPt) &var←c17252)+20)/* var←c16484 */ );
SOURCE(2045, 59)
SOURCE(2046, 58)
(void) WriteBytes←P120(var←c17252.f4/* out←v3228 */ , (word) &raster←v3452, 10);
SOURCE(2115, 55)
SOURCE(2116, 54)
(void) WriteBytes←P120(var←c17252.f4/* out←v3228 */ , (word) &uca←v3480, 8);
SOURCE(2173, 349)
if (((* (( (ptr) info←v3256)+3) ) != 0)) {
SOURCE(2202, 323)
{
W2 part←v3996;
SOURCE(2363, 24)
part←v3996 = (* (W2Pt) (* (( (ptr) info←v3256)+3) ) );
SOURCE(2389, 63)
(void) WritePartHeader←P300(2, 8, (word) (( (bPt) &var←c17252)+20)/* var←c16484 */ );
SOURCE(2462, 60)
SOURCE(2463, 59)
(void) WriteBytes←P120(var←c17252.f4/* out←v3228 */ , (word) &part←v3996, 8);
};
};
SOURCE(2528, 355)
if (((* (( (ptr) info←v3256)+4) ) != 0)) {
SOURCE(2558, 328)
{
W8 part←v4168;
SOURCE(2560, 33)
XR←FillWords(&part←v4168, 8, 0);
part←v4168.f5 = (word) -1;
part←v4168.f6 = (word) -1;
SOURCE(2720, 25)
part←v4168 = (* (W8Pt) (* (( (ptr) info←v3256)+4) ) );
SOURCE(2747, 65)
(void) WritePartHeader←P300(3, 30, (word) (( (bPt) &var←c17252)+20)/* var←c16484 */ );
SOURCE(2822, 61)
SOURCE(2823, 60)
(void) WriteBytes←P120(var←c17252.f4/* out←v3228 */ , (word) &part←v4168, 30);
};
};
SOURCE(2889, 28)
if (((* (( (ptr) info←v3256)+5) ) != 0)) {
};
SOURCE(2932, 23)
(void) WritePartHeader←P300(0, 0, (word) (( (bPt) &var←c17252)+20)/* var←c16484 */ );
}
static void WritePartHeader←P300(type←v3556, nBytesInPart←v3584, formal←c17316)
word type←v3556;
word nBytesInPart←v3584;
word formal←c17316;
{
word nWordsTotal←v4340;
word part←v4368;
formal←c17316 = (formal←c17316 - 20);
/* WritePartHeader: */
SOURCE(505, 467)
SOURCE(581, 68)
nWordsTotal←v4340 = IOP2( / , (int)(nBytesInPart←v3584 + 2), (int)2);
SOURCE(794, 53)
{
word idx24;
word idx25;
(* (hPt) &part←v4368 ) = (((((type←v3556 & 077) << 2) + (
idx24 = (word) IOP2( / , (int)nWordsTotal←v4340, (int)256),
BCK(idx24, 4)
)) << 8) + (
idx25 = (word) IOP2( % , (int)nWordsTotal←v4340, (int)256),
BCK(idx25, 256)
));
};
SOURCE(849, 56)
if ((type←v3556 == 0)) {
SOURCE(868, 37)
(* (( (bPt) &part←v4368)+1) ) = 0;
part←v4368 = (part←v4368 & 4244635647) | (((0)) << 24);
};
SOURCE(915, 57)
SOURCE(916, 56)
(void) WriteBytes←P120((* (( (ptr) formal←c17316)+4) ), (word) &part←v4368, 2);
}
static void AISChangeHeaderCmd←P240(formal←c072, formal←c0104)
word formal←c072;
word formal←c0104;
{
W102 var←c17348;
/* declaration of cmd←v5868 skipped */
register ptr gf←c17380 = (ptr) &globalframe;
word result←v5912;
/* declaration of msg←v5940 skipped */
/* declaration of inA←v4540 skipped */
W5 outA←v4568;
W5 xA←v4596;
W5 yA←v4624;
W5 bppA←v4652;
W5 numberScanlinesA←v4680;
W5 pixelsPerLineA←v4708;
W5 commentA←v4736;
(* (( (ptr) &var←c17348)+4)/* cmd←v5868 */ ) = formal←c0104;
/* AISChangeHeaderCmd: */
SOURCE(2975, 1523)
SOURCE(2975, 1523)
result←v5912 = 0;
SOURCE(2975, 1523)
(* (( (ptr) &var←c17348)+5)/* msg←v5940 */ ) = 0;
SOURCE(3021, 77)
(* (( (ptr) &var←c17348)+6) ) = 0;
(* (( (ptr) &var←c17348)+7) ) = 0;
(* (( (ptr) &var←c17348)+8) ) = 0;
(* (( (ptr) &var←c17348)+9) ) = (* (ptr) &fc26 );
(* (( (ptr) &var←c17348)+10) ) = 0;
outA←v4568 = (* (W5Pt) (( (ptr) &var←c17348)+6)/* inA←v4540 */ );
xA←v4596 = outA←v4568;
yA←v4624 = xA←v4596;
bppA←v4652 = yA←v4624;
numberScanlinesA←v4680 = bppA←v4652;
pixelsPerLineA←v4708 = numberScanlinesA←v4680;
commentA←v4736 = pixelsPerLineA←v4708;
SOURCE(3100, 212)
SOURCE(3100, 212)
{
W90 var←c16804;
{
/* declaration of var←c01 skipped */
(* (( (ptr) &var←c17348)+11)/* var←c01 */ ) = (* (( (ptr) (* (( (ptr) gf←c17380)+31)/* var←c16772 */ ))+12) );
{
/* declaration of var←c02 skipped */
{
word var←c03;
{
word var←c097;
var←c097 = (word) &var←c17348;
var←c03 = (word) XR←Enable(( ((word) (fPt) NoName←Q840) ), ( ((word) (fPt) NoName←Q960) ), var←c097);
};
if ((var←c03 == 2)) {
goto lab←L100002;
};
};
var←c16804 = (* (W90Pt) (( (ptr) &var←c17348)+12)/* var←c02 */ );
};
};
commentA←v4736 = (* (W5Pt) (( (ptr) &var←c16804)+35) );
pixelsPerLineA←v4708 = (* (W5Pt) (( (ptr) &var←c16804)+30) );
numberScanlinesA←v4680 = (* (W5Pt) (( (ptr) &var←c16804)+25) );
bppA←v4652 = (* (W5Pt) (( (ptr) &var←c16804)+20) );
yA←v4624 = (* (W5Pt) (( (ptr) &var←c16804)+15) );
xA←v4596 = (* (W5Pt) (( (ptr) &var←c16804)+10) );
outA←v4568 = (* (W5Pt) (( (ptr) &var←c16804)+5) );
(* (W5Pt) (( (ptr) &var←c17348)+6)/* inA←v4540 */ ) = (* (W5Pt) &var←c16804 );
};
lab←L100002: ;
SOURCE(3326, 1172)
if (((* (( (ptr) &var←c17348)+5)/* msg←v5940 */ ) != 0)) {
SOURCE(3344, 27)
result←v5912 = (* (( (ptr) gf←c17380)+14) );
/* removed bogus assignment */
goto lab←L100000;
}
else {
SOURCE(3371, 1127)
SOURCE(3373, 43)
{
word info←v4780;
word buffer←v4808;
word in←v4836;
word out←v4864;
SOURCE(3373, 43)
{
word pd27;
pd27 = (* (( (ptr) (* (( (ptr) gf←c17380)+32)/* var←c16868 */ ))+5) );
info←v4780 = (word) ( *( (fPt) ((* (ptr) pd27 ))))((* ((( (ptr) &var←c17348)+10)) ), pd27);
};
SOURCE(3418, 34)
buffer←v4808 = XR←NewObject(1028, (* (( (ptr) gf←c17380)+11) ));
(* (( (hPt) buffer←v4808)+1) ) = 1024;
SOURCE(3454, 53)
{
/* declaration of var←c04 skipped */
/* declaration of var←c05 skipped */
(* (( (ptr) &var←c17348)+11) ) = 7;
(* (( (ptr) &var←c17348)+12) ) = 1;
(* (( (ptr) &var←c17348)+13)/* var←c05 */ ) = (* (( (ptr) (* (( (ptr) gf←c17380)+33)/* var←c16964 */ ))+27) );
{
/* declaration of var←c06 skipped */
{
word var←c07;
{
word var←c098;
var←c098 = (word) &var←c17348;
var←c07 = (word) XR←Enable(( ((word) (fPt) NoName←Q780) ), ( ((word) (fPt) NoName←Q900) ), var←c098);
};
if ((var←c07 == 3)) {
goto lab←L100005;
};
};
in←v4836 = (* (( (ptr) &var←c17348)+14)/* var←c06 */ );
};
};
SOURCE(3518, 50)
{
W2 var←c16996;
var←c16996.f0 = 7;
var←c16996.f1 = 1;
{
word pd28;
pd28 = (* (( (ptr) (* (( (ptr) gf←c17380)+33)/* var←c16964 */ ))+27) );
out←v4864 = (word) ( *( (fPt) ((* (ptr) pd28 ))))(outA←v4568.f4, 1, 7, 1, 2560, var←c16996
, 0, 2147483647, 1, 0, 0, 0, pd28);
};
};
SOURCE(3570, 233)
if (((0 != xA←v4596.f0) || (0 != yA←v4624.f0))) {
SOURCE(3595, 78)
if (((* (( (ptr) info←v4780)+3) ) == 0)) {
SOURCE(3624, 49)
(* (( (ptr) info←v4780)+3) ) = XR←NewObject(8, (* (( (ptr) gf←c17380)+10) ));
};
SOURCE(3675, 62)
if ((0 != xA←v4596.f0)) {
SOURCE(3689, 48)
(* (hPt) (* (( (ptr) info←v4780)+3) ) ) = (* (( (hPt) &xA←v4596)+5) );
};
SOURCE(3739, 64)
if ((0 != yA←v4624.f0)) {
SOURCE(3753, 50)
(* (( (hPt) (* (( (ptr) info←v4780)+3) ))+1) ) = (* (( (hPt) &yA←v4624)+5) );
};
};
SOURCE(3808, 68)
if ((0 != bppA←v4652.f0)) {
SOURCE(3824, 52)
(* (hPt) (* (( (ptr) info←v4780)+2) ) ) = (* (( (hPt) &bppA←v4652)+5) );
};
SOURCE(3878, 91)
if ((0 != numberScanlinesA←v4680.f0)) {
SOURCE(3906, 63)
(* (hPt) (* (( (ptr) info←v4780)+1) ) ) = (* (( (hPt) &numberScanlinesA←v4680)+5) );
};
SOURCE(3971, 186)
if ((0 != pixelsPerLineA←v4708.f0)) {
{
word var←c17028;
word n←v16180;
SOURCE(3999, 62)
(* (( (hPt) (* (( (ptr) info←v4780)+1) ))+1) ) = (* (( (hPt) &pixelsPerLineA←v4708)+5) );
SOURCE(4063, 94)
{
word idx29;
n←v16180 = ((
idx29 = (word) ((IOP2( / , (int)pixelsPerLineA←v4708.f2, (int)2) + IOP2( % , (int)pixelsPerLineA←v4708.f2, (int)2)) +
32768),
BCK(idx29, 65536)
) - 32768);
};
var←c17028 = n←v16180;
(* (( (hPt) (* (( (ptr) info←v4780)+2) ))+1) ) = var←c17028;
};
};
SOURCE(4162, 70)
if ((0 != commentA←v4736.f0)) {
SOURCE(4182, 50)
{
word var←c17060;
var←c17060 = XR←NewObject(8, (* (( (ptr) gf←c17380)+8) ));
(* (ptr) var←c17060 ) = commentA←v4736.f4;
(* (( (ptr) var←c17060)+1) ) = (* (( (ptr) info←v4780)+5) );
(* (( (ptr) info←v4780)+5) ) = var←c17060;
};
};
SOURCE(4234, 20)
(void) WriteInfo←P180(out←v4864, info←v4780);
SOURCE(4256, 28)
{
word pd30;
pd30 = (* (( (ptr) (* (( (ptr) gf←c17380)+30)/* var←c16452 */ ))+30) );
(void) ( *( (fPt) ((* (ptr) pd30 ))))(in←v4836, (* (( (ptr) gf←c17380)+4)/* wordsHeader←v2776 */ ), pd30);
};
SOURCE(4286, 29)
{
word pd31;
pd31 = (* (( (ptr) (* (( (ptr) gf←c17380)+30)/* var←c16452 */ ))+30) );
(void) ( *( (fPt) ((* (ptr) pd31 ))))(out←v4864, (* (( (ptr) gf←c17380)+4)/* wordsHeader←v2776 */ ), pd31);
};
SOURCE(4317, 91)
lab←L100011: ;
SOURCE(4317, 91)
{
word nBytes←v4920;
SOURCE(4320, 37)
{
word pd32;
pd32 = (* (( (ptr) (* (( (ptr) gf←c17380)+30)/* var←c16452 */ ))+13) );
nBytes←v4920 = (word) ( *( (fPt) ((* (ptr) pd32 ))))(in←v4836, buffer←v4808, 0, 2147483647, pd32);
};
SOURCE(4359, 19)
if (( (int)nBytes←v4920 == (int)0)) {
SOURCE(4378, 4)
goto lab←L100010;
};
SOURCE(4384, 24)
{
word pd33;
pd33 = (* (( (ptr) (* (( (ptr) gf←c17380)+30)/* var←c16452 */ ))+23) );
(void) ( *( (fPt) ((* (ptr) pd33 ))))(out←v4864, buffer←v4808, 0, 2147483647, pd33);
};
};
goto lab←L100011;
lab←L100010: ;
SOURCE(4419, 12)
{
word pd34;
pd34 = (* (( (ptr) (* (( (ptr) gf←c17380)+30)/* var←c16452 */ ))+28) );
(void) ( *( (fPt) ((* (ptr) pd34 ))))(in←v4836, 0, pd34);
};
SOURCE(4433, 13)
{
word pd35;
pd35 = (* (( (ptr) (* (( (ptr) gf←c17380)+30)/* var←c16452 */ ))+28) );
(void) ( *( (fPt) ((* (ptr) pd35 ))))(out←v4864, 0, pd35);
};
};
goto lab←L100012;
lab←L100005: ;
SOURCE(4461, 35)
result←v5912 = (* (( (ptr) gf←c17380)+14) );
(* (( (ptr) &var←c17348)+5)/* msg←v5940 */ ) = (* (( (ptr) gf←c17380)+18) );
goto lab←L100000;
lab←L100012: ;
};
/* removed tail goto */
lab←L100000: ;
(* (ptr) formal←c072 ) = result←v5912;
(* (( (ptr) formal←c072)+1) ) = (* (( (ptr) &var←c17348)+5)/* msg←v5940 */ );
return;
}
static word NoName←Q780(formal←c092)
word formal←c092;
{
SOURCE(3454, 53)
{
word pd36;
pd36 = (* (( (ptr) formal←c092)+13) );
(* (( (ptr) formal←c092)+14) ) = (word) ( *( (fPt) ((* (ptr) pd36 ))))((* (( (ptr) formal←c092)+10) ), 0, 7, 1, 2560, (* (W2Pt) (
( (ptr) formal←c092)+11) )
, 0, 2147483647, 1, 0, 0, 0, pd36);
};
return(0);
}
static word NoName←Q840(formal←c094)
word formal←c094;
{
register ptr gf←c093 = (ptr) &globalframe;
SOURCE(3100, 212)
{
word pd37;
pd37 = (* (( (ptr) formal←c094)+11) );
(void) ( *( (fPt) ((* (ptr) pd37 ))))((word) (( (bPt) formal←c094)+48), (* (( (ptr) formal←c094)+4) ), (* (( (ptr) gf←c093)+15)
), 0, pd37);
};
return(0);
}
static void NoName←Q900(formal←c079, formal←c200004, formal←c200005, formal←c200006, formal←c200007)
word formal←c079;
word formal←c200004;
word formal←c200005;
word formal←c200006;
word formal←c200007;
{
register ptr gf←c095 = (ptr) &globalframe;
if ((formal←c200005 == (* (ptr) (* (( (ptr) (* (( (ptr) gf←c095)+33)/* var←c16964 */ ))+4) ) ))) {
{
W4 error←v15004;
error←v15004 = (* (W4Pt) formal←c200007 );
SOURCE(3507, 9)
(* (ptr) formal←c079 ) = 2;
(* (( (ptr) formal←c079)+1) ) = 3;
return;
};
};
(* (ptr) formal←c079 ) = 0;
(* (( (ptr) formal←c079)+1) ) = 0;
return;
}
static void NoName←Q960(formal←c085, formal←c200000, formal←c200001, formal←c200002, formal←c200003)
word formal←c085;
word formal←c200000;
word formal←c200001;
word formal←c200002;
word formal←c200003;
{
register ptr gf←c096 = (ptr) &globalframe;
if ((formal←c200001 == (* (( (ptr) (* (( (ptr) gf←c096)+31)/* var←c16772 */ ))+11) ))) {
{
word reason←v13084;
reason←v13084 = (* (ptr) formal←c200003 );
SOURCE(3300, 12)
(* (( (ptr) formal←c200000)+5) ) = reason←v13084;
SOURCE(3314, 8)
(* (ptr) formal←c085 ) = 2;
(* (( (ptr) formal←c085)+1) ) = 2;
return;
};
};
(* (ptr) formal←c085 ) = 0;
(* (( (ptr) formal←c085)+1) ) = 0;
return;
}
/* file: AISChangeHeaderImpl, module: AISChangeHeaderImpl, compiled at: March 10, 1992 11:57:44 am PST */
extern void XR←install←AISChangeHeaderImpl() {
NoName←Q720();
}
extern void XR←run←AISChangeHeaderImpl() { XR←Start(&globalframe); }