/* Generated with C2C (Cedar To C)*/ /* Copyright (C) 1992 by Xerox Corporation. All rights reserved. */ /* time: February 28, 1992 10:42:12 am PST */ /* C2C version: October 16, 1990 (native) */ /* ref-counting: off */ /* file: TEditInputEventsImpl, module: TEditInputEventsImpl */ /* switches: bcfhklnouw */ #include #include static char versionStamp[] = "@(#)mob_version [4245431257,3818169596] TEditInputEventsImpl"; typedef unsigned word, *ptr; typedef unsigned char byte, *bPt; typedef unsigned short half, *hPt; typedef word (*fPt)(); typedef struct {word f0, f1;} W2; typedef struct {word f0, f1, f2, f3, f4, f5, f6, f7;} W8; typedef struct {W8 f; W2 r;} W10; typedef struct {W8 f; word r;} W9; typedef struct {word f0, f1, f2, f3, f4;} W5; typedef struct {word f0, f1, f2, f3, f4, f5, f6;} W7; typedef struct {unsigned u1:6, f:1, u2:1;} * P1x6b; typedef struct {W8 f; W8 r;} W16; typedef struct {W16 f; W2 r;} W18; typedef struct {word f0, f1, f2, f3, f4, f5;} W6; #define SOURCE(p, l) /* source p, l */ #define BCK(idx, lim) ( ((unsigned) idx) >= ((unsigned) lim) ? (XR_RaiseBoundsFault()) : (idx) ) #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_Q3252(); static void TEditInputEventsImpl_P0(); static word MapRootsInSubEvents_P60(); static void Do1_P1380(); static void Do2_P1440(); static void CloseEventNow_P120(); static word NoName_Q3312(); static word BetweenEvents_P1836(); static word CheckForDeletedRoot_P1896(); static void RecordInt_P180(); static word NoName_Q3372(); static void RecordChar_P240(); static word NoName_Q3432(); static void RecordRef_P300(); static word NoName_Q3492(); static void FreeTree_P360(); static word Check_P2052(); static void FreeTrees_P420(); static word NoName_Q3552(); static void DoFreeTree_P480(); static void Cancel_P540(); static void Undo_P600(); static word NoName_Q3612(); static void Cleanup_P2208(); static word Add_P2364(); static word CurrentEventNumber_P660(); static word CountEvents_P720(); static word GetEvent_P780(); static word SliceSize_P840(); static word NoName_Q3672(); static void NewSliceSize_P900(); static word NoName_Q3732(); static word Known_P960(); static word NoName_Q3792(); static void Repeat_P1020(); static void DoRepeat_P3048(); static word GetRepeatList_P1080(); static word NoName_Q3852(); static word GetRepeatSequence_P1140(); static word CreateEvent_P1200(); static void InitEvents_P1260(); static void RegisterCommandAtoms_P1320(); static void NoName_Q3912(); static void NoName_Q3972(); static void NoName_Q4032(); static void NoName_Q4092(); static void NoName_Q4152(); static void NoName_Q4212(); static void NoName_Q4272(); static void NoName_Q4332(); static void NoName_Q4392(); static void NoName_Q4452(); static word NoName_Q4512(); static struct {unsigned f; char r[48];} string1 = {2883632, "\260\006\005\146\151\162\163\164\216\257\300\302\136\246\312\300\076\314\360\376\100\164\005\004\162\145\163\164\214\216\257\300\302\136\246\312\300\076\314\360\376\100\164\261\000\000\000"}; static struct {unsigned f; char r[4];} string2 = {131074, "\004\003\000"}; static struct {unsigned f; char r[20];} string3 = {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[4];} string4 = {65540, "\242\000\000"}; static struct {unsigned f; char r[4];} string5 = {65540, "\243\000\000"}; static struct {unsigned f; char r[16];} string6 = {851984, "\257\300\302\136\246\312\300\076\314\360\376\100\164\000\000"}; static struct {unsigned f; char r[4];} string7 = {196611, "\004A\377"}; static struct {unsigned f; char r[16];} string8 = {917520, "\216\257\300\363\223\326\161\300\017\164\046\072\104\350\000"}; static struct {unsigned f; char r[4];} string9 = {65537, "\001\000\000"}; static struct {unsigned f; char r[4];} string10 = {131076, "\216\251\000"}; static struct {unsigned f; char r[16];} string11 = {851984, "\257\300\343\357\262\137\300\144\166\356\317\100\274\000\000"}; static struct {unsigned f; char r[4];} string12 = {196611, "\004H\007"}; static struct {unsigned f; char r[44];} string13 = {2752556, "\260\007\006\154\145\156\147\164\150\210\241\000\200\177\377\005\004\164\145\170\164\254\206\012\011\155\141\170\114\145\156\147\164\150\210\241\000\200\177\377\243\261\000"}; static struct {unsigned f; char r[16];} string14 = {851984, "\257\300\375\014\043\331\300\343\224\244\374\100\200\000\000"}; static struct {unsigned f; char r[4];} string15 = {131074, "\004?\000"}; static struct {unsigned f; char r[28];} string16 = {1572892, "Nothing saved for repeat\000\000\000"}; static struct {unsigned f; char r[28];} string17 = {1638428, "Make selection for repeat\000\000"}; static struct {unsigned f; char r[8];} string18 = {393224, "Undone\000"}; static struct {unsigned f; char r[8];} string19 = {262152, "Undo\000\000\000"}; static struct {unsigned f; char r[12];} string20 = {655372, "DoFreeTree\000"}; static struct {unsigned f; char r[20];} string21 = {1114132, "Tioga.EditHistory\000\000"}; static struct {unsigned f; char r[8];} string22 = {393224, "Repeat\000"}; static struct {unsigned f; char r[16];} string23 = {851984, "\257\300\375\014\043\331\300\343\224\244\374\100\164\000\000"}; static struct {unsigned f; char r[20];} string24 = {1114129, "\006\006\040\001\044\001\054\001\070\001\074\001\100\210\004\100\377\000\000"}; static struct {unsigned f; char r[16];} string25 = {851984, "\257\300\212\210\334\132\300\036\362\033\164\100\150\000\000"}; static struct {unsigned f; char r[16];} string26 = {851984, "\257\300\263\272\165\301\300\364\117\256\374\100\150\000\000"}; static struct {unsigned f; char r[16];} string27 = {851984, "\257\300\144\364\322\150\300\206\136\277\046\100\150\000\000"}; static struct {unsigned f; char r[16];} string28 = {851984, "\257\300\074\270\063\045\300\023\342\016\224\100\150\000\000"}; static struct {unsigned f; char r[16];} string29 = {851984, "\257\300\237\211\044\154\300\046\105\033\126\100\150\000\000"}; static struct {unsigned f; char r[16];} string30 = {851984, "\257\300\240\236\274\315\300\111\163\325\023\100\150\000\000"}; static struct {unsigned f; char r[16];} string31 = {851984, "\257\300\343\357\262\137\300\144\166\356\317\100\150\000\000"}; static struct {unsigned f; char r[8];} string32 = {1413833833, "tInput"}; static struct {unsigned f; char r[16];} string33 = {851984, "\257\300\013\141\323\354\300\341\005\243\127\100\150\000\000"}; static struct {unsigned f; char r[16];} string34 = {851984, "\257\300\146\107\314\260\300\352\117\305\000\100\150\000\000"}; static struct {unsigned f; char r[16];} string35 = {851984, "\257\300\241\200\031\316\300\154\273\372\020\100\150\000\000"}; static struct {unsigned f; char r[16];} string36 = {851984, "\257\300\343\112\327\166\300\041\341\335\211\100\150\000\000"}; static struct {unsigned f; char r[16];} string37 = {851984, "\257\300\042\224\360\026\300\243\254\175\360\100\150\000\000"}; static struct {unsigned f; char r[16];} string38 = {851984, "\257\300\173\025\006\177\300\073\326\146\175\100\150\000\000"}; static struct {unsigned f; char r[16];} string39 = {851984, "\257\300\134\353\367\206\300\202\044\112\356\100\150\000\000"}; static struct {unsigned f; char r[16];} string40 = {851984, "\257\300\275\123\020\320\300\044\332\000\200\100\150\000\000"}; static struct {unsigned f; char r[16];} string41 = {851984, "\257\300\302\136\246\312\300\076\314\360\376\100\150\000\000"}; static struct {unsigned f; char r[24];} string42 = {1376280, "\211\011\010\105\166\145\156\164\122\145\160\300\302\136\246\312\300\076\314\360\376\000\000"}; static struct {unsigned f; char r[16];} string43 = {851984, "\257\300\173\025\006\177\300\073\326\146\175\100\164\000\000"}; static struct { word f0[42]; 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[17]; } globalframe = { {0}, (word) RegisterCommandAtoms_P1320, 0, (word) InitEvents_P1260, 0, (word) CreateEvent_P1200, 0, (word) GetRepeatSequence_P1140, 0, (word) GetRepeatList_P1080, 0, (word) Repeat_P1020, 0, (word) Known_P960, 0, (word) NewSliceSize_P900, 0, (word) SliceSize_P840, 0, (word) GetEvent_P780, 0, (word) CountEvents_P720, 0, (word) CurrentEventNumber_P660, 0, (word) Undo_P600, 0, (word) Cancel_P540, 0, (word) DoFreeTree_P480, 0, (word) FreeTrees_P420, 0, (word) FreeTree_P360, 0, (word) RecordRef_P300, 0, (word) RecordChar_P240, 0, (word) RecordInt_P180, 0, (word) CloseEventNow_P120, 0, (word) MapRootsInSubEvents_P60, 0, (word) TEditInputEventsImpl_P0, {0} }; static void NoName_Q3252() { register ptr gf_c0250 = (ptr) &globalframe; word var_c25980; (* (( (ptr) gf_c0250)+19) ) = (word) XR_GetTypeIndex((word) &string1, 0, (word) &string2); (* (( (ptr) gf_c0250)+20) ) = (word) XR_GetTypeIndex((word) &string3, 0, (word) &string2); (* (( (ptr) gf_c0250)+21) ) = (word) XR_GetTypeIndexS((word) (&string4)); (* (( (ptr) gf_c0250)+22) ) = (word) XR_GetTypeIndexS((word) (&string5)); (* (( (ptr) gf_c0250)+23) ) = (word) XR_GetTypeIndex((word) &string6, 0, (word) &string7); (* (( (ptr) gf_c0250)+25) ) = (word) XR_GetTypeIndex((word) &string8, 0, (word) &string9); (* (( (ptr) gf_c0250)+28) ) = (word) XR_GetTypeIndex((word) &string10, 0, (word) &string9); (* (( (ptr) gf_c0250)+31) ) = (word) XR_GetTypeIndex((word) &string11, 0, (word) &string12); (* (( (ptr) gf_c0250)+32) ) = (word) XR_GetTypeIndexS((word) (&string13)); (* (( (ptr) gf_c0250)+33) ) = (word) XR_GetTypeIndex((word) &string14, 0, (word) &string15); (* (ptr) (( (bPt) gf_c0250)+136) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0250)+25) ), (word) &string16); (* (ptr) (( (bPt) gf_c0250)+140) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0250)+25) ), (word) &string17); (* (ptr) (( (bPt) gf_c0250)+144) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0250)+28) ), (word) &string18); (* (ptr) (( (bPt) gf_c0250)+148) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0250)+25) ), (word) &string19); (* (ptr) (( (bPt) gf_c0250)+152) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0250)+25) ), (word) &string20); (* (ptr) (( (bPt) gf_c0250)+156) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0250)+25) ), (word) &string21); (* (ptr) (( (bPt) gf_c0250)+160) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0250)+28) ), (word) &string22); (* (ptr) (( (bPt) gf_c0250)+164) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0250)+28) ), (word) &string19); (void) XR_DeclareGlobalFrame((word) "TEditInputEventsImpl", &globalframe, (word) XR_GetTypeIndex((word) &string23, 0, (word) &string24) , (word) (( (bPt) gf_c0250)+344)/* var_c24124 */ ); var_c25980 = (word) XR_ImportInterface((word) "CedarProcess", (word) XR_GetTypeIndexS((word) (&string25)), 10); (* (( (ptr) gf_c0250)+94)/* var_c25020 */ ) = var_c25980; (void) XR_ImportProcS(var_c25980, 262145); var_c25980 = (word) XR_ImportInterface((word) "InputFocus", (word) XR_GetTypeIndexS((word) (&string26)), 6); (* (( (ptr) gf_c0250)+97)/* var_c25372 */ ) = var_c25980; (void) XR_ImportProcS(var_c25980, 524546); (void) XR_ImportProcS(var_c25980, 67108864); var_c25980 = (word) XR_ImportInterface((word) "List", (word) XR_GetTypeIndexS((word) (&string27)), 28); (* (( (ptr) gf_c0250)+100)/* var_c25756 */ ) = var_c25980; (void) XR_ImportProcS(var_c25980, 67372033); var_c25980 = (word) XR_ImportInterface((word) "MessageWindow", (word) XR_GetTypeIndexS((word) (&string28)), 7); (* (( (ptr) gf_c0250)+98)/* var_c25660 */ ) = var_c25980; (void) XR_ImportProcS(var_c25980, 512); (void) XR_ImportProcS(var_c25980, 524546); var_c25980 = (word) XR_ImportInterface((word) "MonitoredQueue", (word) XR_GetTypeIndexS((word) (&string29)), 9); (* (( (ptr) gf_c0250)+88)/* var_c24156 */ ) = var_c25980; (void) XR_ImportProcS(var_c25980, 67372545); (void) XR_ImportProcS(var_c25980, 524802); (void) XR_ImportProcS(var_c25980, 67109120); var_c25980 = (word) XR_ImportInterface((word) "Process", (word) XR_GetTypeIndexS((word) (&string30)), 22); (* (( (ptr) gf_c0250)+89)/* var_c24220 */ ) = var_c25980; (void) XR_ImportProcS(var_c25980, 526081); var_c25980 = (word) XR_ImportInterface((word) "TEditDocument", (word) XR_GetTypeIndexS((word) (&string31)), 6); (* (( (ptr) gf_c0250)+96)/* var_c25148 */ ) = var_c25980; (void) XR_ImportProcS(var_c25980, 525058); (void) XR_ImportProcS(var_c25980, 67372289); var_c25980 = (word) XR_ImportInterface((word) &string32, (word) XR_GetTypeIndexS((word) (&string33)), 44); (* (( (ptr) gf_c0250)+93)/* var_c24636 */ ) = var_c25980; (void) XR_ImportProcS(var_c25980, 789507); (void) XR_ImportProcS(var_c25980, 791811); (void) XR_ImportProcS(var_c25980, 67378433); var_c25980 = (word) XR_ImportInterface((word) "TEditInputOps", (word) XR_GetTypeIndexS((word) (&string34)), 66); (* (( (ptr) gf_c0250)+99)/* var_c25692 */ ) = var_c25980; (void) XR_ImportProcS(var_c25980, 524290); var_c25980 = (word) XR_ImportInterface((word) "TEditLocks", (word) XR_GetTypeIndexS((word) (&string35)), 7); (* (( (ptr) gf_c0250)+95)/* var_c25084 */ ) = var_c25980; (void) XR_ImportProcS(var_c25980, 67633666); (void) XR_ImportProcS(var_c25980, 262913); (void) XR_ImportProcS(var_c25980, 67895299); var_c25980 = (word) XR_ImportInterface((word) "TEditSelection", (word) XR_GetTypeIndexS((word) (&string36)), 68); (* (( (ptr) gf_c0250)+91)/* var_c24476 */ ) = var_c25980; (void) XR_ImportProcS(var_c25980, 5120); (void) XR_ImportProcS(var_c25980, 1316101); (void) XR_ImportProcS(var_c25980, 270337); (void) XR_ImportProcS(var_c25980, 267009); (void) XR_ImportProcS(var_c25980, 526338); var_c25980 = (word) XR_ImportInterface((word) "TextNode", (word) XR_GetTypeIndexS((word) (&string37)), 34); (* (( (ptr) gf_c0250)+90)/* var_c24380 */ ) = var_c25980; (void) XR_ImportProcS(var_c25980, 270593); (void) XR_ImportProcS(var_c25980, 67372289); var_c25980 = (word) XR_ImportInterface((word) "UndoEvent", (word) XR_GetTypeIndexS((word) (&string38)), 5); (* (( (ptr) gf_c0250)+92)/* var_c24540 */ ) = var_c25980; (void) XR_ImportProcS(var_c25980, 67108864); (void) XR_ImportProcS(var_c25980, 524802); (void) XR_ImportProcS(var_c25980, 67372033); (void) XR_ImportProcS(var_c25980, 262913); var_c25980 = (word) XR_ImportInterface((word) "UserProfile", (word) XR_GetTypeIndexS((word) (&string39)), 11); (* (( (ptr) gf_c0250)+101)/* var_c25916 */ ) = var_c25980; (void) XR_ImportProcS(var_c25980, 67633410); var_c25980 = (word) XR_ExportInterface((word) &string32, (word) XR_GetTypeIndexS((word) (&string33)), 44); (* (( (ptr) gf_c0250)+102)/* var_c26012 */ ) = var_c25980; (void) XR_ExportVar(var_c25980, 2, (word) (( (bPt) gf_c0250)+32)/* currentEvent_v3420 */ ); (void) XR_ExportVar(var_c25980, 4, (word) (( (bPt) gf_c0250)+44)/* repeatList_v3560 */ ); (void) XR_ExportVar(var_c25980, 5, (word) (( (bPt) gf_c0250)+56)/* chars_v3644 */ ); (void) XR_ExportVar(var_c25980, 6, (word) (( (bPt) gf_c0250)+48)/* charsClosed_v3588 */ ); (void) XR_ExportVar(var_c25980, 7, (word) (( (bPt) gf_c0250)+52)/* charsUsed_v3616 */ ); (void) XR_ExportVar(var_c25980, 8, (word) (( (bPt) gf_c0250)+64)/* closeEvent_v4260 */ ); (void) XR_ExportProcS(var_c25980, (word) (( (bPt) gf_c0250)+328)/* var_c24060 */ , 2816); (void) XR_ExportProcS(var_c25980, (word) (( (bPt) gf_c0250)+320)/* var_c24028 */ , 265985); (void) XR_ExportProcS(var_c25980, (word) (( (bPt) gf_c0250)+312)/* var_c23996 */ , 266241); (void) XR_ExportProcS(var_c25980, (word) (( (bPt) gf_c0250)+304)/* var_c23964 */ , 266497); (void) XR_ExportProcS(var_c25980, (word) (( (bPt) gf_c0250)+192)/* var_c23516 */ , 67113472); (void) XR_ExportProcS(var_c25980, (word) (( (bPt) gf_c0250)+296)/* var_c23932 */ , 269825); (void) XR_ExportProcS(var_c25980, (word) (( (bPt) gf_c0250)+272)/* var_c23836 */ , 134489601); (void) XR_ExportProcS(var_c25980, (word) (( (bPt) gf_c0250)+208)/* var_c23580 */ , 134489857); var_c25980 = (word) XR_ExportInterface((word) "TEditHistory", (word) XR_GetTypeIndexS((word) (&string40)), 6); (* (( (ptr) gf_c0250)+102)/* var_c26012 */ ) = var_c25980; (void) XR_ExportProcS(var_c25980, (word) (( (bPt) gf_c0250)+264)/* var_c23804 */ , 262145); (void) XR_ExportProcS(var_c25980, (word) (( (bPt) gf_c0250)+256)/* var_c23772 */ , 67109120); (void) XR_ExportProcS(var_c25980, (word) (( (bPt) gf_c0250)+232)/* var_c23676 */ , 67109376); (void) XR_ExportProcS(var_c25980, (word) (( (bPt) gf_c0250)+224)/* var_c23644 */ , 262913); (void) XR_ExportProcS(var_c25980, (word) (( (bPt) gf_c0250)+216)/* var_c23612 */ , 67372033); (void) XR_ExportProcS(var_c25980, (word) (( (bPt) gf_c0250)+200)/* var_c23548 */ , 67372289); var_c25980 = (word) XR_ExportInterface((word) "Tioga", (word) XR_GetTypeIndexS((word) (&string41)), 1); (* (( (ptr) gf_c0250)+103)/* var_c26044 */ ) = var_c25980; (void) XR_ExportType((word) "EventRep", (word) XR_GetTypeIndexS((word) (&string42)), (word) XR_GetTypeIndex((word) &string43, 0, (word) &string9) ); } static void TEditInputEventsImpl_P0(formal_c071, formal_c065) word formal_c071; word formal_c065; { register ptr gf_c26076 = (ptr) &globalframe; /* TEditInputEventsImpl: */ SOURCE(856, 10501) SOURCE(4559, 54) { word pd44; pd44 = (* (( (ptr) (* (( (ptr) gf_c26076)+88)/* var_c24156 */ ))+5) ); (* (( (ptr) gf_c26076)+15)/* treeQueue_v3840 */ ) = (word) ( *( (fPt) ((* (ptr) pd44 ))))(pd44); }; SOURCE(11287, 22) (void) RegisterCommandAtoms_P1320(); SOURCE(11311, 12) (void) InitEvents_P1260(); SOURCE(11325, 32) { W2 var_c24188; { W2 var_c068; word var_c067; var_c067 = XR_ExtensionAlloc(4); { word tmpAddr45; tmpAddr45 = (word) var_c067; (* (ptr) tmpAddr45 ) = ( ((word) (fPt) NoName_Q4512) ); (* (( (ptr) tmpAddr45) + 1) ) = 0; (* (( (ptr) tmpAddr45) + 2) ) = (word) (( (bPt) gf_c26076)+288)/* var_c23900 */ ; (* (( (ptr) tmpAddr45) + 3) ) = 0; }; (void) XR_Fork((word) &var_c068, var_c067); var_c24188 = var_c068; }; { word pd46; pd46 = (* (( (ptr) (* (( (ptr) gf_c26076)+89)/* var_c24220 */ ))+11) ); (void) ( *( (fPt) ((* (ptr) pd46 ))))(var_c24188, pd46); }; }; } static word MapRootsInSubEvents_P60(subevents_v4944, formal_c0355) word subevents_v4944; word formal_c0355; { W10 var_c26108; /* declaration of action_v4972 skipped */ /* declaration of quit_v5016 skipped */ /* declaration of var_c24252 skipped */ /* declaration of var_c24284 skipped */ (* (( (ptr) &var_c26108)+4)/* action_v4972 */ ) = formal_c0355; /* MapRootsInSubEvents: */ SOURCE(1989, 708) { word tmpAddr47; tmpAddr47 = (word) (( (ptr) &var_c26108)+6)/* var_c24252 */ ; (* (ptr) tmpAddr47 ) = ( ((word) (fPt) Do2_P1440) ); (* (( (ptr) tmpAddr47) + 1) ) = 1; }; { word tmpAddr48; tmpAddr48 = (word) (( (ptr) &var_c26108)+8)/* var_c24284 */ ; (* (ptr) tmpAddr48 ) = ( ((word) (fPt) Do1_P1380) ); (* (( (ptr) tmpAddr48) + 1) ) = 1; }; SOURCE(1989, 708) (* (( (ptr) &var_c26108)+5)/* quit_v5016 */ ) = 0; SOURCE(2373, 324) { register word sub_v6564; sub_v6564 = subevents_v4944; lab_L100003: ; if ( ( (0 == (* (( (ptr) &var_c26108)+5)/* quit_v5016 */ )) ? (sub_v6564 != 0) : 0 ) ) { } else { goto lab_L100000; }; SOURCE(2448, 249) { word var_c24316; var_c24316 = (* (( (ptr) sub_v6564)+2) ); if ((var_c24316 == 0)) { goto lab_L100004; }; { word var_c24348; var_c24348 = (* (ptr) var_c24316 ); switch (var_c24348) { case 0: { word x_v6608; x_v6608 = var_c24316; SOURCE(2507, 11) (void) Do1_P1380((* (( (ptr) x_v6608)+1) ), (word) (( (bPt) &var_c26108)+32)/* var_c24284 */ ); }; break; case 1: { word x_v6664; x_v6664 = var_c24316; SOURCE(2550, 11) (void) Do1_P1380((* (( (ptr) x_v6664)+1) ), (word) (( (bPt) &var_c26108)+32)/* var_c24284 */ ); }; break; case 3: { word x_v6720; x_v6720 = var_c24316; SOURCE(2592, 19) (void) Do2_P1440((* (( (ptr) x_v6720)+1) ), (* (( (ptr) x_v6720)+4) ), (word) (( (bPt) &var_c26108)+24)/* var_c24252 */ ) ; }; break; case 4: { word x_v6776; x_v6776 = var_c24316; SOURCE(2642, 12) (void) Do1_P1380((* (( (ptr) x_v6776)+1) ), (word) (( (bPt) &var_c26108)+32)/* var_c24284 */ ); }; break; case 5: { word x_v6832; x_v6832 = var_c24316; SOURCE(2687, 10) (void) Do1_P1380((* (( (ptr) x_v6832)+1) ), (word) (( (bPt) &var_c26108)+32)/* var_c24284 */ ); }; break; default: lab_L100004: ; break; }; }; }; sub_v6564 = (* (ptr) sub_v6564 ); goto lab_L100003; lab_L100000: ; }; SOURCE(1989, 708) return((* (( (ptr) &var_c26108)+5)/* quit_v5016 */ )); } static void Do1_P1380(node_v6448, formal_c26172) word node_v6448; word formal_c26172; { register ptr gf_c26140 = (ptr) &globalframe; word root_v6888; formal_c26172 = (formal_c26172 - 32); /* Do1: */ SOURCE(2101, 80) SOURCE(2128, 32) { word pd49; pd49 = (* (( (ptr) (* (( (ptr) gf_c26140)+90)/* var_c24380 */ ))+9) ); root_v6888 = (word) ( *( (fPt) ((* (ptr) pd49 ))))(node_v6448, pd49); }; SOURCE(2162, 19) { word pd50; pd50 = (* (( (ptr) formal_c26172)+4) ); (* (( (ptr) formal_c26172)+5) ) = (word) ( *( (fPt) ((* (ptr) pd50 ))))(root_v6888, pd50); }; } static void Do2_P1440(node1_v6508, node2_v6536, formal_c26236) word node1_v6508; word node2_v6536; word formal_c26236; { register ptr gf_c26204 = (ptr) &globalframe; word root1_v6932; word root2_v6960; formal_c26236 = (formal_c26236 - 24); /* Do2: */ SOURCE(2186, 182) SOURCE(2221, 34) { word pd51; pd51 = (* (( (ptr) (* (( (ptr) gf_c26204)+90)/* var_c24380 */ ))+9) ); root1_v6932 = (word) ( *( (fPt) ((* (ptr) pd51 ))))(node1_v6508, pd51); }; SOURCE(2257, 34) { word pd52; pd52 = (* (( (ptr) (* (( (ptr) gf_c26204)+90)/* var_c24380 */ ))+9) ); root2_v6960 = (word) ( *( (fPt) ((* (ptr) pd52 ))))(node2_v6536, pd52); }; SOURCE(2293, 20) { word pd53; pd53 = (* (( (ptr) formal_c26236)+4) ); (* (( (ptr) formal_c26236)+5) ) = (word) ( *( (fPt) ((* (ptr) pd53 ))))(root1_v6932, pd53); }; SOURCE(2315, 53) if ( ( (root2_v6960 != root1_v6932) ? (0 == (* (( (ptr) formal_c26236)+5) )) : 0 ) ) { SOURCE(2348, 20) { word pd54; pd54 = (* (( (ptr) formal_c26236)+4) ); (* (( (ptr) formal_c26236)+5) ) = (word) ( *( (fPt) ((* (ptr) pd54 ))))(root2_v6960, pd54); }; }; } static void CloseEventNow_P120() { W9 var_c26268; register ptr gf_c26300 = (ptr) &globalframe; /* declaration of var_c24412 skipped */ /* declaration of var_c24444 skipped */ /* CloseEventNow: */ SOURCE(2721, 1029) { word tmpAddr55; tmpAddr55 = (word) (( (ptr) &var_c26268)+4)/* var_c24412 */ ; (* (ptr) tmpAddr55 ) = ( ((word) (fPt) CheckForDeletedRoot_P1896) ); (* (( (ptr) tmpAddr55) + 1) ) = 1; }; { word tmpAddr56; tmpAddr56 = (word) (( (ptr) &var_c26268)+6)/* var_c24444 */ ; (* (ptr) tmpAddr56 ) = ( ((word) (fPt) BetweenEvents_P1836) ); (* (( (ptr) tmpAddr56) + 1) ) = 1; }; (void) (XR_MonitorEntry((word) (( (bPt) gf_c26300)+16)/* LOCK_v3280 */ )); SOURCE(2758, 992) { /* declaration of freeList_v7032 skipped */ word var_c01; { word var_c0315; var_c0315 = (word) &var_c26268; var_c01 = (word) XR_Enable(( ((word) (fPt) NoName_Q3312) ), ( ((word) (fPt) NoName_Q4452) ), var_c0315); }; if ((var_c01 == 1)) { goto lab_L02; }; }; SOURCE(2721, 1029) (void) (XR_MonitorExit((word) (( (bPt) gf_c26300)+16)/* LOCK_v3280 */ )); return; lab_L02: ; return; } static word NoName_Q3312(formal_c0258) word formal_c0258; { register ptr gf_c0257 = (ptr) &globalframe; SOURCE(2781, 29) SOURCE(2884, 10) (* (( (ptr) formal_c0258)+8) ) = 0; SOURCE(3127, 108) if ((0 != (word) BetweenEvents_P1836((word) ((( (bPt) formal_c0258)+24))))) { SOURCE(3153, 74) { word pd57; pd57 = (* (( (ptr) (* (( (ptr) gf_c0257)+91)/* var_c24476 */ ))+12) ); (void) ( *( (fPt) ((* (ptr) pd57 ))))((* (ptr) (* (( (ptr) (* (( (ptr) gf_c0257)+91)/* var_c24476 */ ))+4) ) ), (* (( (ptr) (* ( ( (ptr) gf_c0257)+9)/* editEvent_v3448 */ ))+5) ), pd57); }; SOURCE(3229, 6) (void) (XR_MonitorExit((word) (( (bPt) gf_c0257)+16)/* LOCK_v3280 */ )); return(1); }; SOURCE(3258, 33) (* (( (ptr) (* (( (ptr) gf_c0257)+9)/* editEvent_v3448 */ ))+3) ) = (* (( (ptr) gf_c0257)+11)/* repeatList_v3560 */ ); SOURCE(3293, 16) (* (( (ptr) gf_c0257)+11)/* repeatList_v3560 */ ) = 0; SOURCE(3311, 26) (* (( (ptr) gf_c0257)+9)/* editEvent_v3448 */ ) = (* (( (ptr) (* (( (ptr) gf_c0257)+9)/* editEvent_v3448 */ ))+1) ); SOURCE(3339, 74) { word pd58; pd58 = (* (( (ptr) (* (( (ptr) gf_c0257)+91)/* var_c24476 */ ))+12) ); (void) ( *( (fPt) ((* (ptr) pd58 ))))((* (ptr) (* (( (ptr) (* (( (ptr) gf_c0257)+91)/* var_c24476 */ ))+4) ) ), (* (( (ptr) (* ( ( (ptr) gf_c0257)+9)/* editEvent_v3448 */ ))+5) ), pd58); }; SOURCE(3415, 26) (* (( (ptr) (* (( (ptr) gf_c0257)+9)/* editEvent_v3448 */ ))+3) ) = 0; SOURCE(3443, 31) (* (( (ptr) gf_c0257)+13)/* charsUsed_v3616 */ ) = 0; (* (( (ptr) gf_c0257)+12)/* charsClosed_v3588 */ ) = 0; SOURCE(3476, 23) (* (( (ptr) gf_c0257)+14)/* chars_v3644 */ ) = (* (( (ptr) (* (( (ptr) gf_c0257)+9)/* editEvent_v3448 */ ))+4) ); SOURCE(3501, 29) (* (( (ptr) gf_c0257)+8)/* currentEvent_v3420 */ ) = (* (( (ptr) (* (( (ptr) gf_c0257)+9)/* editEvent_v3448 */ ))+2) ); SOURCE(3532, 69) { word var_c24508; var_c24508 = (word) MapRootsInSubEvents_P60((* (ptr) (* (( (ptr) gf_c0257)+8)/* currentEvent_v3420 */ ) ), (word) (( (bPt) formal_c0258)+16) ); }; SOURCE(3603, 29) { word pd59; pd59 = (* (( (ptr) (* (( (ptr) gf_c0257)+92)/* var_c24540 */ ))+7) ); (void) ( *( (fPt) ((* (ptr) pd59 ))))((* ((( (ptr) gf_c0257)+8)/* currentEvent_v3420 */ ) ), pd59); }; SOURCE(3634, 27) (* (( (ptr) gf_c0257)+10)/* eventNumber_v3476 */ ) = ((* (( (ptr) gf_c0257)+10)/* eventNumber_v3476 */ ) + 1); SOURCE(3663, 87) { register word lst_v7248; lst_v7248 = (* (( (ptr) formal_c0258)+8) ); lab_L100010: ; if ((lst_v7248 != 0)) { } else { goto lab_L100007; }; SOURCE(3723, 27) (void) FreeTree_P360((* (ptr) (lst_v7248) )); lst_v7248 = (* (( (ptr) lst_v7248)+1) ); goto lab_L100010; lab_L100007: ; }; return(0); } static word BetweenEvents_P1836(formal_c26364) word formal_c26364; { register ptr gf_c26332 = (ptr) &globalframe; word var_c7136; formal_c26364 = (formal_c26364 - 24); /* BetweenEvents: */ SOURCE(2781, 29) SOURCE(2820, 59) { word tc60; word pd61; if (((* (( (ptr) gf_c26332)+11)/* repeatList_v3560 */ ) == 0)) { pd61 = (* (( (ptr) (* (( (ptr) gf_c26332)+92)/* var_c24540 */ ))+8) ); tc60 = (word) (0 != (word) ( *( (fPt) ((* (ptr) pd61 ))))((* ((( (ptr) gf_c26332)+8)/* currentEvent_v3420 */ ) ), pd61) ); } else { tc60 = (word) 0; }; return(tc60); }; } static word CheckForDeletedRoot_P1896(root_v18220, formal_c26428) word root_v18220; word formal_c26428; { register ptr gf_c26396 = (ptr) &globalframe; word quit_v18264; formal_c26428 = (formal_c26428 - 16); /* CheckForDeletedRoot: */ SOURCE(2914, 34) SOURCE(2914, 34) quit_v18264 = 0; SOURCE(2950, 169) if ( ( (root_v18220 != 0) ? (((unsigned)(* (( (bPt) root_v18220)+36) ) << 30) >> 31) : 0 ) ) { SOURCE(2986, 91) { register word lst_v7376; lst_v7376 = (* (( (ptr) formal_c26428)+8) ); lab_L100014: ; if ((lst_v7376 != 0)) { } else { goto lab_L100011; }; SOURCE(3046, 31) if (((* (ptr) lst_v7376 ) == root_v18220)) { SOURCE(3071, 6) return(quit_v18264); }; lst_v7376 = (* (( (ptr) lst_v7376)+1) ); goto lab_L100014; lab_L100011: ; }; SOURCE(3088, 31) { word var_c24604; var_c24604 = XR_NewObject(8, (* (( (ptr) gf_c26396)+19) )); (* (ptr) var_c24604 ) = root_v18220; (* (( (ptr) var_c24604)+1) ) = (* (( (ptr) formal_c26428)+8) ); (* (( (ptr) formal_c26428)+8) ) = var_c24604; }; }; SOURCE(2914, 34) return(quit_v18264); } static void RecordInt_P180(formal_c0356) word formal_c0356; { W5 var_c26460; /* declaration of i_v5092 skipped */ register ptr gf_c26492 = (ptr) &globalframe; var_c26460.f4/* i_v5092 */ = formal_c0356; /* RecordInt: */ SOURCE(3756, 205) (void) (XR_MonitorEntry((word) (( (bPt) gf_c26492)+16)/* LOCK_v3280 */ )); SOURCE(3799, 162) { word var_c02; { word var_c0316; var_c0316 = (word) &var_c26460; var_c02 = (word) XR_Enable(( ((word) (fPt) NoName_Q3372) ), ( ((word) (fPt) NoName_Q4392) ), var_c0316); }; if ((var_c02 == 1)) { goto lab_L04; }; }; SOURCE(3756, 205) (void) (XR_MonitorExit((word) (( (bPt) gf_c26492)+16)/* LOCK_v3280 */ )); return; lab_L04: ; return; } static word NoName_Q3372(formal_c0265) word formal_c0265; { register ptr gf_c0264 = (ptr) &globalframe; SOURCE(3822, 48) if (( (int)(* (ptr) (* (( (ptr) (* (( (ptr) gf_c0264)+93)/* var_c24636 */ ))+4) ) ) > (int)1)) { SOURCE(3864, 6) (void) (XR_MonitorExit((word) (( (bPt) gf_c0264)+16)/* LOCK_v3280 */ )); return(1); }; SOURCE(3872, 36) if ((0 != (* (( (ptr) gf_c0264)+13)/* charsUsed_v3616 */ ))) { SOURCE(3890, 18) (* (( (ptr) gf_c0264)+12)/* charsClosed_v3588 */ ) = 1; }; SOURCE(3910, 51) { word var_c24668; word var_c24732; { word var_c24700; var_c24700 = XR_NewObject(4, (* (( (ptr) gf_c0264)+21) )); (* (ptr) var_c24700 ) = (* (( (ptr) formal_c0265)+4) ); var_c24668 = var_c24700; }; var_c24732 = XR_NewObject(8, (* (( (ptr) gf_c0264)+20) )); (* (ptr) var_c24732 ) = var_c24668; (* (( (ptr) var_c24732)+1) ) = (* (( (ptr) gf_c0264)+11)/* repeatList_v3560 */ ); (* (( (ptr) gf_c0264)+11)/* repeatList_v3560 */ ) = var_c24732; }; return(0); } static void RecordChar_P240(formal_c0357) word formal_c0357; { W5 var_c26524; /* declaration of c_v5152 skipped */ register ptr gf_c26556 = (ptr) &globalframe; var_c26524.f4/* c_v5152 */ = formal_c0357; /* RecordChar: */ SOURCE(3967, 389) (void) (XR_MonitorEntry((word) (( (bPt) gf_c26556)+16)/* LOCK_v3280 */ )); SOURCE(4011, 345) { word var_c03; { word var_c0317; var_c0317 = (word) &var_c26524; var_c03 = (word) XR_Enable(( ((word) (fPt) NoName_Q3432) ), ( ((word) (fPt) NoName_Q4332) ), var_c0317); }; if ((var_c03 == 1)) { goto lab_L06; }; }; SOURCE(3967, 389) (void) (XR_MonitorExit((word) (( (bPt) gf_c26556)+16)/* LOCK_v3280 */ )); return; lab_L06: ; return; } static word NoName_Q3432(formal_c0268) word formal_c0268; { register ptr gf_c0267 = (ptr) &globalframe; SOURCE(4034, 48) if (( (int)(* (ptr) (* (( (ptr) (* (( (ptr) gf_c0267)+93)/* var_c24636 */ ))+4) ) ) > (int)1)) { SOURCE(4076, 6) (void) (XR_MonitorExit((word) (( (bPt) gf_c0267)+16)/* LOCK_v3280 */ )); return(1); }; SOURCE(4084, 272) if ((0 == (* (( (ptr) gf_c0267)+12)/* charsClosed_v3588 */ ))) { { word var_c24828; SOURCE(4107, 93) if ((0 == (* (( (ptr) gf_c0267)+13)/* charsUsed_v3616 */ ))) { SOURCE(4128, 16) (* (( (ptr) gf_c0267)+13)/* charsUsed_v3616 */ ) = 1; SOURCE(4146, 16) (* (hPt) (* (( (ptr) gf_c0267)+14)/* chars_v3644 */ ) ) = 0; SOURCE(4164, 36) { word var_c24764; var_c24764 = XR_NewObject(8, (* (( (ptr) gf_c0267)+20) )); (* (ptr) var_c24764 ) = (* (( (ptr) gf_c0267)+14)/* chars_v3644 */ ); (* (( (ptr) var_c24764)+1) ) = (* (( (ptr) gf_c0267)+11)/* repeatList_v3560 */ ); (* (( (ptr) gf_c0267)+11)/* repeatList_v3560 */ ) = var_c24764; }; }; SOURCE(4203, 23) { word var_c24796; var_c24796 = (* (( (ptr) gf_c0267)+14)/* chars_v3644 */ ); { word idx62; word limit63; (* ((( (bPt) var_c24796)+4)+( idx62 = (word) (* (hPt) (* (( (ptr) gf_c0267)+14)/* chars_v3644 */ ) ), limit63 = (word) (* (( (hPt) var_c24796)+1) ), BCK(idx62, limit63) )) ) = (* (( (bPt) formal_c0268)+19) ); }; }; SOURCE(4228, 77) { word idx64; var_c24828 = ( idx64 = (word) ((* (hPt) (* (( (ptr) gf_c0267)+14)/* chars_v3644 */ ) ) + 1), BCK(idx64, 32768) ); }; (* (hPt) (* (( (ptr) gf_c0267)+14)/* chars_v3644 */ ) ) = var_c24828; if ((var_c24828 == (* (( (hPt) (* (( (ptr) gf_c0267)+14)/* chars_v3644 */ ))+1) ))) { SOURCE(4286, 19) (* (( (ptr) gf_c0267)+12)/* charsClosed_v3588 */ ) = 1; }; }; } else { SOURCE(4312, 44) { word var_c24860; word var_c24924; { word var_c24892; var_c24892 = XR_NewObject(4, (* (( (ptr) gf_c0267)+22) )); (* (ptr) var_c24892 ) = (* (( (ptr) formal_c0268)+4) ); var_c24860 = var_c24892; }; var_c24924 = XR_NewObject(8, (* (( (ptr) gf_c0267)+20) )); (* (ptr) var_c24924 ) = var_c24860; (* (( (ptr) var_c24924)+1) ) = (* (( (ptr) gf_c0267)+11)/* repeatList_v3560 */ ); (* (( (ptr) gf_c0267)+11)/* repeatList_v3560 */ ) = var_c24924; }; }; return(0); } static void RecordRef_P300(formal_c0358) word formal_c0358; { W5 var_c26588; /* declaration of ref_v5212 skipped */ register ptr gf_c26620 = (ptr) &globalframe; var_c26588.f4/* ref_v5212 */ = formal_c0358; /* RecordRef: */ SOURCE(4360, 193) (void) (XR_MonitorEntry((word) (( (bPt) gf_c26620)+16)/* LOCK_v3280 */ )); SOURCE(4408, 145) { word var_c04; { word var_c0318; var_c0318 = (word) &var_c26588; var_c04 = (word) XR_Enable(( ((word) (fPt) NoName_Q3492) ), ( ((word) (fPt) NoName_Q4272) ), var_c0318); }; if ((var_c04 == 1)) { goto lab_L08; }; }; SOURCE(4360, 193) (void) (XR_MonitorExit((word) (( (bPt) gf_c26620)+16)/* LOCK_v3280 */ )); return; lab_L08: ; return; } static word NoName_Q3492(formal_c0271) word formal_c0271; { register ptr gf_c0270 = (ptr) &globalframe; SOURCE(4431, 48) if (( (int)(* (ptr) (* (( (ptr) (* (( (ptr) gf_c0270)+93)/* var_c24636 */ ))+4) ) ) > (int)1)) { SOURCE(4473, 6) (void) (XR_MonitorExit((word) (( (bPt) gf_c0270)+16)/* LOCK_v3280 */ )); return(1); }; SOURCE(4481, 36) if ((0 != (* (( (ptr) gf_c0270)+13)/* charsUsed_v3616 */ ))) { SOURCE(4499, 18) (* (( (ptr) gf_c0270)+12)/* charsClosed_v3588 */ ) = 1; }; SOURCE(4519, 34) { word var_c24956; var_c24956 = XR_NewObject(8, (* (( (ptr) gf_c0270)+20) )); (* (ptr) var_c24956 ) = (* (( (ptr) formal_c0271)+4) ); (* (( (ptr) var_c24956)+1) ) = (* (( (ptr) gf_c0270)+11)/* repeatList_v3560 */ ); (* (( (ptr) gf_c0270)+11)/* repeatList_v3560 */ ) = var_c24956; }; return(0); } static void FreeTree_P360(root_v5284) word root_v5284; { W7 var_c26652; register ptr gf_c26684 = (ptr) &globalframe; /* declaration of var_c24988 skipped */ /* declaration of thisRoot_v7504 skipped */ /* FreeTree: */ SOURCE(4616, 361) { word tmpAddr65; tmpAddr65 = (word) (( (ptr) &var_c26652)+4)/* var_c24988 */ ; (* (ptr) tmpAddr65 ) = ( ((word) (fPt) Check_P2052) ); (* (( (ptr) tmpAddr65) + 1) ) = 1; }; SOURCE(4655, 21) var_c26652.f6/* thisRoot_v7504 */ = root_v5284; SOURCE(4725, 39) if ((root_v5284 == 0) || (* (( (bPt) root_v5284)+36) ) & 02) { SOURCE(4758, 6) return; }; SOURCE(4766, 19) ((P1x6b) (( (bPt) root_v5284) + 36))->f = 1; SOURCE(4787, 144) { register word event_v7576; event_v7576 = (* (( (ptr) (* (( (ptr) gf_c26684)+9)/* editEvent_v3448 */ ))+1) ); lab_L100024: ; if ((event_v7576 != (* (( (ptr) gf_c26684)+9)/* editEvent_v3448 */ ))) { } else { goto lab_L100021; }; SOURCE(4864, 67) if ((0 != (word) MapRootsInSubEvents_P60((* (ptr) (* (( (ptr) (* (( (ptr) gf_c26684)+9)/* editEvent_v3448 */ ))+2) ) ), (word) ( ( (bPt) &var_c26652)+16)/* var_c24988 */ ))) { SOURCE(4925, 6) return; }; event_v7576 = (* (( (ptr) event_v7576)+1) ); goto lab_L100024; lab_L100021: ; }; SOURCE(4942, 35) { word pd66; pd66 = (* (( (ptr) (* (( (ptr) gf_c26684)+88)/* var_c24156 */ ))+6) ); (void) ( *( (fPt) ((* (ptr) pd66 ))))(root_v5284, (* (( (ptr) gf_c26684)+15)/* treeQueue_v3840 */ ), pd66); }; } static word Check_P2052(root_v18440, formal_c26716) word root_v18440; word formal_c26716; { word quit_v18484; formal_c26716 = (formal_c26716 - 16); /* Check: */ SOURCE(4678, 44) SOURCE(4678, 44) quit_v18484 = 0; SOURCE(4700, 22) return((root_v18440 == (* (( (ptr) formal_c26716)+6) ))); } static void FreeTrees_P420() { W5 var_c26748; register ptr gf_c26780 = (ptr) &globalframe; /* FreeTrees: */ SOURCE(4983, 165) SOURCE(5003, 36) { word pd67; pd67 = (* (( (ptr) (* (( (ptr) gf_c26780)+94)/* var_c25020 */ ))+4) ); (void) ( *( (fPt) ((* (ptr) pd67 ))))(1, pd67); }; SOURCE(5041, 107) lab_L100027: ; SOURCE(5055, 93) { word var_c25052; { word pd68; pd68 = (* (( (ptr) (* (( (ptr) gf_c26780)+88)/* var_c24156 */ ))+10) ); var_c25052 = (word) ( *( (fPt) ((* (ptr) pd68 ))))((* ((( (ptr) gf_c26780)+15)/* treeQueue_v3840 */ ) ), pd68); }; if ((var_c25052 == 0)) { goto lab_L100028; }; if (((* (( (ptr) gf_c26780)+23) ) == XR_GetReferentType(var_c25052))) { { /* declaration of root_v7620 skipped */ var_c26748.f4/* root_v7620 */ = var_c25052; SOURCE(5119, 29) SOURCE(5119, 29) { word var_c05; { word var_c0319; var_c0319 = (word) &var_c26748; var_c05 = (word) XR_Enable(( ((word) (fPt) NoName_Q3552) ), ( ((word) (fPt) NoName_Q4212) ), var_c0319); }; /* removed trivial cond node */ }; }; } else { lab_L100028: ; }; }; goto lab_L100027; } static word NoName_Q3552(formal_c0275) word formal_c0275; { SOURCE(5119, 29) (void) DoFreeTree_P480((* ((( (ptr) formal_c0275)+4)) )); return(0); } static void DoFreeTree_P480(root_v5360) word root_v5360; { register ptr gf_c26812 = (ptr) &globalframe; /* DoFreeTree: */ SOURCE(5180, 318) SOURCE(5214, 41) if ((root_v5360 == 0) || ((* (( (ptr) root_v5360)+2) ) == 0)) { SOURCE(5249, 6) return; }; SOURCE(5283, 178) lab_L100035: ; SOURCE(5286, 47) { word var_c25116; word pd69; pd69 = (* (( (ptr) (* (( (ptr) gf_c26812)+95)/* var_c25084 */ ))+4) ); var_c25116 = (word) ( *( (fPt) ((* (ptr) pd69 ))))(root_v5360, (* (( (ptr) gf_c26812)+38) ), 1, pd69); }; SOURCE(5335, 51) { word pd70; pd70 = (* (( (ptr) (* (( (ptr) gf_c26812)+96)/* var_c25148 */ ))+9) ); if (((word) ( *( (fPt) ((* (ptr) pd70 ))))(root_v5360, pd70) == 0)) { SOURCE(5386, 4) goto lab_L100034; }; }; SOURCE(5392, 44) { word pd71; pd71 = (* (( (ptr) (* (( (ptr) gf_c26812)+96)/* var_c25148 */ ))+7) ); (void) ( *( (fPt) ((* (ptr) pd71 ))))(0, root_v5360, pd71); }; SOURCE(5438, 23) { word pd72; pd72 = (* (( (ptr) (* (( (ptr) gf_c26812)+95)/* var_c25084 */ ))+7) ); (void) ( *( (fPt) ((* (ptr) pd72 ))))(root_v5360, pd72); }; goto lab_L100035; lab_L100034: ; SOURCE(5472, 26) { word pd73; pd73 = (* (( (ptr) (* (( (ptr) gf_c26812)+90)/* var_c24380 */ ))+37) ); (void) ( *( (fPt) ((* (ptr) pd73 ))))(root_v5360, pd73); }; } static void Cancel_P540(formal_c0127, viewer_v16020) word formal_c0127; word viewer_v16020; { register ptr gf_c26844 = (ptr) &globalframe; word recordAtom_v16064; word quit_v16092; /* Cancel: */ SOURCE(5504, 94) SOURCE(5504, 94) recordAtom_v16064 = 1; SOURCE(5504, 94) quit_v16092 = 0; SOURCE(5546, 15) (void) CloseEventNow_P120(); SOURCE(5563, 19) (void) Undo_P600(((* (( (ptr) gf_c26844)+10)/* eventNumber_v3476 */ ) - 1)); SOURCE(5584, 14) recordAtom_v16064 = 0; quit_v16092 = 0; /* removed tail goto */ (* (ptr) formal_c0127 ) = recordAtom_v16064; (* (( (ptr) formal_c0127)+1) ) = quit_v16092; return; } static void Undo_P600(formal_c0359) word formal_c0359; { W18 var_c26876; /* declaration of eventNum_v5420 skipped */ register ptr gf_c26908 = (ptr) &globalframe; /* declaration of var_c25180 skipped */ /* declaration of var_c25212 skipped */ /* declaration of e_v7664 skipped */ /* declaration of first_v7692 skipped */ /* declaration of last_v7720 skipped */ /* declaration of viewer_v7748 skipped */ /* declaration of num_v7776 skipped */ /* declaration of undone_v7804 skipped */ /* declaration of selectionsLocked_v7832 skipped */ /* declaration of docList_v7860 skipped */ /* declaration of lockedList_v7888 skipped */ (* (( (ptr) &var_c26876)+4)/* eventNum_v5420 */ ) = formal_c0359; /* Undo: */ SOURCE(5604, 2406) { word tmpAddr74; tmpAddr74 = (word) (( (ptr) &var_c26876)+5)/* var_c25180 */ ; (* (ptr) tmpAddr74 ) = ( ((word) (fPt) Add_P2364) ); (* (( (ptr) tmpAddr74) + 1) ) = 1; }; { word tmpAddr75; tmpAddr75 = (word) (( (ptr) &var_c26876)+7)/* var_c25212 */ ; (* (ptr) tmpAddr75 ) = ( ((word) (fPt) Cleanup_P2208) ); (* (( (ptr) tmpAddr75) + 1) ) = 1; }; SOURCE(5642, 25) (* (( (ptr) &var_c26876)+9)/* e_v7664 */ ) = 0; (* (( (ptr) &var_c26876)+10)/* first_v7692 */ ) = 0; (* (( (ptr) &var_c26876)+11)/* last_v7720 */ ) = 0; SOURCE(5669, 28) (* (( (ptr) &var_c26876)+12)/* viewer_v7748 */ ) = 0; SOURCE(5717, 30) (* (( (ptr) &var_c26876)+15)/* selectionsLocked_v7832 */ ) = 0; SOURCE(5749, 21) (* (( (ptr) &var_c26876)+16)/* docList_v7860 */ ) = 0; (* (( (ptr) &var_c26876)+17)/* lockedList_v7888 */ ) = 0; SOURCE(5996, 15) (void) CloseEventNow_P120(); SOURCE(6013, 41) { word pd76; pd76 = (* (( (ptr) (* (( (ptr) gf_c26908)+91)/* var_c24476 */ ))+23) ); (void) ( *( (fPt) ((* (ptr) pd76 ))))((* ((( (ptr) gf_c26908)+37)) ), pd76); }; SOURCE(6056, 23) (* (( (ptr) &var_c26876)+15)/* selectionsLocked_v7832 */ ) = 1; SOURCE(6083, 1927) { word var_c0320; var_c0320 = (word) &var_c26876; (void) (word) XR_Enable(( ((word) (fPt) NoName_Q3612) ), ( ((word) (fPt) NoName_Q4152) ), var_c0320); }; } static word NoName_Q3612(formal_c0280) word formal_c0280; { register ptr gf_c0279 = (ptr) &globalframe; SOURCE(6111, 6) { word list_v8060 = 0; word var_c0321; word var_c0323; SOURCE(6131, 17) (* (( (ptr) formal_c0280)+13) ) = (* (( (ptr) gf_c0279)+10)/* eventNumber_v3476 */ ); SOURCE(6150, 21) { word var_c25244; var_c25244 = (* (( (ptr) gf_c0279)+9)/* editEvent_v3448 */ ); (* (( (ptr) formal_c0280)+9) ) = var_c25244; (* (( (ptr) formal_c0280)+10) ) = var_c25244; }; SOURCE(6173, 764) lab_L100041: ; (* (( (ptr) formal_c0280)+13) ) = ((* (( (ptr) formal_c0280)+13) ) - 1); var_c0321 = (* (( (ptr) formal_c0280)+13) ); if (( (int)var_c0321 >= (int)(* (( (ptr) formal_c0280)+4) ))) { } else { goto lab_L100039; }; { word var_c0322; SOURCE(6855, 29) (* (( (ptr) formal_c0280)+9) ) = (* (ptr) (* (( (ptr) formal_c0280)+9) ) ); var_c0322 = (* (( (ptr) formal_c0280)+9) ); if ((var_c0322 == (* (( (ptr) formal_c0280)+10) ))) { SOURCE(6884, 4) goto lab_L100040; }; SOURCE(6890, 47) { word var_c25276; var_c25276 = (word) MapRootsInSubEvents_P60((* (ptr) (* (( (ptr) (* (( (ptr) formal_c0280)+9) ))+2) ) ), (word) (( (bPt) formal_c0280)+20) ); }; }; goto lab_L100041; lab_L100039: ; lab_L100040: ; SOURCE(6948, 14) list_v8060 = (* (( (ptr) formal_c0280)+16) ); SOURCE(6964, 226) lab_L100044: ; if ((list_v8060 != 0)) { } else { goto lab_L100042; }; { word rest_v8644; SOURCE(7014, 6) rest_v8644 = (* (( (ptr) list_v8060)+1) ); SOURCE(7046, 47) { word var_c25308; word pd77; pd77 = (* (( (ptr) (* (( (ptr) gf_c0279)+95)/* var_c25084 */ ))+4) ); var_c25308 = (word) ( *( (fPt) ((* (ptr) pd77 ))))((* (ptr) list_v8060 ), (* (( (ptr) gf_c0279)+37) ), 1, pd77); }; SOURCE(7095, 22) (* (( (ptr) list_v8060)+1) ) = (* (( (ptr) formal_c0280)+17) ); SOURCE(7119, 17) (* (( (ptr) formal_c0280)+17) ) = list_v8060; SOURCE(7179, 11) list_v8060 = rest_v8644; }; goto lab_L100044; lab_L100042: ; SOURCE(7201, 35) (* (( (ptr) formal_c0280)+12) ) = (* (ptr) (* (ptr) (* (( (ptr) (* (( (ptr) gf_c0279)+91)/* var_c24476 */ ))+4) ) ) ); SOURCE(7238, 32) { word pd78; pd78 = (* (( (ptr) (* (( (ptr) gf_c0279)+91)/* var_c24476 */ ))+36) ); (void) ( *( (fPt) ((* (ptr) pd78 ))))(0, pd78); }; SOURCE(7308, 34) { word pd79; pd79 = (* (( (ptr) (* (( (ptr) gf_c0279)+91)/* var_c24476 */ ))+36) ); (void) ( *( (fPt) ((* (ptr) pd79 ))))(1, pd79); }; SOURCE(7378, 33) { word pd80; pd80 = (* (( (ptr) (* (( (ptr) gf_c0279)+91)/* var_c24476 */ ))+36) ); (void) ( *( (fPt) ((* (ptr) pd80 ))))(2, pd80); }; SOURCE(7446, 17) (* (( (ptr) formal_c0280)+13) ) = (* (( (ptr) gf_c0279)+10)/* eventNumber_v3476 */ ); SOURCE(7465, 10) (* (( (ptr) formal_c0280)+14) ) = 0; SOURCE(7477, 21) { word var_c25340; var_c25340 = (* (( (ptr) gf_c0279)+9)/* editEvent_v3448 */ ); (* (( (ptr) formal_c0280)+9) ) = var_c25340; (* (( (ptr) formal_c0280)+10) ) = var_c25340; }; SOURCE(7500, 170) lab_L100047: ; (* (( (ptr) formal_c0280)+13) ) = ((* (( (ptr) formal_c0280)+13) ) - 1); var_c0323 = (* (( (ptr) formal_c0280)+13) ); if (( (int)var_c0323 >= (int)(* (( (ptr) formal_c0280)+4) ))) { } else { goto lab_L100045; }; { word var_c0324; SOURCE(7534, 29) (* (( (ptr) formal_c0280)+9) ) = (* (ptr) (* (( (ptr) formal_c0280)+9) ) ); var_c0324 = (* (( (ptr) formal_c0280)+9) ); if ((var_c0324 == (* (( (ptr) formal_c0280)+10) ))) { SOURCE(7563, 4) goto lab_L100046; }; SOURCE(7605, 36) { word pd81; pd81 = (* (( (ptr) (* (( (ptr) gf_c0279)+92)/* var_c24540 */ ))+6) ); (void) ( *( (fPt) ((* (ptr) pd81 ))))((* (( (ptr) (* (( (ptr) formal_c0280)+9) ))+2) ), (* (( (ptr) gf_c0279)+8)/* currentEvent_v3420 */ ), pd81) ; }; SOURCE(7643, 8) (* (( (ptr) formal_c0280)+11) ) = (* (( (ptr) formal_c0280)+9) ); SOURCE(7653, 17) (* (( (ptr) formal_c0280)+14) ) = ((* (( (ptr) formal_c0280)+14) ) + 1); }; goto lab_L100047; lab_L100045: ; lab_L100046: ; SOURCE(7681, 261) { word pd82; pd82 = (* (( (ptr) (* (( (ptr) gf_c0279)+93)/* var_c24636 */ ))+33) ); if ((0 != (word) ( *( (fPt) ((* (ptr) pd82 ))))((* ((( (ptr) (* (( (ptr) formal_c0280)+11) ))+5)) ), pd82))) { SOURCE(7730, 74) { word pd83; pd83 = (* (( (ptr) (* (( (ptr) gf_c0279)+91)/* var_c24476 */ ))+25) ); (void) ( *( (fPt) ((* (ptr) pd83 ))))((* (( (ptr) (* (( (ptr) formal_c0280)+11) ))+5) ), 0, 0, 0, 1, pd83); }; } else { SOURCE(7804, 138) { word if_v8772; SOURCE(7833, 59) { word pd84; pd84 = (* (( (ptr) (* (( (ptr) gf_c0279)+97)/* var_c25372 */ ))+4) ); if_v8772 = (* (ptr) ( *( (fPt) ((* (ptr) pd84 ))))(pd84) ); }; SOURCE(7894, 48) if ((if_v8772 == (* (( (ptr) formal_c0280)+12) ))) { SOURCE(7912, 30) { word pd85; pd85 = (* (( (ptr) (* (( (ptr) gf_c0279)+97)/* var_c25372 */ ))+5) ); (void) ( *( (fPt) ((* (ptr) pd85 ))))(0, 0, pd85); }; }; }; }; }; SOURCE(7945, 17) (void) RecordInt_P180((* ((( (ptr) formal_c0280)+14)) )); SOURCE(7964, 18) (void) RecordRef_P300((* ((( (ptr) gf_c0279)+36)) )); SOURCE(7984, 15) (void) CloseEventNow_P120(); SOURCE(8001, 9) (void) Cleanup_P2208((word) ((( (bPt) formal_c0280)+28))); }; return(0); } static void Cleanup_P2208(formal_c26972) word formal_c26972; { register ptr gf_c26940 = (ptr) &globalframe; formal_c26972 = (formal_c26972 - 28); /* Cleanup: */ SOURCE(5784, 197) SOURCE(5802, 62) if ((0 != (* (( (ptr) formal_c26972)+15) ))) { SOURCE(5827, 37) { word pd86; pd86 = (* (( (ptr) (* (( (ptr) gf_c26940)+91)/* var_c24476 */ ))+24) ); (void) ( *( (fPt) ((* (ptr) pd86 ))))(pd86); }; }; SOURCE(5866, 115) { register word list_v8816; list_v8816 = (* (( (ptr) formal_c26972)+17) ); lab_L100051: ; if ((list_v8816 != 0)) { } else { goto lab_L100048; }; SOURCE(5952, 29) { word pd87; pd87 = (* (( (ptr) (* (( (ptr) gf_c26940)+95)/* var_c25084 */ ))+7) ); (void) ( *( (fPt) ((* (ptr) pd87 ))))((* (ptr) (list_v8816) ), pd87); }; list_v8816 = (* (( (ptr) list_v8816)+1) ); goto lab_L100051; lab_L100048: ; }; } static word Add_P2364(root_v21944, formal_c27036) word root_v21944; word formal_c27036; { register ptr gf_c27004 = (ptr) &globalframe; word quit_v21988; word doc_v8232; word prev_v8260 = 0; formal_c27036 = (formal_c27036 - 20); /* Add: */ SOURCE(6247, 18) SOURCE(6247, 18) quit_v21988 = 0; SOURCE(6267, 16) doc_v8232 = root_v21944; SOURCE(6305, 22) if ((doc_v8232 == 0)) { SOURCE(6321, 6) return(quit_v21988); }; SOURCE(6329, 93) { register word list_v8388; list_v8388 = (* (( (ptr) formal_c27036)+16) ); lab_L100055: ; if ((list_v8388 != 0)) { } else { goto lab_L100052; }; SOURCE(6391, 31) if (((* (ptr) list_v8388 ) == doc_v8232)) { SOURCE(6416, 6) return(quit_v21988); }; list_v8388 = (* (( (ptr) list_v8388)+1) ); goto lab_L100055; lab_L100052: ; }; SOURCE(6433, 124) { word pd89; if (((* (( (ptr) formal_c27036)+16) ) == 0)) { goto then088;}; pd89 = (* (( (ptr) (* (( (ptr) gf_c27004)+95)/* var_c25084 */ ))+6) ); if ((0 != (word) ( *( (fPt) ((* (ptr) pd89 ))))(doc_v8232, (* (ptr) (* (( (ptr) formal_c27036)+16) ) ), pd89))) { then088: ; SOURCE(6520, 28) { word var_c25404; var_c25404 = XR_NewObject(8, (* (( (ptr) gf_c27004)+19) )); (* (ptr) var_c25404 ) = doc_v8232; (* (( (ptr) var_c25404)+1) ) = (* (( (ptr) formal_c27036)+16) ); (* (( (ptr) formal_c27036)+16) ) = var_c25404; }; SOURCE(6550, 7) return(quit_v21988); }; }; SOURCE(6560, 14) prev_v8260 = (* (( (ptr) formal_c27036)+16) ); SOURCE(6576, 204) { register word list_v8516; list_v8516 = (* (( (ptr) formal_c27036)+16) ); lab_L100059: ; if ((list_v8516 != 0)) { } else { goto lab_L100056; }; SOURCE(6638, 128) { word pd90; pd90 = (* (( (ptr) (* (( (ptr) gf_c27004)+95)/* var_c25084 */ ))+6) ); if ((0 != (word) ( *( (fPt) ((* (ptr) pd90 ))))(doc_v8232, (* (ptr) list_v8516 ), pd90))) { SOURCE(6725, 32) { word var_c25436; var_c25436 = XR_NewObject(8, (* (( (ptr) gf_c27004)+19) )); (* (ptr) var_c25436 ) = doc_v8232; (* (( (ptr) var_c25436)+1) ) = (* (( (ptr) list_v8516)+1) ); (* (( (ptr) prev_v8260)+1) ) = var_c25436; }; SOURCE(6759, 7) return(quit_v21988); }; }; SOURCE(6769, 11) prev_v8260 = list_v8516; list_v8516 = (* (( (ptr) list_v8516)+1) ); goto lab_L100059; lab_L100056: ; }; SOURCE(6791, 26) { word var_c25468; var_c25468 = XR_NewObject(8, (* (( (ptr) gf_c27004)+19) )); (* (ptr) var_c25468 ) = doc_v8232; (* (( (ptr) prev_v8260)+1) ) = var_c25468; }; SOURCE(6247, 18) return(quit_v21988); } static word CurrentEventNumber_P660() { register ptr gf_c27068 = (ptr) &globalframe; word var_c5480; /* CurrentEventNumber: */ SOURCE(8017, 71) SOURCE(8067, 21) return((* (( (ptr) gf_c27068)+10)/* eventNumber_v3476 */ )); } static word CountEvents_P720() { register ptr gf_c27100 = (ptr) &globalframe; word number_v5540; /* CountEvents: */ SOURCE(8092, 135) SOURCE(8135, 10) number_v5540 = 1; SOURCE(8147, 80) { register word e_v8944; e_v8944 = (* (( (ptr) (* (( (ptr) gf_c27100)+9)/* editEvent_v3448 */ ))+1) ); lab_L100063: ; if ((e_v8944 != (* (( (ptr) gf_c27100)+9)/* editEvent_v3448 */ ))) { } else { goto lab_L100060; }; SOURCE(8210, 17) number_v5540 = (number_v5540 + 1); e_v8944 = (* (( (ptr) e_v8944)+1) ); goto lab_L100063; lab_L100060: ; }; SOURCE(8092, 135) return(number_v5540); } static word GetEvent_P780(number_v5600) word number_v5600; { register ptr gf_c27132 = (ptr) &globalframe; word event_v5644; /* GetEvent: */ SOURCE(8242, 322) SOURCE(8242, 322) event_v5644 = 0; SOURCE(8302, 41) if (( (int)(* (( (ptr) gf_c27132)+10)/* eventNumber_v3476 */ ) < (int)number_v5600)) { SOURCE(8331, 12) return(0); }; SOURCE(8345, 60) number_v5600 = ((* (( (ptr) gf_c27132)+10)/* eventNumber_v3476 */ ) - number_v5600); if (( (int)number_v5600 == (int)0)) { SOURCE(8387, 18) return((* (( (ptr) gf_c27132)+9)/* editEvent_v3448 */ )); }; SOURCE(8407, 133) { register word e_v8988; e_v8988 = (* (ptr) (* (( (ptr) gf_c27132)+9)/* editEvent_v3448 */ ) ); lab_L100067: ; SOURCE(8452, 22) if ((e_v8988 == (* (( (ptr) gf_c27132)+9)/* editEvent_v3448 */ ))) { SOURCE(8474, 4) goto lab_L100065; }; SOURCE(8498, 42) number_v5600 = (number_v5600 - 1); if (( (int)number_v5600 == (int)0)) { SOURCE(8530, 10) return(e_v8988); }; e_v8988 = (* (ptr) e_v8988 ); goto lab_L100067; lab_L100065: ; }; SOURCE(8551, 13) return(0); } static word SliceSize_P840() { W5 var_c27164; register ptr gf_c27196 = (ptr) &globalframe; /* declaration of var_c06 skipped */ word number_v5704; /* SliceSize: */ SOURCE(8568, 99) (void) (XR_MonitorEntry((word) (( (bPt) gf_c27196)+16)/* LOCK_v3280 */ )); SOURCE(8623, 44) { word var_c07; { word var_c0325; var_c0325 = (word) &var_c27164; var_c07 = (word) XR_Enable(( ((word) (fPt) NoName_Q3672) ), ( ((word) (fPt) NoName_Q4092) ), var_c0325); }; /* removed trivial cond node */ }; return(var_c27164.f4/* var_c06 */ ); } static word NoName_Q3672(formal_c0290) word formal_c0290; { register ptr gf_c0289 = (ptr) &globalframe; SOURCE(8646, 21) { word var_c25500; var_c25500 = (word) CountEvents_P720(); (void) (XR_MonitorExit((word) (( (bPt) gf_c0289)+16)/* LOCK_v3280 */ )); (* (( (ptr) formal_c0290)+4) ) = var_c25500; return(1); }; /* c2c skipped dead code */ } static void NewSliceSize_P900(formal_c0360) word formal_c0360; { W5 var_c27228; /* declaration of number_v5764 skipped */ register ptr gf_c27260 = (ptr) &globalframe; var_c27228.f4/* number_v5764 */ = formal_c0360; /* NewSliceSize: */ SOURCE(8673, 542) (void) (XR_MonitorEntry((word) (( (bPt) gf_c27260)+16)/* LOCK_v3280 */ )); SOURCE(8723, 492) { word var_c08; { word var_c0326; var_c0326 = (word) &var_c27228; var_c08 = (word) XR_Enable(( ((word) (fPt) NoName_Q3732) ), ( ((word) (fPt) NoName_Q4032) ), var_c0326); }; if ((var_c08 == 1)) { goto lab_L014; }; }; SOURCE(8673, 542) (void) (XR_MonitorExit((word) (( (bPt) gf_c27260)+16)/* LOCK_v3280 */ )); return; lab_L014: ; return; } static word NoName_Q3732(formal_c0293) word formal_c0293; { register ptr gf_c0292 = (ptr) &globalframe; SOURCE(8746, 10) { word delta_v9032; SOURCE(8758, 31) { word x91; word x92; (* (( (ptr) formal_c0293)+4) ) = (x92 = (x91 = (* (( (ptr) formal_c0293)+4) ), MIN((int)(word), x91, 200)), MAX((int)(word), x92, 2)); }; SOURCE(8813, 28) delta_v9032 = ((* (( (ptr) formal_c0293)+4) ) - (word) CountEvents_P720()); SOURCE(8843, 372) { word var_c25532; var_c25532 = delta_v9032; if (( (int)var_c25532 == (int)0)) { } else { if (( (int)var_c25532 < (int)0)) { SOURCE(8881, 155) { register word e_v9076; e_v9076 = (* (( (ptr) (* (( (ptr) gf_c0292)+9)/* editEvent_v3448 */ ))+1) ); lab_L100075: ; SOURCE(8941, 95) delta_v9032 = (delta_v9032 + 1); if (( (int)delta_v9032 > (int)0)) { SOURCE(8989, 18) (* (( (ptr) (* (( (ptr) gf_c0292)+9)/* editEvent_v3448 */ ))+1) ) = e_v9076; SOURCE(9009, 18) (* (ptr) e_v9076 ) = (* (( (ptr) gf_c0292)+9)/* editEvent_v3448 */ ); SOURCE(9029, 7) (void) (XR_MonitorExit((word) (( (bPt) gf_c0292)+16)/* LOCK_v3280 */ )); return(1); }; e_v9076 = (* (( (ptr) e_v9076)+1) ); goto lab_L100075; }; } else { SOURCE(9076, 139) { register word i_v9120 = 0; register word noName_c25564; noName_c25564 = delta_v9032; if (( (int)i_v9120 >= (int)noName_c25564)) { goto lab_L100076; }; lab_L100079: ; { word e_v9164; SOURCE(9105, 28) e_v9164 = (word) CreateEvent_P1200(); SOURCE(9135, 23) (* (( (ptr) e_v9164)+1) ) = (* (( (ptr) (* (( (ptr) gf_c0292)+9)/* editEvent_v3448 */ ))+1) ); SOURCE(9160, 15) (* (ptr) (* (( (ptr) e_v9164)+1) ) ) = e_v9164; SOURCE(9177, 18) (* (ptr) e_v9164 ) = (* (( (ptr) gf_c0292)+9)/* editEvent_v3448 */ ); SOURCE(9197, 18) (* (( (ptr) (* (( (ptr) gf_c0292)+9)/* editEvent_v3448 */ ))+1) ) = e_v9164; }; i_v9120 = (i_v9120 + 1); if (( (int)i_v9120 < (int)noName_c25564)) { goto lab_L100079; }; lab_L100076: ; }; }; }; }; }; return(0); } static word Known_P960(formal_c0361) word formal_c0361; { W6 var_c27292; /* declaration of number_v5824 skipped */ register ptr gf_c27324 = (ptr) &globalframe; /* declaration of var_c09 skipped */ word var_c5868; var_c27292.f4/* number_v5824 */ = formal_c0361; /* Known: */ SOURCE(9229, 189) (void) (XR_MonitorEntry((word) (( (bPt) gf_c27324)+16)/* LOCK_v3280 */ )); SOURCE(9287, 131) { word var_c010; { word var_c0327; var_c0327 = (word) &var_c27292; var_c010 = (word) XR_Enable(( ((word) (fPt) NoName_Q3792) ), ( ((word) (fPt) NoName_Q3972) ), var_c0327); }; /* removed trivial cond node */ }; return(var_c27292.f5/* var_c09 */ ); } static word NoName_Q3792(formal_c0296) word formal_c0296; { register ptr gf_c0295 = (ptr) &globalframe; SOURCE(9310, 31) { word e_v9208; SOURCE(9310, 31) e_v9208 = (word) GetEvent_P780((* ((( (ptr) formal_c0296)+4)) )); SOURCE(9343, 75) { word var_c25596; { word pd93; if ((e_v9208 != 0)) { if (((* (( (ptr) e_v9208)+3) ) != 0)) { var_c25596 = 1; } else { pd93 = (* (( (ptr) (* (( (ptr) gf_c0295)+92)/* var_c24540 */ ))+8) ); var_c25596 = (0 == (word) ( *( (fPt) ((* (ptr) pd93 ))))((* ((( (ptr) e_v9208)+2)) ), pd93)); }; } else { var_c25596 = 0; }; }; (void) (XR_MonitorExit((word) (( (bPt) gf_c0295)+16)/* LOCK_v3280 */ )); (* (( (ptr) formal_c0296)+5) ) = var_c25596; return(1); }; }; /* c2c skipped dead code */ } static void Repeat_P1020(formal_c0181, formal_c0362) word formal_c0181; word formal_c0362; { W8 var_c27356; /* declaration of viewer_v16152 skipped */ register ptr gf_c27388 = (ptr) &globalframe; word recordAtom_v16196; word quit_v16224; /* declaration of var_c25628 skipped */ /* declaration of list_v9252 skipped */ var_c27356.f4/* viewer_v16152 */ = formal_c0362; /* Repeat: */ SOURCE(9422, 526) { word tmpAddr94; tmpAddr94 = (word) (( (ptr) &var_c27356)+5)/* var_c25628 */ ; (* (ptr) tmpAddr94 ) = ( ((word) (fPt) DoRepeat_P3048) ); (* (( (ptr) tmpAddr94) + 1) ) = 1; }; SOURCE(9422, 526) recordAtom_v16196 = 1; SOURCE(9422, 526) quit_v16224 = 0; SOURCE(9464, 6) var_c27356.f7/* list_v9252 */ = 0; SOURCE(9487, 443) if (((* (ptr) (* (( (ptr) (* (( (ptr) gf_c27388)+91)/* var_c24476 */ ))+4) ) ) == 0) || ((* (( (ptr) (* (ptr) (* (( (ptr) (* ( ( (ptr) gf_c27388)+91)/* var_c24476 */ ))+4) ) ))+22) ) == 0)) { SOURCE(9566, 54) { word pd95; pd95 = (* (( (ptr) (* (( (ptr) gf_c27388)+98)/* var_c25660 */ ))+5) ); (void) ( *( (fPt) ((* (ptr) pd95 ))))((* (( (ptr) gf_c27388)+35) ), 1, pd95); }; SOURCE(9622, 22) { word pd96; pd96 = (* (( (ptr) (* (( (ptr) gf_c27388)+98)/* var_c25660 */ ))+6) ); (void) ( *( (fPt) ((* (ptr) pd96 ))))(pd96); }; } else { SOURCE(9651, 279) var_c27356.f7/* list_v9252 */ = (word) GetRepeatSequence_P1140(); if ((var_c27356.f7/* list_v9252 */ == 0)) { SOURCE(9696, 53) { word pd97; pd97 = (* (( (ptr) (* (( (ptr) gf_c27388)+98)/* var_c25660 */ ))+5) ); (void) ( *( (fPt) ((* (ptr) pd97 ))))((* (( (ptr) gf_c27388)+34) ), 1, pd97); }; SOURCE(9751, 22) { word pd98; pd98 = (* (( (ptr) (* (( (ptr) gf_c27388)+98)/* var_c25660 */ ))+6) ); (void) ( *( (fPt) ((* (ptr) pd98 ))))(pd98); }; } else { SOURCE(9780, 150) SOURCE(9892, 38) { word pd99; pd99 = (* (( (ptr) (* (( (ptr) gf_c27388)+99)/* var_c25692 */ ))+4) ); (void) ( *( (fPt) ((* (ptr) pd99 ))))((word) (( (bPt) &var_c27356)+20)/* var_c25628 */ , 1, pd99); }; }; }; SOURCE(9933, 15) recordAtom_v16196 = 0; quit_v16224 = 0; /* removed tail goto */ (* (ptr) formal_c0181 ) = recordAtom_v16196; (* (( (ptr) formal_c0181)+1) ) = quit_v16224; return; } static void DoRepeat_P3048(root_v9468, tSel_v9496, formal_c27452) word root_v9468; word tSel_v9496; word formal_c27452; { register ptr gf_c27420 = (ptr) &globalframe; formal_c27452 = (formal_c27452 - 20); /* DoRepeat: */ SOURCE(9782, 16) SOURCE(9845, 44) { word pd100; pd100 = (* (( (ptr) (* (( (ptr) gf_c27420)+93)/* var_c24636 */ ))+25) ); (void) ( *( (fPt) ((* (ptr) pd100 ))))((* (( (ptr) formal_c27452)+4) ), (* (( (ptr) formal_c27452)+7) ), 0, pd100); }; } static word GetRepeatList_P1080(formal_c0363) word formal_c0363; { W6 var_c27484; /* declaration of number_v5928 skipped */ register ptr gf_c27516 = (ptr) &globalframe; /* declaration of var_c011 skipped */ word var_c5972; var_c27484.f4/* number_v5928 */ = formal_c0363; /* GetRepeatList: */ SOURCE(9952, 194) (void) (XR_MonitorEntry((word) (( (bPt) gf_c27516)+16)/* LOCK_v3280 */ )); SOURCE(10029, 117) { word var_c012; { word var_c0328; var_c0328 = (word) &var_c27484; var_c012 = (word) XR_Enable(( ((word) (fPt) NoName_Q3852) ), ( ((word) (fPt) NoName_Q3912) ), var_c0328); }; /* removed trivial cond node */ }; return(var_c27484.f5/* var_c011 */ ); } static word NoName_Q3852(formal_c0302) word formal_c0302; { register ptr gf_c0301 = (ptr) &globalframe; SOURCE(10052, 31) { word e_v9524; SOURCE(10052, 31) e_v9524 = (word) GetEvent_P780((* ((( (ptr) formal_c0302)+4)) )); SOURCE(10085, 61) { word var_c25724; { word pd101; if ((e_v9524 == 0)) { var_c25724 = 0; } else { pd101 = (* (( (ptr) (* (( (ptr) gf_c0301)+100)/* var_c25756 */ ))+8) ); var_c25724 = (word) ( *( (fPt) ((* (ptr) pd101 ))))((* ((( (ptr) e_v9524)+3)) ), pd101); }; }; (void) (XR_MonitorExit((word) (( (bPt) gf_c0301)+16)/* LOCK_v3280 */ )); (* (( (ptr) formal_c0302)+5) ) = var_c25724; return(1); }; }; /* c2c skipped dead code */ } static word GetRepeatSequence_P1140() { register ptr gf_c27548 = (ptr) &globalframe; word params_v6128; word num_v9568; /* GetRepeatSequence: */ SOURCE(10150, 384) SOURCE(10150, 384) params_v6128 = 0; SOURCE(10229, 15) (void) CloseEventNow_P120(); SOURCE(10246, 17) num_v9568 = (* (( (ptr) gf_c27548)+10)/* eventNumber_v3476 */ ); SOURCE(10265, 269) lab_L100087: ; num_v9568 = (num_v9568 - 1); if ((word) Known_P960(num_v9568)) { } else { goto lab_L100085; }; SOURCE(10315, 44) params_v6128 = (word) GetRepeatList_P1080(num_v9568); if ((params_v6128 == 0)) { SOURCE(10359, 4) goto lab_L100087; }; SOURCE(10392, 99) if ( ( ( ((* (( (ptr) params_v6128)+1) ) != 0) ? ((* (( (ptr) (* (( (ptr) params_v6128)+1) ))+1) ) == 0) : 0 ) ? ((* (ptr) (* ( ( (ptr) params_v6128)+1) ) ) == (* (( (ptr) gf_c27548)+36) )) : 0 ) ) { SOURCE(10479, 12) params_v6128 = 0; SOURCE(10493, 5) goto lab_L100087; }; SOURCE(10528, 6) return(params_v6128); /* c2c skipped dead code */ lab_L100085: ; SOURCE(10150, 384) return(params_v6128); } static word CreateEvent_P1200() { register ptr gf_c27580 = (ptr) &globalframe; word e_v6284; /* CreateEvent: */ SOURCE(10582, 166) SOURCE(10582, 166) e_v6284 = 0; SOURCE(10627, 21) e_v6284 = XR_NewObject(24, (* (( (ptr) gf_c27580)+33) )); SOURCE(10650, 27) { word pd102; pd102 = (* (( (ptr) (* (( (ptr) gf_c27580)+92)/* var_c24540 */ ))+4) ); (* (( (ptr) e_v6284)+2) ) = (word) ( *( (fPt) ((* (ptr) pd102 ))))(pd102); }; SOURCE(10679, 23) { word var_c25820; { word var_c25852; var_c25852 = XR_NewObject(68, (* (( (ptr) gf_c27580)+32) )); (* (( (hPt) var_c25852)+1) ) = 64; var_c25820 = var_c25852; }; (* (( (ptr) e_v6284)+4) ) = var_c25820; }; SOURCE(10704, 44) { word var_c25884; var_c25884 = XR_NewObject(108, (* (( (ptr) gf_c27580)+31) )); (* (( (ptr) var_c25884)+22) ) = 1; (* (( (ptr) e_v6284)+5) ) = var_c25884; }; SOURCE(10582, 166) return(e_v6284); } static void InitEvents_P1260() { register ptr gf_c27612 = (ptr) &globalframe; word num_v9612; word first_v9640; word prev_v9668; /* InitEvents: */ SOURCE(10754, 420) SOURCE(10775, 70) { word pd103; word x104; word x105; pd103 = (* (( (ptr) (* (( (ptr) gf_c27612)+101)/* var_c25916 */ ))+5) ); num_v9612 = (x105 = (x104 = (word) ( *( (fPt) ((* (ptr) pd103 ))))((* (( (ptr) gf_c27612)+39) ), 20, pd103), MIN((int)(word), x104, 200)), MAX((int)(word), x105, 2)); }; SOURCE(10868, 32) first_v9640 = (word) CreateEvent_P1200(); SOURCE(10902, 23) prev_v9668 = first_v9640; SOURCE(10927, 106) { register word i_v9712 = 1; register word noName_c25948; noName_c25948 = num_v9612; if (( (int)i_v9712 >= (int)noName_c25948)) { goto lab_L100088; }; lab_L100091: ; { word next_v9756; SOURCE(10953, 31) next_v9756 = (word) CreateEvent_P1200(); SOURCE(10986, 16) (* (ptr) next_v9756 ) = prev_v9668; SOURCE(11004, 16) (* (( (ptr) prev_v9668)+1) ) = next_v9756; SOURCE(11022, 11) prev_v9668 = next_v9756; }; i_v9712 = (i_v9712 + 1); if (( (int)i_v9712 < (int)noName_c25948)) { goto lab_L100091; }; lab_L100088: ; }; SOURCE(11044, 17) (* (ptr) first_v9640 ) = prev_v9668; SOURCE(11063, 17) (* (( (ptr) prev_v9668)+1) ) = first_v9640; SOURCE(11100, 17) (* (( (ptr) gf_c27612)+9)/* editEvent_v3448 */ ) = first_v9640; SOURCE(11119, 23) (* (( (ptr) gf_c27612)+14)/* chars_v3644 */ ) = (* (( (ptr) (* (( (ptr) gf_c27612)+9)/* editEvent_v3448 */ ))+4) ); SOURCE(11144, 30) (* (( (ptr) gf_c27612)+8)/* currentEvent_v3420 */ ) = (* (( (ptr) (* (( (ptr) gf_c27612)+9)/* editEvent_v3448 */ ))+2) ); } static void RegisterCommandAtoms_P1320() { register ptr gf_c27644 = (ptr) &globalframe; /* RegisterCommandAtoms: */ SOURCE(11178, 103) SOURCE(11209, 36) { word pd106; pd106 = (* (( (ptr) (* (( (ptr) gf_c27644)+93)/* var_c24636 */ ))+16) ); (void) ( *( (fPt) ((* (ptr) pd106 ))))((* (( (ptr) gf_c27644)+40) ), (word) (( (bPt) gf_c27644)+208)/* var_c23580 */ , 1, pd106) ; }; SOURCE(11247, 34) { word pd107; pd107 = (* (( (ptr) (* (( (ptr) gf_c27644)+93)/* var_c24636 */ ))+16) ); (void) ( *( (fPt) ((* (ptr) pd107 ))))((* (( (ptr) gf_c27644)+41) ), (word) (( (bPt) gf_c27644)+272)/* var_c23836 */ , 1, pd107) ; }; } static void NoName_Q3912(formal_c0204, formal_c200036, formal_c200037, formal_c200038, formal_c200039) word formal_c0204; word formal_c200036; word formal_c200037; word formal_c200038; word formal_c200039; { register ptr gf_c0307 = (ptr) &globalframe; if ((formal_c200037 == XR_Unwind)) { (void) (XR_MonitorExit((word) (( (bPt) gf_c0307)+16)/* LOCK_v3280 */ )); }; (* (ptr) formal_c0204 ) = 0; (* (( (ptr) formal_c0204)+1) ) = 0; return; } static void NoName_Q3972(formal_c0209, formal_c200032, formal_c200033, formal_c200034, formal_c200035) word formal_c0209; word formal_c200032; word formal_c200033; word formal_c200034; word formal_c200035; { register ptr gf_c0308 = (ptr) &globalframe; if ((formal_c200033 == XR_Unwind)) { (void) (XR_MonitorExit((word) (( (bPt) gf_c0308)+16)/* LOCK_v3280 */ )); }; (* (ptr) formal_c0209 ) = 0; (* (( (ptr) formal_c0209)+1) ) = 0; return; } static void NoName_Q4032(formal_c0214, formal_c200028, formal_c200029, formal_c200030, formal_c200031) word formal_c0214; word formal_c200028; word formal_c200029; word formal_c200030; word formal_c200031; { register ptr gf_c0309 = (ptr) &globalframe; if ((formal_c200029 == XR_Unwind)) { (void) (XR_MonitorExit((word) (( (bPt) gf_c0309)+16)/* LOCK_v3280 */ )); }; (* (ptr) formal_c0214 ) = 0; (* (( (ptr) formal_c0214)+1) ) = 0; return; } static void NoName_Q4092(formal_c0219, formal_c200024, formal_c200025, formal_c200026, formal_c200027) word formal_c0219; word formal_c200024; word formal_c200025; word formal_c200026; word formal_c200027; { register ptr gf_c0310 = (ptr) &globalframe; if ((formal_c200025 == XR_Unwind)) { (void) (XR_MonitorExit((word) (( (bPt) gf_c0310)+16)/* LOCK_v3280 */ )); }; (* (ptr) formal_c0219 ) = 0; (* (( (ptr) formal_c0219)+1) ) = 0; return; } static void NoName_Q4152(formal_c0224, formal_c200020, formal_c200021, formal_c200022, formal_c200023) word formal_c0224; word formal_c200020; word formal_c200021; word formal_c200022; word formal_c200023; { if ((formal_c200021 == XR_Unwind)) { SOURCE(6100, 9) (void) Cleanup_P2208((word) ((( (bPt) formal_c200020)+28))); }; (* (ptr) formal_c0224 ) = 0; (* (( (ptr) formal_c0224)+1) ) = 0; return; } static void NoName_Q4212(formal_c0229, formal_c200016, formal_c200017, formal_c200018, formal_c200019) word formal_c0229; word formal_c200016; word formal_c200017; word formal_c200018; word formal_c200019; { if ((formal_c200017 == XR_Aborted)) { SOURCE(5148, 9) (* (ptr) formal_c0229 ) = 2; (* (( (ptr) formal_c0229)+1) ) = 2; return; }; (* (ptr) formal_c0229 ) = 0; (* (( (ptr) formal_c0229)+1) ) = 0; return; } static void NoName_Q4272(formal_c0234, formal_c200012, formal_c200013, formal_c200014, formal_c200015) word formal_c0234; word formal_c200012; word formal_c200013; word formal_c200014; word formal_c200015; { register ptr gf_c0311 = (ptr) &globalframe; if ((formal_c200013 == XR_Unwind)) { (void) (XR_MonitorExit((word) (( (bPt) gf_c0311)+16)/* LOCK_v3280 */ )); }; (* (ptr) formal_c0234 ) = 0; (* (( (ptr) formal_c0234)+1) ) = 0; return; } static void NoName_Q4332(formal_c0239, formal_c200008, formal_c200009, formal_c200010, formal_c200011) word formal_c0239; word formal_c200008; word formal_c200009; word formal_c200010; word formal_c200011; { register ptr gf_c0312 = (ptr) &globalframe; if ((formal_c200009 == XR_Unwind)) { (void) (XR_MonitorExit((word) (( (bPt) gf_c0312)+16)/* LOCK_v3280 */ )); }; (* (ptr) formal_c0239 ) = 0; (* (( (ptr) formal_c0239)+1) ) = 0; return; } static void NoName_Q4392(formal_c0244, formal_c200004, formal_c200005, formal_c200006, formal_c200007) word formal_c0244; word formal_c200004; word formal_c200005; word formal_c200006; word formal_c200007; { register ptr gf_c0313 = (ptr) &globalframe; if ((formal_c200005 == XR_Unwind)) { (void) (XR_MonitorExit((word) (( (bPt) gf_c0313)+16)/* LOCK_v3280 */ )); }; (* (ptr) formal_c0244 ) = 0; (* (( (ptr) formal_c0244)+1) ) = 0; return; } static void NoName_Q4452(formal_c0249, formal_c200000, formal_c200001, formal_c200002, formal_c200003) word formal_c0249; word formal_c200000; word formal_c200001; word formal_c200002; word formal_c200003; { register ptr gf_c0314 = (ptr) &globalframe; if ((formal_c200001 == XR_Unwind)) { (void) (XR_MonitorExit((word) (( (bPt) gf_c0314)+16)/* LOCK_v3280 */ )); }; (* (ptr) formal_c0249 ) = 0; (* (( (ptr) formal_c0249)+1) ) = 0; return; } static word NoName_Q4512(formal_c069) word formal_c069; { word var_c070; /* intermediary proc for a FORK, nArgs: 0, nRets: 0 */ var_c070 = (* (( (ptr) formal_c069)+2) ); formal_c069 = XR_ExtensionFree(formal_c069); (void) ( *( (fPt) ((* (ptr) var_c070 ))))(var_c070); return(0); } /* file: TEditInputEventsImpl, module: TEditInputEventsImpl, compiled at: February 28, 1992 10:42:11 am PST */ extern void XR_install_TEditInputEventsImpl() { NoName_Q3252(); } extern void XR_run_TEditInputEventsImpl() { XR_Start(&globalframe); }