/* 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); }