/* Generated with C2C (Cedar To C)*/
/* Copyright (C) 1992 by Xerox Corporation.  All rights reserved. */
/* time: July 13, 1992 2:56:46 pm PDT */
/* C2C version: October 16, 1990 (native) */
/* ref-counting: off */
/* file: XTkIconImpl, module: XTkIconImpl */ 
/* switches: bcfhklnouw */ 
#include <cedar/InstallationSupport.h>
#include <cedar/CedarExtra.h>
static char versionStamp[] = "@(#)mob_version [3648959954,2387893415] XTkIconImpl";
typedef unsigned word, *ptr;
typedef unsigned char byte, *bPt;
typedef unsigned short half, *hPt;
typedef struct {word f0, f1, f2, f3, f4, f5, f6, f7;} W8;
typedef struct {word f0, f1, f2;} W3;
typedef struct {W8 f; W3 r;} W11;
typedef struct {word f0, f1;} W2;
typedef word (*fPt)();
typedef W3 *W3Pt;
typedef struct {word f0, f1, f2, f3, f4, f5;} W6;
typedef struct {word f0, f1, f2, f3;} W4;
typedef W4 *W4Pt;
typedef struct {word f0, f1, f2, f3, f4;} W5;
typedef W5 *W5Pt;
#define SOURCE(p, l) /* source p, l */
#define IOP2(op, x, y)  ( (word) ((x) op (y)) )
static void NoName_Q1092();
static void XTkIconImpl_P0();
static word SMFromName_P60();
static word NoName_Q1152();
static word NoName_Q1212();
static word GetStream_P408();
static word NoName_Q1272();
static void SetIcon_P120();
static word RopeQuery_P180();
static void SetIconName_P240();
static void SetIconMask_P300();
static void NoName_Q1332();
static void NoName_Q1392();
static void NoName_Q1452();
static struct {unsigned f; char r[16];} string1 = {851984, "\257\300\363\223\326\161\300\017\164\046\072\104\304\000\000"};
static struct {unsigned f; char r[24];} string2 = {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[4];} string3 = {131076, "\216\251\000"};
static struct {unsigned f; char r[4];} string4 = {65537, "\001\000\000"};
static struct {unsigned f; char r[16];} string5 = {917520, "\216\257\300\363\223\326\161\300\017\164\046\072\104\350\000"};
static struct {unsigned f; char r[12];} string6 = {524300, "iconMask\000\000\000"};
static struct {unsigned f; char r[12];} string7 = {655372, "iconPixmap\000"};
static struct {unsigned f; char r[16];} string8 = {851984, "/cedar/%g/%g.\000\000"};
static struct {unsigned f; char r[8];} string9 = {327688, "xIcon\000\000"};
static struct {unsigned f; char r[12];} string10 = {589836, "xIconMask\000\000"};
static struct {unsigned f; char r[12];} string11 = {524300, "iconName\000\000\000"};
static struct {unsigned f; char r[16];} string12 = {851984, "\257\300\331\176\265\322\300\216\124\134\247\100\164\000\000"};
static struct {unsigned f; char r[8];} string13 = {262148, "\004\200~\000\000\000\000"};
static struct {unsigned f; char r[16];} string14 = {851984, "\257\300\237\145\317\332\300\336\102\337\137\100\150\000\000"};
static struct {unsigned f; char r[16];} string15 = {851984, "\257\300\015\277\004\146\300\034\367\146\045\100\164\000\000"};
static struct {unsigned f; char r[16];} string16 = {851984, "\257\300\141\260\110\353\300\162\250\066\353\100\150\000\000"};
static struct {unsigned f; char r[16];} string17 = {851984, "\257\300\363\223\326\161\300\017\164\046\072\100\150\000\000"};
static struct {unsigned f; char r[16];} string18 = {851984, "\257\300\351\276\264\273\300\115\104\320\264\100\164\000\000"};
static struct {unsigned f; char r[16];} string19 = {851984, "\257\300\313\123\221\202\300\154\256\060\341\100\150\000\000"};
static struct {unsigned f; char r[16];} string20 = {851984, "\257\300\054\174\025\242\300\120\014\117\154\100\150\000\000"};
static struct {unsigned f; char r[16];} string21 = {851984, "\257\300\331\131\200\317\300\310\327\272\214\100\150\000\000"};
static struct {
   word f0[15]; word f15; 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[16]; 
   } globalframe = {
   {0}, (word) SetIconMask_P300, 0, (word) SetIconName_P240, 
   0, (word) RopeQuery_P180, 0, (word) SetIcon_P120, 
   0, (word) SMFromName_P60, 0, (word) XTkIconImpl_P0, 
   0, 2147483647, {0}
   };

static void NoName_Q1092()
   {
   register ptr gf_c0107 =  (ptr) &globalframe;
   word var_c18924;
   (* (( (ptr) gf_c0107)+4) ) = (word) XR_GetTypeIndex((word) &string1, 0, (word) &string2);
   (* (( (ptr) gf_c0107)+5) ) = (word) XR_GetTypeIndex((word) &string3, 0, (word) &string4);
   (* (( (ptr) gf_c0107)+8) ) = (word) XR_GetTypeIndex((word) &string5, 0, (word) &string4);
   (*  (ptr) (( (bPt) gf_c0107)+36) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0107)+5) ), (word) &string6);
   (*  (ptr) (( (bPt) gf_c0107)+40) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0107)+5) ), (word) &string7);
   (*  (ptr) (( (bPt) gf_c0107)+44) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0107)+8) ), (word) &string8);
   (*  (ptr) (( (bPt) gf_c0107)+48) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0107)+8) ), (word) &string9);
   (*  (ptr) (( (bPt) gf_c0107)+52) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0107)+8) ), (word) &string10);
   (*  (ptr) (( (bPt) gf_c0107)+56) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0107)+5) ), (word) &string11);
   (void) XR_DeclareGlobalFrame((word) "XTkIconImpl", &globalframe, (word) XR_GetTypeIndex((word) &string12, 0, (word) &string13)
      , (word) (( (bPt) gf_c0107)+100)/* var_c17996 */ );
   var_c18924 = (word) XR_ImportInterface((word) "CBitmapReader", (word) XR_GetTypeIndexS((word) (&string14)), 2);
   (* (( (ptr) gf_c0107)+36)/* var_c18188 */  ) = var_c18924;
   (void) XR_ImportProcS(var_c18924, 201588993);
   var_c18924 = (word) XR_ImportInterface((word) "IO", (word) XR_GetTypeIndexS((word) (&string15)), 103);
   (* (( (ptr) gf_c0107)+37)/* var_c18220 */  ) = var_c18924;
   (void) XR_ImportProcS(var_c18924, 68958724);
   (void) XR_ImportProcS(var_c18924, 530434);
   var_c18924 = (word) XR_ImportInterface((word) "PFS", (word) XR_GetTypeIndexS((word) (&string16)), 40);
   (* (( (ptr) gf_c0107)+39)/* var_c18284 */  ) = var_c18924;
   (void) XR_ImportProcS(var_c18924, 67371265);
   (void) XR_ImportProcS(var_c18924, 71312136);
   var_c18924 = (word) XR_ImportInterface((word) "Rope", (word) XR_GetTypeIndexS((word) (&string17)), 43);
   (* (( (ptr) gf_c0107)+38)/* var_c18252 */  ) = var_c18924;
   (void) XR_ImportProcS(var_c18924, 67633666);
   (void) XR_ImportProcS(var_c18924, 67373313);
   (void) XR_ImportProcS(var_c18924, 67896323);
   (void) XR_ImportProcS(var_c18924, 67373569);
   var_c18924 = (word) XR_ImportInterface((word) "Xl", (word) XR_GetTypeIndexS((word) (&string18)), 218);
   (* (( (ptr) gf_c0107)+40)/* var_c18476 */  ) = var_c18924;
   (void) XR_ImportProcS(var_c18924, 3450891);
   (void) XR_ImportProcS(var_c18924, 822787);
   (void) XR_ImportProcS(var_c18924, 67668226);
   (void) XR_ImportProcS(var_c18924, 68705285);
   var_c18924 = (word) XR_ImportInterface((word) "XTkDB", (word) XR_GetTypeIndexS((word) (&string19)), 7);
   (* (( (ptr) gf_c0107)+41)/* var_c18668 */  ) = var_c18924;
   (void) XR_ImportProcS(var_c18924, 68157700);
   var_c18924 = (word) XR_ImportInterface((word) "XTkShellWidgets", (word) XR_GetTypeIndexS((word) (&string20)), 26);
   (* (( (ptr) gf_c0107)+42)/* var_c18732 */  ) = var_c18924;
   (void) XR_ImportProcS(var_c18924, 67376641);
   var_c18924 = (word) XR_ExportInterface((word) "XTkIcon", (word) XR_GetTypeIndexS((word) (&string21)), 2);
   (* (( (ptr) gf_c0107)+43)/* var_c18956 */  ) = var_c18924;
   (void) XR_ExportProcS(var_c18924, (word) (( (bPt) gf_c0107)+68)/* var_c17868 */ , 786435);
   (void) XR_ExportProcS(var_c18924, (word) (( (bPt) gf_c0107)+60)/* var_c17836 */ , 1048836);
   }

static void XTkIconImpl_P0(formal_c027, formal_c026)
   word formal_c027;
   word formal_c026;
   {
   /* XTkIconImpl: */ 
   /* moved to installation proc */ 
   }

static word SMFromName_P60(fileName_v3080)
   word fileName_v3080;
   {
   W11 var_c18988;
   register ptr gf_c19020 =  (ptr) &globalframe;
   word sm_v3124;
   /* declaration of var_c18156 skipped */ 
   /* SMFromName: */ 
SOURCE(231, 555)
   {
      word tmpAddr22;
      tmpAddr22 = (word) (( (ptr) &var_c18988)+4)/* var_c18156 */ ;
      (*  (ptr) tmpAddr22 ) = ( ((word)  (fPt) GetStream_P408) );
      (* (( (ptr) tmpAddr22) + 1) ) = 1;
      };
SOURCE(231, 555)
   sm_v3124 = 0;
SOURCE(321, 465)
SOURCE(323, 17)
   {
      /* declaration of stream_v3728 skipped */ 
SOURCE(562, 39)
      (* (( (ptr) &var_c18988)+6)/* stream_v3728 */  ) = (word) GetStream_P408(fileName_v3080, (word) (( (bPt) &var_c18988)+16)
         /* var_c18156 */ );
SOURCE(603, 160)
      if (((* (( (ptr) &var_c18988)+6)/* stream_v3728 */  ) != 0)) {
         {
            /* declaration of var_c01 skipped */ 
            /* declaration of var_c02 skipped */ 
SOURCE(624, 94)
            (* (( (ptr) &var_c18988)+7)/* var_c01 */  ) = (* (( (ptr) (* (( (ptr) gf_c19020)+36)/* var_c18188 */  ))+5) );
            {
               word var_c05;
               {
                  word var_c0122;
                  var_c0122 = (word) &var_c18988;
                  var_c05 = (word) XR_Enable(( ((word)  (fPt) NoName_Q1152) ), ( ((word)  (fPt) NoName_Q1392) ), var_c0122);
                  };
               if ((var_c05 == 2)) {
                  goto lab_L100000;
                  };
               };
            sm_v3124 = (*  (W3Pt) (( (ptr) &var_c18988)+8)/* var_c02 */  ).f0;
SOURCE(747, 16)
            {
               word pd23;
               pd23 = (* (( (ptr) (* (( (ptr) gf_c19020)+37)/* var_c18220 */  ))+28) );
               (void) ( *( (fPt) ((*  (ptr) pd23 ))))((* (( (ptr) &var_c18988)+6)/* stream_v3728 */  ), 0, pd23);
               };
            };
         };
      };
   goto lab_L100005;
   lab_L100000: ;
   lab_L100005: ;
SOURCE(231, 555)
   return(sm_v3124);
   }

static word NoName_Q1152(formal_c0109)
   word formal_c0109;
   {
SOURCE(624, 94)
   {
      word pd24;
      pd24 = (* (( (ptr) formal_c0109)+7) );
      (void) ( *( (fPt) ((*  (ptr) pd24 ))))((word) (( (bPt) formal_c0109)+32), (* (( (ptr) formal_c0109)+6) ), pd24);
      };
   return(0);
   }

static word NoName_Q1212(formal_c0110)
   word formal_c0110;
   {
SOURCE(688, 30)
   {
      word pd25;
      pd25 = (* (( (ptr) formal_c0110)+4) );
      (void) ( *( (fPt) ((*  (ptr) pd25 ))))((* (( (ptr) (*  (ptr) formal_c0110 ))+6) ), 0, pd25);
      };
   return(0);
   }

static word GetStream_P408(formal_c0132, formal_c19116)
   word formal_c0132;
   word formal_c19116;
   {
   W6 var_c19052;
   /* declaration of fileName_v3804 skipped */ 
   register ptr gf_c19084 =  (ptr) &globalframe;
   /* declaration of s_v3848 skipped */ 
   formal_c19116 = (formal_c19116 - 16);
   var_c19052.f4/* fileName_v3804 */  = formal_c0132;
   var_c19052.f0 = formal_c19116;
   /* GetStream: */ 
SOURCE(323, 17)
SOURCE(323, 17)
   var_c19052.f5/* s_v3848 */  = 0;
SOURCE(394, 324)
   {
      word pd26;
      pd26 = (* (( (ptr) (* (( (ptr) gf_c19084)+38)/* var_c18252 */  ))+14) );
      if (( (int)(word) ( *( (fPt) ((*  (ptr) pd26 ))))(var_c19052.f4/* fileName_v3804 */ , pd26) >  (int)0)) {
SOURCE(426, 292)
SOURCE(428, 290)
         {
            word var_c06;
            {
               word var_c0123;
               var_c0123 = (word) &var_c19052;
               var_c06 = (word) XR_Enable(( ((word)  (fPt) NoName_Q1272) ), ( ((word)  (fPt) NoName_Q1332) ), var_c0123);
               };
            if ((var_c06 == 3)) {
               goto lab_L100006;
               };
            };
         goto lab_L100009;
         lab_L100006: ;
         lab_L100009: ;
         };
      };
SOURCE(323, 17)
   return(var_c19052.f5/* s_v3848 */ );
   }

static word NoName_Q1272(formal_c0114)
   word formal_c0114;
   {
   register ptr gf_c0113 =  (ptr) &globalframe;
SOURCE(459, 259)
   {
      word var_c18316;
      {
         word pd27;
         pd27 = (* (( (ptr) (* (( (ptr) gf_c0113)+39)/* var_c18284 */  ))+5) );
         var_c18316 = (word) ( *( (fPt) ((*  (ptr) pd27 ))))((* ((( (ptr) formal_c0114)+4)) ), pd27);
         };
      {
         W2 var_c18348;
         var_c18348.f0 = 4096;
         var_c18348.f1 = 2;
         {
            word pd28;
            pd28 = (* (( (ptr) (* (( (ptr) gf_c0113)+39)/* var_c18284 */  ))+39) );
            (* (( (ptr) formal_c0114)+5) ) = (word) ( *( (fPt) ((*  (ptr) pd28 ))))(var_c18316, 0, (*  (W4Pt) (( (ptr) gf_c0113)+27)/* var_c18060 */  ), 0, 0, (*  (W5Pt) (
                  ( (ptr) gf_c0113)+31)/* var_c18124 */  )
               , 1, var_c18348, pd28);
            };
         };
      };
   return(0);
   }

static void SetIcon_P120(shell_v3184, icccmHints_v3212, baseFileNamePart_v3240, maskFileNamePart_v3268)
   word shell_v3184;
   word icccmHints_v3212;
   word baseFileNamePart_v3240;
   word maskFileNamePart_v3268;
   {
   register ptr gf_c19148 =  (ptr) &globalframe;
   word sm_v3876;
   /* SetIcon: */ 
SOURCE(790, 1914)
SOURCE(919, 63)
   sm_v3876 = (word) SMFromName_P60(baseFileNamePart_v3240);
SOURCE(984, 1720)
   if ((sm_v3876 != 0)) {
SOURCE(999, 1713)
      {
         word screen_v3920;
         W2 szVec_v3948;
         W2 size_v3976;
         word base_v4004;
         word scanLineBytes_v4032;
         word iconPixmap_v4060;
         word gc_v4088;
SOURCE(1001, 44)
         screen_v3920 = (* (( (ptr) (* (( (ptr) shell_v3184)+36) ))+1) );
SOURCE(1047, 50)
         {
            word map_v17788;
            map_v17788 = sm_v3876;
            {
               W4 b_v10152;
               b_v10152 = (*  (W4Pt) map_v17788 );
               szVec_v3948.f0 = (b_v10152.f2 - b_v10152.f0);
               szVec_v3948.f1 = (b_v10152.f3 - b_v10152.f1);
               };
            };
SOURCE(1099, 49)
         size_v3976.f0 = szVec_v3948.f1;
         size_v3976.f1 = szVec_v3948.f0;
SOURCE(1150, 60)
         base_v4004 = (* (( (ptr) sm_v3876)+8) );
SOURCE(1212, 54)
         scanLineBytes_v4032 = IOP2( / ,  (int)(* (( (ptr) sm_v3876)+7) ),  (int)8);
SOURCE(1268, 88)
         {
            word pd29;
            pd29 = (* (( (ptr) (* (( (ptr) gf_c19148)+40)/* var_c18476 */  ))+96) );
            iconPixmap_v4060 = (word) ( *( (fPt) ((*  (ptr) pd29 ))))((* (( (ptr) shell_v3184)+34) ), (*  (ptr) screen_v3920 ), size_v3976, 1, 0, pd29)
            ;
            };
SOURCE(1444, 72)
         {
            word pd30;
            pd30 = (* (( (ptr) (* (( (ptr) gf_c19148)+40)/* var_c18476 */  ))+141) );
            gc_v4088 = (word) ( *( (fPt) ((*  (ptr) pd30 ))))((* (( (ptr) shell_v3184)+34) ), iconPixmap_v4060, pd30);
            };
SOURCE(1518, 25)
         {
            word pd31;
            pd31 = (* (( (ptr) (* (( (ptr) gf_c19148)+40)/* var_c18476 */  ))+146) );
            (void) ( *( (fPt) ((*  (ptr) pd31 ))))(gc_v4088, 1, 0, pd31);
            };
SOURCE(1545, 174)
         {
            W2 var_c18508;
            var_c18508.f0 = 0;
            var_c18508.f1 = 0;
            {
               word pd32;
               pd32 = (* (( (ptr) (* (( (ptr) gf_c19148)+40)/* var_c18476 */  ))+172) );
               (void) ( *( (fPt) ((*  (ptr) pd32 ))))((* (( (ptr) shell_v3184)+34) ), iconPixmap_v4060, gc_v4088, size_v3976, var_c18508, base_v4004
                  , 0, 0, scanLineBytes_v4032, 1, 0, pd32);
               };
            };
SOURCE(1721, 42)
         (* (( (ptr) icccmHints_v3212)+32) ) = iconPixmap_v4060;
SOURCE(1765, 32)
         (* (( (ptr) icccmHints_v3212)+1) ) = 1;
SOURCE(1799, 140)
         {
            word pd33;
            pd33 = (* (( (ptr) (* (( (ptr) gf_c19148)+38)/* var_c18252 */  ))+8) );
            if ((0 != (word) ( *( (fPt) ((*  (ptr) pd33 ))))(baseFileNamePart_v3240, maskFileNamePart_v3268, 1, pd33))) {
SOURCE(1856, 40)
               (* (( (ptr) icccmHints_v3212)+36) ) = iconPixmap_v4060;
SOURCE(1899, 32)
               (* (( (ptr) icccmHints_v3212)+1) ) = 1;
SOURCE(1933, 6)
               return;
               };
            };
SOURCE(1944, 760)
         if ((maskFileNamePart_v3268 != 0)) {
SOURCE(1973, 736)
            {
               word sm_v4144;
SOURCE(1975, 63)
               sm_v4144 = (word) SMFromName_P60(maskFileNamePart_v3268);
SOURCE(2040, 664)
               if ((sm_v4144 != 0)) {
SOURCE(2055, 651)
                  {
                     W2 szVec_v4188;
                     W2 size_v4216;
                     word base_v4244;
                     word scanLineBytes_v4272;
                     word maskPixmap_v4300;
SOURCE(2057, 50)
                     {
                        word map_v17712;
                        map_v17712 = sm_v4144;
                        {
                           W4 b_v17744;
                           b_v17744 = (*  (W4Pt) map_v17712 );
                           szVec_v4188.f0 = (b_v17744.f2 - b_v17744.f0);
                           szVec_v4188.f1 = (b_v17744.f3 - b_v17744.f1);
                           };
                        };
SOURCE(2109, 49)
                     size_v4216.f0 = szVec_v4188.f1;
                     size_v4216.f1 = szVec_v4188.f0;
SOURCE(2160, 60)
                     base_v4244 = (* (( (ptr) sm_v4144)+8) );
SOURCE(2222, 54)
                     scanLineBytes_v4272 = IOP2( / ,  (int)(* (( (ptr) sm_v4144)+7) ),  (int)8);
SOURCE(2278, 88)
                     {
                        word pd34;
                        pd34 = (* (( (ptr) (* (( (ptr) gf_c19148)+40)/* var_c18476 */  ))+96) );
                        maskPixmap_v4300 = (word) ( *( (fPt) ((*  (ptr) pd34 ))))((* (( (ptr) shell_v3184)+34) ), (*  (ptr) screen_v3920 ), size_v4216, 1, 0, pd34)
                        ;
                        };
SOURCE(2454, 174)
                     {
                        W2 var_c18636;
                        var_c18636.f0 = 0;
                        var_c18636.f1 = 0;
                        {
                           word pd35;
                           pd35 = (* (( (ptr) (* (( (ptr) gf_c19148)+40)/* var_c18476 */  ))+172) );
                           (void) ( *( (fPt) ((*  (ptr) pd35 ))))((* (( (ptr) shell_v3184)+34) ), maskPixmap_v4300, gc_v4088, size_v4216, var_c18636, base_v4244
/*1*/   , 0, 0, scanLineBytes_v4272, 1, 0, pd35);
                           };
                        };
SOURCE(2630, 40)
                     (* (( (ptr) icccmHints_v3212)+36) ) = maskPixmap_v4300;
SOURCE(2672, 32)
                     (* (( (ptr) icccmHints_v3212)+1) ) = 1;
                     };
                  };
               };
            };
         };
      };
   }

static word RopeQuery_P180(shell_v3340, key_v3368)
   word shell_v3340;
   word key_v3368;
   {
   register ptr gf_c19180 =  (ptr) &globalframe;
   word var_c3412;
   word q_v4356;
   /* RopeQuery: */ 
SOURCE(2719, 173)
SOURCE(2719, 173)
   var_c3412 = 0;
SOURCE(2794, 51)
   {
      word pd36;
      pd36 = (* (( (ptr) (* (( (ptr) gf_c19180)+41)/* var_c18668 */  ))+5) );
      q_v4356 = (word) ( *( (fPt) ((*  (ptr) pd36 ))))(shell_v3340, 0, key_v3368, 0, pd36);
      };
SOURCE(2847, 45)
   {
      word var_c18700;
      var_c18700 = q_v4356;
      if ((var_c18700 == 0)) {
         goto lab_L100012;
         };
      {
         word tc37;
         if (((* (( (ptr) gf_c19180)+4) ) == XR_GetReferentType(var_c18700))) {
            tc37 =  (word) ((*(int*)var_c18700<0) == 0);
            }
         else {
            tc37 =  (word) 0;
            };
         if (tc37) {
            {
               word r_v4416;
               r_v4416 = var_c18700;
SOURCE(2882, 10)
               return(r_v4416);
               };
            }
         else {
            lab_L100012: ;
            };
         };
      };
SOURCE(2719, 173)
   return(var_c3412);
   }

static void SetIconName_P240(shell_v3472, fromDB_v3500, default_v3528)
   word shell_v3472;
   word fromDB_v3500;
   word default_v3528;
   {
   register ptr gf_c19212 =  (ptr) &globalframe;
   word icccmHints_v4460;
   /* SetIconName: */ 
SOURCE(2912, 423)
SOURCE(3008, 76)
   {
      word pd38;
      pd38 = (* (( (ptr) (* (( (ptr) gf_c19212)+42)/* var_c18732 */  ))+26) );
      icccmHints_v4460 = (word) ( *( (fPt) ((*  (ptr) pd38 ))))(shell_v3472, pd38);
      };
SOURCE(3087, 248)
   if (((* (( (ptr) icccmHints_v4460)+40) ) == 0)) {
SOURCE(3121, 180)
      if ((0 != fromDB_v3500)) {
SOURCE(3136, 167)
         {
            word specified_v4516;
SOURCE(3138, 50)
            specified_v4516 = (word) RopeQuery_P180(shell_v3472, (* (( (ptr) gf_c19212)+14) ));
SOURCE(3190, 111)
            {
               word pd39;
               pd39 = (* (( (ptr) (* (( (ptr) gf_c19212)+38)/* var_c18252 */  ))+13) );
               if ((0 == (word) ( *( (fPt) ((*  (ptr) pd39 ))))(specified_v4516, pd39))) {
SOURCE(3225, 31)
                  (* (( (ptr) icccmHints_v4460)+40) ) = specified_v4516;
SOURCE(3259, 33)
                  (* (( (ptr) icccmHints_v4460)+3) ) = 1;
SOURCE(3294, 7)
                  return;
                  };
               };
            };
         };
SOURCE(3306, 29)
      (* (( (ptr) icccmHints_v4460)+40) ) = default_v3528;
      };
   }

static void SetIconMask_P300(shell_v3588, fromDB_v3616, packageName_v3644, shortName_v3672)
   word shell_v3588;
   word fromDB_v3616;
   word packageName_v3644;
   word shortName_v3672;
   {
   register ptr gf_c19244 =  (ptr) &globalframe;
   word fileName_v4560 = 0;
   word icccmHints_v4588;
   word hasIconWindow_v4616;
   word hasIcon_v4644;
   word hasMask_v4672;
   /* SetIconMask: */ 
SOURCE(3344, 985)
SOURCE(3482, 76)
   {
      word pd40;
      pd40 = (* (( (ptr) (* (( (ptr) gf_c19244)+42)/* var_c18732 */  ))+26) );
      icccmHints_v4588 = (word) ( *( (fPt) ((*  (ptr) pd40 ))))(shell_v3588, pd40);
      };
SOURCE(3561, 65)
   hasIconWindow_v4616 = ((* (( (ptr) icccmHints_v4588)+33) ) != 0);
SOURCE(3628, 129)
   hasIcon_v4644 =  ( (0 != hasIconWindow_v4616) ? 1 :  ( ((* (( (ptr) icccmHints_v4588)+32) ) !=  (word) -1) ? ((* (( (ptr) icccmHints_v4588)+32)
    ) != 0) : 0 )  ) ;
SOURCE(3759, 125)
   hasMask_v4672 =  ( (0 != hasIconWindow_v4616) ? 1 :  ( ((* (( (ptr) icccmHints_v4588)+36) ) !=  (word) -1) ? ((* (( (ptr) icccmHints_v4588)+36)
    ) != 0) : 0 )  ) ;
SOURCE(3886, 443)
   if ((0 == hasIcon_v4644)) {
SOURCE(3905, 243)
      if ((0 != fromDB_v3616)) {
SOURCE(3922, 40)
         fileName_v4560 = (word) RopeQuery_P180(shell_v3588, (* (( (ptr) gf_c19244)+10) ));
SOURCE(3964, 184)
         {
            word pd41;
            pd41 = (* (( (ptr) (* (( (ptr) gf_c19244)+38)/* var_c18252 */  ))+13) );
            if ((0 == (word) ( *( (fPt) ((*  (ptr) pd41 ))))(fileName_v4560, pd41))) {
SOURCE(3996, 154)
               {
                  word iconMaskFile_v4728 = 0;
SOURCE(4029, 59)
                  if ((0 == hasMask_v4672)) {
SOURCE(4046, 42)
                     iconMaskFile_v4728 = (word) RopeQuery_P180(shell_v3588, (* (( (ptr) gf_c19244)+9) ));
                     };
SOURCE(4090, 50)
                  (void) SetIcon_P120(shell_v3588, icccmHints_v4588, fileName_v4560, iconMaskFile_v4728);
SOURCE(4142, 6)
                  return;
                  };
               };
            };
         };
SOURCE(4155, 78)
      {
         W2 var_c18764;
         W2 var_c18796;
         W2 var_c0124;
         var_c18764.f0 = 11;
         var_c18764.f1 = packageName_v3644;
         var_c18796.f0 = 11;
         var_c18796.f1 = shortName_v3672;
         (*  (ptr) (word) &var_c0124 ) = 0;
         (* (( (ptr) (word) &var_c0124) + 1) ) = 0;
         {
            word pd42;
            pd42 = (* (( (ptr) (* (( (ptr) gf_c19244)+37)/* var_c18220 */  ))+62) );
            fileName_v4560 = (word) ( *( (fPt) ((*  (ptr) pd42 ))))((* (( (ptr) gf_c19244)+11) ), var_c18764, var_c18796, var_c0124, pd42)
            ;
            };
         };
SOURCE(4235, 94)
      {
         word var_c18860;
         word var_c18892;
         {
            word pd43;
            pd43 = (* (( (ptr) (* (( (ptr) gf_c19244)+38)/* var_c18252 */  ))+6) );
            var_c18860 = (word) ( *( (fPt) ((*  (ptr) pd43 ))))(fileName_v4560, (* (( (ptr) gf_c19244)+12) ), pd43);
            };
         {
            word pd44;
            pd44 = (* (( (ptr) (* (( (ptr) gf_c19244)+38)/* var_c18252 */  ))+6) );
            var_c18892 = (word) ( *( (fPt) ((*  (ptr) pd44 ))))(fileName_v4560, (* (( (ptr) gf_c19244)+13) ), pd44);
            };
         (void) SetIcon_P120(shell_v3588, icccmHints_v4588, var_c18860, var_c18892);
         };
      };
   }

static void NoName_Q1332(formal_c091, formal_c200008, formal_c200009, formal_c200010, formal_c200011)
   word formal_c091;
   word formal_c200008;
   word formal_c200009;
   word formal_c200010;
   word formal_c200011;
   {
   register ptr gf_c0119 =  (ptr) &globalframe;
   if ((formal_c200009 == (* (( (ptr) (* (( (ptr) gf_c0119)+39)/* var_c18284 */  ))+9) ))) {
      {
         W4 error_v7212;
         error_v7212 = (*  (W4Pt) formal_c200011 );
SOURCE(448, 9)
         (*  (ptr) formal_c091 ) = 2;
         (* (( (ptr) formal_c091)+1) ) = 3;
         return;
         };
      };
   (*  (ptr) formal_c091 ) = 0;
   (* (( (ptr) formal_c091)+1) ) = 0;
   return;
   }

static void NoName_Q1392(formal_c097, formal_c200000, formal_c200001, formal_c200002, formal_c200003)
   word formal_c097;
   word formal_c200000;
   word formal_c200001;
   word formal_c200002;
   word formal_c200003;
   {
   W5 var_c0131;
   register ptr gf_c0120 =  (ptr) &globalframe;
   var_c0131.f0 = formal_c200000;
   if ((formal_c200001 == (* (( (ptr) (* (( (ptr) gf_c0120)+36)/* var_c18188 */  ))+4) ))) {
      {
         word explanation_v5948;
         explanation_v5948 = (*  (ptr) formal_c200003 );
SOURCE(688, 30)
         {
            /* declaration of var_c03 skipped */ 
            var_c0131.f4/* var_c03 */  = (* (( (ptr) (* (( (ptr) gf_c0120)+37)/* var_c18220 */  ))+28) );
            {
               word var_c04;
               {
                  word var_c0125;
                  var_c0125 = (word) &var_c0131;
                  var_c04 = (word) XR_Enable(( ((word)  (fPt) NoName_Q1212) ), ( ((word)  (fPt) NoName_Q1452) ), var_c0125);
                  };
               if ((var_c04 == 2)) {
                  (*  (ptr) formal_c097 ) = 2;
                  (* (( (ptr) formal_c097)+1) ) = 2;
                  return;
                  };
               };
            };
SOURCE(730, 9)
         (*  (ptr) formal_c097 ) = 2;
         (* (( (ptr) formal_c097)+1) ) = 2;
         return;
         };
      };
   (*  (ptr) formal_c097 ) = 0;
   (* (( (ptr) formal_c097)+1) ) = 0;
   return;
   }

static void NoName_Q1452(formal_c0106, formal_c200004, formal_c200005, formal_c200006, formal_c200007)
   word formal_c0106;
   word formal_c200004;
   word formal_c200005;
   word formal_c200006;
   word formal_c200007;
   {
   register ptr gf_c0121 =  (ptr) &globalframe;
   if ((formal_c200005 == (* (( (ptr) (* (( (ptr) gf_c0121)+37)/* var_c18220 */  ))+5) ))) {
      {
         word ec_v6492;
         word stream_v6520;
         word details_v6548;
         word msg_v6576;
         ec_v6492 = (*  (ptr) formal_c200007 );
         stream_v6520 = (* (( (ptr) formal_c200007)+1) );
         details_v6548 = (* (( (ptr) formal_c200007)+2) );
         msg_v6576 = (* (( (ptr) formal_c200007)+3) );
SOURCE(718, 10)
         (*  (ptr) formal_c0106 ) = 2;
         (* (( (ptr) formal_c0106)+1) ) = 2;
         return;
         };
      };
   (*  (ptr) formal_c0106 ) = 0;
   (* (( (ptr) formal_c0106)+1) ) = 0;
   return;
   }

/* file: XTkIconImpl, module: XTkIconImpl, compiled at: July 13, 1992 2:56:43 pm PDT */ 
extern void XR_install_XTkIconImpl() {
   NoName_Q1092();
   }
extern void XR_run_XTkIconImpl() { XR_Start(&globalframe); }