/* Generated with C2C (Cedar To C)*/ /* Copyright (C) 1993 by Xerox Corporation. All rights reserved. */ /* time: October 19, 1993 1:00:58 pm PDT */ /* C2C version: April 20, 1993 (sun4) */ /* ref-counting: off */ /* file: TJaMRopeImpl, module: TJaMRopeImpl */ /* switches: bcfhklnouw */ #include <cedar/InstallationSupport.h> #include <cedar/CedarExtra.h> static char versionStamp[] = "@(#)mob←version [1054651072,2895913862] TJaMRopeImpl"; typedef unsigned word, *ptr; typedef unsigned char byte, *bPt; typedef unsigned short half, *hPt; typedef word (*fPt)(); #define SOURCE(p, l) /* source p, l */ static void NoName←Q564(); static void TJaMRopeImpl←P0(); static void ApplySearch←P60(); static void ApplyASearch←P120(); static void ApplyConvertToString←P180(); static void ApplySGet←P240(); static void ApplyConcat←P300(); static void ApplySubstr←P360(); static struct {unsigned f; char r[16];} string1 = {851984, "\257\300\363\223\326\161\300\017\164\046\072\104\304\000\000"}; static struct {unsigned f; char r[24];} string2 = {1376277, "\007\000\001\002\007\020\001\002\000\007\036\002\004\003\002\004\014\016\015\003\001\000\000"}; static struct {unsigned f; char r[16];} string3 = {917520, "\216\257\300\363\223\326\161\300\017\164\046\072\104\350\000"}; static struct {unsigned f; char r[4];} string4 = {65537, "\001\000\000"}; static struct {unsigned f; char r[4];} string5 = {65540, "\251\000\000"}; static struct {unsigned f; char r[16];} string6 = {851984, "\257\300\243\004\305\073\300\011\303\367\103\100\230\000\000"}; static struct {unsigned f; char r[12];} string7 = {720908, ".ropeconcat"}; static struct {unsigned f; char r[12];} string8 = {655372, ".substring\000"}; static struct {unsigned f; char r[8];} string9 = {262152, ".cvs\000\000\000"}; static struct {unsigned f; char r[12];} string10 = {524300, ".asearch\000\000\000"}; static struct {unsigned f; char r[16];} string11 = {983056, "--nostringval--"}; static struct {unsigned f; char r[8];} string12 = {458760, ".search"}; static struct {unsigned f; char r[16];} string13 = {851984, "\257\300\076\334\262\300\300\254\234\043\206\100\164\000\000"}; static struct {unsigned f; char r[8];} string14 = {262148, "\004\200~\000\000\000\000"}; static struct {unsigned f; char r[16];} string15 = {851984, "\257\300\255\053\300\023\300\142\135\315\105\100\150\000\000"}; static struct {unsigned f; char r[16];} string16 = {851984, "\257\300\363\223\326\161\300\017\164\046\072\100\150\000\000"}; static struct {unsigned f; char r[16];} string17 = {851984, "\257\300\243\004\305\073\300\011\303\367\103\100\150\000\000"}; static struct { word f0[15]; word f15; word f16; word f17; word f18; word f19; word f20; word f21; word f22; word f23; word f24; word f25; word f26; word f27; word f28[4]; } globalframe = { {0}, (word) ApplySubstr←P360, 0, (word) ApplyConcat←P300, 0, (word) ApplySGet←P240, 0, (word) ApplyConvertToString←P180, 0, (word) ApplyASearch←P120, 0, (word) ApplySearch←P60, 0, (word) TJaMRopeImpl←P0, {0} }; static void NoName←Q564() { register ptr gf←c057 = (ptr) &globalframe; word var←c11312; (* (( (ptr) gf←c057)+4) ) = (word) XR←GetTypeIndex((word) &string1, 0, (word) &string2); (* (( (ptr) gf←c057)+5) ) = (word) XR←GetTypeIndex((word) &string3, 0, (word) &string4); (* (( (ptr) gf←c057)+7) ) = (word) XR←GetTypeIndexS((word) (&string5)); (* (( (ptr) gf←c057)+8) ) = (word) XR←GetTypeIndexS((word) (&string6)); (* (ptr) (( (bPt) gf←c057)+36) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c057)+5) ), (word) &string7); (* (ptr) (( (bPt) gf←c057)+40) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c057)+5) ), (word) &string8); (* (ptr) (( (bPt) gf←c057)+44) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c057)+5) ), (word) &string9); (* (ptr) (( (bPt) gf←c057)+48) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c057)+5) ), (word) &string10); (* (ptr) (( (bPt) gf←c057)+52) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c057)+5) ), (word) &string11); (* (ptr) (( (bPt) gf←c057)+56) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c057)+5) ), (word) &string12); (void) XR←DeclareGlobalFrame((word) "TJaMRopeImpl", &globalframe, (word) XR←GetTypeIndex((word) &string13, 0, (word) &string14) , (word) (( (bPt) gf←c057)+108)/* var←c10896 */ ); var←c11312 = (word) XR←ImportInterface((word) "Convert", (word) XR←GetTypeIndexS((word) (&string15)), 73); (* (( (ptr) gf←c057)+31)/* var←c11216 */ ) = var←c11312; (void) XR←ImportProcS(var←c11312, 67902211); (void) XR←ImportProcS(var←c11312, 67901187); var←c11312 = (word) XR←ImportInterface((word) "Rope", (word) XR←GetTypeIndexS((word) (&string16)), 43); (* (( (ptr) gf←c057)+30)/* var←c10960 */ ) = var←c11312; (void) XR←ImportProcS(var←c11312, 67633666); (void) XR←ImportProcS(var←c11312, 67634434); (void) XR←ImportProcS(var←c11312, 67896323); (void) XR←ImportProcS(var←c11312, 67898627); (void) XR←ImportProcS(var←c11312, 68159236); (void) XR←ImportProcS(var←c11312, 67373569); var←c11312 = (word) XR←ImportInterface((word) "TJaM", (word) XR←GetTypeIndexS((word) (&string17)), 101); (* (( (ptr) gf←c057)+29)/* var←c10928 */ ) = var←c11312; (void) XR←ImportProcS(var←c11312, 530178); (void) XR←ImportProcS(var←c11312, 67379969); (void) XR←ImportProcS(var←c11312, 67375361); (void) XR←ImportProcS(var←c11312, 285441); (void) XR←ImportProcS(var←c11312, 67379457); (void) XR←ImportProcS(var←c11312, 529922); (void) XR←ImportProcS(var←c11312, 531202); (void) XR←ImportProcS(var←c11312, 67380993); (void) XR←ImportProcS(var←c11312, 812035); } static void TJaMRopeImpl←P0(formal←c015, formal←c014) word formal←c015; word formal←c014; { register ptr gf←c11344 = (ptr) &globalframe; /* TJaMRopeImpl: */ SOURCE(250, 1879) SOURCE(1901, 41) { word pd18; pd18 = (* (( (ptr) (* (( (ptr) gf←c11344)+29)/* var←c10928 */ ))+104) ); (void) ( *( (fPt) ((* (ptr) pd18 ))))((* (( (ptr) gf←c11344)+14) ), (word) (( (bPt) gf←c11344)+100)/* var←c10864 */ , 0, pd18) ; }; SOURCE(1944, 43) { word pd19; pd19 = (* (( (ptr) (* (( (ptr) gf←c11344)+29)/* var←c10928 */ ))+104) ); (void) ( *( (fPt) ((* (ptr) pd19 ))))((* (( (ptr) gf←c11344)+12) ), (word) (( (bPt) gf←c11344)+92)/* var←c10832 */ , 0, pd19) ; }; SOURCE(1989, 47) { word pd20; pd20 = (* (( (ptr) (* (( (ptr) gf←c11344)+29)/* var←c10928 */ ))+104) ); (void) ( *( (fPt) ((* (ptr) pd20 ))))((* (( (ptr) gf←c11344)+11) ), (word) (( (bPt) gf←c11344)+84)/* var←c10800 */ , 0, pd20) ; }; SOURCE(2038, 45) { word pd21; pd21 = (* (( (ptr) (* (( (ptr) gf←c11344)+29)/* var←c10928 */ ))+104) ); (void) ( *( (fPt) ((* (ptr) pd21 ))))((* (( (ptr) gf←c11344)+9) ), (word) (( (bPt) gf←c11344)+68)/* var←c10736 */ , 0, pd21) ; }; SOURCE(2085, 44) { word pd22; pd22 = (* (( (ptr) (* (( (ptr) gf←c11344)+29)/* var←c10928 */ ))+104) ); (void) ( *( (fPt) ((* (ptr) pd22 ))))((* (( (ptr) gf←c11344)+10) ), (word) (( (bPt) gf←c11344)+60)/* var←c10704 */ , 0, pd22) ; }; } static void ApplySearch←P60(frame←v7232, cmd←v7260) word frame←v7232; word cmd←v7260; { register ptr gf←c11376 = (ptr) &globalframe; word s←v2768; word t←v2796; word slen←v2824; word i←v2852; /* ApplySearch: */ SOURCE(351, 409) SOURCE(380, 24) { word pd23; pd23 = (* (( (ptr) (* (( (ptr) gf←c11376)+29)/* var←c10928 */ ))+43) ); s←v2768 = (word) ( *( (fPt) ((* (ptr) pd23 ))))(frame←v7232, pd23); }; SOURCE(406, 24) { word pd24; pd24 = (* (( (ptr) (* (( (ptr) gf←c11376)+29)/* var←c10928 */ ))+43) ); t←v2796 = (word) ( *( (fPt) ((* (ptr) pd24 ))))(frame←v7232, pd24); }; SOURCE(432, 22) { word pd25; pd25 = (* (( (ptr) (* (( (ptr) gf←c11376)+30)/* var←c10960 */ ))+14) ); slen←v2824 = (word) ( *( (fPt) ((* (ptr) pd25 ))))(s←v2768, pd25); }; SOURCE(456, 18) { word pd26; pd26 = (* (( (ptr) (* (( (ptr) gf←c11376)+30)/* var←c10960 */ ))+11) ); i←v2852 = (word) ( *( (fPt) ((* (ptr) pd26 ))))(t←v2796, s←v2768, 0, 1, pd26); }; SOURCE(476, 284) if (( (int)i←v2852 >= (int)0)) { SOURCE(491, 33) { word var←c10992; { word pd27; pd27 = (* (( (ptr) (* (( (ptr) gf←c11376)+30)/* var←c10960 */ ))+17) ); var←c10992 = (word) ( *( (fPt) ((* (ptr) pd27 ))))(t←v2796, (i←v2852 + slen←v2824), 2147483647, pd27); }; { word pd28; pd28 = (* (( (ptr) (* (( (ptr) gf←c11376)+29)/* var←c10928 */ ))+31) ); (void) ( *( (fPt) ((* (ptr) pd28 ))))(frame←v7232, var←c10992, pd28); }; }; SOURCE(555, 18) { word pd29; pd29 = (* (( (ptr) (* (( (ptr) gf←c11376)+29)/* var←c10928 */ ))+31) ); (void) ( *( (fPt) ((* (ptr) pd29 ))))(frame←v7232, s←v2768, pd29); }; SOURCE(599, 31) { word var←c11024; { word pd30; pd30 = (* (( (ptr) (* (( (ptr) gf←c11376)+30)/* var←c10960 */ ))+17) ); var←c11024 = (word) ( *( (fPt) ((* (ptr) pd30 ))))(t←v2796, 0, i←v2852, pd30); }; { word pd31; pd31 = (* (( (ptr) (* (( (ptr) gf←c11376)+29)/* var←c10928 */ ))+31) ); (void) ( *( (fPt) ((* (ptr) pd31 ))))(frame←v7232, var←c11024, pd31); }; }; SOURCE(661, 21) { word pd32; pd32 = (* (( (ptr) (* (( (ptr) gf←c11376)+29)/* var←c10928 */ ))+26) ); (void) ( *( (fPt) ((* (ptr) pd32 ))))(frame←v7232, 1, pd32); }; } else { SOURCE(693, 18) { word pd33; pd33 = (* (( (ptr) (* (( (ptr) gf←c11376)+29)/* var←c10928 */ ))+31) ); (void) ( *( (fPt) ((* (ptr) pd33 ))))(frame←v7232, t←v2796, pd33); }; SOURCE(738, 22) { word pd34; pd34 = (* (( (ptr) (* (( (ptr) gf←c11376)+29)/* var←c10928 */ ))+26) ); (void) ( *( (fPt) ((* (ptr) pd34 ))))(frame←v7232, 0, pd34); }; }; } static void ApplyASearch←P120(frame←v7320, cmd←v7348) word frame←v7320; word cmd←v7348; { register ptr gf←c11408 = (ptr) &globalframe; word s←v2896; word t←v2924; word slen←v2952; word var←c11056; /* ApplyASearch: */ SOURCE(769, 348) SOURCE(799, 24) { word pd35; pd35 = (* (( (ptr) (* (( (ptr) gf←c11408)+29)/* var←c10928 */ ))+43) ); s←v2896 = (word) ( *( (fPt) ((* (ptr) pd35 ))))(frame←v7320, pd35); }; SOURCE(825, 24) { word pd36; pd36 = (* (( (ptr) (* (( (ptr) gf←c11408)+29)/* var←c10928 */ ))+43) ); t←v2924 = (word) ( *( (fPt) ((* (ptr) pd36 ))))(frame←v7320, pd36); }; SOURCE(851, 22) { word pd37; pd37 = (* (( (ptr) (* (( (ptr) gf←c11408)+30)/* var←c10960 */ ))+14) ); slen←v2952 = (word) ( *( (fPt) ((* (ptr) pd37 ))))(s←v2896, pd37); }; SOURCE(875, 242) { word pd39; { word pd38; pd38 = (* (( (ptr) (* (( (ptr) gf←c11408)+30)/* var←c10960 */ ))+17) ); var←c11056 = (word) ( *( (fPt) ((* (ptr) pd38 ))))(t←v2924, 0, slen←v2952, pd38); }; pd39 = (* (( (ptr) (* (( (ptr) gf←c11408)+30)/* var←c10960 */ ))+8) ); if ((0 != (word) ( *( (fPt) ((* (ptr) pd39 ))))(s←v2896, var←c11056, 1, pd39))) { SOURCE(912, 31) { word var←c11088; { word pd40; pd40 = (* (( (ptr) (* (( (ptr) gf←c11408)+30)/* var←c10960 */ ))+17) ); var←c11088 = (word) ( *( (fPt) ((* (ptr) pd40 ))))(t←v2924, slen←v2952, 2147483647, pd40); }; { word pd41; pd41 = (* (( (ptr) (* (( (ptr) gf←c11408)+29)/* var←c10928 */ ))+31) ); (void) ( *( (fPt) ((* (ptr) pd41 ))))(frame←v7320, var←c11088, pd41); }; }; SOURCE(974, 18) { word pd42; pd42 = (* (( (ptr) (* (( (ptr) gf←c11408)+29)/* var←c10928 */ ))+31) ); (void) ( *( (fPt) ((* (ptr) pd42 ))))(frame←v7320, s←v2896, pd42); }; SOURCE(1018, 21) { word pd43; pd43 = (* (( (ptr) (* (( (ptr) gf←c11408)+29)/* var←c10928 */ ))+26) ); (void) ( *( (fPt) ((* (ptr) pd43 ))))(frame←v7320, 1, pd43); }; } else { SOURCE(1050, 18) { word pd44; pd44 = (* (( (ptr) (* (( (ptr) gf←c11408)+29)/* var←c10928 */ ))+31) ); (void) ( *( (fPt) ((* (ptr) pd44 ))))(frame←v7320, t←v2924, pd44); }; SOURCE(1095, 22) { word pd45; pd45 = (* (( (ptr) (* (( (ptr) gf←c11408)+29)/* var←c10928 */ ))+26) ); (void) ( *( (fPt) ((* (ptr) pd45 ))))(frame←v7320, 0, pd45); }; }; }; } static void ApplyConvertToString←P180(frame←v7408, cmd←v7436) word frame←v7408; word cmd←v7436; { register ptr gf←c11440 = (ptr) &globalframe; word x←v2996; word rope←v3024 = 0; /* ApplyConvertToString: */ SOURCE(1126, 356) SOURCE(1164, 19) { word pd46; pd46 = (* (( (ptr) (* (( (ptr) gf←c11440)+29)/* var←c10928 */ ))+37) ); x←v2996 = (word) ( *( (fPt) ((* (ptr) pd46 ))))(frame←v7408, pd46); }; SOURCE(1197, 262) { word var←c11120; word var←c11152; var←c11120 = x←v2996; if ((var←c11120 == 0)) { goto lab←L100000; }; var←c11152 = XR←GetReferentType(var←c11120); { word tc51; if (((* (( (ptr) gf←c11440)+8) ) == var←c11152)) { { word x←v3084; x←v3084 = var←c11120; SOURCE(1229, 137) { word var←c11184; var←c11184 = (* (ptr) x←v3084 ); if ((var←c11184 == 0)) { SOURCE(1258, 33) { word pd48; pd48 = (* (( (ptr) (* (( (ptr) gf←c11440)+31)/* var←c11216 */ ))+27) ); rope←v3024 = (word) ( *( (fPt) ((* (ptr) pd48 ))))((* (( (ptr) x←v3084)+1) ), 8, 1, pd48); }; } else { if ((var←c11184 == 1)) { SOURCE(1301, 35) { word pd49; pd49 = (* (( (ptr) (* (( (ptr) gf←c11440)+31)/* var←c11216 */ ))+31) ); rope←v3024 = (word) ( *( (fPt) ((* (ptr) pd49 ))))((* (( (ptr) x←v3084)+1) ), 7, 0, pd49); }; } else { SOURCE(1349, 17) { word pd50; pd50 = (* (( (ptr) (* (( (ptr) gf←c11440)+29)/* var←c10928 */ ))+95) ); (void) ( *( (fPt) ((* (ptr) pd50 ))))(14, pd50); }; }; }; }; }; goto endif047; }; if (((* (( (ptr) gf←c11440)+4) ) == var←c11152)) { tc51 = (word) ( (unsigned) (*(int*)var←c11120<0) == 0); } else { tc51 = (word) 0; }; if (tc51) { { word x←v3128; x←v3128 = var←c11120; SOURCE(1379, 8) rope←v3024 = x←v3128; }; goto endif047; }; if (((* (( (ptr) gf←c11440)+7) ) == var←c11152)) { { word x←v3172; x←v3172 = var←c11120; SOURCE(1400, 22) { word pd52; pd52 = (* (( (ptr) (* (( (ptr) gf←c11440)+29)/* var←c10928 */ ))+21) ); rope←v3024 = (word) ( *( (fPt) ((* (ptr) pd52 ))))(x←v3172, pd52); }; }; goto endif047; }; lab←L100000: ; SOURCE(1435, 24) rope←v3024 = (* (( (ptr) gf←c11440)+13) ); goto endif047; endif047: ; }; }; SOURCE(1461, 21) { word pd53; pd53 = (* (( (ptr) (* (( (ptr) gf←c11440)+29)/* var←c10928 */ ))+31) ); (void) ( *( (fPt) ((* (ptr) pd53 ))))(frame←v7408, rope←v3024, pd53); }; } static void ApplySGet←P240(frame←v7496, cmd←v7524) word frame←v7496; word cmd←v7524; { register ptr gf←c11472 = (ptr) &globalframe; word i←v3216; word rope←v3244; word c←v3272; /* ApplySGet: */ SOURCE(1488, 127) SOURCE(1515, 22) { word pd54; pd54 = (* (( (ptr) (* (( (ptr) gf←c11472)+29)/* var←c10928 */ ))+39) ); i←v3216 = (word) ( *( (fPt) ((* (ptr) pd54 ))))(frame←v7496, pd54); }; SOURCE(1539, 27) { word pd55; pd55 = (* (( (ptr) (* (( (ptr) gf←c11472)+29)/* var←c10928 */ ))+43) ); rope←v3244 = (word) ( *( (fPt) ((* (ptr) pd55 ))))(frame←v7496, pd55); }; SOURCE(1568, 23) { word pd56; pd56 = (* (( (ptr) (* (( (ptr) gf←c11472)+30)/* var←c10960 */ ))+9) ); c←v3272 = (word) ( *( (fPt) ((* (ptr) pd56 ))))(rope←v3244, i←v3216, pd56); }; SOURCE(1593, 22) { word pd57; pd57 = (* (( (ptr) (* (( (ptr) gf←c11472)+29)/* var←c10928 */ ))+27) ); (void) ( *( (fPt) ((* (ptr) pd57 ))))(frame←v7496, c←v3272, pd57); }; } static void ApplyConcat←P300(frame←v7584, cmd←v7612) word frame←v7584; word cmd←v7612; { register ptr gf←c11504 = (ptr) &globalframe; word b←v3316; word a←v3344; /* ApplyConcat: */ SOURCE(1621, 115) SOURCE(1650, 24) { word pd58; pd58 = (* (( (ptr) (* (( (ptr) gf←c11504)+29)/* var←c10928 */ ))+43) ); b←v3316 = (word) ( *( (fPt) ((* (ptr) pd58 ))))(frame←v7584, pd58); }; SOURCE(1676, 24) { word pd59; pd59 = (* (( (ptr) (* (( (ptr) gf←c11504)+29)/* var←c10928 */ ))+43) ); a←v3344 = (word) ( *( (fPt) ((* (ptr) pd59 ))))(frame←v7584, pd59); }; SOURCE(1702, 34) { word var←c11248; { word pd60; pd60 = (* (( (ptr) (* (( (ptr) gf←c11504)+30)/* var←c10960 */ ))+6) ); var←c11248 = (word) ( *( (fPt) ((* (ptr) pd60 ))))(a←v3344, b←v3316, pd60); }; { word pd61; pd61 = (* (( (ptr) (* (( (ptr) gf←c11504)+29)/* var←c10928 */ ))+31) ); (void) ( *( (fPt) ((* (ptr) pd61 ))))(frame←v7584, var←c11248, pd61); }; }; } static void ApplySubstr←P360(frame←v7672, cmd←v7700) word frame←v7672; word cmd←v7700; { register ptr gf←c11536 = (ptr) &globalframe; word len←v3388; word start←v3416; word rope←v3444; /* ApplySubstr: */ SOURCE(1742, 152) SOURCE(1771, 24) { word pd62; pd62 = (* (( (ptr) (* (( (ptr) gf←c11536)+29)/* var←c10928 */ ))+39) ); len←v3388 = (word) ( *( (fPt) ((* (ptr) pd62 ))))(frame←v7672, pd62); }; SOURCE(1797, 26) { word pd63; pd63 = (* (( (ptr) (* (( (ptr) gf←c11536)+29)/* var←c10928 */ ))+39) ); start←v3416 = (word) ( *( (fPt) ((* (ptr) pd63 ))))(frame←v7672, pd63); }; SOURCE(1825, 27) { word pd64; pd64 = (* (( (ptr) (* (( (ptr) gf←c11536)+29)/* var←c10928 */ ))+43) ); rope←v3444 = (word) ( *( (fPt) ((* (ptr) pd64 ))))(frame←v7672, pd64); }; SOURCE(1854, 40) { word var←c11280; { word pd65; pd65 = (* (( (ptr) (* (( (ptr) gf←c11536)+30)/* var←c10960 */ ))+17) ); var←c11280 = (word) ( *( (fPt) ((* (ptr) pd65 ))))(rope←v3444, start←v3416, len←v3388, pd65); }; { word pd66; pd66 = (* (( (ptr) (* (( (ptr) gf←c11536)+29)/* var←c10928 */ ))+31) ); (void) ( *( (fPt) ((* (ptr) pd66 ))))(frame←v7672, var←c11280, pd66); }; }; } /* file: TJaMRopeImpl, module: TJaMRopeImpl, compiled at: October 19, 1993 1:00:57 pm PDT */ extern void XR←install←TJaMRopeImpl() { NoName←Q564(); } extern void XR←run←TJaMRopeImpl() { XR←Start(&globalframe); }