/* Generated with C2C (Cedar To C)*/
/* Copyright (C) 1993 by Xerox Corporation. All rights reserved. */
/* time: September 14, 1993 4:26:10 pm PDT */
/* C2C version: April 20, 1993 (sun4) */
/* ref-counting: off */
/* file: XlImplAtPropSel, module: XlImplAtPropSel */
/* switches: bcfhklnouw */
#include <cedar/InstallationSupport.h>
#include <cedar/CedarExtra.h>
static char versionStamp[] = "@(#)mob←version [3992918354,2784549964] XlImplAtPropSel";
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; W8 r;} W16;
typedef struct {W8 f; word r;} W9;
typedef struct {word f0, f1, f2, f3, f4;} W5;
typedef struct {W8 f; W5 r;} W13;
typedef struct {word f0, f1, f2, f3;} W4;
typedef W4 *W4Pt;
typedef struct {word f0, f1, f2;} W3;
typedef struct {W8 f; W3 r;} W11;
typedef struct {word f0, f1, f2, f3, f4, f5;} W6;
typedef struct {W8 f; W4 r;} W12;
typedef struct {word f0, f1, f2, f3, f4, f5, f6;} W7;
#define SOURCE(p, l) /* source p, l */
#define BCK(idx, lim) ( ((unsigned) idx) >= ((unsigned) lim) ? (XR←RaiseBoundsFault()) : (idx) )
#define IOP2(op, x, y) ( (word) ((x) op (y)) )
#define MAX(cast, x, y) ( ( cast x) > ( cast y) ? (x) : (y) )
#define MIN(cast, x, y) ( ( cast x) < ( cast y) ? (x) : (y) )
#define SGNCK(i) ((int) (word) (i) < 0 ? XR←RaiseArithmeticFault(): i )
static void NoName←Q6372();
static void XlImplAtPropSel←P0();
static void RaiseClientError←P60();
static word StandardAtom←P120();
static word InitializeNameToAtom←P180();
static word InitializeAtomToName←P240();
static void InitAtomStuff←P300();
static word MakeAtom←P360();
static void InternAtom←P420();
static void action←P2028();
static void BPutProp←P480();
static word GetAtomName←P540();
static void action←P2184();
static void ChangeProperty←P600();
static void action←P2292();
static void BPutPaddedText←P660();
static void XPropInfo←P720();
static void DeleteProperty←P780();
static void action←P3216();
static void GetProperty←P840();
static void action←P3276();
static void ListProperties←P900();
static void action←P3528();
static void RotateProperties←P960();
static void action←P3684();
static void PredefineAtoms←P1020();
static void Def←P3792();
static void SetSelectionOwner←P1080();
static void action←P3852();
static word GetSelectionOwner←P1140();
static void action←P3912();
static void ConvertSelection←P1200();
static void action←P3972();
static void SendSelectionNotifyEvent←P1260();
static void action←P4032();
static void SetInputFocus←P1320();
static void action←P4092();
static void GetInputFocus←P1380();
static void action←P4152();
static word ListExtensions←P1440();
static void action←P4212();
static void QueryExtension←P1500();
static void action←P4368();
static void MapWindow←P1560();
static void action←P4428();
static void MapSubWindows←P1620();
static void action←P4488();
static void UnmapWindow←P1680();
static void action←P4548();
static void UnmapSubWindows←P1740();
static void action←P4608();
static void DestroyWindow←P1800();
static void action←P4668();
static void DestroySubWindows←P1860();
static void action←P4728();
static void Bell←P1920();
static void action←P4788();
static struct {unsigned f; char r[4];} string1 = {65540, "\251\000\000"};
static struct {unsigned f; char r[4];} string2 = {131076, "\216\251\000"};
static struct {unsigned f; char r[4];} string3 = {65537, "\001\000\000"};
static struct {unsigned f; char r[48];} string4 = {2883632, "\260\006\005\146\151\162\163\164\216\257\300\363\223\326\161\300\017\164\046\072\104\350\005\004\162\145\163\164\214\216\257\300\363\223\326\161\300\017\164\046\072\104\350\261\000\000\000"};
static struct {unsigned f; char r[4];} string5 = {131074, "\004\003\000"};
static struct {unsigned f; char r[24];} string6 = {1310744, "\205\210\242\000\100\104\216\257\300\363\223\326\161\300\017\164\046\072\104\350\000\000\000"};
static struct {unsigned f; char r[8];} string7 = {393222, "\010\000\004@E\001\000"};
static struct {unsigned f; char r[16];} string8 = {851984, "\257\300\351\276\264\273\300\115\104\320\264\101\100\000\000"};
static struct {unsigned f; char r[16];} string9 = {851984, "\257\300\223\215\300\016\300\070\141\304\023\100\164\000\000"};
static struct {unsigned f; char r[4];} string10 = {131074, "\003\004\000"};
static struct {unsigned f; char r[16];} string11 = {851984, "\257\300\072\337\114\355\300\232\070\352\142\100\164\000\000"};
static struct {unsigned f; char r[16];} string12 = {917520, "\216\257\300\363\223\326\161\300\017\164\046\072\104\350\000"};
static struct {unsigned f; char r[44];} string13 = {2752556, "\260\006\005\146\151\162\163\164\257\300\351\276\264\273\300\115\104\320\264\101\100\005\004\162\145\163\164\214\257\300\351\276\264\273\300\115\104\320\264\101\100\261\000"};
static struct {unsigned f; char r[4];} string14 = {131074, "\003\001\000"};
static struct {unsigned f; char r[16];} string15 = {851984, "\257\300\363\223\326\161\300\017\164\046\072\104\304\000\000"};
static struct {unsigned f; char r[24];} string16 = {1376277, "\007\000\001\002\007\020\001\002\000\007\036\002\004\003\002\004\014\016\015\003\001\000\000"};
static struct {unsigned f; char r[44];} string17 = {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[4];} string18 = {65540, "\242\000\000"};
static struct {unsigned f; char r[4];} string19 = {65540, "\241\000\000"};
static struct {unsigned f; char r[16];} string20 = {851984, "\257\300\351\276\264\273\300\115\104\320\264\106\070\000\000"};
static struct {unsigned f; char r[16];} string21 = {851984, "\257\300\351\276\264\273\300\115\104\320\264\106\104\000\000"};
static struct {unsigned f; char r[8];} string22 = {393224, "ToLong\000"};
static struct {unsigned f; char r[12];} string23 = {589836, "badWindow\000\000"};
static struct {unsigned f; char r[12];} string24 = {720908, "badProperty"};
static struct {unsigned f; char r[8];} string25 = {458760, "badData"};
static struct {unsigned f; char r[12];} string26 = {720908, "AtomTooLong"};
static struct {unsigned f; char r[8];} string27 = {458760, "NILAtom"};
static struct {unsigned f; char r[8];} string28 = {458760, "PRIMARY"};
static struct {unsigned f; char r[12];} string29 = {589836, "SECONDARY\000\000"};
static struct {unsigned f; char r[4];} string30 = {196612, "ARC"};
static struct {unsigned f; char r[8];} string31 = {262152, "ATOM\000\000\000"};
static struct {unsigned f; char r[8];} string32 = {393224, "BITMAP\000"};
static struct {unsigned f; char r[12];} string33 = {524300, "CARDINAL\000\000\000"};
static struct {unsigned f; char r[12];} string34 = {524300, "COLORMAP\000\000\000"};
static struct {unsigned f; char r[8];} string35 = {393224, "CURSOR\000"};
static struct {unsigned f; char r[12];} string36 = {720908, "CUT←BUFFER0"};
static struct {unsigned f; char r[12];} string37 = {720908, "CUT←BUFFER1"};
static struct {unsigned f; char r[12];} string38 = {720908, "CUT←BUFFER2"};
static struct {unsigned f; char r[12];} string39 = {720908, "CUT←BUFFER3"};
static struct {unsigned f; char r[12];} string40 = {720908, "CUT←BUFFER4"};
static struct {unsigned f; char r[12];} string41 = {720908, "CUT←BUFFER5"};
static struct {unsigned f; char r[12];} string42 = {720908, "CUT←BUFFER6"};
static struct {unsigned f; char r[12];} string43 = {720908, "CUT←BUFFER7"};
static struct {unsigned f; char r[12];} string44 = {524300, "DRAWABLE\000\000\000"};
static struct {unsigned f; char r[8];} string45 = {262152, "FONT\000\000\000"};
static struct {unsigned f; char r[8];} string46 = {458760, "INTEGER"};
static struct {unsigned f; char r[8];} string47 = {393224, "PIXMAP\000"};
static struct {unsigned f; char r[8];} string48 = {327688, "POINT\000\000"};
static struct {unsigned f; char r[12];} string49 = {589836, "RECTANGLE\000\000"};
static struct {unsigned f; char r[20];} string50 = {1048596, "RESOURCE←MANAGER\000\000\000"};
static struct {unsigned f; char r[16];} string51 = {851984, "RGB←COLOR←MAP\000\000"};
static struct {unsigned f; char r[16];} string52 = {786448, "RGB←BEST←MAP\000\000\000"};
static struct {unsigned f; char r[16];} string53 = {786448, "RGB←BLUE←MAP\000\000\000"};
static struct {unsigned f; char r[16];} string54 = {983056, "RGB←DEFAULT←MAP"};
static struct {unsigned f; char r[16];} string55 = {786448, "RGB←GRAY←MAP\000\000\000"};
static struct {unsigned f; char r[16];} string56 = {851984, "RGB←GREEN←MAP\000\000"};
static struct {unsigned f; char r[12];} string57 = {720908, "RGB←RED←MAP"};
static struct {unsigned f; char r[8];} string58 = {393224, "STRING\000"};
static struct {unsigned f; char r[12];} string59 = {524300, "VISUALID\000\000\000"};
static struct {unsigned f; char r[8];} string60 = {393224, "WINDOW\000"};
static struct {unsigned f; char r[12];} string61 = {655372, "WM←COMMAND\000"};
static struct {unsigned f; char r[12];} string62 = {524300, "WM←HINTS\000\000\000"};
static struct {unsigned f; char r[20];} string63 = {1114132, "WM←CLIENT←MACHINE\000\000"};
static struct {unsigned f; char r[16];} string64 = {786448, "WM←ICON←NAME\000\000\000"};
static struct {unsigned f; char r[16];} string65 = {786448, "WM←ICON←SIZE\000\000\000"};
static struct {unsigned f; char r[8];} string66 = {458760, "WM←NAME"};
static struct {unsigned f; char r[16];} string67 = {983056, "WM←NORMAL←HINTS"};
static struct {unsigned f; char r[16];} string68 = {851984, "WM←SIZE←HINTS\000\000"};
static struct {unsigned f; char r[16];} string69 = {851984, "WM←ZOOM←HINTS\000\000"};
static struct {unsigned f; char r[12];} string70 = {589836, "MIN←SPACE\000\000"};
static struct {unsigned f; char r[12];} string71 = {655372, "NORM←SPACE\000"};
static struct {unsigned f; char r[12];} string72 = {589836, "MAX←SPACE\000\000"};
static struct {unsigned f; char r[12];} string73 = {589836, "END←SPACE\000\000"};
static struct {unsigned f; char r[16];} string74 = {851984, "SUPERSCRIPT←X\000\000"};
static struct {unsigned f; char r[16];} string75 = {851984, "SUPERSCRIPT←Y\000\000"};
static struct {unsigned f; char r[12];} string76 = {720908, "SUBSCRIPT←X"};
static struct {unsigned f; char r[12];} string77 = {720908, "SUBSCRIPT←Y"};
static struct {unsigned f; char r[20];} string78 = {1179668, "UNDERLINE←POSITION\000"};
static struct {unsigned f; char r[20];} string79 = {1245204, "UNDERLINE←THICKNESS"};
static struct {unsigned f; char r[20];} string80 = {1048596, "STRIKEOUT←ASCENT\000\000\000"};
static struct {unsigned f; char r[20];} string81 = {1114132, "STRIKEOUT←DESCENT\000\000"};
static struct {unsigned f; char r[16];} string82 = {786448, "ITALIC←ANGLE\000\000\000"};
static struct {unsigned f; char r[12];} string83 = {524300, "X←HEIGHT\000\000\000"};
static struct {unsigned f; char r[12];} string84 = {655372, "QUAD←WIDTH\000"};
static struct {unsigned f; char r[8];} string85 = {393224, "WEIGHT\000"};
static struct {unsigned f; char r[12];} string86 = {655372, "POINT←SIZE\000"};
static struct {unsigned f; char r[12];} string87 = {655372, "RESOLUTION\000"};
static struct {unsigned f; char r[12];} string88 = {589836, "COPYRIGHT\000\000"};
static struct {unsigned f; char r[8];} string89 = {393224, "NOTICE\000"};
static struct {unsigned f; char r[12];} string90 = {589836, "FONT←NAME\000\000"};
static struct {unsigned f; char r[12];} string91 = {720908, "FAMILY←NAME"};
static struct {unsigned f; char r[12];} string92 = {589836, "FULL←NAME\000\000"};
static struct {unsigned f; char r[12];} string93 = {655372, "CAP←HEIGHT\000"};
static struct {unsigned f; char r[12];} string94 = {524300, "WM←CLASS\000\000\000"};
static struct {unsigned f; char r[20];} string95 = {1048596, "WM←TRANSIENT←FOR\000\000\000"};
static struct {unsigned f; char r[4];} string96 = {65540, "x\000\000"};
static struct {unsigned f; char r[16];} string97 = {851984, "\257\300\355\377\031\122\300\245\370\334\114\100\200\000\000"};
static struct {unsigned f; char r[16];} string98 = {917518, "\006\003\020\001\024\001\100\134\010\000\004\100\113\001\000"};
static struct {unsigned f; char r[16];} string99 = {851984, "\257\300\223\215\300\016\300\070\141\304\023\100\150\000\000"};
static struct {unsigned f; char r[16];} string100 = {851984, "\257\300\363\223\326\161\300\017\164\046\072\100\150\000\000"};
static struct {unsigned f; char r[16];} string101 = {851984, "\257\300\072\337\114\355\300\232\070\352\142\100\150\000\000"};
static struct {unsigned f; char r[16];} string102 = {851984, "\257\300\304\042\023\266\300\315\144\243\337\100\150\000\000"};
static struct {unsigned f; char r[16];} string103 = {851984, "\257\300\212\247\207\172\300\123\222\237\073\100\150\000\000"};
static struct {unsigned f; char r[16];} string104 = {851984, "\257\300\126\372\175\303\300\214\014\321\126\100\150\000\000"};
static struct {unsigned f; char r[16];} string105 = {851984, "\257\300\351\276\264\273\300\115\104\320\264\100\164\000\000"};
static struct {unsigned f; char r[32];} string106 = {1966112, "\211\022\021\103\157\156\156\145\143\164\151\157\156\120\162\151\166\141\164\145\300\351\276\264\273\300\115\104\320\264\000"};
static struct {unsigned f; char r[16];} string107 = {851984, "\257\300\012\063\155\016\300\130\140\234\375\100\164\000\000"};
static struct {unsigned f; char r[40];} string108 = {2424869, "\006\016\000\001\004\001\010\001\014\001\020\001\024\001\030\001\034\001\040\001\044\001\060\001\070\010\000\004\100\100\001\101\070\001\101\074\001\000\000"};
static struct {unsigned f; char r[16];} string109 = {851984, "\257\300\234\252\236\205\300\126\010\241\274\100\150\000\000"};
static struct {
word f0[98]; 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[8];
} globalframe = {
{0}, (word) Bell←P1920, 0, (word) DestroySubWindows←P1860,
0, (word) DestroyWindow←P1800, 0, (word) UnmapSubWindows←P1740,
0, (word) UnmapWindow←P1680, 0, (word) MapSubWindows←P1620,
0, (word) MapWindow←P1560, 0, (word) QueryExtension←P1500,
0, (word) ListExtensions←P1440, 0, (word) GetInputFocus←P1380,
0, (word) SetInputFocus←P1320, 0, (word) SendSelectionNotifyEvent←P1260,
0, (word) ConvertSelection←P1200, 0, (word) GetSelectionOwner←P1140,
0, (word) SetSelectionOwner←P1080, 0, (word) PredefineAtoms←P1020,
0, (word) RotateProperties←P960, 0, (word) ListProperties←P900,
0, (word) GetProperty←P840, 0, (word) DeleteProperty←P780,
0, (word) XPropInfo←P720, 0, (word) BPutPaddedText←P660,
0, (word) ChangeProperty←P600, 0, (word) GetAtomName←P540,
0, (word) BPutProp←P480, 0, (word) InternAtom←P420,
0, (word) MakeAtom←P360, 0, (word) InitAtomStuff←P300,
0, (word) InitializeAtomToName←P240, 0, (word) InitializeNameToAtom←P180,
0, (word) StandardAtom←P120, 0, (word) RaiseClientError←P60,
0, (word) XlImplAtPropSel←P0, {0}
};
static void NoName←Q6372()
{
register ptr gf←c0368 = (ptr) &globalframe;
word var←c37900;
(* (( (ptr) gf←c0368)+6) ) = (word) XR←GetTypeIndexS((word) (&string1));
(* (( (ptr) gf←c0368)+7) ) = (word) XR←GetTypeIndex((word) &string2, 0, (word) &string3);
(* (( (ptr) gf←c0368)+8) ) = (word) XR←GetTypeIndex((word) &string4, 0, (word) &string5);
(* (( (ptr) gf←c0368)+10) ) = (word) XR←GetTypeIndex((word) &string6, 0, (word) &string7);
(* (( (ptr) gf←c0368)+12) ) = (word) XR←GetTypeIndexS((word) (&string8));
(* (( (ptr) gf←c0368)+13) ) = (word) XR←GetTypeIndex((word) &string9, 0, (word) &string10);
(* (( (ptr) gf←c0368)+14) ) = (word) XR←GetTypeIndex((word) &string11, 0, (word) &string10);
(* (( (ptr) gf←c0368)+15) ) = (word) XR←GetTypeIndex((word) &string12, 0, (word) &string3);
(* (( (ptr) gf←c0368)+16) ) = (word) XR←GetTypeIndex((word) &string13, 0, (word) &string14);
(* (( (ptr) gf←c0368)+17) ) = (word) XR←GetTypeIndex((word) &string15, 0, (word) &string16);
(* (( (ptr) gf←c0368)+18) ) = (word) XR←GetTypeIndexS((word) (&string17));
(* (( (ptr) gf←c0368)+19) ) = (word) XR←GetTypeIndexS((word) (&string18));
(* (( (ptr) gf←c0368)+20) ) = (word) XR←GetTypeIndexS((word) (&string19));
(* (( (ptr) gf←c0368)+21) ) = (word) XR←GetTypeIndexS((word) (&string20));
(* (( (ptr) gf←c0368)+22) ) = (word) XR←GetTypeIndexS((word) (&string21));
(* (ptr) (( (bPt) gf←c0368)+92) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0368)+7) ), (word) &string22);
(* (ptr) (( (bPt) gf←c0368)+96) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0368)+7) ), (word) &string23);
(* (ptr) (( (bPt) gf←c0368)+100) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0368)+7) ), (word) &string24);
(* (ptr) (( (bPt) gf←c0368)+104) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0368)+7) ), (word) &string25);
(* (ptr) (( (bPt) gf←c0368)+108) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0368)+7) ), (word) &string26);
(* (ptr) (( (bPt) gf←c0368)+112) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0368)+7) ), (word) &string27);
(* (ptr) (( (bPt) gf←c0368)+116) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0368)+15) ), (word) &string28);
(* (ptr) (( (bPt) gf←c0368)+120) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0368)+15) ), (word) &string29);
(* (ptr) (( (bPt) gf←c0368)+124) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0368)+15) ), (word) &string30);
(* (ptr) (( (bPt) gf←c0368)+128) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0368)+15) ), (word) &string31);
(* (ptr) (( (bPt) gf←c0368)+132) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0368)+15) ), (word) &string32);
(* (ptr) (( (bPt) gf←c0368)+136) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0368)+15) ), (word) &string33);
(* (ptr) (( (bPt) gf←c0368)+140) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0368)+15) ), (word) &string34);
(* (ptr) (( (bPt) gf←c0368)+144) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0368)+15) ), (word) &string35);
(* (ptr) (( (bPt) gf←c0368)+148) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0368)+15) ), (word) &string36);
(* (ptr) (( (bPt) gf←c0368)+152) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0368)+15) ), (word) &string37);
(* (ptr) (( (bPt) gf←c0368)+156) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0368)+15) ), (word) &string38);
(* (ptr) (( (bPt) gf←c0368)+160) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0368)+15) ), (word) &string39);
(* (ptr) (( (bPt) gf←c0368)+164) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0368)+15) ), (word) &string40);
(* (ptr) (( (bPt) gf←c0368)+168) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0368)+15) ), (word) &string41);
(* (ptr) (( (bPt) gf←c0368)+172) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0368)+15) ), (word) &string42);
(* (ptr) (( (bPt) gf←c0368)+176) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0368)+15) ), (word) &string43);
(* (ptr) (( (bPt) gf←c0368)+180) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0368)+15) ), (word) &string44);
(* (ptr) (( (bPt) gf←c0368)+184) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0368)+15) ), (word) &string45);
(* (ptr) (( (bPt) gf←c0368)+188) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0368)+15) ), (word) &string46);
(* (ptr) (( (bPt) gf←c0368)+192) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0368)+15) ), (word) &string47);
(* (ptr) (( (bPt) gf←c0368)+196) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0368)+15) ), (word) &string48);
(* (ptr) (( (bPt) gf←c0368)+200) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0368)+15) ), (word) &string49);
(* (ptr) (( (bPt) gf←c0368)+204) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0368)+15) ), (word) &string50);
(* (ptr) (( (bPt) gf←c0368)+208) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0368)+15) ), (word) &string51);
(* (ptr) (( (bPt) gf←c0368)+212) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0368)+15) ), (word) &string52);
(* (ptr) (( (bPt) gf←c0368)+216) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0368)+15) ), (word) &string53);
(* (ptr) (( (bPt) gf←c0368)+220) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0368)+15) ), (word) &string54);
(* (ptr) (( (bPt) gf←c0368)+224) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0368)+15) ), (word) &string55);
(* (ptr) (( (bPt) gf←c0368)+228) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0368)+15) ), (word) &string56);
(* (ptr) (( (bPt) gf←c0368)+232) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0368)+15) ), (word) &string57);
(* (ptr) (( (bPt) gf←c0368)+236) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0368)+15) ), (word) &string58);
(* (ptr) (( (bPt) gf←c0368)+240) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0368)+15) ), (word) &string59);
(* (ptr) (( (bPt) gf←c0368)+244) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0368)+15) ), (word) &string60);
(* (ptr) (( (bPt) gf←c0368)+248) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0368)+15) ), (word) &string61);
(* (ptr) (( (bPt) gf←c0368)+252) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0368)+15) ), (word) &string62);
(* (ptr) (( (bPt) gf←c0368)+256) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0368)+15) ), (word) &string63);
(* (ptr) (( (bPt) gf←c0368)+260) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0368)+15) ), (word) &string64);
(* (ptr) (( (bPt) gf←c0368)+264) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0368)+15) ), (word) &string65);
(* (ptr) (( (bPt) gf←c0368)+268) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0368)+15) ), (word) &string66);
(* (ptr) (( (bPt) gf←c0368)+272) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0368)+15) ), (word) &string67);
(* (ptr) (( (bPt) gf←c0368)+276) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0368)+15) ), (word) &string68);
(* (ptr) (( (bPt) gf←c0368)+280) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0368)+15) ), (word) &string69);
(* (ptr) (( (bPt) gf←c0368)+284) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0368)+15) ), (word) &string70);
(* (ptr) (( (bPt) gf←c0368)+288) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0368)+15) ), (word) &string71);
(* (ptr) (( (bPt) gf←c0368)+292) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0368)+15) ), (word) &string72);
(* (ptr) (( (bPt) gf←c0368)+296) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0368)+15) ), (word) &string73);
(* (ptr) (( (bPt) gf←c0368)+300) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0368)+15) ), (word) &string74);
(* (ptr) (( (bPt) gf←c0368)+304) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0368)+15) ), (word) &string75);
(* (ptr) (( (bPt) gf←c0368)+308) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0368)+15) ), (word) &string76);
(* (ptr) (( (bPt) gf←c0368)+312) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0368)+15) ), (word) &string77);
(* (ptr) (( (bPt) gf←c0368)+316) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0368)+15) ), (word) &string78);
(* (ptr) (( (bPt) gf←c0368)+320) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0368)+15) ), (word) &string79);
(* (ptr) (( (bPt) gf←c0368)+324) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0368)+15) ), (word) &string80);
(* (ptr) (( (bPt) gf←c0368)+328) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0368)+15) ), (word) &string81);
(* (ptr) (( (bPt) gf←c0368)+332) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0368)+15) ), (word) &string82);
(* (ptr) (( (bPt) gf←c0368)+336) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0368)+15) ), (word) &string83);
(* (ptr) (( (bPt) gf←c0368)+340) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0368)+15) ), (word) &string84);
(* (ptr) (( (bPt) gf←c0368)+344) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0368)+15) ), (word) &string85);
(* (ptr) (( (bPt) gf←c0368)+348) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0368)+15) ), (word) &string86);
(* (ptr) (( (bPt) gf←c0368)+352) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0368)+15) ), (word) &string87);
(* (ptr) (( (bPt) gf←c0368)+356) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0368)+15) ), (word) &string88);
(* (ptr) (( (bPt) gf←c0368)+360) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0368)+15) ), (word) &string89);
(* (ptr) (( (bPt) gf←c0368)+364) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0368)+15) ), (word) &string90);
(* (ptr) (( (bPt) gf←c0368)+368) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0368)+15) ), (word) &string91);
(* (ptr) (( (bPt) gf←c0368)+372) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0368)+15) ), (word) &string92);
(* (ptr) (( (bPt) gf←c0368)+376) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0368)+15) ), (word) &string93);
(* (ptr) (( (bPt) gf←c0368)+380) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0368)+15) ), (word) &string94);
(* (ptr) (( (bPt) gf←c0368)+384) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0368)+15) ), (word) &string95);
(* (ptr) (( (bPt) gf←c0368)+388) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0368)+7) ), (word) &string96);
(void) XR←DeclareGlobalFrame((word) "XlImplAtPropSel", &globalframe, (word) XR←GetTypeIndex((word) &string97, 0, (word) &string98)
, (word) (( (bPt) gf←c0368)+648)/* var←c34988 */ );
var←c37900 = (word) XR←ImportInterface((word) "CardTab", (word) XR←GetTypeIndexS((word) (&string99)), 12);
(* (( (ptr) gf←c0368)+166)/* var←c35212 */ ) = var←c37900;
(void) XR←ImportProcS(var←c37900, 134742786);
(void) XR←ImportProcS(var←c37900, 67896835);
(void) XR←ImportProcS(var←c37900, 67371265);
var←c37900 = (word) XR←ImportInterface((word) "Rope", (word) XR←GetTypeIndexS((word) (&string100)), 43);
(* (( (ptr) gf←c0368)+168)/* var←c35372 */ ) = var←c37900;
(void) XR←ImportProcS(var←c37900, 67373569);
(void) XR←ImportProcS(var←c37900, 67373313);
var←c37900 = (word) XR←ImportInterface((word) "SymTab", (word) XR←GetTypeIndexS((word) (&string101)), 13);
(* (( (ptr) gf←c0368)+164)/* var←c35052 */ ) = var←c37900;
(void) XR←ImportProcS(var←c37900, 67897091);
(void) XR←ImportProcS(var←c37900, 134742786);
(void) XR←ImportProcS(var←c37900, 67633410);
var←c37900 = (word) XR←ImportInterface((word) "XlPrivate", (word) XR←GetTypeIndexS((word) (&string102)), 77);
(* (( (ptr) gf←c0368)+169)/* var←c35532 */ ) = var←c37900;
(void) XR←ImportProcS(var←c37900, 67390465);
(void) XR←ImportProcS(var←c37900, 526594);
(void) XR←ImportProcS(var←c37900, 531714);
(void) XR←ImportProcS(var←c37900, 529922);
(void) XR←ImportProcS(var←c37900, 67389697);
(void) XR←ImportProcS(var←c37900, 67371265);
(void) XR←ImportProcS(var←c37900, 529154);
(void) XR←ImportProcS(var←c37900, 539650);
(void) XR←ImportProcS(var←c37900, 528642);
(void) XR←ImportProcS(var←c37900, 528130);
(void) XR←ImportProcS(var←c37900, 530178);
(void) XR←ImportProcS(var←c37900, 67909891);
(void) XR←ImportProcS(var←c37900, 67389953);
(void) XR←ImportProcS(var←c37900, 67385857);
(void) XR←ImportProcS(var←c37900, 1057028);
(void) XR←ImportProcS(var←c37900, 528386);
(void) XR←ImportProcS(var←c37900, 1051908);
(void) XR←ImportProcS(var←c37900, 540418);
(void) XR←ImportProcS(var←c37900, 67390209);
(void) XR←ImportProcS(var←c37900, 278529);
(void) XR←ImportProcS(var←c37900, 786947);
var←c37900 = (word) XR←ImportInterface((word) "XlPrivateErrorHandling", (word) XR←GetTypeIndexS((word) (&string103)), 10)
;
(* (( (ptr) gf←c0368)+165)/* var←c35084 */ ) = var←c37900;
(void) XR←ImportProcS(var←c37900, 526082);
var←c37900 = (word) XR←ImportInterface((word) "XlService", (word) XR←GetTypeIndexS((word) (&string104)), 6);
(* (( (ptr) gf←c0368)+167)/* var←c35276 */ ) = var←c37900;
(void) XR←ImportProcS(var←c37900, 67896579);
var←c37900 = (word) XR←ExportInterface((word) "Xl", (word) XR←GetTypeIndexS((word) (&string105)), 218);
(* (( (ptr) gf←c0368)+170)/* var←c37932 */ ) = var←c37900;
(void) XR←ExportProcS(var←c37900, (word) (( (bPt) gf←c0368)+448)/* var←c34188 */ , 268967938, (word) "QueryExtension");
(void) XR←ExportProcS(var←c37900, (word) (( (bPt) gf←c0368)+456)/* var←c34220 */ , 67379457, (word) "ListExtensions");
(void) XR←ExportProcS(var←c37900, (word) (( (bPt) gf←c0368)+632)/* var←c34924 */ , 67382529, (word) "StandardAtom");
(void) XR←ExportProcS(var←c37900, (word) (( (bPt) gf←c0368)+600)/* var←c34796 */ , 67644930, (word) "MakeAtom");
(void) XR←ExportProcS(var←c37900, (word) (( (bPt) gf←c0368)+592)/* var←c34764 */ , 135016195, (word) "InternAtom");
(void) XR←ExportProcS(var←c37900, (word) (( (bPt) gf←c0368)+576)/* var←c34700 */ , 67645442, (word) "GetAtomName");
(void) XR←ExportProcS(var←c37900, (word) (( (bPt) gf←c0368)+568)/* var←c34668 */ , 2371849, (word) "ChangeProperty");
(void) XR←ExportProcS(var←c37900, (word) (( (bPt) gf←c0368)+552)/* var←c34604 */ , 134492673, (word) "XPropInfo");
(void) XR←ExportProcS(var←c37900, (word) (( (bPt) gf←c0368)+536)/* var←c34540 */ , 270545672, (word) "GetProperty");
(void) XR←ExportProcS(var←c37900, (word) (( (bPt) gf←c0368)+544)/* var←c34572 */ , 1061892, (word) "DeleteProperty");
(void) XR←ExportProcS(var←c37900, (word) (( (bPt) gf←c0368)+528)/* var←c34508 */ , 134755586, (word) "ListProperties");
(void) XR←ExportProcS(var←c37900, (word) (( (bPt) gf←c0368)+520)/* var←c34476 */ , 1324549, (word) "RotateProperties");
(void) XR←ExportProcS(var←c37900, (word) (( (bPt) gf←c0368)+408)/* var←c34028 */ , 805123, (word) "DestroyWindow");
(void) XR←ExportProcS(var←c37900, (word) (( (bPt) gf←c0368)+400)/* var←c33996 */ , 805379, (word) "DestroySubWindows");
(void) XR←ExportProcS(var←c37900, (word) (( (bPt) gf←c0368)+440)/* var←c34156 */ , 805635, (word) "MapWindow");
(void) XR←ExportProcS(var←c37900, (word) (( (bPt) gf←c0368)+432)/* var←c34124 */ , 805891, (word) "MapSubWindows");
(void) XR←ExportProcS(var←c37900, (word) (( (bPt) gf←c0368)+424)/* var←c34092 */ , 806147, (word) "UnmapWindow");
(void) XR←ExportProcS(var←c37900, (word) (( (bPt) gf←c0368)+416)/* var←c34060 */ , 806403, (word) "UnmapSubWindows");
(void) XR←ExportProcS(var←c37900, (word) (( (bPt) gf←c0368)+392)/* var←c33964 */ , 819203, (word) "Bell");
(void) XR←ExportProcS(var←c37900, (word) (( (bPt) gf←c0368)+504)/* var←c34412 */ , 1343749, (word) "SetSelectionOwner");
(void) XR←ExportProcS(var←c37900, (word) (( (bPt) gf←c0368)+496)/* var←c34380 */ , 67666434, (word) "GetSelectionOwner");
(void) XR←ExportProcS(var←c37900, (word) (( (bPt) gf←c0368)+488)/* var←c34348 */ , 1868551, (word) "ConvertSelection");
(void) XR←ExportProcS(var←c37900, (word) (( (bPt) gf←c0368)+480)/* var←c34316 */ , 1868807, (word) "SendSelectionNotifyEvent")
;
(void) XR←ExportProcS(var←c37900, (word) (( (bPt) gf←c0368)+472)/* var←c34284 */ , 1344773, (word) "SetInputFocus");
(void) XR←ExportProcS(var←c37900, (word) (( (bPt) gf←c0368)+464)/* var←c34252 */ , 134514177, (word) "GetInputFocus");
(void) XR←ExportType((word) "ConnectionPrivate", (word) XR←GetTypeIndexS((word) (&string106)), (word) XR←GetTypeIndex((word) &string107, 0, (word) &string108)
);
var←c37900 = (word) XR←ExportInterface((word) "XlPrivateSplit", (word) XR←GetTypeIndexS((word) (&string109)), 7);
(* (( (ptr) gf←c0368)+170)/* var←c37932 */ ) = var←c37900;
(void) XR←ExportProcS(var←c37900, (word) (( (bPt) gf←c0368)+608)/* var←c34828 */ , 262401, (word) "InitAtomStuff");
}
static void XlImplAtPropSel←P0(formal←c047, formal←c046)
word formal←c047;
word formal←c046;
{
register ptr gf←c37964 = (ptr) &globalframe;
/* XlImplAtPropSel: */
SOURCE(176, 16481)
SOURCE(739, 98)
(* (( (ptr) gf←c37964)+4)/* atomToName←v3224 */ ) = XR←NewObject(276, (* (( (ptr) gf←c37964)+10) ));
SOURCE(839, 57)
{
word pd110;
pd110 = (* (( (ptr) (* (( (ptr) gf←c37964)+164)/* var←c35052 */ ))+5) );
(* (( (ptr) gf←c37964)+5)/* nameToAtom←v3252 */ ) = (word) ( *( (fPt) ((* (ptr) pd110 ))))(68, 1, pd110);
};
SOURCE(16641, 16)
(void) PredefineAtoms←P1020();
}
static void RaiseClientError←P60(c←v4200, what←v4228)
word c←v4200;
word what←v4228;
{
register ptr gf←c37996 = (ptr) &globalframe;
/* RaiseClientError: */
SOURCE(592, 111)
SOURCE(655, 48)
{
word pd111;
pd111 = (* (( (ptr) (* (( (ptr) gf←c37996)+165)/* var←c35084 */ ))+11) );
(void) ( *( (fPt) ((* (ptr) pd111 ))))(c←v4200, what←v4228, pd111);
};
}
static word StandardAtom←P120(name←v4388)
word name←v4388;
{
register ptr gf←c38028 = (ptr) &globalframe;
word atom←v4432;
/* StandardAtom: */
SOURCE(899, 146)
SOURCE(964, 81)
{
word var←c35116;
W2 var←c053;
{
word pd112;
pd112 = (* (( (ptr) (* (( (ptr) gf←c38028)+164)/* var←c35052 */ ))+7) );
(void) ( *( (fPt) ((* (ptr) pd112 ))))((word) &var←c053, (* (( (ptr) gf←c38028)+5)/* nameToAtom←v3252 */ ), name←v4388, pd112)
;
};
var←c35116 = var←c053.f1;
if ((var←c35116 == 0)) {
goto lab←L100000;
};
if (((* (( (ptr) gf←c38028)+12) ) == XR←GetReferentType(var←c35116))) {
{
word ra←v8784;
ra←v8784 = var←c35116;
SOURCE(1033, 12)
return((* (ptr) ra←v8784 ));
};
}
else {
lab←L100000: ;
SOURCE(1058, 5)
(void) XR←RaiseUnnamedError();
};
};
}
static word InitializeNameToAtom←P180(c←v16836, key←v16864)
word c←v16836;
word key←v16864;
{
register ptr gf←c38060 = (ptr) &globalframe;
word val←v16908;
/* InitializeNameToAtom: */
SOURCE(1096, 70)
SOURCE(1096, 70)
val←v16908 = (* (( (ptr) gf←c38060)+97) );
SOURCE(1141, 25)
{
word pd113;
pd113 = (* (( (ptr) (* (( (ptr) gf←c38060)+164)/* var←c35052 */ ))+5) );
return((word) ( *( (fPt) ((* (ptr) pd113 ))))(7, 1, pd113));
};
}
static word InitializeAtomToName←P240(c←v16968, key←v16996)
word c←v16968;
word key←v16996;
{
register ptr gf←c38092 = (ptr) &globalframe;
word val←v17040;
/* InitializeAtomToName: */
SOURCE(1172, 71)
SOURCE(1172, 71)
val←v17040 = (* (( (ptr) gf←c38092)+97) );
SOURCE(1217, 26)
{
word pd114;
pd114 = (* (( (ptr) (* (( (ptr) gf←c38092)+166)/* var←c35212 */ ))+5) );
return((word) ( *( (fPt) ((* (ptr) pd114 ))))(7, pd114));
};
}
static void InitAtomStuff←P300(c←v4492)
word c←v4492;
{
register ptr gf←c38124 = (ptr) &globalframe;
word cp←v8840;
/* InitAtomStuff: */
SOURCE(1249, 277)
SOURCE(1296, 42)
cp←v8840 = (* (( (ptr) c←v4492)+24) );
SOURCE(1340, 92)
{
word var←c35244;
{
word pd115;
pd115 = (* (( (ptr) (* (( (ptr) gf←c38124)+167)/* var←c35276 */ ))+9) );
var←c35244 = XR←Narrow((word) ( *( (fPt) ((* (ptr) pd115 ))))(c←v4492, (* (( (ptr) gf←c38124)+4)/* atomToName←v3224 */ ), (word) (
( (bPt) gf←c38124)+616)/* var←c34860 */ , pd115), (* (( (ptr) gf←c38124)+13) ));
};
(* (( (ptr) cp←v8840)+2) ) = var←c35244;
};
SOURCE(1434, 92)
{
word var←c35308;
{
word pd116;
pd116 = (* (( (ptr) (* (( (ptr) gf←c38124)+167)/* var←c35276 */ ))+9) );
var←c35308 = XR←Narrow((word) ( *( (fPt) ((* (ptr) pd116 ))))(c←v4492, (* (( (ptr) gf←c38124)+5)/* nameToAtom←v3252 */ ), (word) (
( (bPt) gf←c38124)+624)/* var←c34892 */ , pd116), (* (( (ptr) gf←c38124)+14) ));
};
(* (( (ptr) cp←v8840)+1) ) = var←c35308;
};
}
static word MakeAtom←P360(c←v4552, name←v4580)
word c←v4552;
word name←v4580;
{
word atom←v4624;
W2 var←c068;
/* MakeAtom: */
SOURCE(1532, 114)
SOURCE(1608, 38)
(void) InternAtom←P420((word) &var←c068, c←v4552, name←v4580, 1);
atom←v4624 = var←c068.f0;
SOURCE(1532, 114)
return(atom←v4624);
}
static void InternAtom←P420(formal←c090, c←v4684, formal←c0492, formal←c0493)
word formal←c090;
word c←v4684;
word formal←c0492;
word formal←c0493;
{
W10 var←c38156;
/* declaration of name←v4712 skipped */
/* declaration of create←v4740 skipped */
register ptr gf←c38188 = (ptr) &globalframe;
word atom←v4784;
word exist←v4812;
/* declaration of var←c35340 skipped */
/* declaration of reply←v8896 skipped */
/* declaration of n←v8924 skipped */
word cp←v8980;
(* (( (ptr) &var←c38156)+4)/* name←v4712 */ ) = formal←c0492;
(* (( (ptr) &var←c38156)+5)/* create←v4740 */ ) = formal←c0493;
/* InternAtom: */
SOURCE(1650, 1067)
{
word tmpAddr117;
tmpAddr117 = (word) (( (ptr) &var←c38156)+6)/* var←c35340 */ ;
(* (ptr) tmpAddr117 ) = ( ((word) (fPt) action←P2028) );
(* (( (ptr) tmpAddr117) + 1) ) = 1;
};
SOURCE(1763, 12)
(* (( (ptr) &var←c38156)+8)/* reply←v8896 */ ) = 0;
SOURCE(1961, 42)
cp←v8980 = (* (( (ptr) c←v4684)+24) );
SOURCE(2005, 46)
{
word pd118;
pd118 = (* (( (ptr) (* (( (ptr) gf←c38188)+168)/* var←c35372 */ ))+13) );
if ((0 != (word) ( *( (fPt) ((* (ptr) pd118 ))))((* ((( (ptr) &var←c38156)+4)/* name←v4712 */ ) ), pd118))) {
SOURCE(2032, 19)
atom←v4784 = 0;
exist←v4812 = 0;
goto lab←L100001;
};
};
SOURCE(2053, 87)
{
word var←c35404;
W2 var←c079;
{
word pd119;
pd119 = (* (( (ptr) (* (( (ptr) gf←c38188)+164)/* var←c35052 */ ))+7) );
(void) ( *( (fPt) ((* (ptr) pd119 ))))((word) &var←c079, (* (( (ptr) gf←c38188)+5)/* nameToAtom←v3252 */ ), (* (( (ptr) &var←c38156)+4)
/* name←v4712 */ ), pd119);
};
var←c35404 = var←c079.f1;
if ((var←c35404 == 0)) {
goto lab←L100002;
};
if (((* (( (ptr) gf←c38188)+12) ) == XR←GetReferentType(var←c35404))) {
{
word ra←v9096;
ra←v9096 = var←c35404;
SOURCE(2122, 18)
atom←v4784 = (* (ptr) ra←v9096 );
exist←v4812 = 1;
goto lab←L100001;
};
}
else {
lab←L100002: ;
};
};
SOURCE(2157, 116)
if (((* (( (ptr) cp←v8980)+1) ) != 0)) {
SOURCE(2183, 90)
{
word var←c35468;
W2 var←c083;
{
word pd120;
pd120 = (* (( (ptr) (* (( (ptr) gf←c38188)+164)/* var←c35052 */ ))+7) );
(void) ( *( (fPt) ((* (ptr) pd120 ))))((word) &var←c083, (* (( (ptr) cp←v8980)+1) ), (* (( (ptr) &var←c38156)+4)/* name←v4712 */ ), pd120)
;
};
var←c35468 = var←c083.f1;
if ((var←c35468 == 0)) {
goto lab←L100003;
};
if (((* (( (ptr) gf←c38188)+12) ) == XR←GetReferentType(var←c35468))) {
{
word ra←v9152;
ra←v9152 = var←c35468;
SOURCE(2255, 18)
atom←v4784 = (* (ptr) ra←v9152 );
exist←v4812 = 1;
goto lab←L100001;
};
}
else {
lab←L100003: ;
};
};
};
SOURCE(2290, 21)
{
word pd121;
pd121 = (* (( (ptr) (* (( (ptr) gf←c38188)+168)/* var←c35372 */ ))+14) );
(* (( (ptr) &var←c38156)+9)/* n←v8924 */ ) = (word) ( *( (fPt) ((* (ptr) pd121 ))))((* ((( (ptr) &var←c38156)+4)/* name←v4712 */ ) ), pd121)
;
};
SOURCE(2313, 41)
if (( (int)(* (( (ptr) &var←c38156)+9)/* n←v8924 */ ) == (int)0)) {
SOURCE(2325, 29)
(void) RaiseClientError←P60(c←v4684, (* (( (ptr) gf←c38188)+28) ));
};
SOURCE(2356, 73)
if (( (int)(* (( (ptr) (* (( (ptr) c←v4684)+16) ))+7) ) <= (int)(* (( (ptr) &var←c38156)+9)/* n←v8924 */ ))) {
SOURCE(2396, 33)
(void) RaiseClientError←P60(c←v4684, (* (( (ptr) gf←c38188)+27) ));
};
SOURCE(2431, 27)
{
word pd122;
pd122 = (* (( (ptr) (* (( (ptr) gf←c38188)+169)/* var←c35532 */ ))+6) );
(void) ( *( (fPt) ((* (ptr) pd122 ))))(c←v4684, (word) (( (bPt) &var←c38156)+24)/* var←c35340 */ , 0, pd122);
};
SOURCE(2460, 17)
{
word pd123;
pd123 = (* (( (ptr) (* (( (ptr) gf←c38188)+169)/* var←c35532 */ ))+68) );
(void) ( *( (fPt) ((* (ptr) pd123 ))))((* ((( (ptr) &var←c38156)+8)/* reply←v8896 */ ) ), pd123);
};
SOURCE(2479, 14)
(* (( (ptr) (* (( (ptr) &var←c38156)+8)/* reply←v8896 */ ))+10) ) = ((* (( (ptr) (* (( (ptr) &var←c38156)+8)/* reply←v8896 */ ))+10)
) + 7);
SOURCE(2495, 23)
{
word pd124;
pd124 = (* (( (ptr) (* (( (ptr) gf←c38188)+169)/* var←c35532 */ ))+79) );
atom←v4784 = (word) ( *( (fPt) ((* (ptr) pd124 ))))((* ((( (ptr) &var←c38156)+8)/* reply←v8896 */ ) ), pd124);
};
SOURCE(2520, 22)
{
word pd125;
pd125 = (* (( (ptr) (* (( (ptr) gf←c38188)+169)/* var←c35532 */ ))+67) );
(void) ( *( (fPt) ((* (ptr) pd125 ))))(c←v4684, (* (( (ptr) &var←c38156)+8)/* reply←v8896 */ ), pd125);
};
SOURCE(2544, 16)
exist←v4812 = (unsigned) (atom←v4784 != 0);
SOURCE(2562, 155)
if ( ( ((0 != exist←v4812) && (0 != (* (( (ptr) &var←c38156)+5)/* create←v4740 */ ))) ? ((* (( (ptr) cp←v8980)+1) ) != 0) : 0 ) ) {
SOURCE(2611, 56)
{
word var←c35628;
{
word var←c35564;
{
word var←c35596;
var←c35596 = XR←NewObject(4, (* (( (ptr) gf←c38188)+12) ));
(* (ptr) var←c35596 ) = atom←v4784;
var←c35564 = var←c35596;
};
{
word pd126;
pd126 = (* (( (ptr) (* (( (ptr) gf←c38188)+164)/* var←c35052 */ ))+11) );
var←c35628 = (word) ( *( (fPt) ((* (ptr) pd126 ))))((* (( (ptr) cp←v8980)+1) ), (* (( (ptr) &var←c38156)+4)/* name←v4712 */ ), var←c35564, pd126)
;
};
};
};
SOURCE(2669, 48)
{
word var←c35660;
word pd127;
pd127 = (* (( (ptr) (* (( (ptr) gf←c38188)+166)/* var←c35212 */ ))+10) );
var←c35660 = (word) ( *( (fPt) ((* (ptr) pd127 ))))((* (( (ptr) cp←v8980)+2) ), atom←v4784, (* (( (ptr) &var←c38156)+4)/* name←v4712 */ ), pd127)
;
};
};
/* removed tail goto */
lab←L100001: ;
(* (ptr) formal←c090 ) = atom←v4784;
(* (( (ptr) formal←c090)+1) ) = exist←v4812;
return;
}
static void action←P2028(c←v9056, formal←c38252)
word c←v9056;
word formal←c38252;
{
register ptr gf←c38220 = (ptr) &globalframe;
formal←c38252 = (formal←c38252 - 24);
/* action: */
SOURCE(1785, 171)
SOURCE(1818, 48)
{
word pd128;
word idx129;
pd128 = (* (( (ptr) (* (( (ptr) gf←c38220)+169)/* var←c35532 */ ))+17) );
(void) ( *( (fPt) ((* (ptr) pd128 ))))(c←v9056, 16, (
idx129 = (word) ( (0 != (* (( (ptr) formal←c38252)+5) )) ? 0 : 1 ) ,
BCK(idx129, 256)
), (IOP2( / , (int)((* (( (ptr) formal←c38252)+9) ) + 3), (int)4) + 2), pd128);
};
SOURCE(1868, 12)
{
word pd130;
word idx131;
pd130 = (* (( (ptr) (* (( (ptr) gf←c38220)+169)/* var←c35532 */ ))+20) );
(void) ( *( (fPt) ((* (ptr) pd130 ))))(c←v9056, (
idx131 = (* (( (ptr) formal←c38252)+9) ),
BCK(idx131, 65536)
), pd130);
};
SOURCE(1882, 12)
{
word pd132;
pd132 = (* (( (ptr) (* (( (ptr) gf←c38220)+169)/* var←c35532 */ ))+20) );
(void) ( *( (fPt) ((* (ptr) pd132 ))))(c←v9056, 0, pd132);
};
SOURCE(1905, 23)
{
word pd133;
pd133 = (* (( (ptr) (* (( (ptr) gf←c38220)+169)/* var←c35532 */ ))+37) );
(void) ( *( (fPt) ((* (ptr) pd133 ))))(c←v9056, (* (( (ptr) formal←c38252)+4) ), 0, 2147483647, pd133);
};
SOURCE(1930, 26)
{
word pd134;
pd134 = (* (( (ptr) (* (( (ptr) gf←c38220)+169)/* var←c35532 */ ))+62) );
(* (( (ptr) formal←c38252)+8) ) = (word) ( *( (fPt) ((* (ptr) pd134 ))))(c←v9056, pd134);
};
}
static void BPutProp←P480(c←v4872, atom←v4900)
word c←v4872;
word atom←v4900;
{
/* BPutProp: */
SOURCE(2726, 64)
SOURCE(2774, 16)
{
word c←v33888;
word b←v33916;
c←v33888 = c←v4872;
b←v33916 = atom←v4900;
{
word p←v21040;
word n←v21280;
p←v21040 = (* (( (ptr) c←v33888)+7) );
n←v21280 = (* (( (ptr) c←v33888)+4) );
(* (( (ptr) p←v21040)+((word) n←v21280 >> 2)) ) = b←v33916;
(* (( (ptr) c←v33888)+4) ) = (n←v21280 + 4);
};
};
}
static word GetAtomName←P540(c←v4960, formal←c0494)
word c←v4960;
word formal←c0494;
{
W8 var←c38284;
/* declaration of atom←v4988 skipped */
register ptr gf←c38316 = (ptr) &globalframe;
word name←v5032;
/* declaration of var←c35692 skipped */
/* declaration of reply←v9208 skipped */
word nameLeng←v9236;
word cp←v9292;
var←c38284.f4/* atom←v4988 */ = formal←c0494;
/* GetAtomName: */
SOURCE(2796, 783)
{
word tmpAddr135;
tmpAddr135 = (word) (( (ptr) &var←c38284)+5)/* var←c35692 */ ;
(* (ptr) tmpAddr135 ) = ( ((word) (fPt) action←P2184) );
(* (( (ptr) tmpAddr135) + 1) ) = 1;
};
SOURCE(2796, 783)
name←v5032 = 0;
SOURCE(2875, 12)
var←c38284.f7/* reply←v9208 */ = 0;
SOURCE(3007, 42)
cp←v9292 = (* (( (ptr) c←v4960)+24) );
SOURCE(3051, 61)
if ((var←c38284.f4/* atom←v4988 */ <= 68)) {
SOURCE(3085, 27)
{
word idx136;
return((* (( (ptr) (* (( (ptr) gf←c38316)+4)/* atomToName←v3224 */ ))+(
idx136 = (word) var←c38284.f4/* atom←v4988 */ ,
BCK(idx136, 69)
)) ));
};
};
SOURCE(3114, 79)
{
word var←c35724;
W2 var←c0106;
{
word pd137;
pd137 = (* (( (ptr) (* (( (ptr) gf←c38316)+166)/* var←c35212 */ ))+7) );
(void) ( *( (fPt) ((* (ptr) pd137 ))))((word) &var←c0106, (* (( (ptr) cp←v9292)+2) ), var←c38284.f4/* atom←v4988 */ , pd137)
;
};
var←c35724 = var←c0106.f1;
if ((var←c35724 == 0)) {
goto lab←L100004;
};
{
word tc138;
if (((* (( (ptr) gf←c38316)+17) ) == XR←GetReferentType(var←c35724))) {
tc138 = (word) ( (unsigned) (*(int*)var←c35724<0) == 0);
}
else {
tc138 = (word) 0;
};
if (tc138) {
{
word r←v9408;
r←v9408 = var←c35724;
SOURCE(3183, 10)
return(r←v9408);
};
}
else {
lab←L100004: ;
};
};
};
SOURCE(3210, 27)
{
word pd139;
pd139 = (* (( (ptr) (* (( (ptr) gf←c38316)+169)/* var←c35532 */ ))+6) );
(void) ( *( (fPt) ((* (ptr) pd139 ))))(c←v4960, (word) (( (bPt) &var←c38284)+20)/* var←c35692 */ , 0, pd139);
};
SOURCE(3239, 17)
{
word pd140;
pd140 = (* (( (ptr) (* (( (ptr) gf←c38316)+169)/* var←c35532 */ ))+68) );
(void) ( *( (fPt) ((* (ptr) pd140 ))))(var←c38284.f7/* reply←v9208 */ , pd140);
};
SOURCE(3258, 14)
(* (( (ptr) var←c38284.f7/* reply←v9208 */ )+10) ) = ((* (( (ptr) var←c38284.f7/* reply←v9208 */ )+10) ) + 7);
SOURCE(3274, 25)
{
word pd141;
pd141 = (* (( (ptr) (* (( (ptr) gf←c38316)+169)/* var←c35532 */ ))+78) );
nameLeng←v9236 = (word) ( *( (fPt) ((* (ptr) pd141 ))))(var←c38284.f7/* reply←v9208 */ , pd141);
};
SOURCE(3309, 85)
SOURCE(3311, 81)
{
word pd142;
pd142 = (* (( (ptr) (* (( (ptr) gf←c38316)+169)/* var←c35532 */ ))+61) );
name←v5032 = (word) ( *( (fPt) ((* (ptr) pd142 ))))((* (( (ptr) var←c38284.f7/* reply←v9208 */ )+8) ), 0, nameLeng←v9236, pd142)
;
};
SOURCE(3397, 22)
{
word pd143;
pd143 = (* (( (ptr) (* (( (ptr) gf←c38316)+169)/* var←c35532 */ ))+67) );
(void) ( *( (fPt) ((* (ptr) pd143 ))))(c←v4960, var←c38284.f7/* reply←v9208 */ , pd143);
};
SOURCE(3421, 158)
{
word tc144;
word pd145;
pd145 = (* (( (ptr) (* (( (ptr) gf←c38316)+168)/* var←c35372 */ ))+13) );
if ((0 == (word) ( *( (fPt) ((* (ptr) pd145 ))))(name←v5032, pd145))) {
tc144 = (word) ((* (( (ptr) cp←v9292)+1) ) != 0);
}
else {
tc144 = (word) 0;
};
if (tc144) {
SOURCE(3473, 56)
{
word var←c35820;
{
word var←c35756;
{
word var←c35788;
var←c35788 = XR←NewObject(4, (* (( (ptr) gf←c38316)+12) ));
(* (ptr) var←c35788 ) = var←c38284.f4/* atom←v4988 */ ;
var←c35756 = var←c35788;
};
{
word pd146;
pd146 = (* (( (ptr) (* (( (ptr) gf←c38316)+164)/* var←c35052 */ ))+11) );
var←c35820 = (word) ( *( (fPt) ((* (ptr) pd146 ))))((* (( (ptr) cp←v9292)+1) ), name←v5032, var←c35756, pd146);
};
};
};
SOURCE(3531, 48)
{
word var←c35852;
word pd147;
pd147 = (* (( (ptr) (* (( (ptr) gf←c38316)+166)/* var←c35212 */ ))+10) );
var←c35852 = (word) ( *( (fPt) ((* (ptr) pd147 ))))((* (( (ptr) cp←v9292)+2) ), var←c38284.f4/* atom←v4988 */ , name←v5032, pd147)
;
};
};
};
SOURCE(2796, 783)
return(name←v5032);
}
static void action←P2184(c←v9368, formal←c38380)
word c←v9368;
word formal←c38380;
{
register ptr gf←c38348 = (ptr) &globalframe;
formal←c38380 = (formal←c38380 - 20);
/* action: */
SOURCE(2904, 98)
SOURCE(2937, 18)
{
word pd148;
pd148 = (* (( (ptr) (* (( (ptr) gf←c38348)+169)/* var←c35532 */ ))+17) );
(void) ( *( (fPt) ((* (ptr) pd148 ))))(c←v9368, 17, 0, 2, pd148);
};
SOURCE(2957, 17)
(void) BPutProp←P480(c←v9368, (* (( (ptr) formal←c38380)+4) ));
SOURCE(2976, 26)
{
word pd149;
pd149 = (* (( (ptr) (* (( (ptr) gf←c38348)+169)/* var←c35532 */ ))+62) );
(* (( (ptr) formal←c38380)+7) ) = (word) ( *( (fPt) ((* (ptr) pd149 ))))(c←v9368, pd149);
};
}
static void ChangeProperty←P600(c←v5092, formal←c0495, formal←c0496, formal←c0497, formal←c0498, formal←c0499, formal←c0500, num←v5288, formal←c0501)
word c←v5092;
word formal←c0495;
word formal←c0496;
word formal←c0497;
word formal←c0498;
word formal←c0499;
word formal←c0500;
word num←v5288;
word formal←c0501;
{
W16 var←c38412;
/* declaration of w←v5120 skipped */
/* declaration of property←v5148 skipped */
/* declaration of type←v5176 skipped */
/* declaration of mode←v5204 skipped */
/* declaration of data←v5232 skipped */
/* declaration of start←v5260 skipped */
/* declaration of details←v5316 skipped */
register ptr gf←c38444 = (ptr) &globalframe;
/* declaration of var←c35884 skipped */
/* declaration of numberOfUnits←v9452 skipped */
/* declaration of unitSize←v9480 skipped */
/* declaration of numberOfBytes←v9508 skipped */
(* (( (ptr) &var←c38412)+4)/* w←v5120 */ ) = formal←c0495;
(* (( (ptr) &var←c38412)+5)/* property←v5148 */ ) = formal←c0496;
(* (( (ptr) &var←c38412)+6)/* type←v5176 */ ) = formal←c0497;
(* (( (ptr) &var←c38412)+7)/* mode←v5204 */ ) = formal←c0498;
(* (( (ptr) &var←c38412)+8)/* data←v5232 */ ) = formal←c0499;
(* (( (ptr) &var←c38412)+9)/* start←v5260 */ ) = formal←c0500;
(* (( (ptr) &var←c38412)+10)/* details←v5316 */ ) = formal←c0501;
/* ChangeProperty: */
SOURCE(3589, 1440)
{
word tmpAddr150;
tmpAddr150 = (word) (( (ptr) &var←c38412)+11)/* var←c35884 */ ;
(* (ptr) tmpAddr150 ) = ( ((word) (fPt) action←P2292) );
(* (( (ptr) tmpAddr150) + 1) ) = 1;
};
SOURCE(4612, 54)
if (( (int)(* (( (ptr) &var←c38412)+9)/* start←v5260 */ ) < (int)0) || ( (int)num←v5288 < (int)0)) {
SOURCE(4637, 29)
(void) RaiseClientError←P60(c←v5092, (* (( (ptr) gf←c38444)+26) ));
};
SOURCE(4668, 54)
if (((* (( (ptr) &var←c38412)+5)/* property←v5148 */ ) == 0)) {
SOURCE(4689, 33)
(void) RaiseClientError←P60(c←v5092, (* (( (ptr) gf←c38444)+25) ));
};
SOURCE(4724, 46)
if (((* (( (ptr) &var←c38412)+4)/* w←v5120 */ ) == 0)) {
SOURCE(4739, 31)
(void) RaiseClientError←P60(c←v5092, (* (( (ptr) gf←c38444)+24) ));
};
SOURCE(4772, 43)
{
W2 var←c35916;
(void) XPropInfo←P720((word) &var←c35916, (* (( (ptr) &var←c38412)+8)/* data←v5232 */ ));
(* (( (ptr) &var←c38412)+14)/* unitSize←v9480 */ ) = var←c35916.f1;
(* (( (ptr) &var←c38412)+13)/* numberOfUnits←v9452 */ ) = var←c35916.f0;
};
SOURCE(4817, 53)
{
word x151;
word x152;
(* (( (ptr) &var←c38412)+13)/* numberOfUnits←v9452 */ ) = (x152 = (x151 = ((* (( (ptr) &var←c38412)+13)/* numberOfUnits←v9452 */ ) - (* (
( (ptr) &var←c38412)+9)/* start←v5260 */ )),
MIN((int)(word), x151, num←v5288)),
MAX((int)(word), 0, x152));
};
SOURCE(4873, 40)
(* (( (ptr) &var←c38412)+15)/* numberOfBytes←v9508 */ ) = IOP2( * , (int)(* (( (ptr) &var←c38412)+13)/* numberOfUnits←v9452 */ ), (int)(* (
( (ptr) &var←c38412)+14)/* unitSize←v9480 */ ));
SOURCE(4916, 79)
if (( (int)(* (( (ptr) &var←c38412)+13)/* numberOfUnits←v9452 */ ) > (int)(* (( (ptr) (* (( (ptr) c←v5092)+16) ))+7) ))) {
SOURCE(4967, 28)
(void) RaiseClientError←P60(c←v5092, (* (( (ptr) gf←c38444)+23) ));
};
SOURCE(4998, 31)
{
word pd153;
pd153 = (* (( (ptr) (* (( (ptr) gf←c38444)+169)/* var←c35532 */ ))+6) );
(void) ( *( (fPt) ((* (ptr) pd153 ))))(c←v5092, (word) (( (bPt) &var←c38412)+44)/* var←c35884 */ , (* (( (ptr) &var←c38412)+10)
/* details←v5316 */ ), pd153);
};
}
static void action←P2292(c←v9612, formal←c38508)
word c←v9612;
word formal←c38508;
{
register ptr gf←c38476 = (ptr) &globalframe;
formal←c38508 = (formal←c38508 - 44);
/* action: */
SOURCE(3816, 791)
SOURCE(3849, 46)
{
word pd154;
pd154 = (* (( (ptr) (* (( (ptr) gf←c38476)+169)/* var←c35532 */ ))+17) );
(void) ( *( (fPt) ((* (ptr) pd154 ))))(c←v9612, 18, (* (( (ptr) formal←c38508)+7) ), (IOP2( / , (int)((* (( (ptr) formal←c38508)+15)
) + 3), (int)4) + 6), pd154);
};
SOURCE(3897, 18)
{
word pd155;
pd155 = (* (( (ptr) (* (( (ptr) gf←c38476)+169)/* var←c35532 */ ))+27) );
(void) ( *( (fPt) ((* (ptr) pd155 ))))(c←v9612, (* (( (ptr) formal←c38508)+4) ), pd155);
};
SOURCE(3917, 21)
(void) BPutProp←P480(c←v9612, (* (( (ptr) formal←c38508)+5) ));
SOURCE(3940, 17)
(void) BPutProp←P480(c←v9612, (* (( (ptr) formal←c38508)+6) ));
SOURCE(3959, 20)
{
word pd156;
word idx157;
pd156 = (* (( (ptr) (* (( (ptr) gf←c38476)+169)/* var←c35532 */ ))+19) );
(void) ( *( (fPt) ((* (ptr) pd156 ))))(c←v9612, (
idx157 = (word) IOP2( * , (int)(* (( (ptr) formal←c38508)+14) ), (int)8),
BCK(idx157, 256)
), pd156);
};
SOURCE(3982, 11)
(* (( (ptr) c←v9612)+4) ) = ((* (( (ptr) c←v9612)+4) ) + 3);
SOURCE(3996, 24)
{
word pd158;
word idx159;
pd158 = (* (( (ptr) (* (( (ptr) gf←c38476)+169)/* var←c35532 */ ))+21) );
(void) ( *( (fPt) ((* (ptr) pd158 ))))(c←v9612, (
idx159 = (* (( (ptr) formal←c38508)+13) ),
SGNCK(idx159)
), pd158);
};
SOURCE(4022, 539)
{
word var←c35948;
word var←c35980;
var←c35948 = (* (( (ptr) formal←c38508)+8) );
if ((var←c35948 == 0)) {
goto lab←L100005;
};
var←c35980 = XR←GetReferentType(var←c35948);
{
word var←c36076;
{
word tc161;
if (((* (( (ptr) gf←c38476)+17) ) == var←c35980)) {
tc161 = (word) ( (unsigned) (*(int*)var←c35948<0) == 0);
}
else {
tc161 = (word) 0;
};
if (tc161) {
{
word r←v9640;
r←v9640 = var←c35948;
SOURCE(4055, 42)
{
word pd162;
pd162 = (* (( (ptr) (* (( (ptr) gf←c38476)+169)/* var←c35532 */ ))+37) );
(void) ( *( (fPt) ((* (ptr) pd162 ))))(c←v9612, r←v9640, (* (( (ptr) formal←c38508)+9) ), (* (( (ptr) formal←c38508)+13)
), pd162);
};
};
goto endif0160;
};
if (((* (( (ptr) gf←c38476)+22) ) == var←c35980)) {
{
word rc←v9684;
rc←v9684 = var←c35948;
SOURCE(4127, 71)
{
register word i←v9740;
register word noName←c36012;
i←v9740 = (* (( (ptr) formal←c38508)+9) );
noName←c36012 = ((* (( (ptr) formal←c38508)+9) ) + (* (( (ptr) formal←c38508)+13) ));
if (( (int)i←v9740 >= (int)noName←c36012)) {
goto lab←L100006;
};
lab←L100009: ;
SOURCE(4173, 25)
{
word c←v33756;
word b←v33784;
c←v33756 = c←v9612;
{
word limit163;
b←v33784 = (* ((( (ptr) rc←v9684)+1)+(
/*1*/ limit163 = (* (ptr) rc←v9684 ),
/*1*/ BCK(i←v9740, limit163)
/*1*/ )) );
};
{
word p←v33816;
word n←v33844;
p←v33816 = (* (( (ptr) c←v33756)+7) );
n←v33844 = (* (( (ptr) c←v33756)+4) );
(* (( (ptr) p←v33816)+((word) n←v33844 >> 2)) ) = b←v33784;
(* (( (ptr) c←v33756)+4) ) = (n←v33844 + 4);
};
};
i←v9740 = (i←v9740 + 1);
if (( (int)i←v9740 < (int)noName←c36012)) {
goto lab←L100009;
};
lab←L100006: ;
};
};
goto endif0160;
};
if (((* (( (ptr) gf←c38476)+21) ) == var←c35980)) {
{
word rc←v9784;
rc←v9784 = var←c35948;
SOURCE(4231, 71)
{
register word i←v9840;
register word noName←c36044;
i←v9840 = (* (( (ptr) formal←c38508)+9) );
noName←c36044 = ((* (( (ptr) formal←c38508)+9) ) + (* (( (ptr) formal←c38508)+13) ));
if (( (int)i←v9840 >= (int)noName←c36044)) {
goto lab←L100010;
};
lab←L100013: ;
SOURCE(4277, 25)
{
word c←v33680;
word b←v33708;
c←v33680 = c←v9612;
{
word limit164;
b←v33708 = (* ((( (ptr) rc←v9784)+1)+(
/*1*/ limit164 = (* (ptr) rc←v9784 ),
/*1*/ BCK(i←v9840, limit164)
/*1*/ )) );
};
{
word n←v25612;
word p←v25644;
n←v25612 = (* (( (ptr) c←v33680)+4) );
p←v25644 = (* (( (ptr) c←v33680)+7) );
(* (( (hPt) p←v25644)+((word) n←v25612 >> 1)) ) = b←v33708;
(* (( (ptr) c←v33680)+4) ) = (n←v25612 + 2);
};
};
i←v9840 = (i←v9840 + 1);
if (( (int)i←v9840 < (int)noName←c36044)) {
goto lab←L100013;
};
lab←L100010: ;
};
SOURCE(4304, 44)
if (( (int)IOP2( % , (int)(* (( (ptr) formal←c38508)+13) ), (int)2) != (int)0)) {
SOURCE(4335, 13)
{
word c←v33576;
c←v33576 = c←v9612;
{
word n←v33608;
word p←v33636;
n←v33608 = (* (( (ptr) c←v33576)+4) );
p←v33636 = (* (( (ptr) c←v33576)+7) );
(* (( (hPt) p←v33636)+((word) n←v33608 >> 1)) ) = 0;
(* (( (ptr) c←v33576)+4) ) = (n←v33608 + 2);
};
};
};
};
goto endif0160;
};
if (((* (( (ptr) gf←c38476)+12) ) == var←c35980)) {
{
word ra←v9884;
ra←v9884 = var←c35948;
SOURCE(4370, 14)
{
word pd165;
pd165 = (* (( (ptr) (* (( (ptr) gf←c38476)+169)/* var←c35532 */ ))+21) );
(void) ( *( (fPt) ((* (ptr) pd165 ))))(c←v9612, (* (ptr) ra←v9884 ), pd165);
};
};
goto endif0160;
};
if (((
var←c36076 = (* (( (ptr) gf←c38476)+20) )
) == var←c35980)) {
{
word rc←v9940;
rc←v9940 = var←c35948;
SOURCE(4404, 14)
{
word pd166;
pd166 = (* (( (ptr) (* (( (ptr) gf←c38476)+169)/* var←c35532 */ ))+21) );
(void) ( *( (fPt) ((* (ptr) pd166 ))))(c←v9612, (* (ptr) rc←v9940 ), pd166);
};
};
goto endif0160;
};
if (((* (( (ptr) gf←c38476)+19) ) == var←c35980)) {
{
word ri←v9996;
ri←v9996 = var←c35948;
SOURCE(4437, 24)
{
word pd167;
pd167 = (* (( (ptr) (* (( (ptr) gf←c38476)+169)/* var←c35532 */ ))+21) );
(void) ( *( (fPt) ((* (ptr) pd167 ))))(c←v9612, (* (ptr) ri←v9996 ), pd167);
};
};
goto endif0160;
};
if ((var←c36076 == var←c35980)) {
{
word rp←v10052;
rp←v10052 = var←c35948;
SOURCE(4483, 24)
{
word pd168;
pd168 = (* (( (ptr) (* (( (ptr) gf←c38476)+169)/* var←c35532 */ ))+21) );
(void) ( *( (fPt) ((* (ptr) pd168 ))))(c←v9612, (* (ptr) rp←v10052 ), pd168);
};
};
goto endif0160;
};
if (((* (( (ptr) gf←c38476)+18) ) == var←c35980)) {
{
word rt←v10108;
rt←v10108 = var←c35948;
SOURCE(4525, 36)
(void) BPutPaddedText←P660(c←v9612, rt←v10108, (* (( (ptr) formal←c38508)+13) ));
};
goto endif0160;
};
lab←L100005: ;
goto endif0160;
endif0160: ;
};
};
};
SOURCE(4578, 29)
{
word pd169;
pd169 = (* (( (ptr) (* (( (ptr) gf←c38476)+169)/* var←c35532 */ ))+64) );
(void) ( *( (fPt) ((* (ptr) pd169 ))))(c←v9612, (* (( (ptr) formal←c38508)+10) ), pd169);
};
}
static void BPutPaddedText←P660(c←v5388, text←v5416, requiredLength←v5444)
word c←v5388;
word text←v5416;
word requiredLength←v5444;
{
register ptr gf←c38540 = (ptr) &globalframe;
word size←v10164;
/* BPutPaddedText: */
SOURCE(5035, 353)
SOURCE(5126, 36)
{
word base←v33528;
base←v33528 = text←v5416;
{
word tc170;
word idx171;
if ((base←v33528 == 0)) {
tc170 = (word) 0;
}
else {
tc170 = (word) (unsigned) (* (hPt) base←v33528 );
};
size←v10164 = (
idx171 = (word) tc170,
BCK(idx171, 32768)
);
};
};
SOURCE(5164, 93)
{
register word i←v10208 = 0;
register word noName←c36140;
noName←c36140 = (MIN((int)(word), size←v10164, requiredLength←v5444));
if (( (int)i←v10208 >= (int)noName←c36140)) {
goto lab←L100015;
};
lab←L100018: ;
SOURCE(5216, 41)
{
word c←v33404;
word b←v33432;
c←v33404 = c←v5388;
{
word limit172;
b←v33432 = (unsigned) (word) (* ((( (bPt) text←v5416)+4)+(
limit172 = (word) (unsigned) (* (( (hPt) text←v5416)+1) ),
BCK(i←v10208, limit172)
)) );
};
{
word n←v26560;
n←v26560 = (* (( (ptr) c←v33404)+4) );
(* (( (bPt) (* (( (ptr) c←v33404)+7) ))+n←v26560) ) = b←v33432;
(* (( (ptr) c←v33404)+4) ) = (n←v26560 + 1);
};
};
i←v10208 = (i←v10208 + 1);
if (( (int)i←v10208 < (int)noName←c36140)) {
goto lab←L100018;
};
lab←L100015: ;
};
SOURCE(5259, 68)
if (( (int)size←v10164 < (int)requiredLength←v5444)) {
SOURCE(5287, 40)
{
word pd173;
pd173 = (* (( (ptr) (* (( (ptr) gf←c38540)+169)/* var←c35532 */ ))+23) );
(void) ( *( (fPt) ((* (ptr) pd173 ))))(c←v5388, (requiredLength←v5444 - size←v10164), pd173);
};
};
SOURCE(5329, 59)
{
word var←c36172;
{
word pd174;
pd174 = (* (( (ptr) (* (( (ptr) gf←c38540)+169)/* var←c35532 */ ))+5) );
var←c36172 = (word) ( *( (fPt) ((* (ptr) pd174 ))))(requiredLength←v5444, pd174);
};
{
word pd175;
pd175 = (* (( (ptr) (* (( (ptr) gf←c38540)+169)/* var←c35532 */ ))+23) );
(void) ( *( (fPt) ((* (ptr) pd175 ))))(c←v5388, var←c36172, pd175);
};
};
}
static void XPropInfo←P720(formal←c0180, data←v5516)
word formal←c0180;
word data←v5516;
{
register ptr gf←c38572 = (ptr) &globalframe;
word numberOfUnits←v5572;
word unitSize←v5600;
/* XPropInfo: */
SOURCE(5394, 593)
SOURCE(5472, 515)
{
word var←c36204;
word var←c36236;
var←c36204 = data←v5516;
if ((var←c36204 == 0)) {
goto lab←L100020;
};
var←c36236 = XR←GetReferentType(var←c36204);
{
word tc177;
if (((* (( (ptr) gf←c38572)+17) ) == var←c36236)) {
tc177 = (word) ( (unsigned) (*(int*)var←c36204<0) == 0);
}
else {
tc177 = (word) 0;
};
if (tc177) {
{
word r←v10252;
r←v10252 = var←c36204;
SOURCE(5511, 30)
{
word pd178;
pd178 = (* (( (ptr) (* (( (ptr) gf←c38572)+168)/* var←c35372 */ ))+14) );
numberOfUnits←v5572 = (word) ( *( (fPt) ((* (ptr) pd178 ))))(r←v10252, pd178);
};
SOURCE(5543, 12)
unitSize←v5600 = 1;
};
goto endif0176;
};
if (((* (( (ptr) gf←c38572)+22) ) == var←c36236)) {
{
word rc←v10296;
rc←v10296 = var←c36204;
SOURCE(5588, 23)
numberOfUnits←v5572 = (* (ptr) rc←v10296 );
SOURCE(5613, 12)
unitSize←v5600 = 4;
};
goto endif0176;
};
if (((* (( (ptr) gf←c38572)+21) ) == var←c36236)) {
{
word rc←v10352;
rc←v10352 = var←c36204;
SOURCE(5658, 23)
numberOfUnits←v5572 = (* (ptr) rc←v10352 );
SOURCE(5683, 12)
unitSize←v5600 = 2;
};
goto endif0176;
};
if (((* (( (ptr) gf←c38572)+12) ) == var←c36236)) {
{
word rc←v10408;
rc←v10408 = var←c36204;
SOURCE(5719, 17)
numberOfUnits←v5572 = 1;
SOURCE(5738, 12)
unitSize←v5600 = 4;
};
goto endif0176;
};
if (((* (( (ptr) gf←c38572)+19) ) == var←c36236)) {
{
word rc←v10464;
rc←v10464 = var←c36204;
SOURCE(5771, 17)
numberOfUnits←v5572 = 1;
SOURCE(5790, 12)
unitSize←v5600 = 4;
};
goto endif0176;
};
if (((* (( (ptr) gf←c38572)+20) ) == var←c36236)) {
{
word rc←v10520;
rc←v10520 = var←c36204;
SOURCE(5824, 17)
numberOfUnits←v5572 = 1;
SOURCE(5843, 12)
unitSize←v5600 = 4;
};
goto endif0176;
};
if (((* (( (ptr) gf←c38572)+18) ) == var←c36236)) {
{
word rt←v10576;
rt←v10576 = var←c36204;
SOURCE(5875, 34)
{
word var←c36268;
word base←v33480;
base←v33480 = rt←v10576;
{
word tc179;
word idx180;
if ((base←v33480 == 0)) {
tc179 = (word) 0;
}
else {
tc179 = (word) (unsigned) (* (hPt) base←v33480 );
};
var←c36268 = (
idx180 = (word) tc179,
BCK(idx180, 32768)
);
};
numberOfUnits←v5572 = var←c36268;
};
SOURCE(5911, 12)
unitSize←v5600 = 1;
};
goto endif0176;
};
lab←L100020: ;
SOURCE(5937, 50)
if ((data←v5516 == 0)) {
SOURCE(5956, 17)
numberOfUnits←v5572 = 0;
SOURCE(5975, 12)
unitSize←v5600 = 1;
}
else {
SOURCE(6036, 5)
(void) XR←RaiseUnnamedError();
};
goto endif0176;
endif0176: ;
};
};
/* removed tail goto */
(* (ptr) formal←c0180 ) = numberOfUnits←v5572;
(* (( (ptr) formal←c0180)+1) ) = unitSize←v5600;
return;
}
static void DeleteProperty←P780(c←v5660, formal←c0502, formal←c0503, formal←c0504)
word c←v5660;
word formal←c0502;
word formal←c0503;
word formal←c0504;
{
W9 var←c38604;
/* declaration of w←v5688 skipped */
/* declaration of property←v5716 skipped */
/* declaration of details←v5744 skipped */
register ptr gf←c38636 = (ptr) &globalframe;
/* declaration of var←c36300 skipped */
(* (( (ptr) &var←c38604)+4)/* w←v5688 */ ) = formal←c0502;
(* (( (ptr) &var←c38604)+5)/* property←v5716 */ ) = formal←c0503;
(* (( (ptr) &var←c38604)+6)/* details←v5744 */ ) = formal←c0504;
/* DeleteProperty: */
SOURCE(6047, 283)
{
word tmpAddr181;
tmpAddr181 = (word) (( (ptr) &var←c38604)+7)/* var←c36300 */ ;
(* (ptr) tmpAddr181 ) = ( ((word) (fPt) action←P3216) );
(* (( (ptr) tmpAddr181) + 1) ) = 1;
};
SOURCE(6271, 21)
if (((* (( (ptr) &var←c38604)+5)/* property←v5716 */ ) == 0)) {
SOURCE(6292, 5)
(void) XR←RaiseUnnamedError();
};
SOURCE(6299, 31)
{
word pd182;
pd182 = (* (( (ptr) (* (( (ptr) gf←c38636)+169)/* var←c35532 */ ))+6) );
(void) ( *( (fPt) ((* (ptr) pd182 ))))(c←v5660, (word) (( (bPt) &var←c38604)+28)/* var←c36300 */ , (* (( (ptr) &var←c38604)+6)
/* details←v5744 */ ), pd182);
};
}
static void action←P3216(c←v10708, formal←c38700)
word c←v10708;
word formal←c38700;
{
register ptr gf←c38668 = (ptr) &globalframe;
formal←c38700 = (formal←c38700 - 28);
/* action: */
SOURCE(6141, 125)
SOURCE(6174, 18)
{
word pd183;
pd183 = (* (( (ptr) (* (( (ptr) gf←c38668)+169)/* var←c35532 */ ))+17) );
(void) ( *( (fPt) ((* (ptr) pd183 ))))(c←v10708, 19, 0, 3, pd183);
};
SOURCE(6194, 18)
{
word pd184;
pd184 = (* (( (ptr) (* (( (ptr) gf←c38668)+169)/* var←c35532 */ ))+27) );
(void) ( *( (fPt) ((* (ptr) pd184 ))))(c←v10708, (* (( (ptr) formal←c38700)+4) ), pd184);
};
SOURCE(6214, 21)
(void) BPutProp←P480(c←v10708, (* (( (ptr) formal←c38700)+5) ));
SOURCE(6237, 29)
{
word pd185;
pd185 = (* (( (ptr) (* (( (ptr) gf←c38668)+169)/* var←c35532 */ ))+64) );
(void) ( *( (fPt) ((* (ptr) pd185 ))))(c←v10708, (* (( (ptr) formal←c38700)+6) ), pd185);
};
}
static void GetProperty←P840(formal←c0223, c←v5804, formal←c0505, formal←c0506, formal←c0507, formal←c0508, longOff←v5944, longLength←v5972, supposedFormat←v6000)
word formal←c0223;
word c←v5804;
word formal←c0505;
word formal←c0506;
word formal←c0507;
word formal←c0508;
word longOff←v5944;
word longLength←v5972;
word supposedFormat←v6000;
{
W13 var←c38732;
/* declaration of w←v5832 skipped */
/* declaration of property←v5860 skipped */
/* declaration of supposedType←v5888 skipped */
/* declaration of delete←v5916 skipped */
register ptr gf←c38764 = (ptr) &globalframe;
W4 ret←v6044;
/* declaration of var←c36332 skipped */
/* declaration of reply←v10736 skipped */
/* declaration of offset32←v10792 skipped */
/* declaration of leng32←v10820 skipped */
word lengUnits←v10848;
(* (( (ptr) &var←c38732)+4)/* w←v5832 */ ) = formal←c0505;
(* (( (ptr) &var←c38732)+5)/* property←v5860 */ ) = formal←c0506;
(* (( (ptr) &var←c38732)+6)/* supposedType←v5888 */ ) = formal←c0507;
(* (( (ptr) &var←c38732)+7)/* delete←v5916 */ ) = formal←c0508;
/* GetProperty: */
SOURCE(6336, 1340)
{
word tmpAddr186;
tmpAddr186 = (word) (( (ptr) &var←c38732)+8)/* var←c36332 */ ;
(* (ptr) tmpAddr186 ) = ( ((word) (fPt) action←P3276) );
(* (( (ptr) tmpAddr186) + 1) ) = 1;
};
SOURCE(6336, 1340)
ret←v6044.f0 = 0;
ret←v6044.f1 = 0;
ret←v6044.f2 = 0;
ret←v6044.f3 = 0;
SOURCE(6530, 12)
(* (( (ptr) &var←c38732)+10)/* reply←v10736 */ ) = 0;
SOURCE(6752, 26)
(* (( (ptr) &var←c38732)+11)/* offset32←v10792 */ ) = SGNCK(longOff←v5944);
SOURCE(6780, 58)
{
word x187;
word idx188;
(* (( (ptr) &var←c38732)+12)/* leng32←v10820 */ ) = (
idx188 = (word) (x187 = (* (( (ptr) (* (( (ptr) c←v5804)+16) ))+6) ),
MIN((int)(word), longLength←v5972, x187)),
SGNCK(idx188)
);
};
SOURCE(6857, 21)
if (((* (( (ptr) &var←c38732)+5)/* property←v5860 */ ) == 0)) {
SOURCE(6878, 5)
(void) XR←RaiseUnnamedError();
};
SOURCE(6885, 27)
{
word pd189;
pd189 = (* (( (ptr) (* (( (ptr) gf←c38764)+169)/* var←c35532 */ ))+6) );
(void) ( *( (fPt) ((* (ptr) pd189 ))))(c←v5804, (word) (( (bPt) &var←c38732)+32)/* var←c36332 */ , 0, pd189);
};
SOURCE(6914, 17)
{
word pd190;
pd190 = (* (( (ptr) (* (( (ptr) gf←c38764)+169)/* var←c35532 */ ))+68) );
(void) ( *( (fPt) ((* (ptr) pd190 ))))((* ((( (ptr) &var←c38732)+10)/* reply←v10736 */ ) ), pd190);
};
SOURCE(6933, 26)
{
word pd191;
pd191 = (* (( (ptr) (* (( (ptr) gf←c38764)+169)/* var←c35532 */ ))+77) );
ret←v6044.f1 = (word) ( *( (fPt) ((* (ptr) pd191 ))))((* ((( (ptr) &var←c38732)+10)/* reply←v10736 */ ) ), pd191);
};
SOURCE(6961, 14)
(* (( (ptr) (* (( (ptr) &var←c38732)+10)/* reply←v10736 */ ))+10) ) = ((* (( (ptr) (* (( (ptr) &var←c38732)+10)/* reply←v10736 */ ))+10)
) + 6);
SOURCE(6977, 27)
{
word pd192;
pd192 = (* (( (ptr) (* (( (ptr) gf←c38764)+169)/* var←c35532 */ ))+79) );
ret←v6044.f0 = (word) ( *( (fPt) ((* (ptr) pd192 ))))((* ((( (ptr) &var←c38732)+10)/* reply←v10736 */ ) ), pd192);
};
SOURCE(7006, 31)
{
word pd193;
pd193 = (* (( (ptr) (* (( (ptr) gf←c38764)+169)/* var←c35532 */ ))+79) );
ret←v6044.f3 = (word) ( *( (fPt) ((* (ptr) pd193 ))))((* ((( (ptr) &var←c38732)+10)/* reply←v10736 */ ) ), pd193);
};
SOURCE(7040, 26)
{
word pd194;
word idx195;
pd194 = (* (( (ptr) (* (( (ptr) gf←c38764)+169)/* var←c35532 */ ))+79) );
lengUnits←v10848 = (
idx195 = (word) ( *( (fPt) ((* (ptr) pd194 ))))((* ((( (ptr) &var←c38732)+10)/* reply←v10736 */ ) ), pd194),
SGNCK(idx195)
);
};
SOURCE(7094, 557)
SOURCE(7096, 535)
{
word var←c36364;
var←c36364 = ret←v6044.f1;
switch (var←c36364) {
case 8:
SOURCE(7127, 87)
{
word pd196;
pd196 = (* (( (ptr) (* (( (ptr) gf←c38764)+169)/* var←c35532 */ ))+61) );
ret←v6044.f2 = (word) ( *( (fPt) ((* (ptr) pd196 ))))((* (( (ptr) (* (( (ptr) &var←c38732)+10)/* reply←v10736 */ ))+8) ), 0, lengUnits←v10848, pd196)
;
};
break;
case 32:
SOURCE(7225, 187)
{
word rcs←v10952;
SOURCE(7227, 56)
{
word var←c36396;
word var←c36428;
word var←c36460;
var←c36396 = BCK(lengUnits←v10848, 67108863);
var←c36428 = ((word) var←c36396 << 2);
var←c36460 = XR←NewObject((4 + var←c36428), (* (( (ptr) gf←c38764)+22) ));
(* (ptr) var←c36460 ) = var←c36396;
rcs←v10952 = var←c36460;
};
SOURCE(7285, 109)
{
register word i←v11008 = 0;
register word noName←c36492;
noName←c36492 = lengUnits←v10848;
if (( (int)i←v11008 >= (int)noName←c36492)) {
goto lab←L100023;
};
lab←L100026: ;
SOURCE(7317, 77)
{
word var←c36524;
word b←v33328;
word startPos←v33356;
b←v33328 = (* (( (ptr) (* (( (ptr) &var←c38732)+10)/* reply←v10736 */ ))+8) );
startPos←v33356 = IOP2( * , (int)i←v11008, (int)4);
{
word ln←v27708;
ln←v27708 = (((word) (((word) (((word) (unsigned) (word) (* (( (bPt) b←v33328)+startPos←v33356) ) << 8) + (unsigned) (word) (* (
( (bPt) b←v33328)+(startPos←v33356 + 1)) )) << 8) + (unsigned) (word) (* (( (bPt) b←v33328)+(startPos←v33356 + 2)) )) << 8) +
(unsigned) (word) (* (( (bPt) b←v33328)+(startPos←v33356 + 3)) ));
var←c36524 = ln←v27708;
};
{
word limit197;
(* ((( (ptr) rcs←v10952)+1)+(
/*1*/ limit197 = (* (ptr) rcs←v10952 ),
/*1*/ BCK(i←v11008, limit197)
/*1*/ )) ) = var←c36524;
};
};
i←v11008 = (i←v11008 + 1);
if (( (int)i←v11008 < (int)noName←c36492)) {
goto lab←L100026;
};
lab←L100023: ;
};
SOURCE(7396, 16)
ret←v6044.f2 = rcs←v10952;
};
break;
case 16:
SOURCE(7421, 187)
{
word rcs←v11052;
SOURCE(7423, 56)
{
word var←c36588;
word var←c36620;
word var←c36652;
var←c36588 = BCK(lengUnits←v10848, 67108863);
var←c36620 = ((word) var←c36588 << 2);
var←c36652 = XR←NewObject((4 + var←c36620), (* (( (ptr) gf←c38764)+21) ));
(* (ptr) var←c36652 ) = var←c36588;
rcs←v11052 = var←c36652;
};
SOURCE(7481, 109)
{
register word i←v11108 = 0;
register word noName←c36684;
noName←c36684 = lengUnits←v10848;
if (( (int)i←v11108 >= (int)noName←c36684)) {
goto lab←L100028;
};
lab←L100031: ;
SOURCE(7513, 77)
{
word var←c36716;
word b←v33252;
word startPos←v33280;
b←v33252 = (* (( (ptr) (* (( (ptr) &var←c38732)+10)/* reply←v10736 */ ))+8) );
startPos←v33280 = IOP2( * , (int)i←v11108, (int)2);
{
word byte0←v28316;
word byte1←v28348;
byte0←v28316 = (unsigned) (word) (* (( (bPt) b←v33252)+startPos←v33280) );
byte1←v28348 = (unsigned) (word) (* (( (bPt) b←v33252)+(startPos←v33280 + 1)) );
var←c36716 = (((word) byte0←v28316 << 8) + byte1←v28348);
};
{
word limit198;
(* ((( (ptr) rcs←v11052)+1)+(
/*1*/ limit198 = (* (ptr) rcs←v11052 ),
/*1*/ BCK(i←v11108, limit198)
/*1*/ )) ) = var←c36716;
};
};
i←v11108 = (i←v11108 + 1);
if (( (int)i←v11108 < (int)noName←c36684)) {
goto lab←L100031;
};
lab←L100028: ;
};
SOURCE(7592, 16)
ret←v6044.f2 = rcs←v11052;
};
break;
case 0:
SOURCE(7616, 15)
ret←v6044.f2 = 0;
break;
default:
SOURCE(7644, 5)
(void) XR←RaiseUnnamedError();
break;
};
};
SOURCE(7654, 22)
{
word pd199;
pd199 = (* (( (ptr) (* (( (ptr) gf←c38764)+169)/* var←c35532 */ ))+67) );
(void) ( *( (fPt) ((* (ptr) pd199 ))))(c←v5804, (* (( (ptr) &var←c38732)+10)/* reply←v10736 */ ), pd199);
};
/* removed tail goto */
(* (W4Pt) formal←c0223 ) = ret←v6044;
return;
}
static void action←P3276(c←v10924, formal←c38828)
word c←v10924;
word formal←c38828;
{
register ptr gf←c38796 = (ptr) &globalframe;
formal←c38828 = (formal←c38828 - 32);
/* action: */
SOURCE(6544, 203)
SOURCE(6577, 32)
{
word pd200;
pd200 = (* (( (ptr) (* (( (ptr) gf←c38796)+169)/* var←c35532 */ ))+17) );
(void) ( *( (fPt) ((* (ptr) pd200 ))))(c←v10924, 20, (* (( (ptr) formal←c38828)+7) ), 6, pd200);
};
SOURCE(6611, 18)
{
word pd201;
pd201 = (* (( (ptr) (* (( (ptr) gf←c38796)+169)/* var←c35532 */ ))+27) );
(void) ( *( (fPt) ((* (ptr) pd201 ))))(c←v10924, (* (( (ptr) formal←c38828)+4) ), pd201);
};
SOURCE(6631, 21)
(void) BPutProp←P480(c←v10924, (* (( (ptr) formal←c38828)+5) ));
SOURCE(6654, 25)
(void) BPutProp←P480(c←v10924, (* (( (ptr) formal←c38828)+6) ));
SOURCE(6681, 19)
{
word pd202;
pd202 = (* (( (ptr) (* (( (ptr) gf←c38796)+169)/* var←c35532 */ ))+21) );
(void) ( *( (fPt) ((* (ptr) pd202 ))))(c←v10924, (* (( (ptr) formal←c38828)+11) ), pd202);
};
SOURCE(6702, 17)
{
word pd203;
pd203 = (* (( (ptr) (* (( (ptr) gf←c38796)+169)/* var←c35532 */ ))+21) );
(void) ( *( (fPt) ((* (ptr) pd203 ))))(c←v10924, (* (( (ptr) formal←c38828)+12) ), pd203);
};
SOURCE(6721, 26)
{
word pd204;
pd204 = (* (( (ptr) (* (( (ptr) gf←c38796)+169)/* var←c35532 */ ))+62) );
(* (( (ptr) formal←c38828)+10) ) = (word) ( *( (fPt) ((* (ptr) pd204 ))))(c←v10924, pd204);
};
}
static void ListProperties←P900(formal←c0235, c←v6104, formal←c0509)
word formal←c0235;
word c←v6104;
word formal←c0509;
{
W8 var←c38860;
/* declaration of w←v6132 skipped */
register ptr gf←c38892 = (ptr) &globalframe;
word list←v6176;
word num←v6204;
/* declaration of var←c36748 skipped */
/* declaration of reply←v11152 skipped */
var←c38860.f4/* w←v6132 */ = formal←c0509;
/* ListProperties: */
SOURCE(7682, 434)
{
word tmpAddr205;
tmpAddr205 = (word) (( (ptr) &var←c38860)+5)/* var←c36748 */ ;
(* (ptr) tmpAddr205 ) = ( ((word) (fPt) action←P3528) );
(* (( (ptr) tmpAddr205) + 1) ) = 1;
};
SOURCE(7682, 434)
list←v6176 = 0;
SOURCE(7787, 12)
var←c38860.f7/* reply←v11152 */ = 0;
SOURCE(7905, 27)
{
word pd206;
pd206 = (* (( (ptr) (* (( (ptr) gf←c38892)+169)/* var←c35532 */ ))+6) );
(void) ( *( (fPt) ((* (ptr) pd206 ))))(c←v6104, (word) (( (bPt) &var←c38860)+20)/* var←c36748 */ , 0, pd206);
};
SOURCE(7934, 17)
{
word pd207;
pd207 = (* (( (ptr) (* (( (ptr) gf←c38892)+169)/* var←c35532 */ ))+68) );
(void) ( *( (fPt) ((* (ptr) pd207 ))))(var←c38860.f7/* reply←v11152 */ , pd207);
};
SOURCE(7953, 14)
(* (( (ptr) var←c38860.f7/* reply←v11152 */ )+10) ) = ((* (( (ptr) var←c38860.f7/* reply←v11152 */ )+10) ) + 7);
SOURCE(7969, 20)
{
word pd208;
pd208 = (* (( (ptr) (* (( (ptr) gf←c38892)+169)/* var←c35532 */ ))+78) );
num←v6204 = (word) ( *( (fPt) ((* (ptr) pd208 ))))(var←c38860.f7/* reply←v11152 */ , pd208);
};
SOURCE(7991, 15)
(* (( (ptr) var←c38860.f7/* reply←v11152 */ )+10) ) = ((* (( (ptr) var←c38860.f7/* reply←v11152 */ )+10) ) + 22);
SOURCE(8009, 83)
{
register word i←v11284 = 0;
register word noName←c36780;
noName←c36780 = num←v6204;
if (( (int)i←v11284 >= (int)noName←c36780)) {
goto lab←L100034;
};
lab←L100037: ;
{
word a←v11328;
SOURCE(8035, 27)
{
word pd209;
pd209 = (* (( (ptr) (* (( (ptr) gf←c38892)+169)/* var←c35532 */ ))+79) );
a←v11328 = (word) ( *( (fPt) ((* (ptr) pd209 ))))(var←c38860.f7/* reply←v11152 */ , pd209);
};
SOURCE(8064, 28)
{
word var←c36844;
var←c36844 = XR←NewObject(8, (* (( (ptr) gf←c38892)+16) ));
(* (ptr) var←c36844 ) = a←v11328;
(* (( (ptr) var←c36844)+1) ) = list←v6176;
list←v6176 = var←c36844;
};
};
i←v11284 = (i←v11284 + 1);
if (( (int)i←v11284 < (int)noName←c36780)) {
goto lab←L100037;
};
lab←L100034: ;
};
SOURCE(8094, 22)
{
word pd210;
pd210 = (* (( (ptr) (* (( (ptr) gf←c38892)+169)/* var←c35532 */ ))+67) );
(void) ( *( (fPt) ((* (ptr) pd210 ))))(c←v6104, var←c38860.f7/* reply←v11152 */ , pd210);
};
/* removed tail goto */
(* (ptr) formal←c0235 ) = list←v6176;
(* (( (ptr) formal←c0235)+1) ) = num←v6204;
return;
}
static void action←P3528(c←v11256, formal←c38956)
word c←v11256;
word formal←c38956;
{
register ptr gf←c38924 = (ptr) &globalframe;
formal←c38956 = (formal←c38956 - 20);
/* action: */
SOURCE(7801, 99)
SOURCE(7834, 18)
{
word pd211;
pd211 = (* (( (ptr) (* (( (ptr) gf←c38924)+169)/* var←c35532 */ ))+17) );
(void) ( *( (fPt) ((* (ptr) pd211 ))))(c←v11256, 21, 0, 2, pd211);
};
SOURCE(7854, 18)
{
word pd212;
pd212 = (* (( (ptr) (* (( (ptr) gf←c38924)+169)/* var←c35532 */ ))+27) );
(void) ( *( (fPt) ((* (ptr) pd212 ))))(c←v11256, (* (( (ptr) formal←c38956)+4) ), pd212);
};
SOURCE(7874, 26)
{
word pd213;
pd213 = (* (( (ptr) (* (( (ptr) gf←c38924)+169)/* var←c35532 */ ))+62) );
(* (( (ptr) formal←c38956)+7) ) = (word) ( *( (fPt) ((* (ptr) pd213 ))))(c←v11256, pd213);
};
}
static void RotateProperties←P960(c←v6348, formal←c0510, formal←c0511, formal←c0512, formal←c0513)
word c←v6348;
word formal←c0510;
word formal←c0511;
word formal←c0512;
word formal←c0513;
{
W11 var←c38988;
/* declaration of w←v6376 skipped */
/* declaration of delta←v6404 skipped */
/* declaration of properties←v6432 skipped */
/* declaration of details←v6460 skipped */
register ptr gf←c39020 = (ptr) &globalframe;
/* declaration of var←c36876 skipped */
/* declaration of cnt←v11400 skipped */
word lst←v11428;
(* (( (ptr) &var←c38988)+4)/* w←v6376 */ ) = formal←c0510;
(* (( (ptr) &var←c38988)+5)/* delta←v6404 */ ) = formal←c0511;
(* (( (ptr) &var←c38988)+6)/* properties←v6432 */ ) = formal←c0512;
(* (( (ptr) &var←c38988)+7)/* details←v6460 */ ) = formal←c0513;
/* RotateProperties: */
SOURCE(8122, 762)
{
word tmpAddr214;
tmpAddr214 = (word) (( (ptr) &var←c38988)+8)/* var←c36876 */ ;
(* (ptr) tmpAddr214 ) = ( ((word) (fPt) action←P3684) );
(* (( (ptr) tmpAddr214) + 1) ) = 1;
};
SOURCE(8635, 14)
(* (( (ptr) &var←c38988)+10)/* cnt←v11400 */ ) = 0;
SOURCE(8651, 5)
lst←v11428 = (* (( (ptr) &var←c38988)+6)/* properties←v6432 */ );
SOURCE(8684, 86)
lab←L100040: ;
if ( ( (lst←v11428 != 0) ? ( (int)(* (( (ptr) &var←c38988)+10)/* cnt←v11400 */ ) < (int)(* (( (ptr) (* (( (ptr) c←v6348)+16)
))+6) )) : 0 ) ) {
}
else {
goto lab←L100038;
};
SOURCE(8734, 11)
{
word idx215;
(* (( (ptr) &var←c38988)+10)/* cnt←v11400 */ ) = ((
idx215 = (word) ((* (( (ptr) &var←c38988)+10)/* cnt←v11400 */ ) + 32769),
BCK(idx215, 65536)
) - 32768);
};
SOURCE(8747, 23)
lst←v11428 = (* (( (ptr) lst←v11428)+1) );
goto lab←L100040;
lab←L100038: ;
SOURCE(8773, 45)
if (( (int)(* (( (ptr) &var←c38988)+10)/* cnt←v11400 */ ) > (int)1000)) {
SOURCE(8790, 28)
(void) RaiseClientError←P60(c←v6348, (* (( (ptr) gf←c39020)+23) ));
};
SOURCE(8820, 31)
if (( (int)(* (( (ptr) &var←c38988)+10)/* cnt←v11400 */ ) == (int)0) || ( (int)(* (( (ptr) &var←c38988)+5)/* delta←v6404 */ ) == (int)0)) {
SOURCE(8845, 6)
return;
};
SOURCE(8853, 31)
{
word pd216;
pd216 = (* (( (ptr) (* (( (ptr) gf←c39020)+169)/* var←c35532 */ ))+6) );
(void) ( *( (fPt) ((* (ptr) pd216 ))))(c←v6348, (word) (( (bPt) &var←c38988)+32)/* var←c36876 */ , (* (( (ptr) &var←c38988)+7)
/* details←v6460 */ ), pd216);
};
}
static void action←P3684(c←v11504, formal←c39084)
word c←v11504;
word formal←c39084;
{
register ptr gf←c39052 = (ptr) &globalframe;
formal←c39084 = (formal←c39084 - 32);
/* action: */
SOURCE(8240, 390)
SOURCE(8273, 23)
{
word pd217;
pd217 = (* (( (ptr) (* (( (ptr) gf←c39052)+169)/* var←c35532 */ ))+17) );
(void) ( *( (fPt) ((* (ptr) pd217 ))))(c←v11504, 114, 0, ((* (( (ptr) formal←c39084)+10) ) + 3), pd217);
};
SOURCE(8298, 18)
{
word pd218;
pd218 = (* (( (ptr) (* (( (ptr) gf←c39052)+169)/* var←c35532 */ ))+27) );
(void) ( *( (fPt) ((* (ptr) pd218 ))))(c←v11504, (* (( (ptr) formal←c39084)+4) ), pd218);
};
SOURCE(8318, 21)
{
word pd219;
pd219 = (* (( (ptr) (* (( (ptr) gf←c39052)+169)/* var←c35532 */ ))+26) );
(void) ( *( (fPt) ((* (ptr) pd219 ))))(c←v11504, (* (( (ptr) formal←c39084)+10) ), pd219);
};
SOURCE(8341, 42)
{
word pd220;
pd220 = (* (( (ptr) (* (( (ptr) gf←c39052)+169)/* var←c35532 */ ))+20) );
(void) ( *( (fPt) ((* (ptr) pd220 ))))(c←v11504, ( (((unsigned)(* (( (ptr) formal←c39084)+5) ) << 16) >> 16) ), pd220);
};
SOURCE(8385, 214)
{
register word i←v11616 = 0;
register word noName←c36908;
noName←c36908 = (* (( (ptr) formal←c39084)+10) );
if (( (int)i←v11616 >= (int)noName←c36908)) {
goto lab←L100041;
};
lab←L100044: ;
SOURCE(8411, 45)
if (((* (( (ptr) formal←c39084)+6) ) == 0)) {
SOURCE(8434, 22)
(* (( (ptr) formal←c39084)+6) ) = XR←NewObject(8, (* (( (ptr) gf←c39052)+16) ));
{
word var←c36972;
var←c36972 = (* (( (ptr) formal←c39084)+6) );
};
};
SOURCE(8532, 29)
(void) BPutProp←P480(c←v11504, (* (ptr) (* (( (ptr) formal←c39084)+6) ) ));
SOURCE(8563, 36)
(* (( (ptr) formal←c39084)+6) ) = (* (( (ptr) (* (( (ptr) formal←c39084)+6) ))+1) );
i←v11616 = (i←v11616 + 1);
if (( (int)i←v11616 < (int)noName←c36908)) {
goto lab←L100044;
};
lab←L100041: ;
};
SOURCE(8601, 29)
{
word pd221;
pd221 = (* (( (ptr) (* (( (ptr) gf←c39052)+169)/* var←c35532 */ ))+64) );
(void) ( *( (fPt) ((* (ptr) pd221 ))))(c←v11504, (* (( (ptr) formal←c39084)+7) ), pd221);
};
}
static void PredefineAtoms←P1020()
{
W6 var←c39116;
register ptr gf←c39148 = (ptr) &globalframe;
/* declaration of var←c37004 skipped */
/* PredefineAtoms: */
SOURCE(8890, 2373)
{
word tmpAddr222;
tmpAddr222 = (word) (( (ptr) &var←c39116)+4)/* var←c37004 */ ;
(* (ptr) tmpAddr222 ) = ( ((word) (fPt) Def←P3792) );
(* (( (ptr) tmpAddr222) + 1) ) = 1;
};
SOURCE(9124, 23)
(void) Def←P3792(0, 0, (word) (( (bPt) &var←c39116)+16)/* var←c37004 */ );
SOURCE(9150, 23)
(void) Def←P3792((* (( (ptr) gf←c39148)+29) ), 1, (word) (( (bPt) &var←c39116)+16)/* var←c37004 */ );
SOURCE(9175, 27)
(void) Def←P3792((* (( (ptr) gf←c39148)+30) ), 2, (word) (( (bPt) &var←c39116)+16)/* var←c37004 */ );
SOURCE(9205, 15)
(void) Def←P3792((* (( (ptr) gf←c39148)+31) ), 3, (word) (( (bPt) &var←c39116)+16)/* var←c37004 */ );
SOURCE(9223, 17)
(void) Def←P3792((* (( (ptr) gf←c39148)+32) ), 4, (word) (( (bPt) &var←c39116)+16)/* var←c37004 */ );
SOURCE(9244, 21)
(void) Def←P3792((* (( (ptr) gf←c39148)+33) ), 5, (word) (( (bPt) &var←c39116)+16)/* var←c37004 */ );
SOURCE(9267, 25)
(void) Def←P3792((* (( (ptr) gf←c39148)+34) ), 6, (word) (( (bPt) &var←c39116)+16)/* var←c37004 */ );
SOURCE(9295, 25)
(void) Def←P3792((* (( (ptr) gf←c39148)+35) ), 7, (word) (( (bPt) &var←c39116)+16)/* var←c37004 */ );
SOURCE(9322, 21)
(void) Def←P3792((* (( (ptr) gf←c39148)+36) ), 8, (word) (( (bPt) &var←c39116)+16)/* var←c37004 */ );
SOURCE(9347, 30)
(void) Def←P3792((* (( (ptr) gf←c39148)+37) ), 9, (word) (( (bPt) &var←c39116)+16)/* var←c37004 */ );
SOURCE(9379, 30)
(void) Def←P3792((* (( (ptr) gf←c39148)+38) ), 10, (word) (( (bPt) &var←c39116)+16)/* var←c37004 */ );
SOURCE(9412, 30)
(void) Def←P3792((* (( (ptr) gf←c39148)+39) ), 11, (word) (( (bPt) &var←c39116)+16)/* var←c37004 */ );
SOURCE(9444, 30)
(void) Def←P3792((* (( (ptr) gf←c39148)+40) ), 12, (word) (( (bPt) &var←c39116)+16)/* var←c37004 */ );
SOURCE(9477, 30)
(void) Def←P3792((* (( (ptr) gf←c39148)+41) ), 13, (word) (( (bPt) &var←c39116)+16)/* var←c37004 */ );
SOURCE(9509, 30)
(void) Def←P3792((* (( (ptr) gf←c39148)+42) ), 14, (word) (( (bPt) &var←c39116)+16)/* var←c37004 */ );
SOURCE(9542, 30)
(void) Def←P3792((* (( (ptr) gf←c39148)+43) ), 15, (word) (( (bPt) &var←c39116)+16)/* var←c37004 */ );
SOURCE(9574, 30)
(void) Def←P3792((* (( (ptr) gf←c39148)+44) ), 16, (word) (( (bPt) &var←c39116)+16)/* var←c37004 */ );
SOURCE(9607, 25)
(void) Def←P3792((* (( (ptr) gf←c39148)+45) ), 17, (word) (( (bPt) &var←c39116)+16)/* var←c37004 */ );
SOURCE(9634, 17)
(void) Def←P3792((* (( (ptr) gf←c39148)+46) ), 18, (word) (( (bPt) &var←c39116)+16)/* var←c37004 */ );
SOURCE(9655, 21)
(void) Def←P3792((* (( (ptr) gf←c39148)+47) ), 21, (word) (( (bPt) &var←c39116)+16)/* var←c37004 */ );
SOURCE(9678, 21)
(void) Def←P3792((* (( (ptr) gf←c39148)+48) ), 20, (word) (( (bPt) &var←c39116)+16)/* var←c37004 */ );
SOURCE(9703, 19)
(void) Def←P3792((* (( (ptr) gf←c39148)+49) ), 21, (word) (( (bPt) &var←c39116)+16)/* var←c37004 */ );
SOURCE(9724, 27)
(void) Def←P3792((* (( (ptr) gf←c39148)+50) ), 22, (word) (( (bPt) &var←c39116)+16)/* var←c37004 */ );
SOURCE(9754, 40)
(void) Def←P3792((* (( (ptr) gf←c39148)+51) ), 23, (word) (( (bPt) &var←c39116)+16)/* var←c37004 */ );
SOURCE(9796, 33)
(void) Def←P3792((* (( (ptr) gf←c39148)+52) ), 24, (word) (( (bPt) &var←c39116)+16)/* var←c37004 */ );
SOURCE(9831, 31)
(void) Def←P3792((* (( (ptr) gf←c39148)+53) ), 25, (word) (( (bPt) &var←c39116)+16)/* var←c37004 */ );
SOURCE(9864, 31)
(void) Def←P3792((* (( (ptr) gf←c39148)+54) ), 26, (word) (( (bPt) &var←c39116)+16)/* var←c37004 */ );
SOURCE(9898, 37)
(void) Def←P3792((* (( (ptr) gf←c39148)+55) ), 27, (word) (( (bPt) &var←c39116)+16)/* var←c37004 */ );
SOURCE(9937, 31)
(void) Def←P3792((* (( (ptr) gf←c39148)+56) ), 28, (word) (( (bPt) &var←c39116)+16)/* var←c37004 */ );
SOURCE(9971, 33)
(void) Def←P3792((* (( (ptr) gf←c39148)+57) ), 29, (word) (( (bPt) &var←c39116)+16)/* var←c37004 */ );
SOURCE(10006, 29)
(void) Def←P3792((* (( (ptr) gf←c39148)+58) ), 30, (word) (( (bPt) &var←c39116)+16)/* var←c37004 */ );
SOURCE(10038, 21)
(void) Def←P3792((* (( (ptr) gf←c39148)+59) ), 31, (word) (( (bPt) &var←c39116)+16)/* var←c37004 */ );
SOURCE(10061, 25)
(void) Def←P3792((* (( (ptr) gf←c39148)+60) ), 32, (word) (( (bPt) &var←c39116)+16)/* var←c37004 */ );
SOURCE(10089, 21)
(void) Def←P3792((* (( (ptr) gf←c39148)+61) ), 33, (word) (( (bPt) &var←c39116)+16)/* var←c37004 */ );
SOURCE(10112, 28)
(void) Def←P3792((* (( (ptr) gf←c39148)+62) ), 34, (word) (( (bPt) &var←c39116)+16)/* var←c37004 */ );
SOURCE(10143, 24)
(void) Def←P3792((* (( (ptr) gf←c39148)+63) ), 35, (word) (( (bPt) &var←c39116)+16)/* var←c37004 */ );
SOURCE(10169, 41)
(void) Def←P3792((* (( (ptr) gf←c39148)+64) ), 36, (word) (( (bPt) &var←c39116)+16)/* var←c37004 */ );
SOURCE(10212, 31)
(void) Def←P3792((* (( (ptr) gf←c39148)+65) ), 37, (word) (( (bPt) &var←c39116)+16)/* var←c37004 */ );
SOURCE(10245, 31)
(void) Def←P3792((* (( (ptr) gf←c39148)+66) ), 38, (word) (( (bPt) &var←c39116)+16)/* var←c37004 */ );
SOURCE(10279, 22)
(void) Def←P3792((* (( (ptr) gf←c39148)+67) ), 39, (word) (( (bPt) &var←c39116)+16)/* var←c37004 */ );
SOURCE(10303, 37)
(void) Def←P3792((* (( (ptr) gf←c39148)+68) ), 40, (word) (( (bPt) &var←c39116)+16)/* var←c37004 */ );
SOURCE(10342, 33)
(void) Def←P3792((* (( (ptr) gf←c39148)+69) ), 41, (word) (( (bPt) &var←c39116)+16)/* var←c37004 */ );
SOURCE(10377, 33)
(void) Def←P3792((* (( (ptr) gf←c39148)+70) ), 42, (word) (( (bPt) &var←c39116)+16)/* var←c37004 */ );
SOURCE(10412, 26)
(void) Def←P3792((* (( (ptr) gf←c39148)+71) ), 43, (word) (( (bPt) &var←c39116)+16)/* var←c37004 */ );
SOURCE(10440, 28)
(void) Def←P3792((* (( (ptr) gf←c39148)+72) ), 44, (word) (( (bPt) &var←c39116)+16)/* var←c37004 */ );
SOURCE(10471, 26)
(void) Def←P3792((* (( (ptr) gf←c39148)+73) ), 45, (word) (( (bPt) &var←c39116)+16)/* var←c37004 */ );
SOURCE(10499, 26)
(void) Def←P3792((* (( (ptr) gf←c39148)+74) ), 46, (word) (( (bPt) &var←c39116)+16)/* var←c37004 */ );
SOURCE(10528, 34)
(void) Def←P3792((* (( (ptr) gf←c39148)+75) ), 47, (word) (( (bPt) &var←c39116)+16)/* var←c37004 */ );
SOURCE(10564, 34)
(void) Def←P3792((* (( (ptr) gf←c39148)+76) ), 48, (word) (( (bPt) &var←c39116)+16)/* var←c37004 */ );
SOURCE(10601, 30)
(void) Def←P3792((* (( (ptr) gf←c39148)+77) ), 49, (word) (( (bPt) &var←c39116)+16)/* var←c37004 */ );
SOURCE(10633, 30)
(void) Def←P3792((* (( (ptr) gf←c39148)+78) ), 50, (word) (( (bPt) &var←c39116)+16)/* var←c37004 */ );
SOURCE(10666, 44)
(void) Def←P3792((* (( (ptr) gf←c39148)+79) ), 51, (word) (( (bPt) &var←c39116)+16)/* var←c37004 */ );
SOURCE(10712, 46)
(void) Def←P3792((* (( (ptr) gf←c39148)+80) ), 52, (word) (( (bPt) &var←c39116)+16)/* var←c37004 */ );
SOURCE(10760, 40)
(void) Def←P3792((* (( (ptr) gf←c39148)+81) ), 53, (word) (( (bPt) &var←c39116)+16)/* var←c37004 */ );
SOURCE(10802, 42)
(void) Def←P3792((* (( (ptr) gf←c39148)+82) ), 54, (word) (( (bPt) &var←c39116)+16)/* var←c37004 */ );
SOURCE(10846, 32)
(void) Def←P3792((* (( (ptr) gf←c39148)+83) ), 55, (word) (( (bPt) &var←c39116)+16)/* var←c37004 */ );
SOURCE(10880, 24)
(void) Def←P3792((* (( (ptr) gf←c39148)+84) ), 56, (word) (( (bPt) &var←c39116)+16)/* var←c37004 */ );
SOURCE(10907, 28)
(void) Def←P3792((* (( (ptr) gf←c39148)+85) ), 57, (word) (( (bPt) &var←c39116)+16)/* var←c37004 */ );
SOURCE(10937, 21)
(void) Def←P3792((* (( (ptr) gf←c39148)+86) ), 58, (word) (( (bPt) &var←c39116)+16)/* var←c37004 */ );
SOURCE(10962, 28)
(void) Def←P3792((* (( (ptr) gf←c39148)+87) ), 59, (word) (( (bPt) &var←c39116)+16)/* var←c37004 */ );
SOURCE(10992, 29)
(void) Def←P3792((* (( (ptr) gf←c39148)+88) ), 60, (word) (( (bPt) &var←c39116)+16)/* var←c37004 */ );
SOURCE(11024, 27)
(void) Def←P3792((* (( (ptr) gf←c39148)+89) ), 61, (word) (( (bPt) &var←c39116)+16)/* var←c37004 */ );
SOURCE(11053, 21)
(void) Def←P3792((* (( (ptr) gf←c39148)+90) ), 62, (word) (( (bPt) &var←c39116)+16)/* var←c37004 */ );
SOURCE(11078, 26)
(void) Def←P3792((* (( (ptr) gf←c39148)+91) ), 63, (word) (( (bPt) &var←c39116)+16)/* var←c37004 */ );
SOURCE(11106, 30)
(void) Def←P3792((* (( (ptr) gf←c39148)+92) ), 64, (word) (( (bPt) &var←c39116)+16)/* var←c37004 */ );
SOURCE(11139, 26)
(void) Def←P3792((* (( (ptr) gf←c39148)+93) ), 65, (word) (( (bPt) &var←c39116)+16)/* var←c37004 */ );
SOURCE(11167, 28)
(void) Def←P3792((* (( (ptr) gf←c39148)+94) ), 66, (word) (( (bPt) &var←c39116)+16)/* var←c37004 */ );
SOURCE(11198, 24)
(void) Def←P3792((* (( (ptr) gf←c39148)+95) ), 67, (word) (( (bPt) &var←c39116)+16)/* var←c37004 */ );
SOURCE(11224, 39)
(void) Def←P3792((* (( (ptr) gf←c39148)+96) ), 68, (word) (( (bPt) &var←c39116)+16)/* var←c37004 */ );
}
static void Def←P3792(r←v11736, atom←v11764, formal←c39212)
word r←v11736;
word atom←v11764;
word formal←c39212;
{
register ptr gf←c39180 = (ptr) &globalframe;
word key←v11792;
formal←c39212 = (formal←c39212 - 16);
/* Def: */
SOURCE(8941, 178)
SOURCE(8978, 29)
key←v11792 = atom←v11764;
SOURCE(9009, 30)
if ((key←v11792 > 68)) {
SOURCE(9039, 5)
(void) XR←RaiseUnnamedError();
};
SOURCE(9046, 19)
(* (( (ptr) (* (( (ptr) gf←c39180)+4)/* atomToName←v3224 */ ))+BCK(key←v11792, 69)) ) = r←v11736;
SOURCE(9067, 52)
{
word var←c37100;
{
word var←c37036;
{
word var←c37068;
var←c37068 = XR←NewObject(4, (* (( (ptr) gf←c39180)+12) ));
(* (ptr) var←c37068 ) = atom←v11764;
var←c37036 = var←c37068;
};
{
word pd223;
pd223 = (* (( (ptr) (* (( (ptr) gf←c39180)+164)/* var←c35052 */ ))+11) );
var←c37100 = (word) ( *( (fPt) ((* (ptr) pd223 ))))((* (( (ptr) gf←c39180)+5)/* nameToAtom←v3252 */ ), r←v11736, var←c37036, pd223)
;
};
};
};
}
static void SetSelectionOwner←P1080(c←v6620, formal←c0514, formal←c0515, formal←c0516, formal←c0517)
word c←v6620;
word formal←c0514;
word formal←c0515;
word formal←c0516;
word formal←c0517;
{
W10 var←c39244;
/* declaration of owner←v6648 skipped */
/* declaration of selection←v6676 skipped */
/* declaration of time←v6704 skipped */
/* declaration of details←v6732 skipped */
register ptr gf←c39276 = (ptr) &globalframe;
/* declaration of var←c37132 skipped */
(* (( (ptr) &var←c39244)+4)/* owner←v6648 */ ) = formal←c0514;
(* (( (ptr) &var←c39244)+5)/* selection←v6676 */ ) = formal←c0515;
(* (( (ptr) &var←c39244)+6)/* time←v6704 */ ) = formal←c0516;
(* (( (ptr) &var←c39244)+7)/* details←v6732 */ ) = formal←c0517;
/* SetSelectionOwner: */
SOURCE(11269, 386)
{
word tmpAddr224;
tmpAddr224 = (word) (( (ptr) &var←c39244)+8)/* var←c37132 */ ;
(* (ptr) tmpAddr224 ) = ( ((word) (fPt) action←P3852) );
(* (( (ptr) tmpAddr224) + 1) ) = 1;
};
SOURCE(11624, 31)
{
word pd225;
pd225 = (* (( (ptr) (* (( (ptr) gf←c39276)+169)/* var←c35532 */ ))+6) );
(void) ( *( (fPt) ((* (ptr) pd225 ))))(c←v6620, (word) (( (bPt) &var←c39244)+32)/* var←c37132 */ , (* (( (ptr) &var←c39244)+7)
/* details←v6732 */ ), pd225);
};
}
static void action←P3852(c←v11912, formal←c39340)
word c←v11912;
word formal←c39340;
{
register ptr gf←c39308 = (ptr) &globalframe;
formal←c39340 = (formal←c39340 - 32);
/* action: */
SOURCE(11401, 152)
SOURCE(11434, 18)
{
word pd226;
pd226 = (* (( (ptr) (* (( (ptr) gf←c39308)+169)/* var←c35532 */ ))+17) );
(void) ( *( (fPt) ((* (ptr) pd226 ))))(c←v11912, 22, 0, 4, pd226);
};
SOURCE(11454, 22)
{
word pd227;
pd227 = (* (( (ptr) (* (( (ptr) gf←c39308)+169)/* var←c35532 */ ))+27) );
(void) ( *( (fPt) ((* (ptr) pd227 ))))(c←v11912, (* (( (ptr) formal←c39340)+4) ), pd227);
};
SOURCE(11479, 22)
(void) BPutProp←P480(c←v11912, (* (( (ptr) formal←c39340)+5) ));
SOURCE(11504, 17)
{
word pd228;
pd228 = (* (( (ptr) (* (( (ptr) gf←c39308)+169)/* var←c35532 */ ))+33) );
(void) ( *( (fPt) ((* (ptr) pd228 ))))(c←v11912, (* (( (ptr) formal←c39340)+6) ), pd228);
};
SOURCE(11524, 29)
{
word pd229;
pd229 = (* (( (ptr) (* (( (ptr) gf←c39308)+169)/* var←c35532 */ ))+64) );
(void) ( *( (fPt) ((* (ptr) pd229 ))))(c←v11912, (* (( (ptr) formal←c39340)+7) ), pd229);
};
}
static word GetSelectionOwner←P1140(c←v6792, formal←c0518)
word c←v6792;
word formal←c0518;
{
W8 var←c39372;
/* declaration of selection←v6820 skipped */
register ptr gf←c39404 = (ptr) &globalframe;
word owner←v6864;
/* declaration of var←c37164 skipped */
/* declaration of reply←v11968 skipped */
var←c39372.f4/* selection←v6820 */ = formal←c0518;
/* GetSelectionOwner: */
SOURCE(11661, 352)
{
word tmpAddr230;
tmpAddr230 = (word) (( (ptr) &var←c39372)+5)/* var←c37164 */ ;
(* (ptr) tmpAddr230 ) = ( ((word) (fPt) action←P3912) );
(* (( (ptr) tmpAddr230) + 1) ) = 1;
};
SOURCE(11661, 352)
owner←v6864 = 0;
SOURCE(11876, 12)
var←c39372.f7/* reply←v11968 */ = 0;
SOURCE(11890, 27)
{
word pd231;
pd231 = (* (( (ptr) (* (( (ptr) gf←c39404)+169)/* var←c35532 */ ))+6) );
(void) ( *( (fPt) ((* (ptr) pd231 ))))(c←v6792, (word) (( (bPt) &var←c39372)+20)/* var←c37164 */ , 0, pd231);
};
SOURCE(11919, 17)
{
word pd232;
pd232 = (* (( (ptr) (* (( (ptr) gf←c39404)+169)/* var←c35532 */ ))+68) );
(void) ( *( (fPt) ((* (ptr) pd232 ))))(var←c39372.f7/* reply←v11968 */ , pd232);
};
SOURCE(11938, 14)
(* (( (ptr) var←c39372.f7/* reply←v11968 */ )+10) ) = ((* (( (ptr) var←c39372.f7/* reply←v11968 */ )+10) ) + 7);
SOURCE(11954, 35)
{
word var←c37196;
word c←v33176;
word id←v33204;
c←v33176 = c←v6792;
{
word pd233;
pd233 = (* (( (ptr) (* (( (ptr) gf←c39404)+169)/* var←c35532 */ ))+79) );
id←v33204 = (word) ( *( (fPt) ((* (ptr) pd233 ))))(var←c39372.f7/* reply←v11968 */ , pd233);
};
var←c37196 = id←v33204;
owner←v6864 = var←c37196;
};
SOURCE(11991, 22)
{
word pd234;
pd234 = (* (( (ptr) (* (( (ptr) gf←c39404)+169)/* var←c35532 */ ))+67) );
(void) ( *( (fPt) ((* (ptr) pd234 ))))(c←v6792, var←c39372.f7/* reply←v11968 */ , pd234);
};
SOURCE(11661, 352)
return(owner←v6864);
}
static void action←P3912(c←v12044, formal←c39468)
word c←v12044;
word formal←c39468;
{
register ptr gf←c39436 = (ptr) &globalframe;
formal←c39468 = (formal←c39468 - 20);
/* action: */
SOURCE(11767, 104)
SOURCE(11800, 18)
{
word pd235;
pd235 = (* (( (ptr) (* (( (ptr) gf←c39436)+169)/* var←c35532 */ ))+17) );
(void) ( *( (fPt) ((* (ptr) pd235 ))))(c←v12044, 23, 0, 2, pd235);
};
SOURCE(11820, 22)
(void) BPutProp←P480(c←v12044, (* (( (ptr) formal←c39468)+4) ));
SOURCE(11845, 26)
{
word pd236;
pd236 = (* (( (ptr) (* (( (ptr) gf←c39436)+169)/* var←c35532 */ ))+62) );
(* (( (ptr) formal←c39468)+7) ) = (word) ( *( (fPt) ((* (ptr) pd236 ))))(c←v12044, pd236);
};
}
static void ConvertSelection←P1200(c←v6924, formal←c0519, formal←c0520, formal←c0521, formal←c0522, formal←c0523, formal←c0524)
word c←v6924;
word formal←c0519;
word formal←c0520;
word formal←c0521;
word formal←c0522;
word formal←c0523;
word formal←c0524;
{
W12 var←c39500;
/* declaration of requestor←v6952 skipped */
/* declaration of selection←v6980 skipped */
/* declaration of target←v7008 skipped */
/* declaration of property←v7036 skipped */
/* declaration of time←v7064 skipped */
/* declaration of details←v7092 skipped */
register ptr gf←c39532 = (ptr) &globalframe;
/* declaration of var←c37228 skipped */
(* (( (ptr) &var←c39500)+4)/* requestor←v6952 */ ) = formal←c0519;
(* (( (ptr) &var←c39500)+5)/* selection←v6980 */ ) = formal←c0520;
(* (( (ptr) &var←c39500)+6)/* target←v7008 */ ) = formal←c0521;
(* (( (ptr) &var←c39500)+7)/* property←v7036 */ ) = formal←c0522;
(* (( (ptr) &var←c39500)+8)/* time←v7064 */ ) = formal←c0523;
(* (( (ptr) &var←c39500)+9)/* details←v7092 */ ) = formal←c0524;
/* ConvertSelection: */
SOURCE(12019, 462)
{
word tmpAddr237;
tmpAddr237 = (word) (( (ptr) &var←c39500)+10)/* var←c37228 */ ;
(* (ptr) tmpAddr237 ) = ( ((word) (fPt) action←P3972) );
(* (( (ptr) tmpAddr237) + 1) ) = 1;
};
SOURCE(12450, 31)
{
word pd238;
pd238 = (* (( (ptr) (* (( (ptr) gf←c39532)+169)/* var←c35532 */ ))+6) );
(void) ( *( (fPt) ((* (ptr) pd238 ))))(c←v6924, (word) (( (bPt) &var←c39500)+40)/* var←c37228 */ , (* (( (ptr) &var←c39500)+9)
/* details←v7092 */ ), pd238);
};
}
static void action←P3972(c←v12148, formal←c39596)
word c←v12148;
word formal←c39596;
{
register ptr gf←c39564 = (ptr) &globalframe;
formal←c39596 = (formal←c39596 - 40);
/* action: */
SOURCE(12193, 252)
SOURCE(12226, 18)
{
word pd239;
pd239 = (* (( (ptr) (* (( (ptr) gf←c39564)+169)/* var←c35532 */ ))+17) );
(void) ( *( (fPt) ((* (ptr) pd239 ))))(c←v12148, 24, 0, 6, pd239);
};
SOURCE(12246, 26)
{
word pd240;
pd240 = (* (( (ptr) (* (( (ptr) gf←c39564)+169)/* var←c35532 */ ))+27) );
(void) ( *( (fPt) ((* (ptr) pd240 ))))(c←v12148, (* (( (ptr) formal←c39596)+4) ), pd240);
};
SOURCE(12275, 22)
(void) BPutProp←P480(c←v12148, (* (( (ptr) formal←c39596)+5) ));
SOURCE(12300, 19)
(void) BPutProp←P480(c←v12148, (* (( (ptr) formal←c39596)+6) ));
SOURCE(12322, 21)
(void) BPutProp←P480(c←v12148, (* (( (ptr) formal←c39596)+7) ));
SOURCE(12346, 17)
{
word pd241;
pd241 = (* (( (ptr) (* (( (ptr) gf←c39564)+169)/* var←c35532 */ ))+33) );
(void) ( *( (fPt) ((* (ptr) pd241 ))))(c←v12148, (* (( (ptr) formal←c39596)+8) ), pd241);
};
SOURCE(12366, 29)
{
word pd242;
pd242 = (* (( (ptr) (* (( (ptr) gf←c39564)+169)/* var←c35532 */ ))+64) );
(void) ( *( (fPt) ((* (ptr) pd242 ))))(c←v12148, (* (( (ptr) formal←c39596)+9) ), pd242);
};
SOURCE(12397, 48)
if (((* (( (ptr) formal←c39596)+9) ) == 0)) {
SOURCE(12417, 28)
{
word pd243;
if (((* (( (ptr) c←v12148)+5) ) != 0) || (0 != (* (( (ptr) c←v12148)+35) ))) {
pd243 = (* (( (ptr) (* (( (ptr) gf←c39564)+169)/* var←c35532 */ ))+13) );
(void) ( *( (fPt) ((* (ptr) pd243 ))))(c←v12148, 0, pd243);
};
};
};
}
static void SendSelectionNotifyEvent←P1260(c←v7152, formal←c0525, formal←c0526, formal←c0527, formal←c0528, formal←c0529, formal←c0530)
word c←v7152;
word formal←c0525;
word formal←c0526;
word formal←c0527;
word formal←c0528;
word formal←c0529;
word formal←c0530;
{
W12 var←c39628;
/* declaration of destination←v7180 skipped */
/* declaration of selection←v7208 skipped */
/* declaration of target←v7236 skipped */
/* declaration of property←v7264 skipped */
/* declaration of timeStamp←v7292 skipped */
/* declaration of details←v7320 skipped */
register ptr gf←c39660 = (ptr) &globalframe;
/* declaration of var←c37260 skipped */
(* (( (ptr) &var←c39628)+4)/* destination←v7180 */ ) = formal←c0525;
(* (( (ptr) &var←c39628)+5)/* selection←v7208 */ ) = formal←c0526;
(* (( (ptr) &var←c39628)+6)/* target←v7236 */ ) = formal←c0527;
(* (( (ptr) &var←c39628)+7)/* property←v7264 */ ) = formal←c0528;
(* (( (ptr) &var←c39628)+8)/* timeStamp←v7292 */ ) = formal←c0529;
(* (( (ptr) &var←c39628)+9)/* details←v7320 */ ) = formal←c0530;
/* SendSelectionNotifyEvent: */
SOURCE(12487, 681)
{
word tmpAddr244;
tmpAddr244 = (word) (( (ptr) &var←c39628)+10)/* var←c37260 */ ;
(* (ptr) tmpAddr244 ) = ( ((word) (fPt) action←P4032) );
(* (( (ptr) tmpAddr244) + 1) ) = 1;
};
SOURCE(13137, 31)
{
word pd245;
pd245 = (* (( (ptr) (* (( (ptr) gf←c39660)+169)/* var←c35532 */ ))+6) );
(void) ( *( (fPt) ((* (ptr) pd245 ))))(c←v7152, (word) (( (bPt) &var←c39628)+40)/* var←c37260 */ , (* (( (ptr) &var←c39628)+9)
/* details←v7320 */ ), pd245);
};
}
static void action←P4032(c←v12252, formal←c39724)
word c←v12252;
word formal←c39724;
{
register ptr gf←c39692 = (ptr) &globalframe;
formal←c39724 = (formal←c39724 - 40);
/* action: */
SOURCE(12662, 470)
SOURCE(12695, 38)
{
word pd246;
pd246 = (* (( (ptr) (* (( (ptr) gf←c39692)+169)/* var←c35532 */ ))+17) );
(void) ( *( (fPt) ((* (ptr) pd246 ))))(c←v12252, 25, 1, 11, pd246);
};
SOURCE(12735, 28)
{
word pd247;
pd247 = (* (( (ptr) (* (( (ptr) gf←c39692)+169)/* var←c35532 */ ))+27) );
(void) ( *( (fPt) ((* (ptr) pd247 ))))(c←v12252, (* (( (ptr) formal←c39724)+4) ), pd247);
};
SOURCE(12765, 12)
{
word pd248;
pd248 = (* (( (ptr) (* (( (ptr) gf←c39692)+169)/* var←c35532 */ ))+21) );
(void) ( *( (fPt) ((* (ptr) pd248 ))))(c←v12252, 0, pd248);
};
SOURCE(12792, 12)
{
word pd249;
pd249 = (* (( (ptr) (* (( (ptr) gf←c39692)+169)/* var←c35532 */ ))+19) );
(void) ( *( (fPt) ((* (ptr) pd249 ))))(c←v12252, 31, pd249);
};
SOURCE(12813, 11)
{
word pd250;
pd250 = (* (( (ptr) (* (( (ptr) gf←c39692)+169)/* var←c35532 */ ))+19) );
(void) ( *( (fPt) ((* (ptr) pd250 ))))(c←v12252, 0, pd250);
};
SOURCE(12835, 12)
{
word pd251;
pd251 = (* (( (ptr) (* (( (ptr) gf←c39692)+169)/* var←c35532 */ ))+20) );
(void) ( *( (fPt) ((* (ptr) pd251 ))))(c←v12252, 0, pd251);
};
SOURCE(12897, 22)
{
word pd252;
pd252 = (* (( (ptr) (* (( (ptr) gf←c39692)+169)/* var←c35532 */ ))+33) );
(void) ( *( (fPt) ((* (ptr) pd252 ))))(c←v12252, (* (( (ptr) formal←c39724)+8) ), pd252);
};
SOURCE(12921, 28)
{
word pd253;
pd253 = (* (( (ptr) (* (( (ptr) gf←c39692)+169)/* var←c35532 */ ))+27) );
(void) ( *( (fPt) ((* (ptr) pd253 ))))(c←v12252, (* (( (ptr) formal←c39724)+4) ), pd253);
};
SOURCE(12963, 22)
(void) BPutProp←P480(c←v12252, (* (( (ptr) formal←c39724)+5) ));
SOURCE(12987, 19)
(void) BPutProp←P480(c←v12252, (* (( (ptr) formal←c39724)+6) ));
SOURCE(13008, 21)
(void) BPutProp←P480(c←v12252, (* (( (ptr) formal←c39724)+7) ));
SOURCE(13031, 11)
(* (( (ptr) c←v12252)+4) ) = ((* (( (ptr) c←v12252)+4) ) + 8);
SOURCE(13053, 29)
{
word pd254;
pd254 = (* (( (ptr) (* (( (ptr) gf←c39692)+169)/* var←c35532 */ ))+64) );
(void) ( *( (fPt) ((* (ptr) pd254 ))))(c←v12252, (* (( (ptr) formal←c39724)+9) ), pd254);
};
SOURCE(13084, 48)
if (((* (( (ptr) formal←c39724)+9) ) == 0)) {
SOURCE(13104, 28)
{
word pd255;
if (((* (( (ptr) c←v12252)+5) ) != 0) || (0 != (* (( (ptr) c←v12252)+35) ))) {
pd255 = (* (( (ptr) (* (( (ptr) gf←c39692)+169)/* var←c35532 */ ))+13) );
(void) ( *( (fPt) ((* (ptr) pd255 ))))(c←v12252, 0, pd255);
};
};
};
}
static void SetInputFocus←P1320(c←v7380, formal←c0531, formal←c0532, formal←c0533, formal←c0534)
word c←v7380;
word formal←c0531;
word formal←c0532;
word formal←c0533;
word formal←c0534;
{
W10 var←c39756;
/* declaration of window←v7408 skipped */
/* declaration of revertTo←v7436 skipped */
/* declaration of timeStamp←v7464 skipped */
/* declaration of details←v7492 skipped */
register ptr gf←c39788 = (ptr) &globalframe;
/* declaration of var←c37292 skipped */
(* (( (ptr) &var←c39756)+4)/* window←v7408 */ ) = formal←c0531;
(* (( (ptr) &var←c39756)+5)/* revertTo←v7436 */ ) = formal←c0532;
(* (( (ptr) &var←c39756)+6)/* timeStamp←v7464 */ ) = formal←c0533;
(* (( (ptr) &var←c39756)+7)/* details←v7492 */ ) = formal←c0534;
/* SetInputFocus: */
SOURCE(13174, 399)
{
word tmpAddr256;
tmpAddr256 = (word) (( (ptr) &var←c39756)+8)/* var←c37292 */ ;
(* (ptr) tmpAddr256 ) = ( ((word) (fPt) action←P4092) );
(* (( (ptr) tmpAddr256) + 1) ) = 1;
};
SOURCE(13542, 31)
{
word pd257;
pd257 = (* (( (ptr) (* (( (ptr) gf←c39788)+169)/* var←c35532 */ ))+6) );
(void) ( *( (fPt) ((* (ptr) pd257 ))))(c←v7380, (word) (( (bPt) &var←c39756)+32)/* var←c37292 */ , (* (( (ptr) &var←c39756)+7)
/* details←v7492 */ ), pd257);
};
}
static void action←P4092(c←v12356, formal←c39852)
word c←v12356;
word formal←c39852;
{
register ptr gf←c39820 = (ptr) &globalframe;
formal←c39852 = (formal←c39852 - 32);
/* action: */
SOURCE(13325, 212)
SOURCE(13358, 30)
{
word pd258;
pd258 = (* (( (ptr) (* (( (ptr) gf←c39820)+169)/* var←c35532 */ ))+17) );
(void) ( *( (fPt) ((* (ptr) pd258 ))))(c←v12356, 42, (* (( (ptr) formal←c39852)+5) ), 3, pd258);
};
SOURCE(13390, 23)
{
word pd259;
pd259 = (* (( (ptr) (* (( (ptr) gf←c39820)+169)/* var←c35532 */ ))+27) );
(void) ( *( (fPt) ((* (ptr) pd259 ))))(c←v12356, (* (( (ptr) formal←c39852)+4) ), pd259);
};
SOURCE(13415, 22)
{
word pd260;
pd260 = (* (( (ptr) (* (( (ptr) gf←c39820)+169)/* var←c35532 */ ))+33) );
(void) ( *( (fPt) ((* (ptr) pd260 ))))(c←v12356, (* (( (ptr) formal←c39852)+6) ), pd260);
};
SOURCE(13439, 29)
{
word pd261;
pd261 = (* (( (ptr) (* (( (ptr) gf←c39820)+169)/* var←c35532 */ ))+64) );
(void) ( *( (fPt) ((* (ptr) pd261 ))))(c←v12356, (* (( (ptr) formal←c39852)+7) ), pd261);
};
SOURCE(13470, 67)
if (((* (( (ptr) formal←c39852)+7) ) == 0)) {
SOURCE(13490, 47)
{
word delay←v33052;
delay←v33052 = (unsigned) ((* (( (ptr) formal←c39852)+4) ) != 0);
{
word pd262;
if (((* (( (ptr) c←v12356)+5) ) != 0) || (0 != (* (( (ptr) c←v12356)+35) ))) {
pd262 = (* (( (ptr) (* (( (ptr) gf←c39820)+169)/* var←c35532 */ ))+13) );
(void) ( *( (fPt) ((* (ptr) pd262 ))))(c←v12356, delay←v33052, pd262);
};
};
};
};
}
static void GetInputFocus←P1380(formal←c0306, c←v7552)
word formal←c0306;
word c←v7552;
{
W7 var←c39884;
register ptr gf←c39916 = (ptr) &globalframe;
word window←v7596;
word revertTo←v7624;
/* declaration of var←c37324 skipped */
/* declaration of reply←v12412 skipped */
/* GetInputFocus: */
SOURCE(13579, 364)
{
word tmpAddr263;
tmpAddr263 = (word) (( (ptr) &var←c39884)+4)/* var←c37324 */ ;
(* (ptr) tmpAddr263 ) = ( ((word) (fPt) action←P4152) );
(* (( (ptr) tmpAddr263) + 1) ) = 1;
};
SOURCE(13579, 364)
window←v7596 = 0;
SOURCE(13774, 12)
var←c39884.f6/* reply←v12412 */ = 0;
SOURCE(13788, 27)
{
word pd264;
pd264 = (* (( (ptr) (* (( (ptr) gf←c39916)+169)/* var←c35532 */ ))+6) );
(void) ( *( (fPt) ((* (ptr) pd264 ))))(c←v7552, (word) (( (bPt) &var←c39884)+16)/* var←c37324 */ , 0, pd264);
};
SOURCE(13817, 17)
{
word pd265;
pd265 = (* (( (ptr) (* (( (ptr) gf←c39916)+169)/* var←c35532 */ ))+68) );
(void) ( *( (fPt) ((* (ptr) pd265 ))))(var←c39884.f6/* reply←v12412 */ , pd265);
};
SOURCE(13836, 29)
{
word pd266;
word idx267;
pd266 = (* (( (ptr) (* (( (ptr) gf←c39916)+169)/* var←c35532 */ ))+77) );
revertTo←v7624 = (
idx267 = (word) ( *( (fPt) ((* (ptr) pd266 ))))(var←c39884.f6/* reply←v12412 */ , pd266),
BCK(idx267, 3)
);
};
SOURCE(13867, 14)
(* (( (ptr) var←c39884.f6/* reply←v12412 */ )+10) ) = ((* (( (ptr) var←c39884.f6/* reply←v12412 */ )+10) ) + 6);
SOURCE(13883, 36)
{
word var←c37356;
word c←v33100;
word id←v33128;
c←v33100 = c←v7552;
{
word pd268;
pd268 = (* (( (ptr) (* (( (ptr) gf←c39916)+169)/* var←c35532 */ ))+79) );
id←v33128 = (word) ( *( (fPt) ((* (ptr) pd268 ))))(var←c39884.f6/* reply←v12412 */ , pd268);
};
var←c37356 = id←v33128;
window←v7596 = var←c37356;
};
SOURCE(13921, 22)
{
word pd269;
pd269 = (* (( (ptr) (* (( (ptr) gf←c39916)+169)/* var←c35532 */ ))+67) );
(void) ( *( (fPt) ((* (ptr) pd269 ))))(c←v7552, var←c39884.f6/* reply←v12412 */ , pd269);
};
/* removed tail goto */
(* (ptr) formal←c0306 ) = window←v7596;
(* (( (ptr) formal←c0306)+1) ) = revertTo←v7624;
return;
}
static void action←P4152(c←v12488, formal←c39980)
word c←v12488;
word formal←c39980;
{
register ptr gf←c39948 = (ptr) &globalframe;
formal←c39980 = (formal←c39980 - 16);
/* action: */
SOURCE(13690, 79)
SOURCE(13723, 18)
{
word pd270;
pd270 = (* (( (ptr) (* (( (ptr) gf←c39948)+169)/* var←c35532 */ ))+17) );
(void) ( *( (fPt) ((* (ptr) pd270 ))))(c←v12488, 43, 0, 1, pd270);
};
SOURCE(13743, 26)
{
word pd271;
pd271 = (* (( (ptr) (* (( (ptr) gf←c39948)+169)/* var←c35532 */ ))+62) );
(* (( (ptr) formal←c39980)+6) ) = (word) ( *( (fPt) ((* (ptr) pd271 ))))(c←v12488, pd271);
};
}
static word ListExtensions←P1440(c←v7684)
word c←v7684;
{
W7 var←c40012;
register ptr gf←c40044 = (ptr) &globalframe;
word var←c7728;
/* declaration of var←c37388 skipped */
/* declaration of reply←v12544 skipped */
word head←v12572;
word last←v12600;
word nSTR←v12628;
/* ListExtensions: */
SOURCE(13949, 469)
{
word tmpAddr272;
tmpAddr272 = (word) (( (ptr) &var←c40012)+4)/* var←c37388 */ ;
(* (ptr) tmpAddr272 ) = ( ((word) (fPt) action←P4212) );
(* (( (ptr) tmpAddr272) + 1) ) = 1;
};
SOURCE(14104, 12)
var←c40012.f6/* reply←v12544 */ = 0;
SOURCE(14118, 6)
{
word var←c37452;
head←v12572 = XR←NewObject(8, (* (( (ptr) gf←c40044)+8) ));
var←c37452 = head←v12572;
};
SOURCE(14150, 6)
last←v12600 = head←v12572;
SOURCE(14189, 27)
{
word pd273;
pd273 = (* (( (ptr) (* (( (ptr) gf←c40044)+169)/* var←c35532 */ ))+6) );
(void) ( *( (fPt) ((* (ptr) pd273 ))))(c←v7684, (word) (( (bPt) &var←c40012)+16)/* var←c37388 */ , 0, pd273);
};
SOURCE(14218, 17)
{
word pd274;
pd274 = (* (( (ptr) (* (( (ptr) gf←c40044)+169)/* var←c35532 */ ))+68) );
(void) ( *( (fPt) ((* (ptr) pd274 ))))(var←c40012.f6/* reply←v12544 */ , pd274);
};
SOURCE(14237, 19)
{
word var←c37484;
word b←v33004;
b←v33004 = (unsigned) (word) (* (( (bPt) var←c40012.f6/* reply←v12544 */ )+(* (( (ptr) var←c40012.f6/* reply←v12544 */ )+10)
)) );
(* (( (ptr) var←c40012.f6/* reply←v12544 */ )+10) ) = ((* (( (ptr) var←c40012.f6/* reply←v12544 */ )+10) ) + 1);
var←c37484 = b←v33004;
nSTR←v12628 = var←c37484;
};
SOURCE(14258, 15)
(* (( (ptr) var←c40012.f6/* reply←v12544 */ )+10) ) = ((* (( (ptr) var←c40012.f6/* reply←v12544 */ )+10) ) + 30);
SOURCE(14275, 90)
{
register word i←v12900 = 0;
register word noName←c37516;
noName←c37516 = nSTR←v12628;
if ((i←v12900 >= noName←c37516)) {
goto lab←L100049;
};
lab←L100052: ;
{
word name←v12944;
SOURCE(14305, 29)
{
word pd275;
pd275 = (* (( (ptr) (* (( (ptr) gf←c40044)+169)/* var←c35532 */ ))+80) );
name←v12944 = (word) ( *( (fPt) ((* (ptr) pd275 ))))(var←c40012.f6/* reply←v12544 */ , pd275);
};
SOURCE(14336, 29)
{
word var←c37548;
{
word var←c37580;
word var←c37612;
var←c37580 = XR←NewObject(8, (* (( (ptr) gf←c40044)+8) ));
var←c37612 = var←c37580;
(* (ptr) var←c37612 ) = name←v12944;
var←c37548 = var←c37580;
};
(* (( (ptr) last←v12600)+1) ) = var←c37548;
last←v12600 = var←c37548;
};
};
i←v12900 = (i←v12900 + 1);
if ((i←v12900 < noName←c37516)) {
goto lab←L100052;
};
lab←L100049: ;
};
SOURCE(14376, 22)
{
word pd276;
pd276 = (* (( (ptr) (* (( (ptr) gf←c40044)+169)/* var←c35532 */ ))+67) );
(void) ( *( (fPt) ((* (ptr) pd276 ))))(c←v7684, var←c40012.f6/* reply←v12544 */ , pd276);
};
SOURCE(14400, 18)
return((* (( (ptr) head←v12572)+1) ));
}
static void action←P4212(c←v12704, formal←c40108)
word c←v12704;
word formal←c40108;
{
register ptr gf←c40076 = (ptr) &globalframe;
formal←c40108 = (formal←c40108 - 16);
/* action: */
SOURCE(14020, 79)
SOURCE(14053, 18)
{
word pd277;
pd277 = (* (( (ptr) (* (( (ptr) gf←c40076)+169)/* var←c35532 */ ))+17) );
(void) ( *( (fPt) ((* (ptr) pd277 ))))(c←v12704, 99, 0, 1, pd277);
};
SOURCE(14073, 26)
{
word pd278;
pd278 = (* (( (ptr) (* (( (ptr) gf←c40076)+169)/* var←c35532 */ ))+62) );
(* (( (ptr) formal←c40108)+6) ) = (word) ( *( (fPt) ((* (ptr) pd278 ))))(c←v12704, pd278);
};
}
static void QueryExtension←P1500(formal←c0331, c←v7872, formal←c0535)
word formal←c0331;
word c←v7872;
word formal←c0535;
{
W9 var←c40140;
/* declaration of name←v7900 skipped */
register ptr gf←c40172 = (ptr) &globalframe;
W4 xr←v7944;
/* declaration of var←c37644 skipped */
/* declaration of leng←v13016 skipped */
/* declaration of reply←v13044 skipped */
(* (( (ptr) &var←c40140)+4)/* name←v7900 */ ) = formal←c0535;
/* QueryExtension: */
SOURCE(14424, 530)
{
word tmpAddr279;
tmpAddr279 = (word) (( (ptr) &var←c40140)+5)/* var←c37644 */ ;
(* (ptr) tmpAddr279 ) = ( ((word) (fPt) action←P4368) );
(* (( (ptr) tmpAddr279) + 1) ) = 1;
};
SOURCE(14667, 29)
{
word pd280;
pd280 = (* (( (ptr) (* (( (ptr) gf←c40172)+168)/* var←c35372 */ ))+14) );
(* (( (ptr) &var←c40140)+7)/* leng←v13016 */ ) = (word) ( *( (fPt) ((* (ptr) pd280 ))))((* ((( (ptr) &var←c40140)+4)/* name←v7900 */ ) ), pd280)
;
};
SOURCE(14698, 12)
(* (( (ptr) &var←c40140)+8)/* reply←v13044 */ ) = 0;
SOURCE(14712, 17)
if (( (int)(* (( (ptr) &var←c40140)+7)/* leng←v13016 */ ) > (int)100)) {
SOURCE(14729, 5)
(void) XR←RaiseUnnamedError();
};
SOURCE(14736, 27)
{
word pd281;
pd281 = (* (( (ptr) (* (( (ptr) gf←c40172)+169)/* var←c35532 */ ))+6) );
(void) ( *( (fPt) ((* (ptr) pd281 ))))(c←v7872, (word) (( (bPt) &var←c40140)+20)/* var←c37644 */ , 0, pd281);
};
SOURCE(14765, 17)
{
word pd282;
pd282 = (* (( (ptr) (* (( (ptr) gf←c40172)+169)/* var←c35532 */ ))+68) );
(void) ( *( (fPt) ((* (ptr) pd282 ))))((* ((( (ptr) &var←c40140)+8)/* reply←v13044 */ ) ), pd282);
};
SOURCE(14784, 14)
(* (( (ptr) (* (( (ptr) &var←c40140)+8)/* reply←v13044 */ ))+10) ) = ((* (( (ptr) (* (( (ptr) &var←c40140)+8)/* reply←v13044 */ ))+10)
) + 7);
SOURCE(14800, 36)
{
word pd283;
pd283 = (* (( (ptr) (* (( (ptr) gf←c40172)+169)/* var←c35532 */ ))+77) );
xr←v7944.f0 = (unsigned) ((word) ( *( (fPt) ((* (ptr) pd283 ))))((* ((( (ptr) &var←c40140)+8)/* reply←v13044 */ ) ), pd283)
== 1);
};
SOURCE(14838, 30)
{
word pd284;
pd284 = (* (( (ptr) (* (( (ptr) gf←c40172)+169)/* var←c35532 */ ))+77) );
xr←v7944.f1 = (word) ( *( (fPt) ((* (ptr) pd284 ))))((* ((( (ptr) &var←c40140)+8)/* reply←v13044 */ ) ), pd284);
};
SOURCE(14870, 29)
{
word pd285;
pd285 = (* (( (ptr) (* (( (ptr) gf←c40172)+169)/* var←c35532 */ ))+77) );
xr←v7944.f2 = (word) ( *( (fPt) ((* (ptr) pd285 ))))((* ((( (ptr) &var←c40140)+8)/* reply←v13044 */ ) ), pd285);
};
SOURCE(14901, 29)
{
word pd286;
pd286 = (* (( (ptr) (* (( (ptr) gf←c40172)+169)/* var←c35532 */ ))+77) );
xr←v7944.f3 = (word) ( *( (fPt) ((* (ptr) pd286 ))))((* ((( (ptr) &var←c40140)+8)/* reply←v13044 */ ) ), pd286);
};
SOURCE(14932, 22)
{
word pd287;
pd287 = (* (( (ptr) (* (( (ptr) gf←c40172)+169)/* var←c35532 */ ))+67) );
(void) ( *( (fPt) ((* (ptr) pd287 ))))(c←v7872, (* (( (ptr) &var←c40140)+8)/* reply←v13044 */ ), pd287);
};
/* removed tail goto */
(* (W4Pt) formal←c0331 ) = xr←v7944;
return;
}
static void action←P4368(c←v13120, formal←c40236)
word c←v13120;
word formal←c40236;
{
register ptr gf←c40204 = (ptr) &globalframe;
formal←c40236 = (formal←c40236 - 20);
/* action: */
SOURCE(14516, 146)
SOURCE(14549, 29)
{
word pd288;
pd288 = (* (( (ptr) (* (( (ptr) gf←c40204)+169)/* var←c35532 */ ))+17) );
(void) ( *( (fPt) ((* (ptr) pd288 ))))(c←v13120, 98, 0, (IOP2( / , (int)((* (( (ptr) formal←c40236)+7) ) + 3), (int)4)
+ 2), pd288);
};
SOURCE(14580, 15)
{
word pd289;
word idx290;
pd289 = (* (( (ptr) (* (( (ptr) gf←c40204)+169)/* var←c35532 */ ))+20) );
(void) ( *( (fPt) ((* (ptr) pd289 ))))(c←v13120, (
idx290 = (* (( (ptr) formal←c40236)+7) ),
BCK(idx290, 65536)
), pd289);
};
SOURCE(14597, 12)
{
word pd291;
pd291 = (* (( (ptr) (* (( (ptr) gf←c40204)+169)/* var←c35532 */ ))+20) );
(void) ( *( (fPt) ((* (ptr) pd291 ))))(c←v13120, 0, pd291);
};
SOURCE(14611, 23)
{
word pd292;
pd292 = (* (( (ptr) (* (( (ptr) gf←c40204)+169)/* var←c35532 */ ))+37) );
(void) ( *( (fPt) ((* (ptr) pd292 ))))(c←v13120, (* (( (ptr) formal←c40236)+4) ), 0, 2147483647, pd292);
};
SOURCE(14636, 26)
{
word pd293;
pd293 = (* (( (ptr) (* (( (ptr) gf←c40204)+169)/* var←c35532 */ ))+62) );
(* (( (ptr) formal←c40236)+8) ) = (word) ( *( (fPt) ((* (ptr) pd293 ))))(c←v13120, pd293);
};
}
static void MapWindow←P1560(c←v8004, formal←c0536, formal←c0537)
word c←v8004;
word formal←c0536;
word formal←c0537;
{
W8 var←c40268;
/* declaration of window←v8032 skipped */
/* declaration of details←v8060 skipped */
register ptr gf←c40300 = (ptr) &globalframe;
/* declaration of var←c37676 skipped */
var←c40268.f4/* window←v8032 */ = formal←c0536;
var←c40268.f5/* details←v8060 */ = formal←c0537;
/* MapWindow: */
SOURCE(14960, 219)
{
word tmpAddr294;
tmpAddr294 = (word) (( (ptr) &var←c40268)+6)/* var←c37676 */ ;
(* (ptr) tmpAddr294 ) = ( ((word) (fPt) action←P4428) );
(* (( (ptr) tmpAddr294) + 1) ) = 1;
};
SOURCE(15148, 31)
{
word pd295;
pd295 = (* (( (ptr) (* (( (ptr) gf←c40300)+169)/* var←c35532 */ ))+6) );
(void) ( *( (fPt) ((* (ptr) pd295 ))))(c←v8004, (word) (( (bPt) &var←c40268)+24)/* var←c37676 */ , var←c40268.f5/* details←v8060 */ , pd295)
;
};
}
static void action←P4428(c←v13224, formal←c40364)
word c←v13224;
word formal←c40364;
{
register ptr gf←c40332 = (ptr) &globalframe;
formal←c40364 = (formal←c40364 - 24);
/* action: */
SOURCE(15037, 106)
SOURCE(15070, 17)
{
word pd296;
pd296 = (* (( (ptr) (* (( (ptr) gf←c40332)+169)/* var←c35532 */ ))+17) );
(void) ( *( (fPt) ((* (ptr) pd296 ))))(c←v13224, 8, 0, 2, pd296);
};
SOURCE(15089, 23)
{
word pd297;
pd297 = (* (( (ptr) (* (( (ptr) gf←c40332)+169)/* var←c35532 */ ))+27) );
(void) ( *( (fPt) ((* (ptr) pd297 ))))(c←v13224, (* (( (ptr) formal←c40364)+4) ), pd297);
};
SOURCE(15114, 29)
{
word pd298;
pd298 = (* (( (ptr) (* (( (ptr) gf←c40332)+169)/* var←c35532 */ ))+64) );
(void) ( *( (fPt) ((* (ptr) pd298 ))))(c←v13224, (* (( (ptr) formal←c40364)+5) ), pd298);
};
}
static void MapSubWindows←P1620(c←v8120, formal←c0538, formal←c0539)
word c←v8120;
word formal←c0538;
word formal←c0539;
{
W8 var←c40396;
/* declaration of window←v8148 skipped */
/* declaration of details←v8176 skipped */
register ptr gf←c40428 = (ptr) &globalframe;
/* declaration of var←c37708 skipped */
var←c40396.f4/* window←v8148 */ = formal←c0538;
var←c40396.f5/* details←v8176 */ = formal←c0539;
/* MapSubWindows: */
SOURCE(15185, 223)
{
word tmpAddr299;
tmpAddr299 = (word) (( (ptr) &var←c40396)+6)/* var←c37708 */ ;
(* (ptr) tmpAddr299 ) = ( ((word) (fPt) action←P4488) );
(* (( (ptr) tmpAddr299) + 1) ) = 1;
};
SOURCE(15377, 31)
{
word pd300;
pd300 = (* (( (ptr) (* (( (ptr) gf←c40428)+169)/* var←c35532 */ ))+6) );
(void) ( *( (fPt) ((* (ptr) pd300 ))))(c←v8120, (word) (( (bPt) &var←c40396)+24)/* var←c37708 */ , var←c40396.f5/* details←v8176 */ , pd300)
;
};
}
static void action←P4488(c←v13328, formal←c40492)
word c←v13328;
word formal←c40492;
{
register ptr gf←c40460 = (ptr) &globalframe;
formal←c40492 = (formal←c40492 - 24);
/* action: */
SOURCE(15266, 106)
SOURCE(15299, 17)
{
word pd301;
pd301 = (* (( (ptr) (* (( (ptr) gf←c40460)+169)/* var←c35532 */ ))+17) );
(void) ( *( (fPt) ((* (ptr) pd301 ))))(c←v13328, 9, 0, 2, pd301);
};
SOURCE(15318, 23)
{
word pd302;
pd302 = (* (( (ptr) (* (( (ptr) gf←c40460)+169)/* var←c35532 */ ))+27) );
(void) ( *( (fPt) ((* (ptr) pd302 ))))(c←v13328, (* (( (ptr) formal←c40492)+4) ), pd302);
};
SOURCE(15343, 29)
{
word pd303;
pd303 = (* (( (ptr) (* (( (ptr) gf←c40460)+169)/* var←c35532 */ ))+64) );
(void) ( *( (fPt) ((* (ptr) pd303 ))))(c←v13328, (* (( (ptr) formal←c40492)+5) ), pd303);
};
}
static void UnmapWindow←P1680(c←v8236, formal←c0540, formal←c0541)
word c←v8236;
word formal←c0540;
word formal←c0541;
{
W8 var←c40524;
/* declaration of window←v8264 skipped */
/* declaration of details←v8292 skipped */
register ptr gf←c40556 = (ptr) &globalframe;
/* declaration of var←c37740 skipped */
var←c40524.f4/* window←v8264 */ = formal←c0540;
var←c40524.f5/* details←v8292 */ = formal←c0541;
/* UnmapWindow: */
SOURCE(15414, 222)
{
word tmpAddr304;
tmpAddr304 = (word) (( (ptr) &var←c40524)+6)/* var←c37740 */ ;
(* (ptr) tmpAddr304 ) = ( ((word) (fPt) action←P4548) );
(* (( (ptr) tmpAddr304) + 1) ) = 1;
};
SOURCE(15605, 31)
{
word pd305;
pd305 = (* (( (ptr) (* (( (ptr) gf←c40556)+169)/* var←c35532 */ ))+6) );
(void) ( *( (fPt) ((* (ptr) pd305 ))))(c←v8236, (word) (( (bPt) &var←c40524)+24)/* var←c37740 */ , var←c40524.f5/* details←v8292 */ , pd305)
;
};
}
static void action←P4548(c←v13432, formal←c40620)
word c←v13432;
word formal←c40620;
{
register ptr gf←c40588 = (ptr) &globalframe;
formal←c40620 = (formal←c40620 - 24);
/* action: */
SOURCE(15493, 107)
SOURCE(15526, 18)
{
word pd306;
pd306 = (* (( (ptr) (* (( (ptr) gf←c40588)+169)/* var←c35532 */ ))+17) );
(void) ( *( (fPt) ((* (ptr) pd306 ))))(c←v13432, 10, 0, 2, pd306);
};
SOURCE(15546, 23)
{
word pd307;
pd307 = (* (( (ptr) (* (( (ptr) gf←c40588)+169)/* var←c35532 */ ))+27) );
(void) ( *( (fPt) ((* (ptr) pd307 ))))(c←v13432, (* (( (ptr) formal←c40620)+4) ), pd307);
};
SOURCE(15571, 29)
{
word pd308;
pd308 = (* (( (ptr) (* (( (ptr) gf←c40588)+169)/* var←c35532 */ ))+64) );
(void) ( *( (fPt) ((* (ptr) pd308 ))))(c←v13432, (* (( (ptr) formal←c40620)+5) ), pd308);
};
}
static void UnmapSubWindows←P1740(c←v8352, formal←c0542, formal←c0543)
word c←v8352;
word formal←c0542;
word formal←c0543;
{
W8 var←c40652;
/* declaration of window←v8380 skipped */
/* declaration of details←v8408 skipped */
register ptr gf←c40684 = (ptr) &globalframe;
/* declaration of var←c37772 skipped */
var←c40652.f4/* window←v8380 */ = formal←c0542;
var←c40652.f5/* details←v8408 */ = formal←c0543;
/* UnmapSubWindows: */
SOURCE(15642, 226)
{
word tmpAddr309;
tmpAddr309 = (word) (( (ptr) &var←c40652)+6)/* var←c37772 */ ;
(* (ptr) tmpAddr309 ) = ( ((word) (fPt) action←P4608) );
(* (( (ptr) tmpAddr309) + 1) ) = 1;
};
SOURCE(15837, 31)
{
word pd310;
pd310 = (* (( (ptr) (* (( (ptr) gf←c40684)+169)/* var←c35532 */ ))+6) );
(void) ( *( (fPt) ((* (ptr) pd310 ))))(c←v8352, (word) (( (bPt) &var←c40652)+24)/* var←c37772 */ , var←c40652.f5/* details←v8408 */ , pd310)
;
};
}
static void action←P4608(c←v13536, formal←c40748)
word c←v13536;
word formal←c40748;
{
register ptr gf←c40716 = (ptr) &globalframe;
formal←c40748 = (formal←c40748 - 24);
/* action: */
SOURCE(15725, 107)
SOURCE(15758, 18)
{
word pd311;
pd311 = (* (( (ptr) (* (( (ptr) gf←c40716)+169)/* var←c35532 */ ))+17) );
(void) ( *( (fPt) ((* (ptr) pd311 ))))(c←v13536, 11, 0, 2, pd311);
};
SOURCE(15778, 23)
{
word pd312;
pd312 = (* (( (ptr) (* (( (ptr) gf←c40716)+169)/* var←c35532 */ ))+27) );
(void) ( *( (fPt) ((* (ptr) pd312 ))))(c←v13536, (* (( (ptr) formal←c40748)+4) ), pd312);
};
SOURCE(15803, 29)
{
word pd313;
pd313 = (* (( (ptr) (* (( (ptr) gf←c40716)+169)/* var←c35532 */ ))+64) );
(void) ( *( (fPt) ((* (ptr) pd313 ))))(c←v13536, (* (( (ptr) formal←c40748)+5) ), pd313);
};
}
static void DestroyWindow←P1800(c←v8468, formal←c0544, formal←c0545)
word c←v8468;
word formal←c0544;
word formal←c0545;
{
W8 var←c40780;
/* declaration of window←v8496 skipped */
/* declaration of details←v8524 skipped */
register ptr gf←c40812 = (ptr) &globalframe;
/* declaration of var←c37804 skipped */
var←c40780.f4/* window←v8496 */ = formal←c0544;
var←c40780.f5/* details←v8524 */ = formal←c0545;
/* DestroyWindow: */
SOURCE(15874, 223)
{
word tmpAddr314;
tmpAddr314 = (word) (( (ptr) &var←c40780)+6)/* var←c37804 */ ;
(* (ptr) tmpAddr314 ) = ( ((word) (fPt) action←P4668) );
(* (( (ptr) tmpAddr314) + 1) ) = 1;
};
SOURCE(16066, 31)
{
word pd315;
pd315 = (* (( (ptr) (* (( (ptr) gf←c40812)+169)/* var←c35532 */ ))+6) );
(void) ( *( (fPt) ((* (ptr) pd315 ))))(c←v8468, (word) (( (bPt) &var←c40780)+24)/* var←c37804 */ , var←c40780.f5/* details←v8524 */ , pd315)
;
};
}
static void action←P4668(c←v13640, formal←c40876)
word c←v13640;
word formal←c40876;
{
register ptr gf←c40844 = (ptr) &globalframe;
formal←c40876 = (formal←c40876 - 24);
/* action: */
SOURCE(15955, 106)
SOURCE(15988, 17)
{
word pd316;
pd316 = (* (( (ptr) (* (( (ptr) gf←c40844)+169)/* var←c35532 */ ))+17) );
(void) ( *( (fPt) ((* (ptr) pd316 ))))(c←v13640, 4, 0, 2, pd316);
};
SOURCE(16007, 23)
{
word pd317;
pd317 = (* (( (ptr) (* (( (ptr) gf←c40844)+169)/* var←c35532 */ ))+27) );
(void) ( *( (fPt) ((* (ptr) pd317 ))))(c←v13640, (* (( (ptr) formal←c40876)+4) ), pd317);
};
SOURCE(16032, 29)
{
word pd318;
pd318 = (* (( (ptr) (* (( (ptr) gf←c40844)+169)/* var←c35532 */ ))+64) );
(void) ( *( (fPt) ((* (ptr) pd318 ))))(c←v13640, (* (( (ptr) formal←c40876)+5) ), pd318);
};
}
static void DestroySubWindows←P1860(c←v8584, formal←c0546, formal←c0547)
word c←v8584;
word formal←c0546;
word formal←c0547;
{
W8 var←c40908;
/* declaration of window←v8612 skipped */
/* declaration of details←v8640 skipped */
register ptr gf←c40940 = (ptr) &globalframe;
/* declaration of var←c37836 skipped */
var←c40908.f4/* window←v8612 */ = formal←c0546;
var←c40908.f5/* details←v8640 */ = formal←c0547;
/* DestroySubWindows: */
SOURCE(16103, 227)
{
word tmpAddr319;
tmpAddr319 = (word) (( (ptr) &var←c40908)+6)/* var←c37836 */ ;
(* (ptr) tmpAddr319 ) = ( ((word) (fPt) action←P4728) );
(* (( (ptr) tmpAddr319) + 1) ) = 1;
};
SOURCE(16299, 31)
{
word pd320;
pd320 = (* (( (ptr) (* (( (ptr) gf←c40940)+169)/* var←c35532 */ ))+6) );
(void) ( *( (fPt) ((* (ptr) pd320 ))))(c←v8584, (word) (( (bPt) &var←c40908)+24)/* var←c37836 */ , var←c40908.f5/* details←v8640 */ , pd320)
;
};
}
static void action←P4728(c←v13744, formal←c41004)
word c←v13744;
word formal←c41004;
{
register ptr gf←c40972 = (ptr) &globalframe;
formal←c41004 = (formal←c41004 - 24);
/* action: */
SOURCE(16188, 106)
SOURCE(16221, 17)
{
word pd321;
pd321 = (* (( (ptr) (* (( (ptr) gf←c40972)+169)/* var←c35532 */ ))+17) );
(void) ( *( (fPt) ((* (ptr) pd321 ))))(c←v13744, 5, 0, 2, pd321);
};
SOURCE(16240, 23)
{
word pd322;
pd322 = (* (( (ptr) (* (( (ptr) gf←c40972)+169)/* var←c35532 */ ))+27) );
(void) ( *( (fPt) ((* (ptr) pd322 ))))(c←v13744, (* (( (ptr) formal←c41004)+4) ), pd322);
};
SOURCE(16265, 29)
{
word pd323;
pd323 = (* (( (ptr) (* (( (ptr) gf←c40972)+169)/* var←c35532 */ ))+64) );
(void) ( *( (fPt) ((* (ptr) pd323 ))))(c←v13744, (* (( (ptr) formal←c41004)+5) ), pd323);
};
}
static void Bell←P1920(c←v8700, formal←c0548, formal←c0549)
word c←v8700;
word formal←c0548;
word formal←c0549;
{
W8 var←c41036;
/* declaration of percent←v8728 skipped */
/* declaration of details←v8756 skipped */
register ptr gf←c41068 = (ptr) &globalframe;
/* declaration of var←c37868 skipped */
var←c41036.f4/* percent←v8728 */ = formal←c0548;
var←c41036.f5/* details←v8756 */ = formal←c0549;
/* Bell: */
SOURCE(16336, 299)
{
word tmpAddr324;
tmpAddr324 = (word) (( (ptr) &var←c41036)+6)/* var←c37868 */ ;
(* (ptr) tmpAddr324 ) = ( ((word) (fPt) action←P4788) );
(* (( (ptr) tmpAddr324) + 1) ) = 1;
};
SOURCE(16604, 31)
{
word pd325;
pd325 = (* (( (ptr) (* (( (ptr) gf←c41068)+169)/* var←c35532 */ ))+6) );
(void) ( *( (fPt) ((* (ptr) pd325 ))))(c←v8700, (word) (( (bPt) &var←c41036)+24)/* var←c37868 */ , var←c41036.f5/* details←v8756 */ , pd325)
;
};
}
static void action←P4788(c←v13848, formal←c41132)
word c←v13848;
word formal←c41132;
{
register ptr gf←c41100 = (ptr) &globalframe;
formal←c41132 = (formal←c41132 - 24);
/* action: */
SOURCE(16410, 189)
SOURCE(16443, 97)
if ( ( ( (int)(* (( (ptr) formal←c41132)+4) ) >= (int) (word) -100) ? ( (int)(* (( (ptr) formal←c41132)+4) ) <= (int)100) : 0 ) ) {
SOURCE(16484, 25)
{
word pd326;
word idx327;
pd326 = (* (( (ptr) (* (( (ptr) gf←c41100)+169)/* var←c35532 */ ))+17) );
(void) ( *( (fPt) ((* (ptr) pd326 ))))(c←v13848, 104, (
idx327 = (* (( (ptr) formal←c41132)+4) ),
BCK(idx327, 256)
), 1, pd326);
};
SOURCE(16511, 29)
{
word pd328;
pd328 = (* (( (ptr) (* (( (ptr) gf←c41100)+169)/* var←c35532 */ ))+64) );
(void) ( *( (fPt) ((* (ptr) pd328 ))))(c←v13848, (* (( (ptr) formal←c41132)+5) ), pd328);
};
};
SOURCE(16545, 54)
if (((* (( (ptr) formal←c41132)+5) ) == 0)) {
SOURCE(16565, 34)
{
word pd329;
if (((* (( (ptr) c←v13848)+5) ) != 0) || (0 != (* (( (ptr) c←v13848)+35) ))) {
pd329 = (* (( (ptr) (* (( (ptr) gf←c41100)+169)/* var←c35532 */ ))+13) );
(void) ( *( (fPt) ((* (ptr) pd329 ))))(c←v13848, 1, pd329);
};
};
};
}
/* file: XlImplAtPropSel, module: XlImplAtPropSel, compiled at: September 14, 1993 4:26:08 pm PDT */
extern void XR←install←XlImplAtPropSel() {
NoName←Q6372();
}
extern void XR←run←XlImplAtPropSel() { XR←Start(&globalframe); }