/* Generated with C2C (Cedar To C)*/ /* Copyright (C) 1992 by Xerox Corporation. All rights reserved. */ /* time: March 13, 1992 11:30:40 am PST */ /* C2C version: October 16, 1990 (native) */ /* ref-counting: off */ /* file: AbbrevExpandImpl, module: AbbrevExpandImpl */ /* switches: bcfhklnouw */ #include #include #define XRM_BITXOR(x, y) (((word)(x)) ^ ((word)(y))) static char versionStamp[] = "@(#)mob_version [3339160412,1561834220] AbbrevExpandImpl"; 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 {W8 f; word r;} W9; typedef struct {W16 f; W9 r;} W25; typedef struct {word f0, f1;} W2; typedef struct {word f0, f1, f2, f3, f4, f5;} W6; typedef struct {word f0, f1, f2, f3;} W4; typedef W4 *W4Pt; typedef W6 *W6Pt; typedef W2 *W2Pt; typedef struct {word f0, f1, f2, f3, f4;} W5; typedef struct {W16 f; W2 r;} W18; typedef struct {word f0, f1, f2;} W3; typedef struct {W8 f; W4 r;} W12; typedef struct {W8 f; W2 r;} W10; typedef struct {word f0, f1, f2, f3, f4, f5, f6;} W7; typedef struct {W8 f; W7 r;} W15; typedef W9 *W9Pt; typedef struct {W8 f; W3 r;} W11; #define SOURCE(p, l) /* source p, l */ #define BCK(idx, lim) ( ((unsigned) idx) >= ((unsigned) lim) ? (XR_RaiseBoundsFault()) : (idx) ) #define SGNCK(i) ((int) (word) (i) < 0 ? XR_RaiseArithmeticFault(): i ) #define MAX(cast, x, y) ( ( cast x) > ( cast y) ? (x) : (y) ) #define MIN(cast, x, y) ( ( cast x) < ( cast y) ? (x) : (y) ) static void NoName_Q5940(); static void AbbrevExpandImpl_P0(); static void LoadInternal_P60(); static word NoName_Q6000(); static void Locked_P1200(); static void Empty_P1260(); static word Load_P120(); static void AddToDict_P180(); static word NoName_Q6060(); static void ParseCommands_P240(); static word NoName_Q6120(); static void Clear_P300(); static word NoName_Q6180(); static word GetDictAtom_P360(); static word ForceLower_P1512(); static void ChangeRegistry_P420(); static void Expand_P480(); static word FindEntry_P1572(); static void CheckCaps_P1776(); static word KeyHash_P540(); static word Lookup_P600(); static word NoName_Q6240(); static word LookupInternal_P660(); static void FreeReaders_P2268(); static word FindKeyLen_P720(); static word FindKeyStart_P780(); static word GetDict_P840(); static word NoName_Q6300(); static word Same_P900(); static word GetFileID_P960(); static word NoName_Q6360(); static void DoLocked_P1020(); static word NoName_Q6420(); static void Lock_P2520(); static void Unlock_P2580(); static word ValidateAll_P1080(); static void Locked_P2640(); static word Action_P2700(); static word Validate_P1140(); static void Locked_P2760(); static void NoName_Q6480(); static void NoName_Q6540(); static void NoName_Q6600(); static void NoName_Q6660(); static void NoName_Q6720(); static void NoName_Q6780(); static void NoName_Q6840(); static void NoName_Q6900(); static struct {unsigned f; char r[4];} string1 = {131076, "\216\251\000"}; static struct {unsigned f; char r[4];} string2 = {65537, "\001\000\000"}; static struct {unsigned f; char r[16];} string3 = {851984, "\257\300\307\007\213\134\300\135\027\262\354\102\000\000\000"}; static struct {unsigned f; char r[4];} string4 = {65540, "\251\000\000"}; static struct {unsigned f; char r[16];} string5 = {917520, "\216\257\300\363\223\326\161\300\017\164\046\072\104\350\000"}; static struct {unsigned f; char r[112];} string6 = {7274608, "\262\260\004\003\153\145\171\216\257\300\363\223\326\161\300\017\164\046\072\104\350\011\010\144\151\143\164\101\164\157\155\216\251\022\021\153\145\171\104\145\164\145\162\155\151\156\145\163\104\151\143\164\232\261\260\010\007\153\145\171\122\157\160\145\216\257\300\363\223\326\161\300\017\164\046\072\104\350\005\004\156\157\144\145\216\257\300\302\136\246\312\300\076\314\360\376\100\164\011\010\143\157\155\155\141\156\144\163\214\217\261"}; static struct {unsigned f; char r[48];} string7 = {2883632, "\260\006\005\146\151\162\163\164\216\257\300\363\223\326\161\300\017\164\046\072\104\350\005\004\162\145\163\164\214\216\257\300\363\223\326\161\300\017\164\046\072\104\350\261\000\000\000"}; static struct {unsigned f; char r[4];} string8 = {131074, "\004\003\000"}; static struct {unsigned f; char r[20];} string9 = {1179668, "\260\006\005\146\151\162\163\164\217\005\004\162\145\163\164\214\217\261\000"}; static struct {unsigned f; char r[16];} string10 = {851984, "\257\300\307\007\213\134\300\135\027\262\354\100\200\000\000"}; static struct {unsigned f; char r[4];} string11 = {131074, "\004\035\000"}; static struct {unsigned f; char r[44];} string12 = {2752556, "\260\006\005\146\151\162\163\164\257\300\015\277\004\146\300\034\367\146\045\112\114\005\004\162\145\163\164\214\257\300\015\277\004\146\300\034\367\146\045\112\114\261\000"}; static struct {unsigned f; char r[28];} string13 = {1572888, "\006\002\000\007\000\040\016\000\003\001\000\000\000\000\014\014\000\014\014\014\014\000\010\001\000\000\000"}; static struct {unsigned f; char r[8];} string14 = {327688, "Error\000\000"}; static struct {unsigned f; char r[8];} string15 = {458760, " . . . "}; static struct {unsigned f; char r[8];} string16 = {262152, "New \000\000\000"}; static struct {unsigned f; char r[12];} string17 = {655372, "%g entries\000"}; static struct {unsigned f; char r[12];} string18 = {524300, "Progress\000\000\000"}; static struct {unsigned f; char r[8];} string19 = {327688, "Tioga\000\000"}; static struct {unsigned f; char r[16];} string20 = {851984, "/cedar/styles\000\000"}; static struct {unsigned f; char r[24];} string21 = {1441816, "Tioga.StyleSearchRules\000"}; static struct {unsigned f; char r[16];} string22 = {917520, ".abbreviations\000"}; static struct {unsigned f; char r[24];} string23 = {1376280, "NoDictionaryAvailable\000\000"}; static struct {unsigned f; char r[16];} string24 = {851984, "\257\300\307\007\213\134\300\135\027\262\354\100\164\000\000"}; static struct {unsigned f; char r[20];} string25 = {1048592, "\006\005\040\001\044\001\050\001\100\120\001\100\204\004\103\377\000\000\000"}; static struct {unsigned f; char r[16];} string26 = {851984, "\257\300\055\153\222\376\300\327\164\352\142\100\150\000\000"}; static struct {unsigned f; char r[16];} string27 = {851984, "\257\300\314\212\213\004\300\112\342\014\072\100\164\000\000"}; static struct {unsigned f; char r[16];} string28 = {851984, "\257\300\004\173\141\246\300\255\256\170\002\100\150\000\000"}; static struct {unsigned f; char r[16];} string29 = {851984, "\257\300\015\277\004\146\300\034\367\146\045\100\164\000\000"}; static struct {unsigned f; char r[16];} string30 = {851984, "\257\300\141\260\110\353\300\162\250\066\353\100\150\000\000"}; static struct {unsigned f; char r[16];} string31 = {851984, "\257\300\263\221\075\070\300\264\022\010\174\100\164\000\000"}; static struct {unsigned f; char r[16];} string32 = {851984, "\257\300\240\236\274\315\300\111\163\325\023\100\150\000\000"}; static struct {unsigned f; char r[16];} string33 = {851984, "\257\300\242\221\264\046\300\105\142\142\023\100\150\000\000"}; static struct {unsigned f; char r[16];} string34 = {851984, "\257\300\363\223\326\161\300\017\164\046\072\100\150\000\000"}; static struct {unsigned f; char r[16];} string35 = {851984, "\257\300\366\233\214\046\300\233\036\213\260\100\150\000\000"}; static struct {unsigned f; char r[16];} string36 = {851984, "\257\300\275\320\070\317\300\004\110\363\366\100\150\000\000"}; static struct {unsigned f; char r[16];} string37 = {851984, "\257\300\353\035\365\325\300\132\075\117\337\100\150\000\000"}; static struct {unsigned f; char r[16];} string38 = {851984, "\257\300\261\010\310\246\300\337\340\027\051\100\150\000\000"}; static struct {unsigned f; char r[16];} string39 = {851984, "\257\3004+\202s\300vm?\203@h\000\000"}; static struct {unsigned f; char r[16];} string40 = {851984, "\257\300\042\224\360\026\300\243\254\175\360\100\150\000\000"}; static struct {unsigned f; char r[16];} string41 = {851984, "\257\300\233\251\177\064\300\273\157\236\236\100\150\000\000"}; static struct {unsigned f; char r[16];} string42 = {851984, "\257\300\134\353\367\206\300\202\044\112\356\100\150\000\000"}; static struct {unsigned f; char r[16];} string43 = {851984, "\257\300\123\156\240\340\300\077\103\217\263\100\150\000\000"}; static struct {unsigned f; char r[16];} string44 = {851984, "\257\300\273\376\112\203\300\237\326\241\360\100\150\000\000"}; static struct { word f0[44]; word f44; word f45; word f46; word f47; word f48; word f49; word f50; word f51; word f52; word f53; word f54; word f55; word f56; word f57; word f58; word f59; word f60; word f61; word f62; word f63; word f64; word f65; word f66; word f67; word f68; word f69; word f70; word f71; word f72; word f73; word f74; word f75; word f76; word f77; word f78; word f79; word f80; word f81; word f82; word f83; word f84; word f85[21]; } globalframe = { {0}, (word) Validate_P1140, 0, (word) ValidateAll_P1080, 0, (word) DoLocked_P1020, 0, (word) GetFileID_P960, 0, (word) Same_P900, 0, (word) GetDict_P840, 0, (word) FindKeyStart_P780, 0, (word) FindKeyLen_P720, 0, (word) LookupInternal_P660, 0, (word) Lookup_P600, 0, (word) KeyHash_P540, 0, (word) Expand_P480, 0, (word) ChangeRegistry_P420, 0, (word) GetDictAtom_P360, 0, (word) Clear_P300, 0, (word) ParseCommands_P240, 0, (word) AddToDict_P180, 0, (word) Load_P120, 0, (word) LoadInternal_P60, 0, (word) AbbrevExpandImpl_P0, 0, 2147483647, {0} }; static void NoName_Q5940() { register ptr gf_c0441 = (ptr) &globalframe; word var_c44160; (* (( (ptr) gf_c0441)+21) ) = (word) XR_GetTypeIndex((word) &string1, 0, (word) &string2); (* (( (ptr) gf_c0441)+22) ) = (word) XR_GetTypeIndex((word) &string3, 0, (word) &string2); (* (( (ptr) gf_c0441)+23) ) = (word) XR_GetTypeIndexS((word) (&string4)); (* (( (ptr) gf_c0441)+25) ) = (word) XR_GetTypeIndex((word) &string5, 0, (word) &string2); (* (( (ptr) gf_c0441)+26) ) = (word) XR_GetTypeIndexS((word) (&string6)); (* (( (ptr) gf_c0441)+27) ) = (word) XR_GetTypeIndex((word) &string7, 0, (word) &string8); (* (( (ptr) gf_c0441)+29) ) = (word) XR_GetTypeIndex((word) &string9, 0, (word) &string8); (* (( (ptr) gf_c0441)+30) ) = (word) XR_GetTypeIndex((word) &string10, 0, (word) &string11); (* (( (ptr) gf_c0441)+32) ) = (word) XR_GetTypeIndex((word) &string12, 0, (word) &string13); (* (ptr) (( (bPt) gf_c0441)+132) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0441)+21) ), (word) &string14); (* (ptr) (( (bPt) gf_c0441)+136) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0441)+25) ), (word) &string15); (* (ptr) (( (bPt) gf_c0441)+140) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0441)+25) ), (word) &string16); (* (ptr) (( (bPt) gf_c0441)+144) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0441)+25) ), (word) &string17); (* (ptr) (( (bPt) gf_c0441)+148) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0441)+21) ), (word) &string18); (* (ptr) (( (bPt) gf_c0441)+152) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0441)+21) ), (word) &string19); (* (ptr) (( (bPt) gf_c0441)+156) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0441)+25) ), (word) &string20); (* (ptr) (( (bPt) gf_c0441)+160) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0441)+25) ), (word) &string21); (* (ptr) (( (bPt) gf_c0441)+164) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0441)+25) ), (word) &string22); (* (ptr) (( (bPt) gf_c0441)+168) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0441)+21) ), (word) &string23); (void) XR_DeclareGlobalFrame((word) "AbbrevExpandImpl", &globalframe, (word) XR_GetTypeIndex((word) &string24, 0, (word) &string25) , (word) (( (bPt) gf_c0441)+328)/* var_c39008 */ ); var_c44160 = (word) XR_ImportInterface((word) "Atom", (word) XR_GetTypeIndexS((word) (&string26)), 16); (* (( (ptr) gf_c0441)+99)/* var_c41152 */ ) = var_c44160; (void) XR_ImportProcS(var_c44160, 67372289); (void) XR_ImportProcS(var_c44160, 67895555); var_c44160 = (word) XR_ImportInterface((word) "CharOps", (word) XR_GetTypeIndexS((word) (&string27)), 14); (* (( (ptr) gf_c0441)+97)/* var_c40128 */ ) = var_c44160; var_c44160 = (word) XR_ImportInterface((word) "EditSpan", (word) XR_GetTypeIndexS((word) (&string28)), 23); (* (( (ptr) gf_c0441)+100)/* var_c41696 */ ) = var_c44160; (void) XR_ImportProcS(var_c44160, 271320327); var_c44160 = (word) XR_ImportInterface((word) "IO", (word) XR_GetTypeIndexS((word) (&string29)), 103); (* (( (ptr) gf_c0441)+98)/* var_c40352 */ ) = var_c44160; (void) XR_ImportProcS(var_c44160, 530434); (void) XR_ImportProcS(var_c44160, 67377409); (void) XR_ImportProcS(var_c44160, 67391233); (void) XR_ImportProcS(var_c44160, 67640578); var_c44160 = (word) XR_ImportInterface((word) "PFS", (word) XR_GetTypeIndexS((word) (&string30)), 40); (* (( (ptr) gf_c0441)+90)/* var_c39360 */ ) = var_c44160; (void) XR_ImportProcS(var_c44160, 67371265); (void) XR_ImportProcS(var_c44160, 67634178); (void) XR_ImportProcS(var_c44160, 605292546); (void) XR_ImportProcS(var_c44160, 67633154); var_c44160 = (word) XR_ImportInterface((word) "PFSNames", (word) XR_GetTypeIndexS((word) (&string31)), 39); (* (( (ptr) gf_c0441)+102)/* var_c43552 */ ) = var_c44160; (void) XR_ImportProcS(var_c44160, 67897091); var_c44160 = (word) XR_ImportInterface((word) "Process", (word) XR_GetTypeIndexS((word) (&string32)), 22); (* (( (ptr) gf_c0441)+104)/* var_c43936 */ ) = var_c44160; (void) XR_ImportProcS(var_c44160, 134219776); var_c44160 = (word) XR_ImportInterface((word) "RefTab", (word) XR_GetTypeIndexS((word) (&string33)), 16); (* (( (ptr) gf_c0441)+88)/* var_c39104 */ ) = var_c44160; (void) XR_ImportProcS(var_c44160, 67635458); (void) XR_ImportProcS(var_c44160, 134742786); (void) XR_ImportProcS(var_c44160, 67896579); (void) XR_ImportProcS(var_c44160, 67895555); var_c44160 = (word) XR_ImportInterface((word) "Rope", (word) XR_GetTypeIndexS((word) (&string34)), 43); (* (( (ptr) gf_c0441)+91)/* var_c39392 */ ) = var_c44160; (void) XR_ImportProcS(var_c44160, 67633666); (void) XR_ImportProcS(var_c44160, 68163332); (void) XR_ImportProcS(var_c44160, 67373825); (void) XR_ImportProcS(var_c44160, 67898627); (void) XR_ImportProcS(var_c44160, 68419845); var_c44160 = (word) XR_ImportInterface((word) "RopeReader", (word) XR_GetTypeIndexS((word) (&string35)), 25); (* (( (ptr) gf_c0441)+89)/* var_c39264 */ ) = var_c44160; (void) XR_ImportProcS(var_c44160, 69473545); (void) XR_ImportProcS(var_c44160, 67636482); (void) XR_ImportProcS(var_c44160, 268033); (void) XR_ImportProcS(var_c44160, 67114496); var_c44160 = (word) XR_ImportInterface((word) "RuntimeError", (word) XR_GetTypeIndexS((word) (&string36)), 27); (* (( (ptr) gf_c0441)+101)/* var_c43360 */ ) = var_c44160; var_c44160 = (word) XR_ImportInterface((word) "SimpleFeedback", (word) XR_GetTypeIndexS((word) (&string37)), 7); (* (( (ptr) gf_c0441)+92)/* var_c39424 */ ) = var_c44160; (void) XR_ImportProcS(var_c44160, 1310981); (void) XR_ImportProcS(var_c44160, 525058); (void) XR_ImportProcS(var_c44160, 1048580); var_c44160 = (word) XR_ImportInterface((word) "TextEdit", (word) XR_GetTypeIndexS((word) (&string38)), 39); (* (( (ptr) gf_c0441)+95)/* var_c39712 */ ) = var_c44160; (void) XR_ImportProcS(var_c44160, 136322568); (void) XR_ImportProcS(var_c44160, 792323); (void) XR_ImportProcS(var_c44160, 67376641); (void) XR_ImportProcS(var_c44160, 1582086); (void) XR_ImportProcS(var_c44160, 1837831); (void) XR_ImportProcS(var_c44160, 136583945); (void) XR_ImportProcS(var_c44160, 67633410); (void) XR_ImportProcS(var_c44160, 1317893); (void) XR_ImportProcS(var_c44160, 67371521); var_c44160 = (word) XR_ImportInterface((word) "TextEditBogus", (word) XR_GetTypeIndexS((word) (&string39)), 1); (* (( (ptr) gf_c0441)+96)/* var_c39872 */ ) = var_c44160; (void) XR_ImportProcS(var_c44160, 67371009); var_c44160 = (word) XR_ImportInterface((word) "TextNode", (word) XR_GetTypeIndexS((word) (&string40)), 34); (* (( (ptr) gf_c0441)+94)/* var_c39680 */ ) = var_c44160; (void) XR_ImportProcS(var_c44160, 67376641); (void) XR_ImportProcS(var_c44160, 67372289); (void) XR_ImportProcS(var_c44160, 67372545); (void) XR_ImportProcS(var_c44160, 67377153); var_c44160 = (word) XR_ImportInterface((word) "TiogaIO", (word) XR_GetTypeIndexS((word) (&string41)), 17); (* (( (ptr) gf_c0441)+93)/* var_c39456 */ ) = var_c44160; (void) XR_ImportProcS(var_c44160, 403966722); var_c44160 = (word) XR_ImportInterface((word) "UserProfile", (word) XR_GetTypeIndexS((word) (&string42)), 11); (* (( (ptr) gf_c0441)+103)/* var_c43584 */ ) = var_c44160; (void) XR_ImportProcS(var_c44160, 67633922); var_c44160 = (word) XR_ExportInterface((word) "AbbrevExpand", (word) XR_GetTypeIndexS((word) (&string43)), 6); (* (( (ptr) gf_c0441)+105)/* var_c44192 */ ) = var_c44160; (void) XR_ExportProcS(var_c44160, (word) (( (bPt) gf_c0441)+312)/* var_c38944 */ , 67371009); (void) XR_ExportProcS(var_c44160, (word) (( (bPt) gf_c0441)+288)/* var_c38848 */ , 262401); (void) XR_ExportVar(var_c44160, 2, (word) (( (bPt) gf_c0441)+172)/* var_c38368 */ ); (void) XR_ExportProcS(var_c44160, (word) (( (bPt) gf_c0441)+264)/* var_c38752 */ , 403702532); (void) XR_ExportProcS(var_c44160, (word) (( (bPt) gf_c0441)+176)/* var_c38400 */ , 67372033); (void) XR_ExportProcS(var_c44160, (word) (( (bPt) gf_c0441)+184)/* var_c38432 */ , 67110144); var_c44160 = (word) XR_ExportInterface((word) "AbbrevExpandExtras", (word) XR_GetTypeIndexS((word) (&string44)), 1); (* (( (ptr) gf_c0441)+105)/* var_c44192 */ ) = var_c44160; (void) XR_ExportProcS(var_c44160, (word) (( (bPt) gf_c0441)+272)/* var_c38784 */ , 262145); } static void AbbrevExpandImpl_P0(formal_c069, formal_c066) word formal_c069; word formal_c066; { register ptr gf_c44224 = (ptr) &globalframe; /* AbbrevExpandImpl: */ SOURCE(1150, 13279) /* moved to installation proc */ SOURCE(1510, 45) { word pd45; pd45 = (* (( (ptr) (* (( (ptr) gf_c44224)+88)/* var_c39104 */ ))+5) ); (* (( (ptr) gf_c44224)+8)/* dictTable_v3644 */ ) = (word) ( *( (fPt) ((* (ptr) pd45 ))))(5, 0, 0, pd45); }; SOURCE(12382, 15) { word var_c39136; word var_c39168; var_c39136 = XR_NewObject(8, (* (( (ptr) gf_c44224)+27) )); var_c39168 = var_c39136; (* (ptr) var_c39168 ) = (* (( (ptr) gf_c44224)+39) ); (* (( (ptr) gf_c44224)+10)/* defaultSearch_v4232 */ ) = var_c39136; }; SOURCE(13768, 42) { word pd46; pd46 = (* (( (ptr) (* (( (ptr) gf_c44224)+88)/* var_c39104 */ ))+5) ); (* (( (ptr) gf_c44224)+20)/* fileForAbbr_v4484 */ ) = (word) ( *( (fPt) ((* (ptr) pd46 ))))(5, 0, 0, pd46); }; } static void LoadInternal_P60(formal_c085, formal_c0540, formal_c0541) word formal_c085; word formal_c0540; word formal_c0541; { W25 var_c44256; /* declaration of dict_v4888 skipped */ /* declaration of fileID_v4916 skipped */ register ptr gf_c44288 = (ptr) &globalframe; word ok_v4960; /* declaration of count_v4988 skipped */ /* declaration of var_c39200 skipped */ /* declaration of var_c39232 skipped */ /* declaration of rdr_v8104 skipped */ /* declaration of root_v8132 skipped */ (* (( (ptr) &var_c44256)+4)/* dict_v4888 */ ) = formal_c0540; (* (( (ptr) &var_c44256)+5)/* fileID_v4916 */ ) = formal_c0541; /* LoadInternal: */ SOURCE(1707, 1112) { word tmpAddr47; tmpAddr47 = (word) (( (ptr) &var_c44256)+7)/* var_c39200 */ ; (* (ptr) tmpAddr47 ) = ( ((word) (fPt) Empty_P1260) ); (* (( (ptr) tmpAddr47) + 1) ) = 1; }; { word tmpAddr48; tmpAddr48 = (word) (( (ptr) &var_c44256)+9)/* var_c39232 */ ; (* (ptr) tmpAddr48 ) = ( ((word) (fPt) Locked_P1200) ); (* (( (ptr) tmpAddr48) + 1) ) = 1; }; SOURCE(1707, 1112) ok_v4960 = 0; SOURCE(1707, 1112) (* (( (ptr) &var_c44256)+6)/* count_v4988 */ ) = 0; SOURCE(1803, 48) { word pd49; pd49 = (* (( (ptr) (* (( (ptr) gf_c44288)+89)/* var_c39264 */ ))+26) ); (* (( (ptr) &var_c44256)+11)/* rdr_v8104 */ ) = (word) ( *( (fPt) ((* (ptr) pd49 ))))(pd49); }; SOURCE(1853, 16) (* (( (ptr) &var_c44256)+12)/* root_v8132 */ ) = 0; SOURCE(2308, 45) if (((* (( (ptr) &var_c44256)+5)/* fileID_v4916 */ ) == 0)) { SOURCE(2330, 15) (void) DoLocked_P1020((word) ((( (bPt) &var_c44256)+28)/* var_c39200 */ )); SOURCE(2347, 6) goto lab_L100000; }; SOURCE(2356, 107) { word var_c39296; { word var_c39328; { word pd50; pd50 = (* (( (ptr) (* (( (ptr) gf_c44288)+90)/* var_c39360 */ ))+4) ); var_c39328 = (word) ( *( (fPt) ((* (ptr) pd50 ))))((* (ptr) (* (( (ptr) &var_c44256)+5)/* fileID_v4916 */ ) ), 0, pd50) ; }; { word pd51; pd51 = (* (( (ptr) (* (( (ptr) gf_c44288)+91)/* var_c39392 */ ))+5) ); var_c39296 = (word) ( *( (fPt) ((* (ptr) pd51 ))))((* (( (ptr) gf_c44288)+35) ), var_c39328, (* (( (ptr) gf_c44288)+34) ), 0, 0, pd51) ; }; }; { word pd52; pd52 = (* (( (ptr) (* (( (ptr) gf_c44288)+92)/* var_c39424 */ ))+4) ); (void) ( *( (fPt) ((* (ptr) pd52 ))))((* (( (ptr) gf_c44288)+38) ), 1, (* (( (ptr) gf_c44288)+37) ), var_c39296, pd52); }; }; SOURCE(2465, 172) SOURCE(2465, 172) { W6 var_c39488; { /* declaration of var_c01 skipped */ /* declaration of var_c02 skipped */ /* declaration of var_c03 skipped */ (* (( (ptr) &var_c44256)+13)/* var_c01 */ ) = (* (ptr) (* (( (ptr) &var_c44256)+5)/* fileID_v4916 */ ) ); (* (W4Pt) (( (ptr) &var_c44256)+14)/* var_c02 */ ) = (* (W4Pt) (( (ptr) (* (( (ptr) &var_c44256)+5)/* fileID_v4916 */ ))+1) ); (* (( (ptr) &var_c44256)+18)/* var_c03 */ ) = (* (( (ptr) (* (( (ptr) gf_c44288)+93)/* var_c39456 */ ))+15) ); { /* declaration of var_c04 skipped */ { word var_c05; { word var_c0500; var_c0500 = (word) &var_c44256; var_c05 = (word) XR_Enable(( ((word) (fPt) NoName_Q6000) ), ( ((word) (fPt) NoName_Q6900) ), var_c0500); }; if ((var_c05 == 2)) { goto lab_L100002; }; }; var_c39488 = (* (W6Pt) (( (ptr) &var_c44256)+19)/* var_c04 */ ); }; }; (* (( (ptr) &var_c44256)+12)/* root_v8132 */ ) = var_c39488.f5; }; lab_L100002: ; SOURCE(2655, 25) if (((* (( (ptr) &var_c44256)+12)/* root_v8132 */ ) == 0)) { SOURCE(2674, 6) goto lab_L100000; }; SOURCE(2682, 16) (void) DoLocked_P1020((word) ((( (bPt) &var_c44256)+36)/* var_c39232 */ )); SOURCE(2700, 76) { W2 v1_v35648; v1_v35648.f0 = 5; v1_v35648.f1 = (* (( (ptr) &var_c44256)+6)/* count_v4988 */ ); { word var_c39552; { word var_c39584; word var_c39616; var_c39584 = XR_NewObject(12, (* (( (ptr) gf_c44288)+32) )); var_c39616 = var_c39584; (* (W2Pt) var_c39616 ) = v1_v35648; var_c39552 = var_c39584; }; { word pd53; pd53 = (* (( (ptr) (* (( (ptr) gf_c44288)+92)/* var_c39424 */ ))+5) ); (void) ( *( (fPt) ((* (ptr) pd53 ))))((* (( (ptr) gf_c44288)+38) ), 3, (* (( (ptr) gf_c44288)+37) ), (* (( (ptr) gf_c44288)+36) ), var_c39552, pd53); }; }; }; SOURCE(2778, 30) { word pd54; pd54 = (* (( (ptr) (* (( (ptr) gf_c44288)+89)/* var_c39264 */ ))+27) ); (void) ( *( (fPt) ((* (ptr) pd54 ))))((* ((( (ptr) &var_c44256)+11)/* rdr_v8104 */ ) ), pd54); }; SOURCE(2810, 9) ok_v4960 = 1; /* removed tail goto */ lab_L100000: ; (* (ptr) formal_c085 ) = ok_v4960; (* (( (ptr) formal_c085)+1) ) = (* (( (ptr) &var_c44256)+6)/* count_v4988 */ ); return; } static word NoName_Q6000(formal_c0444) word formal_c0444; { SOURCE(2465, 172) { word pd55; pd55 = (* (( (ptr) formal_c0444)+18) ); (void) ( *( (fPt) ((* (ptr) pd55 ))))((word) (( (bPt) formal_c0444)+76), (* (( (ptr) formal_c0444)+13) ), (* (W4Pt) (( (ptr) formal_c0444)+14) ), pd55); }; return(0); } static void Locked_P1200(formal_c44352) word formal_c44352; { register ptr gf_c44320 = (ptr) &globalframe; formal_c44352 = (formal_c44352 - 36); /* Locked: */ SOURCE(1871, 340) SOURCE(1888, 46) { word var_c39648; word pd56; pd56 = (* (( (ptr) (* (( (ptr) gf_c44320)+88)/* var_c39104 */ ))+9) ); var_c39648 = (word) ( *( (fPt) ((* (ptr) pd56 ))))((* (( (ptr) gf_c44320)+8)/* dictTable_v3644 */ ), (* (( (ptr) formal_c44352)+4) ), (* (( (ptr) gf_c44320)+42) ), pd56); }; SOURCE(1961, 195) { register word node_v8264; { word pd57; pd57 = (* (( (ptr) (* (( (ptr) gf_c44320)+94)/* var_c39680 */ ))+28) ); node_v8264 = (word) ( *( (fPt) ((* (ptr) pd57 ))))((* ((( (ptr) formal_c44352)+12)) ), pd57); }; lab_L100008: ; if ((node_v8264 != 0)) { } else { goto lab_L100005; }; SOURCE(2043, 58) { word pd59; if ((node_v8264 == 0)) { goto then058;}; if (*((int*)node_v8264 + 9)<0) { goto then058;}; pd59 = (* (( (ptr) (* (( (ptr) gf_c44320)+95)/* var_c39712 */ ))+6) ); if (( (int)(word) ( *( (fPt) ((* (ptr) pd59 ))))(node_v8264, pd59) == (int)0)) { then058: ; SOURCE(2101, 4) goto lab_L100007; }; }; SOURCE(2107, 32) (void) AddToDict_P180((* (( (ptr) formal_c44352)+12) ), node_v8264, (* (( (ptr) formal_c44352)+4) ), (* (( (ptr) formal_c44352)+11) )); SOURCE(2141, 15) (* (( (ptr) formal_c44352)+6) ) = ((* (( (ptr) formal_c44352)+6) ) + 1); lab_L100007: ; { word pd60; pd60 = (* (( (ptr) (* (( (ptr) gf_c44320)+94)/* var_c39680 */ ))+10) ); node_v8264 = (word) ( *( (fPt) ((* (ptr) pd60 ))))(node_v8264, pd60); }; goto lab_L100008; lab_L100005: ; }; SOURCE(2167, 44) { word var_c39744; word pd61; pd61 = (* (( (ptr) (* (( (ptr) gf_c44320)+88)/* var_c39104 */ ))+9) ); var_c39744 = (word) ( *( (fPt) ((* (ptr) pd61 ))))((* (( (ptr) gf_c44320)+20)/* fileForAbbr_v4484 */ ), (* (( (ptr) formal_c44352)+4) ), (* (( (ptr) formal_c44352)+5) ), pd61); }; } static void Empty_P1260(formal_c44416) word formal_c44416; { register ptr gf_c44384 = (ptr) &globalframe; formal_c44416 = (formal_c44416 - 28); /* Empty: */ SOURCE(2216, 62) SOURCE(2232, 46) { word var_c39776; word pd62; pd62 = (* (( (ptr) (* (( (ptr) gf_c44384)+88)/* var_c39104 */ ))+9) ); var_c39776 = (word) ( *( (fPt) ((* (ptr) pd62 ))))((* (( (ptr) gf_c44384)+8)/* dictTable_v3644 */ ), (* (( (ptr) formal_c44416)+4) ), (* (( (ptr) gf_c44384)+42) ), pd62); }; } static word Load_P120(dictName_v5048) word dictName_v5048; { word count_v5092; word dict_v8308; /* Load: */ SOURCE(2825, 152) SOURCE(2825, 152) count_v5092 = 0; SOURCE(2889, 34) dict_v8308 = (word) GetDictAtom_P360(dictName_v5048); SOURCE(2925, 52) { W2 var_c39840; { word var_c39808; var_c39808 = (word) GetFileID_P960(dict_v8308); (void) LoadInternal_P60((word) &var_c39840, dict_v8308, var_c39808); }; count_v5092 = var_c39840.f1; }; SOURCE(2825, 152) return(count_v5092); } static void AddToDict_P180(formal_c0542, formal_c0543, formal_c0544, formal_c0545) word formal_c0542; word formal_c0543; word formal_c0544; word formal_c0545; { W8 var_c44448; /* declaration of root_v5152 skipped */ /* declaration of node_v5180 skipped */ /* declaration of dictAtom_v5208 skipped */ /* declaration of rdr_v5236 skipped */ register ptr gf_c44480 = (ptr) &globalframe; var_c44448.f4/* root_v5152 */ = formal_c0542; var_c44448.f5/* node_v5180 */ = formal_c0543; var_c44448.f6/* dictAtom_v5208 */ = formal_c0544; var_c44448.f7/* rdr_v5236 */ = formal_c0545; /* AddToDict: */ SOURCE(2983, 1091) (void) (XR_MonitorEntry((word) (( (bPt) gf_c44480)+16)/* LOCK_v3504 */ )); SOURCE(3077, 997) { word var_c06; { word var_c0501; var_c0501 = (word) &var_c44448; var_c06 = (word) XR_Enable(( ((word) (fPt) NoName_Q6060) ), ( ((word) (fPt) NoName_Q6840) ), var_c0501); }; if ((var_c06 == 1)) { goto lab_L03; }; }; SOURCE(2983, 1091) (void) (XR_MonitorExit((word) (( (bPt) gf_c44480)+16)/* LOCK_v3504 */ )); return; lab_L03: ; return; } static word NoName_Q6060(formal_c0451) word formal_c0451; { register ptr gf_c0450 = (ptr) &globalframe; SOURCE(3101, 31) { word dict_v8352; word keyRope_v8380; word hash_v8436; word entry_v8464 = 0; word keyLen_v8492; word freeRdr_v8520 = 0; word resultStart_v8548; word commands_v8576 = 0; SOURCE(3101, 31) dict_v8352 = (word) GetDict_P840((* ((( (ptr) formal_c0451)+6)) )); SOURCE(3134, 43) { word pd63; pd63 = (* (( (ptr) (* (( (ptr) gf_c0450)+96)/* var_c39872 */ ))+4) ); keyRope_v8380 = (word) ( *( (fPt) ((* (ptr) pd63 ))))((* ((( (ptr) formal_c0451)+5)) ), pd63); }; SOURCE(3310, 67) if (((* (( (ptr) formal_c0451)+7) ) == 0)) { SOURCE(3328, 32) { word pd64; pd64 = (* (( (ptr) (* (( (ptr) gf_c0450)+89)/* var_c39264 */ ))+26) ); (* (( (ptr) formal_c0451)+7) ) = (word) ( *( (fPt) ((* (ptr) pd64 ))))(pd64); }; SOURCE(3362, 15) freeRdr_v8520 = 1; }; SOURCE(3380, 32) keyLen_v8492 = (word) FindKeyLen_P720(keyRope_v8380, (* (( (ptr) formal_c0451)+7) )); SOURCE(3414, 74) if ((keyLen_v8492 == 0)) { SOURCE(3433, 46) if ((0 != freeRdr_v8520)) { SOURCE(3449, 30) { word pd65; pd65 = (* (( (ptr) (* (( (ptr) gf_c0450)+89)/* var_c39264 */ ))+27) ); (void) ( *( (fPt) ((* (ptr) pd65 ))))((* ((( (ptr) formal_c0451)+7)) ), pd65); }; }; SOURCE(3481, 7) (void) (XR_MonitorExit((word) (( (bPt) gf_c0450)+16)/* LOCK_v3504 */ )); return(1); }; SOURCE(3507, 43) hash_v8436 = (word) KeyHash_P540(keyRope_v8380, 0, keyLen_v8492, (* (( (ptr) formal_c0451)+7) )); SOURCE(3552, 61) entry_v8464 = (word) LookupInternal_P660(dict_v8352, hash_v8436, keyRope_v8380, 0, keyLen_v8492, (* (( (ptr) formal_c0451)+7) ) , 0); SOURCE(3615, 176) if ((entry_v8464 == 0)) { SOURCE(3654, 21) entry_v8464 = XR_NewObject(20, (* (( (ptr) gf_c0450)+30) )); SOURCE(3677, 114) if ((dict_v8352 != 0)) { SOURCE(3698, 22) (* (ptr) entry_v8464 ) = (* (ptr) dict_v8352 ); SOURCE(3722, 18) (* (ptr) dict_v8352 ) = entry_v8464; } else { SOURCE(3747, 44) { word var_c39936; word pd66; pd66 = (* (( (ptr) (* (( (ptr) gf_c0450)+88)/* var_c39104 */ ))+9) ); var_c39936 = (word) ( *( (fPt) ((* (ptr) pd66 ))))((* (( (ptr) gf_c0450)+8)/* dictTable_v3644 */ ), (* (( (ptr) formal_c0451)+6) ), entry_v8464, pd66); }; }; }; SOURCE(3794, 17) (* (( (ptr) entry_v8464)+1) ) = hash_v8436; SOURCE(3813, 52) { word pd67; pd67 = (* (( (ptr) (* (( (ptr) gf_c0450)+91)/* var_c39392 */ ))+17) ); (* (( (ptr) entry_v8464)+2) ) = (word) ( *( (fPt) ((* (ptr) pd67 ))))(keyRope_v8380, 0, keyLen_v8492, pd67); }; SOURCE(3867, 17) (* (( (ptr) entry_v8464)+3) ) = (* (( (ptr) formal_c0451)+5) ); SOURCE(3886, 67) { W2 var_c39968; (void) ParseCommands_P240((word) &var_c39968, keyRope_v8380, keyLen_v8492, (* (( (ptr) formal_c0451)+7) )); commands_v8576 = var_c39968.f1; resultStart_v8548 = var_c39968.f0; }; SOURCE(3955, 25) (* (( (ptr) entry_v8464)+4) ) = commands_v8576; SOURCE(3982, 44) { word pd68; pd68 = (* (( (ptr) (* (( (ptr) gf_c0450)+95)/* var_c39712 */ ))+32) ); (void) ( *( (fPt) ((* (ptr) pd68 ))))((* (( (ptr) formal_c0451)+4) ), (* (( (ptr) formal_c0451)+5) ), 0, resultStart_v8548, 0, pd68) ; }; SOURCE(4028, 46) if ((0 != freeRdr_v8520)) { SOURCE(4044, 30) { word pd69; pd69 = (* (( (ptr) (* (( (ptr) gf_c0450)+89)/* var_c39264 */ ))+27) ); (void) ( *( (fPt) ((* (ptr) pd69 ))))((* ((( (ptr) formal_c0451)+7)) ), pd69); }; }; }; return(0); } static void ParseCommands_P240(formal_c0118, formal_c0546, formal_c0547, formal_c0548) word formal_c0118; word formal_c0546; word formal_c0547; word formal_c0548; { W9 var_c44512; /* declaration of keyRope_v5296 skipped */ /* declaration of start_v5324 skipped */ /* declaration of rdr_v5352 skipped */ register ptr gf_c44544 = (ptr) &globalframe; /* declaration of end_v5396 skipped */ /* declaration of commands_v5424 skipped */ (* (( (ptr) &var_c44512)+4)/* keyRope_v5296 */ ) = formal_c0546; (* (( (ptr) &var_c44512)+5)/* start_v5324 */ ) = formal_c0547; (* (( (ptr) &var_c44512)+6)/* rdr_v5352 */ ) = formal_c0548; /* ParseCommands: */ SOURCE(4080, 872) SOURCE(4080, 872) (* (( (ptr) &var_c44512)+8)/* commands_v5424 */ ) = 0; SOURCE(4197, 755) SOURCE(4216, 683) { word var_c07; { word var_c0502; var_c0502 = (word) &var_c44512; var_c07 = (word) XR_Enable(( ((word) (fPt) NoName_Q6120) ), ( ((word) (fPt) NoName_Q6780) ), var_c0502); }; if ((var_c07 == 3)) { goto lab_L100012; }; }; goto lab_L100030; lab_L100012: ; SOURCE(4914, 36) { word var_c40960; { word pd70; pd70 = (* (( (ptr) (* (( (ptr) gf_c44544)+91)/* var_c39392 */ ))+15) ); var_c40960 = (word) ( *( (fPt) ((* (ptr) pd70 ))))((* ((( (ptr) &var_c44512)+4)/* keyRope_v5296 */ ) ), pd70); }; (* (( (ptr) &var_c44512)+7)/* end_v5396 */ ) = var_c40960; /* removed bogus assignment */ goto lab_L100011; }; lab_L100030: ; /* removed tail goto */ lab_L100011: ; (* (ptr) formal_c0118 ) = (* (( (ptr) &var_c44512)+7)/* end_v5396 */ ); (* (( (ptr) formal_c0118)+1) ) = (* (( (ptr) &var_c44512)+8)/* commands_v5424 */ ); return; } static word NoName_Q6120(formal_c0454) word formal_c0454; { register ptr gf_c0453 = (ptr) &globalframe; SOURCE(4247, 11) { word blank_v8716; word var_c40032; word c_v38224; word var_c40256; word text_v37172; word i_v37200; word var_c40608; word text_v37028; word i_v37056; SOURCE(4260, 32) { word reader_v36676; word rope_v36704; word index_v36732; word var_c40000; word rope_v24868; reader_v36676 = (* (( (ptr) formal_c0454)+6) ); rope_v36704 = (* (( (ptr) formal_c0454)+4) ); index_v36732 = (* (( (ptr) formal_c0454)+5) ); { word tc71; rope_v24868 = 0; var_c40000 = (* (( (ptr) reader_v36676)+2) ); if (((var_c40000 == rope_v36704) )) { tc71 = (word) ( (int)((* (( (ptr) reader_v36676)+3) ) + (* (( (ptr) reader_v36676)+1) )) == (int)index_v36732); } else { tc71 = (word) 0; }; if (tc71) { goto lab_L100016; }; }; (* (( (ptr) reader_v36676)+2) ) = rope_v36704; (* (( (ptr) reader_v36676)+1) ) = 0; (* (hPt) (* (ptr) reader_v36676 ) ) = 0; (* (( (ptr) reader_v36676)+3) ) = index_v36732; lab_L100016: ; }; SOURCE(4294, 83) { word text_v23852; word i_v23896; text_v23852 = (* (ptr) (* (( (ptr) formal_c0454)+6) ) ); i_v23896 = (* (( (ptr) (* (( (ptr) formal_c0454)+6) ))+1) ); { word limit72; word pd73; if ((i_v23896 < (* (hPt) text_v23852 ))) { c_v38224 = (word) (* ((( (bPt) text_v23852)+4)+( limit72 = (word) (* (( (hPt) text_v23852)+1) ), BCK(i_v23896, limit72) )) ); } else { pd73 = (* (( (ptr) (* (( (ptr) gf_c0453)+89)/* var_c39264 */ ))+17) ); c_v38224 = (word) ( *( (fPt) ((* (ptr) pd73 ))))((* (( (ptr) formal_c0454)+6) ), 2, pd73); }; }; }; var_c40032 = ((word) (* (( (bPt) (* (ptr) (* (( (ptr) (* (( (ptr) gf_c0453)+97)/* var_c40128 */ ))+4) ) ))+c_v38224) ) == 1); if (((0 != var_c40032) )) { SOURCE(4329, 12) blank_v8716 = 1; SOURCE(4343, 14) { word var_c40224; { word text_v23080; word i_v23124; text_v23080 = (* (ptr) (* (( (ptr) formal_c0454)+6) ) ); i_v23124 = (* (( (ptr) (* (( (ptr) formal_c0454)+6) ))+1) ); { word pd75; if ((i_v23124 < (* (hPt) text_v23080 ))) { (* (( (ptr) (* (( (ptr) formal_c0454)+6) ))+1) ) = (i_v23124 + 1); { word limit74; var_c40224 = (word) (* ((( (bPt) text_v23080)+4)+( /*1*/ limit74 = (word) (* (( (hPt) text_v23080)+1) ), /*1*/ BCK(i_v23124, limit74) /*1*/ )) ); }; } else { pd75 = (* (( (ptr) (* (( (ptr) gf_c0453)+89)/* var_c39264 */ ))+17) ); var_c40224 = (word) ( *( (fPt) ((* (ptr) pd75 ))))((* (( (ptr) formal_c0454)+6) ), 0, pd75); }; }; }; }; } else { SOURCE(4364, 13) blank_v8716 = 0; }; SOURCE(4379, 310) text_v37172 = (* (ptr) (* (( (ptr) formal_c0454)+6) ) ); i_v37200 = (* (( (ptr) (* (( (ptr) formal_c0454)+6) ))+1) ); { word limit76; word pd77; if ((i_v37200 < (* (hPt) text_v37172 ))) { var_c40256 = (word) (* ((( (bPt) text_v37172)+4)+( limit76 = (word) (* (( (hPt) text_v37172)+1) ), BCK(i_v37200, limit76) )) ); } else { pd77 = (* (( (ptr) (* (( (ptr) gf_c0453)+89)/* var_c39264 */ ))+17) ); var_c40256 = (word) ( *( (fPt) ((* (ptr) pd77 ))))((* (( (ptr) formal_c0454)+6) ), 2, pd77); }; }; if (((var_c40256 == 40) )) { SOURCE(4402, 289) { word h_v8760; word var_c40416; word c_v38176; SOURCE(4426, 65) { word var_c40320; { word var_c0503; (* (( (ptr) formal_c0454)+5) ) = ((* (( (ptr) (* (( (ptr) formal_c0454)+6) ))+3) ) + (* (( (ptr) (* (( (ptr) formal_c0454)+6) ))+1) )); var_c0503 = (* (( (ptr) formal_c0454)+5) ); { word pd78; pd78 = (* (( (ptr) (* (( (ptr) gf_c0453)+91)/* var_c39392 */ ))+17) ); var_c40320 = (word) ( *( (fPt) ((* (ptr) pd78 ))))((* (( (ptr) formal_c0454)+4) ), var_c0503, 2147483647, pd78); }; }; { word pd79; pd79 = (* (( (ptr) (* (( (ptr) gf_c0453)+98)/* var_c40352 */ ))+33) ); h_v8760 = (word) ( *( (fPt) ((* (ptr) pd79 ))))(var_c40320, 0, pd79); }; }; SOURCE(4493, 34) { word pd80; pd80 = (* (( (ptr) (* (( (ptr) gf_c0453)+98)/* var_c40352 */ ))+83) ); (* (( (ptr) formal_c0454)+8) ) = XR_Narrow((word) ( *( (fPt) ((* (ptr) pd80 ))))(h_v8760, pd80), (* (( (ptr) gf_c0453)+29) )); }; SOURCE(4529, 28) { word pd81; pd81 = (* (( (ptr) (* (( (ptr) gf_c0453)+98)/* var_c40352 */ ))+29) ); (* (( (ptr) formal_c0454)+5) ) = ((* (( (ptr) formal_c0454)+5) ) + (word) ( *( (fPt) ((* (ptr) pd81 ))))(h_v8760, pd81)); }; SOURCE(4559, 11) { word pd82; pd82 = (* (( (ptr) (* (( (ptr) gf_c0453)+98)/* var_c40352 */ ))+28) ); (void) ( *( (fPt) ((* (ptr) pd82 ))))(h_v8760, 0, pd82); }; SOURCE(4572, 32) { word reader_v36528; word rope_v36556; word index_v36584; word var_c40384; word rope_v36632; reader_v36528 = (* (( (ptr) formal_c0454)+6) ); rope_v36556 = (* (( (ptr) formal_c0454)+4) ); index_v36584 = (* (( (ptr) formal_c0454)+5) ); { word tc83; rope_v36632 = 0; var_c40384 = (* (( (ptr) reader_v36528)+2) ); if (((var_c40384 == rope_v36556) )) { tc83 = (word) ( (int)((* (( (ptr) reader_v36528)+3) ) + (* (( (ptr) reader_v36528)+1) )) == (int)index_v36584); } else { tc83 = (word) 0; }; if (tc83) { goto lab_L100022; }; }; (* (( (ptr) reader_v36528)+2) ) = rope_v36556; (* (( (ptr) reader_v36528)+1) ) = 0; (* (hPt) (* (ptr) reader_v36528 ) ) = 0; (* (( (ptr) reader_v36528)+3) ) = index_v36584; lab_L100022: ; }; SOURCE(4606, 83) { word text_v37100; word i_v37128; text_v37100 = (* (ptr) (* (( (ptr) formal_c0454)+6) ) ); i_v37128 = (* (( (ptr) (* (( (ptr) formal_c0454)+6) ))+1) ); { word limit84; word pd85; if ((i_v37128 < (* (hPt) text_v37100 ))) { c_v38176 = (word) (* ((( (bPt) text_v37100)+4)+( limit84 = (word) (* (( (hPt) text_v37100)+1) ), BCK(i_v37128, limit84) )) ); } else { pd85 = (* (( (ptr) (* (( (ptr) gf_c0453)+89)/* var_c39264 */ ))+17) ); c_v38176 = (word) ( *( (fPt) ((* (ptr) pd85 ))))((* (( (ptr) formal_c0454)+6) ), 2, pd85); }; }; }; var_c40416 = ((word) (* (( (bPt) (* (ptr) (* (( (ptr) (* (( (ptr) gf_c0453)+97)/* var_c40128 */ ))+4) ) ))+c_v38176) ) == 1); if (((0 != var_c40416) )) { SOURCE(4641, 12) blank_v8716 = 1; SOURCE(4655, 14) { word var_c40576; { word text_v37652; word i_v37680; text_v37652 = (* (ptr) (* (( (ptr) formal_c0454)+6) ) ); i_v37680 = (* (( (ptr) (* (( (ptr) formal_c0454)+6) ))+1) ); { word pd87; if ((i_v37680 < (* (hPt) text_v37652 ))) { (* (( (ptr) (* (( (ptr) formal_c0454)+6) ))+1) ) = (i_v37680 + 1); { /*1*/ word limit86; /*1*/ var_c40576 = (word) (* ((( (bPt) text_v37652)+4)+( /*1*/ limit86 = (word) (* (( (hPt) text_v37652)+1) ), /*1*/ BCK(i_v37680, limit86) /*1*/ )) ); /*1*/ }; } else { pd87 = (* (( (ptr) (* (( (ptr) gf_c0453)+89)/* var_c39264 */ ))+17) ); var_c40576 = (word) ( *( (fPt) ((* (ptr) pd87 ))))((* (( (ptr) formal_c0454)+6) ), 0, pd87); }; }; }; }; } else { SOURCE(4676, 13) blank_v8716 = 0; }; }; }; SOURCE(4694, 205) text_v37028 = (* (ptr) (* (( (ptr) formal_c0454)+6) ) ); i_v37056 = (* (( (ptr) (* (( (ptr) formal_c0454)+6) ))+1) ); { word limit88; word pd89; if ((i_v37056 < (* (hPt) text_v37028 ))) { var_c40608 = (word) (* ((( (bPt) text_v37028)+4)+( limit88 = (word) (* (( (hPt) text_v37028)+1) ), BCK(i_v37056, limit88) )) ); } else { pd89 = (* (( (ptr) (* (( (ptr) gf_c0453)+89)/* var_c39264 */ ))+17) ); var_c40608 = (word) ( *( (fPt) ((* (ptr) pd89 ))))((* (( (ptr) formal_c0454)+6) ), 2, pd89); }; }; if (((var_c40608 == 61) )) { { word var_c40768; word text_v36956; word i_v36984; SOURCE(4738, 13) { word var_c40736; { word text_v37580; word i_v37608; text_v37580 = (* (ptr) (* (( (ptr) formal_c0454)+6) ) ); i_v37608 = (* (( (ptr) (* (( (ptr) formal_c0454)+6) ))+1) ); { word pd91; if ((i_v37608 < (* (hPt) text_v37580 ))) { (* (( (ptr) (* (( (ptr) formal_c0454)+6) ))+1) ) = (i_v37608 + 1); { word limit90; var_c40736 = (word) (* ((( (bPt) text_v37580)+4)+( /*1*/ limit90 = (word) (* (( (hPt) text_v37580)+1) ), /*1*/ BCK(i_v37608, limit90) /*1*/ )) ); }; } else { pd91 = (* (( (ptr) (* (( (ptr) gf_c0453)+89)/* var_c39264 */ ))+17) ); var_c40736 = (word) ( *( (fPt) ((* (ptr) pd91 ))))((* (( (ptr) formal_c0454)+6) ), 0, pd91); }; }; }; }; SOURCE(4753, 46) { word tc92; if ((0 != blank_v8716)) { text_v36956 = (* (ptr) (* (( (ptr) formal_c0454)+6) ) ); i_v36984 = (* (( (ptr) (* (( (ptr) formal_c0454)+6) ))+1) ); { word limit93; word pd94; if ((i_v36984 < (* (hPt) text_v36956 ))) { var_c40768 = (word) (* ((( (bPt) text_v36956)+4)+( /*1*/ limit93 = (word) (* (( (hPt) text_v36956)+1) ), /*1*/ BCK(i_v36984, limit93) /*1*/ )) ); } else { pd94 = (* (( (ptr) (* (( (ptr) gf_c0453)+89)/* var_c39264 */ ))+17) ); var_c40768 = (word) ( *( (fPt) ((* (ptr) pd94 ))))((* (( (ptr) formal_c0454)+6) ), 2, pd94); }; }; tc92 = (word) (var_c40768 == 32); } else { tc92 = (word) 0; }; if (tc92) { SOURCE(4786, 13) { word var_c40896; { word text_v37508; word i_v37536; text_v37508 = (* (ptr) (* (( (ptr) formal_c0454)+6) ) ); i_v37536 = (* (( (ptr) (* (( (ptr) formal_c0454)+6) ))+1) ); { word pd96; if ((i_v37536 < (* (hPt) text_v37508 ))) { /*1*/ (* (( (ptr) (* (( (ptr) formal_c0454)+6) ))+1) ) = (i_v37536 + 1); /*1*/ { /*1*/ word limit95; /*1*/ var_c40896 = (word) (* ((( (bPt) text_v37508)+4)+( /*1*/ limit95 = (word) (* (( (hPt) text_v37508)+1) ), /*1*/ BCK(i_v37536, limit95) /*1*/ )) ); /*1*/ }; /*1*/ } else { /*1*/ pd96 = (* (( (ptr) (* (( (ptr) gf_c0453)+89)/* var_c39264 */ ))+17) ); /*1*/ var_c40896 = (word) ( *( (fPt) ((* (ptr) pd96 ))))((* (( (ptr) formal_c0454)+6) ), 0, pd96); /*1*/ }; }; }; }; }; }; SOURCE(4847, 19) (* (( (ptr) formal_c0454)+7) ) = ((* (( (ptr) (* (( (ptr) formal_c0454)+6) ))+3) ) + (* (( (ptr) (* (( (ptr) formal_c0454)+6) ))+1) )); }; } else { SOURCE(4875, 24) { word pd97; pd97 = (* (( (ptr) (* (( (ptr) gf_c0453)+91)/* var_c39392 */ ))+15) ); (* (( (ptr) formal_c0454)+7) ) = (word) ( *( (fPt) ((* (ptr) pd97 ))))((* ((( (ptr) formal_c0454)+4)) ), pd97); }; }; }; return(0); } static void Clear_P300(formal_c0549) word formal_c0549; { W5 var_c44576; /* declaration of dictName_v5580 skipped */ register ptr gf_c44608 = (ptr) &globalframe; var_c44576.f4/* dictName_v5580 */ = formal_c0549; /* Clear: */ SOURCE(4956, 125) (void) (XR_MonitorEntry((word) (( (bPt) gf_c44608)+16)/* LOCK_v3504 */ )); SOURCE(5002, 79) { word var_c0504; var_c0504 = (word) &var_c44576; (void) (word) XR_Enable(( ((word) (fPt) NoName_Q6180) ), ( ((word) (fPt) NoName_Q6720) ), var_c0504); }; SOURCE(4956, 125) (void) (XR_MonitorExit((word) (( (bPt) gf_c44608)+16)/* LOCK_v3504 */ )); return; } static word NoName_Q6180(formal_c0457) word formal_c0457; { register ptr gf_c0456 = (ptr) &globalframe; SOURCE(5025, 56) { word var_c41024; { word var_c40992; var_c40992 = (word) GetDictAtom_P360((* ((( (ptr) formal_c0457)+4)) )); { word pd98; pd98 = (* (( (ptr) (* (( (ptr) gf_c0456)+88)/* var_c39104 */ ))+9) ); var_c41024 = (word) ( *( (fPt) ((* (ptr) pd98 ))))((* (( (ptr) gf_c0456)+8)/* dictTable_v3644 */ ), var_c40992, 0, pd98) ; }; }; }; return(0); } static word GetDictAtom_P360(dictName_v5656) word dictName_v5656; { W6 var_c44640; register ptr gf_c44672 = (ptr) &globalframe; word dict_v5700; /* declaration of var_c41056 skipped */ /* GetDictAtom: */ SOURCE(5123, 203) { word tmpAddr99; tmpAddr99 = (word) (( (ptr) &var_c44640)+4)/* var_c41056 */ ; (* (ptr) tmpAddr99 ) = ( ((word) (fPt) ForceLower_P1512) ); (* (( (ptr) tmpAddr99) + 1) ) = 1; }; SOURCE(5123, 203) dict_v5700 = 0; SOURCE(5250, 76) { word var_c41120; { word pd100; pd100 = (* (( (ptr) (* (( (ptr) gf_c44672)+91)/* var_c39392 */ ))+27) ); var_c41120 = (word) ( *( (fPt) ((* (ptr) pd100 ))))(dictName_v5656, 0, 2147483647, (word) (( (bPt) &var_c44640)+16)/* var_c41056 */ , pd100) ; }; { word pd101; pd101 = (* (( (ptr) (* (( (ptr) gf_c44672)+99)/* var_c41152 */ ))+5) ); return((word) ( *( (fPt) ((* (ptr) pd101 ))))(var_c41120, 0, 2147483647, pd101)); }; }; } static word ForceLower_P1512(old_v35120, formal_c44704) word old_v35120; word formal_c44704; { word var_c35164; formal_c44704 = (formal_c44704 - 16); /* ForceLower: */ SOURCE(5183, 64) SOURCE(5219, 28) if (((old_v35120 - 65) <= 25)) { return((( SGNCK((old_v35120 - 65)) ) + 97)); } else { return(old_v35120); }; } static void ChangeRegistry_P420(change_v5760) word change_v5760; { register ptr gf_c44736 = (ptr) &globalframe; /* ChangeRegistry: */ SOURCE(5372, 132) SOURCE(5459, 45) (* (( (ptr) gf_c44736)+9)/* findEntryRegistry_v3924 */ ) = (word) ( *( (fPt) ((* (ptr) change_v5760 ))))((* ((( (ptr) gf_c44736)+9) /* findEntryRegistry_v3924 */ ) ), change_v5760); } static void Expand_P480(formal_c0224, keyNode_v5924, keyEnd_v5952, dict_v5980, event_v6008) word formal_c0224; word keyNode_v5924; word keyEnd_v5952; word dict_v5980; word event_v6008; { W18 var_c44768; register ptr gf_c44800 = (ptr) &globalframe; word foundIt_v6052; /* declaration of keyDeterminesDict_v6080 skipped */ /* declaration of keyStart_v6108 skipped */ word keyLen_v6136; word resultLen_v6164; word commands_v6192; /* declaration of var_c41184 skipped */ /* declaration of var_c41216 skipped */ /* declaration of registry_v8848 skipped */ word dictAtom_v8876; /* declaration of keyRope_v8904 skipped */ /* declaration of kLen_v8932 skipped */ /* declaration of kStart_v8960 skipped */ word entry_v8988 = 0; /* declaration of hash_v9016 skipped */ /* declaration of rdr_v9044 skipped */ /* Expand: */ SOURCE(5510, 3888) { word tmpAddr102; tmpAddr102 = (word) (( (ptr) &var_c44768)+6)/* var_c41184 */ ; (* (ptr) tmpAddr102 ) = ( ((word) (fPt) CheckCaps_P1776) ); (* (( (ptr) tmpAddr102) + 1) ) = 1; }; { word tmpAddr103; tmpAddr103 = (word) (( (ptr) &var_c44768)+8)/* var_c41216 */ ; (* (ptr) tmpAddr103 ) = ( ((word) (fPt) FindEntry_P1572) ); (* (( (ptr) tmpAddr103) + 1) ) = 1; }; SOURCE(5510, 3888) commands_v6192 = 0; SOURCE(5711, 43) (* (( (ptr) &var_c44768)+10)/* registry_v8848 */ ) = (* (( (ptr) gf_c44800)+9)/* findEntryRegistry_v3924 */ ); SOURCE(5775, 34) dictAtom_v8876 = (word) GetDictAtom_P360(dict_v5980); SOURCE(5811, 46) { word pd104; pd104 = (* (( (ptr) (* (( (ptr) gf_c44800)+96)/* var_c39872 */ ))+4) ); (* (( (ptr) &var_c44768)+11)/* keyRope_v8904 */ ) = (word) ( *( (fPt) ((* (ptr) pd104 ))))(keyNode_v5924, pd104); }; SOURCE(5919, 48) { word pd105; pd105 = (* (( (ptr) (* (( (ptr) gf_c44800)+89)/* var_c39264 */ ))+26) ); (* (( (ptr) &var_c44768)+15)/* rdr_v9044 */ ) = (word) ( *( (fPt) ((* (ptr) pd105 ))))(pd105); }; { word var_c41312; word i_v21892; SOURCE(6676, 35) (* (( (ptr) &var_c44768)+4)/* keyDeterminesDict_v6080 */ ) = 0; foundIt_v6052 = 0; SOURCE(6713, 13) resultLen_v6164 = 0; SOURCE(6728, 46) { word pd106; word x107; word x108; pd106 = (* (( (ptr) (* (( (ptr) gf_c44800)+91)/* var_c39392 */ ))+15) ); keyEnd_v5952 = (x108 = (x107 = (word) ( *( (fPt) ((* (ptr) pd106 ))))((* ((( (ptr) &var_c44768)+11)/* keyRope_v8904 */ ) ), pd106) , MIN((int)(word), keyEnd_v5952, x107)), MAX((int)(word), 0, x108)); }; SOURCE(6776, 52) { word var_c41248; var_c41248 = (word) FindKeyStart_P780((* (( (ptr) &var_c44768)+11)/* keyRope_v8904 */ ), keyEnd_v5952, (* (( (ptr) &var_c44768)+15) /* rdr_v9044 */ )); (* (( (ptr) &var_c44768)+5)/* keyStart_v6108 */ ) = var_c41248; (* (( (ptr) &var_c44768)+13)/* kStart_v8960 */ ) = var_c41248; }; SOURCE(6830, 31) keyLen_v6136 = (keyEnd_v5952 - (* (( (ptr) &var_c44768)+5)/* keyStart_v6108 */ )); (* (( (ptr) &var_c44768)+12)/* kLen_v8932 */ ) = SGNCK(keyLen_v6136); SOURCE(6863, 43) (* (( (ptr) &var_c44768)+14)/* hash_v9016 */ ) = (word) KeyHash_P540((* (( (ptr) &var_c44768)+11)/* keyRope_v8904 */ ), (* ( ( (ptr) &var_c44768)+5)/* keyStart_v6108 */ ), keyEnd_v5952, (* (( (ptr) &var_c44768)+15)/* rdr_v9044 */ )); SOURCE(6908, 44) { word rope_v36408; word index_v36436; word var_c41280; word rope_v36484; rope_v36408 = (* (( (ptr) &var_c44768)+11)/* keyRope_v8904 */ ); index_v36436 = (* (( (ptr) &var_c44768)+5)/* keyStart_v6108 */ ); { word tc109; rope_v36484 = 0; var_c41280 = (* (( (ptr) (* (( (ptr) &var_c44768)+15)/* rdr_v9044 */ ))+2) ); if (((var_c41280 == rope_v36408) )) { tc109 = (word) ( (int)((* (( (ptr) (* (( (ptr) &var_c44768)+15)/* rdr_v9044 */ ))+3) ) + (* (( (ptr) (* (( (ptr) &var_c44768)+15) /* rdr_v9044 */ ))+1) )) == (int)index_v36436); } else { tc109 = (word) 0; }; if (tc109) { goto lab_L100035; }; }; (* (( (ptr) (* (( (ptr) &var_c44768)+15)/* rdr_v9044 */ ))+2) ) = rope_v36408; (* (( (ptr) (* (( (ptr) &var_c44768)+15)/* rdr_v9044 */ ))+1) ) = 0; (* (hPt) (* (ptr) (* (( (ptr) &var_c44768)+15)/* rdr_v9044 */ ) ) ) = 0; (* (( (ptr) (* (( (ptr) &var_c44768)+15)/* rdr_v9044 */ ))+3) ) = index_v36436; lab_L100035: ; }; SOURCE(6954, 364) { word tc110; if (( (int)(* (( (ptr) &var_c44768)+5)/* keyStart_v6108 */ ) > (int)0)) { i_v21892 = (* (( (ptr) (* (( (ptr) &var_c44768)+15)/* rdr_v9044 */ ))+1) ); { word pd112; if ((i_v21892 > 0)) { { word var_c41376; word var_c41408; var_c41376 = SGNCK((i_v21892 - 1)); (* (( (ptr) (* (( (ptr) &var_c44768)+15)/* rdr_v9044 */ ))+1) ) = var_c41376; var_c41408 = (* (ptr) (* (( (ptr) &var_c44768)+15)/* rdr_v9044 */ ) ); { word limit111; var_c41312 = (word) (* ((( (bPt) var_c41408)+4)+( /*1*/ limit111 = (word) (* (( (hPt) var_c41408)+1) ), /*1*/ BCK(var_c41376, limit111) /*1*/ )) ); }; }; } else { pd112 = (* (( (ptr) (* (( (ptr) gf_c44800)+89)/* var_c39264 */ ))+17) ); var_c41312 = (word) ( *( (fPt) ((* (ptr) pd112 ))))((* (( (ptr) &var_c44768)+15)/* rdr_v9044 */ ), 1, pd112); }; }; tc110 = (word) (var_c41312 == 46); } else { tc110 = (word) 0; }; if (tc110) { SOURCE(7008, 315) { word nameStart_v9220; SOURCE(7050, 53) nameStart_v9220 = (word) FindKeyStart_P780((* (( (ptr) &var_c44768)+11)/* keyRope_v8904 */ ), ((* (( (ptr) &var_c44768)+5) /* keyStart_v6108 */ ) - 1), (* (( (ptr) &var_c44768)+15)/* rdr_v9044 */ )); SOURCE(7105, 213) if (( (int)nameStart_v9220 < (int)((* (( (ptr) &var_c44768)+5)/* keyStart_v6108 */ ) - 1))) { SOURCE(7136, 184) { word dictName_v9264; SOURCE(7138, 83) { word var_c41472; { word pd113; pd113 = (* (( (ptr) (* (( (ptr) gf_c44800)+91)/* var_c39392 */ ))+17) ); var_c41472 = (word) ( *( (fPt) ((* (ptr) pd113 ))))((* (( (ptr) &var_c44768)+11)/* keyRope_v8904 */ ), nameStart_v9220, (((* ( /*1*/ ( (ptr) &var_c44768)+5)/* keyStart_v6108 */ ) - 1) - nameStart_v9220), pd113); }; { word pd114; pd114 = (* (( (ptr) (* (( (ptr) gf_c44800)+99)/* var_c41152 */ ))+5) ); dictName_v9264 = (word) ( *( (fPt) ((* (ptr) pd114 ))))(var_c41472, 0, 2147483647, pd114); }; }; SOURCE(7223, 27) entry_v8988 = (word) FindEntry_P1572(dictName_v9264, (word) (( (bPt) &var_c44768)+32)/* var_c41216 */ ); SOURCE(7252, 24) (* (( (ptr) &var_c44768)+4)/* keyDeterminesDict_v6080 */ ) = 1; SOURCE(7278, 40) { word var_c0505; (* (( (ptr) &var_c44768)+5)/* keyStart_v6108 */ ) = nameStart_v9220; var_c0505 = nameStart_v9220; keyLen_v6136 = (keyEnd_v5952 - var_c0505); }; }; }; }; }; }; SOURCE(7326, 47) if ((entry_v8988 == 0)) { SOURCE(7346, 27) entry_v8988 = (word) FindEntry_P1572(dictAtom_v8876, (word) (( (bPt) &var_c44768)+32)/* var_c41216 */ ); }; SOURCE(7376, 61) if ((entry_v8988 == 0)) { SOURCE(7398, 30) { word pd115; pd115 = (* (( (ptr) (* (( (ptr) gf_c44800)+89)/* var_c39264 */ ))+27) ); (void) ( *( (fPt) ((* (ptr) pd115 ))))((* ((( (ptr) &var_c44768)+15)/* rdr_v9044 */ ) ), pd115); }; SOURCE(7430, 7) goto lab_L100033; }; SOURCE(7440, 1960) { word node_v9336; word child_v9364; word textLen_v9392; word root_v9420; word keyRoot_v9448; word looks_v9476; /* declaration of allcaps_v9504 skipped */ /* declaration of initialcap_v9532 skipped */ word format_v9560 = 0; SOURCE(7688, 23) node_v9336 = (* (( (ptr) entry_v8988)+3) ); SOURCE(7713, 39) { word pd116; pd116 = (* (( (ptr) (* (( (ptr) gf_c44800)+94)/* var_c39680 */ ))+28) ); child_v9364 = (word) ( *( (fPt) ((* (ptr) pd116 ))))(node_v9336, pd116); }; SOURCE(7754, 34) { word pd117; pd117 = (* (( (ptr) (* (( (ptr) gf_c44800)+95)/* var_c39712 */ ))+6) ); textLen_v9392 = (word) ( *( (fPt) ((* (ptr) pd117 ))))(node_v9336, pd117); }; SOURCE(7790, 32) { word pd118; pd118 = (* (( (ptr) (* (( (ptr) gf_c44800)+94)/* var_c39680 */ ))+9) ); root_v9420 = (word) ( *( (fPt) ((* (ptr) pd118 ))))(node_v9336, pd118); }; SOURCE(7824, 38) { word pd119; pd119 = (* (( (ptr) (* (( (ptr) gf_c44800)+94)/* var_c39680 */ ))+9) ); keyRoot_v9448 = (word) ( *( (fPt) ((* (ptr) pd119 ))))(keyNode_v5924, pd119); }; SOURCE(7864, 56) { word pd120; pd120 = (* (( (ptr) (* (( (ptr) gf_c44800)+95)/* var_c39712 */ ))+5) ); looks_v9476 = (word) ( *( (fPt) ((* (ptr) pd120 ))))(keyNode_v5924, (* (( (ptr) &var_c44768)+13)/* kStart_v8960 */ ), pd120) ; }; SOURCE(7922, 33) (* (( (ptr) &var_c44768)+16)/* allcaps_v9504 */ ) = 0; (* (( (ptr) &var_c44768)+17)/* initialcap_v9532 */ ) = 0; SOURCE(7971, 11) (void) CheckCaps_P1776((word) ((( (bPt) &var_c44768)+24)/* var_c41184 */ )); SOURCE(7984, 30) { word pd121; pd121 = (* (( (ptr) (* (( (ptr) gf_c44800)+89)/* var_c39264 */ ))+27) ); (void) ( *( (fPt) ((* (ptr) pd121 ))))((* ((( (ptr) &var_c44768)+15)/* rdr_v9044 */ ) ), pd121); }; SOURCE(8016, 182) { W2 var_c41504; { word pd122; pd122 = (* (( (ptr) (* (( (ptr) gf_c44800)+95)/* var_c39712 */ ))+31) ); (void) ( *( (fPt) ((* (ptr) pd122 ))))((word) &var_c41504, keyRoot_v9448, root_v9420, keyNode_v5924, (* (( (ptr) &var_c44768)+5) /* keyStart_v6108 */ ), keyLen_v6136 , node_v9336, 0, textLen_v9392, event_v6008, pd122); }; resultLen_v6164 = var_c41504.f1; }; SOURCE(8200, 28) if (( (int)resultLen_v6164 != (int)textLen_v9392)) { SOURCE(8228, 5) (void) XR_RaiseUnnamedError(); }; SOURCE(8235, 138) if ((looks_v9476 != 0)) { SOURCE(8265, 108) { word pd123; pd123 = (* (( (ptr) (* (( (ptr) gf_c44800)+95)/* var_c39712 */ ))+15) ); (void) ( *( (fPt) ((* (ptr) pd123 ))))(keyRoot_v9448, keyNode_v5924, 0, looks_v9476, (* (( (ptr) &var_c44768)+5)/* keyStart_v6108 */ ), textLen_v9392 , event_v6008, pd123); }; }; SOURCE(8375, 298) if ((0 != (* (( (ptr) &var_c44768)+16)/* allcaps_v9504 */ ))) { SOURCE(8391, 114) { word pd124; pd124 = (* (( (ptr) (* (( (ptr) gf_c44800)+95)/* var_c39712 */ ))+40) ); (void) ( *( (fPt) ((* (ptr) pd124 ))))(keyRoot_v9448, keyNode_v5924, (* (( (ptr) &var_c44768)+5)/* keyStart_v6108 */ ), textLen_v9392, 0, event_v6008, pd124) ; }; } else { SOURCE(8505, 168) if ( ( (0 != (* (( (ptr) &var_c44768)+17)/* initialcap_v9532 */ )) ? ( (int)textLen_v9392 > (int)0) : 0 ) ) { SOURCE(8571, 102) { word pd125; pd125 = (* (( (ptr) (* (( (ptr) gf_c44800)+95)/* var_c39712 */ ))+40) ); (void) ( *( (fPt) ((* (ptr) pd125 ))))(keyRoot_v9448, keyNode_v5924, (* (( (ptr) &var_c44768)+5)/* keyStart_v6108 */ ), 1, 0, event_v6008, pd125) ; }; }; }; SOURCE(8675, 141) { word var_c41536; { word pd126; pd126 = (* (( (ptr) (* (( (ptr) gf_c44800)+95)/* var_c39712 */ ))+26) ); format_v9560 = (word) ( *( (fPt) ((* (ptr) pd126 ))))(node_v9336, pd126); }; var_c41536 = format_v9560; { word pd128; if ((var_c41536 == 0)) { goto then0127;}; pd128 = (* (( (ptr) (* (( (ptr) gf_c44800)+95)/* var_c39712 */ ))+26) ); if ((var_c41536 == (word) ( *( (fPt) ((* (ptr) pd128 ))))(keyNode_v5924, pd128))) { then0127: ; } else { SOURCE(8774, 42) { word pd129; pd129 = (* (( (ptr) (* (( (ptr) gf_c44800)+95)/* var_c39712 */ ))+27) ); (void) ( *( (fPt) ((* (ptr) pd129 ))))(keyNode_v5924, format_v9560, event_v6008, pd129); }; }; }; }; SOURCE(8818, 534) if ((child_v9364 != 0)) { SOURCE(8838, 516) { W4 new_v9620; word last_v9648; SOURCE(8873, 177) { W4 var_c41568; { W4 var_c41600; word last_v35572; { word pd130; pd130 = (* (( (ptr) (* (( (ptr) gf_c44800)+94)/* var_c39680 */ ))+26) ); last_v35572 = (word) ( *( (fPt) ((* (ptr) pd130 ))))(node_v9336, pd130); }; var_c41600.f0 = child_v9364; var_c41600.f1 = (word) -1; var_c41600.f2 = last_v35572; var_c41600.f3 = (word) -1; var_c41568 = var_c41600; }; { W4 var_c0220; { W2 var_c41664; var_c41664.f0 = keyNode_v5924; var_c41664.f1 = (word) -1; { word pd131; pd131 = (* (( (ptr) (* (( (ptr) gf_c44800)+100)/* var_c41696 */ ))+9) ); (void) ( *( (fPt) ((* (ptr) pd131 ))))((word) &var_c0220, keyRoot_v9448, root_v9420, var_c41664, var_c41568, 1 /*1*/ , ( ( (int)textLen_v9392 == (int)0) ? 0 : 1 ) , event_v6008, pd131); }; }; new_v9620 = var_c0220; }; }; SOURCE(9052, 25) last_v9648 = new_v9620.f2; SOURCE(9079, 273) { word tc132; word pd133; if ((last_v9648 != 0)) { pd133 = (* (( (ptr) (* (( (ptr) gf_c44800)+95)/* var_c39712 */ ))+6) ); tc132 = (word) ( (int)((* (( (ptr) &var_c44768)+5)/* keyStart_v6108 */ ) + textLen_v9392) < (int)(word) ( *( (fPt) ((* (ptr) pd133 )) ))(keyNode_v5924, pd133)); } else { tc132 = (word) 0; }; if (tc132) { SOURCE(9191, 161) { W2 var_c41728; { word pd134; pd134 = (* (( (ptr) (* (( (ptr) gf_c44800)+95)/* var_c39712 */ ))+34) ); (void) ( *( (fPt) ((* (ptr) pd134 ))))((word) &var_c41728, keyRoot_v9448, keyRoot_v9448, last_v9648, 2147483647, keyNode_v5924 /*1*/ , ((* (( (ptr) &var_c44768)+5)/* keyStart_v6108 */ ) + textLen_v9392), 2147483647, event_v6008, pd134); }; }; }; }; }; }; SOURCE(9357, 14) foundIt_v6052 = 1; SOURCE(9373, 25) commands_v6192 = (* (( (ptr) entry_v8988)+4) ); }; }; /* removed tail goto */ lab_L100033: ; (* (ptr) formal_c0224 ) = foundIt_v6052; (* (( (ptr) formal_c0224)+1) ) = (* (( (ptr) &var_c44768)+4)/* keyDeterminesDict_v6080 */ ); (* (( (ptr) formal_c0224)+2) ) = (* (( (ptr) &var_c44768)+5)/* keyStart_v6108 */ ); (* (( (ptr) formal_c0224)+3) ) = keyLen_v6136; (* (( (ptr) formal_c0224)+4) ) = resultLen_v6164; (* (( (ptr) formal_c0224)+5) ) = commands_v6192; return; } static word FindEntry_P1572(dictAtom_v9148, formal_c44864) word dictAtom_v9148; word formal_c44864; { register ptr gf_c44832 = (ptr) &globalframe; word entry_v9192; formal_c44864 = (formal_c44864 - 32); /* FindEntry: */ SOURCE(5969, 699) SOURCE(5969, 699) entry_v9192 = 0; SOURCE(6035, 486) if (((* (( (ptr) formal_c44864)+10) ) != 0)) { SOURCE(6056, 488) { word key_v9736; SOURCE(6058, 66) { word pd135; pd135 = (* (( (ptr) (* (( (ptr) gf_c44832)+91)/* var_c39392 */ ))+17) ); key_v9736 = (word) ( *( (fPt) ((* (ptr) pd135 ))))((* (( (ptr) formal_c44864)+11) ), (* (( (ptr) formal_c44864)+5) ), (* ( ( (ptr) formal_c44864)+12) ), pd135); }; SOURCE(6126, 395) { register word list_v9780; list_v9780 = (* (( (ptr) formal_c44864)+10) ); lab_L100041: ; if ( ( (entry_v9192 == 0) ? (list_v9780 != 0) : 0 ) ) { } else { goto lab_L100038; }; SOURCE(6203, 318) { word var_c41760; var_c41760 = (* (( (ptr) list_v9780)+1) ); if ((var_c41760 == 0)) { goto lab_L100042; }; if (((* (( (ptr) gf_c44832)+26) ) == XR_GetReferentType(var_c41760))) { { word val_v9824; val_v9824 = var_c41760; SOURCE(6275, 248) { word proc_v9868; word kR_v9896 = 0; word node_v9924 = 0; word commands_v9952 = 0; SOURCE(6277, 45) proc_v9868 = (* (ptr) val_v9824 ); SOURCE(6373, 61) { W3 var_c41792; (void) ( *( (fPt) ((* (ptr) proc_v9868 ))))((word) &var_c41792, key_v9736, dictAtom_v9148, (* (( (ptr) formal_c44864)+4) /*1*/ ), proc_v9868); commands_v9952 = var_c41792.f2; node_v9924 = var_c41792.f1; kR_v9896 = var_c41792.f0; }; SOURCE(6436, 85) if ((kR_v9896 != 0)) { SOURCE(6451, 70) { /*1*/ word var_c41824; /*1*/ var_c41824 = XR_NewObject(20, (* (( (ptr) gf_c44832)+30) )); /*1*/ (* (( (ptr) var_c41824)+2) ) = kR_v9896; /*1*/ (* (( (ptr) var_c41824)+3) ) = node_v9924; /*1*/ (* (( (ptr) var_c41824)+4) ) = commands_v9952; /*1*/ entry_v9192 = var_c41824; /*1*/ }; }; }; }; } else { lab_L100042: ; }; }; list_v9780 = (* (( (ptr) list_v9780)+2) ); goto lab_L100041; lab_L100038: ; }; }; }; SOURCE(6547, 121) if ((entry_v9192 == 0)) { SOURCE(6565, 105) { word dict_v10092; SOURCE(6567, 31) dict_v10092 = (word) GetDict_P840(dictAtom_v9148); SOURCE(6600, 68) if ((dict_v10092 != 0)) { SOURCE(6617, 51) entry_v9192 = (word) Lookup_P600(dict_v10092, (* (( (ptr) formal_c44864)+14) ), (* (( (ptr) formal_c44864)+11) ), (* (( (ptr) formal_c44864)+5) ), (* (( (ptr) formal_c44864)+12) ), (* (( (ptr) formal_c44864)+15) ) , 0); }; }; }; SOURCE(5969, 699) return(entry_v9192); } static void CheckCaps_P1776(formal_c44928) word formal_c44928; { register ptr gf_c44896 = (ptr) &globalframe; formal_c44928 = (formal_c44928 - 24); /* CheckCaps: */ SOURCE(7452, 18) SOURCE(7472, 15) (* (( (ptr) formal_c44928)+16) ) = 0; SOURCE(7489, 42) { word reader_v36260; word rope_v36288; word index_v36316; word var_c41856; word rope_v36364; reader_v36260 = (* (( (ptr) formal_c44928)+15) ); rope_v36288 = (* (( (ptr) formal_c44928)+11) ); index_v36316 = (* (( (ptr) formal_c44928)+13) ); { word tc136; rope_v36364 = 0; var_c41856 = (* (( (ptr) reader_v36260)+2) ); if (((var_c41856 == rope_v36288) )) { tc136 = (word) ( (int)((* (( (ptr) reader_v36260)+3) ) + (* (( (ptr) reader_v36260)+1) )) == (int)index_v36316); } else { tc136 = (word) 0; }; if (tc136) { goto lab_L100044; }; }; (* (( (ptr) reader_v36260)+2) ) = rope_v36288; (* (( (ptr) reader_v36260)+1) ) = 0; (* (hPt) (* (ptr) reader_v36260 ) ) = 0; (* (( (ptr) reader_v36260)+3) ) = index_v36316; lab_L100044: ; }; SOURCE(7533, 45) { word var_c41888; word text_v36884; word i_v36912; text_v36884 = (* (ptr) (* (( (ptr) formal_c44928)+15) ) ); i_v36912 = (* (( (ptr) (* (( (ptr) formal_c44928)+15) ))+1) ); { word limit137; word pd138; if ((i_v36912 < (* (hPt) text_v36884 ))) { var_c41888 = (word) (* ((( (bPt) text_v36884)+4)+( limit137 = (word) (* (( (hPt) text_v36884)+1) ), BCK(i_v36912, limit137) )) ); } else { pd138 = (* (( (ptr) (* (( (ptr) gf_c44896)+89)/* var_c39264 */ ))+17) ); var_c41888 = (word) ( *( (fPt) ((* (ptr) pd138 ))))((* (( (ptr) formal_c44928)+15) ), 2, pd138); }; }; (* (( (ptr) formal_c44928)+17) ) = ((var_c41888 - 65) <= 25); }; SOURCE(7580, 77) { register word i_v9692 = 0; register word noName_c41952; word var_c41984; word reader_v37404; noName_c41952 = (* (( (ptr) formal_c44928)+12) ); if (( (int)i_v9692 >= (int)noName_c41952)) { goto lab_L100046; }; lab_L100049: ; SOURCE(7607, 50) reader_v37404 = (* (( (ptr) formal_c44928)+15) ); { word text_v37436; word i_v37464; text_v37436 = (* (ptr) reader_v37404 ); i_v37464 = (* (( (ptr) reader_v37404)+1) ); { word pd140; if ((i_v37464 < (* (hPt) text_v37436 ))) { (* (( (ptr) reader_v37404)+1) ) = (i_v37464 + 1); { word limit139; var_c41984 = (word) (* ((( (bPt) text_v37436)+4)+( limit139 = (word) (* (( (hPt) text_v37436)+1) ), BCK(i_v37464, limit139) )) ); }; } else { pd140 = (* (( (ptr) (* (( (ptr) gf_c44896)+89)/* var_c39264 */ ))+17) ); var_c41984 = (word) ( *( (fPt) ((* (ptr) pd140 ))))(reader_v37404, 0, pd140); }; }; }; if (((var_c41984 - 65) > 25)) { SOURCE(7651, 6) return; }; i_v9692 = (i_v9692 + 1); if (( (int)i_v9692 < (int)noName_c41952)) { goto lab_L100049; }; lab_L100046: ; }; SOURCE(7668, 14) (* (( (ptr) formal_c44928)+16) ) = 1; } static word KeyHash_P540(keyRope_v6348, keyStart_v6376, keyEnd_v6404, rdr_v6432) word keyRope_v6348; word keyStart_v6376; word keyEnd_v6404; word rdr_v6432; { register ptr gf_c44960 = (ptr) &globalframe; word h_v6476; word len_v10136; /* KeyHash: */ SOURCE(9407, 539) SOURCE(9507, 26) len_v10136 = SGNCK((keyEnd_v6404 - keyStart_v6376)); SOURCE(9535, 44) { word reader_v36112; word rope_v36140; word index_v36168; word var_c42048; word rope_v36216; reader_v36112 = rdr_v6432; rope_v36140 = keyRope_v6348; index_v36168 = keyStart_v6376; { word tc141; rope_v36216 = 0; var_c42048 = (* (( (ptr) reader_v36112)+2) ); if (((var_c42048 == rope_v36140) )) { tc141 = (word) ( (int)((* (( (ptr) reader_v36112)+3) ) + (* (( (ptr) reader_v36112)+1) )) == (int)index_v36168); } else { tc141 = (word) 0; }; if (tc141) { goto lab_L100052; }; }; (* (( (ptr) reader_v36112)+2) ) = rope_v36140; (* (( (ptr) reader_v36112)+1) ) = 0; (* (hPt) (* (ptr) reader_v36112 ) ) = 0; (* (( (ptr) reader_v36112)+3) ) = index_v36168; lab_L100052: ; }; SOURCE(9581, 5) h_v6476 = 0; SOURCE(9588, 141) { register word i_v10180 = 1; register word noName_c42080; noName_c42080 = (MIN( (unsigned) , 3, len_v10136)); if ((i_v10180 >= noName_c42080)) { goto lab_L100053; }; lab_L100056: ; SOURCE(9651, 78) { word var_c42112; word var_c42144; var_c42112 = (word) Basics_BITSHIFT(h_v6476, 2); { word var_c42176; word c_v38032; { word text_v37332; word i_v37360; text_v37332 = (* (ptr) rdr_v6432 ); i_v37360 = (* (( (ptr) rdr_v6432)+1) ); { word pd143; if ((i_v37360 < (* (hPt) text_v37332 ))) { (* (( (ptr) rdr_v6432)+1) ) = (i_v37360 + 1); { word limit142; c_v38032 = (word) (* ((( (bPt) text_v37332)+4)+( /*1*/ limit142 = (word) (* (( (hPt) text_v37332)+1) ), /*1*/ BCK(i_v37360, limit142) /*1*/ )) ); }; } else { pd143 = (* (( (ptr) (* (( (ptr) gf_c44960)+89)/* var_c39264 */ ))+17) ); c_v38032 = (word) ( *( (fPt) ((* (ptr) pd143 ))))(rdr_v6432, 0, pd143); }; }; }; if (((c_v38032 - 97) <= 25)) { var_c42176 = ((c_v38032 - 97) + 65); } else { var_c42176 = c_v38032; }; var_c42144 = var_c42176; }; h_v6476 = (word) XRM_BITXOR(var_c42112, var_c42144); }; i_v10180 = (i_v10180 + 1); if ((i_v10180 < noName_c42080)) { goto lab_L100056; }; lab_L100053: ; }; SOURCE(9740, 206) if ((len_v10136 >= 2)) { SOURCE(9788, 42) { word reader_v35964; word rope_v35992; word index_v36020; word var_c42272; word rope_v36068; reader_v35964 = rdr_v6432; rope_v35992 = keyRope_v6348; index_v36020 = keyEnd_v6404; { word tc144; rope_v36068 = 0; var_c42272 = (* (( (ptr) reader_v35964)+2) ); if (((var_c42272 == rope_v35992) )) { tc144 = (word) ( (int)((* (( (ptr) reader_v35964)+3) ) + (* (( (ptr) reader_v35964)+1) )) == (int)index_v36020); } else { tc144 = (word) 0; }; if (tc144) { goto lab_L100060; }; }; (* (( (ptr) reader_v35964)+2) ) = rope_v35992; (* (( (ptr) reader_v35964)+1) ) = 0; (* (hPt) (* (ptr) reader_v35964 ) ) = 0; (* (( (ptr) reader_v35964)+3) ) = index_v36020; lab_L100060: ; }; SOURCE(9832, 114) { register word i_v10224; register word noName_c42304; i_v10224 = SGNCK((len_v10136 - 2)); noName_c42304 = len_v10136; if ((i_v10224 >= noName_c42304)) { goto lab_L100061; }; lab_L100064: ; SOURCE(9862, 84) { word var_c42336; word var_c42368; var_c42336 = (word) Basics_BITSHIFT(h_v6476, 2); { word var_c42400; word c_v37984; { word reader_v37816; reader_v37816 = rdr_v6432; { word i_v37848; i_v37848 = (* (( (ptr) reader_v37816)+1) ); { word pd146; if ((i_v37848 > 0)) { { /*1*/ word var_c42496; /*1*/ word var_c42528; /*1*/ var_c42496 = SGNCK((i_v37848 - 1)); /*1*/ (* (( (ptr) reader_v37816)+1) ) = var_c42496; /*1*/ var_c42528 = (* (ptr) reader_v37816 ); /*1*/ { /*1*/ word limit145; /*1*/ c_v37984 = (word) (* ((( (bPt) var_c42528)+4)+( /*1*/ limit145 = (word) (* (( (hPt) var_c42528)+1) ), /*1*/ BCK(var_c42496, limit145) /*1*/ )) ); /*1*/ }; /*1*/ }; } else { pd146 = (* (( (ptr) (* (( (ptr) gf_c44960)+89)/* var_c39264 */ ))+17) ); c_v37984 = (word) ( *( (fPt) ((* (ptr) pd146 ))))(reader_v37816, 1, pd146); }; }; }; }; if (((c_v37984 - 97) <= 25)) { var_c42400 = ((c_v37984 - 97) + 65); } else { var_c42400 = c_v37984; }; var_c42368 = var_c42400; }; h_v6476 = (word) XRM_BITXOR(var_c42336, var_c42368); }; i_v10224 = (i_v10224 + 1); if ((i_v10224 < noName_c42304)) { goto lab_L100064; }; lab_L100061: ; }; }; SOURCE(9407, 539) return(h_v6476); } static word Lookup_P600(formal_c0550, formal_c0551, formal_c0552, formal_c0553, formal_c0554, formal_c0555, formal_c0556) word formal_c0550; word formal_c0551; word formal_c0552; word formal_c0553; word formal_c0554; word formal_c0555; word formal_c0556; { W12 var_c44992; /* declaration of dict_v6536 skipped */ /* declaration of hash_v6564 skipped */ /* declaration of keyRope_v6592 skipped */ /* declaration of keyStart_v6620 skipped */ /* declaration of keyLen_v6648 skipped */ /* declaration of rdr1_v6676 skipped */ /* declaration of rdr2_v6704 skipped */ register ptr gf_c45024 = (ptr) &globalframe; /* declaration of var_c08 skipped */ word entry_v6748; (* (( (ptr) &var_c44992)+4)/* dict_v6536 */ ) = formal_c0550; (* (( (ptr) &var_c44992)+5)/* hash_v6564 */ ) = formal_c0551; (* (( (ptr) &var_c44992)+6)/* keyRope_v6592 */ ) = formal_c0552; (* (( (ptr) &var_c44992)+7)/* keyStart_v6620 */ ) = formal_c0553; (* (( (ptr) &var_c44992)+8)/* keyLen_v6648 */ ) = formal_c0554; (* (( (ptr) &var_c44992)+9)/* rdr1_v6676 */ ) = formal_c0555; (* (( (ptr) &var_c44992)+10)/* rdr2_v6704 */ ) = formal_c0556; /* Lookup: */ SOURCE(9964, 244) (void) (XR_MonitorEntry((word) (( (bPt) gf_c45024)+16)/* LOCK_v3504 */ )); SOURCE(9964, 244) entry_v6748 = 0; SOURCE(10117, 91) { word var_c09; { word var_c0506; var_c0506 = (word) &var_c44992; var_c09 = (word) XR_Enable(( ((word) (fPt) NoName_Q6240) ), ( ((word) (fPt) NoName_Q6660) ), var_c0506); }; /* removed trivial cond node */ }; return((* (( (ptr) &var_c44992)+11)/* var_c08 */ )); } static word NoName_Q6240(formal_c0469) word formal_c0469; { register ptr gf_c0468 = (ptr) &globalframe; SOURCE(10140, 68) { word var_c42592; var_c42592 = (word) LookupInternal_P660((* (( (ptr) formal_c0469)+4) ), (* (( (ptr) formal_c0469)+5) ), (* (( (ptr) formal_c0469)+6) ), (* (( (ptr) formal_c0469)+7) ), (* (( (ptr) formal_c0469)+8) ), (* (( (ptr) formal_c0469)+9) ) , (* (( (ptr) formal_c0469)+10) )); (void) (XR_MonitorExit((word) (( (bPt) gf_c0468)+16)/* LOCK_v3504 */ )); (* (( (ptr) formal_c0469)+11) ) = var_c42592; return(1); }; /* c2c skipped dead code */ } static word LookupInternal_P660(dict_v6808, hash_v6836, keyRope_v6864, keyStart_v6892, keyLen_v6920, formal_c0557, formal_c0558) word dict_v6808; word hash_v6836; word keyRope_v6864; word keyStart_v6892; word keyLen_v6920; word formal_c0557; word formal_c0558; { W10 var_c45056; /* declaration of rdr1_v6948 skipped */ /* declaration of rdr2_v6976 skipped */ register ptr gf_c45088 = (ptr) &globalframe; word entry_v7020; /* declaration of var_c42624 skipped */ /* declaration of free1_v10296 skipped */ /* declaration of free2_v10324 skipped */ word pred_v10352 = 0; (* (( (ptr) &var_c45056)+4)/* rdr1_v6948 */ ) = formal_c0557; (* (( (ptr) &var_c45056)+5)/* rdr2_v6976 */ ) = formal_c0558; /* LookupInternal: */ SOURCE(10214, 930) { word tmpAddr147; tmpAddr147 = (word) (( (ptr) &var_c45056)+6)/* var_c42624 */ ; (* (ptr) tmpAddr147 ) = ( ((word) (fPt) FreeReaders_P2268) ); (* (( (ptr) tmpAddr147) + 1) ) = 1; }; SOURCE(10214, 930) entry_v7020 = 0; SOURCE(10488, 26) (* (( (ptr) &var_c45056)+8)/* free1_v10296 */ ) = 0; (* (( (ptr) &var_c45056)+9)/* free2_v10324 */ ) = 0; SOURCE(10535, 29) if ((keyLen_v6920 == 0)) { SOURCE(10552, 12) return(0); }; SOURCE(10566, 67) if (((* (( (ptr) &var_c45056)+4)/* rdr1_v6948 */ ) == 0)) { SOURCE(10585, 12) (* (( (ptr) &var_c45056)+8)/* free1_v10296 */ ) = 1; SOURCE(10599, 34) { word pd148; pd148 = (* (( (ptr) (* (( (ptr) gf_c45088)+89)/* var_c39264 */ ))+26) ); (* (( (ptr) &var_c45056)+4)/* rdr1_v6948 */ ) = (word) ( *( (fPt) ((* (ptr) pd148 ))))(pd148); }; }; SOURCE(10636, 67) if (((* (( (ptr) &var_c45056)+5)/* rdr2_v6976 */ ) == 0)) { SOURCE(10655, 12) (* (( (ptr) &var_c45056)+9)/* free2_v10324 */ ) = 1; SOURCE(10669, 34) { word pd149; pd149 = (* (( (ptr) (* (( (ptr) gf_c45088)+89)/* var_c39264 */ ))+26) ); (* (( (ptr) &var_c45056)+5)/* rdr2_v6976 */ ) = (word) ( *( (fPt) ((* (ptr) pd149 ))))(pd149); }; }; SOURCE(10706, 11) entry_v7020 = 0; SOURCE(10762, 358) { register word e_v10412; e_v10412 = dict_v6808; lab_L100072: ; if ((e_v10412 != 0)) { } else { goto lab_L100069; }; SOURCE(10805, 293) { word tc150; word pd151; if (((* (( (ptr) e_v10412)+1) ) == hash_v6836)) { pd151 = (* (( (ptr) (* (( (ptr) gf_c45088)+91)/* var_c39392 */ ))+15) ); tc150 = (word) ( (int)(word) ( *( (fPt) ((* (ptr) pd151 ))))((* ((( (ptr) e_v10412)+2)) ), pd151) == (int)keyLen_v6920); } else { tc150 = (word) 0; }; if (tc150) { SOURCE(10882, 216) { word pd152; pd152 = (* (( (ptr) (* (( (ptr) gf_c45088)+89)/* var_c39264 */ ))+25) ); if (((word) ( *( (fPt) ((* (ptr) pd152 ))))(keyRope_v6864, (* (( (ptr) e_v10412)+2) ), keyStart_v6892, keyLen_v6920, 0, keyLen_v6920 , (* (( (ptr) &var_c45056)+4)/* rdr1_v6948 */ ), (* (( (ptr) &var_c45056)+5)/* rdr2_v6976 */ ), 0, pd152) == 1)) { SOURCE(10987, 97) if ((pred_v10352 != 0)) { SOURCE(11031, 18) (* (ptr) pred_v10352 ) = (* (ptr) e_v10412 ); SOURCE(11051, 18) (* (ptr) e_v10412 ) = (* (ptr) dict_v6808 ); SOURCE(11071, 13) (* (ptr) dict_v6808 ) = e_v10412; }; SOURCE(11089, 9) entry_v7020 = e_v10412; SOURCE(11100, 4) goto lab_L100070; }; }; }; }; SOURCE(11112, 8) pred_v10352 = e_v10412; e_v10412 = (* (ptr) e_v10412 ); goto lab_L100072; lab_L100069: ; lab_L100070: ; }; SOURCE(11131, 13) (void) FreeReaders_P2268((word) ((( (bPt) &var_c45056)+24)/* var_c42624 */ )); SOURCE(10214, 930) return(entry_v7020); } static void FreeReaders_P2268(formal_c45152) word formal_c45152; { register ptr gf_c45120 = (ptr) &globalframe; formal_c45152 = (formal_c45152 - 24); /* FreeReaders: */ SOURCE(10369, 114) SOURCE(10391, 45) if ((0 != (* (( (ptr) formal_c45152)+8) ))) { SOURCE(10405, 31) { word pd153; pd153 = (* (( (ptr) (* (( (ptr) gf_c45120)+89)/* var_c39264 */ ))+27) ); (void) ( *( (fPt) ((* (ptr) pd153 ))))((* ((( (ptr) formal_c45152)+4)) ), pd153); }; }; SOURCE(10438, 45) if ((0 != (* (( (ptr) formal_c45152)+9) ))) { SOURCE(10452, 31) { word pd154; pd154 = (* (( (ptr) (* (( (ptr) gf_c45120)+89)/* var_c39264 */ ))+27) ); (void) ( *( (fPt) ((* (ptr) pd154 ))))((* ((( (ptr) formal_c45152)+5)) ), pd154); }; }; } static word FindKeyLen_P720(keyRope_v7080, rdr_v7108) word keyRope_v7080; word rdr_v7108; { register ptr gf_c45184 = (ptr) &globalframe; word len_v7152; word size_v10456; /* FindKeyLen: */ SOURCE(11150, 321) SOURCE(11227, 30) { word pd155; pd155 = (* (( (ptr) (* (( (ptr) gf_c45184)+91)/* var_c39392 */ ))+15) ); size_v10456 = (word) ( *( (fPt) ((* (ptr) pd155 ))))(keyRope_v7080, pd155); }; { word var_c42688; word c_v38128; word var_c42784; word c_v38320; SOURCE(11259, 25) if (( (int)size_v10456 == (int)0)) { SOURCE(11274, 10) return(0); }; SOURCE(11286, 37) { word reader_v35844; word rope_v35872; word var_c42656; word rope_v35920; reader_v35844 = rdr_v7108; rope_v35872 = keyRope_v7080; { word tc156; rope_v35920 = 0; var_c42656 = (* (( (ptr) reader_v35844)+2) ); if (((var_c42656 == rope_v35872) )) { tc156 = (word) ( (int)((* (( (ptr) reader_v35844)+3) ) + (* (( (ptr) reader_v35844)+1) )) == (int)0); } else { tc156 = (word) 0; }; if (tc156) { goto lab_L100074; }; }; (* (( (ptr) reader_v35844)+2) ) = rope_v35872; (* (( (ptr) reader_v35844)+1) ) = 0; (* (hPt) (* (ptr) reader_v35844 ) ) = 0; (* (( (ptr) reader_v35844)+3) ) = 0; lab_L100074: ; }; SOURCE(11325, 60) { word text_v36812; word i_v36840; text_v36812 = (* (ptr) rdr_v7108 ); i_v36840 = (* (( (ptr) rdr_v7108)+1) ); { word limit157; word pd158; if ((i_v36840 < (* (hPt) text_v36812 ))) { c_v38128 = (word) (* ((( (bPt) text_v36812)+4)+( limit157 = (word) (* (( (hPt) text_v36812)+1) ), BCK(i_v36840, limit157) )) ); } else { pd158 = (* (( (ptr) (* (( (ptr) gf_c45184)+89)/* var_c39264 */ ))+17) ); c_v38128 = (word) ( *( (fPt) ((* (ptr) pd158 ))))(rdr_v7108, 2, pd158); }; }; }; var_c42688 = ((word) (* (( (bPt) (* (ptr) (* (( (ptr) (* (( (ptr) gf_c45184)+97)/* var_c40128 */ ))+4) ) ))+c_v38128) ) == 3); if (((0 != var_c42688) )) { SOURCE(11375, 10) return(1); }; SOURCE(11387, 7) len_v7152 = 0; SOURCE(11396, 75) lab_L100079: ; { word tc159; if (( (int)len_v7152 < (int)size_v10456)) { { word text_v37260; word i_v37288; text_v37260 = (* (ptr) rdr_v7108 ); i_v37288 = (* (( (ptr) rdr_v7108)+1) ); { word pd161; if ((i_v37288 < (* (hPt) text_v37260 ))) { (* (( (ptr) rdr_v7108)+1) ) = (i_v37288 + 1); { word limit160; c_v38320 = (word) (* ((( (bPt) text_v37260)+4)+( /*1*/ limit160 = (word) (* (( (hPt) text_v37260)+1) ), /*1*/ BCK(i_v37288, limit160) /*1*/ )) ); }; } else { pd161 = (* (( (ptr) (* (( (ptr) gf_c45184)+89)/* var_c39264 */ ))+17) ); c_v38320 = (word) ( *( (fPt) ((* (ptr) pd161 ))))(rdr_v7108, 0, pd161); }; }; }; var_c42784 = ((word) (* (( (bPt) (* (ptr) (* (( (ptr) (* (( (ptr) gf_c45184)+97)/* var_c40128 */ ))+4) ) ))+c_v38320) ) == 2); tc159 = (word) (0 != var_c42784); } else { tc159 = (word) 0; }; if (tc159) { } else { goto lab_L100077; }; }; SOURCE(11460, 11) len_v7152 = (len_v7152 + 1); goto lab_L100079; lab_L100077: ; }; SOURCE(11150, 321) return(len_v7152); } static word FindKeyStart_P780(keyRope_v7212, keyEnd_v7240, rdr_v7268) word keyRope_v7212; word keyEnd_v7240; word rdr_v7268; { register ptr gf_c45216 = (ptr) &globalframe; word start_v7312; /* FindKeyStart: */ SOURCE(11486, 373) { word var_c42912; word c_v38080; word var_c43072; word c_v38272; SOURCE(11580, 55) { word pd162; pd162 = (* (( (ptr) (* (( (ptr) gf_c45216)+91)/* var_c39392 */ ))+15) ); if (( (int)(word) ( *( (fPt) ((* (ptr) pd162 ))))(keyRope_v7212, pd162) == (int)0) || ( (int)keyEnd_v7240 == (int)0)) { SOURCE(11625, 10) return(0); }; }; SOURCE(11637, 42) { word reader_v35696; word rope_v35724; word index_v35752; word var_c42880; word rope_v35800; reader_v35696 = rdr_v7268; rope_v35724 = keyRope_v7212; index_v35752 = keyEnd_v7240; { word tc163; rope_v35800 = 0; var_c42880 = (* (( (ptr) reader_v35696)+2) ); if (((var_c42880 == rope_v35724) )) { tc163 = (word) ( (int)((* (( (ptr) reader_v35696)+3) ) + (* (( (ptr) reader_v35696)+1) )) == (int)index_v35752); } else { tc163 = (word) 0; }; if (tc163) { goto lab_L100083; }; }; (* (( (ptr) reader_v35696)+2) ) = rope_v35724; (* (( (ptr) reader_v35696)+1) ) = 0; (* (hPt) (* (ptr) reader_v35696 ) ) = 0; (* (( (ptr) reader_v35696)+3) ) = index_v35752; lab_L100083: ; }; SOURCE(11681, 76) { word i_v24200; i_v24200 = (* (( (ptr) rdr_v7268)+1) ); { word pd165; if ((i_v24200 > 0)) { { word var_c42976; word var_c43008; var_c42976 = (i_v24200 - 1); var_c43008 = (* (ptr) rdr_v7268 ); { word limit164; c_v38080 = (word) (* ((( (bPt) var_c43008)+4)+( limit164 = (word) (* (( (hPt) var_c43008)+1) ), BCK(var_c42976, limit164) )) ); }; }; } else { pd165 = (* (( (ptr) (* (( (ptr) gf_c45216)+89)/* var_c39264 */ ))+17) ); c_v38080 = (word) ( *( (fPt) ((* (ptr) pd165 ))))(rdr_v7268, 3, pd165); }; }; }; var_c42912 = ((word) (* (( (bPt) (* (ptr) (* (( (ptr) (* (( (ptr) gf_c45216)+97)/* var_c40128 */ ))+4) ) ))+c_v38080) ) == 3); if (((0 != var_c42912) )) { SOURCE(11740, 17) return((keyEnd_v7240 - 1)); }; SOURCE(11759, 14) start_v7312 = keyEnd_v7240; SOURCE(11775, 84) lab_L100088: ; { word tc166; if (( (int)start_v7312 > (int)0)) { { word reader_v37740; reader_v37740 = rdr_v7268; { word i_v37772; i_v37772 = (* (( (ptr) reader_v37740)+1) ); { word pd168; if ((i_v37772 > 0)) { { word var_c43168; word var_c43200; var_c43168 = SGNCK((i_v37772 - 1)); (* (( (ptr) reader_v37740)+1) ) = var_c43168; var_c43200 = (* (ptr) reader_v37740 ); { /*1*/ word limit167; /*1*/ c_v38272 = (word) (* ((( (bPt) var_c43200)+4)+( /*1*/ limit167 = (word) (* (( (hPt) var_c43200)+1) ), /*1*/ BCK(var_c43168, limit167) /*1*/ )) ); /*1*/ }; }; } else { pd168 = (* (( (ptr) (* (( (ptr) gf_c45216)+89)/* var_c39264 */ ))+17) ); c_v38272 = (word) ( *( (fPt) ((* (ptr) pd168 ))))(reader_v37740, 1, pd168); }; }; }; }; var_c43072 = ((word) (* (( (bPt) (* (ptr) (* (( (ptr) (* (( (ptr) gf_c45216)+97)/* var_c40128 */ ))+4) ) ))+c_v38272) ) == 2); tc166 = (word) (0 != var_c43072); } else { tc166 = (word) 0; }; if (tc166) { } else { goto lab_L100086; }; }; SOURCE(11844, 15) start_v7312 = (start_v7312 - 1); goto lab_L100088; lab_L100086: ; }; SOURCE(11486, 373) return(start_v7312); } static word GetDict_P840(formal_c0559) word formal_c0559; { W8 var_c45248; /* declaration of dictName_v7372 skipped */ register ptr gf_c45280 = (ptr) &globalframe; word entry_v7416; word prop_v10500 = 0; W2 var_c0348; var_c45248.f4/* dictName_v7372 */ = formal_c0559; /* GetDict: */ SOURCE(11918, 420) SOURCE(11918, 420) entry_v7416 = 0; SOURCE(11991, 44) { word pd169; pd169 = (* (( (ptr) (* (( (ptr) gf_c45280)+88)/* var_c39104 */ ))+7) ); (void) ( *( (fPt) ((* (ptr) pd169 ))))((word) &var_c0348, (* (( (ptr) gf_c45280)+8)/* dictTable_v3644 */ ), var_c45248.f4/* dictName_v7372 */ , pd169) ; }; prop_v10500 = var_c0348.f1; SOURCE(12037, 301) { word var_c43264; word var_c43296; var_c43264 = prop_v10500; if ((var_c43264 == 0)) { goto lab_L100091; }; var_c43296 = XR_GetReferentType(var_c43264); if (((* (( (ptr) gf_c45280)+30) ) == var_c43296)) { { word x_v10556; x_v10556 = var_c43264; SOURCE(12071, 10) return(x_v10556); }; } else { if (((* (( (ptr) gf_c45280)+23) ) == var_c43296)) { { word x_v10600; x_v10600 = var_c43264; SOURCE(12094, 41) if ((x_v10600 == (* (( (ptr) gf_c45280)+42) ))) { SOURCE(12117, 18) return(0); } else { SOURCE(12135, 5) (void) XR_RaiseUnnamedError(); }; }; } else { lab_L100091: ; SOURCE(12153, 187) { word ok_v10644 = 0; SOURCE(12191, 81) SOURCE(12191, 81) { W2 var_c43392; { /* declaration of var_c43328 skipped */ var_c45248.f5/* var_c43328 */ = (word) GetFileID_P960(var_c45248.f4/* dictName_v7372 */ ); { /* declaration of var_c010 skipped */ { word var_c011; { /*1*/ word var_c0507; /*1*/ var_c0507 = (word) &var_c45248; /*1*/ var_c011 = (word) XR_Enable(( ((word) (fPt) NoName_Q6300) ), ( ((word) (fPt) NoName_Q6600) ), var_c0507); /*1*/ }; if ((var_c011 == 4)) { /*1*/ goto lab_L100093; /*1*/ }; }; var_c43392 = (* (W2Pt) (( (ptr) &var_c45248)+6)/* var_c010 */ ); }; }; ok_v10644 = var_c43392.f0; }; lab_L100093: ; SOURCE(12283, 55) if ((0 != ok_v10644)) { SOURCE(12294, 32) return((word) GetDict_P840(var_c45248.f4/* dictName_v7372 */ )); } else { SOURCE(12326, 12) return(0); }; }; }; }; }; } static word NoName_Q6300(formal_c0476) word formal_c0476; { SOURCE(12191, 81) (void) LoadInternal_P60((word) (( (bPt) formal_c0476)+24), (* (( (ptr) formal_c0476)+4) ), (* (( (ptr) formal_c0476)+5) )) ; return(0); } static word Same_P900(a_v7644, b_v7672) word a_v7644; word b_v7672; { register ptr gf_c45312 = (ptr) &globalframe; word var_c7716; /* Same: */ SOURCE(12521, 110) SOURCE(12566, 65) { word var_c0508; if (XR_EqualWords((( (ptr) a_v7644)+1), (( (ptr) b_v7672)+1), 4)) { { word var_c43488; word n1_v37908; word n2_v37936; n1_v37908 = (* (ptr) a_v7644 ); n2_v37936 = (* (ptr) b_v7672 ); { word pd170; pd170 = (* (( (ptr) (* (( (ptr) gf_c45312)+102)/* var_c43552 */ ))+11) ); var_c43488 = ((word) ( *( (fPt) ((* (ptr) pd170 ))))(n1_v37908, n2_v37936, 0, pd170) == 1); }; var_c0508 = (0 != var_c43488); }; } else { var_c0508 = 0; }; return(var_c0508); }; } static word GetFileID_P960(shortName_v7776) word shortName_v7776; { W15 var_c45344; register ptr gf_c45376 = (ptr) &globalframe; word var_c7820; word dirs_v10688; word name_v10716; word fileNamePath_v10744 = 0; W4 uid_v10772; /* GetFileID: */ SOURCE(12634, 606) SOURCE(12689, 6) { word pd171; pd171 = (* (( (ptr) (* (( (ptr) gf_c45376)+103)/* var_c43584 */ ))+7) ); dirs_v10688 = (word) ( *( (fPt) ((* (ptr) pd171 ))))((* (( (ptr) gf_c45376)+40) ), (* (( (ptr) gf_c45376)+10)/* defaultSearch_v4232 */ ), pd171) ; }; SOURCE(12777, 68) { word var_c43616; { word pd172; pd172 = (* (( (ptr) (* (( (ptr) gf_c45376)+99)/* var_c41152 */ ))+9) ); var_c43616 = (word) ( *( (fPt) ((* (ptr) pd172 ))))(shortName_v7776, pd172); }; { word pd173; pd173 = (* (( (ptr) (* (( (ptr) gf_c45376)+91)/* var_c39392 */ ))+6) ); name_v10716 = (word) ( *( (fPt) ((* (ptr) pd173 ))))(var_c43616, (* (( (ptr) gf_c45376)+41) ), pd173); }; }; SOURCE(12873, 36) uid_v10772.f0 = 2147483647; uid_v10772.f1 = 0; uid_v10772.f2 = 0; uid_v10772.f3 = 0; SOURCE(12911, 232) lab_L100099: ; if ( ( (fileNamePath_v10744 == 0) ? (dirs_v10688 != 0) : 0 ) ) { } else { goto lab_L100097; }; SOURCE(12954, 162) SOURCE(12954, 162) { W9 var_c43776; { /* declaration of var_c43680 skipped */ { word var_c43712; word var_c43744; { word pd174; pd174 = (* (( (ptr) (* (( (ptr) gf_c45376)+90)/* var_c39360 */ ))+5) ); var_c43712 = (word) ( *( (fPt) ((* (ptr) pd174 ))))(name_v10716, pd174); }; { word pd175; pd175 = (* (( (ptr) (* (( (ptr) gf_c45376)+90)/* var_c39360 */ ))+5) ); var_c43744 = (word) ( *( (fPt) ((* (ptr) pd175 ))))((* (ptr) (dirs_v10688) ), pd175); }; { word pd176; pd176 = (* (( (ptr) (* (( (ptr) gf_c45376)+90)/* var_c39360 */ ))+8) ); (* (( (ptr) &var_c45344)+4)/* var_c43680 */ ) = (word) ( *( (fPt) ((* (ptr) pd176 ))))(var_c43712, var_c43744, pd176); }; }; { /* declaration of var_c012 skipped */ (* (( (ptr) &var_c45344)+5)/* var_c012 */ ) = (* (( (ptr) (* (( (ptr) gf_c45376)+90)/* var_c39360 */ ))+12) ); { /* declaration of var_c013 skipped */ { word var_c014; { word var_c0509; var_c0509 = (word) &var_c45344; var_c014 = (word) XR_Enable(( ((word) (fPt) NoName_Q6360) ), ( ((word) (fPt) NoName_Q6540) ), var_c0509); }; if ((var_c014 == 5)) { goto lab_L100101; }; }; var_c43776 = (* (W9Pt) (( (ptr) &var_c45344)+6)/* var_c013 */ ); }; }; }; uid_v10772 = (* (W4Pt) (( (ptr) &var_c43776)+2) ); fileNamePath_v10744 = (* (ptr) &var_c43776 ); }; lab_L100101: ; SOURCE(13127, 16) dirs_v10688 = (* (( (ptr) dirs_v10688)+1) ); goto lab_L100099; lab_L100097: ; SOURCE(13154, 39) if ((fileNamePath_v10744 == 0)) { SOURCE(13181, 12) return(0); }; SOURCE(13195, 45) { word var_c43840; var_c43840 = XR_NewObject(20, (* (( (ptr) gf_c45376)+22) )); (* (ptr) var_c43840 ) = fileNamePath_v10744; (* (W4Pt) (( (ptr) var_c43840)+1) ) = uid_v10772; return(var_c43840); }; } static word NoName_Q6360(formal_c0480) word formal_c0480; { register ptr gf_c0479 = (ptr) &globalframe; SOURCE(12954, 162) { word pd177; pd177 = (* (( (ptr) formal_c0480)+5) ); (void) ( *( (fPt) ((* (ptr) pd177 ))))((word) (( (bPt) formal_c0480)+24), (* (( (ptr) formal_c0480)+4) ), (* (W4Pt) (( (ptr) gf_c0479)+84) /* var_c39072 */ ), pd177); }; return(0); } static void DoLocked_P1020(formal_c0560) word formal_c0560; { W11 var_c45408; /* declaration of action_v7896 skipped */ register ptr gf_c45440 = (ptr) &globalframe; /* declaration of var_c43872 skipped */ /* declaration of var_c43904 skipped */ /* declaration of me_v10900 skipped */ (* (( (ptr) &var_c45408)+4)/* action_v7896 */ ) = formal_c0560; /* DoLocked: */ SOURCE(13339, 423) { word tmpAddr178; tmpAddr178 = (word) (( (ptr) &var_c45408)+5)/* var_c43872 */ ; (* (ptr) tmpAddr178 ) = ( ((word) (fPt) Unlock_P2580) ); (* (( (ptr) tmpAddr178) + 1) ) = 1; }; { word tmpAddr179; tmpAddr179 = (word) (( (ptr) &var_c45408)+7)/* var_c43904 */ ; (* (ptr) tmpAddr179 ) = ( ((word) (fPt) Lock_P2520) ); (* (( (ptr) tmpAddr179) + 1) ) = 1; }; SOURCE(13380, 41) { word pd180; pd180 = (* (( (ptr) (* (( (ptr) gf_c45440)+104)/* var_c43936 */ ))+12) ); (void) ( *( (fPt) ((* (ptr) pd180 ))))((word) ((( (bPt) &var_c45408)+36)/* me_v10900 */ ), pd180); }; SOURCE(13715, 6) (void) Lock_P2520((word) ((( (bPt) &var_c45408)+28)/* var_c43904 */ )); SOURCE(13723, 29) { word var_c0510; var_c0510 = (word) &var_c45408; (void) (word) XR_Enable(( ((word) (fPt) NoName_Q6420) ), ( ((word) (fPt) NoName_Q6480) ), var_c0510); }; SOURCE(13754, 8) (void) Unlock_P2580((word) ((( (bPt) &var_c45408)+20)/* var_c43872 */ )); } static word NoName_Q6420(formal_c0482) word formal_c0482; { SOURCE(13723, 29) { word pd181; pd181 = (* (( (ptr) formal_c0482)+4) ); (void) ( *( (fPt) ((* (ptr) pd181 ))))(pd181); }; return(0); } static void Lock_P2520(formal_c45504) word formal_c45504; { register ptr gf_c45472 = (ptr) &globalframe; formal_c45504 = (formal_c45504 - 28); /* Lock: */ SOURCE(13423, 154) (void) (XR_MonitorEntry((word) (( (bPt) gf_c45472)+16)/* LOCK_v3504 */ )); SOURCE(13444, 76) lab_L100108: ; if ( ( ( ! XR_EqualWords((( (ptr) gf_c45472)+11)/* abbrLockProcess_v4372 */ , (( (ptr) formal_c45504)+9), 2)) ? ((* (( (ptr) gf_c45472)+13) /* abbrLockCount_v4400 */ ) != 0) : 0 ) ) { } else { goto lab_L100106; }; SOURCE(13495, 25) (void) (XR_Wait((word) (( (bPt) gf_c45472)+16)/* LOCK_v3504 */ , (word) (( (bPt) gf_c45472)+56)/* abbrLockFree_v4428 */ ) ); goto lab_L100108; lab_L100106: ; SOURCE(13522, 20) (* (W2Pt) (( (ptr) gf_c45472)+11)/* abbrLockProcess_v4372 */ ) = (* (W2Pt) (( (ptr) formal_c45504)+9) ); SOURCE(13544, 33) (* (( (ptr) gf_c45472)+13)/* abbrLockCount_v4400 */ ) = ((* (( (ptr) gf_c45472)+13)/* abbrLockCount_v4400 */ ) + 1); SOURCE(13423, 154) (void) (XR_MonitorExit((word) (( (bPt) gf_c45472)+16)/* LOCK_v3504 */ )); return; } static void Unlock_P2580(formal_c45568) word formal_c45568; { register ptr gf_c45536 = (ptr) &globalframe; formal_c45568 = (formal_c45568 - 20); /* Unlock: */ SOURCE(13582, 127) (void) (XR_MonitorEntry((word) (( (bPt) gf_c45536)+16)/* LOCK_v3504 */ )); SOURCE(13605, 33) (* (( (ptr) gf_c45536)+13)/* abbrLockCount_v4400 */ ) = ((* (( (ptr) gf_c45536)+13)/* abbrLockCount_v4400 */ ) - 1); SOURCE(13640, 69) if (((* (( (ptr) gf_c45536)+13)/* abbrLockCount_v4400 */ ) == 0)) { SOURCE(13667, 21) { word tmpAddr182; tmpAddr182 = (word) (( (ptr) gf_c45536)+11)/* abbrLockProcess_v4372 */ ; (* (ptr) tmpAddr182 ) = 0; (* (( (ptr) tmpAddr182) + 1) ) = 0; }; SOURCE(13690, 19) (void) (XR_Notify((word) (( (bPt) gf_c45536)+56)/* abbrLockFree_v4428 */ )); }; SOURCE(13582, 127) (void) (XR_MonitorExit((word) (( (bPt) gf_c45536)+16)/* LOCK_v3504 */ )); return; } static word ValidateAll_P1080() { W7 var_c45600; /* declaration of changed_v7972 skipped */ /* declaration of var_c43968 skipped */ /* ValidateAll: */ SOURCE(13813, 263) { word tmpAddr183; tmpAddr183 = (word) (( (ptr) &var_c45600)+5)/* var_c43968 */ ; (* (ptr) tmpAddr183 ) = ( ((word) (fPt) Locked_P2640) ); (* (( (ptr) tmpAddr183) + 1) ) = 1; }; SOURCE(13813, 263) var_c45600.f4/* changed_v7972 */ = 0; SOURCE(14060, 16) (void) DoLocked_P1020((word) ((( (bPt) &var_c45600)+20)/* var_c43968 */ )); SOURCE(13813, 263) return(var_c45600.f4/* changed_v7972 */ ); } static void Locked_P2640(formal_c45696) word formal_c45696; { W6 var_c45632; register ptr gf_c45664 = (ptr) &globalframe; /* declaration of var_c44000 skipped */ formal_c45696 = (formal_c45696 - 20); var_c45632.f0 = formal_c45696; /* Locked: */ SOURCE(13874, 181) { word tmpAddr184; tmpAddr184 = (word) (( (ptr) &var_c45632)+4)/* var_c44000 */ ; (* (ptr) tmpAddr184 ) = ( ((word) (fPt) Action_P2700) ); (* (( (ptr) tmpAddr184) + 1) ) = 1; }; SOURCE(14017, 38) { word var_c44032; word pd185; pd185 = (* (( (ptr) (* (( (ptr) gf_c45664)+88)/* var_c39104 */ ))+13) ); var_c44032 = (word) ( *( (fPt) ((* (ptr) pd185 ))))((* (( (ptr) gf_c45664)+20)/* fileForAbbr_v4484 */ ), (word) (( (bPt) &var_c45632)+16) /* var_c44000 */ , pd185); }; } static word Action_P2700(key_v11184, val_v11212, formal_c45760) word key_v11184; word val_v11212; word formal_c45760; { register ptr gf_c45728 = (ptr) &globalframe; word quit_v11280; word var_c44064; formal_c45760 = (formal_c45760 - 16); /* Action: */ SOURCE(13891, 123) SOURCE(13953, 44) var_c44064 = XR_Narrow(key_v11184, (* (( (ptr) gf_c45728)+23) )); if ((0 != (word) Validate_P1140(var_c44064))) { SOURCE(13983, 14) (* (( (ptr) (* (ptr) formal_c45760 ))+4) ) = 1; }; SOURCE(13999, 15) return(0); } static word Validate_P1140(formal_c0561) word formal_c0561; { W8 var_c45792; /* declaration of name_v8032 skipped */ /* declaration of changed_v8076 skipped */ /* declaration of var_c44096 skipped */ var_c45792.f4/* name_v8032 */ = formal_c0561; /* Validate: */ SOURCE(14082, 347) { word tmpAddr186; tmpAddr186 = (word) (( (ptr) &var_c45792)+6)/* var_c44096 */ ; (* (ptr) tmpAddr186 ) = ( ((word) (fPt) Locked_P2760) ); (* (( (ptr) tmpAddr186) + 1) ) = 1; }; SOURCE(14082, 347) var_c45792.f5/* changed_v8076 */ = 0; SOURCE(14413, 16) (void) DoLocked_P1020((word) ((( (bPt) &var_c45792)+24)/* var_c44096 */ )); SOURCE(14082, 347) return(var_c45792.f5/* changed_v8076 */ ); } static void Locked_P2760(formal_c45856) word formal_c45856; { register ptr gf_c45824 = (ptr) &globalframe; word fileID_v11368; word oldFileID_v11396; formal_c45856 = (formal_c45856 - 24); /* Locked: */ SOURCE(14153, 254) SOURCE(14170, 32) fileID_v11368 = (word) GetFileID_P960((* ((( (ptr) formal_c45856)+4)) )); SOURCE(14204, 63) { W2 var_c0394; word var_c0511; { word pd187; pd187 = (* (( (ptr) (* (( (ptr) gf_c45824)+88)/* var_c39104 */ ))+7) ); (void) ( *( (fPt) ((* (ptr) pd187 ))))((word) &var_c0394, (* (( (ptr) gf_c45824)+20)/* fileForAbbr_v4484 */ ), (* (( (ptr) formal_c45856)+4) ), pd187); }; var_c0511 = var_c0394.f1; oldFileID_v11396 = XR_Narrow(var_c0511, (* (( (ptr) gf_c45824)+22) )); }; SOURCE(14269, 138) if (((oldFileID_v11396 == 0) || (fileID_v11368 == 0)) || (0 != (word) Same_P900(fileID_v11368, oldFileID_v11396))) { SOURCE(14336, 21) (* (( (ptr) formal_c45856)+5) ) = 0; } else { SOURCE(14359, 31) { W2 var_c44128; (void) LoadInternal_P60((word) &var_c44128, (* (( (ptr) formal_c45856)+4) ), fileID_v11368); }; SOURCE(14392, 15) (* (( (ptr) formal_c45856)+5) ) = 1; }; } static void NoName_Q6480(formal_c0401, formal_c200028, formal_c200029, formal_c200030, formal_c200031) word formal_c0401; word formal_c200028; word formal_c200029; word formal_c200030; word formal_c200031; { if ((formal_c200029 == XR_Unwind)) { SOURCE(13743, 9) (void) Unlock_P2580((word) ((( (bPt) formal_c200028)+20))); }; (* (ptr) formal_c0401 ) = 0; (* (( (ptr) formal_c0401)+1) ) = 0; return; } static void NoName_Q6540(formal_c0407, formal_c200024, formal_c200025, formal_c200026, formal_c200027) word formal_c0407; word formal_c200024; word formal_c200025; word formal_c200026; word formal_c200027; { register ptr gf_c0493 = (ptr) &globalframe; if ((formal_c200025 == (* (( (ptr) (* (( (ptr) gf_c0493)+90)/* var_c39360 */ ))+9) ))) { { W4 error_v35376; error_v35376 = (* (W4Pt) formal_c200027 ); SOURCE(13116, 9) (* (ptr) formal_c0407 ) = 2; (* (( (ptr) formal_c0407)+1) ) = 5; return; }; }; (* (ptr) formal_c0407 ) = 0; (* (( (ptr) formal_c0407)+1) ) = 0; return; } static void NoName_Q6600(formal_c0414, formal_c200020, formal_c200021, formal_c200022, formal_c200023) word formal_c0414; word formal_c200020; word formal_c200021; word formal_c200022; word formal_c200023; { register ptr gf_c0494 = (ptr) &globalframe; if ((formal_c200021 == (* (( (ptr) (* (( (ptr) gf_c0494)+101)/* var_c43360 */ ))+22) ))) { { word signal_v35288; word parameters_v35316; signal_v35288 = (* (ptr) formal_c200023 ); parameters_v35316 = (* (( (ptr) formal_c200023)+1) ); SOURCE(12272, 9) (* (ptr) formal_c0414 ) = 2; (* (( (ptr) formal_c0414)+1) ) = 4; return; }; }; (* (ptr) formal_c0414 ) = 0; (* (( (ptr) formal_c0414)+1) ) = 0; return; } static void NoName_Q6660(formal_c0419, formal_c200016, formal_c200017, formal_c200018, formal_c200019) word formal_c0419; word formal_c200016; word formal_c200017; word formal_c200018; word formal_c200019; { register ptr gf_c0495 = (ptr) &globalframe; if ((formal_c200017 == XR_Unwind)) { (void) (XR_MonitorExit((word) (( (bPt) gf_c0495)+16)/* LOCK_v3504 */ )); }; (* (ptr) formal_c0419 ) = 0; (* (( (ptr) formal_c0419)+1) ) = 0; return; } static void NoName_Q6720(formal_c0424, formal_c200012, formal_c200013, formal_c200014, formal_c200015) word formal_c0424; word formal_c200012; word formal_c200013; word formal_c200014; word formal_c200015; { register ptr gf_c0496 = (ptr) &globalframe; if ((formal_c200013 == XR_Unwind)) { (void) (XR_MonitorExit((word) (( (bPt) gf_c0496)+16)/* LOCK_v3504 */ )); }; (* (ptr) formal_c0424 ) = 0; (* (( (ptr) formal_c0424)+1) ) = 0; return; } static void NoName_Q6780(formal_c0429, formal_c200008, formal_c200009, formal_c200010, formal_c200011) word formal_c0429; word formal_c200008; word formal_c200009; word formal_c200010; word formal_c200011; { register ptr gf_c0497 = (ptr) &globalframe; if ((formal_c200009 == (* (( (ptr) (* (( (ptr) gf_c0497)+89)/* var_c39264 */ ))+4) ))) { SOURCE(4237, 8) (* (ptr) formal_c0429 ) = 2; (* (( (ptr) formal_c0429)+1) ) = 3; return; }; (* (ptr) formal_c0429 ) = 0; (* (( (ptr) formal_c0429)+1) ) = 0; return; } static void NoName_Q6840(formal_c0434, formal_c200004, formal_c200005, formal_c200006, formal_c200007) word formal_c0434; word formal_c200004; word formal_c200005; word formal_c200006; word formal_c200007; { register ptr gf_c0498 = (ptr) &globalframe; if ((formal_c200005 == XR_Unwind)) { (void) (XR_MonitorExit((word) (( (bPt) gf_c0498)+16)/* LOCK_v3504 */ )); }; (* (ptr) formal_c0434 ) = 0; (* (( (ptr) formal_c0434)+1) ) = 0; return; } static void NoName_Q6900(formal_c0440, formal_c200000, formal_c200001, formal_c200002, formal_c200003) word formal_c0440; word formal_c200000; word formal_c200001; word formal_c200002; word formal_c200003; { register ptr gf_c0499 = (ptr) &globalframe; if ((formal_c200001 == (* (( (ptr) (* (( (ptr) gf_c0499)+90)/* var_c39360 */ ))+9) ))) { { W4 error_v33760; error_v33760 = (* (W4Pt) formal_c200003 ); SOURCE(2538, 61) { word pd188; pd188 = (* (( (ptr) (* (( (ptr) gf_c0499)+92)/* var_c39424 */ ))+4) ); (void) ( *( (fPt) ((* (ptr) pd188 ))))((* (( (ptr) gf_c0499)+38) ), 3, (* (( (ptr) gf_c0499)+33) ), error_v33760.f2, pd188) ; }; SOURCE(2601, 36) { word pd189; pd189 = (* (( (ptr) (* (( (ptr) gf_c0499)+92)/* var_c39424 */ ))+7) ); (void) ( *( (fPt) ((* (ptr) pd189 ))))((* (( (ptr) gf_c0499)+38) ), (* (( (ptr) gf_c0499)+33) ), pd189); }; SOURCE(2639, 8) (* (ptr) formal_c0440 ) = 2; (* (( (ptr) formal_c0440)+1) ) = 2; return; }; }; (* (ptr) formal_c0440 ) = 0; (* (( (ptr) formal_c0440)+1) ) = 0; return; } /* file: AbbrevExpandImpl, module: AbbrevExpandImpl, compiled at: March 13, 1992 11:30:38 am PST */ extern void XR_install_AbbrevExpandImpl() { NoName_Q5940(); } extern void XR_run_AbbrevExpandImpl() { XR_Start(&globalframe); }