/* Generated with C2C (Cedar To C)*/
/* Copyright (C) 1992 by Xerox Corporation. All rights reserved. */
/* time: July 9, 1992 4:12:20 pm PDT */
/* C2C version: October 16, 1990 (native) */
/* ref-counting: off */
/* file: TiogaOpsImpl, module: TiogaOpsImpl */
/* switches: bcfhklnouw */
#include <cedar/InstallationSupport.h>
#include <cedar/CedarExtra.h>
static char versionStamp[] = "@(#)mob←version [923172991,3827976614] TiogaOpsImpl";
typedef unsigned word, *ptr;
typedef unsigned char byte, *bPt;
typedef unsigned short half, *hPt;
typedef struct {word f0, f1, f2, f3, f4, f5, f6, f7;} W8;
typedef struct {word f0, f1;} W2;
typedef struct {W8 f; W2 r;} W10;
typedef word (*fPt)();
typedef W2 *W2Pt;
typedef struct {word f0, f1, f2, f3, f4;} W5;
typedef struct {W8 f; W5 r;} W13;
typedef struct {W8 f; W8 r;} W16;
typedef struct {word f0, f1, f2;} W3;
typedef struct {W8 f; W3 r;} W11;
typedef struct {W16 f; W11 r;} W27;
typedef W27 *W27Pt;
typedef struct {word f0, f1, f2, f3;} W4;
typedef struct {W8 f; W4 r;} W12;
typedef struct {word f0, f1, f2, f3, f4, f5, f6;} W7;
typedef struct {W8 f; word r;} W9;
#define SOURCE(p, l) /* source p, l */
#define MAX(cast, x, y) ( ( cast x) > ( cast y) ? (x) : (y) )
static void NoName←Q6912();
static void TiogaOpsImpl←P0();
static void CallWithLocks←P60();
static word NoName←Q6972();
static void Cleanup←P6060();
static void Lock←P120();
static void Unlock←P180();
static void LockSel←P300();
static void UnlockSel←P360();
static void GetSelection←P660();
static word SelectionRoot←P720();
static void CheckSelection←P780();
static void SetSelection←P840();
static word NoName←Q7032();
static void SelectNodes←P900();
static void SelectBranches←P960();
static void SelectDocument←P1020();
static void CancelSelection←P1080();
static void SaveSelA←P1140();
static void RestoreSelA←P1200();
static void SaveSelB←P1260();
static void RestoreSelB←P1320();
static void GrowSelection←P1380();
static void GrowSelectionToBlanks←P1440();
static void GrowSelectionToSomething←P1500();
static word SearchWhere←P1560();
static word FindText←P1620();
static word FindWord←P1680();
static word FindDef←P1740();
static void LocRelative←P1800();
static word LocOffset←P1860();
static word NoName←Q7092();
static void GetCaret←P1920();
static void CaretBefore←P1980();
static void CaretAfter←P2040();
static void CaretOnly←P2100();
static void GoToNextCharacter←P2160();
static void GoToNextWord←P2220();
static void GoToNextNode←P2280();
static void GoToPreviousCharacter←P2340();
static void GoToPreviousWord←P2400();
static void GoToPreviousNode←P2460();
static void ToPrimary←P2520();
static void ToSecondary←P2580();
static void Transpose←P2640();
static void InsertRope←P2700();
static void InsertChar←P2760();
static void InsertLineBreak←P2820();
static void BackSpace←P2880();
static void BackWord←P2940();
static void DeleteNextCharacter←P3000();
static void DeleteNextWord←P3060();
static void InsertTime←P3120();
static void InsertBrackets←P3180();
static void MakeControlCharacter←P3240();
static void UnMakeControlCharacter←P3300();
static void MakeOctalCharacter←P3360();
static void UnMakeOctalCharacter←P3420();
static void ExpandAbbreviation←P3480();
static void Delete←P3540();
static void Paste←P3600();
static void SaveForPaste←P3660();
static void SaveSpanForPaste←P3720();
static void AllLower←P3780();
static void AllCaps←P3840();
static void InitialCaps←P3900();
static void FirstCap←P3960();
static void MesaFormatting←P4020();
static void Repeat←P4080();
static void Undo←P4140();
static void Break←P4200();
static void Join←P4260();
static void Nest←P4320();
static void UnNest←P4380();
static void SetSelectionLooks←P4440();
static word FetchLooks←P4500();
static void SetLooks←P4560();
static void AddLooks←P4620();
static void SubtractLooks←P4680();
static void ClearLooks←P4740();
static void CopyLooks←P4800();
static word GetFormat←P4860();
static void ForEachNode←P4920();
static void SetFormat←P4980();
static void Set←P6216();
static void SetNodeFormat←P5040();
static void SetNodeStyle←P5100();
static void CaretNodeFormat←P5160();
static void InsertFormat←P5220();
static void CopyFormat←P5280();
static word GetStyle←P5340();
static void SetStyle←P5400();
static void Set←P6276();
static word IsComment←P5460();
static void SetComment←P5520();
static void SetNotComment←P5580();
static void SetProp←P5640();
static void Put←P6336();
static void RegisterAbbrevFailedProc←P5700();
static void RegisterFileNameProc←P5760();
static void PutTextKey←P5820();
static void GetTextKey←P5880();
static word NoName←Q7152();
static void RemoveTextKey←P5940();
static word MapTextKeys←P6000();
static word Do←P6444();
static void NoName←Q7212();
static void NoName←Q7272();
static void NoName←Q7332();
static void NoName←Q7392();
static struct {unsigned f; char r[16];} string1 = {917520, "\216\257\300\363\223\326\161\300\017\164\046\072\104\350\000"};
static struct {unsigned f; char r[4];} string2 = {65537, "\001\000\000"};
static struct {unsigned f; char r[16];} string3 = {851984, "\257\300\343\357\262\137\300\144\166\356\317\100\164\000\000"};
static struct {unsigned f; char r[16];} string4 = {851981, "\006\005\000\001\004\001\054\001\070\001\100\114\001\000\000"};
static struct {unsigned f; char r[8];} string5 = {458760, "default"};
static struct {unsigned f; char r[24];} string6 = {1376280, "TiogaOpsSetNodeFormat\000\000"};
static struct {unsigned f; char r[24];} string7 = {1310744, "TiogaOpsSetNodeStyle\000\000\000"};
static struct {unsigned f; char r[16];} string8 = {917520, "TiogaOpsClient\000"};
static struct {unsigned f; char r[16];} string9 = {851984, "\257\300\067\006\200\177\300\344\052\111\246\100\164\000\000"};
static struct {unsigned f; char r[8];} string10 = {327685, "\006\0018\004\017\000\000"};
static struct {unsigned f; char r[16];} string11 = {851984, "\257\300\055\153\222\376\300\327\164\352\142\100\150\000\000"};
static struct {unsigned f; char r[16];} string12 = {851984, "\257\300\004\173\141\246\300\255\256\170\002\100\150\000\000"};
static struct {unsigned f; char r[16];} string13 = {851984, "\257\300\115\072\344\261\300\127\050\323\372\100\150\000\000"};
static struct {unsigned f; char r[16];} string14 = {851984, "\257\300\375\366\273\111\300\156\046\321\053\100\150\000\000"};
static struct {unsigned f; char r[16];} string15 = {851984, "\257\300\363\223\326\161\300\017\164\046\072\100\150\000\000"};
static struct {unsigned f; char r[16];} string16 = {851984, "\257\300\013\141\323\354\300\341\005\243\127\100\150\000\000"};
static struct {unsigned f; char r[16];} string17 = {851984, "\257\300\146\107\314\260\300\352\117\305\000\100\150\000\000"};
static struct {unsigned f; char r[16];} string18 = {851984, "\257\300\241\200\031\316\300\154\273\372\020\100\150\000\000"};
static struct {unsigned f; char r[16];} string19 = {851984, "\257\300\225\100\062\151\300\362\103\127\127\100\150\000\000"};
static struct {unsigned f; char r[16];} string20 = {851984, "\257\300\351\360\047\051\300\272\273\201\332\100\150\000\000"};
static struct {unsigned f; char r[16];} string21 = {851984, "\257\300\343\112\327\166\300\041\341\335\211\100\150\000\000"};
static struct {unsigned f; char r[16];} string22 = {851984, "\257\300\261\010\310\246\300\337\340\027\051\100\150\000\000"};
static struct {unsigned f; char r[16];} string23 = {851984, "\257\300\115\337\006\176\300\345\373\131\011\100\164\000\000"};
static struct {unsigned f; char r[16];} string24 = {851984, "\257\300\042\224\360\026\300\243\254\175\360\100\150\000\000"};
static struct {unsigned f; char r[8];} string25 = {1416195943, "aOps"};
static struct {unsigned f; char r[16];} string26 = {851984, "\257\300\136\253\306\024\300\100\114\357\174\100\150\000\000"};
static struct {unsigned f; char r[16];} string27 = {851984, "\257\300hqQB\300Vy\362\001@h\000\000"};
static W27 dummy47;
static struct {
word f0[22]; word f22; word f23; word f24;
word f25; word f26; word f27; word f28;
word f29; word f30; word f31; word f32;
word f33; word f34; word f35; word f36;
word f37; word f38; word f39; word f40;
word f41; word f42; word f43; word f44;
word f45; word f46; word f47; word f48;
word f49; word f50; word f51; word f52;
word f53; word f54; word f55; word f56;
word f57; word f58; word f59; word f60;
word f61; word f62; word f63; word f64;
word f65; word f66; word f67; word f68;
word f69; word f70; word f71; word f72;
word f73; word f74; word f75; word f76;
word f77; word f78; word f79; word f80;
word f81; word f82; word f83; word f84;
word f85; word f86; word f87; word f88;
word f89; word f90; word f91; word f92;
word f93; word f94; word f95; word f96;
word f97; word f98; word f99; word f100;
word f101; word f102; word f103; word f104;
word f105; word f106; word f107; word f108;
word f109; word f110; word f111; word f112;
word f113; word f114; word f115; word f116;
word f117; word f118; word f119; word f120;
word f121; word f122; word f123; word f124;
word f125; word f126; word f127; word f128;
word f129; word f130; word f131; word f132;
word f133; word f134; word f135; word f136;
word f137; word f138; word f139; word f140;
word f141; word f142; word f143; word f144;
word f145; word f146; word f147; word f148;
word f149; word f150; word f151; word f152;
word f153; word f154; word f155; word f156;
word f157; word f158; word f159; word f160;
word f161; word f162; word f163; word f164;
word f165; word f166; word f167; word f168;
word f169; word f170; word f171; word f172;
word f173; word f174; word f175; word f176;
word f177; word f178; word f179; word f180;
word f181; word f182; word f183; word f184;
word f185; word f186; word f187; word f188;
word f189; word f190; word f191; word f192;
word f193; word f194; word f195; word f196;
word f197; word f198; word f199; word f200;
word f201; word f202; word f203; word f204;
word f205; word f206; word f207; word f208;
word f209; word f210; word f211; word f212;
word f213[17];
} globalframe = {
{0}, (word) MapTextKeys←P6000, 0, (word) RemoveTextKey←P5940,
0, (word) GetTextKey←P5880, 0, (word) PutTextKey←P5820,
0, (word) RegisterFileNameProc←P5760, 0, (word) RegisterAbbrevFailedProc←P5700,
0, (word) SetProp←P5640, 0, (word) SetNotComment←P5580,
0, (word) SetComment←P5520, 0, (word) IsComment←P5460,
0, (word) SetStyle←P5400, 0, (word) GetStyle←P5340,
0, (word) CopyFormat←P5280, 0, (word) InsertFormat←P5220,
0, (word) CaretNodeFormat←P5160, 0, (word) SetNodeStyle←P5100,
0, (word) SetNodeFormat←P5040, 0, (word) SetFormat←P4980,
0, (word) ForEachNode←P4920, 0, (word) GetFormat←P4860,
0, (word) CopyLooks←P4800, 0, (word) ClearLooks←P4740,
0, (word) SubtractLooks←P4680, 0, (word) AddLooks←P4620,
0, (word) SetLooks←P4560, 0, (word) FetchLooks←P4500,
0, (word) SetSelectionLooks←P4440, 0, (word) UnNest←P4380,
0, (word) Nest←P4320, 0, (word) Join←P4260,
0, (word) Break←P4200, 0, (word) Undo←P4140,
0, (word) Repeat←P4080, 0, (word) MesaFormatting←P4020,
0, (word) FirstCap←P3960, 0, (word) InitialCaps←P3900,
0, (word) AllCaps←P3840, 0, (word) AllLower←P3780,
0, (word) SaveSpanForPaste←P3720, 0, (word) SaveForPaste←P3660,
0, (word) Paste←P3600, 0, (word) Delete←P3540,
0, (word) ExpandAbbreviation←P3480, 0, (word) UnMakeOctalCharacter←P3420,
0, (word) MakeOctalCharacter←P3360, 0, (word) UnMakeControlCharacter←P3300,
0, (word) MakeControlCharacter←P3240, 0, (word) InsertBrackets←P3180,
0, (word) InsertTime←P3120, 0, (word) DeleteNextWord←P3060,
0, (word) DeleteNextCharacter←P3000, 0, (word) BackWord←P2940,
0, (word) BackSpace←P2880, 0, (word) InsertLineBreak←P2820,
0, (word) InsertChar←P2760, 0, (word) InsertRope←P2700,
0, (word) Transpose←P2640, 0, (word) ToSecondary←P2580,
0, (word) ToPrimary←P2520, 0, (word) GoToPreviousNode←P2460,
0, (word) GoToPreviousWord←P2400, 0, (word) GoToPreviousCharacter←P2340,
0, (word) GoToNextNode←P2280, 0, (word) GoToNextWord←P2220,
0, (word) GoToNextCharacter←P2160, 0, (word) CaretOnly←P2100,
0, (word) CaretAfter←P2040, 0, (word) CaretBefore←P1980,
0, (word) GetCaret←P1920, 0, (word) LocOffset←P1860,
0, (word) LocRelative←P1800, 0, (word) FindDef←P1740,
0, (word) FindWord←P1680, 0, (word) FindText←P1620,
0, (word) SearchWhere←P1560, 0, (word) GrowSelectionToSomething←P1500,
0, (word) GrowSelectionToBlanks←P1440, 0, (word) GrowSelection←P1380,
0, (word) RestoreSelB←P1320, 0, (word) SaveSelB←P1260,
0, (word) RestoreSelA←P1200, 0, (word) SaveSelA←P1140,
0, (word) CancelSelection←P1080, 0, (word) SelectDocument←P1020,
0, (word) SelectBranches←P960, 0, (word) SelectNodes←P900,
0, (word) SetSelection←P840, 0, (word) CheckSelection←P780,
0, (word) SelectionRoot←P720, 0, (word) GetSelection←P660,
0, (word) UnlockSel←P360, 0, (word) LockSel←P300,
0, (word) Unlock←P180, 0, (word) Lock←P120,
0, (word) CallWithLocks←P60, 0, (word) TiogaOpsImpl←P0,
{0}
};
static void NoName←Q6912()
{
register ptr gf←c0395 = (ptr) &globalframe;
word var←c41980;
(* (( (ptr) gf←c0395)+9) ) = (word) XR←GetTypeIndex((word) &string1, 0, (word) &string2);
(* (( (ptr) gf←c0395)+11) ) = (word) XR←GetTypeIndex((word) &string3, 0, (word) &string4);
(* (ptr) (( (bPt) gf←c0395)+56) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0395)+9) ), (word) &string5);
(* (ptr) (( (bPt) gf←c0395)+60) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0395)+9) ), (word) &string6);
(* (ptr) (( (bPt) gf←c0395)+64) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0395)+9) ), (word) &string7);
(* (ptr) (( (bPt) gf←c0395)+68) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0395)+9) ), (word) &string8);
(void) XR←DeclareGlobalFrame((word) "TiogaOpsImpl", &globalframe, (word) XR←GetTypeIndex((word) &string9, 0, (word) &string10)
, (word) (( (bPt) gf←c0395)+848)/* var←c39196 */ );
var←c41980 = (word) XR←ImportInterface((word) "Atom", (word) XR←GetTypeIndexS((word) (&string11)), 16);
(* (( (ptr) gf←c0395)+226)/* var←c41468 */ ) = var←c41980;
(void) XR←ImportProcS(var←c41980, 67895555);
(void) XR←ImportProcS(var←c41980, 67372289);
var←c41980 = (word) XR←ImportInterface((word) "EditSpan", (word) XR←GetTypeIndexS((word) (&string12)), 23);
(* (( (ptr) gf←c0395)+217)/* var←c39932 */ ) = var←c41980;
(void) XR←ImportProcS(var←c41980, 67637762);
var←c41980 = (word) XR←ImportInterface((word) "NodeAddrs", (word) XR←GetTypeIndexS((word) (&string13)), 15);
(* (( (ptr) gf←c0395)+228)/* var←c41788 */ ) = var←c41980;
(void) XR←ImportProcS(var←c41980, 67635714);
(void) XR←ImportProcS(var←c41980, 524802);
(void) XR←ImportProcS(var←c41980, 134743810);
(void) XR←ImportProcS(var←c41980, 786691);
var←c41980 = (word) XR←ImportInterface((word) "NodeStyleOps", (word) XR←GetTypeIndexS((word) (&string14)), 23);
(* (( (ptr) gf←c0395)+227)/* var←c41660 */ ) = var←c41980;
(void) XR←ImportProcS(var←c41980, 67375105);
var←c41980 = (word) XR←ImportInterface((word) "Rope", (word) XR←GetTypeIndexS((word) (&string15)), 43);
(* (( (ptr) gf←c0395)+220)/* var←c40252 */ ) = var←c41980;
(void) XR←ImportProcS(var←c41980, 67373313);
(void) XR←ImportProcS(var←c41980, 67373825);
var←c41980 = (word) XR←ImportInterface((word) "TEditInput", (word) XR←GetTypeIndexS((word) (&string16)), 44);
(* (( (ptr) gf←c0395)+221)/* var←c40444 */ ) = var←c41980;
(void) XR←ImportProcS(var←c41980, 134489601);
(void) XR←ImportProcS(var←c41980, 134489857);
(void) XR←ImportProcS(var←c41980, 134489089);
(void) XR←ImportProcS(var←c41980, 134490625);
(void) XR←ImportProcS(var←c41980, 134490881);
(void) XR←ImportProcS(var←c41980, 134490113);
(void) XR←ImportProcS(var←c41980, 134490369);
var←c41980 = (word) XR←ImportInterface((word) "TEditInputOps", (word) XR←GetTypeIndexS((word) (&string17)), 66);
(* (( (ptr) gf←c0395)+223)/* var←c41116 */ ) = var←c41980;
(void) XR←ImportProcS(var←c41980, 278017);
(void) XR←ImportProcS(var←c41980, 277761);
(void) XR←ImportProcS(var←c41980, 538370);
(void) XR←ImportProcS(var←c41980, 271617);
(void) XR←ImportProcS(var←c41980, 15104);
(void) XR←ImportProcS(var←c41980, 14848);
(void) XR←ImportProcS(var←c41980, 539650);
(void) XR←ImportProcS(var←c41980, 271361);
(void) XR←ImportProcS(var←c41980, 537858);
(void) XR←ImportProcS(var←c41980, 537602);
(void) XR←ImportProcS(var←c41980, 8192);
(void) XR←ImportProcS(var←c41980, 7936);
(void) XR←ImportProcS(var←c41980, 7680);
(void) XR←ImportProcS(var←c41980, 7424);
(void) XR←ImportProcS(var←c41980, 274689);
(void) XR←ImportProcS(var←c41980, 1317891);
(void) XR←ImportProcS(var←c41980, 6912);
(void) XR←ImportProcS(var←c41980, 6656);
(void) XR←ImportProcS(var←c41980, 268545);
(void) XR←ImportProcS(var←c41980, 16128);
(void) XR←ImportProcS(var←c41980, 5888);
(void) XR←ImportProcS(var←c41980, 5632);
(void) XR←ImportProcS(var←c41980, 5376);
(void) XR←ImportProcS(var←c41980, 5120);
(void) XR←ImportProcS(var←c41980, 534786);
(void) XR←ImportProcS(var←c41980, 12288);
(void) XR←ImportProcS(var←c41980, 264961);
(void) XR←ImportProcS(var←c41980, 264705);
(void) XR←ImportProcS(var←c41980, 264449);
(void) XR←ImportProcS(var←c41980, 264193);
(void) XR←ImportProcS(var←c41980, 1024);
(void) XR←ImportProcS(var←c41980, 262657);
(void) XR←ImportProcS(var←c41980, 262913);
(void) XR←ImportProcS(var←c41980, 271873);
(void) XR←ImportProcS(var←c41980, 271105);
(void) XR←ImportProcS(var←c41980, 266497);
(void) XR←ImportProcS(var←c41980, 265985);
(void) XR←ImportProcS(var←c41980, 265473);
(void) XR←ImportProcS(var←c41980, 266241);
(void) XR←ImportProcS(var←c41980, 265729);
(void) XR←ImportProcS(var←c41980, 265217);
var←c41980 = (word) XR←ImportInterface((word) "TEditLocks", (word) XR←GetTypeIndexS((word) (&string18)), 7);
(* (( (ptr) gf←c0395)+214)/* var←c39260 */ ) = var←c41980;
(void) XR←ImportProcS(var←c41980, 262913);
(void) XR←ImportProcS(var←c41980, 67895299);
var←c41980 = (word) XR←ImportInterface((word) "TEditMesaOps", (word) XR←GetTypeIndexS((word) (&string19)), 2);
(* (( (ptr) gf←c0395)+224)/* var←c41148 */ ) = var←c41980;
(void) XR←ImportProcS(var←c41980, 134479873);
var←c41980 = (word) XR←ImportInterface((word) "TEditOps", (word) XR←GetTypeIndexS((word) (&string20)), 12);
(* (( (ptr) gf←c0395)+222)/* var←c40668 */ ) = var←c41980;
(void) XR←ImportProcS(var←c41980, 264449);
(void) XR←ImportProcS(var←c41980, 134480385);
(void) XR←ImportProcS(var←c41980, 67108864);
var←c41980 = (word) XR←ImportInterface((word) "TEditSelection", (word) XR←GetTypeIndexS((word) (&string21)), 68);
(* (( (ptr) gf←c0395)+215)/* var←c39324 */ ) = var←c41980;
(void) XR←ImportProcS(var←c41980, 279041);
(void) XR←ImportProcS(var←c41980, 13056);
(void) XR←ImportProcS(var←c41980, 12800);
(void) XR←ImportProcS(var←c41980, 68960519);
(void) XR←ImportProcS(var←c41980, 536066);
(void) XR←ImportProcS(var←c41980, 11520);
(void) XR←ImportProcS(var←c41980, 12032);
(void) XR←ImportProcS(var←c41980, 270337);
(void) XR←ImportProcS(var←c41980, 263937);
(void) XR←ImportProcS(var←c41980, 1316101);
(void) XR←ImportProcS(var←c41980, 67110400);
(void) XR←ImportProcS(var←c41980, 67386113);
(void) XR←ImportProcS(var←c41980, 266753);
(void) XR←ImportProcS(var←c41980, 528642);
var←c41980 = (word) XR←ImportInterface((word) "TextEdit", (word) XR←GetTypeIndexS((word) (&string22)), 39);
(* (( (ptr) gf←c0395)+218)/* var←c39964 */ ) = var←c41980;
(void) XR←ImportProcS(var←c41980, 1053956);
(void) XR←ImportProcS(var←c41980, 793091);
(void) XR←ImportProcS(var←c41980, 792323);
(void) XR←ImportProcS(var←c41980, 67376641);
(void) XR←ImportProcS(var←c41980, 67633410);
(void) XR←ImportProcS(var←c41980, 67371521);
var←c41980 = (word) XR←ImportInterface((word) "TextLooks", (word) XR←GetTypeIndexS((word) (&string23)), 8);
(* (( (ptr) gf←c0395)+225)/* var←c41404 */ ) = var←c41980;
(void) XR←ImportProcS(var←c41980, 67372801);
(void) XR←ImportProcS(var←c41980, 67372545);
var←c41980 = (word) XR←ImportInterface((word) "TextNode", (word) XR←GetTypeIndexS((word) (&string24)), 34);
(* (( (ptr) gf←c0395)+216)/* var←c39900 */ ) = var←c41980;
(void) XR←ImportProcS(var←c41980, 67373569);
(void) XR←ImportProcS(var←c41980, 68686084);
(void) XR←ImportProcS(var←c41980, 135532292);
(void) XR←ImportProcS(var←c41980, 67372289);
var←c41980 = (word) XR←ImportInterface((word) &string25, (word) XR←GetTypeIndexS((word) (&string26)), 128);
(* (( (ptr) gf←c0395)+219)/* var←c40220 */ ) = var←c41980;
(void) XR←ImportProcS(var←c41980, 67393537);
(void) XR←ImportProcS(var←c41980, 67393281);
(void) XR←ImportProcS(var←c41980, 67393793);
(void) XR←ImportProcS(var←c41980, 67393025);
(void) XR←ImportProcS(var←c41980, 67390721);
var←c41980 = (word) XR←ExportInterface((word) &string25, (word) XR←GetTypeIndexS((word) (&string26)), 128);
(* (( (ptr) gf←c0395)+229)/* var←c42012 */ ) = var←c41980;
(void) XR←ExportProcS(var←c41980, (word) (( (bPt) gf←c0395)+632)/* var←c38332 */ , 134217728);
(void) XR←ExportProcS(var←c41980, (word) (( (bPt) gf←c0395)+624)/* var←c38300 */ , 256);
(void) XR←ExportProcS(var←c41980, (word) (( (bPt) gf←c0395)+616)/* var←c38268 */ , 512);
(void) XR←ExportProcS(var←c41980, (word) (( (bPt) gf←c0395)+608)/* var←c38236 */ , 768);
(void) XR←ExportProcS(var←c41980, (word) (( (bPt) gf←c0395)+600)/* var←c38204 */ , 263169);
(void) XR←ExportProcS(var←c41980, (word) (( (bPt) gf←c0395)+592)/* var←c38172 */ , 263425);
(void) XR←ExportProcS(var←c41980, (word) (( (bPt) gf←c0395)+584)/* var←c38140 */ , 263681);
(void) XR←ExportProcS(var←c41980, (word) (( (bPt) gf←c0395)+576)/* var←c38108 */ , 263937);
(void) XR←ExportProcS(var←c41980, (word) (( (bPt) gf←c0395)+568)/* var←c38076 */ , 264193);
(void) XR←ExportProcS(var←c41980, (word) (( (bPt) gf←c0395)+560)/* var←c38044 */ , 264449);
(void) XR←ExportProcS(var←c41980, (word) (( (bPt) gf←c0395)+552)/* var←c38012 */ , 2560);
(void) XR←ExportProcS(var←c41980, (word) (( (bPt) gf←c0395)+544)/* var←c37980 */ , 2816);
(void) XR←ExportProcS(var←c41980, (word) (( (bPt) gf←c0395)+536)/* var←c37948 */ , 3072);
(void) XR←ExportProcS(var←c41980, (word) (( (bPt) gf←c0395)+528)/* var←c37916 */ , 265473);
(void) XR←ExportProcS(var←c41980, (word) (( (bPt) gf←c0395)+520)/* var←c37884 */ , 265729);
(void) XR←ExportProcS(var←c41980, (word) (( (bPt) gf←c0395)+512)/* var←c37852 */ , 3840);
(void) XR←ExportProcS(var←c41980, (word) (( (bPt) gf←c0395)+504)/* var←c37820 */ , 266241);
(void) XR←ExportProcS(var←c41980, (word) (( (bPt) gf←c0395)+496)/* var←c37788 */ , 266497);
(void) XR←ExportProcS(var←c41980, (word) (( (bPt) gf←c0395)+488)/* var←c37756 */ , 266753);
(void) XR←ExportProcS(var←c41980, (word) (( (bPt) gf←c0395)+480)/* var←c37724 */ , 267009);
(void) XR←ExportProcS(var←c41980, (word) (( (bPt) gf←c0395)+472)/* var←c37692 */ , 5120);
(void) XR←ExportProcS(var←c41980, (word) (( (bPt) gf←c0395)+464)/* var←c37660 */ , 529666);
(void) XR←ExportProcS(var←c41980, (word) (( (bPt) gf←c0395)+456)/* var←c37628 */ , 5632);
(void) XR←ExportProcS(var←c41980, (word) (( (bPt) gf←c0395)+448)/* var←c37596 */ , 5888);
(void) XR←ExportProcS(var←c41980, (word) (( (bPt) gf←c0395)+440)/* var←c37564 */ , 6144);
(void) XR←ExportProcS(var←c41980, (word) (( (bPt) gf←c0395)+432)/* var←c37532 */ , 6400);
(void) XR←ExportProcS(var←c41980, (word) (( (bPt) gf←c0395)+424)/* var←c37500 */ , 6656);
(void) XR←ExportProcS(var←c41980, (word) (( (bPt) gf←c0395)+416)/* var←c37468 */ , 6912);
(void) XR←ExportProcS(var←c41980, (word) (( (bPt) gf←c0395)+408)/* var←c37436 */ , 7168);
(void) XR←ExportProcS(var←c41980, (word) (( (bPt) gf←c0395)+400)/* var←c37404 */ , 7424);
(void) XR←ExportProcS(var←c41980, (word) (( (bPt) gf←c0395)+392)/* var←c37372 */ , 1318403);
(void) XR←ExportProcS(var←c41980, (word) (( (bPt) gf←c0395)+384)/* var←c37340 */ , 7936);
(void) XR←ExportProcS(var←c41980, (word) (( (bPt) gf←c0395)+376)/* var←c37308 */ , 8192);
(void) XR←ExportProcS(var←c41980, (word) (( (bPt) gf←c0395)+368)/* var←c37276 */ , 8448);
(void) XR←ExportProcS(var←c41980, (word) (( (bPt) gf←c0395)+360)/* var←c37244 */ , 8704);
(void) XR←ExportProcS(var←c41980, (word) (( (bPt) gf←c0395)+352)/* var←c37212 */ , 8960);
(void) XR←ExportProcS(var←c41980, (word) (( (bPt) gf←c0395)+344)/* var←c37180 */ , 9216);
(void) XR←ExportProcS(var←c41980, (word) (( (bPt) gf←c0395)+336)/* var←c37148 */ , 9472);
(void) XR←ExportProcS(var←c41980, (word) (( (bPt) gf←c0395)+328)/* var←c37116 */ , 9728);
(void) XR←ExportProcS(var←c41980, (word) (( (bPt) gf←c0395)+320)/* var←c37084 */ , 9984);
(void) XR←ExportProcS(var←c41980, (word) (( (bPt) gf←c0395)+312)/* var←c37052 */ , 10240);
(void) XR←ExportProcS(var←c41980, (word) (( (bPt) gf←c0395)+304)/* var←c37020 */ , 10496);
(void) XR←ExportProcS(var←c41980, (word) (( (bPt) gf←c0395)+296)/* var←c36988 */ , 272897);
(void) XR←ExportProcS(var←c41980, (word) (( (bPt) gf←c0395)+280)/* var←c36924 */ , 535298);
(void) XR←ExportProcS(var←c41980, (word) (( (bPt) gf←c0395)+272)/* var←c36892 */ , 535554);
(void) XR←ExportProcS(var←c41980, (word) (( (bPt) gf←c0395)+264)/* var←c36860 */ , 535810);
(void) XR←ExportProcS(var←c41980, (word) (( (bPt) gf←c0395)+256)/* var←c36828 */ , 273921);
(void) XR←ExportProcS(var←c41980, (word) (( (bPt) gf←c0395)+248)/* var←c36796 */ , 12032);
(void) XR←ExportProcS(var←c41980, (word) (( (bPt) gf←c0395)+224)/* var←c36700 */ , 536578);
(void) XR←ExportProcS(var←c41980, (word) (( (bPt) gf←c0395)+200)/* var←c36604 */ , 12544);
(void) XR←ExportProcS(var←c41980, (word) (( (bPt) gf←c0395)+192)/* var←c36572 */ , 12800);
(void) XR←ExportProcS(var←c41980, (word) (( (bPt) gf←c0395)+184)/* var←c36540 */ , 13056);
(void) XR←ExportProcS(var←c41980, (word) (( (bPt) gf←c0395)+168)/* var←c36476 */ , 537602);
(void) XR←ExportProcS(var←c41980, (word) (( (bPt) gf←c0395)+672)/* var←c38492 */ , 68433925);
(void) XR←ExportProcS(var←c41980, (word) (( (bPt) gf←c0395)+664)/* var←c38460 */ , 68434181);
(void) XR←ExportProcS(var←c41980, (word) (( (bPt) gf←c0395)+656)/* var←c38428 */ , 68434437);
(void) XR←ExportProcS(var←c41980, (word) (( (bPt) gf←c0395)+800)/* var←c39004 */ , 537148161);
(void) XR←ExportProcS(var←c41980, (word) (( (bPt) gf←c0395)+792)/* var←c38972 */ , 67386369);
(void) XR←ExportProcS(var←c41980, (word) (( (bPt) gf←c0395)+776)/* var←c38908 */ , 2374919);
(void) XR←ExportProcS(var←c41980, (word) (( (bPt) gf←c0395)+768)/* var←c38876 */ , 1851143);
(void) XR←ExportProcS(var←c41980, (word) (( (bPt) gf←c0395)+760)/* var←c38844 */ , 1851399);
(void) XR←ExportProcS(var←c41980, (word) (( (bPt) gf←c0395)+752)/* var←c38812 */ , 1327365);
(void) XR←ExportVar(var←c41980, 66, (word) (( (bPt) gf←c0395)+76));
(void) XR←ExportProcS(var←c41980, (word) (( (bPt) gf←c0395)+744)/* var←c38780 */ , 279297);
(void) XR←ExportProcS(var←c41980, (word) (( (bPt) gf←c0395)+736)/* var←c38748 */ , 17408);
(void) XR←ExportProcS(var←c41980, (word) (( (bPt) gf←c0395)+728)/* var←c38716 */ , 17664);
(void) XR←ExportProcS(var←c41980, (word) (( (bPt) gf←c0395)+720)/* var←c38684 */ , 17920);
(void) XR←ExportProcS(var←c41980, (word) (( (bPt) gf←c0395)+712)/* var←c38652 */ , 18176);
(void) XR←ExportProcS(var←c41980, (word) (( (bPt) gf←c0395)+704)/* var←c38620 */ , 18432);
(void) XR←ExportProcS(var←c41980, (word) (( (bPt) gf←c0395)+696)/* var←c38588 */ , 18688);
(void) XR←ExportProcS(var←c41980, (word) (( (bPt) gf←c0395)+688)/* var←c38556 */ , 543234);
(void) XR←ExportProcS(var←c41980, (word) (( (bPt) gf←c0395)+816)/* var←c39068 */ , 281345);
(void) XR←ExportProcS(var←c41980, (word) (( (bPt) gf←c0395)+808)/* var←c39036 */ , 281601);
(void) XR←ExportProcS(var←c41980, (word) (( (bPt) gf←c0395)+648)/* var←c38396 */ , 135551492);
(void) XR←ExportProcS(var←c41980, (word) (( (bPt) gf←c0395)+640)/* var←c38364 */ , 68705028);
(void) XR←ExportVar(var←c41980, 92, (word) (( (bPt) gf←c0395)+80));
(void) XR←ExportProcS(var←c41980, (word) (( (bPt) gf←c0395)+112)/* var←c36252 */ , 811267);
(void) XR←ExportProcS(var←c41980, (word) (( (bPt) gf←c0395)+104)/* var←c36220 */ , 134767106);
(void) XR←ExportVar(var←c41980, 99, (word) (( (bPt) gf←c0395)+84));
(void) XR←ExportProcS(var←c41980, (word) (( (bPt) gf←c0395)+288)/* var←c36956 */ , 67658754);
(void) XR←ExportProcS(var←c41980, (word) (( (bPt) gf←c0395)+240)/* var←c36764 */ , 67396865);
(void) XR←ExportProcS(var←c41980, (word) (( (bPt) gf←c0395)+216)/* var←c36668 */ , 550402);
(void) XR←ExportProcS(var←c41980, (word) (( (bPt) gf←c0395)+176)/* var←c36508 */ , 67397377);
(void) XR←ExportProcS(var←c41980, (word) (( (bPt) gf←c0395)+208)/* var←c36636 */ , 550914);
(void) XR←ExportProcS(var←c41980, (word) (( (bPt) gf←c0395)+160)/* var←c36444 */ , 67397889);
(void) XR←ExportProcS(var←c41980, (word) (( (bPt) gf←c0395)+152)/* var←c36412 */ , 27136);
(void) XR←ExportProcS(var←c41980, (word) (( (bPt) gf←c0395)+144)/* var←c36380 */ , 27392);
(void) XR←ExportProcS(var←c41980, (word) (( (bPt) gf←c0395)+840)/* var←c39164 */ , 553474);
(void) XR←ExportVar(var←c41980, 115, (word) (( (bPt) gf←c0395)+72));
(void) XR←ExportProcS(var←c41980, (word) (( (bPt) gf←c0395)+832)/* var←c39132 */ , 291841);
(void) XR←ExportProcS(var←c41980, (word) (( (bPt) gf←c0395)+824)/* var←c39100 */ , 292097);
(void) XR←ExportProcS(var←c41980, (word) (( (bPt) gf←c0395)+128)/* var←c36316 */ , 294401);
(void) XR←ExportProcS(var←c41980, (word) (( (bPt) gf←c0395)+120)/* var←c36284 */ , 294657);
var←c41980 = (word) XR←ExportInterface((word) "TiogaExtraOps", (word) XR←GetTypeIndexS((word) (&string27)), 18);
(* (( (ptr) gf←c0395)+229)/* var←c42012 */ ) = var←c41980;
(void) XR←ExportProcS(var←c41980, (word) (( (bPt) gf←c0395)+136)/* var←c36348 */ , 786435);
(void) XR←ExportProcS(var←c41980, (word) (( (bPt) gf←c0395)+112)/* var←c36252 */ , 788739);
(void) XR←ExportProcS(var←c41980, (word) (( (bPt) gf←c0395)+104)/* var←c36220 */ , 134744578);
(void) XR←ExportVar(var←c41980, 11, (word) (( (bPt) gf←c0395)+84));
(void) XR←ExportProcS(var←c41980, (word) (( (bPt) gf←c0395)+96)/* var←c36188 */ , 527362);
(void) XR←ExportProcS(var←c41980, (word) (( (bPt) gf←c0395)+88)/* var←c36156 */ , 67636482);
}
static void TiogaOpsImpl←P0(formal←c0124, formal←c0123)
word formal←c0124;
word formal←c0123;
{
/* TiogaOpsImpl: */
}
static void CallWithLocks←P60(formal←c0520, formal←c0521)
word formal←c0520;
word formal←c0521;
{
W10 var←c42044;
/* declaration of proc←v6412 skipped */
/* declaration of root←v6440 skipped */
/* declaration of var←c39228 skipped */
/* declaration of lockedSel←v14096 skipped */
/* declaration of lockedDoc←v14124 skipped */
(* (( (ptr) &var←c42044)+4)/* proc←v6412 */ ) = formal←c0520;
(* (( (ptr) &var←c42044)+5)/* root←v6440 */ ) = formal←c0521;
/* CallWithLocks: */
SOURCE(2325, 7897)
{
word tmpAddr28;
tmpAddr28 = (word) (( (ptr) &var←c42044)+6)/* var←c39228 */ ;
(* (ptr) tmpAddr28 ) = ( ((word) (fPt) Cleanup←P6060) );
(* (( (ptr) tmpAddr28) + 1) ) = 1;
};
SOURCE(2398, 34)
(* (( (ptr) &var←c42044)+8)/* lockedSel←v14096 */ ) = 0;
(* (( (ptr) &var←c42044)+9)/* lockedDoc←v14124 */ ) = 0;
SOURCE(2564, 7658)
{
word var←c0500;
var←c0500 = (word) &var←c42044;
(void) (word) XR←Enable(( ((word) (fPt) NoName←Q6972) ), ( ((word) (fPt) NoName←Q7392) ), var←c0500);
};
SOURCE(2743, 8)
(void) Cleanup←P6060((word) ((( (bPt) &var←c42044)+24)/* var←c39228 */ ));
}
static word NoName←Q6972(formal←c0397)
word formal←c0397;
{
register ptr gf←c0396 = (ptr) &globalframe;
SOURCE(2590, 7)
(void) LockSel←P300(0);
SOURCE(2599, 16)
(* (( (ptr) formal←c0397)+8) ) = 1;
SOURCE(2617, 7605)
{
word tc29;
if (((* (( (ptr) formal←c0397)+5) ) == 0)) {
(* (( (ptr) formal←c0397)+5) ) = (word) SelectionRoot←P720(0);
tc29 = (word) ((* (( (ptr) formal←c0397)+5) ) == 0);
}
else {
tc29 = (word) 0;
};
if (tc29) {
SOURCE(2669, 7)
(void) Cleanup←P6060((word) ((( (bPt) formal←c0397)+24)));
SOURCE(2678, 18)
(void) XR←RaiseError((word) (( (bPt) gf←c0396)+72), 0);
};
};
SOURCE(2699, 10)
(void) Lock←P120((* ((( (ptr) formal←c0397)+5)) ));
SOURCE(2711, 16)
(* (( (ptr) formal←c0397)+9) ) = 1;
SOURCE(2729, 11)
{
word pd30;
pd30 = (* (( (ptr) formal←c0397)+4) );
(void) ( *( (fPt) ((* (ptr) pd30 ))))((* ((( (ptr) formal←c0397)+5)) ), pd30);
};
return(0);
}
static void Cleanup←P6060(formal←c42076)
word formal←c42076;
{
formal←c42076 = (formal←c42076 - 24);
/* Cleanup: */
SOURCE(2434, 122)
SOURCE(2452, 49)
if ((0 != (* (( (ptr) formal←c42076)+8) ))) {
SOURCE(2472, 9)
(void) UnlockSel←P360(0);
SOURCE(2483, 18)
(* (( (ptr) formal←c42076)+8) ) = 0;
};
SOURCE(2504, 52)
if ((0 != (* (( (ptr) formal←c42076)+9) ))) {
SOURCE(2524, 12)
(void) Unlock←P180((* ((( (ptr) formal←c42076)+5)) ));
SOURCE(2538, 18)
(* (( (ptr) formal←c42076)+9) ) = 0;
};
}
static void Lock←P120(root←v6576)
word root←v6576;
{
register ptr gf←c42108 = (ptr) &globalframe;
/* Lock: */
SOURCE(2844, 7378)
SOURCE(2878, 7344)
{
word var←c39292;
word pd31;
pd31 = (* (( (ptr) (* (( (ptr) gf←c42108)+214)/* var←c39260 */ ))+4) );
var←c39292 = (word) ( *( (fPt) ((* (ptr) pd31 ))))(root←v6576, (* (( (ptr) gf←c42108)+17) ), 1, pd31);
};
}
static void Unlock←P180(root←v6636)
word root←v6636;
{
register ptr gf←c42140 = (ptr) &globalframe;
/* Unlock: */
SOURCE(2927, 60)
SOURCE(2963, 24)
{
word pd32;
pd32 = (* (( (ptr) (* (( (ptr) gf←c42140)+214)/* var←c39260 */ ))+7) );
(void) ( *( (fPt) ((* (ptr) pd32 ))))(root←v6636, pd32);
};
}
static void LockSel←P300(which←v6800)
word which←v6800;
{
register ptr gf←c42172 = (ptr) &globalframe;
/* LockSel: */
SOURCE(3101, 7121)
SOURCE(3160, 7062)
{
word pd33;
pd33 = (* (( (ptr) (* (( (ptr) gf←c42172)+215)/* var←c39324 */ ))+21) );
(void) ( *( (fPt) ((* (ptr) pd33 ))))(which←v6800, (* (( (ptr) gf←c42172)+17) ), pd33);
};
}
static void UnlockSel←P360(which←v6860)
word which←v6860;
{
register ptr gf←c42204 = (ptr) &globalframe;
/* UnlockSel: */
SOURCE(3228, 6994)
SOURCE(3289, 6933)
{
word pd34;
pd34 = (* (( (ptr) (* (( (ptr) gf←c42204)+215)/* var←c39324 */ ))+22) );
(void) ( *( (fPt) ((* (ptr) pd34 ))))(which←v6860, pd34);
};
}
static void GetSelection←P660(formal←c0156, which←v7336)
word formal←c0156;
word which←v7336;
{
register ptr gf←c42236 = (ptr) &globalframe;
word viewer←v7380;
W2 start←v7408;
W2 end←v7436;
word level←v7464;
word caretBefore←v7492;
word pendingDelete←v7520;
word sel←v14212;
/* GetSelection: */
SOURCE(3742, 6480)
SOURCE(3742, 6480)
viewer←v7380 = 0;
SOURCE(3742, 6480)
start←v7408.f0 = 0;
start←v7408.f1 = 0;
SOURCE(3742, 6480)
end←v7436.f0 = 0;
end←v7436.f1 = 0;
SOURCE(3742, 6480)
level←v7464 = 1;
SOURCE(3917, 164)
{
word var←c39356;
var←c39356 = which←v7336;
switch (var←c39356) {
case 0:
sel←v14212 = (* (ptr) (* (( (ptr) (* (( (ptr) gf←c42236)+215)/* var←c39324 */ ))+4) ) );
break;
case 1:
sel←v14212 = (* (ptr) (* (( (ptr) (* (( (ptr) gf←c42236)+215)/* var←c39324 */ ))+5) ) );
break;
case 2:
sel←v14212 = (* (ptr) (* (( (ptr) (* (( (ptr) gf←c42236)+215)/* var←c39324 */ ))+6) ) );
break;
default:
sel←v14212 = (
XR←RaiseUnnamedError(), 0
);
break;
};
};
SOURCE(4083, 6139)
{
word var←c39580;
W2 var←c39612;
W2 var←c39644;
word var←c39676;
var←c39580 = (* (ptr) sel←v14212 );
{
W2 var←c39420;
W2 loc←v36028;
loc←v36028 = (* (W2Pt) (( (ptr) sel←v14212)+2) );
SOURCE(3726, 12)
var←c39420 = loc←v36028;
var←c39612 = var←c39420;
};
{
W2 var←c39484;
W2 loc←v35980;
loc←v35980 = (* (W2Pt) (( (ptr) sel←v14212)+11) );
SOURCE(3726, 12)
var←c39484 = loc←v35980;
var←c39644 = var←c39484;
};
{
word var←c39548;
word granularity←v35836;
granularity←v35836 = (* (( (ptr) sel←v14212)+22) );
SOURCE(3551, 20)
var←c39548 = granularity←v35836;
var←c39676 = var←c39548;
};
caretBefore←v7492 = ((* (( (ptr) sel←v14212)+24) ) == 0);
pendingDelete←v7520 = (* (( (ptr) sel←v14212)+26) );
viewer←v7380 = var←c39580;
start←v7408 = var←c39612;
end←v7436 = var←c39644;
level←v7464 = var←c39676;
/* removed tail goto */
};
(* (ptr) formal←c0156 ) = viewer←v7380;
(* (W2Pt) (( (ptr) formal←c0156)+1) ) = start←v7408;
(* (W2Pt) (( (ptr) formal←c0156)+3) ) = end←v7436;
(* (( (ptr) formal←c0156)+5) ) = level←v7464;
(* (( (ptr) formal←c0156)+6) ) = caretBefore←v7492;
(* (( (ptr) formal←c0156)+7) ) = pendingDelete←v7520;
return;
}
static word SelectionRoot←P720(which←v7580)
word which←v7580;
{
register ptr gf←c42268 = (ptr) &globalframe;
word root←v7624;
/* SelectionRoot: */
SOURCE(4215, 6007)
SOURCE(4215, 6007)
root←v7624 = 0;
SOURCE(4300, 5922)
{
word var←c39804;
word var←c39836;
word var←c39868;
word n←v36076;
{
word pd35;
var←c39868 = which←v7580;
var←c39836 = ( (var←c39868 == 0) ? (* (ptr) (* (( (ptr) (* (( (ptr) gf←c42268)+215)/* var←c39324 */ ))+4) ) ) : ( (var←c39868 == 1) ? (* (ptr) (* (
( (ptr) (* (( (ptr) gf←c42268)+215)/* var←c39324 */ ))+5) ) ) : ( (var←c39868 == 2) ? (* (ptr) (* (( (ptr) (* (( (ptr) gf←c42268)+215)
/* var←c39324 */ ))+6) ) ) : (
XR←RaiseUnnamedError(), 0
) ) ) ) ;
pd35 = (* (( (ptr) (* (( (ptr) gf←c42268)+215)/* var←c39324 */ ))+63) );
n←v36076 = (word) ( *( (fPt) ((* (ptr) pd35 ))))(var←c39836, pd35);
};
var←c39804 = n←v36076;
return(var←c39804);
};
}
static void CheckSelection←P780(sel←v7744)
word sel←v7744;
{
register ptr gf←c42300 = (ptr) &globalframe;
word root←v14256 = 0;
word first←v14284 = 0;
word last←v14312 = 0;
word t1←v14340 = 0;
word t2←v14368 = 0;
word tdd←v14396 = 0;
word var←c39996;
word var←c40028;
/* CheckSelection: */
SOURCE(4569, 5653)
SOURCE(4726, 5496)
if (((* (ptr) sel←v7744 ) == 0)) { goto then036;};
if ((* (( (bPt) (* (ptr) sel←v7744 ))+77) ) & 0100) { goto then036;};
tdd←v14396 = XR←Narrow((* (( (ptr) (* (ptr) sel←v7744 ))+26) ), (* (( (ptr) gf←c42300)+11) ));
if ((tdd←v14396 == 0)) { goto then036;};
root←v14256 = (* (ptr) tdd←v14396 );
if ((root←v14256 == 0)) {
then036: ;
SOURCE(4837, 5385)
{
word var←c0170 = 0;
(void) XR←RaiseError((word) (( (bPt) gf←c42300)+76), (word) &var←c0170);
};
};
SOURCE(4874, 5348)
first←v14284 = (* (( (ptr) sel←v7744)+2) );
if ((first←v14284 == 0)) { goto then037;};
last←v14312 = (* (( (ptr) sel←v7744)+11) );
if ((last←v14312 == 0)) {
then037: ;
SOURCE(4948, 5274)
{
word var←c0171 = 1;
(void) XR←RaiseError((word) (( (bPt) gf←c42300)+76), (word) &var←c0171);
};
};
SOURCE(4983, 5239)
{
word pd38;
pd38 = (* (( (ptr) (* (( (ptr) gf←c42300)+216)/* var←c39900 */ ))+9) );
if (((word) ( *( (fPt) ((* (ptr) pd38 ))))(first←v14284, pd38) != root←v14256)) {
SOURCE(5019, 5203)
{
word var←c0172 = 2;
(void) XR←RaiseError((word) (( (bPt) gf←c42300)+76), (word) &var←c0172);
};
};
};
SOURCE(5051, 5171)
if ((first←v14284 != last←v14312)) {
SOURCE(5120, 5102)
{
word pd39;
pd39 = (* (( (ptr) (* (( (ptr) gf←c42300)+217)/* var←c39932 */ ))+22) );
if (((word) ( *( (fPt) ((* (ptr) pd39 ))))(first←v14284, last←v14312, pd39) != 0)) {
SOURCE(5175, 5047)
{
word var←c0173 = 3;
(void) XR←RaiseError((word) (( (bPt) gf←c42300)+76), (word) &var←c0173);
};
};
};
};
SOURCE(5209, 5013)
if (( (int)(* (( (ptr) sel←v7744)+3) ) != (int) (word) -1)) {
SOURCE(5290, 4932)
{
word tc41;
word pd42;
t1←v14340 = first←v14284;
if ((first←v14284 == 0)) { goto then040;};
var←c39996 = (* (( (ptr) sel←v7744)+3) );
if (( (int)var←c39996 < (int)0)) {
tc41 = (word) 1;
}
else {
pd42 = (* (( (ptr) (* (( (ptr) gf←c42300)+218)/* var←c39964 */ ))+6) );
tc41 = (word) ( (int)var←c39996 > (int)(word) ( *( (fPt) ((* (ptr) pd42 ))))(t1←v14340, pd42));
};
if (tc41) {
then040: ;
SOURCE(5395, 4827)
{
word var←c0175 = 4;
(void) XR←RaiseError((word) (( (bPt) gf←c42300)+76), (word) &var←c0175);
};
};
};
};
SOURCE(5433, 4789)
if (( (int)(* (( (ptr) sel←v7744)+12) ) != (int) (word) -1)) {
SOURCE(5510, 4712)
{
word tc44;
word pd45;
t2←v14368 = last←v14312;
if ((last←v14312 == 0)) { goto then043;};
var←c40028 = (* (( (ptr) sel←v7744)+12) );
if (( (int)var←c40028 < (int)0)) {
tc44 = (word) 1;
}
else {
pd45 = (* (( (ptr) (* (( (ptr) gf←c42300)+218)/* var←c39964 */ ))+6) );
tc44 = (word) ( (int)var←c40028 > (int)(word) ( *( (fPt) ((* (ptr) pd45 ))))(t2←v14368, pd45));
};
if (tc44) {
then043: ;
SOURCE(5612, 4610)
{
word var←c0177 = 5;
(void) XR←RaiseError((word) (( (bPt) gf←c42300)+76), (word) &var←c0177);
};
};
};
};
SOURCE(5648, 4574)
if ( ( (t1←v14340 != 0) ? (t1←v14340 == t2←v14368) : 0 ) ) {
SOURCE(5713, 4509)
if (( (int)(* (( (ptr) sel←v7744)+3) ) > (int)(* (( (ptr) sel←v7744)+12) ))) {
SOURCE(5761, 4461)
{
word var←c0178 = 5;
(void) XR←RaiseError((word) (( (bPt) gf←c42300)+76), (word) &var←c0178);
};
};
};
}
static void SetSelection←P840(formal←c0522, formal←c0523, formal←c0524, formal←c0525, formal←c0526, formal←c0527, formal←c0528)
word formal←c0522;
W2 formal←c0523;
W2 formal←c0524;
word formal←c0525;
word formal←c0526;
word formal←c0527;
word formal←c0528;
{
W13 var←c42332;
/* declaration of viewer←v7804 skipped */
/* declaration of start←v7832 skipped */
/* declaration of end←v7860 skipped */
/* declaration of level←v7888 skipped */
/* declaration of caretBefore←v7916 skipped */
/* declaration of pendingDelete←v7944 skipped */
/* declaration of which←v7972 skipped */
(* (( (ptr) &var←c42332)+4)/* viewer←v7804 */ ) = formal←c0522;
(* (W2Pt) (( (ptr) &var←c42332)+5)/* start←v7832 */ ) = formal←c0523;
(* (W2Pt) (( (ptr) &var←c42332)+7)/* end←v7860 */ ) = formal←c0524;
(* (( (ptr) &var←c42332)+9)/* level←v7888 */ ) = formal←c0525;
(* (( (ptr) &var←c42332)+10)/* caretBefore←v7916 */ ) = formal←c0526;
(* (( (ptr) &var←c42332)+11)/* pendingDelete←v7944 */ ) = formal←c0527;
(* (( (ptr) &var←c42332)+12)/* which←v7972 */ ) = formal←c0528;
/* SetSelection: */
SOURCE(5801, 4421)
SOURCE(5988, 4234)
{
word var←c0501;
var←c0501 = (word) &var←c42332;
(void) (word) XR←Enable(( ((word) (fPt) NoName←Q7032) ), ( ((word) (fPt) NoName←Q7332) ), var←c0501);
};
}
static word NoName←Q7032(formal←c0407)
word formal←c0407;
{
register ptr gf←c0406 = (ptr) &globalframe;
SOURCE(6011, 57)
{
word tempSel←v14440;
SOURCE(6011, 57)
{
word pd46;
pd46 = (* (( (ptr) (* (( (ptr) gf←c0406)+215)/* var←c39324 */ ))+10) );
tempSel←v14440 = (word) ( *( (fPt) ((* (ptr) pd46 ))))(pd46);
};
SOURCE(6070, 147)
{
word var←c40060;
var←c40060 = (* (( (ptr) formal←c0407)+12) );
switch (var←c40060) {
case 0:
(* (W27Pt) tempSel←v14440 ) = (* (W27Pt) (* (ptr) (* (( (ptr) (* (( (ptr) gf←c0406)+215)/* var←c39324 */ ))+4) ) ) );
break;
case 1:
(* (W27Pt) tempSel←v14440 ) = (* (W27Pt) (* (ptr) (* (( (ptr) (* (( (ptr) gf←c0406)+215)/* var←c39324 */ ))+5) ) ) );
break;
case 2:
(* (W27Pt) tempSel←v14440 ) = (* (W27Pt) (* (ptr) (* (( (ptr) (* (( (ptr) gf←c0406)+215)/* var←c39324 */ ))+6) ) ) );
break;
default:
(* (W27Pt) tempSel←v14440 ) = (* (W27Pt) (
XR←RaiseUnnamedError(), &dummy47
) );
break;
};
};
SOURCE(6219, 23)
(* (ptr) tempSel←v14440 ) = (* (( (ptr) formal←c0407)+4) );
SOURCE(6244, 34)
(* (( (ptr) tempSel←v14440)+1) ) = XR←Narrow((* (( (ptr) (* (( (ptr) formal←c0407)+4) ))+26) ), (* (( (ptr) gf←c0406)+11)
));
SOURCE(6280, 3942)
(* (W2Pt) (( (ptr) tempSel←v14440)+2) ) = (* (W2Pt) (( (ptr) formal←c0407)+5) );
SOURCE(6315, 3907)
(* (W2Pt) (( (ptr) tempSel←v14440)+11) ) = (* (W2Pt) (( (ptr) formal←c0407)+7) );
SOURCE(6346, 3876)
(* (( (ptr) tempSel←v14440)+22) ) = (* (( (ptr) formal←c0407)+9) );
SOURCE(6384, 86)
if ((0 != (* (( (ptr) formal←c0407)+10) )) || ((* (( (ptr) tempSel←v14440)+22) ) == 0)) {
(* (( (ptr) tempSel←v14440)+24) ) = 0;
}
else {
(* (( (ptr) tempSel←v14440)+24) ) = 1;
};
SOURCE(6472, 37)
(* (( (ptr) tempSel←v14440)+26) ) = (* (( (ptr) formal←c0407)+11) );
SOURCE(6511, 23)
(void) CheckSelection←P780(tempSel←v14440);
SOURCE(6536, 139)
{
word var←c40092;
{
word var←c40124;
var←c40124 = (* (( (ptr) formal←c0407)+12) );
switch (var←c40124) {
case 0:
var←c40092 = 0;
break;
case 1:
var←c40092 = 1;
break;
case 2:
var←c40092 = 2;
break;
default:
var←c40092 = (
XR←RaiseUnnamedError(), 0
);
break;
};
};
{
word pd48;
pd48 = (* (( (ptr) (* (( (ptr) gf←c0406)+215)/* var←c39324 */ ))+25) );
(void) ( *( (fPt) ((* (ptr) pd48 ))))(tempSel←v14440, var←c40092, 0, 0, 1, pd48);
};
};
SOURCE(6677, 29)
{
word pd49;
pd49 = (* (( (ptr) (* (( (ptr) gf←c0406)+215)/* var←c39324 */ ))+11) );
(void) ( *( (fPt) ((* (ptr) pd49 ))))(tempSel←v14440, pd49);
};
};
return(0);
}
static void SelectNodes←P900(viewer←v8032, start←v8060, end←v8088, level←v8116, caretBefore←v8144, pendingDelete←v8172, which←v8200)
word viewer←v8032;
word start←v8060;
word end←v8088;
word level←v8116;
word caretBefore←v8144;
word pendingDelete←v8172;
word which←v8200;
{
register ptr gf←c42364 = (ptr) &globalframe;
/* SelectNodes: */
SOURCE(6710, 3512)
SOURCE(6891, 3331)
{
word var←c40156;
{
word var←c40188;
{
word pd50;
pd50 = (* (( (ptr) (* (( (ptr) gf←c42364)+219)/* var←c40220 */ ))+81) );
var←c40188 = (word) ( *( (fPt) ((* (ptr) pd50 ))))(end←v8088, pd50);
};
{
word pd51;
word x52;
pd51 = (* (( (ptr) (* (( (ptr) gf←c42364)+220)/* var←c40252 */ ))+15) );
var←c40156 = ((x52 = (word) ( *( (fPt) ((* (ptr) pd51 ))))(var←c40188, pd51),
MAX((int)(word), x52, 1)) - 1);
};
};
{
W2 var←c40284;
W2 var←c40316;
var←c40284.f0 = start←v8060;
var←c40284.f1 = 0;
var←c40316.f0 = end←v8088;
var←c40316.f1 = var←c40156;
(void) SetSelection←P840(viewer←v8032, var←c40284, var←c40316, level←v8116, caretBefore←v8144, pendingDelete←v8172
, which←v8200);
};
};
}
static void SelectBranches←P960(viewer←v8260, start←v8288, end←v8316, level←v8344, caretBefore←v8372, pendingDelete←v8400, which←v8428)
word viewer←v8260;
word start←v8288;
word end←v8316;
word level←v8344;
word caretBefore←v8372;
word pendingDelete←v8400;
word which←v8428;
{
register ptr gf←c42396 = (ptr) &globalframe;
/* SelectBranches: */
SOURCE(7010, 3212)
SOURCE(7194, 3028)
{
word var←c40348;
{
word pd53;
pd53 = (* (( (ptr) (* (( (ptr) gf←c42396)+219)/* var←c40220 */ ))+90) );
var←c40348 = (word) ( *( (fPt) ((* (ptr) pd53 ))))(end←v8316, pd53);
};
(void) SelectNodes←P900(viewer←v8260, start←v8288, var←c40348, level←v8344, caretBefore←v8372, pendingDelete←v8400
, which←v8428);
};
}
static void SelectDocument←P1020(viewer←v8488, level←v8516, caretBefore←v8544, pendingDelete←v8572, which←v8600)
word viewer←v8488;
word level←v8516;
word caretBefore←v8544;
word pendingDelete←v8572;
word which←v8600;
{
register ptr gf←c42428 = (ptr) &globalframe;
word tdd←v14484;
word root←v14512;
/* SelectDocument: */
SOURCE(7284, 2938)
SOURCE(7451, 58)
tdd←v14484 = XR←Narrow((* (( (ptr) viewer←v8488)+26) ), (* (( (ptr) gf←c42428)+11) ));
SOURCE(7511, 29)
{
word pd54;
pd54 = (* (( (ptr) (* (( (ptr) gf←c42428)+219)/* var←c40220 */ ))+93) );
root←v14512 = (word) ( *( (fPt) ((* (ptr) pd54 ))))(viewer←v8488, pd54);
};
SOURCE(7542, 2680)
{
word var←c40380;
word var←c40412;
{
word pd55;
pd55 = (* (( (ptr) (* (( (ptr) gf←c42428)+219)/* var←c40220 */ ))+91) );
var←c40380 = (word) ( *( (fPt) ((* (ptr) pd55 ))))(root←v14512, pd55);
};
{
word pd56;
pd56 = (* (( (ptr) (* (( (ptr) gf←c42428)+219)/* var←c40220 */ ))+92) );
var←c40412 = (word) ( *( (fPt) ((* (ptr) pd56 ))))(root←v14512, pd56);
};
(void) SelectBranches←P960(viewer←v8488, var←c40380, var←c40412, level←v8516, caretBefore←v8544, pendingDelete←v8572
, which←v8600);
};
}
static void CancelSelection←P1080(which←v8660)
word which←v8660;
{
register ptr gf←c42460 = (ptr) &globalframe;
/* CancelSelection: */
SOURCE(7646, 2576)
SOURCE(7713, 2509)
{
word pd57;
pd57 = (* (( (ptr) (* (( (ptr) gf←c42460)+215)/* var←c39324 */ ))+36) );
(void) ( *( (fPt) ((* (ptr) pd57 ))))(which←v8660, pd57);
};
}
static void SaveSelA←P1140()
{
register ptr gf←c42492 = (ptr) &globalframe;
/* SaveSelA: */
SOURCE(7764, 2458)
SOURCE(7790, 2432)
{
W2 var←c40476;
{
word pd58;
pd58 = (* (( (ptr) (* (( (ptr) gf←c42492)+221)/* var←c40444 */ ))+45) );
(void) ( *( (fPt) ((* (ptr) pd58 ))))((word) &var←c40476, 0, pd58);
};
};
}
static void RestoreSelA←P1200()
{
register ptr gf←c42524 = (ptr) &globalframe;
/* RestoreSelA: */
SOURCE(7827, 2395)
SOURCE(7856, 2366)
{
W2 var←c40508;
{
word pd59;
pd59 = (* (( (ptr) (* (( (ptr) gf←c42524)+221)/* var←c40444 */ ))+44) );
(void) ( *( (fPt) ((* (ptr) pd59 ))))((word) &var←c40508, 0, pd59);
};
};
}
static void SaveSelB←P1260()
{
register ptr gf←c42556 = (ptr) &globalframe;
/* SaveSelB: */
SOURCE(7896, 2326)
SOURCE(7922, 2300)
{
W2 var←c40540;
{
word pd60;
pd60 = (* (( (ptr) (* (( (ptr) gf←c42556)+221)/* var←c40444 */ ))+47) );
(void) ( *( (fPt) ((* (ptr) pd60 ))))((word) &var←c40540, 0, pd60);
};
};
}
static void RestoreSelB←P1320()
{
register ptr gf←c42588 = (ptr) &globalframe;
/* RestoreSelB: */
SOURCE(7959, 2263)
SOURCE(7988, 2234)
{
W2 var←c40572;
{
word pd61;
pd61 = (* (( (ptr) (* (( (ptr) gf←c42588)+221)/* var←c40444 */ ))+46) );
(void) ( *( (fPt) ((* (ptr) pd61 ))))((word) &var←c40572, 0, pd61);
};
};
}
static void GrowSelection←P1380()
{
register ptr gf←c42620 = (ptr) &globalframe;
/* GrowSelection: */
SOURCE(8028, 62)
SOURCE(8059, 31)
{
word pd62;
pd62 = (* (( (ptr) (* (( (ptr) gf←c42620)+215)/* var←c39324 */ ))+51) );
(void) ( *( (fPt) ((* (ptr) pd62 ))))(pd62);
};
}
static void GrowSelectionToBlanks←P1440()
{
register ptr gf←c42652 = (ptr) &globalframe;
/* GrowSelectionToBlanks: */
SOURCE(8094, 78)
SOURCE(8133, 39)
{
word pd63;
pd63 = (* (( (ptr) (* (( (ptr) gf←c42652)+215)/* var←c39324 */ ))+49) );
(void) ( *( (fPt) ((* (ptr) pd63 ))))(pd63);
};
}
static void GrowSelectionToSomething←P1500(left←v8816, right←v8844)
word left←v8816;
word right←v8844;
{
register ptr gf←c42684 = (ptr) &globalframe;
/* GrowSelectionToSomething: */
SOURCE(8176, 140)
SOURCE(8263, 53)
{
word pd64;
pd64 = (* (( (ptr) (* (( (ptr) gf←c42684)+215)/* var←c39324 */ ))+50) );
(void) ( *( (fPt) ((* (ptr) pd64 ))))(left←v8816, right←v8844, pd64);
};
}
static word SearchWhere←P1560(whichDir←v9008)
word whichDir←v9008;
{
word var←c9052;
/* SearchWhere: */
SOURCE(8319, 194)
SOURCE(8398, 115)
{
word var←c40636;
var←c40636 = whichDir←v9008;
switch (var←c40636) {
case 0:
return(0);
case 1:
return(1);
case 2:
return(2);
default:
return((
XR←RaiseUnnamedError(), 0
));
};
};
}
static word FindText←P1620(viewer←v9112, rope←v9140, whichDir←v9168, which←v9196, case←v9224)
word viewer←v9112;
word rope←v9140;
word whichDir←v9168;
word which←v9196;
word case←v9224;
{
register ptr gf←c42716 = (ptr) &globalframe;
word found←v9268;
/* FindText: */
SOURCE(8517, 1705)
SOURCE(8733, 1489)
if ((rope←v9140 == 0)) {
SOURCE(8750, 1472)
{
word pd65;
pd65 = (* (( (ptr) (* (( (ptr) gf←c42716)+222)/* var←c40668 */ ))+4) );
rope←v9140 = (word) ( *( (fPt) ((* (ptr) pd65 ))))(pd65);
};
};
SOURCE(8784, 1438)
{
word var←c40732;
var←c40732 = (word) SearchWhere←P1560(whichDir←v9168);
{
word pd66;
pd66 = (* (( (ptr) (* (( (ptr) gf←c42716)+215)/* var←c39324 */ ))+69) );
return((word) ( *( (fPt) ((* (ptr) pd66 ))))(viewer←v9112, rope←v9140, var←c40732, 0, 0, which←v9196
, case←v9224, pd66));
};
};
}
static word FindWord←P1680(viewer←v9328, rope←v9356, whichDir←v9384, which←v9412, case←v9440)
word viewer←v9328;
word rope←v9356;
word whichDir←v9384;
word which←v9412;
word case←v9440;
{
register ptr gf←c42748 = (ptr) &globalframe;
word found←v9484;
/* FindWord: */
SOURCE(8922, 1300)
SOURCE(9138, 1084)
if ((rope←v9356 == 0)) {
SOURCE(9155, 1067)
{
word pd67;
pd67 = (* (( (ptr) (* (( (ptr) gf←c42748)+222)/* var←c40668 */ ))+4) );
rope←v9356 = (word) ( *( (fPt) ((* (ptr) pd67 ))))(pd67);
};
};
SOURCE(9189, 1033)
{
word var←c40796;
var←c40796 = (word) SearchWhere←P1560(whichDir←v9384);
{
word pd68;
pd68 = (* (( (ptr) (* (( (ptr) gf←c42748)+215)/* var←c39324 */ ))+69) );
return((word) ( *( (fPt) ((* (ptr) pd68 ))))(viewer←v9328, rope←v9356, var←c40796, 0, 1, which←v9412
, case←v9440, pd68));
};
};
}
static word FindDef←P1740(viewer←v9544, rope←v9572, whichDir←v9600, which←v9628, case←v9656)
word viewer←v9544;
word rope←v9572;
word whichDir←v9600;
word which←v9628;
word case←v9656;
{
register ptr gf←c42780 = (ptr) &globalframe;
word found←v9700;
/* FindDef: */
SOURCE(9337, 885)
SOURCE(9552, 670)
if ((rope←v9572 == 0)) {
SOURCE(9569, 653)
{
word pd69;
pd69 = (* (( (ptr) (* (( (ptr) gf←c42780)+222)/* var←c40668 */ ))+4) );
rope←v9572 = (word) ( *( (fPt) ((* (ptr) pd69 ))))(pd69);
};
};
SOURCE(9603, 619)
{
word var←c40860;
var←c40860 = (word) SearchWhere←P1560(whichDir←v9600);
{
word pd70;
pd70 = (* (( (ptr) (* (( (ptr) gf←c42780)+215)/* var←c39324 */ ))+69) );
return((word) ( *( (fPt) ((* (ptr) pd70 ))))(viewer←v9544, rope←v9572, var←c40860, 1, 1, which←v9628
, case←v9656, pd70));
};
};
}
static void LocRelative←P1800(formal←c0262, location←v9760, count←v9788, break←v9816, skipCommentNodes←v9844)
word formal←c0262;
W2 location←v9760;
word count←v9788;
word break←v9816;
word skipCommentNodes←v9844;
{
register ptr gf←c42812 = (ptr) &globalframe;
W2 var←c9888;
/* LocRelative: */
SOURCE(9761, 461)
SOURCE(9893, 329)
{
W2 var←c40956;
{
W2 var←c40924;
W2 loc←v35932;
{
word pd71;
pd71 = (* (( (ptr) (* (( (ptr) gf←c42812)+216)/* var←c39900 */ ))+19) );
(void) ( *( (fPt) ((* (ptr) pd71 ))))((word) &loc←v35932, location←v9760, count←v9788, break←v9816, skipCommentNodes←v9844, pd71)
;
};
SOURCE(3726, 12)
var←c40924 = loc←v35932;
var←c40956 = var←c40924;
};
var←c9888 = var←c40956;
/* removed tail goto */
};
(* (W2Pt) formal←c0262 ) = var←c9888;
return;
}
static word LocOffset←P1860(formal←c0529, formal←c0530, formal←c0531, formal←c0532)
W2 formal←c0529;
W2 formal←c0530;
word formal←c0531;
word formal←c0532;
{
W12 var←c42844;
/* declaration of loc1←v9948 skipped */
/* declaration of loc2←v9976 skipped */
/* declaration of break←v10004 skipped */
/* declaration of skipCommentNodes←v10032 skipped */
register ptr gf←c42876 = (ptr) &globalframe;
word count←v10076;
(* (W2Pt) (( (ptr) &var←c42844)+4)/* loc1←v9948 */ ) = formal←c0529;
(* (W2Pt) (( (ptr) &var←c42844)+6)/* loc2←v9976 */ ) = formal←c0530;
(* (( (ptr) &var←c42844)+8)/* break←v10004 */ ) = formal←c0531;
(* (( (ptr) &var←c42844)+9)/* skipCommentNodes←v10032 */ ) = formal←c0532;
/* LocOffset: */
SOURCE(9985, 237)
SOURCE(10107, 115)
{
/* declaration of var←c01 skipped */
(* (( (ptr) &var←c42844)+10)/* var←c01 */ ) = (* (( (ptr) (* (( (ptr) gf←c42876)+216)/* var←c39900 */ ))+21) );
{
/* declaration of var←c02 skipped */
{
word var←c0502;
var←c0502 = (word) &var←c42844;
(void) (word) XR←Enable(( ((word) (fPt) NoName←Q7092) ), ( ((word) (fPt) NoName←Q7272) ), var←c0502);
};
count←v10076 = (* (( (ptr) &var←c42844)+11)/* var←c02 */ );
};
};
SOURCE(9985, 237)
return(count←v10076);
}
static word NoName←Q7092(formal←c0424)
word formal←c0424;
{
SOURCE(10107, 115)
{
word pd72;
pd72 = (* (( (ptr) formal←c0424)+10) );
(* (( (ptr) formal←c0424)+11) ) = (word) ( *( (fPt) ((* (ptr) pd72 ))))((* (W2Pt) (( (ptr) formal←c0424)+4) ), (* (W2Pt) (
( (ptr) formal←c0424)+6) ), (* (( (ptr) formal←c0424)+8) ), (* (( (ptr) formal←c0424)+9) ), pd72);
};
return(0);
}
static void GetCaret←P1920(formal←c0273)
word formal←c0273;
{
register ptr gf←c42908 = (ptr) &globalframe;
W2 loc←v10152;
/* GetCaret: */
SOURCE(10256, 86)
SOURCE(10256, 86)
loc←v10152.f0 = 0;
loc←v10152.f1 = 0;
SOURCE(10306, 36)
{
W2 var←c41052;
{
W2 var←c41020;
W2 loc←v35884;
{
word pd73;
pd73 = (* (( (ptr) (* (( (ptr) gf←c42908)+222)/* var←c40668 */ ))+6) );
(void) ( *( (fPt) ((* (ptr) pd73 ))))((word) &loc←v35884, 0, pd73);
};
SOURCE(3726, 12)
var←c41020 = loc←v35884;
var←c41052 = var←c41020;
};
loc←v10152 = var←c41052;
/* removed tail goto */
};
(* (W2Pt) formal←c0273 ) = loc←v10152;
return;
}
static void CaretBefore←P1980()
{
register ptr gf←c42940 = (ptr) &globalframe;
/* CaretBefore: */
SOURCE(10346, 67)
SOURCE(10375, 38)
{
word pd74;
pd74 = (* (( (ptr) (* (( (ptr) gf←c42940)+215)/* var←c39324 */ ))+54) );
(void) ( *( (fPt) ((* (ptr) pd74 ))))(pd74);
};
}
static void CaretAfter←P2040()
{
register ptr gf←c42972 = (ptr) &globalframe;
/* CaretAfter: */
SOURCE(10417, 65)
SOURCE(10445, 37)
{
word pd75;
pd75 = (* (( (ptr) (* (( (ptr) gf←c42972)+215)/* var←c39324 */ ))+55) );
(void) ( *( (fPt) ((* (ptr) pd75 ))))(pd75);
};
}
static void CaretOnly←P2100()
{
register ptr gf←c43004 = (ptr) &globalframe;
/* CaretOnly: */
SOURCE(10486, 64)
SOURCE(10513, 37)
{
W2 var←c41084;
{
word pd76;
pd76 = (* (( (ptr) (* (( (ptr) gf←c43004)+221)/* var←c40444 */ ))+40) );
(void) ( *( (fPt) ((* (ptr) pd76 ))))((word) &var←c41084, 0, pd76);
};
};
}
static void GoToNextCharacter←P2160(n←v10260)
word n←v10260;
{
register ptr gf←c43036 = (ptr) &globalframe;
/* GoToNextCharacter: */
SOURCE(10554, 78)
SOURCE(10602, 30)
{
word pd77;
pd77 = (* (( (ptr) (* (( (ptr) gf←c43036)+223)/* var←c41116 */ ))+16) );
(void) ( *( (fPt) ((* (ptr) pd77 ))))(n←v10260, pd77);
};
}
static void GoToNextWord←P2220(n←v10320)
word n←v10320;
{
register ptr gf←c43068 = (ptr) &globalframe;
/* GoToNextWord: */
SOURCE(10636, 73)
SOURCE(10679, 30)
{
word pd78;
pd78 = (* (( (ptr) (* (( (ptr) gf←c43068)+223)/* var←c41116 */ ))+18) );
(void) ( *( (fPt) ((* (ptr) pd78 ))))(n←v10320, pd78);
};
}
static void GoToNextNode←P2280(n←v10380)
word n←v10380;
{
register ptr gf←c43100 = (ptr) &globalframe;
/* GoToNextNode: */
SOURCE(10713, 73)
SOURCE(10756, 30)
{
word pd79;
pd79 = (* (( (ptr) (* (( (ptr) gf←c43100)+223)/* var←c41116 */ ))+20) );
(void) ( *( (fPt) ((* (ptr) pd79 ))))(n←v10380, pd79);
};
}
static void GoToPreviousCharacter←P2340(n←v10440)
word n←v10440;
{
register ptr gf←c43132 = (ptr) &globalframe;
/* GoToPreviousCharacter: */
SOURCE(10790, 86)
SOURCE(10842, 34)
{
word pd80;
pd80 = (* (( (ptr) (* (( (ptr) gf←c43132)+223)/* var←c41116 */ ))+17) );
(void) ( *( (fPt) ((* (ptr) pd80 ))))(n←v10440, pd80);
};
}
static void GoToPreviousWord←P2400(n←v10500)
word n←v10500;
{
register ptr gf←c43164 = (ptr) &globalframe;
/* GoToPreviousWord: */
SOURCE(10880, 81)
SOURCE(10927, 34)
{
word pd81;
pd81 = (* (( (ptr) (* (( (ptr) gf←c43164)+223)/* var←c41116 */ ))+19) );
(void) ( *( (fPt) ((* (ptr) pd81 ))))(n←v10500, pd81);
};
}
static void GoToPreviousNode←P2460(n←v10560)
word n←v10560;
{
register ptr gf←c43196 = (ptr) &globalframe;
/* GoToPreviousNode: */
SOURCE(10965, 81)
SOURCE(11012, 34)
{
word pd82;
pd82 = (* (( (ptr) (* (( (ptr) gf←c43196)+223)/* var←c41116 */ ))+21) );
(void) ( *( (fPt) ((* (ptr) pd82 ))))(n←v10560, pd82);
};
}
static void ToPrimary←P2520()
{
register ptr gf←c43228 = (ptr) &globalframe;
/* ToPrimary: */
SOURCE(11049, 55)
SOURCE(11076, 28)
{
word pd83;
pd83 = (* (( (ptr) (* (( (ptr) gf←c43228)+223)/* var←c41116 */ ))+39) );
(void) ( *( (fPt) ((* (ptr) pd83 ))))(0, pd83);
};
}
static void ToSecondary←P2580()
{
register ptr gf←c43260 = (ptr) &globalframe;
/* ToSecondary: */
SOURCE(11108, 59)
SOURCE(11137, 30)
{
word pd84;
pd84 = (* (( (ptr) (* (( (ptr) gf←c43260)+223)/* var←c41116 */ ))+39) );
(void) ( *( (fPt) ((* (ptr) pd84 ))))(1, pd84);
};
}
static void Transpose←P2640()
{
register ptr gf←c43292 = (ptr) &globalframe;
/* Transpose: */
SOURCE(11171, 53)
SOURCE(11198, 26)
{
word pd85;
pd85 = (* (( (ptr) (* (( (ptr) gf←c43292)+223)/* var←c41116 */ ))+42) );
(void) ( *( (fPt) ((* (ptr) pd85 ))))(0, pd85);
};
}
static void InsertRope←P2700(rope←v10668)
word rope←v10668;
{
register ptr gf←c43324 = (ptr) &globalframe;
/* InsertRope: */
SOURCE(11227, 72)
SOURCE(11268, 31)
{
word pd86;
pd86 = (* (( (ptr) (* (( (ptr) gf←c43324)+223)/* var←c41116 */ ))+7) );
(void) ( *( (fPt) ((* (ptr) pd86 ))))(rope←v10668, pd86);
};
}
static void InsertChar←P2760(char←v10728)
word char←v10728;
{
register ptr gf←c43356 = (ptr) &globalframe;
/* InsertChar: */
SOURCE(11303, 72)
SOURCE(11344, 31)
{
word pd87;
pd87 = (* (( (ptr) (* (( (ptr) gf←c43356)+223)/* var←c41116 */ ))+6) );
(void) ( *( (fPt) ((* (ptr) pd87 ))))(char←v10728, pd87);
};
}
static void InsertLineBreak←P2820()
{
register ptr gf←c43388 = (ptr) &globalframe;
/* InsertLineBreak: */
SOURCE(11379, 65)
SOURCE(11412, 32)
{
word pd88;
pd88 = (* (( (ptr) (* (( (ptr) gf←c43388)+223)/* var←c41116 */ ))+8) );
(void) ( *( (fPt) ((* (ptr) pd88 ))))(pd88);
};
}
static void BackSpace←P2880(n←v10804)
word n←v10804;
{
register ptr gf←c43420 = (ptr) &globalframe;
/* BackSpace: */
SOURCE(11448, 67)
SOURCE(11488, 27)
{
word pd89;
pd89 = (* (( (ptr) (* (( (ptr) gf←c43420)+223)/* var←c41116 */ ))+12) );
(void) ( *( (fPt) ((* (ptr) pd89 ))))(n←v10804, pd89);
};
}
static void BackWord←P2940(n←v10864)
word n←v10864;
{
register ptr gf←c43452 = (ptr) &globalframe;
/* BackWord: */
SOURCE(11519, 65)
SOURCE(11558, 26)
{
word pd90;
pd90 = (* (( (ptr) (* (( (ptr) gf←c43452)+223)/* var←c41116 */ ))+13) );
(void) ( *( (fPt) ((* (ptr) pd90 ))))(n←v10864, pd90);
};
}
static void DeleteNextCharacter←P3000(n←v10924)
word n←v10924;
{
register ptr gf←c43484 = (ptr) &globalframe;
/* DeleteNextCharacter: */
SOURCE(11588, 82)
SOURCE(11638, 32)
{
word pd91;
pd91 = (* (( (ptr) (* (( (ptr) gf←c43484)+223)/* var←c41116 */ ))+14) );
(void) ( *( (fPt) ((* (ptr) pd91 ))))(n←v10924, pd91);
};
}
static void DeleteNextWord←P3060(n←v10984)
word n←v10984;
{
register ptr gf←c43516 = (ptr) &globalframe;
/* DeleteNextWord: */
SOURCE(11674, 77)
SOURCE(11719, 32)
{
word pd92;
pd92 = (* (( (ptr) (* (( (ptr) gf←c43516)+223)/* var←c41116 */ ))+15) );
(void) ( *( (fPt) ((* (ptr) pd92 ))))(n←v10984, pd92);
};
}
static void InsertTime←P3120()
{
register ptr gf←c43548 = (ptr) &globalframe;
/* InsertTime: */
SOURCE(11755, 55)
SOURCE(11783, 27)
{
word pd93;
pd93 = (* (( (ptr) (* (( (ptr) gf←c43548)+223)/* var←c41116 */ ))+52) );
(void) ( *( (fPt) ((* (ptr) pd93 ))))(pd93);
};
}
static void InsertBrackets←P3180(left←v11060, right←v11088)
word left←v11060;
word right←v11088;
{
register ptr gf←c43580 = (ptr) &globalframe;
/* InsertBrackets: */
SOURCE(11814, 94)
SOURCE(11866, 42)
{
word pd94;
pd94 = (* (( (ptr) (* (( (ptr) gf←c43580)+223)/* var←c41116 */ ))+45) );
(void) ( *( (fPt) ((* (ptr) pd94 ))))(left←v11060, right←v11088, pd94);
};
}
static void MakeControlCharacter←P3240()
{
register ptr gf←c43612 = (ptr) &globalframe;
/* MakeControlCharacter: */
SOURCE(11912, 75)
SOURCE(11950, 37)
{
word pd95;
pd95 = (* (( (ptr) (* (( (ptr) gf←c43612)+223)/* var←c41116 */ ))+24) );
(void) ( *( (fPt) ((* (ptr) pd95 ))))(pd95);
};
}
static void UnMakeControlCharacter←P3300()
{
register ptr gf←c43644 = (ptr) &globalframe;
/* UnMakeControlCharacter: */
SOURCE(11991, 79)
SOURCE(12031, 39)
{
word pd96;
pd96 = (* (( (ptr) (* (( (ptr) gf←c43644)+223)/* var←c41116 */ ))+25) );
(void) ( *( (fPt) ((* (ptr) pd96 ))))(pd96);
};
}
static void MakeOctalCharacter←P3360()
{
register ptr gf←c43676 = (ptr) &globalframe;
/* MakeOctalCharacter: */
SOURCE(12074, 71)
SOURCE(12110, 35)
{
word pd97;
pd97 = (* (( (ptr) (* (( (ptr) gf←c43676)+223)/* var←c41116 */ ))+26) );
(void) ( *( (fPt) ((* (ptr) pd97 ))))(pd97);
};
}
static void UnMakeOctalCharacter←P3420()
{
register ptr gf←c43708 = (ptr) &globalframe;
/* UnMakeOctalCharacter: */
SOURCE(12149, 75)
SOURCE(12187, 37)
{
word pd98;
pd98 = (* (( (ptr) (* (( (ptr) gf←c43708)+223)/* var←c41116 */ ))+27) );
(void) ( *( (fPt) ((* (ptr) pd98 ))))(pd98);
};
}
static void ExpandAbbreviation←P3480()
{
register ptr gf←c43740 = (ptr) &globalframe;
/* ExpandAbbreviation: */
SOURCE(12228, 71)
SOURCE(12264, 35)
{
word pd99;
pd99 = (* (( (ptr) (* (( (ptr) gf←c43740)+223)/* var←c41116 */ ))+67) );
(void) ( *( (fPt) ((* (ptr) pd99 ))))(pd99);
};
}
static void Delete←P3540()
{
register ptr gf←c43772 = (ptr) &globalframe;
/* Delete: */
SOURCE(12303, 47)
SOURCE(12327, 23)
{
word pd100;
pd100 = (* (( (ptr) (* (( (ptr) gf←c43772)+223)/* var←c41116 */ ))+29) );
(void) ( *( (fPt) ((* (ptr) pd100 ))))(1, pd100);
};
}
static void Paste←P3600()
{
register ptr gf←c43804 = (ptr) &globalframe;
/* Paste: */
SOURCE(12354, 45)
SOURCE(12377, 22)
{
word pd101;
pd101 = (* (( (ptr) (* (( (ptr) gf←c43804)+223)/* var←c41116 */ ))+30) );
(void) ( *( (fPt) ((* (ptr) pd101 ))))(pd101);
};
}
static void SaveForPaste←P3660()
{
register ptr gf←c43836 = (ptr) &globalframe;
/* SaveForPaste: */
SOURCE(12403, 59)
SOURCE(12433, 29)
{
word pd102;
pd102 = (* (( (ptr) (* (( (ptr) gf←c43836)+223)/* var←c41116 */ ))+31) );
(void) ( *( (fPt) ((* (ptr) pd102 ))))(pd102);
};
}
static void SaveSpanForPaste←P3720(startLoc←v11276, endLoc←v11304, grain←v11332)
W2 startLoc←v11276;
W2 endLoc←v11304;
word grain←v11332;
{
register ptr gf←c43868 = (ptr) &globalframe;
/* SaveSpanForPaste: */
SOURCE(12466, 174)
SOURCE(12559, 81)
{
word pd103;
pd103 = (* (( (ptr) (* (( (ptr) gf←c43868)+223)/* var←c41116 */ ))+32) );
(void) ( *( (fPt) ((* (ptr) pd103 ))))(startLoc←v11276, endLoc←v11304, grain←v11332, pd103);
};
}
static void AllLower←P3780()
{
register ptr gf←c43900 = (ptr) &globalframe;
/* AllLower: */
SOURCE(12643, 61)
SOURCE(12669, 35)
{
word pd104;
pd104 = (* (( (ptr) (* (( (ptr) gf←c43900)+223)/* var←c41116 */ ))+53) );
(void) ( *( (fPt) ((* (ptr) pd104 ))))(1, pd104);
};
}
static void AllCaps←P3840()
{
register ptr gf←c43932 = (ptr) &globalframe;
/* AllCaps: */
SOURCE(12708, 59)
SOURCE(12733, 34)
{
word pd105;
pd105 = (* (( (ptr) (* (( (ptr) gf←c43932)+223)/* var←c41116 */ ))+53) );
(void) ( *( (fPt) ((* (ptr) pd105 ))))(0, pd105);
};
}
static void InitialCaps←P3900()
{
register ptr gf←c43964 = (ptr) &globalframe;
/* InitialCaps: */
SOURCE(12771, 64)
SOURCE(12800, 35)
{
word pd106;
pd106 = (* (( (ptr) (* (( (ptr) gf←c43964)+223)/* var←c41116 */ ))+53) );
(void) ( *( (fPt) ((* (ptr) pd106 ))))(2, pd106);
};
}
static void FirstCap←P3960()
{
register ptr gf←c43996 = (ptr) &globalframe;
/* FirstCap: */
SOURCE(12839, 61)
SOURCE(12865, 35)
{
word pd107;
pd107 = (* (( (ptr) (* (( (ptr) gf←c43996)+223)/* var←c41116 */ ))+53) );
(void) ( *( (fPt) ((* (ptr) pd107 ))))(3, pd107);
};
}
static void MesaFormatting←P4020()
{
register ptr gf←c44028 = (ptr) &globalframe;
/* MesaFormatting: */
SOURCE(12904, 67)
SOURCE(12936, 35)
{
W2 var←c41180;
{
word pd108;
pd108 = (* (( (ptr) (* (( (ptr) gf←c44028)+224)/* var←c41148 */ ))+4) );
(void) ( *( (fPt) ((* (ptr) pd108 ))))((word) &var←c41180, 0, pd108);
};
};
}
static void Repeat←P4080()
{
register ptr gf←c44060 = (ptr) &globalframe;
/* Repeat: */
SOURCE(12975, 49)
SOURCE(12999, 25)
{
W2 var←c41212;
{
word pd109;
pd109 = (* (( (ptr) (* (( (ptr) gf←c44060)+221)/* var←c40444 */ ))+43) );
(void) ( *( (fPt) ((* (ptr) pd109 ))))((word) &var←c41212, 0, pd109);
};
};
}
static void Undo←P4140()
{
register ptr gf←c44092 = (ptr) &globalframe;
/* Undo: */
SOURCE(13028, 47)
SOURCE(13050, 25)
{
W2 var←c41244;
{
word pd110;
pd110 = (* (( (ptr) (* (( (ptr) gf←c44092)+221)/* var←c40444 */ ))+42) );
(void) ( *( (fPt) ((* (ptr) pd110 ))))((word) &var←c41244, 0, pd110);
};
};
}
static void Break←P4200()
{
register ptr gf←c44124 = (ptr) &globalframe;
/* Break: */
SOURCE(13078, 45)
SOURCE(13101, 22)
{
word pd111;
pd111 = (* (( (ptr) (* (( (ptr) gf←c44124)+223)/* var←c41116 */ ))+33) );
(void) ( *( (fPt) ((* (ptr) pd111 ))))(pd111);
};
}
static void Join←P4260()
{
register ptr gf←c44156 = (ptr) &globalframe;
/* Join: */
SOURCE(13127, 43)
SOURCE(13149, 21)
{
word pd112;
pd112 = (* (( (ptr) (* (( (ptr) gf←c44156)+223)/* var←c41116 */ ))+34) );
(void) ( *( (fPt) ((* (ptr) pd112 ))))(pd112);
};
}
static void Nest←P4320()
{
register ptr gf←c44188 = (ptr) &globalframe;
/* Nest: */
SOURCE(13174, 43)
SOURCE(13196, 21)
{
word pd113;
pd113 = (* (( (ptr) (* (( (ptr) gf←c44188)+223)/* var←c41116 */ ))+35) );
(void) ( *( (fPt) ((* (ptr) pd113 ))))(pd113);
};
}
static void UnNest←P4380()
{
register ptr gf←c44220 = (ptr) &globalframe;
/* UnNest: */
SOURCE(13221, 47)
SOURCE(13245, 23)
{
word pd114;
pd114 = (* (( (ptr) (* (( (ptr) gf←c44220)+223)/* var←c41116 */ ))+36) );
(void) ( *( (fPt) ((* (ptr) pd114 ))))(pd114);
};
}
static void SetSelectionLooks←P4440(which←v11568)
word which←v11568;
{
register ptr gf←c44252 = (ptr) &globalframe;
/* SetSelectionLooks: */
SOURCE(13271, 231)
SOURCE(13340, 162)
{
word var←c41276;
{
word var←c41308;
var←c41308 = which←v11568;
switch (var←c41308) {
case 0:
var←c41276 = (* (ptr) (* (( (ptr) (* (( (ptr) gf←c44252)+215)/* var←c39324 */ ))+4) ) );
break;
case 1:
var←c41276 = (* (ptr) (* (( (ptr) (* (( (ptr) gf←c44252)+215)/* var←c39324 */ ))+5) ) );
break;
case 2:
var←c41276 = (* (ptr) (* (( (ptr) (* (( (ptr) gf←c44252)+215)/* var←c39324 */ ))+6) ) );
break;
default:
var←c41276 = (
XR←RaiseUnnamedError(), 0
);
break;
};
};
{
word pd115;
pd115 = (* (( (ptr) (* (( (ptr) gf←c44252)+215)/* var←c39324 */ ))+70) );
(void) ( *( (fPt) ((* (ptr) pd115 ))))(var←c41276, pd115);
};
};
}
static word FetchLooks←P4500(node←v11628, index←v11656)
word node←v11628;
word index←v11656;
{
register ptr gf←c44284 = (ptr) &globalframe;
word var←c11700;
/* FetchLooks: */
SOURCE(13505, 161)
SOURCE(13575, 91)
{
word var←c41372;
{
word pd116;
pd116 = (* (( (ptr) (* (( (ptr) gf←c44284)+218)/* var←c39964 */ ))+5) );
var←c41372 = (word) ( *( (fPt) ((* (ptr) pd116 ))))(node←v11628, index←v11656, pd116);
};
{
word pd117;
pd117 = (* (( (ptr) (* (( (ptr) gf←c44284)+225)/* var←c41404 */ ))+10) );
return((word) ( *( (fPt) ((* (ptr) pd117 ))))(var←c41372, pd117));
};
};
}
static void SetLooks←P4560(looks←v11760, which←v11788)
word looks←v11760;
word which←v11788;
{
register ptr gf←c44316 = (ptr) &globalframe;
word lks←v14556;
/* SetLooks: */
SOURCE(13670, 286)
SOURCE(13741, 51)
{
word pd118;
pd118 = (* (( (ptr) (* (( (ptr) gf←c44316)+225)/* var←c41404 */ ))+11) );
lks←v14556 = (word) ( *( (fPt) ((* (ptr) pd118 ))))(looks←v11760, pd118);
};
SOURCE(13794, 162)
if ((which←v11788 == 1)) {
SOURCE(13818, 69)
{
word pd119;
pd119 = (* (( (ptr) (* (( (ptr) gf←c44316)+223)/* var←c41116 */ ))+56) );
(void) ( *( (fPt) ((* (ptr) pd119 ))))(lks←v14556, (word) -1, pd119);
};
}
else {
SOURCE(13887, 69)
{
word pd120;
pd120 = (* (( (ptr) (* (( (ptr) gf←c44316)+223)/* var←c41116 */ ))+57) );
(void) ( *( (fPt) ((* (ptr) pd120 ))))(lks←v14556, (word) -1, pd120);
};
};
}
static void AddLooks←P4620(looks←v11848, which←v11876)
word looks←v11848;
word which←v11876;
{
register ptr gf←c44348 = (ptr) &globalframe;
word lks←v14600;
/* AddLooks: */
SOURCE(13960, 284)
SOURCE(14031, 51)
{
word pd121;
pd121 = (* (( (ptr) (* (( (ptr) gf←c44348)+225)/* var←c41404 */ ))+11) );
lks←v14600 = (word) ( *( (fPt) ((* (ptr) pd121 ))))(looks←v11848, pd121);
};
SOURCE(14084, 160)
if ((which←v11876 == 1)) {
SOURCE(14108, 68)
{
word pd122;
pd122 = (* (( (ptr) (* (( (ptr) gf←c44348)+223)/* var←c41116 */ ))+56) );
(void) ( *( (fPt) ((* (ptr) pd122 ))))(lks←v14600, 0, pd122);
};
}
else {
SOURCE(14176, 68)
{
word pd123;
pd123 = (* (( (ptr) (* (( (ptr) gf←c44348)+223)/* var←c41116 */ ))+57) );
(void) ( *( (fPt) ((* (ptr) pd123 ))))(lks←v14600, 0, pd123);
};
};
}
static void SubtractLooks←P4680(looks←v11936, which←v11964)
word looks←v11936;
word which←v11964;
{
register ptr gf←c44380 = (ptr) &globalframe;
word lks←v14644;
/* SubtractLooks: */
SOURCE(14248, 289)
SOURCE(14324, 51)
{
word pd124;
pd124 = (* (( (ptr) (* (( (ptr) gf←c44380)+225)/* var←c41404 */ ))+11) );
lks←v14644 = (word) ( *( (fPt) ((* (ptr) pd124 ))))(looks←v11936, pd124);
};
SOURCE(14377, 160)
if ((which←v11964 == 1)) {
SOURCE(14401, 68)
{
word pd125;
pd125 = (* (( (ptr) (* (( (ptr) gf←c44380)+223)/* var←c41116 */ ))+56) );
(void) ( *( (fPt) ((* (ptr) pd125 ))))(0, lks←v14644, pd125);
};
}
else {
SOURCE(14469, 68)
{
word pd126;
pd126 = (* (( (ptr) (* (( (ptr) gf←c44380)+223)/* var←c41116 */ ))+57) );
(void) ( *( (fPt) ((* (ptr) pd126 ))))(0, lks←v14644, pd126);
};
};
}
static void ClearLooks←P4740(which←v12024)
word which←v12024;
{
register ptr gf←c44412 = (ptr) &globalframe;
/* ClearLooks: */
SOURCE(14541, 250)
SOURCE(14601, 190)
if ((which←v12024 == 1)) {
SOURCE(14625, 83)
{
word pd127;
pd127 = (* (( (ptr) (* (( (ptr) gf←c44412)+223)/* var←c41116 */ ))+56) );
(void) ( *( (fPt) ((* (ptr) pd127 ))))(0, (word) -1, pd127);
};
}
else {
SOURCE(14708, 83)
{
word pd128;
pd128 = (* (( (ptr) (* (( (ptr) gf←c44412)+223)/* var←c41116 */ ))+57) );
(void) ( *( (fPt) ((* (ptr) pd128 ))))(0, (word) -1, pd128);
};
};
}
static void CopyLooks←P4800()
{
register ptr gf←c44444 = (ptr) &globalframe;
/* CopyLooks: */
SOURCE(14795, 53)
SOURCE(14822, 26)
{
word pd129;
pd129 = (* (( (ptr) (* (( (ptr) gf←c44444)+223)/* var←c41116 */ ))+40) );
(void) ( *( (fPt) ((* (ptr) pd129 ))))(0, pd129);
};
}
static word GetFormat←P4860(node←v12100)
word node←v12100;
{
register ptr gf←c44476 = (ptr) &globalframe;
word var←c12144;
word name←v14688;
/* GetFormat: */
SOURCE(14851, 153)
SOURCE(14905, 37)
{
word pd130;
pd130 = (* (( (ptr) (* (( (ptr) gf←c44476)+218)/* var←c39964 */ ))+26) );
name←v14688 = (word) ( *( (fPt) ((* (ptr) pd130 ))))(node←v12100, pd130);
};
SOURCE(14944, 60)
{
word pd131;
if ((name←v14688 == 0)) {
return((* (( (ptr) gf←c44476)+14) ));
}
else {
pd131 = (* (( (ptr) (* (( (ptr) gf←c44476)+226)/* var←c41468 */ ))+9) );
return((word) ( *( (fPt) ((* (ptr) pd131 ))))(name←v14688, pd131));
};
};
}
static void ForEachNode←P4920(which←v12204, proc←v12232)
word which←v12204;
word proc←v12232;
{
register ptr gf←c44508 = (ptr) &globalframe;
word pSel←v14732;
/* ForEachNode: */
SOURCE(15010, 324)
SOURCE(15079, 51)
pSel←v14732 = (* (ptr) (* (( (ptr) (* (( (ptr) gf←c44508)+215)/* var←c39324 */ ))+4) ) );
SOURCE(15132, 202)
{
word var←c41500;
var←c41500 = which←v12204;
if ((var←c41500 == 0)) {
SOURCE(15158, 40)
{
word var←c41532;
{
word pd132;
pd132 = (* (( (ptr) (* (( (ptr) gf←c44508)+216)/* var←c39900 */ ))+9) );
var←c41532 = (word) ( *( (fPt) ((* (ptr) pd132 ))))((* ((( (ptr) pSel←v14732)+2)) ), pd132);
};
(void) ( *( (fPt) ((* (ptr) proc←v12232 ))))(var←c41532, proc←v12232);
};
}
else {
if ((var←c41500 == 1)) {
SOURCE(15213, 121)
{
register word node←v14776;
node←v14776 = (* (( (ptr) pSel←v14732)+2) );
lab←L100018: ;
SOURCE(15289, 10)
(void) ( *( (fPt) ((* (ptr) proc←v12232 ))))(node←v14776, proc←v12232);
SOURCE(15301, 33)
if ((node←v14776 == (* (( (ptr) pSel←v14732)+11) ))) {
SOURCE(15334, 4)
goto lab←L100016;
};
{
word pd133;
pd133 = (* (( (ptr) (* (( (ptr) gf←c44508)+216)/* var←c39900 */ ))+14) );
node←v14776 = (word) ( *( (fPt) ((* (ptr) pd133 ))))(node←v14776, pd133);
};
goto lab←L100018;
lab←L100016: ;
};
}
else {
SOURCE(15360, 6)
(void) XR←RaiseUnnamedError();
};
};
};
}
static void SetFormat←P4980(formal←c0533, which←v12380)
word formal←c0533;
word which←v12380;
{
W7 var←c44540;
/* declaration of format←v12352 skipped */
/* declaration of var←c41564 skipped */
var←c44540.f4/* format←v12352 */ = formal←c0533;
/* SetFormat: */
SOURCE(15370, 175)
{
word tmpAddr134;
tmpAddr134 = (word) (( (ptr) &var←c44540)+5)/* var←c41564 */ ;
(* (ptr) tmpAddr134 ) = ( ((word) (fPt) Set←P6216) );
(* (( (ptr) tmpAddr134) + 1) ) = 1;
};
SOURCE(15521, 24)
(void) ForEachNode←P4920(which←v12380, (word) (( (bPt) &var←c44540)+20)/* var←c41564 */ );
}
static void Set←P6216(ref←v14896, formal←c44604)
word ref←v14896;
word formal←c44604;
{
register ptr gf←c44572 = (ptr) &globalframe;
formal←c44604 = (formal←c44604 - 20);
/* Set: */
SOURCE(15443, 75)
SOURCE(15477, 41)
{
word pd135;
pd135 = (* (( (ptr) (* (( (ptr) gf←c44572)+223)/* var←c41116 */ ))+64) );
(void) ( *( (fPt) ((* (ptr) pd135 ))))((* (( (ptr) formal←c44604)+4) ), ref←v14896, pd135);
};
}
static void SetNodeFormat←P5040(format←v12440, node←v12468)
word format←v12440;
word node←v12468;
{
register ptr gf←c44636 = (ptr) &globalframe;
word root←v14924 = 0;
word formatName←v14952;
/* SetNodeFormat: */
SOURCE(15549, 294)
SOURCE(15626, 72)
{
word tc136;
word pd137;
word pd138;
pd137 = (* (( (ptr) (* (( (ptr) gf←c44636)+220)/* var←c40252 */ ))+13) );
if ((0 != (word) ( *( (fPt) ((* (ptr) pd137 ))))(format←v12440, pd137))) {
tc136 = (word) 0;
}
else {
pd138 = (* (( (ptr) (* (( (ptr) gf←c44636)+226)/* var←c41468 */ ))+5) );
tc136 = (word) ( *( (fPt) ((* (ptr) pd138 ))))(format←v12440, 0, 2147483647, pd138);
};
formatName←v14952 = tc136;
};
SOURCE(15700, 26)
{
word pd139;
pd139 = (* (( (ptr) (* (( (ptr) gf←c44636)+216)/* var←c39900 */ ))+9) );
root←v14924 = (word) ( *( (fPt) ((* (ptr) pd139 ))))(node←v12468, pd139);
};
SOURCE(15728, 51)
{
word var←c41596;
word pd140;
pd140 = (* (( (ptr) (* (( (ptr) gf←c44636)+214)/* var←c39260 */ ))+4) );
var←c41596 = (word) ( *( (fPt) ((* (ptr) pd140 ))))(root←v14924, (* (( (ptr) gf←c44636)+15) ), 1, pd140);
};
SOURCE(15781, 36)
{
word pd141;
pd141 = (* (( (ptr) (* (( (ptr) gf←c44636)+218)/* var←c39964 */ ))+27) );
(void) ( *( (fPt) ((* (ptr) pd141 ))))(node←v12468, formatName←v14952, 0, pd141);
};
SOURCE(15819, 24)
{
word pd142;
pd142 = (* (( (ptr) (* (( (ptr) gf←c44636)+214)/* var←c39260 */ ))+7) );
(void) ( *( (fPt) ((* (ptr) pd142 ))))(root←v14924, pd142);
};
}
static void SetNodeStyle←P5100(style←v12528, node←v12556)
word style←v12528;
word node←v12556;
{
register ptr gf←c44668 = (ptr) &globalframe;
word root←v14996;
/* SetNodeStyle: */
SOURCE(15847, 208)
SOURCE(15902, 40)
{
word pd143;
pd143 = (* (( (ptr) (* (( (ptr) gf←c44668)+216)/* var←c39900 */ ))+9) );
root←v14996 = (word) ( *( (fPt) ((* (ptr) pd143 ))))(node←v12556, pd143);
};
SOURCE(15944, 50)
{
word var←c41628;
word pd144;
pd144 = (* (( (ptr) (* (( (ptr) gf←c44668)+214)/* var←c39260 */ ))+4) );
var←c41628 = (word) ( *( (fPt) ((* (ptr) pd144 ))))(root←v14996, (* (( (ptr) gf←c44668)+16) ), 1, pd144);
};
SOURCE(15996, 33)
{
word pd145;
pd145 = (* (( (ptr) (* (( (ptr) gf←c44668)+218)/* var←c39964 */ ))+30) );
(void) ( *( (fPt) ((* (ptr) pd145 ))))(node←v12556, style←v12528, 0, pd145);
};
SOURCE(16031, 24)
{
word pd146;
pd146 = (* (( (ptr) (* (( (ptr) gf←c44668)+214)/* var←c39260 */ ))+7) );
(void) ( *( (fPt) ((* (ptr) pd146 ))))(root←v14996, pd146);
};
}
static void CaretNodeFormat←P5160()
{
register ptr gf←c44700 = (ptr) &globalframe;
/* CaretNodeFormat: */
SOURCE(16059, 59)
SOURCE(16092, 26)
{
word pd147;
pd147 = (* (( (ptr) (* (( (ptr) gf←c44700)+223)/* var←c41116 */ ))+62) );
(void) ( *( (fPt) ((* (ptr) pd147 ))))(pd147);
};
}
static void InsertFormat←P5220()
{
register ptr gf←c44732 = (ptr) &globalframe;
/* InsertFormat: */
SOURCE(16122, 56)
SOURCE(16152, 26)
{
word pd148;
pd148 = (* (( (ptr) (* (( (ptr) gf←c44732)+223)/* var←c41116 */ ))+63) );
(void) ( *( (fPt) ((* (ptr) pd148 ))))(pd148);
};
}
static void CopyFormat←P5280()
{
register ptr gf←c44764 = (ptr) &globalframe;
/* CopyFormat: */
SOURCE(16182, 55)
SOURCE(16210, 27)
{
word pd149;
pd149 = (* (( (ptr) (* (( (ptr) gf←c44764)+223)/* var←c41116 */ ))+41) );
(void) ( *( (fPt) ((* (ptr) pd149 ))))(0, pd149);
};
}
static word GetStyle←P5340(node←v12664)
word node←v12664;
{
register ptr gf←c44796 = (ptr) &globalframe;
word var←c12708;
word name←v15040;
/* GetStyle: */
SOURCE(16240, 164)
SOURCE(16293, 48)
{
word pd150;
pd150 = (* (( (ptr) (* (( (ptr) gf←c44796)+227)/* var←c41660 */ ))+20) );
name←v15040 = (word) ( *( (fPt) ((* (ptr) pd150 ))))(node←v12664, pd150);
};
SOURCE(16343, 61)
{
word pd151;
if ((name←v15040 == 0)) {
return((* (( (ptr) gf←c44796)+14) ));
}
else {
pd151 = (* (( (ptr) (* (( (ptr) gf←c44796)+226)/* var←c41468 */ ))+9) );
return((word) ( *( (fPt) ((* (ptr) pd151 ))))(name←v15040, pd151));
};
};
}
static void SetStyle←P5400(formal←c0534, which←v12796)
word formal←c0534;
word which←v12796;
{
W7 var←c44828;
/* declaration of style←v12768 skipped */
/* declaration of var←c41724 skipped */
var←c44828.f4/* style←v12768 */ = formal←c0534;
/* SetStyle: */
SOURCE(16408, 171)
{
word tmpAddr152;
tmpAddr152 = (word) (( (ptr) &var←c44828)+5)/* var←c41724 */ ;
(* (ptr) tmpAddr152 ) = ( ((word) (fPt) Set←P6276) );
(* (( (ptr) tmpAddr152) + 1) ) = 1;
};
SOURCE(16555, 24)
(void) ForEachNode←P4920(which←v12796, (word) (( (bPt) &var←c44828)+20)/* var←c41724 */ );
}
static void Set←P6276(ref←v15160, formal←c44892)
word ref←v15160;
word formal←c44892;
{
register ptr gf←c44860 = (ptr) &globalframe;
formal←c44892 = (formal←c44892 - 20);
/* Set: */
SOURCE(16479, 73)
SOURCE(16513, 39)
{
word pd153;
pd153 = (* (( (ptr) (* (( (ptr) gf←c44860)+223)/* var←c41116 */ ))+59) );
(void) ( *( (fPt) ((* (ptr) pd153 ))))((* (( (ptr) formal←c44892)+4) ), ref←v15160, pd153);
};
}
static word IsComment←P5460(node←v12856)
word node←v12856;
{
word var←c12900;
word txt←v15188;
/* IsComment: */
SOURCE(16582, 150)
SOURCE(16636, 59)
txt←v15188 = node←v12856;
SOURCE(16697, 35)
{
word tc154;
if ((txt←v15188 != 0)) {
tc154 = (word) (*((int*)txt←v15188 + 9)<0);
}
else {
tc154 = (word) 0;
};
return(tc154);
};
}
static void SetComment←P5520()
{
register ptr gf←c44924 = (ptr) &globalframe;
/* SetComment: */
SOURCE(16736, 63)
SOURCE(16764, 35)
{
word pd155;
pd155 = (* (( (ptr) (* (( (ptr) gf←c44924)+223)/* var←c41116 */ ))+65) );
(void) ( *( (fPt) ((* (ptr) pd155 ))))(1, pd155);
};
}
static void SetNotComment←P5580()
{
register ptr gf←c44956 = (ptr) &globalframe;
/* SetNotComment: */
SOURCE(16803, 67)
SOURCE(16834, 36)
{
word pd156;
pd156 = (* (( (ptr) (* (( (ptr) gf←c44956)+223)/* var←c41116 */ ))+65) );
(void) ( *( (fPt) ((* (ptr) pd156 ))))(0, pd156);
};
}
static void SetProp←P5640(formal←c0535, formal←c0536, which←v13048)
word formal←c0535;
word formal←c0536;
word which←v13048;
{
W8 var←c44988;
/* declaration of name←v12992 skipped */
/* declaration of value←v13020 skipped */
/* declaration of var←c41756 skipped */
var←c44988.f4/* name←v12992 */ = formal←c0535;
var←c44988.f5/* value←v13020 */ = formal←c0536;
/* SetProp: */
SOURCE(16874, 206)
{
word tmpAddr157;
tmpAddr157 = (word) (( (ptr) &var←c44988)+6)/* var←c41756 */ ;
(* (ptr) tmpAddr157 ) = ( ((word) (fPt) Put←P6336) );
(* (( (ptr) tmpAddr157) + 1) ) = 1;
};
SOURCE(17056, 24)
(void) ForEachNode←P4920(which←v13048, (word) (( (bPt) &var←c44988)+24)/* var←c41756 */ );
}
static void Put←P6336(node←v15308, formal←c45052)
word node←v15308;
word formal←c45052;
{
register ptr gf←c45020 = (ptr) &globalframe;
formal←c45052 = (formal←c45052 - 24);
/* Put: */
SOURCE(16955, 98)
SOURCE(16990, 63)
{
word pd158;
pd158 = (* (( (ptr) (* (( (ptr) gf←c45020)+218)/* var←c39964 */ ))+25) );
(void) ( *( (fPt) ((* (ptr) pd158 ))))(node←v15308, (* (( (ptr) formal←c45052)+4) ), (* (( (ptr) formal←c45052)+5) ), (* (ptr) (* (
( (ptr) (* (( (ptr) gf←c45020)+221)/* var←c40444 */ ))+6) ) ), pd158);
};
}
static void RegisterAbbrevFailedProc←P5700(proc←v13124)
word proc←v13124;
{
register ptr gf←c45084 = (ptr) &globalframe;
/* RegisterAbbrevFailedProc: */
SOURCE(17083, 115)
SOURCE(17153, 45)
{
word pd159;
pd159 = (* (( (ptr) (* (( (ptr) gf←c45084)+223)/* var←c41116 */ ))+66) );
(void) ( *( (fPt) ((* (ptr) pd159 ))))(proc←v13124, pd159);
};
}
static void RegisterFileNameProc←P5760(proc←v13244)
word proc←v13244;
{
register ptr gf←c45116 = (ptr) &globalframe;
/* RegisterFileNameProc: */
SOURCE(17201, 143)
SOURCE(17308, 36)
{
word pd160;
pd160 = (* (( (ptr) (* (( (ptr) gf←c45116)+222)/* var←c40668 */ ))+13) );
(void) ( *( (fPt) ((* (ptr) pd160 ))))(proc←v13244, pd160);
};
}
static void PutTextKey←P5820(node←v13464, where←v13492, key←v13520)
word node←v13464;
word where←v13492;
word key←v13520;
{
register ptr gf←c45148 = (ptr) &globalframe;
/* PutTextKey: */
SOURCE(17347, 132)
SOURCE(17412, 67)
{
word pd161;
pd161 = (* (( (ptr) (* (( (ptr) gf←c45148)+228)/* var←c41788 */ ))+5) );
(void) ( *( (fPt) ((* (ptr) pd161 ))))(node←v13464, key←v13520, where←v13492, pd161);
};
}
static void GetTextKey←P5880(formal←c0364, formal←c0537, formal←c0538)
word formal←c0364;
word formal←c0537;
word formal←c0538;
{
W9 var←c45180;
/* declaration of node←v13592 skipped */
/* declaration of key←v13620 skipped */
register ptr gf←c45212 = (ptr) &globalframe;
W2 loc←v13676;
(* (( (ptr) &var←c45180)+4)/* node←v13592 */ ) = formal←c0537;
(* (( (ptr) &var←c45180)+5)/* key←v13620 */ ) = formal←c0538;
/* GetTextKey: */
SOURCE(17483, 289)
SOURCE(17483, 289)
loc←v13676.f0 = 0;
loc←v13676.f1 = 0;
SOURCE(17555, 217)
SOURCE(17557, 13)
{
word where←v15336;
word n←v15364 = 0;
SOURCE(17597, 104)
{
W2 var←c41820;
{
/* declaration of var←c03 skipped */
(* (( (ptr) &var←c45180)+6)/* var←c03 */ ) = (* (( (ptr) (* (( (ptr) gf←c45212)+228)/* var←c41788 */ ))+11) );
{
/* declaration of var←c04 skipped */
{
word var←c05;
{
word var←c0503;
var←c0503 = (word) &var←c45180;
var←c05 = (word) XR←Enable(( ((word) (fPt) NoName←Q7152) ), ( ((word) (fPt) NoName←Q7212) ), var←c0503);
};
if ((var←c05 == 2)) {
goto lab←L100020;
};
};
var←c41820 = (* (W2Pt) (( (ptr) &var←c45180)+7)/* var←c04 */ );
};
};
where←v15336 = var←c41820.f1;
n←v15364 = var←c41820.f0;
};
SOURCE(17714, 19)
loc←v13676.f0 = n←v15364;
loc←v13676.f1 = where←v15336;
goto lab←L100019;
};
/* c2c skipped dead code */
lab←L100020: ;
SOURCE(17750, 22)
(void) XR←RaiseError((word) (( (bPt) gf←c45212)+84), 0);
lab←L100019: ;
(* (W2Pt) formal←c0364 ) = loc←v13676;
return;
}
static word NoName←Q7152(formal←c0494)
word formal←c0494;
{
SOURCE(17597, 104)
{
word pd162;
pd162 = (* (( (ptr) formal←c0494)+6) );
(void) ( *( (fPt) ((* (ptr) pd162 ))))((word) (( (bPt) formal←c0494)+28), (* (( (ptr) formal←c0494)+4) ), (* (( (ptr) formal←c0494)+5)
), pd162);
};
return(0);
}
static void RemoveTextKey←P5940(node←v13752, key←v13780)
word node←v13752;
word key←v13780;
{
register ptr gf←c45244 = (ptr) &globalframe;
/* RemoveTextKey: */
SOURCE(17815, 113)
SOURCE(17868, 60)
{
word pd163;
pd163 = (* (( (ptr) (* (( (ptr) gf←c45244)+228)/* var←c41788 */ ))+6) );
(void) ( *( (fPt) ((* (ptr) pd163 ))))(node←v13752, key←v13780, pd163);
};
}
static word MapTextKeys←P6000(node←v13852, formal←c0539)
word node←v13852;
word formal←c0539;
{
W7 var←c45276;
/* declaration of proc←v13880 skipped */
register ptr gf←c45308 = (ptr) &globalframe;
word var←c14068;
/* declaration of var←c41884 skipped */
var←c45276.f4/* proc←v13880 */ = formal←c0539;
/* MapTextKeys: */
SOURCE(17932, 277)
{
word tmpAddr164;
tmpAddr164 = (word) (( (ptr) &var←c45276)+5)/* var←c41884 */ ;
(* (ptr) tmpAddr164 ) = ( ((word) (fPt) Do←P6444) );
(* (( (ptr) tmpAddr164) + 1) ) = 1;
};
SOURCE(18141, 68)
{
word pd165;
pd165 = (* (( (ptr) (* (( (ptr) gf←c45308)+228)/* var←c41788 */ ))+14) );
return((word) ( *( (fPt) ((* (ptr) pd165 ))))(node←v13852, (word) (( (bPt) &var←c45276)+20)/* var←c41884 */ , pd165));
};
}
static word Do←P6444(addr←v15484, location←v15512, formal←c45340)
word addr←v15484;
word location←v15512;
word formal←c45340;
{
word var←c15568;
formal←c45340 = (formal←c45340 - 20);
/* Do: */
SOURCE(18047, 91)
SOURCE(18108, 30)
{
word pd166;
pd166 = (* (( (ptr) formal←c45340)+4) );
return((word) ( *( (fPt) ((* (ptr) pd166 ))))(addr←v15484, location←v15512, pd166));
};
}
static void NoName←Q7212(formal←c0379, formal←c200012, formal←c200013, formal←c200014, formal←c200015)
word formal←c0379;
word formal←c200012;
word formal←c200013;
word formal←c200014;
word formal←c200015;
{
register ptr gf←c0498 = (ptr) &globalframe;
if ((formal←c200013 == (* (( (ptr) (* (( (ptr) gf←c0498)+228)/* var←c41788 */ ))+13) ))) {
SOURCE(17701, 11)
(* (ptr) formal←c0379 ) = 2;
(* (( (ptr) formal←c0379)+1) ) = 2;
return;
};
(* (ptr) formal←c0379 ) = 0;
(* (( (ptr) formal←c0379)+1) ) = 0;
return;
}
static void NoName←Q7272(formal←c0384, formal←c200008, formal←c200009, formal←c200010, formal←c200011)
word formal←c0384;
word formal←c200008;
word formal←c200009;
word formal←c200010;
word formal←c200011;
{
register ptr gf←c0499 = (ptr) &globalframe;
if ((formal←c200009 == (* (( (ptr) (* (( (ptr) gf←c0499)+216)/* var←c39900 */ ))+22) ))) {
SOURCE(10208, 14)
(void) XR←RaiseError((word) (( (bPt) gf←c0499)+80), 0);
};
(* (ptr) formal←c0384 ) = 0;
(* (( (ptr) formal←c0384)+1) ) = 0;
return;
}
static void NoName←Q7332(formal←c0389, formal←c200004, formal←c200005, formal←c200006, formal←c200007)
word formal←c0389;
word formal←c200004;
word formal←c200005;
word formal←c200006;
word formal←c200007;
{
if ((formal←c200005 == XR←Unwind)) {
};
(* (ptr) formal←c0389 ) = 0;
(* (( (ptr) formal←c0389)+1) ) = 0;
return;
}
static void NoName←Q7392(formal←c0394, formal←c200000, formal←c200001, formal←c200002, formal←c200003)
word formal←c0394;
word formal←c200000;
word formal←c200001;
word formal←c200002;
word formal←c200003;
{
if ((formal←c200001 == XR←Unwind)) {
SOURCE(2581, 7)
(void) Cleanup←P6060((word) ((( (bPt) formal←c200000)+24)));
};
(* (ptr) formal←c0394 ) = 0;
(* (( (ptr) formal←c0394)+1) ) = 0;
return;
}
/* file: TiogaOpsImpl, module: TiogaOpsImpl, compiled at: July 9, 1992 4:12:19 pm PDT */
extern void XR←install←TiogaOpsImpl() {
XR←FillWords(&dummy47, 27, 0);
NoName←Q6912();
}
extern void XR←run←TiogaOpsImpl() { XR←Start(&globalframe); }