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