/* Generated with C2C (Cedar To C)*/
/* Copyright (C) 1993 by Xerox Corporation.  All rights reserved. */
/* time: October 22, 1993 5:07:41 pm PDT */
/* C2C version: April 20, 1993 (sun4) */
/* ref-counting: off */
/* file: X11ViewersSpecialCommandsImpl, module: X11ViewersSpecialCommandsImpl */ 
/* switches: bcfhklnouw */ 
#include <cedar/InstallationSupport.h>
#include <cedar/CedarExtra.h>
static char versionStamp[] = "@(#)mob_version [3740765544,1807752557] X11ViewersSpecialCommandsImpl";
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;} W7;
typedef struct {word f0, f1, f2;} W3;
typedef W3 *W3Pt;
typedef W7 *W7Pt;
#define SOURCE(p, l) /* source p, l */
static void NoName_Q1116();
static void X11ViewersSpecialCommandsImpl_P0();
static word SSDataOrFail_P60();
static word BMWidgetOrFail_P120();
static void ColorMapInfoCommand_P180();
static void ForceInvertColors_P240();
static void ForceBWColors_P300();
static struct {unsigned f; char r[16];} string1 = {917520, "\216\257\300\363\223\326\161\300\017\164\046\072\104\350\000"};
static struct {unsigned f; char r[4];} string2 = {65537, "\001\000\000"};
static struct {unsigned f; char r[44];} string3 = {2752556, "\260\006\005\146\151\162\163\164\257\300\351\276\264\273\300\115\104\320\264\122\200\005\004\162\145\163\164\214\257\300\351\276\264\273\300\115\104\320\264\122\200\261\000"};
static struct {unsigned f; char r[4];} string4 = {131074, "\003\007\000"};
static struct {unsigned f; char r[44];} string5 = {2752556, "\260\006\005\146\151\162\163\164\257\300\265\371\352\317\300\364\125\216\164\100\164\005\004\162\145\163\164\214\257\300\265\371\352\317\300\364\125\216\164\100\164\261\000"};
static struct {unsigned f; char r[4];} string6 = {131074, "\003\001\000"};
static struct {unsigned f; char r[24];} string7 = {1507352, "X11ViewersForceBWColors"};
static struct {unsigned f; char r[32];} string8 = {1966112, "world has not yet been started\000"};
static struct {unsigned f; char r[20];} string9 = {1048596, "world not active\000\000\000"};
static struct {unsigned f; char r[12];} string10 = {589836, "no colors\000\000"};
static struct {unsigned f; char r[24];} string11 = {1441816, "has private color map\012\000"};
static struct {unsigned f; char r[24];} string12 = {1507352, "uses default color map\012"};
static struct {unsigned f; char r[24];} string13 = {1441816, "black: %g, white: %g \012\000"};
static struct {unsigned f; char r[32];} string14 = {1900576, "XlColorAccess colormap: 0x%x\012\000\000"};
static struct {unsigned f; char r[24];} string15 = {1441816, "widget colormap: 0x%x\012\000"};
static struct {unsigned f; char r[12];} string16 = {655372, "idx: %4g  \000"};
static struct {unsigned f; char r[20];} string17 = {1179668, "rgb: %4g %4g %4g \012\000"};
static struct {unsigned f; char r[28];} string18 = {1769500, "X11ViewersForceInvertColors"};
static struct {unsigned f; char r[28];} string19 = {1572892, "For debugging X11Viewers\000\000\000"};
static struct {unsigned f; char r[28];} string20 = {1769500, "X11ViewersPrintColorMapInfo"};
static struct {unsigned f; char r[16];} string21 = {851984, "\257\300\336\367\215\150\300\153\300\035\155\100\164\000\000"};
static struct {unsigned f; char r[8];} string22 = {393222, "\006\0014\004\177\377\000"};
static struct {unsigned f; char r[16];} string23 = {851984, "\257\300\373\225\000\071\300\362\156\307\320\100\150\000\000"};
static struct {unsigned f; char r[16];} string24 = {851984, "\257\300\311\235\133\064\300\165\175\234\175\100\150\000\000"};
static struct {unsigned f; char r[16];} string25 = {851984, "\257\300\015\277\004\146\300\034\367\146\045\100\164\000\000"};
static struct {unsigned f; char r[16];} string26 = {851984, "\257\300\351\276\264\273\300\115\104\320\264\100\164\000\000"};
static struct {unsigned f; char r[16];} string27 = {851984, "\257\300\331\133\131\347\300\165\343\006\212\100\150\000\000"};
static struct {unsigned f; char r[16];} string28 = {851984, "\257\300\337\070\153\303\300\227\216\321\214\100\150\000\000"};
static struct {unsigned f; char r[16];} string29 = {851984, "\257\300\175\013\076\107\300\034\225\050\255\100\150\000\000"};
static W3 dummy43;
static struct {
   word f0[27]; word f27; word f28; word f29; 
   word f30; word f31; word f32; word f33; 
   word f34; word f35; word f36; word f37; 
   word f38[8]; 
   } globalframe = {
   {0}, (word) ForceBWColors_P300, 0, (word) ForceInvertColors_P240, 
   0, (word) ColorMapInfoCommand_P180, 0, (word) BMWidgetOrFail_P120, 
   0, (word) SSDataOrFail_P60, 0, (word) X11ViewersSpecialCommandsImpl_P0, 
   {0}
   };

static void NoName_Q1116()
   {
   register ptr gf_c087 =  (ptr) &globalframe;
   word var_c15504;
   (* (( (ptr) gf_c087)+9) ) = (word) XR_GetTypeIndex((word) &string1, 0, (word) &string2);
   (* (( (ptr) gf_c087)+11) ) = (word) XR_GetTypeIndex((word) &string3, 0, (word) &string4);
   (* (( (ptr) gf_c087)+12) ) = (word) XR_GetTypeIndex((word) &string5, 0, (word) &string6);
   (*  (ptr) (( (bPt) gf_c087)+52) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c087)+9) ), (word) &string7);
   (*  (ptr) (( (bPt) gf_c087)+56) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c087)+9) ), (word) &string8);
   (*  (ptr) (( (bPt) gf_c087)+60) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c087)+9) ), (word) &string9);
   (*  (ptr) (( (bPt) gf_c087)+64) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c087)+9) ), (word) &string10);
   (*  (ptr) (( (bPt) gf_c087)+68) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c087)+9) ), (word) &string11);
   (*  (ptr) (( (bPt) gf_c087)+72) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c087)+9) ), (word) &string12);
   (*  (ptr) (( (bPt) gf_c087)+76) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c087)+9) ), (word) &string13);
   (*  (ptr) (( (bPt) gf_c087)+80) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c087)+9) ), (word) &string14);
   (*  (ptr) (( (bPt) gf_c087)+84) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c087)+9) ), (word) &string15);
   (*  (ptr) (( (bPt) gf_c087)+88) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c087)+9) ), (word) &string16);
   (*  (ptr) (( (bPt) gf_c087)+92) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c087)+9) ), (word) &string17);
   (*  (ptr) (( (bPt) gf_c087)+96) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c087)+9) ), (word) &string18);
   (*  (ptr) (( (bPt) gf_c087)+100) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c087)+9) ), (word) &string19);
   (*  (ptr) (( (bPt) gf_c087)+104) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c087)+9) ), (word) &string20);
   (void) XR_DeclareGlobalFrame((word) "X11ViewersSpecialCommandsImpl", &globalframe, (word) XR_GetTypeIndex((word) &string21, 0, (word) &string22)
      , (word) (( (bPt) gf_c087)+148)/* var_c14096 */ );
   var_c15504 = (word) XR_ImportInterface((word) "Commander", (word) XR_GetTypeIndexS((word) (&string23)), 3);
   (* (( (ptr) gf_c087)+39)/* var_c14128 */  ) = var_c15504;
   (void) XR_ImportProcS(var_c15504, 1310725);
   var_c15504 = (word) XR_ImportInterface((word) "CommanderOps", (word) XR_GetTypeIndexS((word) (&string24)), 14);
   (* (( (ptr) gf_c087)+41)/* var_c14192 */  ) = var_c15504;
   var_c15504 = (word) XR_ImportInterface((word) "IO", (word) XR_GetTypeIndexS((word) (&string25)), 103);
   (* (( (ptr) gf_c087)+43)/* var_c14256 */  ) = var_c15504;
   (void) XR_ImportProcS(var_c15504, 1063171);
   (void) XR_ImportProcS(var_c15504, 2111493);
   (void) XR_ImportProcS(var_c15504, 1071364);
   var_c15504 = (word) XR_ImportInterface((word) "Xl", (word) XR_GetTypeIndexS((word) (&string26)), 218);
   (* (( (ptr) gf_c087)+45)/* var_c15344 */  ) = var_c15504;
   (void) XR_ImportProcS(var_c15504, 1097476);
   var_c15504 = (word) XR_ImportInterface((word) "XlColorAccess", (word) XR_GetTypeIndexS((word) (&string27)), 3);
   (* (( (ptr) gf_c087)+42)/* var_c14224 */  ) = var_c15504;
   (void) XR_ImportProcS(var_c15504, 67895299);
   var_c15504 = (word) XR_ImportInterface((word) "XlDetails", (word) XR_GetTypeIndexS((word) (&string28)), 4);
   (* (( (ptr) gf_c087)+44)/* var_c15312 */  ) = var_c15504;
   var_c15504 = (word) XR_ImportInterface((word) "X11ViewersInstance", (word) XR_GetTypeIndexS((word) (&string29)), 1);
   (* (( (ptr) gf_c087)+40)/* var_c14160 */  ) = var_c15504;
   (void) XR_ImportProcS(var_c15504, 67108864);
   }

static void X11ViewersSpecialCommandsImpl_P0(formal_c019, formal_c018)
   word formal_c019;
   word formal_c018;
   {
   register ptr gf_c15536 =  (ptr) &globalframe;
   /* X11ViewersSpecialCommandsImpl: */ 
SOURCE(121, 2868)
SOURCE(2703, 98)
   {
      word pd30;
      pd30 = (* (( (ptr) (* (( (ptr) gf_c15536)+39)/* var_c14128 */  ))+4) );
      (void) ( *( (fPt) ((*  (ptr) pd30 ))))((* (( (ptr) gf_c15536)+26) ), (word) (( (bPt) gf_c15536)+124)/* var_c14000 */ , (* (
            ( (ptr) gf_c15536)+25) ), 0, 1, pd30);
      };
SOURCE(2803, 96)
   {
      word pd31;
      pd31 = (* (( (ptr) (* (( (ptr) gf_c15536)+39)/* var_c14128 */  ))+4) );
      (void) ( *( (fPt) ((*  (ptr) pd31 ))))((* (( (ptr) gf_c15536)+24) ), (word) (( (bPt) gf_c15536)+116)/* var_c13968 */ , (* (
            ( (ptr) gf_c15536)+25) ), 0, 1, pd31);
      };
SOURCE(2901, 88)
   {
      word pd32;
      pd32 = (* (( (ptr) (* (( (ptr) gf_c15536)+39)/* var_c14128 */  ))+4) );
      (void) ( *( (fPt) ((*  (ptr) pd32 ))))((* (( (ptr) gf_c15536)+13) ), (word) (( (bPt) gf_c15536)+108)/* var_c13936 */ , (* (
            ( (ptr) gf_c15536)+25) ), 0, 1, pd32);
      };
   }

static word SSDataOrFail_P60()
   {
   register ptr gf_c15568 =  (ptr) &globalframe;
   word var_c3080;
   word ssd_v3168;
   /* SSDataOrFail: */ 
SOURCE(279, 210)
SOURCE(343, 60)
   {
      word pd33;
      pd33 = (* (( (ptr) (* (( (ptr) gf_c15568)+40)/* var_c14160 */  ))+4) );
      ssd_v3168 = (word) ( *( (fPt) ((*  (ptr) pd33 ))))(pd33);
      };
SOURCE(405, 69)
   if ((ssd_v3168 == 0)) {
SOURCE(421, 53)
      {
         word var_c022;
         var_c022 = (* (( (ptr) gf_c15568)+14) );
         (void) XR_RaiseError((* (( (ptr) (* (( (ptr) gf_c15568)+41)/* var_c14192 */  ))+4) ), (word) &var_c022);
         };
      };
SOURCE(476, 13)
   return(ssd_v3168);
   }

static word BMWidgetOrFail_P120()
   {
   register ptr gf_c15600 =  (ptr) &globalframe;
   word bm_v3140;
   word ssd_v3212;
   /* BMWidgetOrFail: */ 
SOURCE(493, 175)
SOURCE(493, 175)
   bm_v3140 = 0;
SOURCE(546, 49)
   ssd_v3212 = (word) SSDataOrFail_P60();
SOURCE(597, 71)
   bm_v3140 = (* (( (ptr) ssd_v3212)+4) );
   if ((bm_v3140 == 0)) {
SOURCE(629, 39)
      {
         word var_c025;
         var_c025 = (* (( (ptr) gf_c15600)+15) );
         (void) XR_RaiseError((* (( (ptr) (* (( (ptr) gf_c15600)+41)/* var_c14192 */  ))+4) ), (word) &var_c025);
         };
      };
SOURCE(493, 175)
   return(bm_v3140);
   }

static void ColorMapInfoCommand_P180(formal_c062, cmd_v4532)
   word formal_c062;
   word cmd_v4532;
   {
   register ptr gf_c15632 =  (ptr) &globalframe;
   word result_v4576;
   word msg_v4604;
   word bmw_v3256;
   word cd_v3284;
   /* ColorMapInfoCommand: */ 
SOURCE(674, 1029)
SOURCE(674, 1029)
   result_v4576 = 0;
SOURCE(674, 1029)
   msg_v4604 = 0;
SOURCE(721, 34)
   bmw_v3256 = (word) BMWidgetOrFail_P120();
SOURCE(757, 105)
   {
      word pd34;
      pd34 = (* (( (ptr) (* (( (ptr) gf_c15632)+42)/* var_c14224 */  ))+4) );
      cd_v3284 = (word) ( *( (fPt) ((*  (ptr) pd34 ))))((* (( (ptr) (* (( (ptr) bmw_v3256)+36) ))+1) ), 8, 3, pd34);
      };
SOURCE(864, 64)
   if ((cd_v3284 == 0) || (0 == (*  (ptr) cd_v3284 ))) {
SOURCE(896, 32)
      {
         word var_c031;
         var_c031 = (* (( (ptr) gf_c15632)+16) );
         (void) XR_RaiseError((* (( (ptr) (* (( (ptr) gf_c15632)+41)/* var_c14192 */  ))+4) ), (word) &var_c031);
         };
      };
SOURCE(930, 130)
   if ((0 != (* (( (ptr) cd_v3284)+1) ))) {
SOURCE(961, 52)
      {
         word pd35;
         pd35 = (* (( (ptr) (* (( (ptr) gf_c15632)+43)/* var_c14256 */  ))+93) );
         (void) ( *( (fPt) ((*  (ptr) pd35 ))))((* (( (ptr) cmd_v4532)+1) ), (* (( (ptr) gf_c15632)+17) ), 0, 2147483647, pd35);
         };
      }
   else {
SOURCE(1013, 47)
      {
         word pd36;
         pd36 = (* (( (ptr) (* (( (ptr) gf_c15632)+43)/* var_c14256 */  ))+93) );
         (void) ( *( (fPt) ((*  (ptr) pd36 ))))((* (( (ptr) cmd_v4532)+1) ), (* (( (ptr) gf_c15632)+18) ), 0, 2147483647, pd36);
         };
      };
SOURCE(1062, 103)
   {
      W2 var_c14288;
      W2 var_c14384;
      {
         W2 var_c14320;
         word v_v13888;
         v_v13888 = (* (( (ptr) cd_v3284)+3) );
         var_c14320.f0 = 4;
         var_c14320.f1 = v_v13888;
         var_c14288 = var_c14320;
         };
      {
         W2 var_c14416;
         word v_v13840;
         v_v13840 = (* (( (ptr) cd_v3284)+4) );
         var_c14416.f0 = 4;
         var_c14416.f1 = v_v13840;
         var_c14384 = var_c14416;
         };
      {
         W2 var_c094;
         (*  (ptr) (word) &var_c094 ) = 0;
         (* (( (ptr) (word) &var_c094) + 1) ) = 0;
         {
            word pd37;
            pd37 = (* (( (ptr) (* (( (ptr) gf_c15632)+43)/* var_c14256 */  ))+60) );
            (void) ( *( (fPt) ((*  (ptr) pd37 ))))((* (( (ptr) cmd_v4532)+1) ), (* (( (ptr) gf_c15632)+19) ), var_c14288, var_c14384, var_c094, pd37)
            ;
            };
         };
      };
SOURCE(1167, 88)
   {
      W2 var_c14512;
      {
         W2 var_c14544;
         word v_v13792;
         {
            word m_v13696;
            m_v13696 = (* (( (ptr) cd_v3284)+2) );
            v_v13792 = m_v13696;
            };
         var_c14544.f0 = 4;
         var_c14544.f1 = v_v13792;
         var_c14512 = var_c14544;
         };
      {
         word pd38;
         pd38 = (* (( (ptr) (* (( (ptr) gf_c15632)+43)/* var_c14256 */  ))+61) );
         (void) ( *( (fPt) ((*  (ptr) pd38 ))))((* (( (ptr) cmd_v4532)+1) ), (* (( (ptr) gf_c15632)+20) ), var_c14512, pd38);
         };
      };
SOURCE(1257, 93)
   {
      W2 var_c14640;
      {
         W2 var_c14672;
         word v_v13744;
         {
            word m_v13648;
            m_v13648 = (* (( (ptr) bmw_v3256)+28) );
            v_v13744 = m_v13648;
            };
         var_c14672.f0 = 4;
         var_c14672.f1 = v_v13744;
         var_c14640 = var_c14672;
         };
      {
         word pd39;
         pd39 = (* (( (ptr) (* (( (ptr) gf_c15632)+43)/* var_c14256 */  ))+61) );
         (void) ( *( (fPt) ((*  (ptr) pd39 ))))((* (( (ptr) cmd_v4532)+1) ), (* (( (ptr) gf_c15632)+21) ), var_c14640, pd39);
         };
      };
SOURCE(1352, 351)
   {
      word var_c14768;
      var_c14768 = (* (( (ptr) cd_v3284)+5) );
      if ((var_c14768 == 0)) {
         goto lab_L100007;
         };
      if (((* (( (ptr) gf_c15632)+12) ) == XR_GetReferentType(var_c14768))) {
         {
            word entries_v3328;
            entries_v3328 = var_c14768;
SOURCE(1418, 228)
            {
               register word l_v3372;
               l_v3372 = entries_v3328;
               lab_L100011: ;
               if ((l_v3372 != 0)) {
                  }
               else {
                  goto lab_L100008;
                  };
SOURCE(1482, 57)
               {
                  W2 var_c14800;
                  {
                     W2 var_c14832;
                     word v_v13600;
                     v_v13600 =  (unsigned) (*  (bPt) l_v3372 );
                     var_c14832.f0 = 5;
                     var_c14832.f1 = v_v13600;
                     var_c14800 = var_c14832;
                     };
                  {
                     word pd40;
                     pd40 = (* (( (ptr) (* (( (ptr) gf_c15632)+43)/* var_c14256 */  ))+61) );
                     (void) ( *( (fPt) ((*  (ptr) pd40 ))))((* (( (ptr) cmd_v4532)+1) ), (* (( (ptr) gf_c15632)+22) ), var_c14800, pd40);
                     };
                  };
SOURCE(1541, 105)
               {
                  W2 var_c14896;
                  W2 var_c14992;
                  W2 var_c15088;
                  {
                     W2 var_c14928;
                     word v_v13552;
                     v_v13552 =  (unsigned) (* (( (bPt) l_v3372)+1) );
                     var_c14928.f0 = 5;
                     var_c14928.f1 = v_v13552;
                     var_c14896 = var_c14928;
                     };
                  {
                     W2 var_c15024;
                     word v_v13504;
                     v_v13504 =  (unsigned) (* (( (bPt) l_v3372)+2) );
                     var_c15024.f0 = 5;
                     var_c15024.f1 = v_v13504;
                     var_c14992 = var_c15024;
                     };
                  {
                     W2 var_c15120;
                     word v_v13456;
                     v_v13456 =  (unsigned) (* (( (bPt) l_v3372)+3) );
                     var_c15120.f0 = 5;
                     var_c15120.f1 = v_v13456;
                     var_c15088 = var_c15120;
                     };
                  {
                     word pd41;
                     pd41 = (* (( (ptr) (* (( (ptr) gf_c15632)+43)/* var_c14256 */  ))+60) );
                     (void) ( *( (fPt) ((*  (ptr) pd41 ))))((* (( (ptr) cmd_v4532)+1) ), (* (( (ptr) gf_c15632)+23) ), var_c14896, var_c14992, var_c15088, pd41)
                     ;
                     };
                  };
               l_v3372 = (* (( (ptr) l_v3372)+1) );
               goto lab_L100011;
               lab_L100008: ;
               };
            };
         }
      else {
         lab_L100007: ;
SOURCE(1671, 32)
         {
            word var_c061;
            var_c061 = (* (( (ptr) gf_c15632)+16) );
            (void) XR_RaiseError((* (( (ptr) (* (( (ptr) gf_c15632)+41)/* var_c14192 */  ))+4) ), (word) &var_c061);
            };
         };
      };
   /* removed tail goto */ 
   (*  (ptr) formal_c062 ) = result_v4576;
   (* (( (ptr) formal_c062)+1) ) = msg_v4604;
   return;
   }

static void ForceInvertColors_P240(formal_c074, cmd_v4664)
   word formal_c074;
   word cmd_v4664;
   {
   register ptr gf_c15664 =  (ptr) &globalframe;
   word result_v4708;
   word msg_v4736;
   word bmw_v3416;
   word cd_v3444;
   W7 i1_v3472;
   W7 i2_v3500;
   /* ForceInvertColors: */ 
SOURCE(1709, 497)
SOURCE(1709, 497)
   result_v4708 = 0;
SOURCE(1709, 497)
   msg_v4736 = 0;
SOURCE(1754, 34)
   bmw_v3416 = (word) BMWidgetOrFail_P120();
SOURCE(1790, 105)
   {
      word pd42;
      pd42 = (* (( (ptr) (* (( (ptr) gf_c15664)+42)/* var_c14224 */  ))+4) );
      cd_v3444 = (word) ( *( (fPt) ((*  (ptr) pd42 ))))((* (( (ptr) (* (( (ptr) bmw_v3416)+36) ))+1) ), 8, 3, pd42);
      };
SOURCE(1897, 20)
   i1_v3472.f0 = 0;
   i1_v3472.f1 = 1;
   i1_v3472.f2 = 1;
   i1_v3472.f3 = 1;
   (*  (W3Pt) (( (ptr) &i1_v3472)+4) ) = (*  (W3Pt) &dummy43 );
   i2_v3500 = i1_v3472;
SOURCE(1919, 64)
   if ((cd_v3444 == 0) || (0 == (*  (ptr) cd_v3444 ))) {
SOURCE(1951, 32)
      {
         word var_c070;
         var_c070 = (* (( (ptr) gf_c15664)+16) );
         (void) XR_RaiseError((* (( (ptr) (* (( (ptr) gf_c15664)+41)/* var_c14192 */  ))+4) ), (word) &var_c070);
         };
      };
SOURCE(1985, 34)
   i1_v3472.f0 = (255 - (* (( (ptr) cd_v3444)+3) ));
SOURCE(2021, 30)
   i1_v3472.f4 = 65535;
   i1_v3472.f5 = 65535;
   i1_v3472.f6 = 65535;
SOURCE(2061, 34)
   i2_v3500.f0 = (255 - (* (( (ptr) cd_v3444)+4) ));
SOURCE(2097, 18)
   i2_v3500.f4 = 0;
   i2_v3500.f5 = 0;
   i2_v3500.f6 = 0;
SOURCE(2125, 81)
   {
      word var_c15216;
      {
         word var_c15248;
         word var_c15280;
         var_c15248 = XR_NewObject(32, (* (( (ptr) gf_c15664)+11) ));
         var_c15280 = var_c15248;
         (*  (W7Pt) var_c15280 ) = i1_v3472;
         (* (( (ptr) var_c15280)+7) ) = XR_NewObject(32, (* (( (ptr) gf_c15664)+11) ));
         var_c15280 = (* (( (ptr) var_c15280)+7) );
         (*  (W7Pt) var_c15280 ) = i2_v3500;
         var_c15216 = var_c15248;
         };
      {
         word pd44;
         pd44 = (* (( (ptr) (* (( (ptr) gf_c15664)+45)/* var_c15344 */  ))+195) );
         (void) ( *( (fPt) ((*  (ptr) pd44 ))))((* (( (ptr) bmw_v3416)+34) ), (* (( (ptr) cd_v3444)+2) ), var_c15216, (*  (ptr) (* (
               ( (ptr) (* (( (ptr) gf_c15664)+44)/* var_c15312 */  ))+5) ) ), pd44);
         };
      };
   /* removed tail goto */ 
   (*  (ptr) formal_c074 ) = result_v4708;
   (* (( (ptr) formal_c074)+1) ) = msg_v4736;
   return;
   }

static void ForceBWColors_P300(formal_c086, cmd_v4796)
   word formal_c086;
   word cmd_v4796;
   {
   register ptr gf_c15696 =  (ptr) &globalframe;
   word result_v4840;
   word msg_v4868;
   word bmw_v3544;
   word cd_v3572;
   W7 i1_v3600;
   W7 i2_v3628;
   /* ForceBWColors: */ 
SOURCE(2212, 485)
SOURCE(2212, 485)
   result_v4840 = 0;
SOURCE(2212, 485)
   msg_v4868 = 0;
SOURCE(2253, 34)
   bmw_v3544 = (word) BMWidgetOrFail_P120();
SOURCE(2289, 105)
   {
      word pd45;
      pd45 = (* (( (ptr) (* (( (ptr) gf_c15696)+42)/* var_c14224 */  ))+4) );
      cd_v3572 = (word) ( *( (fPt) ((*  (ptr) pd45 ))))((* (( (ptr) (* (( (ptr) bmw_v3544)+36) ))+1) ), 8, 3, pd45);
      };
SOURCE(2396, 20)
   i1_v3600.f0 = 0;
   i1_v3600.f1 = 1;
   i1_v3600.f2 = 1;
   i1_v3600.f3 = 1;
   (*  (W3Pt) (( (ptr) &i1_v3600)+4) ) = (*  (W3Pt) &dummy43 );
   i2_v3628 = i1_v3600;
SOURCE(2418, 64)
   if ((cd_v3572 == 0) || (0 == (*  (ptr) cd_v3572 ))) {
SOURCE(2450, 32)
      {
         word var_c082;
         var_c082 = (* (( (ptr) gf_c15696)+16) );
         (void) XR_RaiseError((* (( (ptr) (* (( (ptr) gf_c15696)+41)/* var_c14192 */  ))+4) ), (word) &var_c082);
         };
      };
SOURCE(2484, 30)
   i1_v3600.f0 = (* (( (ptr) cd_v3572)+3) );
SOURCE(2516, 18)
   i1_v3600.f4 = 0;
   i1_v3600.f5 = 0;
   i1_v3600.f6 = 0;
SOURCE(2544, 30)
   i2_v3628.f0 = (* (( (ptr) cd_v3572)+4) );
SOURCE(2576, 30)
   i2_v3628.f4 = 65535;
   i2_v3628.f5 = 65535;
   i2_v3628.f6 = 65535;
SOURCE(2616, 81)
   {
      word var_c15408;
      {
         word var_c15440;
         word var_c15472;
         var_c15440 = XR_NewObject(32, (* (( (ptr) gf_c15696)+11) ));
         var_c15472 = var_c15440;
         (*  (W7Pt) var_c15472 ) = i1_v3600;
         (* (( (ptr) var_c15472)+7) ) = XR_NewObject(32, (* (( (ptr) gf_c15696)+11) ));
         var_c15472 = (* (( (ptr) var_c15472)+7) );
         (*  (W7Pt) var_c15472 ) = i2_v3628;
         var_c15408 = var_c15440;
         };
      {
         word pd46;
         pd46 = (* (( (ptr) (* (( (ptr) gf_c15696)+45)/* var_c15344 */  ))+195) );
         (void) ( *( (fPt) ((*  (ptr) pd46 ))))((* (( (ptr) bmw_v3544)+34) ), (* (( (ptr) cd_v3572)+2) ), var_c15408, (*  (ptr) (* (
               ( (ptr) (* (( (ptr) gf_c15696)+44)/* var_c15312 */  ))+5) ) ), pd46);
         };
      };
   /* removed tail goto */ 
   (*  (ptr) formal_c086 ) = result_v4840;
   (* (( (ptr) formal_c086)+1) ) = msg_v4868;
   return;
   }

/* file: X11ViewersSpecialCommandsImpl, module: X11ViewersSpecialCommandsImpl, compiled at: October 22, 1993 5:07:40 pm PDT */ 
extern void XR_install_X11ViewersSpecialCommandsImpl() {
   XR_FillWords(&dummy43, 3, 0);
   NoName_Q1116();
   }
extern void XR_run_X11ViewersSpecialCommandsImpl() { XR_Start(&globalframe); }