/* Generated with C2C (Cedar To C)*/ /* Copyright (C) 1992 by Xerox Corporation. All rights reserved. */ /* time: March 16, 1992 3:02:21 pm PST */ /* C2C version: October 16, 1990 (native) */ /* ref-counting: off */ /* file: TiogaOps2Impl, module: TiogaOps2Impl */ /* switches: bcfhklnouw */ #include #include static char versionStamp[] = "@(#)mob_version [576254350,83180952] TiogaOps2Impl"; 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; word r;} W9; typedef struct {word f0, f1;} W2; typedef W2 *W2Pt; typedef struct {word f0, f1, f2, f3, f4, f5;} W6; typedef struct {W8 f; W6 r;} W14; typedef struct {W8 f; W8 r;} W16; typedef struct {W16 f; W9 r;} W25; typedef struct {word f0, f1, f2;} W3; typedef struct {W8 f; W3 r;} W11; typedef struct {word f0, f1, f2, f3;} W4; typedef struct {W16 f; W2 r;} W18; typedef struct {unsigned u1:7, f:1;} * P1x7b; typedef struct {unsigned u1:8, f:24;} * P24x8w; typedef W4 *W4Pt; #define SOURCE(p, l) /* source p, l */ #define MAX(cast, x, y) ( ( cast x) > ( cast y) ? (x) : (y) ) static void NoName_Q4836(); static void TiogaOps2Impl_P0(); static word MakeName_P60(); static word CreateGeneralPattern_P120(); static word NoName_Q4896(); static word CreateSimplePattern_P180(); static word SelectionSearch_P240(); static void Found_P4296(); static void Locations_P4356(); static void NodeSearch_P300(); static void Found_P4416(); static void Locations_P4476(); static word DoSearch_P360(); static void DoLookForPattern_P4536(); static void Forwards_P4596(); static void Backwards_P4656(); static word SelectMatchingBrackets_P420(); static void NextPlaceholder_P480(); static word NextViewer_P540(); static void Position_P600(); static void Normalize_P660(); static void PrevPlace_P720(); static void Reselect_P780(); static void Save_P840(); static void Load_P900(); static word Open_P960(); static word CloseAndOpen_P1020(); static void LoadImpl_P1080(); static word OpenImpl_P1140(); static word CloseAndOpenImpl_P1200(); static void LoadPreviousFile_P1260(); static void OpenPreviousFile_P1320(); static void CloseAndOpenPreviousFile_P1380(); static void DefaultMenus_P1440(); static void Store_P1500(); static word New_P1560(); static void Empty_P1620(); static word CloseAndNewViewer_P1680(); static void Reset_P1740(); static void Jump_P1800(); static void FirstLevelOnly_P1860(); static void MoreLevels_P1920(); static void FewerLevels_P1980(); static void AllLevels_P2040(); static word GetRope_P2100(); static word Parent_P2160(); static word Root_P2220(); static word Next_P2280(); static word Previous_P2340(); static word StepForward_P2400(); static word StepBackward_P2460(); static word FirstSibling_P2520(); static word LastSibling_P2580(); static word LastWithin_P2640(); static void LastLocWithin_P2700(); static word FirstChild_P2760(); static word LastChild_P2820(); static word IsDirty_P2880(); static word IsNew_P2940(); static void ClearDirty_P3000(); static void ClearNew_P3060(); static word ViewerDoc_P3120(); static void PutProp_P3180(); static word GetProp_P3240(); static void RemProp_P3300(); static word MapProps_P3360(); static void RegisterPropProc_P3420(); static word NullRead_P3480(); static word NullWrite_P3540(); static word NullCopy_P3600(); static word NodeOrder_P3660(); static word CompareLocOrder_P3720(); static word CompareNodeOrder_P3780(); static word GetFile_P3840(); static void PutFile_P3900(); static void FreeTree_P3960(); static void SelectPoint_P4020(); static void RegisterCommand_P4080(); static void UnRegisterCommand_P4140(); static void NoName_Q4956(); static struct {unsigned f; char r[16];} string1 = {851984, "\257\300\042\130\361\216\300\004\365\075\230\100\200\000\000"}; static struct {unsigned f; char r[4];} string2 = {65537, "\001\000\000"}; static struct {unsigned f; char r[16];} string3 = {851984, "\257\300\136\253\306\024\300\100\114\357\174\106\150\000\000"}; static struct {unsigned f; char r[4];} string4 = {196611, "\004F\201"}; 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[16];} string6 = {851984, "\257\300\343\357\262\137\300\144\166\356\317\100\164\000\000"}; static struct {unsigned f; char r[16];} string7 = {851981, "\006\005\000\001\004\001\054\001\070\001\100\114\001\000\000"}; static struct {unsigned f; char r[8];} string8 = {327688, "**#**\000\000"}; static struct {unsigned f; char r[32];} string9 = {1966112, " Using looks from first char.\000"}; static struct {unsigned f; char r[12];} string10 = {589836, "ViewerDoc\000\000"}; static struct {unsigned f; char r[44];} string11 = {2818092, "Search pattern does not have uniform looks."}; static struct {unsigned f; char r[16];} string12 = {851984, "\257\300\042\130\361\216\300\004\365\075\230\100\164\000\000"}; static struct {unsigned f; char r[8];} string13 = {262148, "\004\200x\000\000\000\000"}; static struct {unsigned f; char r[16];} string14 = {851984, "\257\300\055\153\222\376\300\327\164\352\142\100\150\000\000"}; static struct {unsigned f; char r[16];} string15 = {851984, "\257\300\004\173\141\246\300\255\256\170\002\100\150\000\000"}; static struct {unsigned f; char r[16];} string16 = {851984, "\257\300\074\270\063\045\300\023\342\016\224\100\150\000\000"}; static struct {unsigned f; char r[16];} string17 = {851984, "\257\300\234\060\361\073\300\103\025\207\123\100\150\000\000"}; static struct {unsigned f; char r[16];} string18 = {851984, "\257\300\375\366\273\111\300\156\046\321\053\100\150\000\000"}; static struct {unsigned f; char r[16];} string19 = {851984, "\257\300\141\260\110\353\300\162\250\066\353\100\150\000\000"}; static struct {unsigned f; char r[16];} string20 = {851984, "\257\300\363\223\326\161\300\017\164\046\072\100\150\000\000"}; static struct {unsigned f; char r[16];} string21 = {851984, "\257\300\343\357\262\137\300\144\166\356\317\100\150\000\000"}; static struct {unsigned f; char r[16];} string22 = {851984, "\257\300\165\053\345\211\300\333\235\216\021\100\150\000\000"}; static struct {unsigned f; char r[16];} string23 = {851984, "\257\300\013\141\323\354\300\341\005\243\127\100\150\000\000"}; static struct {unsigned f; char r[16];} string24 = {851984, "\257\300\146\107\314\260\300\352\117\305\000\100\150\000\000"}; static struct {unsigned f; char r[16];} string25 = {851984, "\257\300\351\360\047\051\300\272\273\201\332\100\150\000\000"}; static struct {unsigned f; char r[16];} string26 = {851984, "\257\300R-\356\251\300YX]$@h\000\000"}; static struct {unsigned f; char r[16];} string27 = {851984, "\257\300\071\221\120\257\300\230\321\322\204\100\150\000\000"}; static struct {unsigned f; char r[16];} string28 = {851984, "\257\300\255\037\131\057\300\313\250\372\104\100\150\000\000"}; static struct {unsigned f; char r[16];} string29 = {851984, "\257\300\343\112\327\166\300\041\341\335\211\100\150\000\000"}; static struct {unsigned f; char r[16];} string30 = {851984, "\257\300\261\010\310\246\300\337\340\027\051\100\150\000\000"}; static struct {unsigned f; char r[16];} string31 = {851984, "\257\3004+\202s\300vm?\203@h\000\000"}; static struct {unsigned f; char r[16];} string32 = {851984, "\257\300\350\261\325\141\300\201\034\054\100\100\150\000\000"}; static struct {unsigned f; char r[16];} string33 = {851984, "\257\300\115\337\006\176\300\345\373\131\011\100\164\000\000"}; static struct {unsigned f; char r[16];} string34 = {851984, "\257\300\042\224\360\026\300\243\254\175\360\100\150\000\000"}; static struct {unsigned f; char r[16];} string35 = {851984, "\257\300\254\115\304\364\300\360\125\113\107\100\150\000\000"}; static struct {unsigned f; char r[16];} string36 = {851984, "\257\300\233\251\177\064\300\273\157\236\236\100\150\000\000"}; static struct {unsigned f; char r[8];} string37 = {1416195943, "aOps"}; static struct {unsigned f; char r[16];} string38 = {851984, "\257\300\136\253\306\024\300\100\114\357\174\100\150\000\000"}; static struct {unsigned f; char r[24];} string39 = {1441816, "\211\012\011\106\151\156\144\145\162\122\145\143\300\136\253\306\024\300\100\114\357\174\000"}; static struct {unsigned f; char r[16];} string40 = {851984, "\257\300\054\221\365\223\300\171\063\250\230\100\150\000\000"}; static struct {unsigned f; char r[16];} string41 = {851984, "\257\300hqQB\300Vy\362\001@h\000\000"}; static struct { word f0[16]; word f16; word f17; word f18; word f19; word f20; word f21; word f22; word f23; word f24; word f25; word f26; word f27; word f28; word f29; word f30; word f31; word f32; word f33; word f34; word f35; word f36; word f37; word f38; word f39; word f40; word f41; word f42; word f43; 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; word f86; word f87; word f88; word f89; word f90; word f91; word f92; word f93; word f94; word f95; word f96; word f97; word f98; word f99; word f100; word f101; word f102; word f103; word f104; word f105; word f106; word f107; word f108; word f109; word f110; word f111; word f112; word f113; word f114; word f115; word f116; word f117; word f118; word f119; word f120; word f121; word f122; word f123; word f124; word f125; word f126; word f127; word f128; word f129; word f130; word f131; word f132; word f133; word f134; word f135; word f136; word f137; word f138; word f139; word f140; word f141; word f142; word f143; word f144; word f145; word f146; word f147; word f148; word f149; word f150; word f151; word f152; word f153; word f154; word f155; word f156; word f157[28]; } globalframe = { {0}, (word) UnRegisterCommand_P4140, 0, (word) RegisterCommand_P4080, 0, (word) SelectPoint_P4020, 0, (word) FreeTree_P3960, 0, (word) PutFile_P3900, 0, (word) GetFile_P3840, 0, (word) CompareNodeOrder_P3780, 0, (word) CompareLocOrder_P3720, 0, (word) NodeOrder_P3660, 0, (word) NullCopy_P3600, 0, (word) NullWrite_P3540, 0, (word) NullRead_P3480, 0, (word) RegisterPropProc_P3420, 0, (word) MapProps_P3360, 0, (word) RemProp_P3300, 0, (word) GetProp_P3240, 0, (word) PutProp_P3180, 0, (word) ViewerDoc_P3120, 0, (word) ClearNew_P3060, 0, (word) ClearDirty_P3000, 0, (word) IsNew_P2940, 0, (word) IsDirty_P2880, 0, (word) LastChild_P2820, 0, (word) FirstChild_P2760, 0, (word) LastLocWithin_P2700, 0, (word) LastWithin_P2640, 0, (word) LastSibling_P2580, 0, (word) FirstSibling_P2520, 0, (word) StepBackward_P2460, 0, (word) StepForward_P2400, 0, (word) Previous_P2340, 0, (word) Next_P2280, 0, (word) Root_P2220, 0, (word) Parent_P2160, 0, (word) GetRope_P2100, 0, (word) AllLevels_P2040, 0, (word) FewerLevels_P1980, 0, (word) MoreLevels_P1920, 0, (word) FirstLevelOnly_P1860, 0, (word) Jump_P1800, 0, (word) Reset_P1740, 0, (word) CloseAndNewViewer_P1680, 0, (word) Empty_P1620, 0, (word) New_P1560, 0, (word) Store_P1500, 0, (word) DefaultMenus_P1440, 0, (word) CloseAndOpenPreviousFile_P1380, 0, (word) OpenPreviousFile_P1320, 0, (word) LoadPreviousFile_P1260, 0, (word) CloseAndOpenImpl_P1200, 0, (word) OpenImpl_P1140, 0, (word) LoadImpl_P1080, 0, (word) CloseAndOpen_P1020, 0, (word) Open_P960, 0, (word) Load_P900, 0, (word) Save_P840, 0, (word) Reselect_P780, 0, (word) PrevPlace_P720, 0, (word) Normalize_P660, 0, (word) Position_P600, 0, (word) NextViewer_P540, 0, (word) NextPlaceholder_P480, 0, (word) SelectMatchingBrackets_P420, 0, (word) DoSearch_P360, 0, (word) NodeSearch_P300, 0, (word) SelectionSearch_P240, 0, (word) CreateSimplePattern_P180, 0, (word) CreateGeneralPattern_P120, 0, (word) MakeName_P60, 0, (word) TiogaOps2Impl_P0, 0, 2147483647, {0} }; static void NoName_Q4836() { register ptr gf_c0396 = (ptr) &globalframe; word var_c44796; (* (( (ptr) gf_c0396)+4) ) = (word) XR_GetTypeIndex((word) &string1, 0, (word) &string2); (* (( (ptr) gf_c0396)+5) ) = (word) XR_GetTypeIndex((word) &string3, 0, (word) &string4); (* (( (ptr) gf_c0396)+7) ) = (word) XR_GetTypeIndex((word) &string5, 0, (word) &string2); (* (( (ptr) gf_c0396)+9) ) = (word) XR_GetTypeIndex((word) &string6, 0, (word) &string7); (* (ptr) (( (bPt) gf_c0396)+44) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0396)+7) ), (word) &string8); (* (ptr) (( (bPt) gf_c0396)+48) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0396)+7) ), (word) &string9); (* (ptr) (( (bPt) gf_c0396)+52) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0396)+7) ), (word) &string10); (* (ptr) (( (bPt) gf_c0396)+56) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0396)+7) ), (word) &string11); (void) XR_DeclareGlobalFrame((word) "TiogaOps2Impl", &globalframe, (word) XR_GetTypeIndex((word) &string12, 0, (word) &string13) , (word) (( (bPt) gf_c0396)+616)/* var_c41532 */ ); var_c44796 = (word) XR_ImportInterface((word) "Atom", (word) XR_GetTypeIndexS((word) (&string14)), 16); (* (( (ptr) gf_c0396)+161)/* var_c41692 */ ) = var_c44796; (void) XR_ImportProcS(var_c44796, 67372289); (void) XR_ImportProcS(var_c44796, 67895555); var_c44796 = (word) XR_ImportInterface((word) "EditSpan", (word) XR_GetTypeIndexS((word) (&string15)), 23); (* (( (ptr) gf_c0396)+180)/* var_c44444 */ ) = var_c44796; (void) XR_ImportProcS(var_c44796, 67637762); var_c44796 = (word) XR_ImportInterface((word) "MessageWindow", (word) XR_GetTypeIndexS((word) (&string16)), 7); (* (( (ptr) gf_c0396)+164)/* var_c41820 */ ) = var_c44796; (void) XR_ImportProcS(var_c44796, 524546); var_c44796 = (word) XR_ImportInterface((word) "NodeProps", (word) XR_GetTypeIndexS((word) (&string17)), 28); (* (( (ptr) gf_c0396)+179)/* var_c44156 */ ) = var_c44796; (void) XR_ImportProcS(var_c44796, 67638274); (void) XR_ImportProcS(var_c44796, 67638018); (void) XR_ImportProcS(var_c44796, 67637762); (void) XR_ImportProcS(var_c44796, 1052932); (void) XR_ImportProcS(var_c44796, 68158212); (void) XR_ImportProcS(var_c44796, 67633410); (void) XR_ImportProcS(var_c44796, 786435); var_c44796 = (word) XR_ImportInterface((word) "NodeStyleOps", (word) XR_GetTypeIndexS((word) (&string18)), 23); (* (( (ptr) gf_c0396)+165)/* var_c41948 */ ) = var_c44796; (void) XR_ImportProcS(var_c44796, 67375105); var_c44796 = (word) XR_ImportInterface((word) "PFS", (word) XR_GetTypeIndexS((word) (&string19)), 40); (* (( (ptr) gf_c0396)+181)/* var_c44636 */ ) = var_c44796; (void) XR_ImportProcS(var_c44796, 67371265); var_c44796 = (word) XR_ImportInterface((word) "Rope", (word) XR_GetTypeIndexS((word) (&string20)), 43); (* (( (ptr) gf_c0396)+160)/* var_c41660 */ ) = var_c44796; (void) XR_ImportProcS(var_c44796, 67373313); var_c44796 = (word) XR_ImportInterface((word) "TEditDocument", (word) XR_GetTypeIndexS((word) (&string21)), 6); (* (( (ptr) gf_c0396)+178)/* var_c44092 */ ) = var_c44796; (void) XR_ImportProcS(var_c44796, 262657); (void) XR_ImportProcS(var_c44796, 68157700); var_c44796 = (word) XR_ImportInterface((word) "TEditDocumentPrivate", (word) XR_GetTypeIndexS((word) (&string22)), 67); (* (( (ptr) gf_c0396)+175)/* var_c43164 */ ) = var_c44796; (void) XR_ImportProcS(var_c44796, 1321221); (void) XR_ImportProcS(var_c44796, 67374337); (void) XR_ImportProcS(var_c44796, 264449); (void) XR_ImportProcS(var_c44796, 67635970); (void) XR_ImportProcS(var_c44796, 532738); (void) XR_ImportProcS(var_c44796, 533250); (void) XR_ImportProcS(var_c44796, 269825); (void) XR_ImportProcS(var_c44796, 269569); (void) XR_ImportProcS(var_c44796, 269313); (void) XR_ImportProcS(var_c44796, 67638530); (void) XR_ImportProcS(var_c44796, 67900163); (void) XR_ImportProcS(var_c44796, 67901699); (void) XR_ImportProcS(var_c44796, 68161284); (void) XR_ImportProcS(var_c44796, 68163332); (void) XR_ImportProcS(var_c44796, 1321477); (void) XR_ImportProcS(var_c44796, 1312005); (void) XR_ImportProcS(var_c44796, 1312261); var_c44796 = (word) XR_ImportInterface((word) "TEditInput", (word) XR_GetTypeIndexS((word) (&string23)), 44); (* (( (ptr) gf_c0396)+170)/* var_c42300 */ ) = var_c44796; (void) XR_ImportProcS(var_c44796, 527618); (void) XR_ImportProcS(var_c44796, 789507); (void) XR_ImportProcS(var_c44796, 269825); (void) XR_ImportProcS(var_c44796, 134487809); (void) XR_ImportProcS(var_c44796, 134488577); (void) XR_ImportProcS(var_c44796, 134488321); (void) XR_ImportProcS(var_c44796, 134488065); (void) XR_ImportProcS(var_c44796, 134489345); var_c44796 = (word) XR_ImportInterface((word) "TEditInputOps", (word) XR_GetTypeIndexS((word) (&string24)), 66); (* (( (ptr) gf_c0396)+172)/* var_c42492 */ ) = var_c44796; (void) XR_ImportProcS(var_c44796, 67382529); (void) XR_ImportProcS(var_c44796, 135802630); (void) XR_ImportProcS(var_c44796, 67644162); (void) XR_ImportProcS(var_c44796, 524290); var_c44796 = (word) XR_ImportInterface((word) "TEditOps", (word) XR_GetTypeIndexS((word) (&string25)), 12); (* (( (ptr) gf_c0396)+169)/* var_c42268 */ ) = var_c44796; (void) XR_ImportProcS(var_c44796, 263681); var_c44796 = (word) XR_ImportInterface((word) "TEditProfile", (word) XR_GetTypeIndexS((word) (&string26)), 19); (* (( (ptr) gf_c0396)+173)/* var_c42652 */ ) = var_c44796; var_c44796 = (word) XR_ImportInterface((word) "TEditRefresh", (word) XR_GetTypeIndexS((word) (&string27)), 3); (* (( (ptr) gf_c0396)+171)/* var_c42332 */ ) = var_c44796; (void) XR_ImportProcS(var_c44796, 786947); var_c44796 = (word) XR_ImportInterface((word) "TEditScrolling", (word) XR_GetTypeIndexS((word) (&string28)), 3); (* (( (ptr) gf_c0396)+176)/* var_c43452 */ ) = var_c44796; (void) XR_ImportProcS(var_c44796, 1048835); var_c44796 = (word) XR_ImportInterface((word) "TEditSelection", (word) XR_GetTypeIndexS((word) (&string29)), 68); (* (( (ptr) gf_c0396)+168)/* var_c42236 */ ) = var_c44796; (void) XR_ImportProcS(var_c44796, 278017); (void) XR_ImportProcS(var_c44796, 1316101); (void) XR_ImportProcS(var_c44796, 279041); var_c44796 = (word) XR_ImportInterface((word) "TextEdit", (word) XR_GetTypeIndexS((word) (&string30)), 39); (* (( (ptr) gf_c0396)+162)/* var_c41756 */ ) = var_c44796; (void) XR_ImportProcS(var_c44796, 67376641); (void) XR_ImportProcS(var_c44796, 1837831); (void) XR_ImportProcS(var_c44796, 67373313); (void) XR_ImportProcS(var_c44796, 67633410); (void) XR_ImportProcS(var_c44796, 67371521); var_c44796 = (word) XR_ImportInterface((word) "TextEditBogus", (word) XR_GetTypeIndexS((word) (&string31)), 1); (* (( (ptr) gf_c0396)+177)/* var_c43644 */ ) = var_c44796; (void) XR_ImportProcS(var_c44796, 67371009); var_c44796 = (word) XR_ImportInterface((word) "TextFind", (word) XR_GetTypeIndexS((word) (&string32)), 12); (* (( (ptr) gf_c0396)+167)/* var_c42076 */ ) = var_c44796; var_c44796 = (word) XR_ImportInterface((word) "TextLooks", (word) XR_GetTypeIndexS((word) (&string33)), 8); (* (( (ptr) gf_c0396)+163)/* var_c41788 */ ) = var_c44796; (void) XR_ImportProcS(var_c44796, 67372545); var_c44796 = (word) XR_ImportInterface((word) "TextNode", (word) XR_GetTypeIndexS((word) (&string34)), 34); (* (( (ptr) gf_c0396)+174)/* var_c42748 */ ) = var_c44796; (void) XR_ImportProcS(var_c44796, 67377409); (void) XR_ImportProcS(var_c44796, 67377153); (void) XR_ImportProcS(var_c44796, 134485761); (void) XR_ImportProcS(var_c44796, 67376641); (void) XR_ImportProcS(var_c44796, 67376385); (void) XR_ImportProcS(var_c44796, 67376129); (void) XR_ImportProcS(var_c44796, 67634946); (void) XR_ImportProcS(var_c44796, 67372545); (void) XR_ImportProcS(var_c44796, 67372289); (void) XR_ImportProcS(var_c44796, 67372033); (void) XR_ImportProcS(var_c44796, 67635970); (void) XR_ImportProcS(var_c44796, 67373569); var_c44796 = (word) XR_ImportInterface((word) "TiogaFind", (word) XR_GetTypeIndexS((word) (&string35)), 5); (* (( (ptr) gf_c0396)+166)/* var_c42044 */ ) = var_c44796; (void) XR_ImportProcS(var_c44796, 273154320); (void) XR_ImportProcS(var_c44796, 68157444); var_c44796 = (word) XR_ImportInterface((word) "TiogaIO", (word) XR_GetTypeIndexS((word) (&string36)), 17); (* (( (ptr) gf_c0396)+182)/* var_c44668 */ ) = var_c44796; (void) XR_ImportProcS(var_c44796, 403180546); (void) XR_ImportProcS(var_c44796, 403966722); var_c44796 = (word) XR_ImportInterface((word) &string37, (word) XR_GetTypeIndexS((word) (&string38)), 128); (* (( (ptr) gf_c0396)+183)/* var_c44764 */ ) = var_c44796; (void) XR_ImportProcS(var_c44796, 2374919); var_c44796 = (word) XR_ExportInterface((word) &string37, (word) XR_GetTypeIndexS((word) (&string38)), 128); (* (( (ptr) gf_c0396)+184)/* var_c44828 */ ) = var_c44796; (void) XR_ExportProcS(var_c44796, (word) (( (bPt) gf_c0396)+560)/* var_c41308 */ , 67646722); (void) XR_ExportProcS(var_c44796, (word) (( (bPt) gf_c0396)+552)/* var_c41276 */ , 135804422); (void) XR_ExportProcS(var_c44796, (word) (( (bPt) gf_c0396)+544)/* var_c41244 */ , 67385089); (void) XR_ExportProcS(var_c44796, (word) (( (bPt) gf_c0396)+80)/* var_c39388 */ , 1064451); (void) XR_ExportProcS(var_c44796, (word) (( (bPt) gf_c0396)+336)/* var_c40412 */ , 67390721); (void) XR_ExportProcS(var_c44796, (word) (( (bPt) gf_c0396)+328)/* var_c40380 */ , 67390977); (void) XR_ExportProcS(var_c44796, (word) (( (bPt) gf_c0396)+320)/* var_c40348 */ , 67391233); (void) XR_ExportProcS(var_c44796, (word) (( (bPt) gf_c0396)+312)/* var_c40316 */ , 67391489); (void) XR_ExportProcS(var_c44796, (word) (( (bPt) gf_c0396)+304)/* var_c40284 */ , 67653890); (void) XR_ExportProcS(var_c44796, (word) (( (bPt) gf_c0396)+296)/* var_c40252 */ , 67392001); (void) XR_ExportProcS(var_c44796, (word) (( (bPt) gf_c0396)+288)/* var_c40220 */ , 67654402); (void) XR_ExportProcS(var_c44796, (word) (( (bPt) gf_c0396)+280)/* var_c40188 */ , 67392513); (void) XR_ExportProcS(var_c44796, (word) (( (bPt) gf_c0396)+272)/* var_c40156 */ , 67392769); (void) XR_ExportProcS(var_c44796, (word) (( (bPt) gf_c0396)+264)/* var_c40124 */ , 67393025); (void) XR_ExportProcS(var_c44796, (word) (( (bPt) gf_c0396)+248)/* var_c40060 */ , 67393281); (void) XR_ExportProcS(var_c44796, (word) (( (bPt) gf_c0396)+240)/* var_c40028 */ , 67393537); (void) XR_ExportProcS(var_c44796, (word) (( (bPt) gf_c0396)+200)/* var_c39868 */ , 67393793); (void) XR_ExportProcS(var_c44796, (word) (( (bPt) gf_c0396)+256)/* var_c40092 */ , 134503681); (void) XR_ExportProcS(var_c44796, (word) (( (bPt) gf_c0396)+376)/* var_c40572 */ , 810498); (void) XR_ExportProcS(var_c44796, (word) (( (bPt) gf_c0396)+192)/* var_c39836 */ , 810755); (void) XR_ExportProcS(var_c44796, (word) (( (bPt) gf_c0396)+184)/* var_c39804 */ , 67657730); (void) XR_ExportProcS(var_c44796, (word) (( (bPt) gf_c0396)+232)/* var_c39996 */ , 67398657); (void) XR_ExportProcS(var_c44796, (word) (( (bPt) gf_c0396)+224)/* var_c39964 */ , 67398913); (void) XR_ExportProcS(var_c44796, (word) (( (bPt) gf_c0396)+216)/* var_c39932 */ , 290305); (void) XR_ExportProcS(var_c44796, (word) (( (bPt) gf_c0396)+208)/* var_c39900 */ , 290561); (void) XR_ExportProcS(var_c44796, (word) (( (bPt) gf_c0396)+120)/* var_c39548 */ , 68186114); (void) XR_ExportProcS(var_c44796, (word) (( (bPt) gf_c0396)+112)/* var_c39516 */ , 67662082); (void) XR_ExportProcS(var_c44796, (word) (( (bPt) gf_c0396)+584)/* var_c41404 */ , 68974087); (void) XR_ExportProcS(var_c44796, (word) (( (bPt) gf_c0396)+576)/* var_c41372 */ , 338458377); (void) XR_ExportProcS(var_c44796, (word) (( (bPt) gf_c0396)+592)/* var_c41436 */ , 68450309); (void) XR_ExportProcS(var_c44796, (word) (( (bPt) gf_c0396)+600)/* var_c41468 */ , 70023435); (void) XR_ExportVar(var_c44796, 122, (word) (( (bPt) gf_c0396)+60)/* var_c39292 */ ); (void) XR_ExportType((word) "FinderRec", (word) XR_GetTypeIndexS((word) (&string39)), (word) XR_GetTypeIndex((word) &string1, 0, (word) &string2) ); (void) XR_ExportProcS(var_c44796, (word) (( (bPt) gf_c0396)+72)/* var_c39356 */ , 818179); var_c44796 = (word) XR_ExportInterface((word) "TiogaMenuOps", (word) XR_GetTypeIndexS((word) (&string40)), 25); (* (( (ptr) gf_c0396)+184)/* var_c44828 */ ) = var_c44796; (void) XR_ExportProcS(var_c44796, (word) (( (bPt) gf_c0396)+536)/* var_c41212 */ , 262145); (void) XR_ExportProcS(var_c44796, (word) (( (bPt) gf_c0396)+528)/* var_c41180 */ , 262401); (void) XR_ExportProcS(var_c44796, (word) (( (bPt) gf_c0396)+520)/* var_c41148 */ , 262657); (void) XR_ExportProcS(var_c44796, (word) (( (bPt) gf_c0396)+512)/* var_c41116 */ , 262913); (void) XR_ExportProcS(var_c44796, (word) (( (bPt) gf_c0396)+504)/* var_c41084 */ , 263169); (void) XR_ExportProcS(var_c44796, (word) (( (bPt) gf_c0396)+496)/* var_c41052 */ , 787715); (void) XR_ExportProcS(var_c44796, (word) (( (bPt) gf_c0396)+488)/* var_c41020 */ , 67896835); (void) XR_ExportProcS(var_c44796, (word) (( (bPt) gf_c0396)+480)/* var_c40988 */ , 67897091); (void) XR_ExportProcS(var_c44796, (word) (( (bPt) gf_c0396)+472)/* var_c40956 */ , 526338); (void) XR_ExportProcS(var_c44796, (word) (( (bPt) gf_c0396)+464)/* var_c40924 */ , 67635458); (void) XR_ExportProcS(var_c44796, (word) (( (bPt) gf_c0396)+456)/* var_c40892 */ , 67635714); (void) XR_ExportProcS(var_c44796, (word) (( (bPt) gf_c0396)+448)/* var_c40860 */ , 264961); (void) XR_ExportProcS(var_c44796, (word) (( (bPt) gf_c0396)+440)/* var_c40828 */ , 265217); (void) XR_ExportProcS(var_c44796, (word) (( (bPt) gf_c0396)+432)/* var_c40796 */ , 265473); (void) XR_ExportProcS(var_c44796, (word) (( (bPt) gf_c0396)+416)/* var_c40732 */ , 527874); (void) XR_ExportProcS(var_c44796, (word) (( (bPt) gf_c0396)+400)/* var_c40668 */ , 265985); (void) XR_ExportProcS(var_c44796, (word) (( (bPt) gf_c0396)+408)/* var_c40700 */ , 67375105); (void) XR_ExportProcS(var_c44796, (word) (( (bPt) gf_c0396)+392)/* var_c40636 */ , 67375361); (void) XR_ExportProcS(var_c44796, (word) (( (bPt) gf_c0396)+384)/* var_c40604 */ , 266753); (void) XR_ExportProcS(var_c44796, (word) (( (bPt) gf_c0396)+368)/* var_c40540 */ , 267009); (void) XR_ExportProcS(var_c44796, (word) (( (bPt) gf_c0396)+360)/* var_c40508 */ , 267265); (void) XR_ExportProcS(var_c44796, (word) (( (bPt) gf_c0396)+352)/* var_c40476 */ , 267521); (void) XR_ExportProcS(var_c44796, (word) (( (bPt) gf_c0396)+344)/* var_c40444 */ , 267777); (void) XR_ExportProcS(var_c44796, (word) (( (bPt) gf_c0396)+424)/* var_c40764 */ , 530178); var_c44796 = (word) XR_ExportInterface((word) "TiogaExtraOps", (word) XR_GetTypeIndexS((word) (&string41)), 18); (* (( (ptr) gf_c0396)+184)/* var_c44828 */ ) = var_c44796; (void) XR_ExportProcS(var_c44796, (word) (( (bPt) gf_c0396)+192)/* var_c39836 */ , 786691); (void) XR_ExportProcS(var_c44796, (word) (( (bPt) gf_c0396)+184)/* var_c39804 */ , 67633666); (void) XR_ExportProcS(var_c44796, (word) (( (bPt) gf_c0396)+176)/* var_c39772 */ , 525058); (void) XR_ExportProcS(var_c44796, (word) (( (bPt) gf_c0396)+168)/* var_c39740 */ , 68158468); (void) XR_ExportProcS(var_c44796, (word) (( (bPt) gf_c0396)+160)/* var_c39708 */ , 1049860); (void) XR_ExportProcS(var_c44796, (word) (( (bPt) gf_c0396)+152)/* var_c39676 */ , 67634690); (void) XR_ExportProcS(var_c44796, (word) (( (bPt) gf_c0396)+144)/* var_c39644 */ , 67634946); (void) XR_ExportProcS(var_c44796, (word) (( (bPt) gf_c0396)+136)/* var_c39612 */ , 67635202); (void) XR_ExportProcS(var_c44796, (word) (( (bPt) gf_c0396)+104)/* var_c39484 */ , 67374593); (void) XR_ExportProcS(var_c44796, (word) (( (bPt) gf_c0396)+96)/* var_c39452 */ , 528130); (void) XR_ExportProcS(var_c44796, (word) (( (bPt) gf_c0396)+88)/* var_c39420 */ , 266241); (void) XR_ExportProcS(var_c44796, (word) (( (bPt) gf_c0396)+64)/* var_c39324 */ , 528642); } static void TiogaOps2Impl_P0(formal_c0105, formal_c0104) word formal_c0105; word formal_c0104; { /* TiogaOps2Impl: */ /* moved to installation proc */ } static word MakeName_P60(r_v6244) word r_v6244; { register ptr gf_c44860 = (ptr) &globalframe; word var_c6288; /* MakeName: */ SOURCE(2567, 96) SOURCE(2611, 52) { word pd42; word pd43; pd42 = (* (( (ptr) (* (( (ptr) gf_c44860)+160)/* var_c41660 */ ))+13) ); if ((0 != (word) ( *( (fPt) ((* (ptr) pd42 ))))(r_v6244, pd42))) { return(0); } else { pd43 = (* (( (ptr) (* (( (ptr) gf_c44860)+161)/* var_c41692 */ ))+5) ); return((word) ( *( (fPt) ((* (ptr) pd43 ))))(r_v6244, 0, 2147483647, pd43)); }; }; } static word CreateGeneralPattern_P120(target_v6408, text_v6436, looks_v6464, format_v6492, style_v6520, comment_v6548, case_v6576, formal_c0486, word_v6632, subset_v6660, addBounds_v6688) word target_v6408; word text_v6436; word looks_v6464; word format_v6492; word style_v6520; word comment_v6548; word case_v6576; word formal_c0486; word word_v6632; word subset_v6660; word addBounds_v6688; { W8 var_c44892; /* declaration of literal_v6604 skipped */ register ptr gf_c44924 = (ptr) &globalframe; word pattern_v6732; word txt_v14228; /* declaration of patternTxt_v14256 skipped */ var_c44892.f4/* literal_v6604 */ = formal_c0486; /* CreateGeneralPattern: */ SOURCE(2740, 2093) SOURCE(2740, 2093) pattern_v6732 = 0; SOURCE(3461, 18) txt_v14228 = target_v6408; SOURCE(3481, 22) var_c44892.f5/* patternTxt_v14256 */ = txt_v14228; SOURCE(3505, 34) pattern_v6732 = XR_NewObject(44, (* (( (ptr) gf_c44924)+5) )); SOURCE(3541, 559) if ( ( (0 != looks_v6464) ? (0 == text_v6436) : 0 ) ) { SOURCE(3565, 537) { word size_v14300; word lks_v14328; SOURCE(3616, 30) { word pd44; pd44 = (* (( (ptr) (* (( (ptr) gf_c44924)+162)/* var_c41756 */ ))+6) ); size_v14300 = (word) ( *( (fPt) ((* (ptr) pd44 ))))(txt_v14228, pd44); }; SOURCE(3648, 67) { word tc45; word pd46; if (( (int)size_v14300 == (int)0)) { tc45 = (word) 0; } else { pd46 = (* (( (ptr) (* (( (ptr) gf_c44924)+162)/* var_c41756 */ ))+5) ); tc45 = (word) ( *( (fPt) ((* (ptr) pd46 ))))(txt_v14228, 0, pd46); }; lks_v14328 = tc45; }; SOURCE(3717, 48) { word pd47; pd47 = (* (( (ptr) (* (( (ptr) gf_c44924)+163)/* var_c41788 */ ))+10) ); (* (( (ptr) pattern_v6732)+10) ) = (word) ( *( (fPt) ((* (ptr) pd47 ))))(lks_v14328, pd47); }; SOURCE(3767, 196) { register word i_v14372 = 1; if (( (int)i_v14372 >= (int)size_v14300)) { goto lab_L100000; }; lab_L100003: ; SOURCE(3794, 169) { word pd48; pd48 = (* (( (ptr) (* (( (ptr) gf_c44924)+162)/* var_c41756 */ ))+5) ); if (((word) ( *( (fPt) ((* (ptr) pd48 ))))(txt_v14228, i_v14372, pd48) != lks_v14328)) { SOURCE(3835, 72) { word pd49; pd49 = (* (( (ptr) (* (( (ptr) gf_c44924)+164)/* var_c41820 */ ))+5) ); (void) ( *( (fPt) ((* (ptr) pd49 ))))((* (( (ptr) gf_c44924)+14) ), 1, pd49); }; SOURCE(3909, 54) { word pd50; pd50 = (* (( (ptr) (* (( (ptr) gf_c44924)+164)/* var_c41820 */ ))+5) ); (void) ( *( (fPt) ((* (ptr) pd50 ))))((* (( (ptr) gf_c44924)+12) ), 0, pd50); }; SOURCE(3965, 6) goto lab_L100001; }; }; i_v14372 = (i_v14372 + 1); if (( (int)i_v14372 < (int)size_v14300)) { goto lab_L100003; }; lab_L100000: ; lab_L100001: ; }; SOURCE(3983, 15) var_c44892.f4/* literal_v6604 */ = 0; SOURCE(4000, 39) { word pd51; pd51 = (* (( (ptr) (* (( (ptr) gf_c44924)+162)/* var_c41756 */ ))+13) ); var_c44892.f5/* patternTxt_v14256 */ = (word) ( *( (fPt) ((* (ptr) pd51 ))))((* ((( (ptr) gf_c44924)+11)) ), pd51); }; SOURCE(4041, 59) { word pd52; pd52 = (* (( (ptr) (* (( (ptr) gf_c44924)+162)/* var_c41756 */ ))+15) ); (void) ( *( (fPt) ((* (ptr) pd52 ))))(0, var_c44892.f5/* patternTxt_v14256 */ , 0, lks_v14328, 0, 2147483647 , 0, pd52); }; }; }; SOURCE(4105, 19) (* (( (ptr) pattern_v6732)+1) ) = text_v6436; SOURCE(4126, 21) (* (( (ptr) pattern_v6732)+2) ) = looks_v6464; SOURCE(4149, 19) (* (( (ptr) pattern_v6732)+4) ) = word_v6632; SOURCE(4170, 28) (* (( (ptr) pattern_v6732)+3) ) = (0 == subset_v6660); SOURCE(4200, 127) if ((0 == comment_v6548) || (txt_v14228 == 0)) { (* (( (ptr) pattern_v6732)+5) ) = 0; } else { if (*((int*)txt_v14228 + 9)<0) { (* (( (ptr) pattern_v6732)+5) ) = 2; } else { (* (( (ptr) pattern_v6732)+5) ) = 1; }; }; SOURCE(4329, 28) (* (( (ptr) pattern_v6732)+6) ) = format_v6492; SOURCE(4359, 58) { word var_c41852; { word pd53; pd53 = (* (( (ptr) (* (( (ptr) gf_c44924)+162)/* var_c41756 */ ))+26) ); var_c41852 = (word) ( *( (fPt) ((* (ptr) pd53 ))))(target_v6408, pd53); }; { word pd54; pd54 = (* (( (ptr) (* (( (ptr) gf_c44924)+161)/* var_c41692 */ ))+9) ); (* (( (ptr) pattern_v6732)+7) ) = (word) ( *( (fPt) ((* (ptr) pd54 ))))(var_c41852, pd54); }; }; SOURCE(4419, 26) (* (( (ptr) pattern_v6732)+8) ) = style_v6520; SOURCE(4447, 92) { word var_c41884; if ((0 == style_v6520)) { var_c41884 = 0; } else { { word var_c41916; { word pd55; pd55 = (* (( (ptr) (* (( (ptr) gf_c44924)+165)/* var_c41948 */ ))+20) ); var_c41916 = (word) ( *( (fPt) ((* (ptr) pd55 ))))(target_v6408, pd55); }; { word pd56; pd56 = (* (( (ptr) (* (( (ptr) gf_c44924)+161)/* var_c41692 */ ))+9) ); var_c41884 = (word) ( *( (fPt) ((* (ptr) pd56 ))))(var_c41916, pd56); }; }; }; (* (( (ptr) pattern_v6732)+9) ) = var_c41884; }; SOURCE(4541, 292) if (((0 != text_v6436) || (0 != looks_v6464))) { SOURCE(4563, 270) SOURCE(4604, 125) { word var_c41980; { word var_c42012; word var_c42108; { /* declaration of var_c01 skipped */ var_c44892.f6/* var_c01 */ = (* (( (ptr) (* (( (ptr) gf_c44924)+166)/* var_c42044 */ ))+4) ); { /* declaration of var_c02 skipped */ { word var_c03; { word var_c0473; var_c0473 = (word) &var_c44892; var_c03 = (word) XR_Enable(( ((word) (fPt) NoName_Q4896) ), ( ((word) (fPt) NoName_Q4956) ), var_c0473); }; if ((var_c03 == 2)) { goto lab_L100004; }; }; var_c42012 = var_c44892.f7/* var_c02 */ ; }; }; var_c42108 = XR_NewObject(12, (* (( (ptr) gf_c44924)+4) )); (* (ptr) var_c42108 ) = var_c42012; (* (( (ptr) var_c42108)+1) ) = case_v6576; (* (( (ptr) var_c42108)+2) ) = addBounds_v6688; var_c41980 = var_c42108; }; (* (ptr) pattern_v6732 ) = var_c41980; }; goto lab_L100007; lab_L100004: ; SOURCE(4802, 29) { word var_c0131 = 6; (void) XR_RaiseError((word) (( (bPt) gf_c44924)+60)/* var_c39292 */ , (word) &var_c0131); }; lab_L100007: ; }; SOURCE(2740, 2093) return(pattern_v6732); } static word NoName_Q4896(formal_c0399) word formal_c0399; { SOURCE(4604, 125) { word pd57; pd57 = (* (( (ptr) formal_c0399)+6) ); (* (( (ptr) formal_c0399)+7) ) = (word) ( *( (fPt) ((* (ptr) pd57 ))))((* (( (ptr) formal_c0399)+5) ), 0, 2147483647, (0 == (* ( ( (ptr) formal_c0399)+4) )), pd57); }; return(0); } static word CreateSimplePattern_P180(target_v6792, case_v6820, literal_v6848, word_v6876, addBounds_v6904) word target_v6792; word case_v6820; word literal_v6848; word word_v6876; word addBounds_v6904; { register ptr gf_c44956 = (ptr) &globalframe; word pattern_v6948; /* CreateSimplePattern: */ SOURCE(4840, 497) SOURCE(4840, 497) pattern_v6948 = 0; SOURCE(5210, 127) { word var_c42140; { word pd58; pd58 = (* (( (ptr) (* (( (ptr) gf_c44956)+162)/* var_c41756 */ ))+13) ); var_c42140 = (word) ( *( (fPt) ((* (ptr) pd58 ))))(target_v6792, pd58); }; return((word) CreateGeneralPattern_P120(var_c42140, 1, 0, 0, 0, 0 , case_v6820, literal_v6848, word_v6876, 1, addBounds_v6904)); }; } static word SelectionSearch_P240(pattern_v7008, whichDir_v7036, interrupt_v7064, startBoundaryNode_v7092, endBoundaryNode_v7120, startBoundaryOffset_v7148, endBoundaryOffset_v7176) word pattern_v7008; word whichDir_v7036; word interrupt_v7064; word startBoundaryNode_v7092; word endBoundaryNode_v7120; word startBoundaryOffset_v7148; word endBoundaryOffset_v7176; { W9 var_c44988; register ptr gf_c45020 = (ptr) &globalframe; word found_v7232; /* declaration of var_c42172 skipped */ /* declaration of var_c42204 skipped */ /* declaration of pSel_v14416 skipped */ /* SelectionSearch: */ SOURCE(5343, 858) { word tmpAddr59; tmpAddr59 = (word) (( (ptr) &var_c44988)+4)/* var_c42172 */ ; (* (ptr) tmpAddr59 ) = ( ((word) (fPt) Locations_P4356) ); (* (( (ptr) tmpAddr59) + 1) ) = 1; }; { word tmpAddr60; tmpAddr60 = (word) (( (ptr) &var_c44988)+6)/* var_c42204 */ ; (* (ptr) tmpAddr60 ) = ( ((word) (fPt) Found_P4296) ); (* (( (ptr) tmpAddr60) + 1) ) = 1; }; SOURCE(5609, 51) (* (( (ptr) &var_c44988)+8)/* pSel_v14416 */ ) = (* (ptr) (* (( (ptr) (* (( (ptr) gf_c45020)+168)/* var_c42236 */ ))+4) ) ); SOURCE(6059, 142) found_v7232 = (word) DoSearch_P360(pattern_v7008, whichDir_v7036, interrupt_v7064, (word) (( (bPt) &var_c44988)+24)/* var_c42204 */ , (word) ( ( (bPt) &var_c44988)+16)/* var_c42172 */ , startBoundaryNode_v7092 , endBoundaryNode_v7120, startBoundaryOffset_v7148, endBoundaryOffset_v7176); SOURCE(5343, 858) return(found_v7232); } static void Found_P4296(tSel_v14548, formal_c45084) word tSel_v14548; word formal_c45084; { register ptr gf_c45052 = (ptr) &globalframe; formal_c45084 = (formal_c45084 - 24); /* Found: */ SOURCE(5662, 296) SOURCE(5710, 25) (* (ptr) tSel_v14548 ) = (* (ptr) (* (( (ptr) formal_c45084)+8) ) ); SOURCE(5737, 21) (* (( (ptr) tSel_v14548)+1) ) = (* (( (ptr) (* (( (ptr) formal_c45084)+8) ))+1) ); SOURCE(5760, 45) { word pd61; pd61 = (* (( (ptr) (* (( (ptr) gf_c45052)+169)/* var_c42268 */ ))+10) ); (void) ( *( (fPt) ((* (ptr) pd61 ))))((* (ptr) ((* (( (ptr) formal_c45084)+8) )) ), pd61); }; SOURCE(5807, 32) { word pd62; pd62 = (* (( (ptr) (* (( (ptr) gf_c45052)+168)/* var_c42236 */ ))+70) ); (void) ( *( (fPt) ((* (ptr) pd62 ))))(tSel_v14548, pd62); }; SOURCE(5841, 39) { word pd63; pd63 = (* (( (ptr) (* (( (ptr) gf_c45052)+168)/* var_c42236 */ ))+25) ); (void) ( *( (fPt) ((* (ptr) pd63 ))))(tSel_v14548, 0, 0, 0, 1, pd63); }; SOURCE(5882, 23) (* (ptr) (* (( (ptr) (* (( (ptr) gf_c45052)+170)/* var_c42300 */ ))+12) ) ) = 1; SOURCE(5907, 51) { word pd64; pd64 = (* (( (ptr) (* (( (ptr) gf_c45052)+171)/* var_c42332 */ ))+6) ); (void) ( *( (fPt) ((* (ptr) pd64 ))))((* (ptr) tSel_v14548 ), 0, 0, pd64); }; } static void Locations_P4356(formal_c0153, formal_c45116) word formal_c0153; word formal_c45116; { W2 start_v14608; W2 end_v14636; formal_c45116 = (formal_c45116 - 16); /* Locations: */ SOURCE(5961, 95) SOURCE(5961, 95) start_v14608.f0 = 0; start_v14608.f1 = 0; SOURCE(5961, 95) end_v14636.f0 = 0; end_v14636.f1 = 0; SOURCE(6012, 22) start_v14608 = (* (W2Pt) (( (ptr) (* (( (ptr) formal_c45116)+8) ))+2) ); SOURCE(6036, 20) end_v14636 = (* (W2Pt) (( (ptr) (* (( (ptr) formal_c45116)+8) ))+11) ); /* removed tail goto */ (* (W2Pt) formal_c0153 ) = start_v14608; (* (W2Pt) (( (ptr) formal_c0153)+2) ) = end_v14636; return; } static void NodeSearch_P300(formal_c0168, pattern_v7292, whichDir_v7320, formal_c0487, endLoc_v7376, interrupt_v7404, startBoundaryNode_v7432, endBoundaryNode_v7460, startBoundaryOffset_v7488, endBoundaryOffset_v7516) word formal_c0168; word pattern_v7292; word whichDir_v7320; W2 formal_c0487; W2 endLoc_v7376; word interrupt_v7404; word startBoundaryNode_v7432; word endBoundaryNode_v7460; word startBoundaryOffset_v7488; word endBoundaryOffset_v7516; { W14 var_c45148; /* declaration of startLoc_v7348 skipped */ word found_v7572; /* declaration of start_v7600 skipped */ /* declaration of end_v7628 skipped */ /* declaration of var_c42364 skipped */ /* declaration of var_c42396 skipped */ (* (W2Pt) (( (ptr) &var_c45148)+4)/* startLoc_v7348 */ ) = formal_c0487; /* NodeSearch: */ SOURCE(6204, 638) { word tmpAddr65; tmpAddr65 = (word) (( (ptr) &var_c45148)+10)/* var_c42364 */ ; (* (ptr) tmpAddr65 ) = ( ((word) (fPt) Locations_P4476) ); (* (( (ptr) tmpAddr65) + 1) ) = 1; }; { word tmpAddr66; tmpAddr66 = (word) (( (ptr) &var_c45148)+12)/* var_c42396 */ ; (* (ptr) tmpAddr66 ) = ( ((word) (fPt) Found_P4416) ); (* (( (ptr) tmpAddr66) + 1) ) = 1; }; SOURCE(6204, 638) (* (( (ptr) &var_c45148)+6) ) = 0; (* (( (ptr) &var_c45148)+7) ) = 0; SOURCE(6204, 638) (* (( (ptr) &var_c45148)+8) ) = 0; (* (( (ptr) &var_c45148)+9) ) = 0; SOURCE(6700, 142) found_v7572 = (word) DoSearch_P360(pattern_v7292, whichDir_v7320, interrupt_v7404, (word) (( (bPt) &var_c45148)+48)/* var_c42396 */ , (word) ( ( (bPt) &var_c45148)+40)/* var_c42364 */ , startBoundaryNode_v7432 , endBoundaryNode_v7460, startBoundaryOffset_v7488, endBoundaryOffset_v7516); /* removed tail goto */ (* (ptr) formal_c0168 ) = found_v7572; (* (W2Pt) (( (ptr) formal_c0168)+1) ) = (* (W2Pt) (( (ptr) &var_c45148)+6)/* start_v7600 */ ); (* (W2Pt) (( (ptr) formal_c0168)+3) ) = (* (W2Pt) (( (ptr) &var_c45148)+8)/* end_v7628 */ ); return; } static void Found_P4416(tSel_v14768, formal_c45180) word tSel_v14768; word formal_c45180; { formal_c45180 = (formal_c45180 - 48); /* Found: */ SOURCE(6515, 90) SOURCE(6563, 22) (* (W2Pt) (( (ptr) formal_c45180)+6) ) = (* (W2Pt) (( (ptr) tSel_v14768)+2) ); SOURCE(6587, 18) (* (W2Pt) (( (ptr) formal_c45180)+8) ) = (* (W2Pt) (( (ptr) tSel_v14768)+11) ); } static void Locations_P4476(formal_c0172, formal_c45212) word formal_c0172; word formal_c45212; { W2 start_v14828; W2 end_v14856; formal_c45212 = (formal_c45212 - 40); /* Locations: */ SOURCE(6611, 84) SOURCE(6611, 84) start_v14828.f0 = 0; start_v14828.f1 = 0; SOURCE(6611, 84) end_v14856.f0 = 0; end_v14856.f1 = 0; SOURCE(6662, 33) start_v14828 = (* (W2Pt) (( (ptr) formal_c45212)+4) ); /* removed bogus assignment */ /* removed tail goto */ (* (W2Pt) formal_c0172 ) = start_v14828; (* (W2Pt) (( (ptr) formal_c0172)+2) ) = end_v14856; return; } static word DoSearch_P360(formal_c0488, formal_c0489, formal_c0490, formal_c0491, formal_c0492, formal_c0493, formal_c0494, formal_c0495, formal_c0496) word formal_c0488; word formal_c0489; word formal_c0490; word formal_c0491; word formal_c0492; word formal_c0493; word formal_c0494; word formal_c0495; word formal_c0496; { W25 var_c45244; /* declaration of pattern_v7688 skipped */ /* declaration of whichDir_v7716 skipped */ /* declaration of interrupt_v7744 skipped */ /* declaration of foundProc_v7772 skipped */ /* declaration of locationProc_v7800 skipped */ /* declaration of startBoundaryNode_v7828 skipped */ /* declaration of endBoundaryNode_v7856 skipped */ /* declaration of startBoundaryOffset_v7884 skipped */ /* declaration of endBoundaryOffset_v7912 skipped */ register ptr gf_c45276 = (ptr) &globalframe; /* declaration of found_v8116 skipped */ /* declaration of var_c42428 skipped */ /* declaration of at_v14884 skipped */ /* declaration of atEnd_v14912 skipped */ /* declaration of offset_v14940 skipped */ /* declaration of first_v14968 skipped */ /* declaration of where_v14996 skipped */ /* declaration of startLoc_v15024 skipped */ /* declaration of endLoc_v15052 skipped */ (* (( (ptr) &var_c45244)+4)/* pattern_v7688 */ ) = formal_c0488; (* (( (ptr) &var_c45244)+5)/* whichDir_v7716 */ ) = formal_c0489; (* (( (ptr) &var_c45244)+6)/* interrupt_v7744 */ ) = formal_c0490; (* (( (ptr) &var_c45244)+7)/* foundProc_v7772 */ ) = formal_c0491; (* (( (ptr) &var_c45244)+8)/* locationProc_v7800 */ ) = formal_c0492; (* (( (ptr) &var_c45244)+9)/* startBoundaryNode_v7828 */ ) = formal_c0493; (* (( (ptr) &var_c45244)+10)/* endBoundaryNode_v7856 */ ) = formal_c0494; (* (( (ptr) &var_c45244)+11)/* startBoundaryOffset_v7884 */ ) = formal_c0495; (* (( (ptr) &var_c45244)+12)/* endBoundaryOffset_v7912 */ ) = formal_c0496; /* DoSearch: */ SOURCE(6846, 2854) { word tmpAddr67; tmpAddr67 = (word) (( (ptr) &var_c45244)+14)/* var_c42428 */ ; (* (ptr) tmpAddr67 ) = ( ((word) (fPt) DoLookForPattern_P4536) ); (* (( (ptr) tmpAddr67) + 1) ) = 1; }; SOURCE(6846, 2854) (* (( (ptr) &var_c45244)+13)/* found_v8116 */ ) = 0; SOURCE(7205, 26) (* (( (ptr) &var_c45244)+16)/* at_v14884 */ ) = 0; (* (( (ptr) &var_c45244)+17)/* atEnd_v14912 */ ) = 0; (* (( (ptr) &var_c45244)+18)/* offset_v14940 */ ) = 0; SOURCE(7233, 11) (* (( (ptr) &var_c45244)+19)/* first_v14968 */ ) = 0; SOURCE(7246, 11) (* (( (ptr) &var_c45244)+20)/* where_v14996 */ ) = 0; SOURCE(7259, 26) (* (( (ptr) &var_c45244)+21) ) = 0; (* (( (ptr) &var_c45244)+22) ) = 0; (* (W2Pt) (( (ptr) &var_c45244)+23)/* endLoc_v15052 */ ) = (* (W2Pt) (( (ptr) &var_c45244)+21)/* startLoc_v15024 */ ); SOURCE(9647, 53) { word pd68; pd68 = (* (( (ptr) (* (( (ptr) gf_c45276)+172)/* var_c42492 */ ))+4) ); (void) ( *( (fPt) ((* (ptr) pd68 ))))((word) (( (bPt) &var_c45244)+56)/* var_c42428 */ , 0, pd68); }; SOURCE(6846, 2854) return((* (( (ptr) &var_c45244)+13)/* found_v8116 */ )); } static void DoLookForPattern_P4536(root_v15156, tSel_v15184, formal_c45372) word root_v15156; word tSel_v15184; word formal_c45372; { W11 var_c45308; register ptr gf_c45340 = (ptr) &globalframe; /* declaration of var_c42524 skipped */ /* declaration of var_c42556 skipped */ word finder_v15212; /* declaration of target_v15240 skipped */ /* declaration of case_v15268 skipped */ /* declaration of match_v15296 skipped */ formal_c45372 = (formal_c45372 - 56); (* (ptr) &var_c45308 ) = formal_c45372; /* DoLookForPattern: */ SOURCE(7288, 2353) { word tmpAddr69; tmpAddr69 = (word) (( (ptr) &var_c45308)+4)/* var_c42524 */ ; (* (ptr) tmpAddr69 ) = ( ((word) (fPt) Backwards_P4656) ); (* (( (ptr) tmpAddr69) + 1) ) = 1; }; { word tmpAddr70; tmpAddr70 = (word) (( (ptr) &var_c45308)+6)/* var_c42556 */ ; (* (ptr) tmpAddr70 ) = ( ((word) (fPt) Forwards_P4596) ); (* (( (ptr) tmpAddr70) + 1) ) = 1; }; SOURCE(7359, 31) finder_v15212 = (* (ptr) (* (( (ptr) formal_c45372)+4) ) ); SOURCE(7392, 67) (* (( (ptr) &var_c45308)+8)/* target_v15240 */ ) = ( (finder_v15212 != 0) ? (* (ptr) finder_v15212 ) : 0 ) ; SOURCE(7461, 53) (* (( (ptr) &var_c45308)+9)/* case_v15268 */ ) = ( (finder_v15212 != 0) ? (* (( (ptr) finder_v15212)+1) ) : 1 ) ; SOURCE(7516, 109) (* (( (ptr) &var_c45308)+10)/* match_v15296 */ ) = ( ( (finder_v15212 != 0) ? (0 != (* (( (ptr) finder_v15212)+2) )) : 0 ) ? 3 : ( (0 != (* ( ( (ptr) (* (( (ptr) formal_c45372)+4) ))+4) )) ? 1 : 0 ) ) ; SOURCE(9051, 35) { W4 var_c42588; { word pd71; pd71 = (* (( (ptr) formal_c45372)+8) ); (void) ( *( (fPt) ((* (ptr) pd71 ))))((word) (&var_c42588), pd71); }; (* (W2Pt) (( (ptr) formal_c45372)+23) ) = (* (W2Pt) (( (ptr) &var_c42588)+2) ); (* (W2Pt) (( (ptr) formal_c45372)+21) ) = (* (W2Pt) &var_c42588 ); }; SOURCE(9088, 40) if (((* (( (ptr) formal_c45372)+6) ) != 0)) { SOURCE(9110, 18) (* (ptr) (* (( (ptr) formal_c45372)+6) ) ) = 0; }; SOURCE(9130, 177) { word var_c42620; var_c42620 = (* (( (ptr) formal_c45372)+5) ); switch (var_c42620) { case 0: SOURCE(9163, 10) (void) Forwards_P4596((word) ((( (bPt) &var_c45308)+24)/* var_c42556 */ )); break; case 1: SOURCE(9188, 11) (void) Backwards_P4656((word) ((( (bPt) &var_c45308)+16)/* var_c42524 */ )); break; case 2: SOURCE(9215, 10) (void) Forwards_P4596((word) ((( (bPt) &var_c45308)+24)/* var_c42556 */ )); SOURCE(9227, 80) if (((* (( (ptr) formal_c45372)+20) ) != 0)) { SOURCE(9245, 25) (* (( (ptr) formal_c45372)+5) ) = 0; } else { SOURCE(9272, 20) (* (( (ptr) formal_c45372)+5) ) = 1; SOURCE(9294, 13) (void) Backwards_P4656((word) ((( (bPt) &var_c45308)+16)/* var_c42524 */ )); }; break; default: SOURCE(9323, 5) (void) XR_RaiseUnnamedError(); break; }; }; SOURCE(9330, 42) if (((* (( (ptr) formal_c45372)+20) ) == 0)) { SOURCE(9348, 12) return; } else { SOURCE(9360, 12) (* (( (ptr) formal_c45372)+13) ) = 1; }; SOURCE(9374, 27) (* (( (ptr) tSel_v15184)+2) ) = (* (( (ptr) formal_c45372)+20) ); (* (( (ptr) tSel_v15184)+3) ) = (* (( (ptr) formal_c45372)+16) ); SOURCE(9403, 37) (* (( (ptr) tSel_v15184)+11) ) = (* (( (ptr) formal_c45372)+20) ); { word x72; (* (( (ptr) tSel_v15184)+12) ) = (x72 = ((* (( (ptr) formal_c45372)+17) ) - 1), MAX((int)(word), 0, x72)); }; SOURCE(9442, 103) if ( ( (0 == (* (( (ptr) (* (( (ptr) formal_c45372)+4) ))+2) )) ? (0 == (* (( (ptr) (* (( (ptr) formal_c45372)+4) ))+1) )) : 0 ) ) { (* (( (ptr) tSel_v15184)+22) ) = 3; } else { if (((* (( (ptr) &var_c45308)+10)/* match_v15296 */ ) == 1)) { (* (( (ptr) tSel_v15184)+22) ) = 2; } else { (* (( (ptr) tSel_v15184)+22) ) = 1; }; }; SOURCE(9547, 77) if (((* (ptr) (* (( (ptr) (* (( (ptr) gf_c45340)+173)/* var_c42652 */ ))+19) ) ) == 0)) { (* (( (ptr) tSel_v15184)+24) ) = 0; } else { (* (( (ptr) tSel_v15184)+24) ) = 1; }; SOURCE(9626, 15) { word pd73; pd73 = (* (( (ptr) formal_c45372)+7) ); (void) ( *( (fPt) ((* (ptr) pd73 ))))(tSel_v15184, pd73); }; } static void Forwards_P4596(formal_c45436) word formal_c45436; { register ptr gf_c45404 = (ptr) &globalframe; word var_c0474; word var_c42684; formal_c45436 = (formal_c45436 - 24); /* Forwards: */ SOURCE(7627, 700) SOURCE(7646, 123) { word pd74; (* (( (ptr) (* (ptr) formal_c45436 ))+18) ) = ((* (( (ptr) (* (ptr) formal_c45436 ))+24) ) + 1); var_c0474 = (* (( (ptr) (* (ptr) formal_c45436 ))+18) ); { word var_c42716; var_c42716 = (* (( (ptr) (* (ptr) formal_c45436 ))+23) ); (* (( (ptr) (* (ptr) formal_c45436 ))+19) ) = var_c42716; var_c42684 = var_c42716; }; pd74 = (* (( (ptr) (* (( (ptr) gf_c45404)+162)/* var_c41756 */ ))+6) ); if (( (int)var_c0474 >= (int)(word) ( *( (fPt) ((* (ptr) pd74 ))))(var_c42684, pd74))) { SOURCE(7720, 35) { word pd75; pd75 = (* (( (ptr) (* (( (ptr) gf_c45404)+174)/* var_c42748 */ ))+14) ); (* (( (ptr) (* (ptr) formal_c45436 ))+19) ) = (word) ( *( (fPt) ((* (ptr) pd75 ))))((* ((( (ptr) (* (ptr) formal_c45436 ))+19) ) ), pd75); }; SOURCE(7757, 12) (* (( (ptr) (* (ptr) formal_c45436 ))+18) ) = 0; }; }; SOURCE(7772, 555) { W4 var_c42908; { word var_c42780; word var_c42812; var_c42780 = (word) MakeName_P60((* ((( (ptr) (* (( (ptr) (* (ptr) formal_c45436 ))+4) ))+7)) )); var_c42812 = (word) MakeName_P60((* ((( (ptr) (* (( (ptr) (* (ptr) formal_c45436 ))+4) ))+9)) )); { W18 var_c0209; W2 var_c42844; W2 var_c42876; (* (ptr) (word) &var_c0209 ) = 0; var_c42844.f0 = (* (( (ptr) (* (ptr) formal_c45436 ))+19) ); var_c42844.f1 = (* (( (ptr) (* (ptr) formal_c45436 ))+18) ); (* (W2Pt) (( (ptr) (word) &var_c0209) + 1) ) = var_c42844; var_c42876.f0 = (* (( (ptr) (* (ptr) formal_c45436 ))+10) ); var_c42876.f1 = (* (( (ptr) (* (ptr) formal_c45436 ))+12) ); (* (W2Pt) (( (ptr) (word) &var_c0209) + 3) ) = var_c42876; (* (( (ptr) (word) &var_c0209) + 5) ) = (* (( (ptr) formal_c45436)+8) ); (* (( (ptr) (word) &var_c0209) + 6) ) = (* (( (ptr) formal_c45436)+9) ); (* (( (ptr) (word) &var_c0209) + 7) ) = (* (( (ptr) formal_c45436)+10) ); (* (( (ptr) (word) &var_c0209) + 8) ) = (* (( (ptr) (* (( (ptr) (* (ptr) formal_c45436 ))+4) ))+2) ); (* (( (ptr) (word) &var_c0209) + 9) ) = (* (( (ptr) (* (( (ptr) (* (ptr) formal_c45436 ))+4) ))+3) ); (* (( (ptr) (word) &var_c0209) + 10) ) = ((* (( (ptr) (* (( (ptr) (* (ptr) formal_c45436 ))+4) ))+5) ) != 0); (* (( (ptr) (word) &var_c0209) + 11) ) = ((* (( (ptr) (* (( (ptr) (* (ptr) formal_c45436 ))+4) ))+5) ) == 2); (* (( (ptr) (word) &var_c0209) + 12) ) = (* (( (ptr) (* (( (ptr) (* (ptr) formal_c45436 ))+4) ))+6) ); (* (( (ptr) (word) &var_c0209) + 13) ) = var_c42780; (* (( (ptr) (word) &var_c0209) + 14) ) = (* (( (ptr) (* (( (ptr) (* (ptr) formal_c45436 ))+4) ))+8) ); (* (( (ptr) (word) &var_c0209) + 15) ) = var_c42812; (* (( (ptr) (word) &var_c0209) + 16) ) = (* (( (ptr) (* (( (ptr) gf_c45404)+165)/* var_c41948 */ ))+20) ); (* (( (ptr) (word) &var_c0209) + 17) ) = (* (( (ptr) (* (ptr) formal_c45436 ))+6) ); { W4 var_c0210; { word pd76; pd76 = (* (( (ptr) (* (( (ptr) gf_c45404)+166)/* var_c42044 */ ))+5) ); (void) ( *( (fPt) ((* (ptr) pd76 ))))((word) &var_c0210, (word) &var_c0209, pd76); }; var_c42908 = var_c0210; }; }; }; (* (( (ptr) (* (ptr) formal_c45436 ))+17) ) = var_c42908.f2; (* (( (ptr) (* (ptr) formal_c45436 ))+16) ) = var_c42908.f1; (* (( (ptr) (* (ptr) formal_c45436 ))+20) ) = var_c42908.f0; }; } static void Backwards_P4656(formal_c45500) word formal_c45500; { register ptr gf_c45468 = (ptr) &globalframe; formal_c45500 = (formal_c45500 - 16); /* Backwards: */ SOURCE(8332, 714) SOURCE(8352, 132) (* (( (ptr) (* (ptr) formal_c45500 ))+18) ) = (* (( (ptr) (* (ptr) formal_c45500 ))+22) ); if (( (int)(* (( (ptr) (* (ptr) formal_c45500 ))+22) ) == (int)0)) { SOURCE(8390, 44) { word pd77; pd77 = (* (( (ptr) (* (( (ptr) gf_c45468)+174)/* var_c42748 */ ))+15) ); (* (( (ptr) (* (ptr) formal_c45500 ))+19) ) = (word) ( *( (fPt) ((* (ptr) pd77 ))))((* (( (ptr) (* (ptr) formal_c45500 ))+21) ), 0, pd77); }; SOURCE(8436, 20) (* (( (ptr) (* (ptr) formal_c45500 ))+18) ) = 2147483647; } else { SOURCE(8463, 21) (* (( (ptr) (* (ptr) formal_c45500 ))+19) ) = (* (( (ptr) (* (ptr) formal_c45500 ))+21) ); }; SOURCE(8486, 560) { W4 var_c43068; { word var_c42940; word var_c42972; var_c42940 = (word) MakeName_P60((* ((( (ptr) (* (( (ptr) (* (ptr) formal_c45500 ))+4) ))+7)) )); var_c42972 = (word) MakeName_P60((* ((( (ptr) (* (( (ptr) (* (ptr) formal_c45500 ))+4) ))+9)) )); { W18 var_c0216; W2 var_c43004; W2 var_c43036; (* (ptr) (word) &var_c0216 ) = 1; var_c43004.f0 = (* (( (ptr) (* (ptr) formal_c45500 ))+9) ); var_c43004.f1 = (* (( (ptr) (* (ptr) formal_c45500 ))+11) ); (* (W2Pt) (( (ptr) (word) &var_c0216) + 1) ) = var_c43004; var_c43036.f0 = (* (( (ptr) (* (ptr) formal_c45500 ))+19) ); var_c43036.f1 = (* (( (ptr) (* (ptr) formal_c45500 ))+18) ); (* (W2Pt) (( (ptr) (word) &var_c0216) + 3) ) = var_c43036; (* (( (ptr) (word) &var_c0216) + 5) ) = (* (( (ptr) formal_c45500)+8) ); (* (( (ptr) (word) &var_c0216) + 6) ) = (* (( (ptr) formal_c45500)+9) ); (* (( (ptr) (word) &var_c0216) + 7) ) = (* (( (ptr) formal_c45500)+10) ); (* (( (ptr) (word) &var_c0216) + 8) ) = (* (( (ptr) (* (( (ptr) (* (ptr) formal_c45500 ))+4) ))+2) ); (* (( (ptr) (word) &var_c0216) + 9) ) = (* (( (ptr) (* (( (ptr) (* (ptr) formal_c45500 ))+4) ))+3) ); (* (( (ptr) (word) &var_c0216) + 10) ) = ((* (( (ptr) (* (( (ptr) (* (ptr) formal_c45500 ))+4) ))+5) ) != 0); (* (( (ptr) (word) &var_c0216) + 11) ) = ((* (( (ptr) (* (( (ptr) (* (ptr) formal_c45500 ))+4) ))+5) ) == 2); (* (( (ptr) (word) &var_c0216) + 12) ) = (* (( (ptr) (* (( (ptr) (* (ptr) formal_c45500 ))+4) ))+6) ); (* (( (ptr) (word) &var_c0216) + 13) ) = var_c42940; (* (( (ptr) (word) &var_c0216) + 14) ) = (* (( (ptr) (* (( (ptr) (* (ptr) formal_c45500 ))+4) ))+8) ); (* (( (ptr) (word) &var_c0216) + 15) ) = var_c42972; (* (( (ptr) (word) &var_c0216) + 16) ) = (* (( (ptr) (* (( (ptr) gf_c45468)+165)/* var_c41948 */ ))+20) ); (* (( (ptr) (word) &var_c0216) + 17) ) = (* (( (ptr) (* (ptr) formal_c45500 ))+6) ); { W4 var_c0217; { word pd78; pd78 = (* (( (ptr) (* (( (ptr) gf_c45468)+166)/* var_c42044 */ ))+5) ); (void) ( *( (fPt) ((* (ptr) pd78 ))))((word) &var_c0217, (word) &var_c0216, pd78); }; var_c43068 = var_c0217; }; }; }; (* (( (ptr) (* (ptr) formal_c45500 ))+17) ) = var_c43068.f2; (* (( (ptr) (* (ptr) formal_c45500 ))+16) ) = var_c43068.f1; (* (( (ptr) (* (ptr) formal_c45500 ))+20) ) = var_c43068.f0; }; } static word SelectMatchingBrackets_P420(before_v8176, after_v8204) word before_v8176; word after_v8204; { register ptr gf_c45532 = (ptr) &globalframe; word found_v8248; /* SelectMatchingBrackets: */ SOURCE(9703, 147) SOURCE(9787, 63) { word pd79; pd79 = (* (( (ptr) (* (( (ptr) gf_c45532)+172)/* var_c42492 */ ))+47) ); found_v8248 = (word) ( *( (fPt) ((* (ptr) pd79 ))))(before_v8176, after_v8204, pd79); }; SOURCE(9703, 147) return(found_v8248); } static void NextPlaceholder_P480(formal_c0231, dir_v8308, gotoend_v8336, startBoundaryNode_v8364, endBoundaryNode_v8392, startBoundaryOffset_v8420, endBoundaryOffset_v8448) word formal_c0231; word dir_v8308; word gotoend_v8336; word startBoundaryNode_v8364; word endBoundaryNode_v8392; word startBoundaryOffset_v8420; word endBoundaryOffset_v8448; { register ptr gf_c45564 = (ptr) &globalframe; word found_v8492; word wenttoend_v8520; /* NextPlaceholder: */ SOURCE(9853, 379) SOURCE(10078, 154) { W2 var_c43100; { word pd80; pd80 = (* (( (ptr) (* (( (ptr) gf_c45564)+172)/* var_c42492 */ ))+51) ); (void) ( *( (fPt) ((* (ptr) pd80 ))))((word) &var_c43100, (dir_v8308 == 0), gotoend_v8336, startBoundaryNode_v8364, endBoundaryNode_v8392, startBoundaryOffset_v8420 , endBoundaryOffset_v8448, pd80); }; wenttoend_v8520 = var_c43100.f1; found_v8492 = var_c43100.f0; }; /* removed tail goto */ (* (ptr) formal_c0231 ) = found_v8492; (* (( (ptr) formal_c0231)+1) ) = wenttoend_v8520; return; } static word NextViewer_P540(dir_v8580) word dir_v8580; { register ptr gf_c45596 = (ptr) &globalframe; word found_v8624; /* NextViewer: */ SOURCE(10235, 129) SOURCE(10315, 49) { word pd81; pd81 = (* (( (ptr) (* (( (ptr) gf_c45596)+172)/* var_c42492 */ ))+49) ); found_v8624 = (word) ( *( (fPt) ((* (ptr) pd81 ))))((dir_v8580 == 0), pd81); }; SOURCE(10235, 129) return(found_v8624); } static void Position_P600(viewer_v8684) word viewer_v8684; { register ptr gf_c45628 = (ptr) &globalframe; /* Position: */ SOURCE(10367, 74) SOURCE(10410, 31) { word pd82; pd82 = (* (( (ptr) (* (( (ptr) gf_c45628)+168)/* var_c42236 */ ))+66) ); (void) ( *( (fPt) ((* (ptr) pd82 ))))(viewer_v8684, pd82); }; } static void Normalize_P660(viewer_v8744) word viewer_v8744; { register ptr gf_c45660 = (ptr) &globalframe; /* Normalize: */ SOURCE(10447, 77) SOURCE(10491, 33) { W2 var_c43132; { word pd83; pd83 = (* (( (ptr) (* (( (ptr) gf_c45660)+170)/* var_c42300 */ ))+41) ); (void) ( *( (fPt) ((* (ptr) pd83 ))))((word) &var_c43132, viewer_v8744, pd83); }; }; } static void PrevPlace_P720(viewer_v8804) word viewer_v8804; { register ptr gf_c45692 = (ptr) &globalframe; /* PrevPlace: */ SOURCE(10530, 87) SOURCE(10574, 43) { word pd84; pd84 = (* (( (ptr) (* (( (ptr) gf_c45692)+175)/* var_c43164 */ ))+10) ); (void) ( *( (fPt) ((* (ptr) pd84 ))))(viewer_v8804, 0, 0, 0, 0, pd84); }; } static void Reselect_P780(viewer_v8864) word viewer_v8864; { register ptr gf_c45724 = (ptr) &globalframe; /* Reselect: */ SOURCE(10623, 80) SOURCE(10666, 37) { word pd85; pd85 = (* (( (ptr) (* (( (ptr) gf_c45724)+175)/* var_c43164 */ ))+9) ); (void) ( *( (fPt) ((* (ptr) pd85 ))))(viewer_v8864, 0, 0, 0, 0, pd85); }; } static void Save_P840(viewer_v8924) word viewer_v8924; { register ptr gf_c45756 = (ptr) &globalframe; /* Save: */ SOURCE(10708, 72) SOURCE(10747, 33) { word pd86; pd86 = (* (( (ptr) (* (( (ptr) gf_c45756)+175)/* var_c43164 */ ))+46) ); (void) ( *( (fPt) ((* (ptr) pd86 ))))(viewer_v8924, 0, 0, 0, 0, pd86); }; } static void Load_P900(viewer_v8984, fileName_v9012, fileNameProcViewer_v9040) word viewer_v8984; word fileName_v9012; word fileNameProcViewer_v9040; { register ptr gf_c45788 = (ptr) &globalframe; /* Load: */ SOURCE(10786, 176) SOURCE(10881, 81) { word var_c43196; word pd87; pd87 = (* (( (ptr) (* (( (ptr) gf_c45788)+175)/* var_c43164 */ ))+27) ); var_c43196 = (word) ( *( (fPt) ((* (ptr) pd87 ))))(viewer_v8984, fileName_v9012, 0, fileNameProcViewer_v9040, pd87); }; } static word Open_P960(fileName_v9100, fileNameProcViewer_v9128, column_v9156) word fileName_v9100; word fileNameProcViewer_v9128; word column_v9156; { register ptr gf_c45820 = (ptr) &globalframe; word var_c9200; /* Open: */ SOURCE(10968, 235) SOURCE(11087, 116) { word pd88; pd88 = (* (( (ptr) (* (( (ptr) gf_c45820)+175)/* var_c43164 */ ))+19) ); return((word) ( *( (fPt) ((* (ptr) pd88 ))))(fileName_v9100, column_v9156, 0, fileNameProcViewer_v9128, pd88)); }; } static word CloseAndOpen_P1020(viewer_v9260, fileName_v9288, fileNameProcViewer_v9316) word viewer_v9260; word fileName_v9288; word fileNameProcViewer_v9316; { register ptr gf_c45852 = (ptr) &globalframe; word var_c9360; /* CloseAndOpen: */ SOURCE(11209, 204) SOURCE(11329, 84) { word pd89; pd89 = (* (( (ptr) (* (( (ptr) gf_c45852)+175)/* var_c43164 */ ))+27) ); return((word) ( *( (fPt) ((* (ptr) pd89 ))))(viewer_v9260, fileName_v9288, 1, fileNameProcViewer_v9316, pd89)); }; } static void LoadImpl_P1080(viewer_v9420, fileName_v9448) word viewer_v9420; word fileName_v9448; { register ptr gf_c45884 = (ptr) &globalframe; /* LoadImpl: */ SOURCE(11419, 123) SOURCE(11484, 58) { word var_c43292; word pd90; pd90 = (* (( (ptr) (* (( (ptr) gf_c45884)+175)/* var_c43164 */ ))+29) ); var_c43292 = (word) ( *( (fPt) ((* (ptr) pd90 ))))(viewer_v9420, fileName_v9448, 0, pd90); }; } static word OpenImpl_P1140(fileName_v9508, column_v9536) word fileName_v9508; word column_v9536; { register ptr gf_c45916 = (ptr) &globalframe; word var_c9580; /* OpenImpl: */ SOURCE(11548, 151) SOURCE(11637, 62) { word pd91; pd91 = (* (( (ptr) (* (( (ptr) gf_c45916)+175)/* var_c43164 */ ))+23) ); return((word) ( *( (fPt) ((* (ptr) pd91 ))))(fileName_v9508, column_v9536, 0, pd91)); }; } static word CloseAndOpenImpl_P1200(viewer_v9640, fileName_v9668) word viewer_v9640; word fileName_v9668; { register ptr gf_c45948 = (ptr) &globalframe; word var_c9712; /* CloseAndOpenImpl: */ SOURCE(11705, 160) SOURCE(11795, 70) { word pd92; pd92 = (* (( (ptr) (* (( (ptr) gf_c45948)+175)/* var_c43164 */ ))+25) ); return((word) ( *( (fPt) ((* (ptr) pd92 ))))(viewer_v9640, fileName_v9668, pd92)); }; } static void LoadPreviousFile_P1260(parent_v9772) word parent_v9772; { register ptr gf_c45980 = (ptr) &globalframe; /* LoadPreviousFile: */ SOURCE(11871, 96) SOURCE(11922, 45) { word pd93; pd93 = (* (( (ptr) (* (( (ptr) gf_c45980)+175)/* var_c43164 */ ))+32) ); (void) ( *( (fPt) ((* (ptr) pd93 ))))(parent_v9772, pd93); }; } static void OpenPreviousFile_P1320(parent_v9832) word parent_v9832; { register ptr gf_c46012 = (ptr) &globalframe; /* OpenPreviousFile: */ SOURCE(11973, 96) SOURCE(12024, 45) { word pd94; pd94 = (* (( (ptr) (* (( (ptr) gf_c46012)+175)/* var_c43164 */ ))+33) ); (void) ( *( (fPt) ((* (ptr) pd94 ))))(parent_v9832, pd94); }; } static void CloseAndOpenPreviousFile_P1380(parent_v9892) word parent_v9892; { register ptr gf_c46044 = (ptr) &globalframe; /* CloseAndOpenPreviousFile: */ SOURCE(12075, 112) SOURCE(12134, 53) { word pd95; pd95 = (* (( (ptr) (* (( (ptr) gf_c46044)+175)/* var_c43164 */ ))+34) ); (void) ( *( (fPt) ((* (ptr) pd95 ))))(parent_v9892, pd95); }; } static void DefaultMenus_P1440(viewer_v9952, paint_v9980) word viewer_v9952; word paint_v9980; { register ptr gf_c46076 = (ptr) &globalframe; /* DefaultMenus: */ SOURCE(12193, 116) SOURCE(12261, 48) { word pd96; pd96 = (* (( (ptr) (* (( (ptr) gf_c46076)+175)/* var_c43164 */ ))+39) ); (void) ( *( (fPt) ((* (ptr) pd96 ))))(viewer_v9952, paint_v9980, pd96); }; } static void Store_P1500(viewer_v10040, fileName_v10068) word viewer_v10040; word fileName_v10068; { register ptr gf_c46108 = (ptr) &globalframe; /* Store: */ SOURCE(12315, 112) SOURCE(12377, 50) { word pd97; pd97 = (* (( (ptr) (* (( (ptr) gf_c46108)+175)/* var_c43164 */ ))+37) ); (void) ( *( (fPt) ((* (ptr) pd97 ))))(viewer_v10040, fileName_v10068, pd97); }; } static word New_P1560(column_v10128) word column_v10128; { register ptr gf_c46140 = (ptr) &globalframe; word var_c10172; /* New: */ SOURCE(12433, 111) SOURCE(12495, 49) { word pd98; pd98 = (* (( (ptr) (* (( (ptr) gf_c46140)+175)/* var_c43164 */ ))+15) ); return((word) ( *( (fPt) ((* (ptr) pd98 ))))(column_v10128, 0, pd98)); }; } static void Empty_P1620(viewer_v10232) word viewer_v10232; { register ptr gf_c46172 = (ptr) &globalframe; /* Empty: */ SOURCE(12550, 80) SOURCE(12590, 40) { word pd99; pd99 = (* (( (ptr) (* (( (ptr) gf_c46172)+175)/* var_c43164 */ ))+13) ); (void) ( *( (fPt) ((* (ptr) pd99 ))))(viewer_v10232, pd99); }; } static word CloseAndNewViewer_P1680(viewer_v10292) word viewer_v10292; { register ptr gf_c46204 = (ptr) &globalframe; word var_c10336; /* CloseAndNewViewer: */ SOURCE(12636, 126) SOURCE(12705, 57) { word pd100; pd100 = (* (( (ptr) (* (( (ptr) gf_c46204)+175)/* var_c43164 */ ))+17) ); return((word) ( *( (fPt) ((* (ptr) pd100 ))))(viewer_v10292, pd100)); }; } static void Reset_P1740(viewer_v10396) word viewer_v10396; { register ptr gf_c46236 = (ptr) &globalframe; /* Reset: */ SOURCE(12768, 74) SOURCE(12808, 34) { word pd101; pd101 = (* (( (ptr) (* (( (ptr) gf_c46236)+175)/* var_c43164 */ ))+45) ); (void) ( *( (fPt) ((* (ptr) pd101 ))))(viewer_v10396, 0, 0, 0, 0, pd101); }; } static void Jump_P1800(viewer_v10456, loc_v10484) word viewer_v10456; W2 loc_v10484; { register ptr gf_c46268 = (ptr) &globalframe; /* Jump: */ SOURCE(12848, 103) SOURCE(12902, 49) { word pd102; pd102 = (* (( (ptr) (* (( (ptr) gf_c46268)+176)/* var_c43452 */ ))+5) ); (void) ( *( (fPt) ((* (ptr) pd102 ))))(viewer_v10456, loc_v10484, 1, pd102); }; } static void FirstLevelOnly_P1860(viewer_v10544) word viewer_v10544; { register ptr gf_c46300 = (ptr) &globalframe; /* FirstLevelOnly: */ SOURCE(12956, 88) SOURCE(13005, 39) { W2 var_c43484; { word pd103; pd103 = (* (( (ptr) (* (( (ptr) gf_c46300)+170)/* var_c42300 */ ))+36) ); (void) ( *( (fPt) ((* (ptr) pd103 ))))((word) &var_c43484, viewer_v10544, pd103); }; }; } static void MoreLevels_P1920(viewer_v10604) word viewer_v10604; { register ptr gf_c46332 = (ptr) &globalframe; /* MoreLevels: */ SOURCE(13048, 80) SOURCE(13093, 35) { W2 var_c43516; { word pd104; pd104 = (* (( (ptr) (* (( (ptr) gf_c46332)+170)/* var_c42300 */ ))+37) ); (void) ( *( (fPt) ((* (ptr) pd104 ))))((word) &var_c43516, viewer_v10604, pd104); }; }; } static void FewerLevels_P1980(viewer_v10664) word viewer_v10664; { register ptr gf_c46364 = (ptr) &globalframe; /* FewerLevels: */ SOURCE(13132, 82) SOURCE(13178, 36) { W2 var_c43548; { word pd105; pd105 = (* (( (ptr) (* (( (ptr) gf_c46364)+170)/* var_c42300 */ ))+38) ); (void) ( *( (fPt) ((* (ptr) pd105 ))))((word) &var_c43548, viewer_v10664, pd105); }; }; } static void AllLevels_P2040(viewer_v10724) word viewer_v10724; { register ptr gf_c46396 = (ptr) &globalframe; /* AllLevels: */ SOURCE(13218, 78) SOURCE(13262, 34) { W2 var_c43580; { word pd106; pd106 = (* (( (ptr) (* (( (ptr) gf_c46396)+170)/* var_c42300 */ ))+35) ); (void) ( *( (fPt) ((* (ptr) pd106 ))))((word) &var_c43580, viewer_v10724, pd106); }; }; } static word GetRope_P2100(node_v10784) word node_v10784; { register ptr gf_c46428 = (ptr) &globalframe; word var_c10828; /* GetRope: */ SOURCE(13300, 91) SOURCE(13354, 37) { word pd107; pd107 = (* (( (ptr) (* (( (ptr) gf_c46428)+177)/* var_c43644 */ ))+4) ); return((word) ( *( (fPt) ((* (ptr) pd107 ))))(node_v10784, pd107)); }; } static word Parent_P2160(node_v10888) word node_v10888; { register ptr gf_c46460 = (ptr) &globalframe; word var_c10932; /* Parent: */ SOURCE(13395, 83) SOURCE(13447, 31) { word pd108; pd108 = (* (( (ptr) (* (( (ptr) gf_c46460)+174)/* var_c42748 */ ))+8) ); return((word) ( *( (fPt) ((* (ptr) pd108 ))))(node_v10888, pd108)); }; } static word Root_P2220(node_v10992) word node_v10992; { register ptr gf_c46492 = (ptr) &globalframe; word var_c11036; /* Root: */ SOURCE(13482, 79) SOURCE(13532, 29) { word pd109; pd109 = (* (( (ptr) (* (( (ptr) gf_c46492)+174)/* var_c42748 */ ))+9) ); return((word) ( *( (fPt) ((* (ptr) pd109 ))))(node_v10992, pd109)); }; } static word Next_P2280(node_v11096) word node_v11096; { register ptr gf_c46524 = (ptr) &globalframe; word var_c11140; /* Next: */ SOURCE(13565, 79) SOURCE(13615, 29) { word pd110; pd110 = (* (( (ptr) (* (( (ptr) gf_c46524)+174)/* var_c42748 */ ))+10) ); return((word) ( *( (fPt) ((* (ptr) pd110 ))))(node_v11096, pd110)); }; } static word Previous_P2340(node_v11200, parent_v11228) word node_v11200; word parent_v11228; { register ptr gf_c46556 = (ptr) &globalframe; word nx_v11272; /* Previous: */ SOURCE(13648, 111) SOURCE(13648, 111) nx_v11272 = 0; SOURCE(13726, 33) { word pd111; pd111 = (* (( (ptr) (* (( (ptr) gf_c46556)+174)/* var_c42748 */ ))+11) ); return((word) ( *( (fPt) ((* (ptr) pd111 ))))(node_v11200, 0, pd111)); }; } static word StepForward_P2400(node_v11332) word node_v11332; { register ptr gf_c46588 = (ptr) &globalframe; word nx_v11376; /* StepForward: */ SOURCE(13763, 97) SOURCE(13763, 97) nx_v11376 = 0; SOURCE(13824, 36) { word pd112; pd112 = (* (( (ptr) (* (( (ptr) gf_c46588)+174)/* var_c42748 */ ))+14) ); return((word) ( *( (fPt) ((* (ptr) pd112 ))))(node_v11332, pd112)); }; } static word StepBackward_P2460(node_v11436, parent_v11464) word node_v11436; word parent_v11464; { register ptr gf_c46620 = (ptr) &globalframe; word back_v11508; /* StepBackward: */ SOURCE(13864, 129) SOURCE(13864, 129) back_v11508 = 0; SOURCE(13948, 45) { word pd113; pd113 = (* (( (ptr) (* (( (ptr) gf_c46620)+174)/* var_c42748 */ ))+15) ); return((word) ( *( (fPt) ((* (ptr) pd113 ))))(node_v11436, parent_v11464, pd113)); }; } static word FirstSibling_P2520(node_v11568) word node_v11568; { register ptr gf_c46652 = (ptr) &globalframe; word var_c11612; /* FirstSibling: */ SOURCE(13997, 95) SOURCE(14055, 37) { word pd114; pd114 = (* (( (ptr) (* (( (ptr) gf_c46652)+174)/* var_c42748 */ ))+24) ); return((word) ( *( (fPt) ((* (ptr) pd114 ))))(node_v11568, pd114)); }; } static word LastSibling_P2580(node_v11672) word node_v11672; { register ptr gf_c46684 = (ptr) &globalframe; word var_c11716; /* LastSibling: */ SOURCE(14096, 93) SOURCE(14153, 36) { word pd115; pd115 = (* (( (ptr) (* (( (ptr) gf_c46684)+174)/* var_c42748 */ ))+25) ); return((word) ( *( (fPt) ((* (ptr) pd115 ))))(node_v11672, pd115)); }; } static word LastWithin_P2640(node_v11776) word node_v11776; { register ptr gf_c46716 = (ptr) &globalframe; word var_c11820; /* LastWithin: */ SOURCE(14193, 91) SOURCE(14249, 35) { word pd116; pd116 = (* (( (ptr) (* (( (ptr) gf_c46716)+174)/* var_c42748 */ ))+26) ); return((word) ( *( (fPt) ((* (ptr) pd116 ))))(node_v11776, pd116)); }; } static void LastLocWithin_P2700(formal_c0315, node_v11880) word formal_c0315; word node_v11880; { register ptr gf_c46748 = (ptr) &globalframe; W2 var_c11924; /* LastLocWithin: */ SOURCE(14288, 100) SOURCE(14351, 37) { W2 var_c43996; { word pd117; pd117 = (* (( (ptr) (* (( (ptr) gf_c46748)+174)/* var_c42748 */ ))+27) ); (void) ( *( (fPt) ((* (ptr) pd117 ))))((word) &var_c43996, node_v11880, pd117); }; var_c11924 = var_c43996; /* removed tail goto */ }; (* (W2Pt) formal_c0315 ) = var_c11924; return; } static word FirstChild_P2760(node_v11984) word node_v11984; { register ptr gf_c46780 = (ptr) &globalframe; word var_c12028; /* FirstChild: */ SOURCE(14395, 91) SOURCE(14451, 35) { word pd118; pd118 = (* (( (ptr) (* (( (ptr) gf_c46780)+174)/* var_c42748 */ ))+28) ); return((word) ( *( (fPt) ((* (ptr) pd118 ))))(node_v11984, pd118)); }; } static word LastChild_P2820(node_v12088) word node_v12088; { register ptr gf_c46812 = (ptr) &globalframe; word var_c12132; /* LastChild: */ SOURCE(14490, 89) SOURCE(14545, 34) { word pd119; pd119 = (* (( (ptr) (* (( (ptr) gf_c46812)+174)/* var_c42748 */ ))+29) ); return((word) ( *( (fPt) ((* (ptr) pd119 ))))(node_v12088, pd119)); }; } static word IsDirty_P2880(node_v12192) word node_v12192; { word var_c12236; /* IsDirty: */ SOURCE(14583, 73) SOURCE(14636, 20) return(((* (( (bPt) node_v12192)+36) ) & 1)); } static word IsNew_P2940(node_v12296) word node_v12296; { word var_c12340; /* IsNew: */ SOURCE(14660, 69) SOURCE(14711, 18) return(( (((unsigned)(* (( (ptr) node_v12296)+9) ) << 8) >> 8) )); } static void ClearDirty_P3000(node_v12400) word node_v12400; { /* ClearDirty: */ SOURCE(14733, 60) SOURCE(14774, 19) ((P1x7b) (( (bPt) node_v12400) + 36))->f = 0; } static void ClearNew_P3060(node_v12460) word node_v12460; { /* ClearNew: */ SOURCE(14797, 56) SOURCE(14836, 17) ((P24x8w) (( (ptr) node_v12460) + 9))->f = 0; } static word ViewerDoc_P3120(viewer_v12520) word viewer_v12520; { register ptr gf_c46844 = (ptr) &globalframe; word root_v12564; word tdd_v15428; /* ViewerDoc: */ SOURCE(14857, 285) SOURCE(14857, 285) root_v12564 = 0; SOURCE(14922, 58) tdd_v15428 = XR_Narrow((* (( (ptr) viewer_v12520)+26) ), (* (( (ptr) gf_c46844)+9) )); SOURCE(14982, 30) if ((tdd_v15428 == 0)) { SOURCE(15000, 12) return(0); }; SOURCE(15014, 48) { word var_c44124; word pd120; pd120 = (* (( (ptr) (* (( (ptr) gf_c46844)+178)/* var_c44092 */ ))+5) ); var_c44124 = (word) ( *( (fPt) ((* (ptr) pd120 ))))(tdd_v15428, (* (( (ptr) gf_c46844)+13) ), 0, 0, pd120); }; SOURCE(15099, 15) root_v12564 = (* (ptr) tdd_v15428 ); SOURCE(15116, 26) { word pd121; pd121 = (* (( (ptr) (* (( (ptr) gf_c46844)+178)/* var_c44092 */ ))+6) ); (void) ( *( (fPt) ((* (ptr) pd121 ))))(tdd_v15428, pd121); }; SOURCE(14857, 285) return(root_v12564); } static void PutProp_P3180(n_v12624, name_v12652, value_v12680) word n_v12624; word name_v12652; word value_v12680; { register ptr gf_c46876 = (ptr) &globalframe; /* PutProp: */ SOURCE(15146, 94) SOURCE(15205, 35) { word pd122; pd122 = (* (( (ptr) (* (( (ptr) gf_c46876)+179)/* var_c44156 */ ))+4) ); (void) ( *( (fPt) ((* (ptr) pd122 ))))(n_v12624, name_v12652, value_v12680, pd122); }; } static word GetProp_P3240(n_v12756, name_v12784) word n_v12756; word name_v12784; { register ptr gf_c46908 = (ptr) &globalframe; word var_c12828; /* GetProp: */ SOURCE(15243, 98) SOURCE(15304, 37) { word pd123; pd123 = (* (( (ptr) (* (( (ptr) gf_c46908)+179)/* var_c44156 */ ))+5) ); return((word) ( *( (fPt) ((* (ptr) pd123 ))))(n_v12756, name_v12784, pd123)); }; } static void RemProp_P3300(n_v12900, name_v12928) word n_v12900; word name_v12928; { register ptr gf_c46940 = (ptr) &globalframe; /* RemProp: */ SOURCE(15345, 75) SOURCE(15392, 28) { word pd124; pd124 = (* (( (ptr) (* (( (ptr) gf_c46940)+179)/* var_c44156 */ ))+4) ); (void) ( *( (fPt) ((* (ptr) pd124 ))))(n_v12900, name_v12928, 0, pd124); }; } static word MapProps_P3360(n_v12988, action_v13016, formatFlag_v13044, commentFlag_v13072) word n_v12988; word action_v13016; word formatFlag_v13044; word commentFlag_v13072; { register ptr gf_c46972 = (ptr) &globalframe; word var_c13116; /* MapProps: */ SOURCE(15424, 191) SOURCE(15551, 64) { word pd125; pd125 = (* (( (ptr) (* (( (ptr) gf_c46972)+179)/* var_c44156 */ ))+7) ); return((word) ( *( (fPt) ((* (ptr) pd125 ))))(n_v12988, action_v13016, formatFlag_v13044, commentFlag_v13072, pd125)); }; } static void RegisterPropProc_P3420(name_v13176, reader_v13204, writer_v13232, copier_v13260) word name_v13176; word reader_v13204; word writer_v13232; word copier_v13260; { register ptr gf_c47004 = (ptr) &globalframe; /* RegisterPropProc: */ SOURCE(15620, 195) SOURCE(15767, 48) { word pd126; pd126 = (* (( (ptr) (* (( (ptr) gf_c47004)+179)/* var_c44156 */ ))+21) ); (void) ( *( (fPt) ((* (ptr) pd126 ))))(name_v13176, reader_v13204, writer_v13232, copier_v13260, pd126); }; } static word NullRead_P3480(name_v33100, specs_v33128) word name_v33100; word specs_v33128; { register ptr gf_c47036 = (ptr) &globalframe; word value_v33172; /* NullRead: */ SOURCE(15821, 82) SOURCE(15821, 82) value_v33172 = 0; SOURCE(15866, 37) { word var_c44252; word pd127; pd127 = (* (( (ptr) (* (( (ptr) gf_c47036)+179)/* var_c44156 */ ))+22) ); var_c44252 = (word) ( *( (fPt) ((* (ptr) pd127 ))))(name_v33100, specs_v33128, pd127); }; SOURCE(15821, 82) return(value_v33172); } static word NullWrite_P3540(name_v33232, value_v33260) word name_v33232; word value_v33260; { register ptr gf_c47068 = (ptr) &globalframe; word specs_v33304; /* NullWrite: */ SOURCE(15906, 85) SOURCE(15906, 85) specs_v33304 = 0; SOURCE(15953, 38) { word var_c44284; word pd128; pd128 = (* (( (ptr) (* (( (ptr) gf_c47068)+179)/* var_c44156 */ ))+23) ); var_c44284 = (word) ( *( (fPt) ((* (ptr) pd128 ))))(name_v33232, value_v33260, pd128); }; SOURCE(15906, 85) return(specs_v33304); } static word NullCopy_P3600(name_v33364, value_v33392) word name_v33364; word value_v33392; { register ptr gf_c47100 = (ptr) &globalframe; word new_v33436; /* NullCopy: */ SOURCE(15994, 81) SOURCE(15994, 81) new_v33436 = 0; SOURCE(16038, 37) { word var_c44316; word pd129; pd129 = (* (( (ptr) (* (( (ptr) gf_c47100)+179)/* var_c44156 */ ))+24) ); var_c44316 = (word) ( *( (fPt) ((* (ptr) pd129 ))))(name_v33364, value_v33392, pd129); }; SOURCE(15994, 81) return(new_v33436); } static word NodeOrder_P3660(order_v13320) word order_v13320; { word var_c13364; /* NodeOrder: */ SOURCE(16079, 191) SOURCE(16156, 114) { word var_c44380; var_c44380 = order_v13320; switch (var_c44380) { case 0: return(0); case 1: return(1); case 2: return(2); case 3: return(3); default: return(( XR_RaiseUnnamedError(), 0 )); }; }; } static word CompareLocOrder_P3720(loc1_v13424, loc2_v13452) W2 loc1_v13424; W2 loc2_v13452; { register ptr gf_c47132 = (ptr) &globalframe; word order_v13496; /* CompareLocOrder: */ SOURCE(16274, 273) SOURCE(16366, 66) { word var_c44412; { word pd130; pd130 = (* (( (ptr) (* (( (ptr) gf_c47132)+180)/* var_c44444 */ ))+22) ); var_c44412 = (word) ( *( (fPt) ((* (ptr) pd130 ))))(loc1_v13424.f0, loc2_v13452.f0, pd130); }; order_v13496 = (word) NodeOrder_P3660(var_c44412); }; SOURCE(16434, 113) if ((order_v13496 == 1)) { SOURCE(16453, 94) { word var_c44476; var_c44476 = loc1_v13424.f1; if (( (int)var_c44476 < (int)loc2_v13452.f1)) { order_v13496 = 0; } else { if (( (int)var_c44476 == (int)loc2_v13452.f1)) { order_v13496 = 1; } else { order_v13496 = 2; }; }; }; }; SOURCE(16274, 273) return(order_v13496); } static word CompareNodeOrder_P3780(node1_v13556, node2_v13584) word node1_v13556; word node2_v13584; { register ptr gf_c47164 = (ptr) &globalframe; word order_v13628; /* CompareNodeOrder: */ SOURCE(16551, 151) SOURCE(16642, 60) { word var_c44540; { word pd131; pd131 = (* (( (ptr) (* (( (ptr) gf_c47164)+180)/* var_c44444 */ ))+22) ); var_c44540 = (word) ( *( (fPt) ((* (ptr) pd131 ))))(node1_v13556, node2_v13584, pd131); }; return((word) NodeOrder_P3660(var_c44540)); }; } static word GetFile_P3840(name_v13688) word name_v13688; { register ptr gf_c47196 = (ptr) &globalframe; word root_v13732; /* GetFile: */ SOURCE(16706, 113) SOURCE(16706, 113) root_v13732 = 0; SOURCE(16765, 54) { word var_c0475; word var_c44604; W6 var_c0374; { word pd132; pd132 = (* (( (ptr) (* (( (ptr) gf_c47196)+181)/* var_c44636 */ ))+5) ); var_c44604 = (word) ( *( (fPt) ((* (ptr) pd132 ))))(name_v13688, pd132); }; { word pd133; pd133 = (* (( (ptr) (* (( (ptr) gf_c47196)+182)/* var_c44668 */ ))+15) ); (void) ( *( (fPt) ((* (ptr) pd133 ))))((word) &var_c0374, var_c44604, (* (W4Pt) (( (ptr) gf_c47196)+156)/* var_c41596 */ ), pd133) ; }; var_c0475 = var_c0374.f5; return(var_c0475); }; } static void PutFile_P3900(name_v13792, root_v13820) word name_v13792; word root_v13820; { register ptr gf_c47228 = (ptr) &globalframe; /* PutFile: */ SOURCE(16825, 99) SOURCE(16875, 49) { W6 var_c44732; { word var_c44700; { word pd134; pd134 = (* (( (ptr) (* (( (ptr) gf_c47228)+181)/* var_c44636 */ ))+5) ); var_c44700 = (word) ( *( (fPt) ((* (ptr) pd134 ))))(name_v13792, pd134); }; { word pd135; pd135 = (* (( (ptr) (* (( (ptr) gf_c47228)+182)/* var_c44668 */ ))+16) ); (void) ( *( (fPt) ((* (ptr) pd135 ))))((word) &var_c44732, var_c44700, root_v13820, pd135); }; }; }; } static void FreeTree_P3960(root_v13880) word root_v13880; { register ptr gf_c47260 = (ptr) &globalframe; /* FreeTree: */ SOURCE(16930, 65) SOURCE(16969, 26) { word pd136; pd136 = (* (( (ptr) (* (( (ptr) gf_c47260)+170)/* var_c42300 */ ))+34) ); (void) ( *( (fPt) ((* (ptr) pd136 ))))(root_v13880, pd136); }; } static void SelectPoint_P4020(viewer_v13940, caret_v13968, which_v13996) word viewer_v13940; W2 caret_v13968; word which_v13996; { register ptr gf_c47292 = (ptr) &globalframe; /* SelectPoint: */ SOURCE(16998, 200) SOURCE(17107, 91) { word pd137; pd137 = (* (( (ptr) (* (( (ptr) gf_c47292)+183)/* var_c44764 */ ))+65) ); (void) ( *( (fPt) ((* (ptr) pd137 ))))(viewer_v13940, caret_v13968, caret_v13968, 0, 1, 0 , which_v13996, pd137); }; } static void RegisterCommand_P4080(name_v14056, proc_v14084, before_v14112) word name_v14056; word proc_v14084; word before_v14112; { register ptr gf_c47324 = (ptr) &globalframe; /* RegisterCommand: */ SOURCE(17204, 135) SOURCE(17299, 40) { word pd138; pd138 = (* (( (ptr) (* (( (ptr) gf_c47324)+170)/* var_c42300 */ ))+16) ); (void) ( *( (fPt) ((* (ptr) pd138 ))))(name_v14056, proc_v14084, before_v14112, pd138); }; } static void UnRegisterCommand_P4140(name_v14172, proc_v14200) word name_v14172; word proc_v14200; { register ptr gf_c47356 = (ptr) &globalframe; /* UnRegisterCommand: */ SOURCE(17343, 110) SOURCE(17419, 34) { word pd139; pd139 = (* (( (ptr) (* (( (ptr) gf_c47356)+170)/* var_c42300 */ ))+17) ); (void) ( *( (fPt) ((* (ptr) pd139 ))))(name_v14172, proc_v14200, pd139); }; } static void NoName_Q4956(formal_c0395, formal_c200000, formal_c200001, formal_c200002, formal_c200003) word formal_c0395; word formal_c200000; word formal_c200001; word formal_c200002; word formal_c200003; { register ptr gf_c0472 = (ptr) &globalframe; if ((formal_c200001 == (* (( (ptr) (* (( (ptr) gf_c0472)+167)/* var_c42076 */ ))+8) ))) { { word index_v36620; word reason_v36648; index_v36620 = (* (ptr) formal_c200003 ); reason_v36648 = (* (( (ptr) formal_c200003)+1) ); SOURCE(4729, 52) (* (ptr) formal_c0395 ) = 2; (* (( (ptr) formal_c0395)+1) ) = 2; return; }; }; (* (ptr) formal_c0395 ) = 0; (* (( (ptr) formal_c0395)+1) ) = 0; return; } /* file: TiogaOps2Impl, module: TiogaOps2Impl, compiled at: March 16, 1992 3:02:19 pm PST */ extern void XR_install_TiogaOps2Impl() { NoName_Q4836(); } extern void XR_run_TiogaOps2Impl() { XR_Start(&globalframe); }