/* Generated with C2C (Cedar To C)*/
/* Copyright (C) 1992 by Xerox Corporation. All rights reserved. */
/* time: February 27, 1992 6:01:48 pm PST */
/* C2C version: October 16, 1990 (native) */
/* ref-counting: off */
/* file: EditPropertiesImpl, module: EditPropertiesImpl */
/* switches: bcfhklnouw */
#include <cedar/InstallationSupport.h>
#include <cedar/CedarExtra.h>
static char versionStamp[] = "@(#)mob←version [2074787366,3982286363] EditPropertiesImpl";
typedef unsigned word, *ptr;
typedef unsigned char byte, *bPt;
typedef unsigned short half, *hPt;
typedef word (*fPt)();
typedef struct {word f0, f1, f2, f3, f4, f5, f6, f7;} W8;
typedef struct {W8 f; W8 r;} W16;
typedef struct {W16 f; W16 r;} W32;
typedef struct {word f0, f1, f2;} W3;
typedef struct {W32 f; W3 r;} W35;
typedef struct {word f0, f1;} W2;
typedef struct {word f0, f1, f2, f3, f4;} W5;
typedef W5 *W5Pt;
typedef struct {unsigned u1:5, f:1, u2:2;} * P1x5b;
typedef struct {unsigned u1:2, f:1, u2:5;} * P1x2b;
typedef struct {unsigned u1:1, f:1, u2:6;} * P1x1b;
typedef struct {word f0, f1, f2, f3, f4, f5;} W6;
typedef struct {unsigned u1:6, f:1, u2:1;} * P1x6b;
typedef struct {W32 f; word r;} W33;
typedef struct {unsigned f:24, u2:8;} * P24x0w;
typedef W2 *W2Pt;
typedef struct {word f0, f1, f2, f3, f4, f5, f6;} W7;
typedef struct {W8 f; W2 r;} W10;
#define SOURCE(p, l) /* source p, l */
#define BCK(idx, lim) ( ((unsigned) idx) >= ((unsigned) lim) ? (XR←RaiseBoundsFault()) : (idx) )
static void NoName←Q2424();
static void EditPropertiesImpl←P0();
static void TranslateToOpenProperties←P60();
static void PutRope←P360();
static void PutOctal←P420();
static void PutPropName←P480();
static void PutKey←P540();
static void PutProperties←P600();
static word action←P828();
static void PutProperty←P660();
static void TranslateNodeContents←P720();
static void TranslateFromOpenProperties←P120();
static void Must←P1128();
static word Match←P1188();
static word MatchBreak←P1248();
static void MustNest←P1308();
static word GetOctal3←P1368();
static word RopeToEnd←P1428();
static void ParseProp←P1488();
static word action←P1836();
static word MakeNodeSelection←P180();
static void OpenPropertiesOp←P240();
static void OpenProperties←P2184();
static void ClosePropertiesOp←P300();
static word NoName←Q2484();
static void CloseProperties←P2244();
static word NoName←Q2544();
static void NoName←Q2604();
static void NoName←Q2664();
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[4];} string3 = {65540, "\251\000\000"};
static struct {unsigned f; char r[44];} string4 = {2752556, "\260\006\005\146\151\162\163\164\257\300\240\236\274\171\300\344\000\142\023\100\200\005\004\162\145\163\164\214\257\300\240\236\274\171\300\344\000\142\023\100\200\261\000"};
static struct {unsigned f; char r[4];} string5 = {131074, "\004\007\000"};
static struct {unsigned f; char r[16];} string6 = {917520, "\216\257\300\363\223\326\161\300\017\164\046\072\104\350\000"};
static struct {unsigned f; char r[16];} string7 = {983056, "BEGIN ROOT NODE"};
static struct {unsigned f; char r[12];} string8 = {655372, "BEGIN NODE\000"};
static struct {unsigned f; char r[12];} string9 = {524300, "CONTENTS\000\000\000"};
static struct {unsigned f; char r[12];} string10 = {655372, "PROPERTIES\000"};
static struct {unsigned f; char r[8];} string11 = {458760, "Comment"};
static struct {unsigned f; char r[8];} string12 = {393224, "Format\000"};
static struct {unsigned f; char r[12];} string13 = {524300, "END NODE\000\000\000"};
static struct {unsigned f; char r[4];} string14 = {131076, ": \000"};
static struct {unsigned f; char r[12];} string15 = {655372, "ClientOnly\000"};
static struct {unsigned f; char r[12];} string16 = {524300, "(opaque)\000\000\000"};
static struct {unsigned f; char r[12];} string17 = {720908, "OpaqueValue"};
static struct {unsigned f; char r[8];} string18 = {262152, "Text\000\000\000"};
static struct {unsigned f; char r[8];} string19 = {262152, "Char\000\000\000"};
static struct {unsigned f; char r[4];} string20 = {65540, "(\000\000"};
static struct {unsigned f; char r[4];} string21 = {65540, "|\000\000"};
static struct {unsigned f; char r[4];} string22 = {65540, ")\000\000"};
static struct {unsigned f; char r[8];} string23 = {327688, "LOOKS\000\000"};
static struct {unsigned f; char r[8];} string24 = {393224, "Text: \000"};
static struct {unsigned f; char r[8];} string25 = {458760, "Char: ("};
static struct {unsigned f; char r[8];} string26 = {393224, "LOOKS(\000"};
static struct {unsigned f; char r[8];} string27 = {262152, "code\000\000\000"};
static struct {unsigned f; char r[16];} string28 = {983056, "CloseProperties"};
static struct {unsigned f; char r[4];} string29 = {65540, " \000\000"};
static struct {unsigned f; char r[16];} string30 = {917520, "OpenProperties\000"};
static struct {unsigned f; char r[16];} string31 = {851984, "\257\300\173\252\276\046\300\355\134\336\033\100\164\000\000"};
static struct {unsigned f; char r[12];} string32 = {524296, "\006\001\054\010\000\004\030\001\000\000\000"};
static struct {unsigned f; char r[16];} string33 = {851984, "\257\300\055\153\222\376\300\327\164\352\142\100\150\000\000"};
static struct {unsigned f; char r[16];} string34 = {851984, "\257\300\314\212\213\004\300\112\342\014\072\100\164\000\000"};
static struct {unsigned f; char r[16];} string35 = {851984, "\257\300\234\060\361\073\300\103\025\207\123\100\150\000\000"};
static struct {unsigned f; char r[16];} string36 = {851984, "\257\300\240\236\274\171\300\344\000\142\023\100\150\000\000"};
static struct {unsigned f; char r[16];} string37 = {851984, "\257\300\332\223\177\020\300\304\076\102\260\100\164\000\000"};
static struct {unsigned f; char r[16];} string38 = {851984, "\257\300\363\223\326\161\300\017\164\046\072\100\150\000\000"};
static struct {unsigned f; char r[16];} string39 = {851984, "\257\300\275\320\070\317\300\004\110\363\366\100\150\000\000"};
static struct {unsigned f; char r[16];} string40 = {851984, "\257\300\013\141\323\354\300\341\005\243\127\100\150\000\000"};
static struct {unsigned f; char r[16];} string41 = {851984, "\257\300\343\112\327\166\300\041\341\335\211\100\150\000\000"};
static struct {unsigned f; char r[16];} string42 = {851984, "\257\300\040\353\020\254\300\226\145\363\233\100\150\000\000"};
static struct {unsigned f; char r[16];} string43 = {851984, "\257\300\042\224\360\026\300\243\254\175\360\100\150\000\000"};
static struct {unsigned f; char r[16];} string44 = {851984, "\257\300\056\236\052\251\300\206\175\213\250\100\150\000\000"};
static struct {unsigned f; char r[16];} string45 = {851984, "\257\300\160\267\337\115\300\374\200\221\327\100\150\000\000"};
static struct {unsigned f; char r[16];} string46 = {851984, "\257\300\136\253\306\024\300\100\114\357\174\100\150\000\000"};
static struct {unsigned f; char r[16];} string47 = {851984, "\257\300\354\332\367\333\300\361\203\205\173\100\150\000\000"};
static struct {
word f0[37]; word f37; word f38; word f39;
word f40; word f41; word f42; word f43;
word f44; word f45; word f46; word f47;
word f48[16];
} globalframe = {
{0}, (word) ClosePropertiesOp←P300, 0, (word) OpenPropertiesOp←P240,
0, (word) MakeNodeSelection←P180, 0, (word) TranslateFromOpenProperties←P120,
0, (word) TranslateToOpenProperties←P60, 0, (word) EditPropertiesImpl←P0,
{0}
};
static void NoName←Q2424()
{
register ptr gf←c0198 = (ptr) &globalframe;
word var←c24636;
(* (( (ptr) gf←c0198)+4) ) = (word) XR←GetTypeIndex((word) &string1, 0, (word) &string2);
(* (( (ptr) gf←c0198)+6) ) = (word) XR←GetTypeIndexS((word) (&string3));
(* (( (ptr) gf←c0198)+8) ) = (word) XR←GetTypeIndex((word) &string4, 0, (word) &string5);
(* (( (ptr) gf←c0198)+10) ) = (word) XR←GetTypeIndex((word) &string6, 0, (word) &string2);
(* (ptr) (( (bPt) gf←c0198)+44) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0198)+10) ), (word) &string7);
(* (ptr) (( (bPt) gf←c0198)+48) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0198)+10) ), (word) &string8);
(* (ptr) (( (bPt) gf←c0198)+52) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0198)+10) ), (word) &string9);
(* (ptr) (( (bPt) gf←c0198)+56) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0198)+10) ), (word) &string10);
(* (ptr) (( (bPt) gf←c0198)+60) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0198)+4) ), (word) &string11);
(* (ptr) (( (bPt) gf←c0198)+64) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0198)+4) ), (word) &string12);
(* (ptr) (( (bPt) gf←c0198)+68) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0198)+10) ), (word) &string13);
(* (ptr) (( (bPt) gf←c0198)+72) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0198)+10) ), (word) &string14);
(* (ptr) (( (bPt) gf←c0198)+76) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0198)+4) ), (word) &string15);
(* (ptr) (( (bPt) gf←c0198)+80) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0198)+10) ), (word) &string16);
(* (ptr) (( (bPt) gf←c0198)+84) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0198)+4) ), (word) &string17);
(* (ptr) (( (bPt) gf←c0198)+88) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0198)+4) ), (word) &string18);
(* (ptr) (( (bPt) gf←c0198)+92) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0198)+4) ), (word) &string19);
(* (ptr) (( (bPt) gf←c0198)+96) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0198)+10) ), (word) &string20);
(* (ptr) (( (bPt) gf←c0198)+100) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0198)+10) ), (word) &string21);
(* (ptr) (( (bPt) gf←c0198)+104) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0198)+10) ), (word) &string22);
(* (ptr) (( (bPt) gf←c0198)+108) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0198)+10) ), (word) &string23);
(* (ptr) (( (bPt) gf←c0198)+112) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0198)+10) ), (word) &string24);
(* (ptr) (( (bPt) gf←c0198)+116) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0198)+10) ), (word) &string25);
(* (ptr) (( (bPt) gf←c0198)+120) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0198)+10) ), (word) &string26);
(* (ptr) (( (bPt) gf←c0198)+124) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0198)+4) ), (word) &string27);
(* (ptr) (( (bPt) gf←c0198)+128) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0198)+4) ), (word) &string28);
(* (ptr) (( (bPt) gf←c0198)+132) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0198)+10) ), (word) &string29);
(* (ptr) (( (bPt) gf←c0198)+136) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0198)+4) ), (word) &string30);
(void) XR←DeclareGlobalFrame((word) "EditPropertiesImpl", &globalframe, (word) XR←GetTypeIndex((word) &string31, 0, (word) &string32)
, (word) (( (bPt) gf←c0198)+188)/* var←c22172 */ );
var←c24636 = (word) XR←ImportInterface((word) "Atom", (word) XR←GetTypeIndexS((word) (&string33)), 16);
(* (( (ptr) gf←c0198)+53)/* var←c22844 */ ) = var←c24636;
(void) XR←ImportProcS(var←c24636, 67372033);
(void) XR←ImportProcS(var←c24636, 67372289);
var←c24636 = (word) XR←ImportInterface((word) "CharOps", (word) XR←GetTypeIndexS((word) (&string34)), 14);
(* (( (ptr) gf←c0198)+57)/* var←c24156 */ ) = var←c24636;
var←c24636 = (word) XR←ImportInterface((word) "NodeProps", (word) XR←GetTypeIndexS((word) (&string35)), 28);
(* (( (ptr) gf←c0198)+51)/* var←c22652 */ ) = var←c24636;
(void) XR←ImportProcS(var←c24636, 67374337);
(void) XR←ImportProcS(var←c24636, 67374849);
(void) XR←ImportProcS(var←c24636, 67639554);
(void) XR←ImportProcS(var←c24636, 67374593);
(void) XR←ImportProcS(var←c24636, 67375105);
var←c24636 = (word) XR←ImportInterface((word) "Prop", (word) XR←GetTypeIndexS((word) (&string36)), 4);
(* (( (ptr) gf←c0198)+54)/* var←c22908 */ ) = var←c24636;
(void) XR←ImportProcS(var←c24636, 67633410);
(void) XR←ImportProcS(var←c24636, 67895299);
(void) XR←ImportProcS(var←c24636, 67633922);
var←c24636 = (word) XR←ImportInterface((word) "RefText", (word) XR←GetTypeIndexS((word) (&string37)), 26);
(* (( (ptr) gf←c0198)+56)/* var←c24124 */ ) = var←c24636;
(void) XR←ImportProcS(var←c24636, 262913);
(void) XR←ImportProcS(var←c24636, 67371521);
var←c24636 = (word) XR←ImportInterface((word) "Rope", (word) XR←GetTypeIndexS((word) (&string38)), 43);
(* (( (ptr) gf←c0198)+52)/* var←c22748 */ ) = var←c24636;
(void) XR←ImportProcS(var←c24636, 68686086);
(void) XR←ImportProcS(var←c24636, 68163076);
(void) XR←ImportProcS(var←c24636, 67379457);
(void) XR←ImportProcS(var←c24636, 67634434);
(void) XR←ImportProcS(var←c24636, 67373825);
var←c24636 = (word) XR←ImportInterface((word) "RuntimeError", (word) XR←GetTypeIndexS((word) (&string39)), 27);
(* (( (ptr) gf←c0198)+62)/* var←c24508 */ ) = var←c24636;
var←c24636 = (word) XR←ImportInterface((word) "TEditInput", (word) XR←GetTypeIndexS((word) (&string40)), 44);
(* (( (ptr) gf←c0198)+49)/* var←c22204 */ ) = var←c24636;
(void) XR←ImportProcS(var←c24636, 789507);
var←c24636 = (word) XR←ImportInterface((word) "TEditSelection", (word) XR←GetTypeIndexS((word) (&string41)), 68);
(* (( (ptr) gf←c0198)+58)/* var←c24284 */ ) = var←c24636;
(void) XR←ImportProcS(var←c24636, 1316101);
(void) XR←ImportProcS(var←c24636, 263937);
(void) XR←ImportProcS(var←c24636, 526338);
(void) XR←ImportProcS(var←c24636, 67110400);
var←c24636 = (word) XR←ImportInterface((word) "TEditSelectionOps", (word) XR←GetTypeIndexS((word) (&string42)), 2);
(* (( (ptr) gf←c0198)+63)/* var←c24572 */ ) = var←c24636;
(void) XR←ImportProcS(var←c24636, 786435);
var←c24636 = (word) XR←ImportInterface((word) "TextNode", (word) XR←GetTypeIndexS((word) (&string43)), 34);
(* (( (ptr) gf←c0198)+55)/* var←c23324 */ ) = var←c24636;
(void) XR←ImportProcS(var←c24636, 67379201);
(void) XR←ImportProcS(var←c24636, 67372545);
(void) XR←ImportProcS(var←c24636, 67372033);
var←c24636 = (word) XR←ImportInterface((word) "TiogaAccess", (word) XR←GetTypeIndexS((word) (&string44)), 32);
(* (( (ptr) gf←c0198)+50)/* var←c22588 */ ) = var←c24636;
(void) XR←ImportProcS(var←c24636, 67377665);
(void) XR←ImportProcS(var←c24636, 67111936);
(void) XR←ImportProcS(var←c24636, 67633410);
(void) XR←ImportProcS(var←c24636, 67376385);
(void) XR←ImportProcS(var←c24636, 335808769);
(void) XR←ImportProcS(var←c24636, 134486785);
(void) XR←ImportProcS(var←c24636, 67633154);
(void) XR←ImportProcS(var←c24636, 67901187);
(void) XR←ImportProcS(var←c24636, 527874);
(void) XR←ImportProcS(var←c24636, 1576194);
(void) XR←ImportProcS(var←c24636, 335808513);
(void) XR←ImportProcS(var←c24636, 67372801);
var←c24636 = (word) XR←ImportInterface((word) "TiogaAccessViewers", (word) XR←GetTypeIndexS((word) (&string45)), 4);
(* (( (ptr) gf←c0198)+60)/* var←c24412 */ ) = var←c24636;
(void) XR←ImportProcS(var←c24636, 262657);
(void) XR←ImportProcS(var←c24636, 525058);
(void) XR←ImportProcS(var←c24636, 67108864);
(void) XR←ImportProcS(var←c24636, 67371265);
var←c24636 = (word) XR←ImportInterface((word) "TiogaOps", (word) XR←GetTypeIndexS((word) (&string46)), 128);
(* (( (ptr) gf←c0198)+59)/* var←c24380 */ ) = var←c24636;
(void) XR←ImportProcS(var←c24636, 553474);
var←c24636 = (word) XR←ImportInterface((word) "ViewerOps", (word) XR←GetTypeIndexS((word) (&string47)), 43);
(* (( (ptr) gf←c0198)+61)/* var←c24444 */ ) = var←c24636;
(void) XR←ImportProcS(var←c24636, 534530);
(void) XR←ImportProcS(var←c24636, 269569);
}
static void EditPropertiesImpl←P0(formal←c029, formal←c028)
word formal←c029;
word formal←c028;
{
register ptr gf←c24668 = (ptr) &globalframe;
/* EditPropertiesImpl: */
SOURCE(221, 11356)
SOURCE(11413, 80)
{
word pd48;
pd48 = (* (( (ptr) (* (( (ptr) gf←c24668)+49)/* var←c22204 */ ))+16) );
(void) ( *( (fPt) ((* (ptr) pd48 ))))((* (( (ptr) gf←c24668)+34) ), (word) (( (bPt) gf←c24668)+156)/* var←c22044 */ , 1, pd48)
;
};
SOURCE(11495, 82)
{
word pd49;
pd49 = (* (( (ptr) (* (( (ptr) gf←c24668)+49)/* var←c22204 */ ))+16) );
(void) ( *( (fPt) ((* (ptr) pd49 ))))((* (( (ptr) gf←c24668)+32) ), (word) (( (bPt) gf←c24668)+148)/* var←c22012 */ , 1, pd49)
;
};
}
static void TranslateToOpenProperties←P60(formal←c0257, formal←c0258, rootOnly←v3668)
word formal←c0257;
word formal←c0258;
word rootOnly←v3668;
{
W35 var←c24700;
/* declaration of reader←v3612 skipped */
/* declaration of writer←v3640 skipped */
register ptr gf←c24732 = (ptr) &globalframe;
/* declaration of var←c22236 skipped */
/* declaration of var←c22268 skipped */
/* declaration of var←c22300 skipped */
/* declaration of var←c22332 skipped */
/* declaration of var←c22364 skipped */
/* declaration of var←c22396 skipped */
/* declaration of var←c22428 skipped */
/* declaration of t←v3904 skipped */
/* declaration of node←v3932 skipped */
W5 nest←v3960;
/* declaration of outc←v3988 skipped */
(* (( (ptr) &var←c24700)+4)/* reader←v3612 */ ) = formal←c0257;
(* (( (ptr) &var←c24700)+5)/* writer←v3640 */ ) = formal←c0258;
/* TranslateToOpenProperties: */
SOURCE(506, 3812)
{
word tmpAddr50;
tmpAddr50 = (word) (( (ptr) &var←c24700)+6)/* var←c22236 */ ;
(* (ptr) tmpAddr50 ) = ( ((word) (fPt) TranslateNodeContents←P720) );
(* (( (ptr) tmpAddr50) + 1) ) = 1;
};
{
word tmpAddr51;
tmpAddr51 = (word) (( (ptr) &var←c24700)+8)/* var←c22268 */ ;
(* (ptr) tmpAddr51 ) = ( ((word) (fPt) PutProperty←P660) );
(* (( (ptr) tmpAddr51) + 1) ) = 1;
};
{
word tmpAddr52;
tmpAddr52 = (word) (( (ptr) &var←c24700)+10)/* var←c22300 */ ;
(* (ptr) tmpAddr52 ) = ( ((word) (fPt) PutProperties←P600) );
(* (( (ptr) tmpAddr52) + 1) ) = 1;
};
{
word tmpAddr53;
tmpAddr53 = (word) (( (ptr) &var←c24700)+12)/* var←c22332 */ ;
(* (ptr) tmpAddr53 ) = ( ((word) (fPt) PutKey←P540) );
(* (( (ptr) tmpAddr53) + 1) ) = 1;
};
{
word tmpAddr54;
tmpAddr54 = (word) (( (ptr) &var←c24700)+14)/* var←c22364 */ ;
(* (ptr) tmpAddr54 ) = ( ((word) (fPt) PutPropName←P480) );
(* (( (ptr) tmpAddr54) + 1) ) = 1;
};
{
word tmpAddr55;
tmpAddr55 = (word) (( (ptr) &var←c24700)+16)/* var←c22396 */ ;
(* (ptr) tmpAddr55 ) = ( ((word) (fPt) PutOctal←P420) );
(* (( (ptr) tmpAddr55) + 1) ) = 1;
};
{
word tmpAddr56;
tmpAddr56 = (word) (( (ptr) &var←c24700)+18)/* var←c22428 */ ;
(* (ptr) tmpAddr56 ) = ( ((word) (fPt) PutRope←P360) );
(* (( (ptr) tmpAddr56) + 1) ) = 1;
};
SOURCE(623, 145)
(* (( (ptr) &var←c24700)+20) ) = 0;
(* (( (ptr) &var←c24700)+21) ) = 0;
(* (( (ptr) &var←c24700)+22) ) = 0;
(* (( (ptr) &var←c24700)+23) ) = 16000;
(* (( (ptr) &var←c24700)+24) ) = 0;
SOURCE(770, 150)
(* (( (ptr) &var←c24700)+25) ) = 13;
(* (( (ptr) &var←c24700)+26) ) = 0;
(* (( (ptr) &var←c24700)+27) ) = (* (( (ptr) gf←c24732)+31) );
(* (( (ptr) &var←c24700)+28) ) = 1073757824;
(* (( (ptr) &var←c24700)+29) ) = 0;
SOURCE(922, 150)
nest←v3960.f0 = 13;
nest←v3960.f1 = 0;
nest←v3960.f2 = (* (( (ptr) gf←c24732)+31) );
nest←v3960.f3 = 1073757825;
nest←v3960.f4 = 0;
SOURCE(1074, 148)
(* (( (ptr) &var←c24700)+30) ) = 0;
(* (( (ptr) &var←c24700)+31) ) = 0;
(* (( (ptr) &var←c24700)+32) ) = 0;
(* (( (ptr) &var←c24700)+33) ) = 16000;
(* (( (ptr) &var←c24700)+34) ) = 0;
SOURCE(3582, 629)
lab←L100002: ;
{
word pd57;
pd57 = (* (( (ptr) (* (( (ptr) gf←c24732)+50)/* var←c22588 */ ))+11) );
if ((0 == (word) ( *( (fPt) ((* (ptr) pd57 ))))((* ((( (ptr) &var←c24700)+4)/* reader←v3612 */ ) ), pd57))) {
}
else {
goto lab←L100000;
};
};
SOURCE(3617, 27)
{
word pd58;
pd58 = (* (( (ptr) (* (( (ptr) gf←c24732)+50)/* var←c22588 */ ))+12) );
(void) ( *( (fPt) ((* (ptr) pd58 ))))((word) (( (bPt) &var←c24700)+80)/* t←v3904 */ , (* (( (ptr) &var←c24700)+4)/* reader←v3612 */ ), pd58)
;
};
SOURCE(3646, 60)
(void) PutKey←P540( ( (0 != rootOnly←v3668) ? (* (( (ptr) gf←c24732)+11) ) : (* (( (ptr) gf←c24732)+12) ) ) , (word) (( (bPt) &var←c24700)+48)
/* var←c22332 */ );
SOURCE(3708, 29)
{
word pd59;
pd59 = (* (( (ptr) (* (( (ptr) gf←c24732)+50)/* var←c22588 */ ))+17) );
(void) ( *( (fPt) ((* (ptr) pd59 ))))((* (( (ptr) &var←c24700)+5)/* writer←v3640 */ ), nest←v3960, pd59);
};
SOURCE(3739, 131)
if ( ! ((* (( (bPt) &var←c24700)+92) ) & 0100)) {
SOURCE(3766, 18)
(void) PutKey←P540((* (( (ptr) gf←c24732)+13) ), (word) (( (bPt) &var←c24700)+48)/* var←c22332 */ );
SOURCE(3786, 29)
{
word pd60;
pd60 = (* (( (ptr) (* (( (ptr) gf←c24732)+50)/* var←c22588 */ ))+17) );
(void) ( *( (fPt) ((* (ptr) pd60 ))))((* (( (ptr) &var←c24700)+5)/* writer←v3640 */ ), nest←v3960, pd60);
};
SOURCE(3817, 23)
(void) TranslateNodeContents←P720((word) ((( (bPt) &var←c24700)+24)/* var←c22236 */ ));
SOURCE(3842, 28)
{
word pd61;
pd61 = (* (( (ptr) (* (( (ptr) gf←c24732)+50)/* var←c22588 */ ))+18) );
(void) ( *( (fPt) ((* (ptr) pd61 ))))((* (( (ptr) &var←c24700)+5)/* writer←v3640 */ ), (word) -1, pd61);
};
};
SOURCE(3875, 20)
(void) PutKey←P540((* (( (ptr) gf←c24732)+14) ), (word) (( (bPt) &var←c24700)+48)/* var←c22332 */ );
SOURCE(3897, 29)
{
word pd62;
pd62 = (* (( (ptr) (* (( (ptr) gf←c24732)+50)/* var←c22588 */ ))+17) );
(void) ( *( (fPt) ((* (ptr) pd62 ))))((* (( (ptr) &var←c24700)+5)/* writer←v3640 */ ), nest←v3960, pd62);
};
SOURCE(3928, 57)
{
word var←c22620;
{
word pd63;
pd63 = (* (( (ptr) (* (( (ptr) gf←c24732)+51)/* var←c22652 */ ))+20) );
var←c22620 = (word) ( *( (fPt) ((* (ptr) pd63 ))))(((int)(* (( (ptr) &var←c24700)+23) )<0), pd63);
};
(void) PutProperty←P660((* (( (ptr) gf←c24732)+15) ), var←c22620, (word) (( (bPt) &var←c24700)+32)/* var←c22268 */ );
};
SOURCE(3987, 55)
{
word var←c22684;
{
word pd64;
pd64 = (* (( (ptr) (* (( (ptr) gf←c24732)+51)/* var←c22652 */ ))+18) );
var←c22684 = (word) ( *( (fPt) ((* (ptr) pd64 ))))((* ((( (ptr) &var←c24700)+22)) ), pd64);
};
(void) PutProperty←P660((* (( (ptr) gf←c24732)+16) ), var←c22684, (word) (( (bPt) &var←c24700)+32)/* var←c22268 */ );
};
SOURCE(4044, 25)
(void) PutProperties←P600((* (( (ptr) &var←c24700)+24) ), (word) (( (bPt) &var←c24700)+40)/* var←c22300 */ );
SOURCE(4071, 28)
{
word pd65;
pd65 = (* (( (ptr) (* (( (ptr) gf←c24732)+50)/* var←c22588 */ ))+18) );
(void) ( *( (fPt) ((* (ptr) pd65 ))))((* (( (ptr) &var←c24700)+5)/* writer←v3640 */ ), (word) -1, pd65);
};
SOURCE(4101, 18)
(void) PutKey←P540((* (( (ptr) gf←c24732)+17) ), (word) (( (bPt) &var←c24700)+48)/* var←c22332 */ );
SOURCE(4121, 29)
{
word pd66;
pd66 = (* (( (ptr) (* (( (ptr) gf←c24732)+50)/* var←c22588 */ ))+17) );
(void) ( *( (fPt) ((* (ptr) pd66 ))))((* (( (ptr) &var←c24700)+5)/* writer←v3640 */ ), (* (W5Pt) (( (ptr) &var←c24700)+25)
/* node←v3932 */ ), pd66);
};
SOURCE(4152, 40)
{
word pd67;
pd67 = (* (( (ptr) (* (( (ptr) gf←c24732)+50)/* var←c22588 */ ))+18) );
(void) ( *( (fPt) ((* (ptr) pd67 ))))((* (( (ptr) &var←c24700)+5)/* writer←v3640 */ ), ((( (((unsigned)(* (( (ptr) &var←c24700)+23)
) << 2) >> 2) ) - 16000) - 1), pd67);
};
SOURCE(4194, 17)
if ((0 != rootOnly←v3668)) {
SOURCE(4211, 4)
goto lab←L100001;
};
goto lab←L100002;
lab←L100000: ;
lab←L100001: ;
SOURCE(4226, 92)
lab←L100005: ;
{
word pd68;
pd68 = (* (( (ptr) (* (( (ptr) gf←c24732)+50)/* var←c22588 */ ))+11) );
if ((0 == (word) ( *( (fPt) ((* (ptr) pd68 ))))((* ((( (ptr) &var←c24700)+4)/* reader←v3612 */ ) ), pd68))) {
}
else {
goto lab←L100003;
};
};
SOURCE(4261, 57)
{
word var←c22716;
word pd69;
pd69 = (* (( (ptr) (* (( (ptr) gf←c24732)+50)/* var←c22588 */ ))+27) );
var←c22716 = (word) ( *( (fPt) ((* (ptr) pd69 ))))((* (( (ptr) &var←c24700)+5)/* writer←v3640 */ ), (* (( (ptr) &var←c24700)+4)
/* reader←v3612 */ ), 2147483647, pd69);
};
goto lab←L100005;
lab←L100003: ;
}
static void PutRope←P360(rope←v4260, formal←c24796)
word rope←v4260;
word formal←c24796;
{
register ptr gf←c24764 = (ptr) &globalframe;
formal←c24796 = (formal←c24796 - 72);
/* PutRope: */
SOURCE(1224, 131)
SOURCE(1255, 100)
{
register word i←v4668 = 0;
register word noName←c22780;
{
word pd70;
pd70 = (* (( (ptr) (* (( (ptr) gf←c24764)+52)/* var←c22748 */ ))+15) );
noName←c22780 = (word) ( *( (fPt) ((* (ptr) pd70 ))))(rope←v4260, pd70);
};
if (( (int)i←v4668 >= (int)noName←c22780)) {
goto lab←L100006;
};
lab←L100009: ;
SOURCE(1293, 31)
{
word pd71;
pd71 = (* (( (ptr) (* (( (ptr) gf←c24764)+52)/* var←c22748 */ ))+9) );
(* (( (bPt) formal←c24796)+123) ) = (word) ( *( (fPt) ((* (ptr) pd71 ))))(rope←v4260, i←v4668, pd71);
};
SOURCE(1326, 29)
{
word pd72;
pd72 = (* (( (ptr) (* (( (ptr) gf←c24764)+50)/* var←c22588 */ ))+17) );
(void) ( *( (fPt) ((* (ptr) pd72 ))))((* (( (ptr) formal←c24796)+5) ), (* (W5Pt) (( (ptr) formal←c24796)+30) ), pd72);
};
i←v4668 = (i←v4668 + 1);
if (( (int)i←v4668 < (int)noName←c22780)) {
goto lab←L100009;
};
lab←L100006: ;
};
}
static void PutOctal←P420(b←v4320, formal←c24860)
word b←v4320;
word formal←c24860;
{
register ptr gf←c24828 = (ptr) &globalframe;
formal←c24860 = (formal←c24860 - 64);
/* PutOctal: */
SOURCE(1369, 197)
SOURCE(1402, 19)
(* (( (bPt) formal←c24860)+123) ) = ((b←v4320 >> 6) + 48);
SOURCE(1423, 29)
{
word pd73;
pd73 = (* (( (ptr) (* (( (ptr) gf←c24828)+50)/* var←c22588 */ ))+17) );
(void) ( *( (fPt) ((* (ptr) pd73 ))))((* (( (ptr) formal←c24860)+5) ), (* (W5Pt) (( (ptr) formal←c24860)+30) ), pd73);
};
SOURCE(1454, 26)
(* (( (bPt) formal←c24860)+123) ) = (((b←v4320 >> 3) & 7) + 48);
SOURCE(1482, 29)
{
word pd74;
pd74 = (* (( (ptr) (* (( (ptr) gf←c24828)+50)/* var←c22588 */ ))+17) );
(void) ( *( (fPt) ((* (ptr) pd74 ))))((* (( (ptr) formal←c24860)+5) ), (* (W5Pt) (( (ptr) formal←c24860)+30) ), pd74);
};
SOURCE(1513, 22)
(* (( (bPt) formal←c24860)+123) ) = ((b←v4320 & 7) + 48);
SOURCE(1537, 29)
{
word pd75;
pd75 = (* (( (ptr) (* (( (ptr) gf←c24828)+50)/* var←c22588 */ ))+17) );
(void) ( *( (fPt) ((* (ptr) pd75 ))))((* (( (ptr) formal←c24860)+5) ), (* (W5Pt) (( (ptr) formal←c24860)+30) ), pd75);
};
}
static void PutPropName←P480(atom←v4400, formal←c24924)
word atom←v4400;
word formal←c24924;
{
register ptr gf←c24892 = (ptr) &globalframe;
word save←v4712;
formal←c24924 = (formal←c24924 - 56);
/* PutPropName: */
SOURCE(1571, 152)
SOURCE(1606, 30)
save←v4712 = (* (( (ptr) formal←c24924)+31) );
SOURCE(1638, 21)
((P1x5b) (( (bPt) formal←c24924) + 125))->f = 1;
SOURCE(1661, 28)
{
word var←c22812;
{
word pd76;
pd76 = (* (( (ptr) (* (( (ptr) gf←c24892)+53)/* var←c22844 */ ))+9) );
var←c22812 = (word) ( *( (fPt) ((* (ptr) pd76 ))))(atom←v4400, pd76);
};
(void) PutRope←P360(var←c22812, (word) (( (bPt) formal←c24924)+72));
};
SOURCE(1691, 17)
(* (( (ptr) formal←c24924)+31) ) = save←v4712;
SOURCE(1710, 13)
(void) PutRope←P360((* (( (ptr) gf←c24892)+18) ), (word) (( (bPt) formal←c24924)+72));
}
static void PutKey←P540(rope←v4460, formal←c24956)
word rope←v4460;
word formal←c24956;
{
word save←v4756;
formal←c24956 = (formal←c24956 - 48);
/* PutKey: */
SOURCE(1728, 140)
SOURCE(1758, 30)
save←v4756 = (* (( (ptr) formal←c24956)+31) );
SOURCE(1790, 21)
((P1x2b) (( (bPt) formal←c24956) + 125))->f = 1;
SOURCE(1813, 21)
((P1x1b) (( (bPt) formal←c24956) + 124))->f = 1;
SOURCE(1836, 13)
(void) PutRope←P360(rope←v4460, (word) (( (bPt) formal←c24956)+72));
SOURCE(1851, 17)
(* (( (ptr) formal←c24956)+31) ) = save←v4756;
}
static void PutProperties←P600(propList←v4520, formal←c25052)
word propList←v4520;
word formal←c25052;
{
W6 var←c24988;
register ptr gf←c25020 = (ptr) &globalframe;
/* declaration of var←c22876 skipped */
formal←c25052 = (formal←c25052 - 40);
var←c24988.f0 = formal←c25052;
/* PutProperties: */
SOURCE(1873, 141)
{
word tmpAddr77;
tmpAddr77 = (word) (( (ptr) &var←c24988)+4)/* var←c22876 */ ;
(* (ptr) tmpAddr77 ) = ( ((word) (fPt) action←P828) );
(* (( (ptr) tmpAddr77) + 1) ) = 1;
};
SOURCE(1983, 31)
{
word var←c22940;
word pd78;
pd78 = (* (( (ptr) (* (( (ptr) gf←c25020)+54)/* var←c22908 */ ))+7) );
var←c22940 = (word) ( *( (fPt) ((* (ptr) pd78 ))))(propList←v4520, (word) (( (bPt) &var←c24988)+16)/* var←c22876 */ , pd78)
;
};
}
static word action←P828(key←v14096, val←v14124, formal←c25116)
word key←v14096;
word val←v14124;
word formal←c25116;
{
register ptr gf←c25084 = (ptr) &globalframe;
word quit←v14168;
formal←c25116 = (formal←c25116 - 16);
/* action: */
SOURCE(1923, 57)
SOURCE(1923, 57)
quit←v14168 = 0;
SOURCE(1950, 30)
{
word var←c22972;
var←c22972 = XR←Narrow(key←v14096, (* (( (ptr) gf←c25084)+6) ));
(void) PutProperty←P660(var←c22972, val←v14124, (word) (( (bPt) (* (ptr) formal←c25116 ))+32));
};
SOURCE(1923, 57)
return(quit←v14168);
}
static void PutProperty←P660(key←v4580, value←v4608, formal←c25180)
word key←v4580;
word value←v4608;
word formal←c25180;
{
register ptr gf←c25148 = (ptr) &globalframe;
formal←c25180 = (formal←c25180 - 32);
/* PutProperty: */
SOURCE(2019, 513)
SOURCE(2065, 467)
if ((value←v4608 != 0)) {
SOURCE(2085, 452)
{
word rope←v4844;
SOURCE(2087, 52)
{
word pd79;
pd79 = (* (( (ptr) (* (( (ptr) gf←c25148)+50)/* var←c22588 */ ))+4) );
rope←v4844 = (word) ( *( (fPt) ((* (ptr) pd79 ))))(key←v4580, value←v4608, pd79);
};
SOURCE(2141, 16)
(void) PutPropName←P480(key←v4580, (word) (( (bPt) formal←c25180)+56));
SOURCE(2159, 373)
{
word pd81;
if ((rope←v4844 == 0)) { goto then080;};
pd81 = (* (( (ptr) (* (( (ptr) gf←c25148)+51)/* var←c22652 */ ))+29) );
if ((0 != (word) ( *( (fPt) ((* (ptr) pd81 ))))(key←v4580, (* (( (ptr) gf←c25148)+19) ), pd81))) {
then080: ;
SOURCE(2212, 267)
{
word save←v4888;
word savedPropList←v4916;
SOURCE(2214, 30)
save←v4888 = (* (( (ptr) formal←c25180)+31) );
SOURCE(2246, 44)
savedPropList←v4916 = (* (( (ptr) formal←c25180)+29) );
SOURCE(2292, 21)
((P1x2b) (( (bPt) formal←c25180) + 124))->f = 1;
SOURCE(2315, 19)
(void) PutRope←P360((* (( (ptr) gf←c25148)+20) ), (word) (( (bPt) formal←c25180)+72));
SOURCE(2336, 17)
(* (( (ptr) formal←c25180)+31) ) = save←v4888;
SOURCE(2355, 60)
{
word pd82;
pd82 = (* (( (ptr) (* (( (ptr) gf←c25148)+54)/* var←c22908 */ ))+4) );
(* (( (ptr) formal←c25180)+29) ) = (word) ( *( (fPt) ((* (ptr) pd82 ))))((* (( (ptr) formal←c25180)+29) ), (* (( (ptr) gf←c25148)+21)
), value←v4608, pd82);
};
SOURCE(2417, 29)
{
word pd83;
pd83 = (* (( (ptr) (* (( (ptr) gf←c25148)+50)/* var←c22588 */ ))+17) );
(void) ( *( (fPt) ((* (ptr) pd83 ))))((* (( (ptr) formal←c25180)+5) ), (* (W5Pt) (( (ptr) formal←c25180)+25) ), pd83);
};
SOURCE(2448, 29)
(* (( (ptr) formal←c25180)+29) ) = savedPropList←v4916;
};
}
else {
SOURCE(2488, 13)
(void) PutRope←P360(rope←v4844, (word) (( (bPt) formal←c25180)+72));
SOURCE(2503, 29)
{
word pd84;
pd84 = (* (( (ptr) (* (( (ptr) gf←c25148)+50)/* var←c22588 */ ))+17) );
(void) ( *( (fPt) ((* (ptr) pd84 ))))((* (( (ptr) formal←c25180)+5) ), (* (W5Pt) (( (ptr) formal←c25180)+25) ), pd84);
};
};
};
};
};
}
static void TranslateNodeContents←P720(formal←c25244)
word formal←c25244;
{
register ptr gf←c25212 = (ptr) &globalframe;
formal←c25244 = (formal←c25244 - 24);
/* TranslateNodeContents: */
SOURCE(2543, 1022)
SOURCE(2575, 990)
lab←L100012: ;
if ( ! ((* (( (bPt) formal←c25244)+92) ) & 0100)) {
}
else {
goto lab←L100010;
};
{
word looks←v4960;
word propList←v4988;
SOURCE(2596, 28)
looks←v4960 = (* (( (ptr) formal←c25244)+21) );
SOURCE(2626, 36)
propList←v4988 = (* (( (ptr) formal←c25244)+24) );
SOURCE(2664, 482)
{
word tc85;
if ((( * (ptr) (( (ptr) formal←c25244)+20) >> 8) == 0)) {
tc85 = (word) (((* (( (bPt) formal←c25244)+83) ) - 32) <= 94);
}
else {
tc85 = (word) 0;
};
if (tc85) {
SOURCE(2711, 18)
(void) PutPropName←P480((* (( (ptr) gf←c25212)+22) ), (word) (( (bPt) formal←c25244)+56));
SOURCE(2731, 262)
lab←L100015: ;
{
word tc86;
word tc87;
word tc88;
word tc89;
if ( ! ((* (( (bPt) formal←c25244)+92) ) & 0100)) {
tc89 = (word) (( * (ptr) (( (ptr) formal←c25244)+20) >> 8) == 0);
}
else {
tc89 = (word) 0;
};
if (tc89) {
tc88 = (word) (((* (( (bPt) formal←c25244)+83) ) - 32) <= 94);
}
else {
tc88 = (word) 0;
};
if (tc88) {
tc87 = (word) ((* (( (ptr) formal←c25244)+21) ) == looks←v4960);
}
else {
tc87 = (word) 0;
};
if (tc87) {
tc86 = (word) ((* (( (ptr) formal←c25244)+24) ) == propList←v4988);
}
else {
tc86 = (word) 0;
};
if (tc86) {
}
else {
goto lab←L100013;
};
};
{
word save←v5032;
SOURCE(2841, 30)
save←v5032 = (* (( (ptr) formal←c25244)+31) );
SOURCE(2873, 18)
(* (( (bPt) formal←c25244)+123) ) = (* (( (bPt) formal←c25244)+83) );
SOURCE(2893, 21)
((P1x6b) (( (bPt) formal←c25244) + 125))->f = 1;
SOURCE(2916, 29)
{
word pd90;
pd90 = (* (( (ptr) (* (( (ptr) gf←c25212)+50)/* var←c22588 */ ))+17) );
(void) ( *( (fPt) ((* (ptr) pd90 ))))((* (( (ptr) formal←c25244)+5) ), (* (W5Pt) (( (ptr) formal←c25244)+30) ), pd90);
};
SOURCE(2947, 17)
(* (( (ptr) formal←c25244)+31) ) = save←v5032;
SOURCE(2966, 27)
{
word pd91;
pd91 = (* (( (ptr) (* (( (ptr) gf←c25212)+50)/* var←c22588 */ ))+12) );
(void) ( *( (fPt) ((* (ptr) pd91 ))))((word) (( (bPt) formal←c25244)+80), (* (( (ptr) formal←c25244)+4) ), pd91);
};
};
goto lab←L100015;
lab←L100013: ;
}
else {
SOURCE(3013, 18)
(void) PutPropName←P480((* (( (ptr) gf←c25212)+23) ), (word) (( (bPt) formal←c25244)+56));
SOURCE(3033, 12)
(void) PutRope←P360((* (( (ptr) gf←c25212)+24) ), (word) (( (bPt) formal←c25244)+72));
SOURCE(3047, 19)
{
word idx92;
(void) PutOctal←P420((
idx92 = (word) ( * (ptr) (( (ptr) formal←c25244)+20) >> 8),
BCK(idx92, 256)
), (word) (( (bPt) formal←c25244)+64));
};
SOURCE(3068, 12)
(void) PutRope←P360((* (( (ptr) gf←c25212)+25) ), (word) (( (bPt) formal←c25244)+72));
SOURCE(3082, 21)
(void) PutOctal←P420((* (( (bPt) formal←c25244)+83) ), (word) (( (bPt) formal←c25244)+64));
SOURCE(3105, 12)
(void) PutRope←P360((* (( (ptr) gf←c25212)+26) ), (word) (( (bPt) formal←c25244)+72));
SOURCE(3119, 27)
{
word pd93;
pd93 = (* (( (ptr) (* (( (ptr) gf←c25212)+50)/* var←c22588 */ ))+12) );
(void) ( *( (fPt) ((* (ptr) pd93 ))))((word) (( (bPt) formal←c25244)+80), (* (( (ptr) formal←c25244)+4) ), pd93);
};
};
};
SOURCE(3151, 29)
{
word pd94;
pd94 = (* (( (ptr) (* (( (ptr) gf←c25212)+50)/* var←c22588 */ ))+17) );
(void) ( *( (fPt) ((* (ptr) pd94 ))))((* (( (ptr) formal←c25244)+5) ), (* (W5Pt) (( (ptr) formal←c25244)+25) ), pd94);
};
SOURCE(3182, 271)
if ((looks←v4960 != 0)) {
SOURCE(3211, 27)
{
word pd95;
pd95 = (* (( (ptr) (* (( (ptr) gf←c25212)+50)/* var←c22588 */ ))+18) );
(void) ( *( (fPt) ((* (ptr) pd95 ))))((* (( (ptr) formal←c25244)+5) ), 1, pd95);
};
SOURCE(3240, 15)
(void) PutKey←P540((* (( (ptr) gf←c25212)+27) ), (word) (( (bPt) formal←c25244)+48));
SOURCE(3257, 12)
(void) PutRope←P360((* (( (ptr) gf←c25212)+24) ), (word) (( (bPt) formal←c25244)+72));
SOURCE(3271, 97)
{
register word noName←c23004 = 97;
register word c←v5076;
lab←L100019: ;
c←v5076 = (noName←c23004 - 97);
SOURCE(3306, 62)
if (((word) looks←v4960 >> (31 - c←v5076)) & 1) {
SOURCE(3324, 13)
(* (( (bPt) formal←c25244)+123) ) = (c←v5076 + 97);
SOURCE(3339, 29)
{
word pd96;
pd96 = (* (( (ptr) (* (( (ptr) gf←c25212)+50)/* var←c22588 */ ))+17) );
(void) ( *( (fPt) ((* (ptr) pd96 ))))((* (( (ptr) formal←c25244)+5) ), (* (W5Pt) (( (ptr) formal←c25244)+30) ), pd96);
};
};
if ((noName←c23004 >= 128)) {
goto lab←L100016;
};
noName←c23004 = (noName←c23004 + 1);
goto lab←L100019;
lab←L100016: ;
};
SOURCE(3380, 12)
(void) PutRope←P360((* (( (ptr) gf←c25212)+26) ), (word) (( (bPt) formal←c25244)+72));
SOURCE(3394, 29)
{
word pd97;
pd97 = (* (( (ptr) (* (( (ptr) gf←c25212)+50)/* var←c22588 */ ))+17) );
(void) ( *( (fPt) ((* (ptr) pd97 ))))((* (( (ptr) formal←c25244)+5) ), (* (W5Pt) (( (ptr) formal←c25244)+25) ), pd97);
};
SOURCE(3425, 28)
{
word pd98;
pd98 = (* (( (ptr) (* (( (ptr) gf←c25212)+50)/* var←c22588 */ ))+18) );
(void) ( *( (fPt) ((* (ptr) pd98 ))))((* (( (ptr) formal←c25244)+5) ), (word) -1, pd98);
};
};
SOURCE(3458, 107)
if ((propList←v4988 != 0)) {
SOURCE(3483, 27)
{
word pd99;
pd99 = (* (( (ptr) (* (( (ptr) gf←c25212)+50)/* var←c22588 */ ))+18) );
(void) ( *( (fPt) ((* (ptr) pd99 ))))((* (( (ptr) formal←c25244)+5) ), 1, pd99);
};
SOURCE(3512, 23)
(void) PutProperties←P600(propList←v4988, (word) (( (bPt) formal←c25244)+40));
SOURCE(3537, 28)
{
word pd100;
pd100 = (* (( (ptr) (* (( (ptr) gf←c25212)+50)/* var←c22588 */ ))+18) );
(void) ( *( (fPt) ((* (ptr) pd100 ))))((* (( (ptr) formal←c25244)+5) ), (word) -1, pd100);
};
};
};
goto lab←L100012;
lab←L100010: ;
}
static void TranslateFromOpenProperties←P120(formal←c0259, formal←c0260, doRoot←v3800)
word formal←c0259;
word formal←c0260;
word doRoot←v3800;
{
W33 var←c25276;
/* declaration of reader←v3744 skipped */
/* declaration of writer←v3772 skipped */
register ptr gf←c25308 = (ptr) &globalframe;
/* declaration of var←c23036 skipped */
/* declaration of var←c23068 skipped */
/* declaration of var←c23100 skipped */
/* declaration of var←c23132 skipped */
/* declaration of var←c23164 skipped */
/* declaration of var←c23196 skipped */
/* declaration of var←c23228 skipped */
/* declaration of var←c23260 skipped */
/* declaration of break←v5148 skipped */
/* declaration of level←v5204 skipped */
word first←v5372 = 1;
(* (( (ptr) &var←c25276)+4)/* reader←v3744 */ ) = formal←c0259;
(* (( (ptr) &var←c25276)+5)/* writer←v3772 */ ) = formal←c0260;
/* TranslateFromOpenProperties: */
SOURCE(4353, 4341)
{
word tmpAddr101;
tmpAddr101 = (word) (( (ptr) &var←c25276)+6)/* var←c23036 */ ;
(* (ptr) tmpAddr101 ) = ( ((word) (fPt) action←P1836) );
(* (( (ptr) tmpAddr101) + 1) ) = 1;
};
{
word tmpAddr102;
tmpAddr102 = (word) (( (ptr) &var←c25276)+8)/* var←c23068 */ ;
(* (ptr) tmpAddr102 ) = ( ((word) (fPt) ParseProp←P1488) );
(* (( (ptr) tmpAddr102) + 1) ) = 1;
};
{
word tmpAddr103;
tmpAddr103 = (word) (( (ptr) &var←c25276)+10)/* var←c23100 */ ;
(* (ptr) tmpAddr103 ) = ( ((word) (fPt) RopeToEnd←P1428) );
(* (( (ptr) tmpAddr103) + 1) ) = 1;
};
{
word tmpAddr104;
tmpAddr104 = (word) (( (ptr) &var←c25276)+12)/* var←c23132 */ ;
(* (ptr) tmpAddr104 ) = ( ((word) (fPt) GetOctal3←P1368) );
(* (( (ptr) tmpAddr104) + 1) ) = 1;
};
{
word tmpAddr105;
tmpAddr105 = (word) (( (ptr) &var←c25276)+14)/* var←c23164 */ ;
(* (ptr) tmpAddr105 ) = ( ((word) (fPt) MustNest←P1308) );
(* (( (ptr) tmpAddr105) + 1) ) = 1;
};
{
word tmpAddr106;
tmpAddr106 = (word) (( (ptr) &var←c25276)+16)/* var←c23196 */ ;
(* (ptr) tmpAddr106 ) = ( ((word) (fPt) MatchBreak←P1248) );
(* (( (ptr) tmpAddr106) + 1) ) = 1;
};
{
word tmpAddr107;
tmpAddr107 = (word) (( (ptr) &var←c25276)+18)/* var←c23228 */ ;
(* (ptr) tmpAddr107 ) = ( ((word) (fPt) Match←P1188) );
(* (( (ptr) tmpAddr107) + 1) ) = 1;
};
{
word tmpAddr108;
tmpAddr108 = (word) (( (ptr) &var←c25276)+20)/* var←c23260 */ ;
(* (ptr) tmpAddr108 ) = ( ((word) (fPt) Must←P1128) );
(* (( (ptr) tmpAddr108) + 1) ) = 1;
};
SOURCE(4525, 149)
(* (( (ptr) &var←c25276)+22) ) = 0;
(* (( (ptr) &var←c25276)+23) ) = 0;
(* (( (ptr) &var←c25276)+24) ) = 0;
(* (( (ptr) &var←c25276)+25) ) = 16000;
(* (( (ptr) &var←c25276)+26) ) = 0;
SOURCE(4993, 14)
(* (( (ptr) &var←c25276)+27)/* level←v5204 */ ) = 0;
SOURCE(6435, 183)
if ((0 != doRoot←v3800)) {
SOURCE(6450, 194)
{
word node←v5856;
W2 var←c091;
word parent←v5884;
SOURCE(6452, 57)
{
word pd109;
pd109 = (* (( (ptr) (* (( (ptr) gf←c25308)+50)/* var←c22588 */ ))+31) );
(void) ( *( (fPt) ((* (ptr) pd109 ))))((word) &var←c091, (* (( (ptr) &var←c25276)+4)/* reader←v3744 */ ), pd109);
};
node←v5856 = var←c091.f0;
SOURCE(6511, 44)
{
word pd110;
pd110 = (* (( (ptr) (* (( (ptr) gf←c25308)+55)/* var←c23324 */ ))+8) );
parent←v5884 = (word) ( *( (fPt) ((* (ptr) pd110 ))))(node←v5856, pd110);
};
SOURCE(6557, 61)
{
word var←c23356;
{
word pd111;
word pd112;
pd111 = (* (( (ptr) (* (( (ptr) gf←c25308)+55)/* var←c23324 */ ))+8) );
if (((word) ( *( (fPt) ((* (ptr) pd111 ))))(parent←v5884, pd111) == 0)) {
pd112 = (* (( (ptr) (* (( (ptr) gf←c25308)+55)/* var←c23324 */ ))+10) );
var←c23356 = ((word) ( *( (fPt) ((* (ptr) pd112 ))))(node←v5856, pd112) == 0);
}
else {
var←c23356 = 0;
};
};
(void) Must←P1128(var←c23356, (word) (( (bPt) &var←c25276)+80)/* var←c23260 */ );
};
};
};
SOURCE(6647, 2047)
lab←L100022: ;
{
word pd113;
pd113 = (* (( (ptr) (* (( (ptr) gf←c25308)+50)/* var←c22588 */ ))+11) );
if ((0 == (word) ( *( (fPt) ((* (ptr) pd113 ))))((* ((( (ptr) &var←c25276)+4)/* reader←v3744 */ ) ), pd113))) {
}
else {
goto lab←L100020;
};
};
SOURCE(6682, 1994)
if ( ( (0 == doRoot←v3800) ? (0 != (word) Match←P1188((* (( (ptr) gf←c25308)+12) ), (word) (( (bPt) &var←c25276)+72)/* var←c23228 */ )
) : 0 ) || ( (0 != doRoot←v3800) ? (0 != (word) Match←P1188((* (( (ptr) gf←c25308)+11) ), (word) (( (bPt) &var←c25276)+72)
/* var←c23228 */ )) : 0 ) ) {
SOURCE(6768, 1832)
{
W5 node←v5928;
word nodeTail←v5956 = 0;
SOURCE(6770, 148)
node←v5928.f0 = 13;
node←v5928.f1 = 0;
node←v5928.f2 = 0;
node←v5928.f3 = 1073757824;
node←v5928.f4 = 0;
SOURCE(6951, 9)
(* (( (ptr) &var←c25276)+27)/* level←v5204 */ ) = 0;
SOURCE(6962, 10)
(void) MustNest←P1308((word) ((( (bPt) &var←c25276)+56)/* var←c23164 */ ));
SOURCE(6974, 1084)
if ((0 != (word) Match←P1188((* (( (ptr) gf←c25308)+13) ), (word) (( (bPt) &var←c25276)+72)/* var←c23228 */ ))) {
SOURCE(7002, 10)
(void) MustNest←P1308((word) ((( (bPt) &var←c25276)+56)/* var←c23164 */ ));
SOURCE(7014, 1044)
lab←L100025: ;
if (( (int)(* (( (ptr) &var←c25276)+27)/* level←v5204 */ ) >= (int)2)) {
}
else {
goto lab←L100023;
};
{
/* declaration of outc←v6000 skipped */
word outcTail←v6028 = 0;
word rope←v6056 = 0;
SOURCE(7034, 148)
(* (( (ptr) &var←c25276)+28) ) = 0;
(* (( (ptr) &var←c25276)+29) ) = 0;
(* (( (ptr) &var←c25276)+30) ) = 0;
(* (( (ptr) &var←c25276)+31) ) = 16000;
(* (( (ptr) &var←c25276)+32) ) = 0;
SOURCE(7233, 15)
(void) Must←P1128(( (int)(* (( (ptr) &var←c25276)+27)/* level←v5204 */ ) == (int)2), (word) (( (bPt) &var←c25276)+80)/* var←c23260 */ )
;
SOURCE(7250, 176)
if ((0 != (word) Match←P1188((* (( (ptr) gf←c25308)+28) ), (word) (( (bPt) &var←c25276)+72)/* var←c23228 */ ))) {
SOURCE(7274, 24)
rope←v6056 = (word) RopeToEnd←P1428((word) ((( (bPt) &var←c25276)+40)/* var←c23100 */ ));
}
else {
SOURCE(7300, 22)
{
word var←c23452;
var←c23452 = (word) Match←P1188((* (( (ptr) gf←c25308)+29) ), (word) (( (bPt) &var←c25276)+72)/* var←c23228 */ );
(void) Must←P1128(var←c23452, (word) (( (bPt) &var←c25276)+80)/* var←c23260 */ );
};
SOURCE(7324, 26)
((P24x0w) (( (ptr) &var←c25276) + 28))->f = ( (((unsigned)(word) GetOctal3←P1368((word) ((( (bPt) &var←c25276)+48)/* var←c23132 */ ))
<< 8) >> 8) );
SOURCE(7352, 16)
{
word var←c23484;
var←c23484 = (word) Match←P1188((* (( (ptr) gf←c25308)+25) ), (word) (( (bPt) &var←c25276)+72)/* var←c23228 */ );
(void) Must←P1128(var←c23484, (word) (( (bPt) &var←c25276)+80)/* var←c23260 */ );
};
SOURCE(7370, 38)
{
word var←c23516;
var←c23516 = (word) GetOctal3←P1368((word) ((( (bPt) &var←c25276)+48)/* var←c23132 */ ));
{
word pd114;
pd114 = (* (( (ptr) (* (( (ptr) gf←c25308)+52)/* var←c22748 */ ))+37) );
rope←v6056 = (word) ( *( (fPt) ((* (ptr) pd114 ))))(var←c23516, pd114);
};
};
SOURCE(7410, 16)
{
word var←c23548;
var←c23548 = (word) Match←P1188((* (( (ptr) gf←c25308)+26) ), (word) (( (bPt) &var←c25276)+72)/* var←c23228 */ );
(void) Must←P1128(var←c23548, (word) (( (bPt) &var←c25276)+80)/* var←c23260 */ );
};
};
SOURCE(7431, 18)
{
word var←c23580;
var←c23580 = (word) MatchBreak←P1248((word) ((( (bPt) &var←c25276)+64)/* var←c23196 */ ));
(void) Must←P1128(var←c23580, (word) (( (bPt) &var←c25276)+80)/* var←c23260 */ );
};
SOURCE(7451, 455)
lab←L100028: ;
if (( (int)(* (( (ptr) &var←c25276)+27)/* level←v5204 */ ) >= (int)3)) {
}
else {
goto lab←L100026;
};
SOURCE(7471, 15)
(void) Must←P1128(( (int)(* (( (ptr) &var←c25276)+27)/* level←v5204 */ ) == (int)3), (word) (( (bPt) &var←c25276)+80)/* var←c23260 */ )
;
SOURCE(7488, 418)
if ((0 != (word) Match←P1188((* (( (ptr) gf←c25308)+30) ), (word) (( (bPt) &var←c25276)+72)/* var←c23228 */ ))) {
SOURCE(7512, 236)
{
W5 t←v6100;
SOURCE(7514, 51)
{
word pd115;
pd115 = (* (( (ptr) (* (( (ptr) gf←c25308)+50)/* var←c22588 */ ))+13) );
(void) ( *( (fPt) ((* (ptr) pd115 ))))((word) &t←v6100, (* (( (ptr) &var←c25276)+4)/* reader←v3744 */ ), pd115);
};
SOURCE(7567, 132)
lab←L100031: ;
{
word tc116;
if ((( * (ptr) &t←v6100 >> 8) == 0)) {
tc116 = (word) (((* (( (bPt) &t←v6100)+3) ) - 97) <= 31);
}
else {
tc116 = (word) 0;
};
if (tc116) {
}
else {
goto lab←L100029;
};
};
SOURCE(7615, 27)
{
word pd117;
pd117 = (* (( (ptr) (* (( (ptr) gf←c25308)+50)/* var←c22588 */ ))+12) );
(void) ( *( (fPt) ((* (ptr) pd117 ))))((word) &t←v6100, (* (( (ptr) &var←c25276)+4)/* reader←v3744 */ ), pd117);
};
SOURCE(7644, 25)
{
word idx118;
word x119;
word x120;
x119 = (word) (
idx118 = (word) ((* (( (bPt) &t←v6100)+3) ) - 97),
BCK(idx118, 32)
);
x120 = (word) (( (bPt) &var←c25276)+116);
x119 = 32 - (x119+1);
(* (ptr) x120 ) = ((* (ptr) x120 ) & ( ~ (1 << x119))) | (((1)) << x119);
};
SOURCE(7671, 28)
{
word pd121;
pd121 = (* (( (ptr) (* (( (ptr) gf←c25308)+50)/* var←c22588 */ ))+13) );
(void) ( *( (fPt) ((* (ptr) pd121 ))))((word) &t←v6100, (* (( (ptr) &var←c25276)+4)/* reader←v3744 */ ), pd121);
};
goto lab←L100031;
lab←L100029: ;
SOURCE(7710, 16)
{
word var←c23612;
var←c23612 = (word) Match←P1188((* (( (ptr) gf←c25308)+26) ), (word) (( (bPt) &var←c25276)+72)/* var←c23228 */ );
(void) Must←P1128(var←c23612, (word) (( (bPt) &var←c25276)+80)/* var←c23260 */ );
};
SOURCE(7728, 18)
{
word var←c23644;
var←c23644 = (word) MatchBreak←P1248((word) ((( (bPt) &var←c25276)+64)/* var←c23196 */ ));
(void) Must←P1128(var←c23644, (word) (( (bPt) &var←c25276)+80)/* var←c23260 */ );
};
};
}
else {
SOURCE(7755, 153)
{
W2 pair←v6144;
word last←v6172;
SOURCE(7757, 29)
(void) ParseProp←P1488((word) &pair←v6144, (word) (( (bPt) &var←c25276)+32)/* var←c23068 */ );
SOURCE(7788, 32)
last←v6172 = XR←NewObject(12, (* (( (ptr) gf←c25308)+8) ));
{
word var←c23708;
var←c23708 = last←v6172;
(* (W2Pt) var←c23708 ) = pair←v6144;
};
SOURCE(7822, 67)
if ((outcTail←v6028 == 0)) {
SOURCE(7843, 26)
(* (( (ptr) &var←c25276)+32) ) = last←v6172;
}
else {
SOURCE(7869, 20)
(* (( (ptr) outcTail←v6028)+2) ) = last←v6172;
};
SOURCE(7891, 15)
outcTail←v6028 = last←v6172;
};
};
goto lab←L100028;
lab←L100026: ;
SOURCE(7920, 138)
if ((rope←v6056 != 0)) {
SOURCE(7939, 121)
SOURCE(8017, 41)
{
word var←c23740;
word pd122;
pd122 = (* (( (ptr) (* (( (ptr) gf←c25308)+52)/* var←c22748 */ ))+26) );
var←c23740 = (word) ( *( (fPt) ((* (ptr) pd122 ))))(rope←v6056, 0, 2147483647, (word) (( (bPt) &var←c25276)+24)/* var←c23036 */ , pd122)
;
};
};
};
goto lab←L100025;
lab←L100023: ;
};
SOURCE(8075, 390)
if ((0 != (word) Match←P1188((* (( (ptr) gf←c25308)+14) ), (word) (( (bPt) &var←c25276)+72)/* var←c23228 */ ))) {
SOURCE(8105, 10)
(void) MustNest←P1308((word) ((( (bPt) &var←c25276)+56)/* var←c23164 */ ));
SOURCE(8117, 348)
lab←L100034: ;
if (( (int)(* (( (ptr) &var←c25276)+27)/* level←v5204 */ ) >= (int)2)) {
}
else {
goto lab←L100032;
};
{
W2 pair←v6260;
SOURCE(8137, 15)
pair←v6260.f0 = 0;
pair←v6260.f1 = 0;
SOURCE(8154, 15)
(void) Must←P1128(( (int)(* (( (ptr) &var←c25276)+27)/* level←v5204 */ ) == (int)2), (word) (( (bPt) &var←c25276)+80)/* var←c23260 */ )
;
SOURCE(8171, 18)
(void) ParseProp←P1488((word) &pair←v6260, (word) (( (bPt) &var←c25276)+32)/* var←c23068 */ );
SOURCE(8191, 274)
{
word var←c23804;
var←c23804 = pair←v6260.f0;
if ((var←c23804 == (* (( (ptr) gf←c25308)+15) ))) {
SOURCE(8224, 48)
{
word pd123;
pd123 = (* (( (ptr) (* (( (ptr) gf←c25308)+51)/* var←c22652 */ ))+19) );
node←v5928.f3 = (node←v5928.f3 & 2147483647) | ((((word) ( *( (fPt) ((* (ptr) pd123 ))))(pair←v6260.f1, pd123) & 1)) << 31)
;
};
}
else {
if ((var←c23804 == (* (( (ptr) gf←c25308)+16) ))) {
SOURCE(8285, 47)
{
word pd124;
pd124 = (* (( (ptr) (* (( (ptr) gf←c25308)+51)/* var←c22652 */ ))+17) );
node←v5928.f2 = (word) ( *( (fPt) ((* (ptr) pd124 ))))(pair←v6260.f1, pd124);
};
}
else {
SOURCE(8345, 122)
{
word last←v6304;
SOURCE(8347, 32)
last←v6304 = XR←NewObject(12, (* (( (ptr) gf←c25308)+8) ));
{
/*1*/ word var←c23868;
/*1*/ var←c23868 = last←v6304;
/*1*/ (* (W2Pt) var←c23868 ) = pair←v6260;
/*1*/ };
SOURCE(8381, 67)
if ((nodeTail←v5956 == 0)) {
SOURCE(8402, 26)
/*1*/ node←v5928.f4 = last←v6304;
/*1*/ }
else {
SOURCE(8428, 20)
/*1*/ (* (( (ptr) nodeTail←v5956)+2) ) = last←v6304;
/*1*/ };
SOURCE(8450, 15)
nodeTail←v5956 = last←v6304;
};
};
};
};
};
goto lab←L100034;
lab←L100032: ;
};
SOURCE(8482, 15)
(void) Must←P1128(( (int)(* (( (ptr) &var←c25276)+27)/* level←v5204 */ ) == (int)1), (word) (( (bPt) &var←c25276)+80)/* var←c23260 */ )
;
SOURCE(8499, 23)
{
word var←c23900;
var←c23900 = (word) Match←P1188((* (( (ptr) gf←c25308)+17) ), (word) (( (bPt) &var←c25276)+72)/* var←c23228 */ );
(void) Must←P1128(var←c23900, (word) (( (bPt) &var←c25276)+80)/* var←c23260 */ );
};
SOURCE(8524, 18)
{
word var←c23932;
var←c23932 = (word) MatchBreak←P1248((word) ((( (bPt) &var←c25276)+64)/* var←c23196 */ ));
(void) Must←P1128(var←c23932, (word) (( (bPt) &var←c25276)+80)/* var←c23260 */ );
};
SOURCE(8544, 23)
{
word idx125;
node←v5928.f3 = (node←v5928.f3 & 3221225472) | ((
idx125 = (word) ((* (( (ptr) &var←c25276)+27)/* level←v5204 */ ) + 16000),
BCK(idx125, 16002)
));
};
SOURCE(8569, 29)
{
word pd126;
pd126 = (* (( (ptr) (* (( (ptr) gf←c25308)+50)/* var←c22588 */ ))+17) );
(void) ( *( (fPt) ((* (ptr) pd126 ))))((* (( (ptr) &var←c25276)+5)/* writer←v3772 */ ), node←v5928, pd126);
};
};
}
else {
SOURCE(8609, 15)
(void) Must←P1128((0 == first←v5372), (word) (( (bPt) &var←c25276)+80)/* var←c23260 */ );
SOURCE(8626, 50)
{
word var←c23964;
{
word pd127;
pd127 = (* (( (ptr) (* (( (ptr) gf←c25308)+50)/* var←c22588 */ ))+27) );
var←c23964 = (word) ( *( (fPt) ((* (ptr) pd127 ))))((* (( (ptr) &var←c25276)+5)/* writer←v3772 */ ), (* (( (ptr) &var←c25276)+4)
/* reader←v3744 */ ), 2147483647, pd127);
};
(void) Must←P1128(var←c23964, (word) (( (bPt) &var←c25276)+80)/* var←c23260 */ );
};
};
SOURCE(8681, 13)
first←v5372 = 0;
goto lab←L100022;
lab←L100020: ;
}
static void Must←P1128(assertion←v5448, formal←c25372)
word assertion←v5448;
word formal←c25372;
{
register ptr gf←c25340 = (ptr) &globalframe;
formal←c25372 = (formal←c25372 - 80);
/* Must: */
SOURCE(4462, 60)
SOURCE(4494, 28)
if ((0 == assertion←v5448)) {
SOURCE(4516, 6)
(void) XR←RaiseError((word) (( (bPt) gf←c25340)+140), 0);
};
}
static word Match←P1188(rope←v5508, formal←c25436)
word rope←v5508;
word formal←c25436;
{
register ptr gf←c25404 = (ptr) &globalframe;
word var←c5552;
word targetLen←v6348;
word input←v6376;
word matchLen←v6404;
formal←c25436 = (formal←c25436 - 72);
/* Match: */
SOURCE(4676, 312)
SOURCE(4720, 32)
{
word pd128;
pd128 = (* (( (ptr) (* (( (ptr) gf←c25404)+52)/* var←c22748 */ ))+15) );
targetLen←v6348 = (word) ( *( (fPt) ((* (ptr) pd128 ))))(rope←v5508, pd128);
};
SOURCE(4754, 42)
{
word pd129;
pd129 = (* (( (ptr) (* (( (ptr) gf←c25404)+50)/* var←c22588 */ ))+25) );
input←v6376 = (word) ( *( (fPt) ((* (ptr) pd129 ))))((* ((( (ptr) formal←c25436)+4)) ), pd129);
};
SOURCE(4798, 57)
{
word pd130;
pd130 = (* (( (ptr) (* (( (ptr) gf←c25404)+52)/* var←c22748 */ ))+21) );
matchLen←v6404 = (word) ( *( (fPt) ((* (ptr) pd130 ))))(rope←v5508, 0, input←v6376, 0, 1, 2147483647, pd130);
};
SOURCE(4857, 112)
if (( (int)matchLen←v6404 == (int)targetLen←v6348)) {
SOURCE(4886, 68)
{
register word i←v6448 = 0;
if (( (int)i←v6448 >= (int)targetLen←v6348)) {
goto lab←L100035;
};
lab←L100038: ;
SOURCE(4918, 36)
{
W5 var←c23996;
{
word pd131;
pd131 = (* (( (ptr) (* (( (ptr) gf←c25404)+50)/* var←c22588 */ ))+12) );
(void) ( *( (fPt) ((* (ptr) pd131 ))))((word) &var←c23996, (* (( (ptr) formal←c25436)+4) ), pd131);
};
};
i←v6448 = (i←v6448 + 1);
if (( (int)i←v6448 < (int)targetLen←v6348)) {
goto lab←L100038;
};
lab←L100035: ;
};
SOURCE(4956, 13)
return(1);
};
SOURCE(4974, 14)
return(0);
}
static word MatchBreak←P1248(formal←c25500)
word formal←c25500;
{
register ptr gf←c25468 = (ptr) &globalframe;
word var←c5612;
W5 var←c0133;
formal←c25500 = (formal←c25500 - 64);
/* MatchBreak: */
SOURCE(5009, 180)
SOURCE(5045, 125)
{
word pd132;
pd132 = (* (( (ptr) (* (( (ptr) gf←c25468)+50)/* var←c22588 */ ))+13) );
(void) ( *( (fPt) ((* (ptr) pd132 ))))((word) &var←c0133, (* (( (ptr) formal←c25500)+4) ), pd132);
};
if ((* (( (bPt) &var←c0133)+12) ) & 0100) {
SOURCE(5090, 31)
{
word pd133;
pd133 = (* (( (ptr) (* (( (ptr) gf←c25468)+50)/* var←c22588 */ ))+12) );
(void) ( *( (fPt) ((* (ptr) pd133 ))))((word) (( (bPt) formal←c25500)+88), (* (( (ptr) formal←c25500)+4) ), pd133);
};
SOURCE(5123, 32)
(* (( (ptr) formal←c25500)+27) ) = ((* (( (ptr) formal←c25500)+27) ) + (( (((unsigned)(* (( (ptr) formal←c25500)+25) ) << 2) >> 2) ) - 16000));
SOURCE(5157, 13)
return(1);
};
SOURCE(5175, 14)
return(0);
}
static void MustNest←P1308(formal←c25532)
word formal←c25532;
{
formal←c25532 = (formal←c25532 - 56);
/* MustNest: */
SOURCE(5194, 61)
SOURCE(5212, 43)
{
word var←c24028;
if ((0 != (word) MatchBreak←P1248((word) ((( (bPt) formal←c25532)+64))))) {
var←c24028 = ( (int)(( (((unsigned)(* (( (ptr) formal←c25532)+25) ) << 2) >> 2) ) - 16000) == (int)1);
}
else {
var←c24028 = 0;
};
(void) Must←P1128(var←c24028, (word) (( (bPt) formal←c25532)+80));
};
}
static word GetOctal3←P1368(formal←c25596)
word formal←c25596;
{
register ptr gf←c25564 = (ptr) &globalframe;
word var←c5688;
word v←v6492 = 0;
formal←c25596 = (formal←c25596 - 48);
/* GetOctal3: */
SOURCE(5258, 239)
SOURCE(5314, 141)
{
register word i←v6536 = 0;
lab←L100042: ;
{
W5 t←v6580;
SOURCE(5338, 50)
{
word pd134;
pd134 = (* (( (ptr) (* (( (ptr) gf←c25564)+50)/* var←c22588 */ ))+12) );
(void) ( *( (fPt) ((* (ptr) pd134 ))))((word) &t←v6580, (* (( (ptr) formal←c25596)+4) ), pd134);
};
SOURCE(5390, 42)
{
word tc135;
if ((((* (( (bPt) &t←v6580)+3) ) - 48) <= 7)) {
tc135 = (word) (( * (ptr) &t←v6580 >> 8) == 0);
}
else {
tc135 = (word) 0;
};
(void) Must←P1128(tc135, (word) (( (bPt) formal←c25596)+80));
};
SOURCE(5434, 21)
v←v6492 = ((v←v6492 << 3) + ((* (( (bPt) &t←v6580)+3) ) - 48));
};
if ((i←v6536 >= 2)) {
goto lab←L100039;
};
i←v6536 = (i←v6536 + 1);
goto lab←L100042;
lab←L100039: ;
};
SOURCE(5466, 19)
(void) Must←P1128((v←v6492 <= 255), (word) (( (bPt) formal←c25596)+80));
SOURCE(5487, 10)
return(BCK(v←v6492, 256));
}
static word RopeToEnd←P1428(formal←c25660)
word formal←c25660;
{
register ptr gf←c25628 = (ptr) &globalframe;
word var←c5768;
word rope←v6624;
formal←c25660 = (formal←c25660 - 40);
/* RopeToEnd: */
SOURCE(5502, 167)
SOURCE(5537, 41)
{
word pd136;
pd136 = (* (( (ptr) (* (( (ptr) gf←c25628)+50)/* var←c22588 */ ))+25) );
rope←v6624 = (word) ( *( (fPt) ((* (ptr) pd136 ))))((* ((( (ptr) formal←c25660)+4)) ), pd136);
};
SOURCE(5580, 74)
{
register word i←v6668 = 0;
register word noName←c24060;
{
word pd137;
pd137 = (* (( (ptr) (* (( (ptr) gf←c25628)+52)/* var←c22748 */ ))+15) );
noName←c24060 = (word) ( *( (fPt) ((* (ptr) pd137 ))))(rope←v6624, pd137);
};
if (( (int)i←v6668 >= (int)noName←c24060)) {
goto lab←L100043;
};
lab←L100046: ;
SOURCE(5618, 36)
{
W5 var←c24092;
{
word pd138;
pd138 = (* (( (ptr) (* (( (ptr) gf←c25628)+50)/* var←c22588 */ ))+12) );
(void) ( *( (fPt) ((* (ptr) pd138 ))))((word) &var←c24092, (* (( (ptr) formal←c25660)+4) ), pd138);
};
};
i←v6668 = (i←v6668 + 1);
if (( (int)i←v6668 < (int)noName←c24060)) {
goto lab←L100046;
};
lab←L100043: ;
};
SOURCE(5656, 13)
return(rope←v6624);
}
static void ParseProp←P1488(formal←c0157, formal←c25724)
word formal←c0157;
word formal←c25724;
{
register ptr gf←c25692 = (ptr) &globalframe;
W2 var←c5828;
word keyText←v6712;
W5 t←v6740;
word key←v6768 = 0;
word rope←v6796 = 0;
word value←v6824 = 0;
formal←c25724 = (formal←c25724 - 32);
/* ParseProp: */
SOURCE(5674, 736)
SOURCE(5714, 46)
{
word pd139;
pd139 = (* (( (ptr) (* (( (ptr) gf←c25692)+56)/* var←c24124 */ ))+6) );
keyText←v6712 = (word) ( *( (fPt) ((* (ptr) pd139 ))))(100, pd139);
};
SOURCE(5762, 50)
{
word pd140;
pd140 = (* (( (ptr) (* (( (ptr) gf←c25692)+50)/* var←c22588 */ ))+12) );
(void) ( *( (fPt) ((* (ptr) pd140 ))))((word) &t←v6740, (* (( (ptr) formal←c25724)+4) ), pd140);
};
SOURCE(5861, 196)
lab←L100050: ;
{
word tc141;
if ((( * (ptr) &t←v6740 >> 8) == 0)) {
tc141 = (word) ((word) (* (( (bPt) (* (ptr) (* (( (ptr) (* (( (ptr) gf←c25692)+57)/* var←c24156 */ ))+4) ) ))+(* (( (bPt) &t←v6740)+3)
)) ) == 2);
}
else {
tc141 = (word) 0;
};
if (tc141) {
}
else {
goto lab←L100048;
};
};
SOURCE(5917, 40)
(void) Must←P1128(((* (hPt) keyText←v6712 ) < (* (( (hPt) keyText←v6712)+1) )), (word) (( (bPt) formal←c25724)+80));
SOURCE(5959, 32)
{
word idx142;
word limit143;
(* ((( (bPt) keyText←v6712)+4)+(
idx142 = (word) (* (hPt) keyText←v6712 ),
limit143 = (word) (* (( (hPt) keyText←v6712)+1) ),
BCK(idx142, limit143)
)) ) = (* (( (bPt) &t←v6740)+3) );
};
SOURCE(5993, 35)
{
word idx144;
(* (hPt) keyText←v6712 ) = (
idx144 = (word) ((* (hPt) keyText←v6712 ) + 1),
BCK(idx144, 32768)
);
};
SOURCE(6030, 27)
{
word pd145;
pd145 = (* (( (ptr) (* (( (ptr) gf←c25692)+50)/* var←c22588 */ ))+12) );
(void) ( *( (fPt) ((* (ptr) pd145 ))))((word) &t←v6740, (* (( (ptr) formal←c25724)+4) ), pd145);
};
goto lab←L100050;
lab←L100048: ;
SOURCE(6068, 24)
(void) Must←P1128(((* (hPt) keyText←v6712 ) > 0), (word) (( (bPt) formal←c25724)+80));
SOURCE(6094, 35)
{
word tc146;
if ((( * (ptr) &t←v6740 >> 8) == 0)) {
tc146 = (word) ((* (( (bPt) &t←v6740)+3) ) == 58);
}
else {
tc146 = (word) 0;
};
(void) Must←P1128(tc146, (word) (( (bPt) formal←c25724)+80));
};
SOURCE(6131, 16)
{
word var←c24188;
var←c24188 = (word) Match←P1188((* (( (ptr) gf←c25692)+33) ), (word) (( (bPt) formal←c25724)+72));
(void) Must←P1128(var←c24188, (word) (( (bPt) formal←c25724)+80));
};
SOURCE(6149, 18)
rope←v6796 = (word) RopeToEnd←P1428((word) ((( (bPt) formal←c25724)+40)));
SOURCE(6169, 18)
{
word var←c24220;
var←c24220 = (word) MatchBreak←P1248((word) ((( (bPt) formal←c25724)+64)));
(void) Must←P1128(var←c24220, (word) (( (bPt) formal←c25724)+80));
};
SOURCE(6189, 39)
{
word pd147;
pd147 = (* (( (ptr) (* (( (ptr) gf←c25692)+53)/* var←c22844 */ ))+8) );
key←v6768 = (word) ( *( (fPt) ((* (ptr) pd147 ))))(keyText←v6712, pd147);
};
SOURCE(6230, 46)
{
word pd148;
pd148 = (* (( (ptr) (* (( (ptr) gf←c25692)+54)/* var←c22908 */ ))+5) );
value←v6824 = (word) ( *( (fPt) ((* (ptr) pd148 ))))((* (( (ptr) formal←c25724)+26) ), (* (( (ptr) gf←c25692)+21) ), pd148)
;
};
SOURCE(6278, 66)
if ((value←v6824 == 0)) {
SOURCE(6298, 46)
{
word pd149;
pd149 = (* (( (ptr) (* (( (ptr) gf←c25692)+50)/* var←c22588 */ ))+5) );
value←v6824 = (word) ( *( (fPt) ((* (ptr) pd149 ))))(key←v6768, rope←v6796, pd149);
};
};
SOURCE(6346, 31)
{
word pd150;
pd150 = (* (( (ptr) (* (( (ptr) gf←c25692)+56)/* var←c24124 */ ))+7) );
(void) ( *( (fPt) ((* (ptr) pd150 ))))(keyText←v6712, pd150);
};
SOURCE(6379, 31)
var←c5828.f0 = key←v6768;
var←c5828.f1 = value←v6824;
/* removed tail goto */
(* (W2Pt) formal←c0157 ) = var←c5828;
return;
}
static word action←P1836(c←v15988, formal←c25788)
word c←v15988;
word formal←c25788;
{
register ptr gf←c25756 = (ptr) &globalframe;
word quit←v16032;
formal←c25788 = (formal←c25788 - 24);
/* action: */
SOURCE(7941, 26)
SOURCE(7941, 26)
quit←v16032 = 0;
SOURCE(7969, 13)
(* (( (bPt) formal←c25788)+115) ) = c←v15988;
SOURCE(7984, 30)
{
word pd151;
pd151 = (* (( (ptr) (* (( (ptr) gf←c25756)+50)/* var←c22588 */ ))+17) );
(void) ( *( (fPt) ((* (ptr) pd151 ))))((* (( (ptr) formal←c25788)+5) ), (* (W5Pt) (( (ptr) formal←c25788)+28) ), pd151)
;
};
SOURCE(7941, 26)
return(quit←v16032);
}
static word MakeNodeSelection←P180()
{
register ptr gf←c25820 = (ptr) &globalframe;
word useRootViewer←v3860;
word tSel←v6892 = 0;
/* MakeNodeSelection: */
SOURCE(8709, 688)
SOURCE(8709, 688)
useRootViewer←v3860 = 0;
SOURCE(8806, 72)
if (((* (ptr) (* (( (ptr) (* (( (ptr) gf←c25820)+58)/* var←c24284 */ ))+4) ) ) == 0) || ((* (ptr) (* (ptr) (* (( (ptr) (* (
( (ptr) gf←c25820)+58)/* var←c24284 */ ))+4) ) ) ) == 0)) {
SOURCE(8872, 6)
return(useRootViewer←v3860);
};
SOURCE(8880, 29)
{
word pd152;
pd152 = (* (( (ptr) (* (( (ptr) gf←c25820)+58)/* var←c24284 */ ))+10) );
tSel←v6892 = (word) ( *( (fPt) ((* (ptr) pd152 ))))(pd152);
};
SOURCE(8911, 60)
{
word pd153;
pd153 = (* (( (ptr) (* (( (ptr) gf←c25820)+58)/* var←c24284 */ ))+12) );
(void) ( *( (fPt) ((* (ptr) pd153 ))))((* (ptr) (* (( (ptr) (* (( (ptr) gf←c25820)+58)/* var←c24284 */ ))+4) ) ), tSel←v6892, pd153)
;
};
SOURCE(8973, 172)
if ( ( ( ((* (( (ptr) tSel←v6892)+2) ) == (* (( (ptr) (* (ptr) (* (( (ptr) tSel←v6892)+1) ) ))+2) )) ? ( (int)(* (( (ptr) tSel←v6892)+3)
) == (int)0) : 0 ) ? ((* (( (ptr) tSel←v6892)+24) ) == 0) : 0 ) ) {
SOURCE(9083, 27)
useRootViewer←v3860 = (* (ptr) tSel←v6892 );
SOURCE(9112, 25)
{
word pd154;
pd154 = (* (( (ptr) (* (( (ptr) gf←c25820)+58)/* var←c24284 */ ))+11) );
(void) ( *( (fPt) ((* (ptr) pd154 ))))(tSel←v6892, pd154);
};
SOURCE(9139, 6)
return(useRootViewer←v3860);
};
SOURCE(9150, 158)
{
word var←c24316;
var←c24316 = (* (( (ptr) tSel←v6892)+22) );
switch (var←c24316) {
case 0: case 1: case 2:
SOURCE(9202, 24)
(* (( (ptr) tSel←v6892)+3) ) = 0;
SOURCE(9228, 55)
{
word pd155;
pd155 = (* (( (ptr) (* (( (ptr) gf←c25820)+55)/* var←c23324 */ ))+36) );
(* (( (ptr) tSel←v6892)+12) ) = (word) ( *( (fPt) ((* (ptr) pd155 ))))((* ((( (ptr) tSel←v6892)+11)) ), pd155);
};
SOURCE(9285, 23)
(* (( (ptr) tSel←v6892)+22) ) = 3;
break;
default:
break;
};
};
SOURCE(9330, 39)
{
word pd156;
pd156 = (* (( (ptr) (* (( (ptr) gf←c25820)+58)/* var←c24284 */ ))+25) );
(void) ( *( (fPt) ((* (ptr) pd156 ))))(tSel←v6892, 0, 0, 0, 1, pd156);
};
SOURCE(9371, 26)
{
word pd157;
pd157 = (* (( (ptr) (* (( (ptr) gf←c25820)+58)/* var←c24284 */ ))+11) );
(void) ( *( (fPt) ((* (ptr) pd157 ))))(tSel←v6892, pd157);
};
SOURCE(8709, 688)
return(useRootViewer←v3860);
}
static void OpenPropertiesOp←P240(formal←c0167, formal←c0261)
word formal←c0167;
word formal←c0261;
{
W7 var←c25852;
/* declaration of viewer←v8536 skipped */
register ptr gf←c25884 = (ptr) &globalframe;
word recordAtom←v8580;
word quit←v8608;
/* declaration of var←c24348 skipped */
var←c25852.f4/* viewer←v8536 */ = formal←c0261;
/* OpenPropertiesOp: */
SOURCE(9401, 654)
{
word tmpAddr158;
tmpAddr158 = (word) (( (ptr) &var←c25852)+5)/* var←c24348 */ ;
(* (ptr) tmpAddr158 ) = ( ((word) (fPt) OpenProperties←P2184) );
(* (( (ptr) tmpAddr158) + 1) ) = 1;
};
SOURCE(9401, 654)
recordAtom←v8580 = 1;
SOURCE(9401, 654)
quit←v8608 = 0;
SOURCE(10004, 38)
{
word pd159;
pd159 = (* (( (ptr) (* (( (ptr) gf←c25884)+59)/* var←c24380 */ ))+118) );
(void) ( *( (fPt) ((* (ptr) pd159 ))))((word) (( (bPt) &var←c25852)+20)/* var←c24348 */ , 0, pd159);
};
SOURCE(10044, 11)
quit←v8608 = 1;
/* removed tail goto */
(* (ptr) formal←c0167 ) = recordAtom←v8580;
(* (( (ptr) formal←c0167)+1) ) = quit←v8608;
return;
}
static void OpenProperties←P2184(root←v7012, formal←c25948)
word root←v7012;
word formal←c25948;
{
register ptr gf←c25916 = (ptr) &globalframe;
word reader←v7040 = 0;
word writer←v7068 = 0;
word useRootViewer←v7096;
formal←c25948 = (formal←c25948 - 20);
/* OpenProperties: */
SOURCE(9446, 553)
SOURCE(9560, 43)
useRootViewer←v7096 = (word) MakeNodeSelection←P180();
SOURCE(9605, 119)
{
word pd160;
word pd161;
if ((useRootViewer←v7096 != 0)) {
pd160 = (* (( (ptr) (* (( (ptr) gf←c25916)+60)/* var←c24412 */ ))+5) );
reader←v7040 = (word) ( *( (fPt) ((* (ptr) pd160 ))))(useRootViewer←v7096, pd160);
}
else {
pd161 = (* (( (ptr) (* (( (ptr) gf←c25916)+60)/* var←c24412 */ ))+4) );
reader←v7040 = (word) ( *( (fPt) ((* (ptr) pd161 ))))(pd161);
};
};
SOURCE(9726, 29)
{
word pd162;
pd162 = (* (( (ptr) (* (( (ptr) gf←c25916)+50)/* var←c22588 */ ))+16) );
writer←v7068 = (word) ( *( (fPt) ((* (ptr) pd162 ))))(pd162);
};
SOURCE(9757, 60)
(void) TranslateToOpenProperties←P60(reader←v7040, writer←v7068, (useRootViewer←v7096 != 0));
SOURCE(9819, 180)
if ((useRootViewer←v7096 != 0)) {
SOURCE(9847, 69)
{
word pd163;
pd163 = (* (( (ptr) (* (( (ptr) gf←c25916)+60)/* var←c24412 */ ))+7) );
(void) ( *( (fPt) ((* (ptr) pd163 ))))(writer←v7068, useRootViewer←v7096, pd163);
};
SOURCE(9918, 31)
{
word pd164;
if ( ( ( ! ((* (( (bPt) (* (( (ptr) formal←c25948)+4) ))+76) ) & 04)) ? ! ((* (( (bPt) (* (( (ptr) formal←c25948)+4) ))+76)
) & 02) : 0 ) ) {
pd164 = (* (( (ptr) (* (( (ptr) gf←c25916)+61)/* var←c24444 */ ))+33) );
(void) ( *( (fPt) ((* (ptr) pd164 ))))((* ((( (ptr) formal←c25948)+4)) ), pd164);
};
};
}
else {
SOURCE(9958, 41)
{
word pd165;
pd165 = (* (( (ptr) (* (( (ptr) gf←c25916)+60)/* var←c24412 */ ))+6) );
(void) ( *( (fPt) ((* (ptr) pd165 ))))(writer←v7068, pd165);
};
};
}
static void ClosePropertiesOp←P300(formal←c0179, formal←c0262)
word formal←c0179;
word formal←c0262;
{
W10 var←c25980;
/* declaration of viewer←v8668 skipped */
register ptr gf←c26012 = (ptr) &globalframe;
word recordAtom←v8712;
word quit←v8740;
/* declaration of var←c24476 skipped */
/* declaration of errorPosition←v7140 skipped */
/* declaration of error←v7196 skipped */
(* (( (ptr) &var←c25980)+4)/* viewer←v8668 */ ) = formal←c0262;
/* ClosePropertiesOp: */
SOURCE(10112, 1295)
{
word tmpAddr166;
tmpAddr166 = (word) (( (ptr) &var←c25980)+5)/* var←c24476 */ ;
(* (ptr) tmpAddr166 ) = ( ((word) (fPt) CloseProperties←P2244) );
(* (( (ptr) tmpAddr166) + 1) ) = 1;
};
SOURCE(10112, 1295)
recordAtom←v8712 = 1;
SOURCE(10112, 1295)
quit←v8740 = 0;
SOURCE(10158, 23)
(* (( (ptr) &var←c25980)+7)/* errorPosition←v7140 */ ) = (word) -1;
SOURCE(10876, 7)
(* (( (ptr) &var←c25980)+8)/* error←v7196 */ ) = 0;
SOURCE(10914, 117)
SOURCE(10914, 117)
{
/* declaration of var←c01 skipped */
(* (( (ptr) &var←c25980)+9)/* var←c01 */ ) = (* (( (ptr) (* (( (ptr) gf←c26012)+59)/* var←c24380 */ ))+118) );
{
word var←c02;
{
word var←c0243;
var←c0243 = (word) &var←c25980;
var←c02 = (word) XR←Enable(( ((word) (fPt) NoName←Q2484) ), ( ((word) (fPt) NoName←Q2664) ), var←c0243);
};
/* removed trivial cond node */
};
};
SOURCE(11047, 283)
{
word var←c24540;
var←c24540 = (* (( (ptr) &var←c25980)+8)/* error←v7196 */ );
switch (var←c24540) {
case 0:
SOURCE(11073, 27)
if (( (int)(* (( (ptr) &var←c25980)+7)/* errorPosition←v7140 */ ) != (int) (word) -1)) {
SOURCE(11100, 5)
(void) XR←RaiseUnnamedError();
};
break;
case 1:
SOURCE(11117, 95)
{
word pd167;
pd167 = (* (( (ptr) (* (( (ptr) gf←c26012)+63)/* var←c24572 */ ))+4) );
(void) ( *( (fPt) ((* (ptr) pd167 ))))((* (( (ptr) &var←c25980)+4)/* viewer←v8668 */ ), (* (( (ptr) &var←c25980)+7)/* errorPosition←v7140 */ ), 1, pd167)
;
};
SOURCE(11214, 34)
{
word pd168;
pd168 = (* (( (ptr) (* (( (ptr) gf←c26012)+61)/* var←c24444 */ ))+44) );
(void) ( *( (fPt) ((* (ptr) pd168 ))))((* (( (ptr) &var←c25980)+4)/* viewer←v8668 */ ), 200, pd168);
};
break;
case 2:
SOURCE(11267, 41)
(void) (XR←RaiseSignal((word) (( (bPt) gf←c26012)+144), 0, 0));
SOURCE(11310, 20)
(void) CloseProperties←P2244(0, (word) (( (bPt) &var←c25980)+20)/* var←c24476 */ );
break;
default:
SOURCE(11389, 5)
(void) XR←RaiseUnnamedError();
break;
};
};
SOURCE(11396, 11)
quit←v8740 = 1;
/* removed tail goto */
(* (ptr) formal←c0179 ) = recordAtom←v8712;
(* (( (ptr) formal←c0179)+1) ) = quit←v8740;
return;
}
static word NoName←Q2484(formal←c0237)
word formal←c0237;
{
SOURCE(10914, 117)
{
word pd169;
pd169 = (* (( (ptr) formal←c0237)+9) );
(void) ( *( (fPt) ((* (ptr) pd169 ))))((word) (( (bPt) formal←c0237)+20), 0, pd169);
};
return(0);
}
static void CloseProperties←P2244(root←v7272, formal←c26108)
word root←v7272;
word formal←c26108;
{
W7 var←c26044;
register ptr gf←c26076 = (ptr) &globalframe;
/* declaration of reader←v7400 skipped */
/* declaration of writer←v7428 skipped */
/* declaration of useRootViewer←v7456 skipped */
formal←c26108 = (formal←c26108 - 20);
var←c26044.f0 = formal←c26108;
/* CloseProperties: */
SOURCE(10183, 688)
SOURCE(10230, 32)
var←c26044.f4/* reader←v7400 */ = 0;
SOURCE(10264, 32)
var←c26044.f5/* writer←v7428 */ = 0;
SOURCE(10298, 43)
var←c26044.f6/* useRootViewer←v7456 */ = (word) MakeNodeSelection←P180();
SOURCE(10343, 189)
if ((var←c26044.f6/* useRootViewer←v7456 */ != 0)) {
SOURCE(10371, 53)
{
word pd170;
pd170 = (* (( (ptr) (* (( (ptr) gf←c26076)+60)/* var←c24412 */ ))+5) );
var←c26044.f4/* reader←v7400 */ = (word) ( *( (fPt) ((* (ptr) pd170 ))))(var←c26044.f6/* useRootViewer←v7456 */ , pd170)
;
};
SOURCE(10426, 28)
{
W5 var←c24604;
{
word pd171;
pd171 = (* (( (ptr) (* (( (ptr) gf←c26076)+50)/* var←c22588 */ ))+12) );
(void) ( *( (fPt) ((* (ptr) pd171 ))))((word) &var←c24604, var←c26044.f4/* reader←v7400 */ , pd171);
};
};
}
else {
SOURCE(10488, 44)
{
word pd172;
pd172 = (* (( (ptr) (* (( (ptr) gf←c26076)+60)/* var←c24412 */ ))+4) );
var←c26044.f4/* reader←v7400 */ = (word) ( *( (fPt) ((* (ptr) pd172 ))))(pd172);
};
};
SOURCE(10535, 29)
{
word pd173;
pd173 = (* (( (ptr) (* (( (ptr) gf←c26076)+50)/* var←c22588 */ ))+16) );
var←c26044.f5/* writer←v7428 */ = (word) ( *( (fPt) ((* (ptr) pd173 ))))(pd173);
};
SOURCE(10566, 120)
{
word var←c0244;
var←c0244 = (word) &var←c26044;
(void) (word) XR←Enable(( ((word) (fPt) NoName←Q2544) ), ( ((word) (fPt) NoName←Q2604) ), var←c0244);
};
SOURCE(10691, 180)
if ((var←c26044.f6/* useRootViewer←v7456 */ != 0)) {
SOURCE(10719, 69)
{
word pd174;
pd174 = (* (( (ptr) (* (( (ptr) gf←c26076)+60)/* var←c24412 */ ))+7) );
(void) ( *( (fPt) ((* (ptr) pd174 ))))(var←c26044.f5/* writer←v7428 */ , var←c26044.f6/* useRootViewer←v7456 */ , pd174)
;
};
SOURCE(10790, 31)
{
word pd175;
if ( ( ( ! ((* (( (bPt) (* (( (ptr) formal←c26108)+4) ))+76) ) & 04)) ? ! ((* (( (bPt) (* (( (ptr) formal←c26108)+4) ))+76)
) & 02) : 0 ) ) {
pd175 = (* (( (ptr) (* (( (ptr) gf←c26076)+61)/* var←c24444 */ ))+33) );
(void) ( *( (fPt) ((* (ptr) pd175 ))))((* ((( (ptr) formal←c26108)+4)) ), pd175);
};
};
}
else {
SOURCE(10830, 41)
{
word pd176;
pd176 = (* (( (ptr) (* (( (ptr) gf←c26076)+60)/* var←c24412 */ ))+6) );
(void) ( *( (fPt) ((* (ptr) pd176 ))))(var←c26044.f5/* writer←v7428 */ , pd176);
};
};
}
static word NoName←Q2544(formal←c0240)
word formal←c0240;
{
SOURCE(10566, 120)
(void) TranslateFromOpenProperties←P120((* (( (ptr) formal←c0240)+4) ), (* (( (ptr) formal←c0240)+5) ), ((* (( (ptr) formal←c0240)+6)
) != 0));
return(0);
}
static void NoName←Q2604(formal←c0190, formal←c200004, formal←c200005, formal←c200006, formal←c200007)
word formal←c0190;
word formal←c200004;
word formal←c200005;
word formal←c200006;
word formal←c200007;
{
register ptr gf←c0241 = (ptr) &globalframe;
if ((formal←c200005 == (word) (( (bPt) gf←c0241)+140))) {
SOURCE(10639, 47)
{
word pd177;
pd177 = (* (( (ptr) (* (( (ptr) gf←c0241)+50)/* var←c22588 */ ))+30) );
(* (( (ptr) (* (ptr) formal←c200004 ))+7) ) = (word) ( *( (fPt) ((* (ptr) pd177 ))))((* ((( (ptr) formal←c200004)+4)) ), pd177)
;
};
};
(* (ptr) formal←c0190 ) = 0;
(* (( (ptr) formal←c0190)+1) ) = 0;
return;
}
static void NoName←Q2664(formal←c0197, formal←c200000, formal←c200001, formal←c200002, formal←c200003)
word formal←c0197;
word formal←c200000;
word formal←c200001;
word formal←c200002;
word formal←c200003;
{
register ptr gf←c0242 = (ptr) &globalframe;
if ((formal←c200001 == (word) (( (bPt) gf←c0242)+140))) {
SOURCE(10964, 12)
(* (( (ptr) formal←c200000)+8) ) = 1;
SOURCE(10978, 8)
(* (ptr) formal←c0197 ) = 2;
(* (( (ptr) formal←c0197)+1) ) = 2;
return;
}
else {
if ((formal←c200001 == (* (( (ptr) (* (( (ptr) gf←c0242)+62)/* var←c24508 */ ))+22) ))) {
{
word signal←v21320;
word parameters←v21348;
signal←v21320 = (* (ptr) formal←c200003 );
parameters←v21348 = (* (( (ptr) formal←c200003)+1) );
SOURCE(11015, 16)
(* (( (ptr) formal←c200000)+8) ) = 2;
SOURCE(11033, 8)
(* (ptr) formal←c0197 ) = 2;
(* (( (ptr) formal←c0197)+1) ) = 2;
return;
};
};
};
(* (ptr) formal←c0197 ) = 0;
(* (( (ptr) formal←c0197)+1) ) = 0;
return;
}
/* file: EditPropertiesImpl, module: EditPropertiesImpl, compiled at: February 27, 1992 6:01:47 pm PST */
extern void XR←install←EditPropertiesImpl() {
NoName←Q2424();
}
extern void XR←run←EditPropertiesImpl() { XR←Start(&globalframe); }