/* Generated with C2C (Cedar To C)*/ /* Copyright (C) 1992 by Xerox Corporation. All rights reserved. */ /* time: April 21, 1992 1:09:49 pm PDT */ /* C2C version: October 16, 1990 (native) */ /* ref-counting: off */ /* file: XlCutBuffersImpl, module: XlCutBuffersImpl */ /* switches: bcfhklnouw */ #include #include static char versionStamp[] = "@(#)mob_version [1198714572,1874738201] XlCutBuffersImpl"; typedef unsigned word, *ptr; typedef unsigned char byte, *bPt; typedef unsigned short half, *hPt; typedef word (*fPt)(); typedef struct {word f0, f1, f2, f3, f4, f5;} W6; typedef struct {word f0, f1;} W2; #define SOURCE(p, l) /* source p, l */ static void NoName_Q696(); static void XlCutBuffersImpl_P0(); static void RegisterGetProc_P60(); static void RegisterPutProc_P120(); static word Get_P180(); static word GetGet_P480(); static void Put_P240(); static word GetPut_P588(); static void OldCutBufferPut_P300(); static word OldCutBufferGet_P360(); static void Init_P420(); static struct {unsigned f; char r[52];} string1 = {3342388, "\262\260\002\001\143\216\257\300\351\276\264\273\300\115\104\320\264\126\304\013\012\143\157\156\166\145\156\164\151\157\156\216\251\261\260\000\216\257\300\363\223\326\161\300\017\164\046\072\104\350\261"}; static struct {unsigned f; char r[60];} string2 = {3670076, "\262\260\002\001\143\216\257\300\351\276\264\273\300\115\104\320\264\126\304\005\004\144\141\164\141\216\257\300\363\223\326\161\300\017\164\046\072\104\350\013\012\143\157\156\166\145\156\164\151\157\156\216\251\261\260\261\000\000\000"}; static struct {unsigned f; char r[4];} string3 = {131076, "\216\251\000"}; static struct {unsigned f; char r[4];} string4 = {65537, "\001\000\000"}; static struct {unsigned f; char r[12];} string5 = {655372, "CutBuffer0\000"}; static struct {unsigned f; char r[16];} string6 = {851984, "\257\300\107\162\356\314\300\157\276\074\031\100\164\000\000"}; static struct {unsigned f; char r[8];} string7 = {262148, "\004\200\203\000\000\000\000"}; static struct {unsigned f; char r[16];} string8 = {851984, "\257\300\055\153\222\376\300\327\164\352\142\100\150\000\000"}; static struct {unsigned f; char r[16];} string9 = {851984, "\257\300\247\161\001\072\300\014\124\006\340\100\150\000\000"}; static struct {unsigned f; char r[16];} string10 = {851984, "\257\300\130\354\167\377\300\226\325\031\150\100\150\000\000"}; static struct {unsigned f; char r[16];} string11 = {851984, "\257\300\220\371\032\047\300\235\243\341\006\100\150\000\000"}; static struct { word f0[16]; word f16; word f17; word f18; word f19; word f20; word f21; word f22; word f23; word f24; word f25; word f26; word f27; word f28; word f29; word f30; word f31[4]; } globalframe = { {0}, (word) Init_P420, 0, (word) OldCutBufferGet_P360, 0, (word) OldCutBufferPut_P300, 0, (word) Put_P240, 0, (word) Get_P180, 0, (word) RegisterPutProc_P120, 0, (word) RegisterGetProc_P60, 0, (word) XlCutBuffersImpl_P0, {0} }; static void NoName_Q696() { register ptr gf_c052 = (ptr) &globalframe; word var_c6548; (* (( (ptr) gf_c052)+11) ) = (word) XR_GetTypeIndexS((word) (&string1)); (* (( (ptr) gf_c052)+12) ) = (word) XR_GetTypeIndexS((word) (&string2)); (* (( (ptr) gf_c052)+13) ) = (word) XR_GetTypeIndex((word) &string3, 0, (word) &string4); (* (ptr) (( (bPt) gf_c052)+60) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c052)+13) ), (word) &string5); (void) XR_DeclareGlobalFrame((word) "XlCutBuffersImpl", &globalframe, (word) XR_GetTypeIndex((word) &string6, 0, (word) &string7) , (word) (( (bPt) gf_c052)+120)/* var_c6132 */ ); var_c6548 = (word) XR_ImportInterface((word) "Atom", (word) XR_GetTypeIndexS((word) (&string8)), 16); (* (( (ptr) gf_c052)+32)/* var_c6228 */ ) = var_c6548; (void) XR_ImportProcS(var_c6548, 67635202); (void) XR_ImportProcS(var_c6548, 67897859); var_c6548 = (word) XR_ImportInterface((word) "XlConventions", (word) XR_GetTypeIndexS((word) (&string9)), 12); (* (( (ptr) gf_c052)+33)/* var_c6484 */ ) = var_c6548; (void) XR_ImportProcS(var_c6548, 67373313); (void) XR_ImportProcS(var_c6548, 788995); var_c6548 = (word) XR_ExportInterface((word) "XlCutBuffers", (word) XR_GetTypeIndexS((word) (&string10)), 2); (* (( (ptr) gf_c052)+34)/* var_c6580 */ ) = var_c6548; (void) XR_ExportProcS(var_c6548, (word) (( (bPt) gf_c052)+96)/* var_c6036 */ , 67633154); (void) XR_ExportProcS(var_c6548, (word) (( (bPt) gf_c052)+88)/* var_c6004 */ , 786691); var_c6548 = (word) XR_ExportInterface((word) "XlCutBuffersBackdoor", (word) XR_GetTypeIndexS((word) (&string11)), 2); (* (( (ptr) gf_c052)+34)/* var_c6580 */ ) = var_c6548; (void) XR_ExportProcS(var_c6548, (word) (( (bPt) gf_c052)+104)/* var_c6068 */ , 524290); (void) XR_ExportProcS(var_c6548, (word) (( (bPt) gf_c052)+112)/* var_c6100 */ , 524546); } static void XlCutBuffersImpl_P0(formal_c019, formal_c018) word formal_c019; word formal_c018; { /* XlCutBuffersImpl: */ SOURCE(80, 1580) SOURCE(1654, 6) (void) Init_P420(); } static void RegisterGetProc_P60(convention_v2940, get_v2968) word convention_v2940; word get_v2968; { register ptr gf_c6612 = (ptr) &globalframe; /* RegisterGetProc: */ SOURCE(277, 146) SOURCE(343, 80) if ((get_v2968 != 0)) { SOURCE(360, 63) { word var_c6164; { word var_c6196; var_c6196 = XR_NewObject(4, (* (( (ptr) gf_c6612)+11) )); (* (ptr) var_c6196 ) = XR_CheckProc(get_v2968); var_c6164 = var_c6196; }; { word pd12; pd12 = (* (( (ptr) (* (( (ptr) gf_c6612)+32)/* var_c6228 */ ))+14) ); (* (( (ptr) gf_c6612)+9)/* gets_v2664 */ ) = (word) ( *( (fPt) ((* (ptr) pd12 ))))((* (( (ptr) gf_c6612)+9)/* gets_v2664 */ ), convention_v2940, var_c6164, pd12) ; }; }; }; } static void RegisterPutProc_P120(convention_v3028, put_v3056) word convention_v3028; word put_v3056; { register ptr gf_c6644 = (ptr) &globalframe; /* RegisterPutProc: */ SOURCE(429, 146) SOURCE(495, 80) if ((put_v3056 != 0)) { SOURCE(512, 63) { word var_c6260; { word var_c6292; var_c6292 = XR_NewObject(4, (* (( (ptr) gf_c6644)+12) )); (* (ptr) var_c6292 ) = XR_CheckProc(put_v3056); var_c6260 = var_c6292; }; { word pd13; pd13 = (* (( (ptr) (* (( (ptr) gf_c6644)+32)/* var_c6228 */ ))+14) ); (* (( (ptr) gf_c6644)+8)/* puts_v2636 */ ) = (word) ( *( (fPt) ((* (ptr) pd13 ))))((* (( (ptr) gf_c6644)+8)/* puts_v2636 */ ), convention_v3028, var_c6260, pd13) ; }; }; }; } static word Get_P180(c_v3116, convention_v3144) word c_v3116; word convention_v3144; { W6 var_c6676; word var_c3188; /* declaration of var_c6324 skipped */ word get_v3376; /* Get: */ SOURCE(581, 367) { word tmpAddr14; tmpAddr14 = (word) (( (ptr) &var_c6676)+4)/* var_c6324 */ ; (* (ptr) tmpAddr14 ) = ( ((word) (fPt) GetGet_P480) ); (* (( (ptr) tmpAddr14) + 1) ) = 1; }; SOURCE(581, 367) var_c3188 = 0; SOURCE(835, 33) get_v3376 = (word) GetGet_P480(convention_v3144, (word) (( (bPt) &var_c6676)+16)/* var_c6324 */ ); SOURCE(870, 33) if ((get_v3376 == 0)) { SOURCE(886, 17) get_v3376 = XR_CheckProc((word) GetGet_P480(0, (word) (( (bPt) &var_c6676)+16)/* var_c6324 */ )); }; SOURCE(905, 43) if ((get_v3376 != 0)) { SOURCE(921, 27) return((word) ( *( (fPt) ((* (ptr) get_v3376 ))))(c_v3116, convention_v3144, get_v3376)); }; SOURCE(581, 367) return(var_c3188); } static word GetGet_P480(convention_v3452, formal_c6740) word convention_v3452; word formal_c6740; { register ptr gf_c6708 = (ptr) &globalframe; word var_c3496; formal_c6740 = (formal_c6740 - 16); /* GetGet: */ SOURCE(661, 155) SOURCE(661, 155) var_c3496 = 0; SOURCE(721, 95) { word var_c6388; { word pd15; pd15 = (* (( (ptr) (* (( (ptr) gf_c6708)+32)/* var_c6228 */ ))+12) ); var_c6388 = (word) ( *( (fPt) ((* (ptr) pd15 ))))((* (( (ptr) gf_c6708)+9)/* gets_v2664 */ ), convention_v3452, pd15); }; if ((var_c6388 == 0)) { goto lab_L100000; }; if (((* (( (ptr) gf_c6708)+11) ) == XR_GetReferentType(var_c6388))) { { word refGet_v3524; refGet_v3524 = var_c6388; SOURCE(800, 16) return(XR_CheckProc(* (ptr) refGet_v3524 )); }; } else { lab_L100000: ; }; }; SOURCE(661, 155) return(var_c3496); } static void Put_P240(c_v3248, data_v3276, convention_v3304) word c_v3248; word data_v3276; word convention_v3304; { W6 var_c6772; /* declaration of var_c6420 skipped */ word put_v3608; /* Put: */ SOURCE(954, 357) { word tmpAddr16; tmpAddr16 = (word) (( (ptr) &var_c6772)+4)/* var_c6420 */ ; (* (ptr) tmpAddr16 ) = ( ((word) (fPt) GetPut_P588) ); (* (( (ptr) tmpAddr16) + 1) ) = 1; }; SOURCE(1201, 33) put_v3608 = (word) GetPut_P588(convention_v3304, (word) (( (bPt) &var_c6772)+16)/* var_c6420 */ ); SOURCE(1236, 33) if ((put_v3608 == 0)) { SOURCE(1252, 17) put_v3608 = XR_CheckProc((word) GetPut_P588(0, (word) (( (bPt) &var_c6772)+16)/* var_c6420 */ )); }; SOURCE(1271, 40) if ((put_v3608 != 0)) { SOURCE(1287, 24) (void) ( *( (fPt) ((* (ptr) put_v3608 ))))(c_v3248, data_v3276, convention_v3304, put_v3608); }; } static word GetPut_P588(convention_v3684, formal_c6836) word convention_v3684; word formal_c6836; { register ptr gf_c6804 = (ptr) &globalframe; word var_c3728; formal_c6836 = (formal_c6836 - 16); /* GetPut: */ SOURCE(1027, 155) SOURCE(1027, 155) var_c3728 = 0; SOURCE(1087, 95) { word var_c6452; { word pd17; pd17 = (* (( (ptr) (* (( (ptr) gf_c6804)+32)/* var_c6228 */ ))+12) ); var_c6452 = (word) ( *( (fPt) ((* (ptr) pd17 ))))((* (( (ptr) gf_c6804)+8)/* puts_v2636 */ ), convention_v3684, pd17); }; if ((var_c6452 == 0)) { goto lab_L100001; }; if (((* (( (ptr) gf_c6804)+12) ) == XR_GetReferentType(var_c6452))) { { word refPut_v3756; refPut_v3756 = var_c6452; SOURCE(1166, 16) return(XR_CheckProc(* (ptr) refPut_v3756 )); }; } else { lab_L100001: ; }; }; SOURCE(1027, 155) return(var_c3728); } static void OldCutBufferPut_P300(c_v4760, data_v4788, convention_v4816) word c_v4760; word data_v4788; word convention_v4816; { register ptr gf_c6868 = (ptr) &globalframe; /* OldCutBufferPut: */ SOURCE(1316, 65) SOURCE(1345, 36) { word pd18; pd18 = (* (( (ptr) (* (( (ptr) gf_c6868)+33)/* var_c6484 */ ))+14) ); (void) ( *( (fPt) ((* (ptr) pd18 ))))(c_v4760, data_v4788, 0, pd18); }; } static word OldCutBufferGet_P360(c_v4876, convention_v4904) word c_v4876; word convention_v4904; { register ptr gf_c6900 = (ptr) &globalframe; word var_c4948; /* OldCutBufferGet: */ SOURCE(1387, 67) SOURCE(1416, 38) { word pd19; pd19 = (* (( (ptr) (* (( (ptr) gf_c6900)+33)/* var_c6484 */ ))+13) ); return((word) ( *( (fPt) ((* (ptr) pd19 ))))(c_v4876, pd19)); }; } static void Init_P420() { register ptr gf_c6932 = (ptr) &globalframe; /* Init: */ SOURCE(1460, 188) SOURCE(1478, 37) (void) RegisterPutProc_P120(0, (word) (( (bPt) gf_c6932)+80)/* var_c5972 */ ); SOURCE(1517, 45) (void) RegisterPutProc_P120((* (( (ptr) gf_c6932)+15) ), (word) (( (bPt) gf_c6932)+80)/* var_c5972 */ ); SOURCE(1564, 37) (void) RegisterGetProc_P60(0, (word) (( (bPt) gf_c6932)+72)/* var_c5940 */ ); SOURCE(1603, 45) (void) RegisterGetProc_P60((* (( (ptr) gf_c6932)+15) ), (word) (( (bPt) gf_c6932)+72)/* var_c5940 */ ); } /* file: XlCutBuffersImpl, module: XlCutBuffersImpl, compiled at: April 21, 1992 1:09:48 pm PDT */ extern void XR_install_XlCutBuffersImpl() { NoName_Q696(); } extern void XR_run_XlCutBuffersImpl() { XR_Start(&globalframe); }