/* Generated with C2C (Cedar To C)*/
/* Copyright (C) 1993 by Xerox Corporation. All rights reserved. */
/* time: July 6, 1993 10:01:57 am PDT */
/* C2C version: April 20, 1993 (sun4) */
/* ref-counting: off */
/* file: IPAttributesImpl, module: IPAttributesImpl */
/* switches: bcfhklnouw */
#include <cedar/InstallationSupport.h>
#include <cedar/CedarExtra.h>
static char versionStamp[] = "@(#)mob←version [1206106522,102098181] IPAttributesImpl";
typedef unsigned word, *ptr;
typedef unsigned char byte, *bPt;
typedef unsigned short half, *hPt;
typedef struct {word f0, f1, f2, f3, f4, f5, f6, f7;} W8;
typedef struct {word f0, f1, f2;} W3;
typedef struct {W8 f; W3 r;} W11;
typedef W11 *W11Pt;
typedef word (*fPt)();
typedef struct {word f0, f1, f2, f3, f4, f5, f6;} W7;
typedef struct {word f0, f1;} W2;
typedef W3 *W3Pt;
typedef struct {word f0, f1, f2, f3, f4, f5;} W6;
typedef struct {W8 f; W6 r;} W14;
typedef struct {word f0, f1, f2, f3;} W4;
typedef struct {W8 f; W4 r;} W12;
#define SOURCE(p, l) /* source p, l */
#define SGNCK(i) ((int) (word) (i) < 0 ? XR←RaiseArithmeticFault(): i )
#define BCK(idx, lim) ( ((unsigned) idx) >= ((unsigned) lim) ? (XR←RaiseBoundsFault()) : (idx) )
static float fc114 = 1000.0;
static void NoName←Q3264();
static void IPAttributesImpl←P0();
static void MapRegisteredAttributes←P60();
static word KeyVal←P900();
static void RegisterAttr←P120();
static word GetIPToValue←P180();
static void GetProp←P240();
static word GenericCard←P300();
static word GenericString←P360();
static void IPAttrDebugCommand←P420();
static word Plex←P480();
static word Staple←P540();
static word ImageShift←P600();
static word Media←P660();
static void PrintVector←P720();
static void PutAttributeValue←P780();
static void IPAttr←P840();
static word NoName←Q3324();
static void ForAttribute←P2160();
static word NoName←Q3384();
static word NoName←Q3444();
static word NoName←Q3504();
static word NoName←Q3564();
static word FormatNames←P2316();
static void Dump←P2568();
static void NoName←Q3624();
static void NoName←Q3684();
static void NoName←Q3744();
static void NoName←Q3804();
static void NoName←Q3864();
static struct {unsigned f; char r[4];} string1 = {131076, "\216\251\000"};
static struct {unsigned f; char r[4];} string2 = {65537, "\001\000\000"};
static struct {unsigned f; char r[16];} string3 = {851984, "\257\300\177\225\363\334\300\341\277\240\013\100\200\000\000"};
static struct {unsigned f; char r[4];} string4 = {131074, "\004\007\000"};
static struct {unsigned f; char r[44];} string5 = {2752556, "\260\006\005\146\151\162\163\164\257\300\174\111\053\246\300\053\046\124\042\100\164\005\004\162\145\163\164\214\257\300\174\111\053\246\300\053\046\124\042\100\164\261\000"};
static struct {unsigned f; char r[4];} string6 = {131074, "\003\001\000"};
static struct {unsigned f; char r[16];} string7 = {851984, "\257\300\125\320\113\245\300\331\322\350\010\100\274\000\000"};
static struct {unsigned f; char r[16];} string8 = {786444, "\007\000\040\007\000\000\000\000\003\001\000\013\000\000\000"};
static struct {unsigned f; char r[16];} string9 = {851984, "\257\300\125\320\113\245\300\331\322\350\010\101\064\000\000"};
static struct {unsigned f; char r[12];} string10 = {524296, "\011\000\004\000\040\000\004\001\000\000\000"};
static struct {unsigned f; char r[16];} string11 = {851984, "\257\300\107\343\271\232\300\006\025\345\005\100\200\000\000"};
static struct {unsigned f; char r[4];} string12 = {131074, "\004\005\000"};
static struct {unsigned f; char r[16];} string13 = {917520, "\216\257\300\363\223\326\161\300\017\164\046\072\104\350\000"};
static struct {unsigned f; char r[16];} string14 = {851984, "\257\300\363\223\326\161\300\017\164\046\072\104\304\000\000"};
static struct {unsigned f; char r[24];} string15 = {1376277, "\007\000\001\002\007\020\001\002\000\007\036\002\004\003\002\004\014\016\015\003\001\000\000"};
static struct {unsigned f; char r[24];} string16 = {1310744, "ImageShiftHorizontal\000\000\000"};
static struct {unsigned f; char r[20];} string17 = {1179668, "ImageShiftVertical\000"};
static struct {unsigned f; char r[12];} string18 = {720908, "AccountInfo"};
static struct {unsigned f; char r[8];} string19 = {327688, "Media\000\000"};
static struct {unsigned f; char r[16];} string20 = {851984, "DocEndMessage\000\000"};
static struct {unsigned f; char r[8];} string21 = {393224, "Staple\000"};
static struct {unsigned f; char r[8];} string22 = {262152, "Plex\000\000\000"};
static struct {unsigned f; char r[12];} string23 = {720908, "IPAttrDebug"};
static struct {unsigned f; char r[12];} string24 = {524300, "Priority\000\000\000"};
static struct {unsigned f; char r[4];} string25 = {196612, "*/*"};
static struct {unsigned f; char r[16];} string26 = {786448, "DocumentDate\000\000\000"};
static struct {unsigned f; char r[4];} string27 = {131076, "on\000"};
static struct {unsigned f; char r[4];} string28 = {196612, "off"};
static struct {unsigned f; char r[8];} string29 = {458760, "simplex"};
static struct {unsigned f; char r[8];} string30 = {393224, "duplex\000"};
static struct {unsigned f; char r[16];} string31 = {786448, "tumbleDuplex\000\000\000"};
static struct {unsigned f; char r[16];} string32 = {983056, "duplexHeadToToe"};
static struct {unsigned f; char r[8];} string33 = {393224, "corner\000"};
static struct {unsigned f; char r[16];} string34 = {786448, "cornerStaple\000\000\000"};
static struct {unsigned f; char r[8];} string35 = {262152, "none\000\000\000"};
static struct {unsigned f; char r[16];} string36 = {851984, "finishingNone\000\000"};
static struct {unsigned f; char r[4];} string37 = {4, "\000\000\000"};
static struct {unsigned f; char r[16];} string38 = {786448, "DocumentName\000\000\000"};
static struct {unsigned f; char r[16];} string39 = {851984, "RecipientName\000\000"};
static struct {unsigned f; char r[8];} string40 = {327688, "[%g: \000\000"};
static struct {unsigned f; char r[8];} string41 = {262152, "null\000\000\000"};
static struct {unsigned f; char r[8];} string42 = {262152, "zero\000\000\000"};
static struct {unsigned f; char r[4];} string43 = {131076, "%g\000"};
static struct {unsigned f; char r[16];} string44 = {786448, "n: %g, d: %g\000\000\000"};
static struct {unsigned f; char r[20];} string45 = {1245204, "unknown Number type"};
static struct {unsigned f; char r[16];} string46 = {917520, "transformation\000"};
static struct {unsigned f; char r[8];} string47 = {327688, "color\000\000"};
static struct {unsigned f; char r[12];} string48 = {655372, "trajectory\000"};
static struct {unsigned f; char r[8];} string49 = {458760, "outline"};
static struct {unsigned f; char r[8];} string50 = {262152, "font\000\000\000"};
static struct {unsigned f; char r[8];} string51 = {458760, "clipper"};
static struct {unsigned f; char r[8];} string52 = {458760, "unknown"};
static struct {unsigned f; char r[4];} string53 = {131076, ", \000"};
static struct {unsigned f; char r[4];} string54 = {65540, "]\000\000"};
static struct {unsigned f; char r[4];} string55 = {65540, "[\000\000"};
static struct {unsigned f; char r[12];} string56 = {655372, "SenderName\000"};
static struct {unsigned f; char r[12];} string57 = {720908, "PrintVector"};
static struct {unsigned f; char r[4];} string58 = {65540, "\012\000\000"};
static struct {unsigned f; char r[40];} string59 = {2490408, " while processing printing instruction\000"};
static struct {unsigned f; char r[28];} string60 = {1638428, "PrintingInstructionsError\000\000"};
static struct {unsigned f; char r[8];} string61 = {327688, " was \000\000"};
static struct {unsigned f; char r[4];} string62 = {196612, "[%g"};
static struct {unsigned f; char r[4];} string63 = {65540, " \000\000"};
static struct {unsigned f; char r[16];} string64 = {851984, "\257\300\107\343\271\232\300\006\025\345\005\100\164\000\000"};
static struct {unsigned f; char r[16];} string65 = {851981, "\006\003\024\001\030\001\100\110\010\000\004\060\001\000\000"};
static struct {unsigned f; char r[16];} string66 = {851984, "\257\300\373\225\000\071\300\362\156\307\320\100\150\000\000"};
static struct {unsigned f; char r[16];} string67 = {851984, "\257\300\125\320\113\245\300\331\322\350\010\100\150\000\000"};
static struct {unsigned f; char r[16];} string68 = {851984, "\257\300\212\174\364\337\300\361\376\000\156\100\150\000\000"};
static struct {unsigned f; char r[16];} string69 = {851984, "\257\300\015\277\004\146\300\034\367\146\045\100\164\000\000"};
static struct {unsigned f; char r[16];} string70 = {851984, "\257\300|I+\246\300+&T\042@h\000\000"};
static struct {unsigned f; char r[16];} string71 = {851984, "\257\300\134\231\106\323\300\043\003\126\123\100\150\000\000"};
static struct {unsigned f; char r[16];} string72 = {851984, "\257\300\246\205\220\035\300\344\000\142\023\100\150\000\000"};
static struct {unsigned f; char r[16];} string73 = {851984, "\257\300\242\221\264\046\300\105\142\142\023\100\150\000\000"};
static struct {unsigned f; char r[16];} string74 = {851984, "\257\300\363\223\326\161\300\017\164\046\072\100\150\000\000"};
static struct {unsigned f; char r[16];} string75 = {851984, "\257\300\177\225\363\334\300\341\277\240\013\100\150\000\000"};
static struct {
word f0[66]; 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[3]; word f102;
word f103; word f104; word f105; word f106;
word f107[10];
} globalframe = {
{0}, (word) IPAttr←P840, 0, (word) PutAttributeValue←P780,
0, (word) PrintVector←P720, 0, (word) Media←P660,
0, (word) ImageShift←P600, 0, (word) Staple←P540,
0, (word) Plex←P480, 0, (word) IPAttrDebugCommand←P420,
0, (word) GenericString←P360, 0, (word) GenericCard←P300,
0, (word) GetProp←P240, 0, (word) GetIPToValue←P180,
0, (word) RegisterAttr←P120, 0, (word) MapRegisteredAttributes←P60,
0, (word) IPAttributesImpl←P0, 0, (word) 1970,
0, (word) 1, {0}, (word) 720,
(word) 1, (word) 7, (word) 2147483647, (word) 366,
{0}
};
static void NoName←Q3264()
{
register ptr gf←c0362 = (ptr) &globalframe;
word var←c36380;
(* (( (ptr) gf←c0362)+8) ) = (word) XR←GetTypeIndex((word) &string1, 0, (word) &string2);
(* (( (ptr) gf←c0362)+9) ) = (word) XR←GetTypeIndex((word) &string3, 0, (word) &string4);
(* (( (ptr) gf←c0362)+11) ) = (word) XR←GetTypeIndex((word) &string5, 0, (word) &string6);
(* (( (ptr) gf←c0362)+13) ) = (word) XR←GetTypeIndex((word) &string7, 0, (word) &string8);
(* (( (ptr) gf←c0362)+14) ) = (word) XR←GetTypeIndex((word) &string9, 0, (word) &string10);
(* (( (ptr) gf←c0362)+15) ) = (word) XR←GetTypeIndex((word) &string11, 0, (word) &string12);
(* (( (ptr) gf←c0362)+16) ) = (word) XR←GetTypeIndex((word) &string13, 0, (word) &string2);
(* (( (ptr) gf←c0362)+17) ) = (word) XR←GetTypeIndex((word) &string14, 0, (word) &string15);
(* (ptr) (( (bPt) gf←c0362)+72) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0362)+8) ), (word) &string16);
(* (ptr) (( (bPt) gf←c0362)+76) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0362)+8) ), (word) &string17);
(* (ptr) (( (bPt) gf←c0362)+80) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0362)+8) ), (word) &string18);
(* (ptr) (( (bPt) gf←c0362)+84) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0362)+8) ), (word) &string19);
(* (ptr) (( (bPt) gf←c0362)+88) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0362)+8) ), (word) &string20);
(* (ptr) (( (bPt) gf←c0362)+92) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0362)+8) ), (word) &string21);
(* (ptr) (( (bPt) gf←c0362)+96) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0362)+8) ), (word) &string22);
(* (ptr) (( (bPt) gf←c0362)+100) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0362)+16) ), (word) &string23);
(* (ptr) (( (bPt) gf←c0362)+104) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0362)+8) ), (word) &string24);
(* (ptr) (( (bPt) gf←c0362)+108) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0362)+16) ), (word) &string25);
(* (ptr) (( (bPt) gf←c0362)+112) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0362)+8) ), (word) &string26);
(* (ptr) (( (bPt) gf←c0362)+116) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0362)+16) ), (word) &string27);
(* (ptr) (( (bPt) gf←c0362)+120) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0362)+16) ), (word) &string28);
(* (ptr) (( (bPt) gf←c0362)+124) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0362)+16) ), (word) &string29);
(* (ptr) (( (bPt) gf←c0362)+128) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0362)+16) ), (word) &string30);
(* (ptr) (( (bPt) gf←c0362)+132) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0362)+16) ), (word) &string31);
(* (ptr) (( (bPt) gf←c0362)+136) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0362)+16) ), (word) &string32);
(* (ptr) (( (bPt) gf←c0362)+140) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0362)+16) ), (word) &string33);
(* (ptr) (( (bPt) gf←c0362)+144) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0362)+16) ), (word) &string34);
(* (ptr) (( (bPt) gf←c0362)+148) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0362)+16) ), (word) &string35);
(* (ptr) (( (bPt) gf←c0362)+152) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0362)+16) ), (word) &string36);
(* (ptr) (( (bPt) gf←c0362)+156) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0362)+16) ), (word) &string37);
(* (ptr) (( (bPt) gf←c0362)+160) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0362)+8) ), (word) &string38);
(* (ptr) (( (bPt) gf←c0362)+164) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0362)+8) ), (word) &string39);
(* (ptr) (( (bPt) gf←c0362)+168) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0362)+16) ), (word) &string40);
(* (ptr) (( (bPt) gf←c0362)+172) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0362)+16) ), (word) &string41);
(* (ptr) (( (bPt) gf←c0362)+176) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0362)+16) ), (word) &string42);
(* (ptr) (( (bPt) gf←c0362)+180) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0362)+16) ), (word) &string43);
(* (ptr) (( (bPt) gf←c0362)+184) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0362)+16) ), (word) &string44);
(* (ptr) (( (bPt) gf←c0362)+188) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0362)+16) ), (word) &string45);
(* (ptr) (( (bPt) gf←c0362)+192) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0362)+16) ), (word) &string46);
(* (ptr) (( (bPt) gf←c0362)+196) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0362)+16) ), (word) &string47);
(* (ptr) (( (bPt) gf←c0362)+200) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0362)+16) ), (word) &string48);
(* (ptr) (( (bPt) gf←c0362)+204) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0362)+16) ), (word) &string49);
(* (ptr) (( (bPt) gf←c0362)+208) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0362)+16) ), (word) &string50);
(* (ptr) (( (bPt) gf←c0362)+212) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0362)+16) ), (word) &string51);
(* (ptr) (( (bPt) gf←c0362)+216) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0362)+16) ), (word) &string52);
(* (ptr) (( (bPt) gf←c0362)+220) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0362)+16) ), (word) &string53);
(* (ptr) (( (bPt) gf←c0362)+224) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0362)+16) ), (word) &string54);
(* (ptr) (( (bPt) gf←c0362)+228) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0362)+16) ), (word) &string55);
(* (ptr) (( (bPt) gf←c0362)+232) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0362)+8) ), (word) &string56);
(* (ptr) (( (bPt) gf←c0362)+236) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0362)+8) ), (word) &string57);
(* (ptr) (( (bPt) gf←c0362)+240) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0362)+16) ), (word) &string58);
(* (ptr) (( (bPt) gf←c0362)+244) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0362)+16) ), (word) &string59);
(* (ptr) (( (bPt) gf←c0362)+248) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0362)+8) ), (word) &string60);
(* (ptr) (( (bPt) gf←c0362)+252) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0362)+16) ), (word) &string61);
(* (ptr) (( (bPt) gf←c0362)+256) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0362)+16) ), (word) &string62);
(* (ptr) (( (bPt) gf←c0362)+260) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0362)+16) ), (word) &string63);
(void) XR←DeclareGlobalFrame((word) "IPAttributesImpl", &globalframe, (word) XR←GetTypeIndex((word) &string64, 0, (word) &string65)
, (word) (( (bPt) gf←c0362)+376)/* var←c31484 */ );
var←c36380 = (word) XR←ImportInterface((word) "Commander", (word) XR←GetTypeIndexS((word) (&string66)), 3);
(* (( (ptr) gf←c0362)+109)/* var←c32892 */ ) = var←c36380;
(void) XR←ImportProcS(var←c36380, 1310725);
var←c36380 = (word) XR←ImportInterface((word) "DecomposerRegistry", (word) XR←GetTypeIndexS((word) (&string67)), 12);
(* (( (ptr) gf←c0362)+113)/* var←c33372 */ ) = var←c36380;
(void) XR←ImportProcS(var←c36380, 67372545);
(void) XR←ImportProcS(var←c36380, 67373057);
(void) XR←ImportProcS(var←c36380, 67372289);
var←c36380 = (word) XR←ImportInterface((word) "BasicTime", (word) XR←GetTypeIndexS((word) (&string68)), 24);
(* (( (ptr) gf←c0362)+107)/* var←c31580 */ ) = var←c36380;
(void) XR←ImportProcS(var←c36380, 69997569);
var←c36380 = (word) XR←ImportInterface((word) "IO", (word) XR←GetTypeIndexS((word) (&string69)), 103);
(* (( (ptr) gf←c0362)+115)/* var←c35100 */ ) = var←c36380;
(void) XR←ImportProcS(var←c36380, 67641090);
(void) XR←ImportProcS(var←c36380, 67378689);
(void) XR←ImportProcS(var←c36380, 799490);
(void) XR←ImportProcS(var←c36380, 1071364);
(void) XR←ImportProcS(var←c36380, 68958724);
(void) XR←ImportProcS(var←c36380, 67910402);
(void) XR←ImportProcS(var←c36380, 1063171);
var←c36380 = (word) XR←ImportInterface((word) "IPInstructions", (word) XR←GetTypeIndexS((word) (&string70)), 13);
(* (( (ptr) gf←c0362)+110)/* var←c33116 */ ) = var←c36380;
(void) XR←ImportProcS(var←c36380, 67374081);
(void) XR←ImportProcS(var←c36380, 67371009);
var←c36380 = (word) XR←ImportInterface((word) "IPInterpreter", (word) XR←GetTypeIndexS((word) (&string71)), 93);
(* (( (ptr) gf←c0362)+112)/* var←c33180 */ ) = var←c36380;
(void) XR←ImportProcS(var←c36380, 67376385);
(void) XR←ImportProcS(var←c36380, 67374849);
(void) XR←ImportProcS(var←c36380, 67375617);
(void) XR←ImportProcS(var←c36380, 67377153);
(void) XR←ImportProcS(var←c36380, 67639554);
(void) XR←ImportProcS(var←c36380, 134487297);
(void) XR←ImportProcS(var←c36380, 67375873);
(void) XR←ImportProcS(var←c36380, 67375361);
(void) XR←ImportProcS(var←c36380, 67383297);
(void) XR←ImportProcS(var←c36380, 67374081);
(void) XR←ImportProcS(var←c36380, 67376129);
(void) XR←ImportProcS(var←c36380, 134750978);
(void) XR←ImportProcS(var←c36380, 67383553);
var←c36380 = (word) XR←ImportInterface((word) "Real", (word) XR←GetTypeIndexS((word) (&string72)), 11);
(* (( (ptr) gf←c0362)+114)/* var←c33852 */ ) = var←c36380;
(void) XR←ImportProcS(var←c36380, 67371265);
(void) XR←ImportProcS(var←c36380, 67371521);
var←c36380 = (word) XR←ImportInterface((word) "RefTab", (word) XR←GetTypeIndexS((word) (&string73)), 16);
(* (( (ptr) gf←c0362)+108)/* var←c31612 */ ) = var←c36380;
(void) XR←ImportProcS(var←c36380, 134742786);
(void) XR←ImportProcS(var←c36380, 67896579);
(void) XR←ImportProcS(var←c36380, 67635458);
(void) XR←ImportProcS(var←c36380, 67895555);
var←c36380 = (word) XR←ImportInterface((word) "Rope", (word) XR←GetTypeIndexS((word) (&string74)), 43);
(* (( (ptr) gf←c0362)+111)/* var←c33148 */ ) = var←c36380;
(void) XR←ImportProcS(var←c36380, 68419845);
(void) XR←ImportProcS(var←c36380, 67633666);
(void) XR←ImportProcS(var←c36380, 67896323);
(void) XR←ImportProcS(var←c36380, 67900163);
var←c36380 = (word) XR←ExportInterface((word) "IPAttributes", (word) XR←GetTypeIndexS((word) (&string75)), 2);
(* (( (ptr) gf←c0362)+116)/* var←c36412 */ ) = var←c36380;
(void) XR←ExportProcS(var←c36380, (word) (( (bPt) gf←c0362)+264)/* var←c31036 */ , 262401, (word) "IPAttr");
}
static void IPAttributesImpl←P0(formal←c081, formal←c042)
word formal←c081;
word formal←c042;
{
register ptr gf←c36444 = (ptr) &globalframe;
/* IPAttributesImpl: */
SOURCE(204, 11844)
/* 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(851, 127)
{
word pd76;
pd76 = (* (( (ptr) (* (( (ptr) gf←c36444)+107)/* var←c31580 */ ))+24) );
(* (( (ptr) gf←c36444)+4)/* baseTime←v3364 */ ) = (word) ( *( (fPt) ((* (ptr) pd76 ))))((* (W11Pt) ((( (ptr) gf←c36444)+96)
/* var←c31548 */ ) ), pd76);
};
SOURCE(11109, 46)
{
word pd77;
pd77 = (* (( (ptr) (* (( (ptr) gf←c36444)+108)/* var←c31612 */ ))+5) );
(* (( (ptr) gf←c36444)+6)/* attrTable←v3868 */ ) = (word) ( *( (fPt) ((* (ptr) pd77 ))))(57, 0, 0, pd77);
};
SOURCE(11158, 80)
{
word var←c31644;
{
word var←c31676;
word var←c31708;
var←c31676 = XR←NewObject(8, (* (( (ptr) gf←c36444)+11) ));
var←c31708 = var←c31676;
(* (ptr) var←c31708 ) = 56;
(* (( (ptr) var←c31708)+1) ) = XR←NewObject(8, (* (( (ptr) gf←c36444)+11) ));
var←c31708 = (* (( (ptr) var←c31708)+1) );
(* (ptr) var←c31708 ) = 60;
var←c31644 = var←c31676;
};
(void) RegisterAttr←P120((* (( (ptr) gf←c36444)+58) ), (word) (( (bPt) gf←c36444)+328)/* var←c31292 */ , var←c31644);
};
SOURCE(11240, 86)
{
word var←c31740;
{
word var←c31772;
word var←c31804;
var←c31772 = XR←NewObject(8, (* (( (ptr) gf←c36444)+11) ));
var←c31804 = var←c31772;
(* (ptr) var←c31804 ) = 56;
(* (( (ptr) var←c31804)+1) ) = XR←NewObject(8, (* (( (ptr) gf←c36444)+11) ));
var←c31804 = (* (( (ptr) var←c31804)+1) );
(* (ptr) var←c31804 ) = 59;
var←c31740 = var←c31772;
};
(void) RegisterAttr←P120((* (( (ptr) gf←c36444)+41) ), (word) (( (bPt) gf←c36444)+328)/* var←c31292 */ , var←c31740);
};
SOURCE(11328, 57)
{
word var←c31836;
{
word var←c31868;
word var←c31900;
var←c31868 = XR←NewObject(8, (* (( (ptr) gf←c36444)+11) ));
var←c31900 = var←c31868;
(* (ptr) var←c31900 ) = 41;
var←c31836 = var←c31868;
};
(void) RegisterAttr←P120((* (( (ptr) gf←c36444)+40) ), (word) (( (bPt) gf←c36444)+328)/* var←c31292 */ , var←c31836);
};
SOURCE(11387, 65)
{
word var←c31932;
{
word var←c31964;
word var←c31996;
var←c31964 = XR←NewObject(8, (* (( (ptr) gf←c36444)+11) ));
var←c31996 = var←c31964;
(* (ptr) var←c31996 ) = 39;
var←c31932 = var←c31964;
};
(void) RegisterAttr←P120((* (( (ptr) gf←c36444)+28) ), (word) (( (bPt) gf←c36444)+328)/* var←c31292 */ , var←c31932);
};
SOURCE(11454, 65)
{
word var←c32028;
{
word var←c32060;
word var←c32092;
var←c32060 = XR←NewObject(8, (* (( (ptr) gf←c36444)+11) ));
var←c32092 = var←c32060;
(* (ptr) var←c32092 ) = 39;
var←c32028 = var←c32060;
};
(void) RegisterAttr←P120((* (( (ptr) gf←c36444)+28) ), (word) (( (bPt) gf←c36444)+328)/* var←c31292 */ , var←c32028);
};
SOURCE(11521, 78)
{
word var←c32124;
{
word var←c32156;
word var←c32188;
var←c32156 = XR←NewObject(8, (* (( (ptr) gf←c36444)+11) ));
var←c32188 = var←c32156;
(* (ptr) var←c32188 ) = 56;
(* (( (ptr) var←c32188)+1) ) = XR←NewObject(8, (* (( (ptr) gf←c36444)+11) ));
var←c32188 = (* (( (ptr) var←c32188)+1) );
(* (ptr) var←c32188 ) = 69;
var←c32124 = var←c32156;
};
(void) RegisterAttr←P120((* (( (ptr) gf←c36444)+26) ), (word) (( (bPt) gf←c36444)+336)/* var←c31324 */ , var←c32124);
};
SOURCE(11601, 37)
{
word var←c32220;
{
word var←c32252;
word var←c32284;
var←c32252 = XR←NewObject(8, (* (( (ptr) gf←c36444)+11) ));
var←c32284 = var←c32252;
(* (ptr) var←c32284 ) = 17;
var←c32220 = var←c32252;
};
(void) RegisterAttr←P120((* (( (ptr) gf←c36444)+24) ), (word) (( (bPt) gf←c36444)+312)/* var←c31228 */ , var←c32220);
};
SOURCE(11640, 46)
{
word var←c32316;
{
word var←c32348;
word var←c32380;
var←c32348 = XR←NewObject(8, (* (( (ptr) gf←c36444)+11) ));
var←c32380 = var←c32348;
(* (ptr) var←c32380 ) = 44;
var←c32316 = var←c32348;
};
(void) RegisterAttr←P120((* (( (ptr) gf←c36444)+23) ), (word) (( (bPt) gf←c36444)+304)/* var←c31196 */ , var←c32316);
};
SOURCE(11688, 66)
{
word var←c32412;
{
word var←c32444;
word var←c32476;
var←c32444 = XR←NewObject(8, (* (( (ptr) gf←c36444)+11) ));
var←c32476 = var←c32444;
(* (ptr) var←c32476 ) = 21;
var←c32412 = var←c32444;
};
(void) RegisterAttr←P120((* (( (ptr) gf←c36444)+18) ), (word) (( (bPt) gf←c36444)+296)/* var←c31164 */ , var←c32412);
};
SOURCE(11756, 64)
{
word var←c32508;
{
word var←c32540;
word var←c32572;
var←c32540 = XR←NewObject(8, (* (( (ptr) gf←c36444)+11) ));
var←c32572 = var←c32540;
(* (ptr) var←c32572 ) = 22;
var←c32508 = var←c32540;
};
(void) RegisterAttr←P120((* (( (ptr) gf←c36444)+19) ), (word) (( (bPt) gf←c36444)+296)/* var←c31164 */ , var←c32508);
};
SOURCE(11822, 63)
{
word var←c32604;
{
word var←c32636;
word var←c32668;
var←c32636 = XR←NewObject(8, (* (( (ptr) gf←c36444)+11) ));
var←c32668 = var←c32636;
(* (ptr) var←c32668 ) = 58;
var←c32604 = var←c32636;
};
(void) RegisterAttr←P120((* (( (ptr) gf←c36444)+20) ), (word) (( (bPt) gf←c36444)+328)/* var←c31292 */ , var←c32604);
};
SOURCE(11887, 40)
{
word var←c32700;
var←c32700 = XR←NewObject(8, (* (( (ptr) gf←c36444)+11) ));
{
word var←c32764;
var←c32764 = var←c32700;
};
(void) RegisterAttr←P120((* (( (ptr) gf←c36444)+21) ), (word) (( (bPt) gf←c36444)+288)/* var←c31132 */ , var←c32700);
};
SOURCE(11929, 64)
{
word var←c32796;
{
word var←c32828;
word var←c32860;
var←c32828 = XR←NewObject(8, (* (( (ptr) gf←c36444)+11) ));
var←c32860 = var←c32828;
(* (ptr) var←c32860 ) = 42;
var←c32796 = var←c32828;
};
(void) RegisterAttr←P120((* (( (ptr) gf←c36444)+22) ), (word) (( (bPt) gf←c36444)+328)/* var←c31292 */ , var←c32796);
};
SOURCE(11995, 53)
{
word pd78;
pd78 = (* (( (ptr) (* (( (ptr) gf←c36444)+109)/* var←c32892 */ ))+4) );
(void) ( *( (fPt) ((* (ptr) pd78 ))))((* (( (ptr) gf←c36444)+25) ), (word) (( (bPt) gf←c36444)+320)/* var←c31260 */ , 0, 0, 1, pd78)
;
};
}
static void MapRegisteredAttributes←P60(formal←c0415)
word formal←c0415;
{
W7 var←c36476;
/* declaration of proc←v4344 skipped */
register ptr gf←c36508 = (ptr) &globalframe;
/* declaration of var←c32924 skipped */
var←c36476.f4/* proc←v4344 */ = formal←c0415;
/* MapRegisteredAttributes: */
SOURCE(1071, 217)
{
word tmpAddr79;
tmpAddr79 = (word) (( (ptr) &var←c36476)+5)/* var←c32924 */ ;
(* (ptr) tmpAddr79 ) = ( ((word) (fPt) KeyVal←P900) );
(* (( (ptr) tmpAddr79) + 1) ) = 1;
};
SOURCE(1252, 36)
{
word var←c32956;
word pd80;
pd80 = (* (( (ptr) (* (( (ptr) gf←c36508)+108)/* var←c31612 */ ))+13) );
var←c32956 = (word) ( *( (fPt) ((* (ptr) pd80 ))))((* (( (ptr) gf←c36508)+6)/* attrTable←v3868 */ ), (word) (( (bPt) &var←c36476)+20)
/* var←c32924 */ , pd80);
};
}
static word KeyVal←P900(key←v17788, val←v17816, formal←c36572)
word key←v17788;
word val←v17816;
word formal←c36572;
{
register ptr gf←c36540 = (ptr) &globalframe;
word quit←v17860;
formal←c36572 = (formal←c36572 - 20);
/* KeyVal: */
SOURCE(1130, 108)
SOURCE(1130, 108)
quit←v17860 = 0;
SOURCE(1164, 74)
{
word var←c32988;
var←c32988 = val←v17816;
if ((var←c32988 == 0)) {
goto lab←L100000;
};
if (((* (( (ptr) gf←c36540)+15) ) == XR←GetReferentType(var←c32988))) {
{
word ent←v5384;
ent←v5384 = var←c32988;
SOURCE(1203, 35)
{
word pd81;
pd81 = (* (( (ptr) formal←c36572)+4) );
(void) ( *( (fPt) ((* (ptr) pd81 ))))((* (ptr) ent←v5384 ), (* (( (ptr) ent←v5384)+1) ), (* (( (ptr) ent←v5384)+2) ), pd81)
;
};
};
}
else {
lab←L100000: ;
};
};
SOURCE(1130, 108)
return(quit←v17860);
}
static void RegisterAttr←P120(attr←v4648, proc←v4676, names←v4704)
word attr←v4648;
word proc←v4676;
word names←v4704;
{
register ptr gf←c36604 = (ptr) &globalframe;
word new←v5428;
/* RegisterAttr: */
SOURCE(1454, 215)
SOURCE(1553, 75)
new←v5428 = XR←NewObject(12, (* (( (ptr) gf←c36604)+15) ));
(* (ptr) new←v5428 ) = attr←v4648;
(* (( (ptr) new←v5428)+1) ) = XR←CheckProc(proc←v4676);
(* (( (ptr) new←v5428)+2) ) = names←v4704;
SOURCE(1630, 39)
{
word var←c33052;
word pd82;
pd82 = (* (( (ptr) (* (( (ptr) gf←c36604)+108)/* var←c31612 */ ))+9) );
var←c33052 = (word) ( *( (fPt) ((* (ptr) pd82 ))))((* (( (ptr) gf←c36604)+6)/* attrTable←v3868 */ ), attr←v4648, new←v5428, pd82)
;
};
}
static word GetIPToValue←P180(attr←v4848)
word attr←v4848;
{
register ptr gf←c36636 = (ptr) &globalframe;
word proc←v4892;
/* GetIPToValue: */
SOURCE(1675, 180)
SOURCE(1675, 180)
proc←v4892 = 0;
SOURCE(1746, 109)
{
word var←c33084;
W2 var←c098;
{
word pd83;
pd83 = (* (( (ptr) (* (( (ptr) gf←c36636)+108)/* var←c31612 */ ))+7) );
(void) ( *( (fPt) ((* (ptr) pd83 ))))((word) &var←c098, (* (( (ptr) gf←c36636)+6)/* attrTable←v3868 */ ), attr←v4848, pd83)
;
};
var←c33084 = var←c098.f1;
if ((var←c33084 == 0)) {
goto lab←L100001;
};
if (((* (( (ptr) gf←c36636)+15) ) == XR←GetReferentType(var←c33084))) {
{
word ae←v5472;
ae←v5472 = var←c33084;
SOURCE(1814, 16)
return(XR←CheckProc(* (( (ptr) ae←v5472)+1) ));
};
}
else {
lab←L100001: ;
SOURCE(1843, 12)
return(0);
};
};
}
static void GetProp←P240(formal←c0110, iv←v4952, names←v4980)
word formal←c0110;
word iv←v4952;
word names←v4980;
{
register ptr gf←c36668 = (ptr) &globalframe;
word found←v5108;
word value←v5136;
word v←v5516;
/* GetProp: */
SOURCE(1860, 527)
SOURCE(1860, 527)
found←v5108 = 0;
SOURCE(1860, 527)
value←v5136 = 0;
SOURCE(1988, 23)
v←v5516 = iv←v4952;
SOURCE(2013, 374)
{
register word tail←v5560;
tail←v5560 = names←v4980;
lab←L100006: ;
if ((tail←v5560 != 0)) {
}
else {
goto lab←L100003;
};
{
word nameRope←v5688;
word name←v5716;
SOURCE(2091, 60)
{
word pd84;
pd84 = (* (( (ptr) (* (( (ptr) gf←c36668)+110)/* var←c33116 */ ))+4) );
nameRope←v5688 = (word) ( *( (fPt) ((* (ptr) pd84 ))))((* (ptr) (tail←v5560) ), pd84);
};
SOURCE(2153, 109)
{
word tc85;
word pd86;
word pd87;
pd86 = (* (( (ptr) (* (( (ptr) gf←c36668)+111)/* var←c33148 */ ))+23) );
if ((0 != (word) ( *( (fPt) ((* (ptr) pd86 ))))((* (( (ptr) gf←c36668)+27) ), nameRope←v5688, 1, pd86))) {
pd87 = (* (( (ptr) (* (( (ptr) gf←c36668)+112)/* var←c33180 */ ))+53) );
tc85 = (word) ( *( (fPt) ((* (ptr) pd87 ))))(nameRope←v5688, pd87);
}
else {
tc85 = (word) nameRope←v5688;
};
name←v5716 = tc85;
};
SOURCE(2264, 47)
{
W2 var←c33212;
{
word pd88;
pd88 = (* (( (ptr) (* (( (ptr) gf←c36668)+112)/* var←c33180 */ ))+39) );
(void) ( *( (fPt) ((* (ptr) pd88 ))))((word) &var←c33212, v←v5516, name←v5716, pd88);
};
value←v5136 = var←c33212.f1;
found←v5108 = var←c33212.f0;
};
SOURCE(2313, 74)
if ( ( (0 != found←v5108) ? ((* (( (ptr) tail←v5560)+1) ) != 0) : 0 ) ) {
SOURCE(2349, 38)
{
word pd89;
pd89 = (* (( (ptr) (* (( (ptr) gf←c36668)+112)/* var←c33180 */ ))+24) );
v←v5516 = (word) ( *( (fPt) ((* (ptr) pd89 ))))(value←v5136, pd89);
};
};
};
tail←v5560 = (* (( (ptr) tail←v5560)+1) );
goto lab←L100006;
lab←L100003: ;
};
/* removed tail goto */
(* (ptr) formal←c0110 ) = found←v5108;
(* (( (ptr) formal←c0110)+1) ) = value←v5136;
return;
}
static word GenericCard←P300(attr←v12132, iv←v12160, names←v12188)
word attr←v12132;
word iv←v12160;
word names←v12188;
{
register ptr gf←c36700 = (ptr) &globalframe;
word seq←v12232;
word any←v5760 = 0;
word found←v5788 = 0;
/* GenericCard: */
SOURCE(2405, 224)
SOURCE(2405, 224)
seq←v12232 = 0;
SOURCE(2476, 33)
{
W2 var←c33244;
(void) GetProp←P240((word) &var←c33244, iv←v12160, names←v12188);
any←v5760 = var←c33244.f1;
found←v5788 = var←c33244.f0;
};
SOURCE(2511, 118)
if ((0 != found←v5788)) {
SOURCE(2527, 25)
{
word var←c33276;
var←c33276 = XR←NewObject(8, (* (( (ptr) gf←c36700)+14) ));
(* (ptr) var←c33276 ) = 1;
seq←v12232 = var←c33276;
};
SOURCE(2554, 75)
{
word var←c33308;
{
word var←c33340;
{
word pd90;
word idx91;
pd90 = (* (( (ptr) (* (( (ptr) gf←c36700)+112)/* var←c33180 */ ))+16) );
var←c33340 = (
idx91 = (word) ( *( (fPt) ((* (ptr) pd90 ))))(any←v5760, pd90),
SGNCK(idx91)
);
};
{
word pd92;
pd92 = (* (( (ptr) (* (( (ptr) gf←c36700)+113)/* var←c33372 */ ))+9) );
var←c33308 = (word) ( *( (fPt) ((* (ptr) pd92 ))))(var←c33340, pd92);
};
};
{
word limit93;
(* ((( (ptr) seq←v12232)+1)+(
limit93 = (* (ptr) seq←v12232 ),
BCK(0, limit93)
)) ) = var←c33308;
};
};
};
SOURCE(2405, 224)
return(seq←v12232);
}
static word GenericString←P360(attr←v12292, iv←v12320, names←v12348)
word attr←v12292;
word iv←v12320;
word names←v12348;
{
register ptr gf←c36732 = (ptr) &globalframe;
word seq←v12392;
word found←v5832 = 0;
word any←v5860 = 0;
/* GenericString: */
SOURCE(2638, 254)
SOURCE(2638, 254)
seq←v12392 = 0;
SOURCE(2711, 33)
{
W2 var←c33404;
(void) GetProp←P240((word) &var←c33404, iv←v12320, names←v12348);
any←v5860 = var←c33404.f1;
found←v5832 = var←c33404.f0;
};
SOURCE(2746, 146)
if ((0 != found←v5832)) {
SOURCE(2762, 25)
{
word var←c33436;
var←c33436 = XR←NewObject(8, (* (( (ptr) gf←c36732)+14) ));
(* (ptr) var←c33436 ) = 1;
seq←v12392 = var←c33436;
};
SOURCE(2789, 103)
{
word var←c33468;
{
word var←c33500;
{
word var←c33532;
{
word pd94;
pd94 = (* (( (ptr) (* (( (ptr) gf←c36732)+112)/* var←c33180 */ ))+24) );
var←c33532 = (word) ( *( (fPt) ((* (ptr) pd94 ))))(any←v5860, pd94);
};
{
word pd95;
pd95 = (* (( (ptr) (* (( (ptr) gf←c36732)+112)/* var←c33180 */ ))+52) );
var←c33500 = (word) ( *( (fPt) ((* (ptr) pd95 ))))(var←c33532, pd95);
};
};
{
word pd96;
pd96 = (* (( (ptr) (* (( (ptr) gf←c36732)+113)/* var←c33372 */ ))+12) );
var←c33468 = (word) ( *( (fPt) ((* (ptr) pd96 ))))(var←c33500, pd96);
};
};
{
word limit97;
(* ((( (ptr) seq←v12392)+1)+(
limit97 = (* (ptr) seq←v12392 ),
BCK(0, limit97)
)) ) = var←c33468;
};
};
};
SOURCE(2638, 254)
return(seq←v12392);
}
static void IPAttrDebugCommand←P420(formal←c0137, cmd←v12452)
word formal←c0137;
word cmd←v12452;
{
register ptr gf←c36764 = (ptr) &globalframe;
word result←v12496;
word msg←v12524;
/* IPAttrDebugCommand: */
SOURCE(2925, 122)
SOURCE(2925, 122)
result←v12496 = 0;
SOURCE(2925, 122)
msg←v12524 = 0;
SOURCE(2971, 76)
if (((* (( (ptr) gf←c36764)+5)/* debug←v3616 */ ) == 0)) {
SOURCE(2992, 13)
(* (( (ptr) gf←c36764)+5)/* debug←v3616 */ ) = (* (( (ptr) cmd←v12452)+2) );
SOURCE(3007, 10)
msg←v12524 = (* (( (ptr) gf←c36764)+29) );
}
else {
SOURCE(3025, 9)
(* (( (ptr) gf←c36764)+5)/* debug←v3616 */ ) = 0;
SOURCE(3036, 11)
msg←v12524 = (* (( (ptr) gf←c36764)+30) );
};
/* removed tail goto */
(* (ptr) formal←c0137 ) = result←v12496;
(* (( (ptr) formal←c0137)+1) ) = msg←v12524;
return;
}
static word Plex←P480(attr←v12584, iv←v12612, names←v12640)
word attr←v12584;
word iv←v12612;
word names←v12640;
{
register ptr gf←c36796 = (ptr) &globalframe;
word seq←v12684;
word value←v5904;
W2 var←c0143;
/* Plex: */
SOURCE(3054, 481)
SOURCE(3054, 481)
seq←v12684 = 0;
SOURCE(3078, 37)
(void) GetProp←P240((word) &var←c0143, iv←v12612, names←v12640);
value←v5904 = var←c0143.f1;
SOURCE(3117, 418)
{
word var←c33564;
var←c33564 = value←v5904;
if ((var←c33564 == 0)) {
goto lab←L100008;
};
{
word tc98;
if (((* (( (ptr) gf←c36796)+17) ) == XR←GetReferentType(var←c33564))) {
tc98 = (word) ( (unsigned) (*(int*)var←c33564<0) == 0);
}
else {
tc98 = (word) 0;
};
if (tc98) {
{
word text←v5964;
text←v5964 = var←c33564;
SOURCE(3154, 383)
{
word plex←v6008 = (word) -1;
{
word pd99;
pd99 = (* (( (ptr) (* (( (ptr) gf←c36796)+111)/* var←c33148 */ ))+8) );
if ((0 != (word) ( *( (fPt) ((* (ptr) pd99 ))))((* (( (ptr) gf←c36796)+31) ), text←v5964, 0, pd99))) {
SOURCE(3257, 14)
plex←v6008 = 1;
}
else {
{
word pd100;
pd100 = (* (( (ptr) (* (( (ptr) gf←c36796)+111)/* var←c33148 */ ))+8) );
if ((0 != (word) ( *( (fPt) ((* (ptr) pd100 ))))((* (( (ptr) gf←c36796)+32) ), text←v5964, 0, pd100))) {
SOURCE(3310, 13)
/*1*/ plex←v6008 = 2;
/*1*/ }
else {
/*1*/ {
/*1*/ word pd101;
/*1*/ pd101 = (* (( (ptr) (* (( (ptr) gf←c36796)+111)/* var←c33148 */ ))+8) );
/*1*/ if ((0 != (word) ( *( (fPt) ((* (ptr) pd101 ))))((* (( (ptr) gf←c36796)+33) ), text←v5964, 0, pd101))) {
SOURCE(3368, 13)
/*1*/ plex←v6008 = 3;
/*1*/ }
/*1*/ else {
/*1*/ {
/*1*/ word pd102;
/*1*/ pd102 = (* (( (ptr) (* (( (ptr) gf←c36796)+111)/* var←c33148 */ ))+8) );
/*1*/ if ((0 != (word) ( *( (fPt) ((* (ptr) pd102 ))))((* (( (ptr) gf←c36796)+34) ), text←v5964, 0, pd102))) {
SOURCE(3431, 13)
/*1*/ plex←v6008 = 3;
/*1*/ };
/*1*/ };
/*1*/ };
/*1*/ };
/*1*/ };
};
};
};
SOURCE(3458, 25)
{
word var←c33596;
var←c33596 = XR←NewObject(8, (* (( (ptr) gf←c36796)+14) ));
(* (ptr) var←c33596 ) = 1;
seq←v12684 = var←c33596;
};
SOURCE(3485, 50)
{
word var←c33628;
{
word pd103;
pd103 = (* (( (ptr) (* (( (ptr) gf←c36796)+113)/* var←c33372 */ ))+9) );
var←c33628 = (word) ( *( (fPt) ((* (ptr) pd103 ))))(plex←v6008, pd103);
};
{
word limit104;
(* ((( (ptr) seq←v12684)+1)+(
/*1*/ limit104 = (* (ptr) seq←v12684 ),
/*1*/ BCK(0, limit104)
/*1*/ )) ) = var←c33628;
};
};
};
};
}
else {
lab←L100008: ;
};
};
};
SOURCE(3054, 481)
return(seq←v12684);
}
static word Staple←P540(attr←v12744, iv←v12772, names←v12800)
word attr←v12744;
word iv←v12772;
word names←v12800;
{
register ptr gf←c36828 = (ptr) &globalframe;
word seq←v12844;
word value←v6052;
W2 var←c0154;
/* Staple: */
SOURCE(3553, 514)
SOURCE(3553, 514)
seq←v12844 = 0;
SOURCE(3579, 37)
(void) GetProp←P240((word) &var←c0154, iv←v12772, names←v12800);
value←v6052 = var←c0154.f1;
SOURCE(3618, 449)
{
word var←c33660;
var←c33660 = value←v6052;
if ((var←c33660 == 0)) {
goto lab←L100009;
};
{
word tc105;
if (((* (( (ptr) gf←c36828)+17) ) == XR←GetReferentType(var←c33660))) {
tc105 = (word) ( (unsigned) (*(int*)var←c33660<0) == 0);
}
else {
tc105 = (word) 0;
};
if (tc105) {
{
word text←v6108;
text←v6108 = var←c33660;
SOURCE(3655, 414)
{
word staple←v6152 = (word) -1;
{
word pd106;
pd106 = (* (( (ptr) (* (( (ptr) gf←c36828)+111)/* var←c33148 */ ))+8) );
if ((0 != (word) ( *( (fPt) ((* (ptr) pd106 ))))((* (( (ptr) gf←c36828)+35) ), text←v6108, 0, pd106))) {
SOURCE(3761, 31)
staple←v6152 = 1;
}
else {
{
word pd107;
pd107 = (* (( (ptr) (* (( (ptr) gf←c36828)+111)/* var←c33148 */ ))+8) );
if ((0 != (word) ( *( (fPt) ((* (ptr) pd107 ))))((* (( (ptr) gf←c36828)+36) ), text←v6108, 0, pd107))) {
SOURCE(3837, 31)
/*1*/ staple←v6152 = 1;
/*1*/ }
else {
/*1*/ {
/*1*/ word pd108;
/*1*/ pd108 = (* (( (ptr) (* (( (ptr) gf←c36828)+111)/* var←c33148 */ ))+8) );
/*1*/ if ((0 != (word) ( *( (fPt) ((* (ptr) pd108 ))))((* (( (ptr) gf←c36828)+37) ), text←v6108, 0, pd108))) {
SOURCE(3905, 13)
/*1*/ staple←v6152 = 0;
/*1*/ }
/*1*/ else {
/*1*/ {
/*1*/ word pd109;
/*1*/ pd109 = (* (( (ptr) (* (( (ptr) gf←c36828)+111)/* var←c33148 */ ))+8) );
/*1*/ if ((0 != (word) ( *( (fPt) ((* (ptr) pd109 ))))((* (( (ptr) gf←c36828)+38) ), text←v6108, 0, pd109))) {
SOURCE(3964, 13)
/*1*/ staple←v6152 = 0;
/*1*/ };
/*1*/ };
/*1*/ };
/*1*/ };
/*1*/ };
};
};
};
SOURCE(3988, 25)
{
word var←c33692;
var←c33692 = XR←NewObject(8, (* (( (ptr) gf←c36828)+14) ));
(* (ptr) var←c33692 ) = 1;
seq←v12844 = var←c33692;
};
SOURCE(4015, 52)
{
word var←c33724;
{
word pd110;
pd110 = (* (( (ptr) (* (( (ptr) gf←c36828)+113)/* var←c33372 */ ))+9) );
var←c33724 = (word) ( *( (fPt) ((* (ptr) pd110 ))))(staple←v6152, pd110);
};
{
word limit111;
(* ((( (ptr) seq←v12844)+1)+(
/*1*/ limit111 = (* (ptr) seq←v12844 ),
/*1*/ BCK(0, limit111)
/*1*/ )) ) = var←c33724;
};
};
};
};
}
else {
lab←L100009: ;
};
};
};
SOURCE(3553, 514)
return(seq←v12844);
}
static word ImageShift←P600(attr←v12904, iv←v12932, names←v12960)
word attr←v12904;
word iv←v12932;
word names←v12960;
{
register ptr gf←c36860 = (ptr) &globalframe;
word seq←v13004;
word any←v6196;
W2 var←c0165;
/* ImageShift: */
SOURCE(4085, 270)
SOURCE(4085, 270)
seq←v13004 = 0;
SOURCE(4115, 44)
(void) GetProp←P240((word) &var←c0165, iv←v12932, names←v12960);
any←v6196 = var←c0165.f1;
SOURCE(4161, 194)
if ((any←v6196 != 0)) {
SOURCE(4179, 176)
{
word shift←v6240;
SOURCE(4181, 51)
{
word pd112;
word x113;
word x115;
pd112 = (* (( (ptr) (* (( (ptr) gf←c36860)+112)/* var←c33180 */ ))+21) );
*(float*)&shift←v6240 = (
x113 = (word) ( *( (fPt) ((* (ptr) pd112 ))))(any←v6196, pd112), *(float*)&x113
) * (
x115 = (* (ptr) &fc114 ), *(float*)&x115
);
};
SOURCE(4251, 44)
{
word var←c33756;
var←c33756 = XR←NewObject(8, (* (( (ptr) gf←c36860)+14) ));
(* (ptr) var←c33756 ) = 1;
seq←v13004 = var←c33756;
};
SOURCE(4297, 58)
{
word var←c33788;
{
word var←c33820;
{
word pd116;
pd116 = (* (( (ptr) (* (( (ptr) gf←c36860)+114)/* var←c33852 */ ))+6) );
var←c33820 = (word) ( *( (fPt) ((* (ptr) pd116 ))))(shift←v6240, pd116);
};
{
word pd117;
pd117 = (* (( (ptr) (* (( (ptr) gf←c36860)+113)/* var←c33372 */ ))+10) );
var←c33788 = (word) ( *( (fPt) ((* (ptr) pd117 ))))(var←c33820, pd117);
};
};
{
word limit118;
(* ((( (ptr) seq←v13004)+1)+(
limit118 = (* (ptr) seq←v13004 ),
BCK(0, limit118)
)) ) = var←c33788;
};
};
};
};
SOURCE(4085, 270)
return(seq←v13004);
}
static word Media←P660(attr←v13064, iv←v13092, names←v13120)
word attr←v13064;
word iv←v13092;
word names←v13120;
{
register ptr gf←c36892 = (ptr) &globalframe;
word seq←v13164;
word RealFromAny←v6424;
word IdentifierFromAny←v6452;
word VectorFromAny←v6480;
word Shape←v6508;
word any←v6536;
W2 var←c0179;
/* Media: */
SOURCE(4362, 2297)
SOURCE(4362, 2297)
seq←v13164 = 0;
SOURCE(4613, 19)
RealFromAny←v6424 = (* (( (ptr) (* (( (ptr) gf←c36892)+112)/* var←c33180 */ ))+21) );
SOURCE(4681, 25)
IdentifierFromAny←v6452 = (* (( (ptr) (* (( (ptr) gf←c36892)+112)/* var←c33180 */ ))+23) );
SOURCE(4761, 21)
VectorFromAny←v6480 = (* (( (ptr) (* (( (ptr) gf←c36892)+112)/* var←c33180 */ ))+24) );
SOURCE(4835, 13)
Shape←v6508 = (* (( (ptr) (* (( (ptr) gf←c36892)+112)/* var←c33180 */ ))+33) );
SOURCE(4902, 35)
(void) GetProp←P240((word) &var←c0179, iv←v13092, names←v13120);
any←v6536 = var←c0179.f1;
SOURCE(4940, 1719)
if ((any←v6536 != 0)) {
SOURCE(4958, 1712)
{
word mediaVec←v7164;
W2 mediaShape←v7192;
word size←v7220;
word lb←v7248;
word ub←v7276;
SOURCE(5196, 37)
mediaVec←v7164 = (word) ( *( (fPt) ((* (ptr) VectorFromAny←v6480 ))))(any←v6536, VectorFromAny←v6480);
SOURCE(5235, 41)
(void) ( *( (fPt) ((* (ptr) Shape←v6508 ))))((word) &mediaShape←v7192, mediaVec←v7164, Shape←v6508);
SOURCE(5278, 32)
{
word idx119;
size←v7220 = (
idx119 = (word) mediaShape←v7192.f1,
SGNCK(idx119)
);
};
SOURCE(5312, 36)
lb←v7248 = mediaShape←v7192.f0;
SOURCE(5350, 43)
ub←v7276 = ((mediaShape←v7192.f0 + size←v7220) - 1);
SOURCE(5396, 28)
{
word var←c33884;
word var←c33916;
word var←c33948;
var←c33884 = BCK(size←v7220, 67108863);
var←c33916 = ((word) var←c33884 << 2);
var←c33948 = XR←NewObject((4 + var←c33916), (* (( (ptr) gf←c36892)+14) ));
(* (ptr) var←c33948 ) = var←c33884;
seq←v13164 = var←c33948;
};
SOURCE(5427, 1232)
{
register word i←v7320;
register word noName←c33980;
i←v7320 = lb←v7248;
noName←c33980 = ub←v7276;
if (( (int)i←v7320 > (int)noName←c33980)) {
goto lab←L100010;
};
lab←L100013: ;
{
word next←v7364;
word nextMedium←v7392;
word innerSeq←v7420;
word innerVal←v7448;
word var←c34108;
W2 var←c0199;
word var←c34300;
W2 var←c0206;
word var←c34492;
W2 var←c0213;
word var←c34652;
W2 var←c0219;
word var←c34812;
W2 var←c0225;
SOURCE(5489, 42)
{
word pd120;
pd120 = (* (( (ptr) (* (( (ptr) gf←c36892)+112)/* var←c33180 */ ))+29) );
next←v7364 = (word) ( *( (fPt) ((* (ptr) pd120 ))))(mediaVec←v7164, i←v7320, pd120);
};
SOURCE(5567, 40)
nextMedium←v7392 = (word) ( *( (fPt) ((* (ptr) VectorFromAny←v6480 ))))(next←v7364, VectorFromAny←v6480);
SOURCE(5652, 41)
innerSeq←v7420 = XR←NewObject(24, (* (( (ptr) gf←c36892)+14) ));
(* (ptr) innerSeq←v7420 ) = 5;
SOURCE(5734, 63)
innerVal←v7448 = XR←NewObject(8, (* (( (ptr) gf←c36892)+13) ));
(* (ptr) innerVal←v7448 ) = 6;
(* (( (ptr) innerVal←v7448)+1) ) = innerSeq←v7420;
SOURCE(5843, 20)
{
word var←c34076;
var←c34076 = (i←v7320 - lb←v7248);
{
word limit121;
(* ((( (ptr) seq←v13164)+1)+(
limit121 = (* (ptr) seq←v13164 ),
BCK(var←c34076, limit121)
)) ) = innerVal←v7448;
};
};
SOURCE(5915, 51)
{
word var←c34140;
word var←c34172;
var←c34140 = XR←NewObject(8, (* (( (ptr) gf←c36892)+11) ));
var←c34172 = var←c34140;
(* (ptr) var←c34172 ) = 3;
var←c34108 = var←c34140;
};
(void) GetProp←P240((word) &var←c0199, nextMedium←v7392, var←c34108);
any←v6536 = var←c0199.f1;
SOURCE(5968, 111)
{
word var←c34204;
{
word var←c34236;
{
word var←c34268;
word var←c0395;
{
word tc122;
word pd125;
if ((any←v6536 != 0)) {
/*1*/ {
/*1*/ word x123;
/*1*/ word x124;
/*1*/ *(float*)&var←c34268 = (
/*1*/ x123 = (word) ( *( (fPt) ((* (ptr) RealFromAny←v6424 ))))(any←v6536, RealFromAny←v6424), *(float*)&x123
/*1*/ ) * (
/*1*/ x124 = (* (ptr) &fc114 ), *(float*)&x124
/*1*/ );
/*1*/ };
/*1*/ pd125 = (* (( (ptr) (* (( (ptr) gf←c36892)+114)/* var←c33852 */ ))+6) );
/*1*/ tc122 = (word) ( *( (fPt) ((* (ptr) pd125 ))))(var←c34268, pd125);
/*1*/ }
else {
/*1*/ tc122 = (word) 216;
/*1*/ };
var←c0395 = tc122;
};
var←c34236 = SGNCK(var←c0395);
};
{
word pd126;
pd126 = (* (( (ptr) (* (( (ptr) gf←c36892)+113)/* var←c33372 */ ))+9) );
var←c34204 = (word) ( *( (fPt) ((* (ptr) pd126 ))))(var←c34236, pd126);
};
};
{
word limit127;
(* ((( (ptr) innerSeq←v7420)+1)+(
limit127 = (* (ptr) innerSeq←v7420 ),
BCK(0, limit127)
)) ) = var←c34204;
};
};
SOURCE(6081, 51)
{
word var←c34332;
word var←c34364;
var←c34332 = XR←NewObject(8, (* (( (ptr) gf←c36892)+11) ));
var←c34364 = var←c34332;
(* (ptr) var←c34364 ) = 4;
var←c34300 = var←c34332;
};
(void) GetProp←P240((word) &var←c0206, nextMedium←v7392, var←c34300);
any←v6536 = var←c0206.f1;
SOURCE(6134, 111)
{
word var←c34396;
{
word var←c34428;
{
word var←c34460;
word var←c0396;
{
word tc128;
word pd131;
if ((any←v6536 != 0)) {
/*1*/ {
/*1*/ word x129;
/*1*/ word x130;
/*1*/ *(float*)&var←c34460 = (
/*1*/ x129 = (word) ( *( (fPt) ((* (ptr) RealFromAny←v6424 ))))(any←v6536, RealFromAny←v6424), *(float*)&x129
/*1*/ ) * (
/*1*/ x130 = (* (ptr) &fc114 ), *(float*)&x130
/*1*/ );
/*1*/ };
/*1*/ pd131 = (* (( (ptr) (* (( (ptr) gf←c36892)+114)/* var←c33852 */ ))+6) );
/*1*/ tc128 = (word) ( *( (fPt) ((* (ptr) pd131 ))))(var←c34460, pd131);
/*1*/ }
else {
/*1*/ tc128 = (word) 279;
/*1*/ };
var←c0396 = tc128;
};
var←c34428 = SGNCK(var←c0396);
};
{
word pd132;
pd132 = (* (( (ptr) (* (( (ptr) gf←c36892)+113)/* var←c33372 */ ))+9) );
var←c34396 = (word) ( *( (fPt) ((* (ptr) pd132 ))))(var←c34428, pd132);
};
};
{
word limit133;
(* ((( (ptr) innerSeq←v7420)+1)+(
limit133 = (* (ptr) innerSeq←v7420 ),
BCK(1, limit133)
)) ) = var←c34396;
};
};
SOURCE(6247, 50)
{
word var←c34524;
word var←c34556;
var←c34524 = XR←NewObject(8, (* (( (ptr) gf←c36892)+11) ));
var←c34556 = var←c34524;
(* (ptr) var←c34556 ) = 2;
var←c34492 = var←c34524;
};
(void) GetProp←P240((word) &var←c0213, nextMedium←v7392, var←c34492);
any←v6536 = var←c0213.f1;
SOURCE(6299, 86)
{
word var←c34588;
{
word var←c34620;
if ((any←v6536 != 0)) {
var←c34620 = (word) ( *( (fPt) ((* (ptr) IdentifierFromAny←v6452 ))))(any←v6536, IdentifierFromAny←v6452);
}
else {
var←c34620 = (* (( (ptr) gf←c36892)+39) );
};
{
word pd134;
pd134 = (* (( (ptr) (* (( (ptr) gf←c36892)+113)/* var←c33372 */ ))+12) );
var←c34588 = (word) ( *( (fPt) ((* (ptr) pd134 ))))(var←c34620, pd134);
};
};
{
word limit135;
(* ((( (ptr) innerSeq←v7420)+1)+(
limit135 = (* (ptr) innerSeq←v7420 ),
BCK(2, limit135)
)) ) = var←c34588;
};
};
SOURCE(6387, 45)
{
word var←c34684;
word var←c34716;
var←c34684 = XR←NewObject(8, (* (( (ptr) gf←c36892)+11) ));
var←c34716 = var←c34684;
(* (ptr) var←c34716 ) = 5;
var←c34652 = var←c34684;
};
(void) GetProp←P240((word) &var←c0219, nextMedium←v7392, var←c34652);
any←v6536 = var←c0219.f1;
SOURCE(6434, 85)
{
word var←c34748;
{
word var←c34780;
if ((any←v6536 != 0)) {
var←c34780 = (word) ( *( (fPt) ((* (ptr) IdentifierFromAny←v6452 ))))(any←v6536, IdentifierFromAny←v6452);
}
else {
var←c34780 = (* (( (ptr) gf←c36892)+39) );
};
{
word pd136;
pd136 = (* (( (ptr) (* (( (ptr) gf←c36892)+113)/* var←c33372 */ ))+12) );
var←c34748 = (word) ( *( (fPt) ((* (ptr) pd136 ))))(var←c34780, pd136);
};
};
{
word limit137;
(* ((( (ptr) innerSeq←v7420)+1)+(
limit137 = (* (ptr) innerSeq←v7420 ),
BCK(3, limit137)
)) ) = var←c34748;
};
};
SOURCE(6521, 46)
{
word var←c34844;
word var←c34876;
var←c34844 = XR←NewObject(8, (* (( (ptr) gf←c36892)+11) ));
var←c34876 = var←c34844;
(* (ptr) var←c34876 ) = 6;
var←c34812 = var←c34844;
};
(void) GetProp←P240((word) &var←c0225, nextMedium←v7392, var←c34812);
any←v6536 = var←c0225.f1;
SOURCE(6569, 90)
{
word var←c34908;
{
word var←c34940;
{
word var←c34972;
word var←c0397;
{
word tc138;
word pd139;
if ((any←v6536 != 0)) {
/*1*/ var←c34972 = (word) ( *( (fPt) ((* (ptr) RealFromAny←v6424 ))))(any←v6536, RealFromAny←v6424);
/*1*/ pd139 = (* (( (ptr) (* (( (ptr) gf←c36892)+114)/* var←c33852 */ ))+5) );
/*1*/ tc138 = (word) ( *( (fPt) ((* (ptr) pd139 ))))(var←c34972, pd139);
/*1*/ }
else {
/*1*/ tc138 = (word) 0;
/*1*/ };
var←c0397 = tc138;
};
var←c34940 = SGNCK(var←c0397);
};
{
word pd140;
pd140 = (* (( (ptr) (* (( (ptr) gf←c36892)+113)/* var←c33372 */ ))+9) );
var←c34908 = (word) ( *( (fPt) ((* (ptr) pd140 ))))(var←c34940, pd140);
};
};
{
word limit141;
(* ((( (ptr) innerSeq←v7420)+1)+(
limit141 = (* (ptr) innerSeq←v7420 ),
BCK(4, limit141)
)) ) = var←c34908;
};
};
};
if (( (int)i←v7320 >= (int)noName←c33980)) {
goto lab←L100010;
};
i←v7320 = (i←v7320 + 1);
goto lab←L100013;
lab←L100010: ;
};
};
};
SOURCE(4362, 2297)
return(seq←v13164);
}
static void PrintVector←P720(out←v5196, iv←v5224)
word out←v5196;
word iv←v5224;
{
register ptr gf←c36924 = (ptr) &globalframe;
word k←v7492 = 0;
word v←v7520 = 0;
W2 shape←v7548;
word lb←v7576;
word ub←v7604;
/* PrintVector: */
SOURCE(6677, 1386)
SOURCE(6784, 30)
{
word pd142;
pd142 = (* (( (ptr) (* (( (ptr) gf←c36924)+112)/* var←c33180 */ ))+33) );
(void) ( *( (fPt) ((* (ptr) pd142 ))))((word) &shape←v7548, iv←v5224, pd142);
};
SOURCE(6816, 31)
lb←v7576 = shape←v7548.f0;
SOURCE(6849, 44)
ub←v7604 = ((shape←v7548.f0 + shape←v7548.f1) - 1);
SOURCE(6895, 44)
{
W2 var←c35004;
{
word v←v30988;
{
word idx143;
v←v30988 = (
idx143 = (word) shape←v7548.f1,
SGNCK(idx143)
);
};
var←c35004.f0 = 4;
var←c35004.f1 = v←v30988;
};
{
word pd144;
pd144 = (* (( (ptr) (* (( (ptr) gf←c36924)+115)/* var←c35100 */ ))+61) );
(void) ( *( (fPt) ((* (ptr) pd144 ))))(out←v5196, (* (( (ptr) gf←c36924)+42) ), var←c35004, pd144);
};
};
SOURCE(6941, 1060)
{
register word i←v7648;
register word noName←c35132;
i←v7648 = lb←v7576;
noName←c35132 = ub←v7604;
if (( (int)i←v7648 > (int)noName←c35132)) {
goto lab←L100015;
};
lab←L100018: ;
{
word next←v7692;
word nextType←v7720;
SOURCE(6972, 22)
{
word pd145;
pd145 = (* (( (ptr) (* (( (ptr) gf←c36924)+112)/* var←c33180 */ ))+29) );
next←v7692 = (word) ( *( (fPt) ((* (ptr) pd145 ))))(iv←v5224, i←v7648, pd145);
};
SOURCE(6996, 31)
{
word pd146;
pd146 = (* (( (ptr) (* (( (ptr) gf←c36924)+112)/* var←c33180 */ ))+28) );
nextType←v7720 = (word) ( *( (fPt) ((* (ptr) pd146 ))))(next←v7692, pd146);
};
SOURCE(7029, 900)
{
word var←c35164;
var←c35164 = nextType←v7720;
switch (var←c35164) {
case 0:
SOURCE(7058, 10)
k←v7492 = (* (( (ptr) gf←c36924)+43) );
break;
case 1:
SOURCE(7080, 397)
{
word n←v7764;
SOURCE(7082, 31)
{
word pd147;
pd147 = (* (( (ptr) (* (( (ptr) gf←c36924)+112)/* var←c33180 */ ))+22) );
n←v7764 = (word) ( *( (fPt) ((* (ptr) pd147 ))))(next←v7692, pd147);
};
SOURCE(7115, 360)
{
word var←c35196;
var←c35196 = (* (ptr) n←v7764 );
switch (var←c35196) {
case 0:
SOURCE(7141, 10)
/*1*/ k←v7492 = (* (( (ptr) gf←c36924)+44) );
/*1*/ break;
case 1:
SOURCE(7160, 47)
/*1*/ {
/*1*/ W2 var←c35228;
/*1*/ {
/*1*/ W2 var←c35260;
/*1*/ word v←v30940;
/*1*/ {
/*1*/ word pd148;
/*1*/ pd148 = (* (( (ptr) (* (( (ptr) gf←c36924)+112)/* var←c33180 */ ))+19) );
/*1*/ v←v30940 = (word) ( *( (fPt) ((* (ptr) pd148 ))))(n←v7764, pd148);
/*1*/ };
/*1*/ var←c35260.f0 = 5;
/*1*/ var←c35260.f1 = v←v30940;
/*1*/ var←c35228 = var←c35260;
/*1*/ };
/*1*/ {
/*1*/ word pd149;
/*1*/ pd149 = (* (( (ptr) (* (( (ptr) gf←c36924)+115)/* var←c35100 */ ))+63) );
/*1*/ k←v7492 = (word) ( *( (fPt) ((* (ptr) pd149 ))))((* (( (ptr) gf←c36924)+45) ), var←c35228, pd149);
/*1*/ };
/*1*/ };
/*1*/ break;
case 2:
SOURCE(7217, 45)
/*1*/ {
/*1*/ W2 var←c35324;
/*1*/ {
/*1*/ W2 var←c35356;
/*1*/ word v←v30892;
/*1*/ {
/*1*/ word pd150;
/*1*/ pd150 = (* (( (ptr) (* (( (ptr) gf←c36924)+112)/* var←c33180 */ ))+21) );
/*1*/ v←v30892 = (word) ( *( (fPt) ((* (ptr) pd150 ))))(n←v7764, pd150);
/*1*/ };
/*1*/ var←c35356.f0 = 8;
/*1*/ var←c35356.f1 = v←v30892;
/*1*/ var←c35324 = var←c35356;
/*1*/ };
/*1*/ {
/*1*/ word pd151;
/*1*/ pd151 = (* (( (ptr) (* (( (ptr) gf←c36924)+115)/* var←c35100 */ ))+63) );
/*1*/ k←v7492 = (word) ( *( (fPt) ((* (ptr) pd151 ))))((* (( (ptr) gf←c36924)+45) ), var←c35324, pd151);
/*1*/ };
/*1*/ };
/*1*/ break;
case 3:
SOURCE(7276, 160)
/*1*/ {
/*1*/ word nn←v7808;
/*1*/ word nd←v7836;
/*1*/ W3 nr←v7864;
SOURCE(7291, 18)
/*1*/ nr←v7864 = (* (W3Pt) n←v7764 );
SOURCE(7311, 57)
/*1*/ {
/*1*/ word var←c35420;
/*1*/ var←c35420 = nr←v7864.f0;
/*1*/ if ((var←c35420 == 3)) {
SOURCE(7348, 9)
/*1*/ nn←v7808 = nr←v7864.f1;
SOURCE(7359, 9)
/*1*/ nd←v7836 = nr←v7864.f2;
/*1*/ };
/*1*/ };
SOURCE(7381, 53)
/*1*/ {
/*1*/ W2 var←c35452;
/*1*/ W2 var←c35484;
/*1*/ W2 var←c0398;
/*1*/ var←c35452.f0 = 5;
/*1*/ var←c35452.f1 = nn←v7808;
/*1*/ var←c35484.f0 = 5;
/*1*/ var←c35484.f1 = nd←v7836;
/*1*/ (* (ptr) (word) &var←c0398 ) = 0;
/*1*/ (* (( (ptr) (word) &var←c0398) + 1) ) = 0;
/*1*/ {
/*1*/ word pd152;
/*1*/ pd152 = (* (( (ptr) (* (( (ptr) gf←c36924)+115)/* var←c35100 */ ))+62) );
/*1*/ k←v7492 = (word) ( *( (fPt) ((* (ptr) pd152 ))))((* (( (ptr) gf←c36924)+46) ), var←c35452, var←c35484, var←c0398, pd152)
/*1*/ ;
/*1*/ };
/*1*/ };
/*1*/ };
/*1*/ break;
default:
SOURCE(7450, 25)
/*1*/ k←v7492 = (* (( (ptr) gf←c36924)+47) );
/*1*/ break;
};
};
};
break;
case 2:
SOURCE(7494, 27)
{
word pd153;
pd153 = (* (( (ptr) (* (( (ptr) gf←c36924)+112)/* var←c33180 */ ))+23) );
k←v7492 = (word) ( *( (fPt) ((* (ptr) pd153 ))))(next←v7692, pd153);
};
break;
case 3:
SOURCE(7535, 38)
{
word var←c35548;
{
word pd154;
pd154 = (* (( (ptr) (* (( (ptr) gf←c36924)+112)/* var←c33180 */ ))+24) );
var←c35548 = (word) ( *( (fPt) ((* (ptr) pd154 ))))(next←v7692, pd154);
};
(void) PrintVector←P720(out←v5196, var←c35548);
};
SOURCE(7575, 7)
k←v7492 = 0;
break;
case 4:
SOURCE(7629, 108)
{
word op←v7908;
SOURCE(7653, 36)
{
word pd155;
pd155 = (* (( (ptr) (* (( (ptr) gf←c36924)+112)/* var←c33180 */ ))+25) );
op←v7908 = (word) ( *( (fPt) ((* (ptr) pd155 ))))(next←v7692, pd155);
};
SOURCE(7691, 44)
{
W2 var←c35580;
{
W2 var←c35612;
word v←v30844;
v←v30844 = (* (ptr) (* (ptr) op←v7908 ) );
var←c35612.f0 = 1;
var←c35612.f1 = v←v30844;
var←c35580 = var←c35612;
};
{
word pd156;
pd156 = (* (( (ptr) (* (( (ptr) gf←c36924)+115)/* var←c35100 */ ))+63) );
k←v7492 = (word) ( *( (fPt) ((* (ptr) pd156 ))))((* (( (ptr) gf←c36924)+45) ), var←c35580, pd156);
};
};
};
break;
case 5:
SOURCE(7758, 20)
k←v7492 = (* (( (ptr) gf←c36924)+48) );
break;
case 7:
SOURCE(7789, 11)
k←v7492 = (* (( (ptr) gf←c36924)+49) );
break;
case 8:
SOURCE(7816, 16)
k←v7492 = (* (( (ptr) gf←c36924)+50) );
break;
case 9:
SOURCE(7845, 13)
k←v7492 = (* (( (ptr) gf←c36924)+51) );
break;
case 10:
SOURCE(7867, 10)
k←v7492 = (* (( (ptr) gf←c36924)+52) );
break;
case 11:
SOURCE(7890, 13)
k←v7492 = (* (( (ptr) gf←c36924)+53) );
break;
default:
SOURCE(7916, 13)
k←v7492 = (* (( (ptr) gf←c36924)+54) );
break;
};
};
SOURCE(7931, 32)
if ((k←v7492 != 0)) {
SOURCE(7945, 18)
{
word pd157;
pd157 = (* (( (ptr) (* (( (ptr) gf←c36924)+115)/* var←c35100 */ ))+93) );
(void) ( *( (fPt) ((* (ptr) pd157 ))))(out←v5196, k←v7492, 0, 2147483647, pd157);
};
};
SOURCE(7965, 36)
if (( (int)i←v7648 < (int)ub←v7604)) {
SOURCE(7980, 21)
{
word pd158;
pd158 = (* (( (ptr) (* (( (ptr) gf←c36924)+115)/* var←c35100 */ ))+93) );
(void) ( *( (fPt) ((* (ptr) pd158 ))))(out←v5196, (* (( (ptr) gf←c36924)+55) ), 0, 2147483647, pd158);
};
};
};
if (( (int)i←v7648 >= (int)noName←c35132)) {
goto lab←L100015;
};
i←v7648 = (i←v7648 + 1);
goto lab←L100018;
lab←L100015: ;
};
SOURCE(8043, 20)
{
word pd159;
pd159 = (* (( (ptr) (* (( (ptr) gf←c36924)+115)/* var←c35100 */ ))+93) );
(void) ( *( (fPt) ((* (ptr) pd159 ))))(out←v5196, (* (( (ptr) gf←c36924)+56) ), 0, 2147483647, pd159);
};
}
static void PutAttributeValue←P780(stream←v5284, value←v5312)
word stream←v5284;
word value←v5312;
{
register ptr gf←c36956 = (ptr) &globalframe;
/* PutAttributeValue: */
SOURCE(8069, 783)
SOURCE(8131, 721)
{
word var←c35676;
var←c35676 = value←v5312;
if ((var←c35676 == 0)) {
goto lab←L100022;
};
{
word var←c35964;
var←c35964 = (* (ptr) var←c35676 );
switch (var←c35964) {
case 0:
{
word cardinal←v7952;
cardinal←v7952 = var←c35676;
SOURCE(8189, 46)
{
W2 var←c35708;
var←c35708.f0 = 4;
var←c35708.f1 = (* (( (ptr) cardinal←v7952)+1) );
{
word pd160;
pd160 = (* (( (ptr) (* (( (ptr) gf←c36956)+115)/* var←c35100 */ ))+55) );
(void) ( *( (fPt) ((* (ptr) pd160 ))))(stream←v5284, var←c35708, pd160);
};
};
};
break;
case 1:
{
word integer←v8008;
integer←v8008 = var←c35676;
SOURCE(8270, 43)
{
W2 var←c35740;
var←c35740.f0 = 5;
var←c35740.f1 = (* (( (ptr) integer←v8008)+1) );
{
word pd161;
pd161 = (* (( (ptr) (* (( (ptr) gf←c36956)+115)/* var←c35100 */ ))+55) );
(void) ( *( (fPt) ((* (ptr) pd161 ))))(stream←v5284, var←c35740, pd161);
};
};
};
break;
case 2:
{
word boolean←v8064;
boolean←v8064 = var←c35676;
SOURCE(8348, 43)
{
W2 var←c35772;
var←c35772.f0 = 2;
var←c35772.f1 = (* (( (ptr) boolean←v8064)+1) );
{
word pd162;
pd162 = (* (( (ptr) (* (( (ptr) gf←c36956)+115)/* var←c35100 */ ))+55) );
(void) ( *( (fPt) ((* (ptr) pd162 ))))(stream←v5284, var←c35772, pd162);
};
};
};
break;
case 3:
{
word real←v8120;
real←v8120 = var←c35676;
SOURCE(8420, 34)
{
W2 var←c35804;
var←c35804.f0 = 8;
var←c35804.f1 = (* (( (ptr) real←v8120)+1) );
{
word pd163;
pd163 = (* (( (ptr) (* (( (ptr) gf←c36956)+115)/* var←c35100 */ ))+55) );
(void) ( *( (fPt) ((* (ptr) pd163 ))))(stream←v5284, var←c35804, pd163);
};
};
};
break;
case 4:
{
word text←v8176;
text←v8176 = var←c35676;
SOURCE(8483, 29)
{
word pd164;
pd164 = (* (( (ptr) (* (( (ptr) gf←c36956)+115)/* var←c35100 */ ))+93) );
(void) ( *( (fPt) ((* (ptr) pd164 ))))(stream←v5284, (* (( (ptr) text←v8176)+1) ), 0, 2147483647, pd164);
};
};
break;
case 5:
{
word time←v8232;
time←v8232 = var←c35676;
SOURCE(8541, 34)
{
W2 var←c35836;
var←c35836.f0 = 13;
var←c35836.f1 = (* (( (ptr) time←v8232)+1) );
{
word pd165;
pd165 = (* (( (ptr) (* (( (ptr) gf←c36956)+115)/* var←c35100 */ ))+55) );
(void) ( *( (fPt) ((* (ptr) pd165 ))))(stream←v5284, var←c35836, pd165);
};
};
};
break;
case 6:
{
word sequence←v8288;
sequence←v8288 = var←c35676;
SOURCE(8614, 23)
{
word pd166;
pd166 = (* (( (ptr) (* (( (ptr) gf←c36956)+115)/* var←c35100 */ ))+93) );
(void) ( *( (fPt) ((* (ptr) pd166 ))))(stream←v5284, (* (( (ptr) gf←c36956)+57) ), 0, 2147483647, pd166);
};
SOURCE(8639, 131)
{
register word i←v8344 = 0;
register word noName←c35868;
noName←c35868 = (* (ptr) (* (( (ptr) sequence←v8288)+1) ) );
if ((i←v8344 >= noName←c35868)) {
goto lab←L100023;
};
lab←L100026: ;
SOURCE(8683, 38)
if ((i←v8344 > 0)) {
SOURCE(8697, 24)
{
word pd167;
pd167 = (* (( (ptr) (* (( (ptr) gf←c36956)+115)/* var←c35100 */ ))+93) );
(void) ( *( (fPt) ((* (ptr) pd167 ))))(stream←v5284, (* (( (ptr) gf←c36956)+55) ), 0, 2147483647, pd167);
};
};
SOURCE(8723, 47)
{
word var←c35900;
word var←c0399;
var←c35900 = (* (( (ptr) sequence←v8288)+1) );
{
word limit168;
var←c0399 = (* ((( (ptr) var←c35900)+1)+(
/*1*/ limit168 = (* (ptr) var←c35900 ),
/*1*/ BCK(i←v8344, limit168)
/*1*/ )) );
};
(void) PutAttributeValue←P780(stream←v5284, var←c0399);
};
i←v8344 = (i←v8344 + 1);
if ((i←v8344 < noName←c35868)) {
goto lab←L100026;
};
lab←L100023: ;
};
SOURCE(8781, 23)
{
word pd169;
pd169 = (* (( (ptr) (* (( (ptr) gf←c36956)+115)/* var←c35100 */ ))+93) );
(void) ( *( (fPt) ((* (ptr) pd169 ))))(stream←v5284, (* (( (ptr) gf←c36956)+56) ), 0, 2147483647, pd169);
};
};
break;
default:
lab←L100022: ;
SOURCE(8820, 32)
{
W2 var←c35932;
var←c35932.f0 = 10;
var←c35932.f1 = value←v5312;
{
word pd170;
pd170 = (* (( (ptr) (* (( (ptr) gf←c36956)+115)/* var←c35100 */ ))+55) );
(void) ( *( (fPt) ((* (ptr) pd170 ))))(stream←v5284, var←c35932, pd170);
};
};
break;
};
};
};
}
static void IPAttr←P840(formal←c0416)
word formal←c0416;
{
W14 var←c36988;
/* declaration of instance←v13224 skipped */
register ptr gf←c37020 = (ptr) &globalframe;
/* declaration of var←c35996 skipped */
word dummy←v8388 = 0;
/* declaration of sd←v8416 skipped */
/* declaration of setAttr←v8444 skipped */
/* declaration of getAttr←v8472 skipped */
word master←v8500;
word sk←v8528;
/* declaration of iv←v8556 skipped */
(* (( (ptr) &var←c36988)+4)/* instance←v13224 */ ) = formal←c0416;
/* IPAttr: */
SOURCE(8858, 2245)
{
word tmpAddr171;
tmpAddr171 = (word) (( (ptr) &var←c36988)+5)/* var←c35996 */ ;
(* (ptr) tmpAddr171 ) = ( ((word) (fPt) ForAttribute←P2160) );
(* (( (ptr) tmpAddr171) + 1) ) = 1;
};
SOURCE(8927, 57)
(* (( (ptr) &var←c36988)+7)/* sd←v8416 */ ) = (* (( (ptr) (* (( (ptr) &var←c36988)+4)/* instance←v13224 */ ))+1) );
SOURCE(8986, 58)
(* (( (ptr) &var←c36988)+8)/* setAttr←v8444 */ ) = (* (( (ptr) (* (( (ptr) (* (( (ptr) &var←c36988)+7)/* sd←v8416 */ ))+8)
))+2) );
SOURCE(9046, 58)
(* (( (ptr) &var←c36988)+9)/* getAttr←v8472 */ ) = (* (( (ptr) (* (( (ptr) (* (( (ptr) &var←c36988)+7)/* sd←v8416 */ ))+8)
))+1) );
SOURCE(9106, 80)
{
word var←c36060;
var←c36060 = (* (( (ptr) (* (( (ptr) &var←c36988)+4)/* instance←v13224 */ ))+9) );
if ((var←c36060 == 0)) {
goto lab←L100027;
};
if (((* (( (ptr) gf←c37020)+9) ) == XR←GetReferentType(var←c36060))) {
{
word tm←v27336;
tm←v27336 = var←c36060;
master←v8500 = (* (( (ptr) tm←v27336)+1) );
};
}
else {
lab←L100027: ;
master←v8500 = 0;
goto lab←L100028;
};
};
lab←L100028: ;
SOURCE(9188, 72)
{
word pd172;
pd172 = (* (( (ptr) (* (( (ptr) gf←c37020)+110)/* var←c33116 */ ))+16) );
sk←v8528 = (word) ( *( (fPt) ((* (ptr) pd172 ))))(master←v8500, pd172);
};
SOURCE(9274, 51)
(* (( (ptr) &var←c36988)+10)/* iv←v8556 */ ) = (* (ptr) (* (ptr) sk←v8528 ) );
SOURCE(10720, 29)
(* (( (ptr) (* (( (ptr) &var←c36988)+4)/* instance←v13224 */ ))+6) ) = (* (ptr) master←v8500 );
SOURCE(10751, 295)
if ((* (( (bPt) (* (( (ptr) &var←c36988)+7)/* sd←v8416 */ ))+31) ) & 02 || ((* (( (ptr) gf←c37020)+5)/* debug←v3616 */ ) != 0)) {
SOURCE(10789, 274)
{
word ros←v8628;
/* declaration of s←v8656 skipped */
SOURCE(10791, 25)
{
word pd173;
pd173 = (* (( (ptr) (* (( (ptr) gf←c37020)+115)/* var←c35100 */ ))+34) );
ros←v8628 = (word) ( *( (fPt) ((* (ptr) pd173 ))))(0, pd173);
};
SOURCE(10818, 20)
(* (( (ptr) &var←c36988)+11)/* s←v8656 */ ) = (* (( (ptr) gf←c37020)+5)/* debug←v3616 */ );
SOURCE(10840, 20)
(void) PrintVector←P720(ros←v8628, (* (( (ptr) &var←c36988)+10)/* iv←v8556 */ ));
SOURCE(10862, 198)
{
word msg←v8700;
SOURCE(10864, 31)
{
word pd174;
pd174 = (* (( (ptr) (* (( (ptr) gf←c37020)+115)/* var←c35100 */ ))+35) );
msg←v8700 = (word) ( *( (fPt) ((* (ptr) pd174 ))))(ros←v8628, 1, pd174);
};
SOURCE(10897, 78)
if ((* (( (bPt) (* (( (ptr) &var←c36988)+7)/* sd←v8416 */ ))+31) ) & 02) {
SOURCE(10920, 55)
{
word pd175;
pd175 = (* (ptr) (* (( (ptr) (* (( (ptr) &var←c36988)+7)/* sd←v8416 */ ))+8) ) );
(void) ( *( (fPt) ((* (ptr) pd175 ))))((* (( (ptr) &var←c36988)+4)/* instance←v13224 */ ), (* (( (ptr) gf←c37020)+59) ), 0, msg←v8700, pd175)
;
};
};
SOURCE(10977, 69)
if (((* (( (ptr) &var←c36988)+11)/* s←v8656 */ ) != 0)) {
SOURCE(10993, 53)
SOURCE(10993, 53)
{
/* declaration of var←c36092 skipped */
{
word pd176;
pd176 = (* (( (ptr) (* (( (ptr) gf←c37020)+111)/* var←c33148 */ ))+6) );
(* (( (ptr) &var←c36988)+12)/* var←c36092 */ ) = (word) ( *( (fPt) ((* (ptr) pd176 ))))(msg←v8700, (* (( (ptr) gf←c37020)+60)
), pd176);
};
{
/* declaration of var←c01 skipped */
(* (( (ptr) &var←c36988)+13)/* var←c01 */ ) = (* (( (ptr) (* (( (ptr) gf←c37020)+115)/* var←c35100 */ ))+93) );
{
word var←c02;
{
word var←c0400;
var←c0400 = (word) &var←c36988;
var←c02 = (word) XR←Enable(( ((word) (fPt) NoName←Q3324) ), ( ((word) (fPt) NoName←Q3864) ), var←c0400);
};
/* removed trivial cond node */
};
};
};
};
};
};
};
SOURCE(11066, 37)
(void) MapRegisteredAttributes←P60((word) ((( (bPt) &var←c36988)+20)/* var←c35996 */ ));
}
static word NoName←Q3324(formal←c0380)
word formal←c0380;
{
SOURCE(10993, 53)
{
word pd177;
pd177 = (* (( (ptr) formal←c0380)+13) );
(void) ( *( (fPt) ((* (ptr) pd177 ))))((* (( (ptr) formal←c0380)+11) ), (* (( (ptr) formal←c0380)+12) ), 0, 2147483647, pd177)
;
};
return(0);
}
static void ForAttribute←P2160(formal←c0417, formal←c0418, formal←c0419, formal←c37084)
word formal←c0417;
word formal←c0418;
word formal←c0419;
word formal←c37084;
{
W12 var←c37052;
/* declaration of attr←v28192 skipped */
/* declaration of proc←v28220 skipped */
/* declaration of names←v28248 skipped */
/* declaration of var←c36124 skipped */
/* declaration of var←c36156 skipped */
formal←c37084 = (formal←c37084 - 20);
(* (( (ptr) &var←c37052)+4)/* attr←v28192 */ ) = formal←c0417;
(* (( (ptr) &var←c37052)+5)/* proc←v28220 */ ) = formal←c0418;
(* (( (ptr) &var←c37052)+6)/* names←v28248 */ ) = formal←c0419;
(* (ptr) &var←c37052 ) = formal←c37084;
/* ForAttribute: */
SOURCE(9327, 1354)
{
word tmpAddr178;
tmpAddr178 = (word) (( (ptr) &var←c37052)+7)/* var←c36124 */ ;
(* (ptr) tmpAddr178 ) = ( ((word) (fPt) Dump←P2568) );
(* (( (ptr) tmpAddr178) + 1) ) = 1;
};
{
word tmpAddr179;
tmpAddr179 = (word) (( (ptr) &var←c37052)+9)/* var←c36156 */ ;
(* (ptr) tmpAddr179 ) = ( ((word) (fPt) FormatNames←P2316) );
(* (( (ptr) tmpAddr179) + 1) ) = 1;
};
SOURCE(9596, 1085)
if (((* (( (ptr) &var←c37052)+5)/* proc←v28220 */ ) != 0)) {
SOURCE(9617, 1064)
SOURCE(9617, 1064)
{
/* declaration of ros←v9052 skipped */
word var←c09;
{
word var←c0401;
var←c0401 = (word) &var←c37052;
var←c09 = (word) XR←Enable(( ((word) (fPt) NoName←Q3384) ), ( ((word) (fPt) NoName←Q3624) ), var←c0401);
};
if ((var←c09 == 6)) {
/* removed tail goto */
}
else {
if ((var←c09 == 1)) {
goto lab←L03;
};
};
};
};
lab←L03: ;
return;
}
static word NoName←Q3384(formal←c0383)
word formal←c0383;
{
W7 var←c0412;
register ptr gf←c0382 = (ptr) &globalframe;
var←c0412.f0 = formal←c0383;
SOURCE(10008, 56)
{
word seq←v8980;
SOURCE(10008, 56)
{
word pd180;
pd180 = (* (( (ptr) formal←c0383)+5) );
seq←v8980 = (word) ( *( (fPt) ((* (ptr) pd180 ))))((* (( (ptr) formal←c0383)+4) ), (* (( (ptr) (* (ptr) formal←c0383 ))+10)
), (* (( (ptr) formal←c0383)+6) ), pd180);
};
SOURCE(10066, 24)
if ((seq←v8980 == 0)) {
SOURCE(10084, 6)
return(1);
};
SOURCE(10092, 550)
if (((* (( (ptr) gf←c0382)+5)/* debug←v3616 */ ) != 0)) {
SOURCE(10112, 544)
{
/* declaration of s←v9024 skipped */
word old←v9080 = 0;
SOURCE(10114, 20)
var←c0412.f4/* s←v9024 */ = (* (( (ptr) gf←c0382)+5)/* debug←v3616 */ );
SOURCE(10136, 25)
{
word pd181;
pd181 = (* (( (ptr) (* (( (ptr) gf←c0382)+115)/* var←c35100 */ ))+34) );
(* (( (ptr) formal←c0383)+11) ) = (word) ( *( (fPt) ((* (ptr) pd181 ))))(0, pd181);
};
SOURCE(10408, 9)
(void) Dump←P2568(seq←v8980, (word) (( (bPt) formal←c0383)+28));
SOURCE(10419, 59)
if (((* (( (ptr) (* (ptr) formal←c0383 ))+9) ) != 0)) {
SOURCE(10441, 37)
SOURCE(10441, 37)
{
/* declaration of var←c03 skipped */
{
word var←c04;
{
word var←c0402;
var←c0402 = (word) &var←c0412;
var←c04 = (word) XR←Enable(( ((word) (fPt) NoName←Q3564) ), ( ((word) (fPt) NoName←Q3804) ), var←c0402);
};
if ((var←c04 == 3)) {
goto lab←L100042;
}
else {
if ((var←c04 == 1)) {
return(1);
};
};
};
old←v9080 = var←c0412.f5/* var←c03 */ ;
};
lab←L100042: ;
};
SOURCE(10489, 55)
if ((old←v9080 != 0)) {
SOURCE(10508, 24)
{
word pd182;
pd182 = (* (( (ptr) (* (( (ptr) gf←c0382)+115)/* var←c35100 */ ))+93) );
(void) ( *( (fPt) ((* (ptr) pd182 ))))((* (( (ptr) formal←c0383)+11) ), (* (( (ptr) gf←c0382)+63) ), 0, 2147483647, pd182)
;
};
SOURCE(10534, 10)
(void) Dump←P2568(old←v9080, (word) (( (bPt) formal←c0383)+28));
};
SOURCE(10547, 21)
{
word pd183;
pd183 = (* (( (ptr) (* (( (ptr) gf←c0382)+115)/* var←c35100 */ ))+93) );
(void) ( *( (fPt) ((* (ptr) pd183 ))))((* (( (ptr) formal←c0383)+11) ), (* (( (ptr) gf←c0382)+60) ), 0, 2147483647, pd183)
;
};
SOURCE(10570, 72)
if ((var←c0412.f4/* s←v9024 */ != 0)) {
SOURCE(10586, 56)
SOURCE(10586, 56)
{
/* declaration of var←c36252 skipped */
{
word pd184;
pd184 = (* (( (ptr) (* (( (ptr) gf←c0382)+115)/* var←c35100 */ ))+35) );
var←c0412.f5/* var←c36252 */ = (word) ( *( (fPt) ((* (ptr) pd184 ))))((* (( (ptr) formal←c0383)+11) ), 1, pd184);
};
{
/* declaration of var←c05 skipped */
var←c0412.f6/* var←c05 */ = (* (( (ptr) (* (( (ptr) gf←c0382)+115)/* var←c35100 */ ))+93) );
{
word var←c06;
{
word var←c0403;
var←c0403 = (word) &var←c0412;
var←c06 = (word) XR←Enable(( ((word) (fPt) NoName←Q3504) ), ( ((word) (fPt) NoName←Q3744) ), var←c0403);
};
switch (var←c06) {
case 4:
/*1*/ /* removed tail goto */
/*1*/ break;
case 3:
/*1*/ goto lab←L100042;
case 1:
/*1*/ return(1);
};
};
};
};
};
};
};
SOURCE(10659, 22)
{
word pd185;
pd185 = (* (( (ptr) (* (ptr) formal←c0383 ))+8) );
(void) ( *( (fPt) ((* (ptr) pd185 ))))((* (( (ptr) (* (ptr) formal←c0383 ))+7) ), (* (( (ptr) formal←c0383)+4) ), seq←v8980, pd185)
;
};
};
return(0);
}
static word NoName←Q3444(formal←c0384)
word formal←c0384;
{
SOURCE(9925, 53)
{
word pd186;
pd186 = (* (( (ptr) formal←c0384)+6) );
(void) ( *( (fPt) ((* (ptr) pd186 ))))((* (( (ptr) formal←c0384)+4) ), (* (( (ptr) formal←c0384)+5) ), 0, 2147483647, pd186)
;
};
return(0);
}
static word NoName←Q3504(formal←c0385)
word formal←c0385;
{
SOURCE(10586, 56)
{
word pd187;
pd187 = (* (( (ptr) formal←c0385)+6) );
(void) ( *( (fPt) ((* (ptr) pd187 ))))((* (( (ptr) formal←c0385)+4) ), (* (( (ptr) formal←c0385)+5) ), 0, 2147483647, pd187)
;
};
return(0);
}
static word NoName←Q3564(formal←c0386)
word formal←c0386;
{
SOURCE(10441, 37)
{
word pd188;
pd188 = (* (( (ptr) (* (ptr) (* (ptr) formal←c0386 ) ))+9) );
(* (( (ptr) formal←c0386)+5) ) = (word) ( *( (fPt) ((* (ptr) pd188 ))))((* (( (ptr) (* (ptr) (* (ptr) formal←c0386 ) ))+7)
), (* (( (ptr) (* (ptr) formal←c0386 ))+4) ), pd188);
};
return(0);
}
static word FormatNames←P2316(explanation←v8820, formal←c37148)
word explanation←v8820;
word formal←c37148;
{
register ptr gf←c37116 = (ptr) &globalframe;
word var←c8864;
word msg←v9256;
formal←c37148 = (formal←c37148 - 36);
/* FormatNames: */
SOURCE(9362, 231)
SOURCE(9419, 23)
msg←v9256 = explanation←v8820;
SOURCE(9444, 125)
{
register word tail←v9300;
tail←v9300 = (* (( (ptr) formal←c37148)+6) );
lab←L100052: ;
if ((tail←v9300 != 0)) {
}
else {
goto lab←L100049;
};
SOURCE(9506, 63)
{
word var←c36284;
{
word pd189;
pd189 = (* (( (ptr) (* (( (ptr) gf←c37116)+110)/* var←c33116 */ ))+4) );
var←c36284 = (word) ( *( (fPt) ((* (ptr) pd189 ))))((* (ptr) (tail←v9300) ), pd189);
};
{
word pd190;
pd190 = (* (( (ptr) (* (( (ptr) gf←c37116)+111)/* var←c33148 */ ))+5) );
msg←v9256 = (word) ( *( (fPt) ((* (ptr) pd190 ))))(msg←v9256, (* (( (ptr) gf←c37116)+65) ), var←c36284, 0, 0, pd190);
};
};
tail←v9300 = (* (( (ptr) tail←v9300)+1) );
goto lab←L100052;
lab←L100049: ;
};
SOURCE(9580, 13)
return(msg←v9256);
}
static void Dump←P2568(seq←v9184, formal←c37212)
word seq←v9184;
word formal←c37212;
{
register ptr gf←c37180 = (ptr) &globalframe;
formal←c37212 = (formal←c37212 - 28);
/* Dump: */
SOURCE(10203, 12)
SOURCE(10253, 34)
{
W2 var←c36316;
var←c36316.f0 = 1;
var←c36316.f1 = (* (( (ptr) formal←c37212)+4) );
{
word pd191;
pd191 = (* (( (ptr) (* (( (ptr) gf←c37180)+115)/* var←c35100 */ ))+61) );
(void) ( *( (fPt) ((* (ptr) pd191 ))))((* (( (ptr) formal←c37212)+11) ), (* (( (ptr) gf←c37180)+64) ), var←c36316, pd191)
;
};
};
SOURCE(10289, 83)
{
register word i←v9212 = 0;
register word noName←c36348;
noName←c36348 = (* (ptr) seq←v9184 );
if ((i←v9212 >= noName←c36348)) {
goto lab←L100053;
};
lab←L100056: ;
SOURCE(10319, 21)
{
word pd192;
pd192 = (* (( (ptr) (* (( (ptr) gf←c37180)+115)/* var←c35100 */ ))+93) );
(void) ( *( (fPt) ((* (ptr) pd192 ))))((* (( (ptr) formal←c37212)+11) ), (* (( (ptr) gf←c37180)+55) ), 0, 2147483647, pd192)
;
};
SOURCE(10342, 30)
{
word limit193;
(void) PutAttributeValue←P780((* (( (ptr) formal←c37212)+11) ), (* ((( (ptr) seq←v9184)+1)+(
limit193 = (* (ptr) seq←v9184 ),
BCK(i←v9212, limit193)
)) ));
};
i←v9212 = (i←v9212 + 1);
if ((i←v9212 < noName←c36348)) {
goto lab←L100056;
};
lab←L100053: ;
};
SOURCE(10383, 20)
{
word pd194;
pd194 = (* (( (ptr) (* (( (ptr) gf←c37180)+115)/* var←c35100 */ ))+93) );
(void) ( *( (fPt) ((* (ptr) pd194 ))))((* (( (ptr) formal←c37212)+11) ), (* (( (ptr) gf←c37180)+56) ), 0, 2147483647, pd194)
;
};
}
static void NoName←Q3624(formal←c0329, formal←c200004, formal←c200005, formal←c200006, formal←c200007)
word formal←c0329;
word formal←c200004;
word formal←c200005;
word formal←c200006;
word formal←c200007;
{
W7 var←c0414;
register ptr gf←c0391 = (ptr) &globalframe;
var←c0414.f0 = formal←c200004;
if ((formal←c200005 == (* (( (ptr) (* (( (ptr) gf←c0391)+112)/* var←c33180 */ ))+8) ))) {
{
word class←v29980;
word code←v30008;
word explanation←v30036;
word propList←v30064;
class←v29980 = (* (ptr) formal←c200007 );
code←v30008 = (* (( (ptr) formal←c200007)+1) );
explanation←v30036 = (* (( (ptr) formal←c200007)+2) );
propList←v30064 = (* (( (ptr) formal←c200007)+3) );
SOURCE(9647, 358)
{
word msg←v8892;
SOURCE(9649, 91)
{
word var←c36188;
{
word pd195;
pd195 = (* (( (ptr) (* (( (ptr) gf←c0391)+111)/* var←c33148 */ ))+6) );
var←c36188 = (word) ( *( (fPt) ((* (ptr) pd195 ))))(explanation←v30036, (* (( (ptr) gf←c0391)+61) ), pd195);
};
msg←v8892 = (word) FormatNames←P2316(var←c36188, (word) (( (bPt) formal←c200004)+36));
};
SOURCE(9742, 85)
{
word pd196;
pd196 = (* (ptr) (* (( (ptr) (* (( (ptr) (* (( (ptr) (* (ptr) formal←c200004 ))+4) ))+1) ))+8) ) );
(void) ( *( (fPt) ((* (ptr) pd196 ))))((* (( (ptr) (* (ptr) formal←c200004 ))+4) ), (* (( (ptr) gf←c0391)+62) ), 1, msg←v8892, pd196)
;
};
SOURCE(9829, 149)
if (((* (( (ptr) gf←c0391)+5)/* debug←v3616 */ ) != 0)) {
SOURCE(9849, 143)
{
/* declaration of s←v8936 skipped */
SOURCE(9851, 20)
var←c0414.f4/* s←v8936 */ = (* (( (ptr) gf←c0391)+5)/* debug←v3616 */ );
SOURCE(9909, 69)
if ((var←c0414.f4/* s←v8936 */ != 0)) {
SOURCE(9925, 53)
SOURCE(9925, 53)
{
/* declaration of var←c36220 skipped */
{
word pd197;
pd197 = (* (( (ptr) (* (( (ptr) gf←c0391)+111)/* var←c33148 */ ))+6) );
var←c0414.f5/* var←c36220 */ = (word) ( *( (fPt) ((* (ptr) pd197 ))))(msg←v8892, (* (( (ptr) gf←c0391)+60) ), pd197);
};
{
/* declaration of var←c07 skipped */
var←c0414.f6/* var←c07 */ = (* (( (ptr) (* (( (ptr) gf←c0391)+115)/* var←c35100 */ ))+93) );
{
/*1*/ word var←c08;
/*1*/ {
/*1*/ word var←c0404;
/*1*/ var←c0404 = (word) &var←c0414;
/*1*/ var←c08 = (word) XR←Enable(( ((word) (fPt) NoName←Q3444) ), ( ((word) (fPt) NoName←Q3684) ), var←c0404);
/*1*/ };
/*1*/ switch (var←c08) {
/*1*/ case 5:
/*1*/ /* removed tail goto */
/*1*/ break;
/*1*/ case 4:
/*1*/ (* (ptr) formal←c0329 ) = 2;
/*1*/ (* (( (ptr) formal←c0329)+1) ) = 4;
/*1*/ return;
/*1*/ case 3:
/*1*/ (* (ptr) formal←c0329 ) = 2;
/*1*/ (* (( (ptr) formal←c0329)+1) ) = 3;
/*1*/ return;
/*1*/ case 1:
/*1*/ (* (ptr) formal←c0329 ) = 2;
/*1*/ (* (( (ptr) formal←c0329)+1) ) = 1;
/*1*/ return;
/*1*/ };
/*1*/ };
};
};
};
};
};
SOURCE(9995, 8)
(* (ptr) formal←c0329 ) = 2;
(* (( (ptr) formal←c0329)+1) ) = 6;
return;
};
};
};
(* (ptr) formal←c0329 ) = 0;
(* (( (ptr) formal←c0329)+1) ) = 0;
return;
}
static void NoName←Q3684(formal←c0338, formal←c200008, formal←c200009, formal←c200010, formal←c200011)
word formal←c0338;
word formal←c200008;
word formal←c200009;
word formal←c200010;
word formal←c200011;
{
register ptr gf←c0392 = (ptr) &globalframe;
if ((formal←c200009 == (* (( (ptr) (* (( (ptr) gf←c0392)+115)/* var←c35100 */ ))+5) ))) {
{
word ec←v30156;
word stream←v30184;
word details←v30212;
word msg←v30240;
ec←v30156 = (* (ptr) formal←c200011 );
stream←v30184 = (* (( (ptr) formal←c200011)+1) );
details←v30212 = (* (( (ptr) formal←c200011)+2) );
msg←v30240 = (* (( (ptr) formal←c200011)+3) );
SOURCE(9967, 11)
(* (( (ptr) gf←c0392)+5)/* debug←v3616 */ ) = 0;
SOURCE(9980, 8)
(* (ptr) formal←c0338 ) = 2;
(* (( (ptr) formal←c0338)+1) ) = 5;
return;
};
};
(* (ptr) formal←c0338 ) = 0;
(* (( (ptr) formal←c0338)+1) ) = 0;
return;
}
static void NoName←Q3744(formal←c0347, formal←c200016, formal←c200017, formal←c200018, formal←c200019)
word formal←c0347;
word formal←c200016;
word formal←c200017;
word formal←c200018;
word formal←c200019;
{
register ptr gf←c0393 = (ptr) &globalframe;
if ((formal←c200017 == (* (( (ptr) (* (( (ptr) gf←c0393)+115)/* var←c35100 */ ))+5) ))) {
{
word ec←v30316;
word stream←v30344;
word details←v30372;
word msg←v30400;
ec←v30316 = (* (ptr) formal←c200019 );
stream←v30344 = (* (( (ptr) formal←c200019)+1) );
details←v30372 = (* (( (ptr) formal←c200019)+2) );
msg←v30400 = (* (( (ptr) formal←c200019)+3) );
SOURCE(10631, 11)
(* (( (ptr) gf←c0393)+5)/* debug←v3616 */ ) = 0;
SOURCE(10644, 8)
(* (ptr) formal←c0347 ) = 2;
(* (( (ptr) formal←c0347)+1) ) = 4;
return;
};
};
(* (ptr) formal←c0347 ) = 0;
(* (( (ptr) formal←c0347)+1) ) = 0;
return;
}
static void NoName←Q3804(formal←c0352, formal←c200012, formal←c200013, formal←c200014, formal←c200015)
word formal←c0352;
word formal←c200012;
word formal←c200013;
word formal←c200014;
word formal←c200015;
{
if ((formal←c200013 == XR←Uncaught)) {
SOURCE(10478, 9)
(* (ptr) formal←c0352 ) = 2;
(* (( (ptr) formal←c0352)+1) ) = 3;
return;
};
(* (ptr) formal←c0352 ) = 0;
(* (( (ptr) formal←c0352)+1) ) = 0;
return;
}
static void NoName←Q3864(formal←c0361, formal←c200000, formal←c200001, formal←c200002, formal←c200003)
word formal←c0361;
word formal←c200000;
word formal←c200001;
word formal←c200002;
word formal←c200003;
{
register ptr gf←c0394 = (ptr) &globalframe;
if ((formal←c200001 == (* (( (ptr) (* (( (ptr) gf←c0394)+115)/* var←c35100 */ ))+5) ))) {
{
word ec←v29580;
word stream←v29608;
word details←v29636;
word msg←v29664;
ec←v29580 = (* (ptr) formal←c200003 );
stream←v29608 = (* (( (ptr) formal←c200003)+1) );
details←v29636 = (* (( (ptr) formal←c200003)+2) );
msg←v29664 = (* (( (ptr) formal←c200003)+3) );
SOURCE(11035, 11)
(* (( (ptr) gf←c0394)+5)/* debug←v3616 */ ) = 0;
SOURCE(11048, 8)
(* (ptr) formal←c0361 ) = 2;
(* (( (ptr) formal←c0361)+1) ) = 2;
return;
};
};
(* (ptr) formal←c0361 ) = 0;
(* (( (ptr) formal←c0361)+1) ) = 0;
return;
}
/* file: IPAttributesImpl, module: IPAttributesImpl, compiled at: July 6, 1993 10:01:56 am PDT */
extern void XR←install←IPAttributesImpl() {
NoName←Q3264();
}
extern void XR←run←IPAttributesImpl() { XR←Start(&globalframe); }