/* 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 <cedar/InstallationSupport.h>
#include <cedar/CedarExtra.h>
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); }