/* Generated with C2C (Cedar To C)*/
/* Copyright (C) 1992 by Xerox Corporation.  All rights reserved. */
/* time: April 21, 1992 12:44:03 pm PDT */
/* C2C version: October 16, 1990 (native) */
/* ref-counting: off */
/* file: XTkDelegationImpl, module: XTkDelegationImpl */ 
/* switches: bcfhklnouw */ 
#include <cedar/InstallationSupport.h>
#include <cedar/CedarExtra.h>
static char versionStamp[] = "@(#)mob_version [2412401551,1810232251] XTkDelegationImpl";
typedef unsigned word, *ptr;
typedef unsigned char byte, *bPt;
typedef unsigned short half, *hPt;
typedef word (*fPt)();
#define SOURCE(p, l) /* source p, l */
static void NoName_Q588();
static void XTkDelegationImpl_P0();
static word SingleDelegant_P60();
static word DidMultiDelegation_P120();
static struct {unsigned f; char r[16];} string1 = {851984, "\257\300\033\115\307\000\300\214\060\055\310\100\244\000\000"};
static struct {unsigned f; char r[40];} string2 = {2555943, "\011\000\004\106\000\040\006\011\020\004\101\201\100\174\001\100\200\001\100\204\001\100\210\001\100\220\001\100\264\001\100\270\001\100\274\001\100\304\001"};
static struct {unsigned f; char r[48];} string3 = {2883632, "\260\006\005\146\151\162\163\164\216\257\300\033\115\307\000\300\214\060\055\310\100\244\005\004\162\145\163\164\214\216\257\300\033\115\307\000\300\214\060\055\310\100\244\261\000\000\000"};
static struct {unsigned f; char r[4];} string4 = {131074, "\004\003\000"};
static struct {unsigned f; char r[16];} string5 = {851984, "\257\300\217\312\123\217\300\153\345\363\273\100\164\000\000"};
static struct {unsigned f; char r[16];} string6 = {851984, "\257\300\033\115\307\000\300\214\060\055\310\100\150\000\000"};
static struct {unsigned f; char r[16];} string7 = {851984, "\257\300\262\245\110\370\300\216\274\026\201\100\164\000\000"};
static struct {
   word f0[6]; word f6; word f7; word f8; 
   word f9; word f10; word f11[3]; 
   } globalframe = {
   {0}, (word) DidMultiDelegation_P120, 0, (word) SingleDelegant_P60, 
   0, (word) XTkDelegationImpl_P0, {0}
   };

static void NoName_Q588()
   {
   register ptr gf_c033 =  (ptr) &globalframe;
   word var_c8940;
   (* (( (ptr) gf_c033)+4) ) = (word) XR_GetTypeIndex((word) &string1, 0, (word) &string2);
   (* (( (ptr) gf_c033)+5) ) = (word) XR_GetTypeIndex((word) &string3, 0, (word) &string4);
   (void) XR_DeclareGlobalFrame((word) "XTkDelegationImpl", &globalframe, (word) XR_GetTypeIndexS((word) (&string5)), (word) (
         ( (bPt) gf_c033)+40)/* var_c8620 */ );
   var_c8940 = (word) XR_ImportInterface((word) "XTk", (word) XR_GetTypeIndexS((word) (&string6)), 50);
   (* (( (ptr) gf_c033)+12)/* var_c8748 */  ) = var_c8940;
   (void) XR_ImportProcS(var_c8940, 67634690);
   (void) XR_ImportProcS(var_c8940, 67643138);
   var_c8940 = (word) XR_ExportInterface((word) "XTkDelegation", (word) XR_GetTypeIndexS((word) (&string7)), 5);
   (* (( (ptr) gf_c033)+13)/* var_c8972 */  ) = var_c8940;
   (void) XR_ExportProcS(var_c8940, (word) (( (bPt) gf_c033)+32)/* var_c8588 */ , 67895811);
   (void) XR_ExportProcS(var_c8940, (word) (( (bPt) gf_c033)+24)/* var_c8556 */ , 68158468);
   }

static void XTkDelegationImpl_P0(formal_c09, formal_c08)
   word formal_c09;
   word formal_c08;
   {
   /* XTkDelegationImpl: */ 
   }

static word SingleDelegant_P60(widget_v2576, expect_v2604, alternateKey_v2632)
   word widget_v2576;
   word expect_v2604;
   word alternateKey_v2632;
   {
   register ptr gf_c9004 =  (ptr) &globalframe;
   word var_c2692;
   /* SingleDelegant: */ 
SOURCE(172, 269)
SOURCE(279, 162)
   {
      register word noName_c8652 = 0;
      if ((noName_c8652 > 100)) {
         goto lab_L100000;
         };
      lab_L100003: ;
      {
         word var_c8684;
         word widget_v8480;
         word classKey_v8508;
SOURCE(299, 55)
         widget_v8480 = widget_v2576;
         classKey_v8508 = expect_v2604;
         {
            word pd8;
            if (((*  (ptr) (* (( (ptr) widget_v8480)+4) ) ) == classKey_v8508)) {
               var_c8684 = 1;
               }
            else {
               pd8 = (* (( (ptr) (* (( (ptr) gf_c9004)+12)/* var_c8748 */  ))+43) );
               var_c8684 = (word) ( *( (fPt) ((*  (ptr) pd8 ))))(widget_v8480, classKey_v8508, pd8);
               };
            };
         if (((0 != var_c8684)
         )) {
SOURCE(339, 15)
            return(widget_v2576);
            };
SOURCE(356, 85)
         {
            word var_c8780;
            {
               word pd9;
               pd9 = (* (( (ptr) (* (( (ptr) gf_c9004)+12)/* var_c8748 */  ))+10) );
               var_c8780 = (word) ( *( (fPt) ((*  (ptr) pd9 ))))(widget_v2576, alternateKey_v2632, pd9);
               };
            if ((var_c8780 == 0)) {
               goto lab_L100005;
               };
            if (((* (( (ptr) gf_c9004)+4) ) == XR_GetReferentType(var_c8780))) {
               {
                  word w_v2980;
                  w_v2980 = var_c8780;
SOURCE(431, 10)
                  widget_v2576 = w_v2980;
                  };
               }
            else {
               lab_L100005: ;
SOURCE(463, 5)
               (void) XR_RaiseUnnamedError();
               };
            };
         };
      if ((noName_c8652 >= 100)) {
         goto lab_L100000;
         };
      noName_c8652 = (noName_c8652 + 1);
      goto lab_L100003;
      lab_L100000: ;
      };
SOURCE(482, 5)
   (void) XR_RaiseUnnamedError();
   }

static word DidMultiDelegation_P120(widget_v2752, expect_v2780, alternateKey_v2808, proc_v2836)
   word widget_v2752;
   word expect_v2780;
   word alternateKey_v2808;
   word proc_v2836;
   {
   register ptr gf_c9036 =  (ptr) &globalframe;
   word did_v2952;
   /* DidMultiDelegation: */ 
SOURCE(523, 422)
   {
      word var_c8812;
      word widget_v8404;
      word classKey_v8432;
SOURCE(661, 54)
      widget_v8404 = widget_v2752;
      classKey_v8432 = expect_v2780;
      {
         word pd10;
         if (((*  (ptr) (* (( (ptr) widget_v8404)+4) ) ) == classKey_v8432)) {
            var_c8812 = 1;
            }
         else {
            pd10 = (* (( (ptr) (* (( (ptr) gf_c9036)+12)/* var_c8748 */  ))+43) );
            var_c8812 = (word) ( *( (fPt) ((*  (ptr) pd10 ))))(widget_v8404, classKey_v8432, pd10);
            };
         };
      if (((0 != var_c8812)
      )) {
SOURCE(701, 14)
         return(0);
         };
SOURCE(717, 228)
      {
         word var_c8876;
         word var_c8908;
         {
            word pd11;
            pd11 = (* (( (ptr) (* (( (ptr) gf_c9036)+12)/* var_c8748 */  ))+10) );
            var_c8876 = (word) ( *( (fPt) ((*  (ptr) pd11 ))))(widget_v2752, alternateKey_v2808, pd11);
            };
         if ((var_c8876 == 0)) {
            goto lab_L100007;
            };
         var_c8908 = XR_GetReferentType(var_c8876);
         if (((* (( (ptr) gf_c9036)+5) ) == var_c8908)) {
            {
               word wl_v3024;
               wl_v3024 = var_c8876;
SOURCE(802, 79)
               {
                  register word list_v3152;
                  list_v3152 = wl_v3024;
                  lab_L100011: ;
                  if ((list_v3152 != 0)) {
                     }
                  else {
                     goto lab_L100008;
                     };
SOURCE(865, 16)
                  (void) ( *( (fPt) ((*  (ptr) proc_v2836 ))))((*  (ptr) (list_v3152) ), proc_v2836);
                  list_v3152 = (* (( (ptr) list_v3152)+1) );
                  goto lab_L100011;
                  lab_L100008: ;
                  };
SOURCE(892, 10)
               did_v2952 = 1;
               };
            }
         else {
            if (((* (( (ptr) gf_c9036)+4) ) == var_c8908)) {
               {
                  word w_v3280;
                  w_v3280 = var_c8876;
SOURCE(926, 7)
                  (void) ( *( (fPt) ((*  (ptr) proc_v2836 ))))(w_v3280, proc_v2836);
SOURCE(935, 10)
                  did_v2952 = 1;
                  };
               }
            else {
               lab_L100007: ;
SOURCE(963, 5)
               (void) XR_RaiseUnnamedError();
               };
            };
         };
      };
SOURCE(523, 422)
   return(did_v2952);
   }

/* file: XTkDelegationImpl, module: XTkDelegationImpl, compiled at: April 21, 1992 12:44:02 pm PDT */ 
extern void XR_install_XTkDelegationImpl() {
   NoName_Q588();
   }
extern void XR_run_XTkDelegationImpl() { XR_Start(&globalframe); }