/* Generated with C2C (Cedar To C)*/
/* Copyright (C) 1992 by Xerox Corporation.  All rights reserved. */
/* time: December 3, 1992 6:30:15 pm PST */
/* C2C version: October 7, 1992 (native) */
/* ref-counting: off */
/* file: GGViewerOpsImpl, module: GGViewerOpsImpl */ 
/* switches: bcfhklnouw */ 
#include <cedar/InstallationSupport.h>
#include <cedar/CedarExtra.h>
static char versionStamp[] = "@(#)mob_version [3680610537,2807739241] GGViewerOpsImpl";
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 {W8 f; word r;} W9;
typedef word (*fPt)();
typedef struct {word f0, f1;} W2;
typedef W2 *W2Pt;
#define SOURCE(p, l) /* source p, l */
static float fc29 = 0.0;
static void NoName_Q828();
static void GGViewerOpsImpl_P0();
static word GetReal_P60();
static word NoName_Q888();
static void GetTwoReals_P120();
static word GetPositiveReal_P180();
static word NoName_Q948();
static void SetReal_P240();
static void GetPoint_P300();
static void SetPoint_P360();
static word ReadBlankAndReal_P420();
static void ReadBlank_P480();
static word ReadReal_P540();
static word NoName_Q1008();
static word RealBreakProc_P600();
static void GetIconSize_P660();
static word GetSelectionContents_P720();
static void NoName_Q1068();
static void NoName_Q1128();
static void NoName_Q1188();
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[8];} string3 = {458760, "[%g,%g]"};
static struct {unsigned f; char r[4];} string4 = {65540, ".\000\000"};
static struct {unsigned f; char r[4];} string5 = {131076, ".0\000"};
static struct {unsigned f; char r[4];} string6 = {131076, "%g\000"};
static struct {unsigned f; char r[16];} string7 = {851984, "\257\300\333\141\250\351\300\247\132\263\151\100\164\000\000"};
static struct {unsigned f; char r[4];} string8 = {196611, "\004^\000"};
static struct {unsigned f; char r[16];} string9 = {851984, "\257\300\236\155\220\261\300\040\017\026\014\100\150\000\000"};
static struct {unsigned f; char r[16];} string10 = {851984, "\257\300\263\272\165\301\300\364\117\256\374\100\150\000\000"};
static struct {unsigned f; char r[16];} string11 = {851984, "\257\300\015\277\004\146\300\034\367\146\045\100\164\000\000"};
static struct {unsigned f; char r[16];} string12 = {851984, "\257\300\240\236\274\315\300\111\163\325\023\100\150\000\000"};
static struct {unsigned f; char r[16];} string13 = {851984, "\257\300\363\223\326\161\300\017\164\046\072\100\150\000\000"};
static struct {unsigned f; char r[16];} string14 = {851984, "\257\300\045\005\337\143\300\252\356\334\244\100\150\000\000"};
static struct {unsigned f; char r[16];} string15 = {851984, "\257\300\144\143\124\312\300\122\224\357\133\100\150\000\000"};
static struct {
   word f0[4]; word f4; word f5; word f6[8]; 
   word f14; 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; word f29; 
   word f30; word f31; word f32; word f33; 
   word f34; word f35; word f36; word f37; 
   word f38; word f39[8]; 
   } globalframe = {
   {0}, (word) 5, (word) 100, {0}, 
   (word) GetSelectionContents_P720, 0, (word) GetIconSize_P660, 0, 
   (word) RealBreakProc_P600, 0, (word) ReadReal_P540, 0, 
   (word) ReadBlank_P480, 0, (word) ReadBlankAndReal_P420, 0, 
   (word) SetPoint_P360, 0, (word) GetPoint_P300, 0, 
   (word) SetReal_P240, 0, (word) GetPositiveReal_P180, 0, 
   (word) GetTwoReals_P120, 0, (word) GetReal_P60, 0, 
   (word) GGViewerOpsImpl_P0, {0}
   };

static void NoName_Q828()
   {
   register ptr gf_c0107 =  (ptr) &globalframe;
   word var_c13492;
   (* (( (ptr) gf_c0107)+7) ) = (word) XR_GetTypeIndex((word) &string1, 0, (word) &string2);
   (*  (ptr) (( (bPt) gf_c0107)+36) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0107)+7) ), (word) &string3);
   (*  (ptr) (( (bPt) gf_c0107)+40) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0107)+7) ), (word) &string4);
   (*  (ptr) (( (bPt) gf_c0107)+44) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0107)+7) ), (word) &string5);
   (*  (ptr) (( (bPt) gf_c0107)+48) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0107)+7) ), (word) &string6);
   (void) XR_DeclareGlobalFrame((word) "GGViewerOpsImpl", &globalframe, (word) XR_GetTypeIndex((word) &string7, 0, (word) &string8)
      , (word) (( (bPt) gf_c0107)+152)/* var_c12852 */ );
   var_c13492 = (word) XR_ImportInterface((word) "GGParseIn", (word) XR_GetTypeIndexS((word) (&string9)), 26);
   (* (( (ptr) gf_c0107)+43)/* var_c13012 */  ) = var_c13492;
   (void) XR_ImportProcS(var_c13492, 525826);
   (void) XR_ImportProcS(var_c13492, 67376897);
   var_c13492 = (word) XR_ImportInterface((word) "InputFocus", (word) XR_GetTypeIndexS((word) (&string10)), 6);
   (* (( (ptr) gf_c0107)+44)/* var_c13396 */  ) = var_c13492;
   (void) XR_ImportProcS(var_c13492, 67108864);
   var_c13492 = (word) XR_ImportInterface((word) "IO", (word) XR_GetTypeIndexS((word) (&string11)), 103);
   (* (( (ptr) gf_c0107)+42)/* var_c12980 */  ) = var_c13492;
   (void) XR_ImportProcS(var_c13492, 67392257);
   (void) XR_ImportProcS(var_c13492, 134763778);
   (void) XR_ImportProcS(var_c13492, 67653890);
   (void) XR_ImportProcS(var_c13492, 68958724);
   (void) XR_ImportProcS(var_c13492, 67910402);
   (void) XR_ImportProcS(var_c13492, 67640578);
   (void) XR_ImportProcS(var_c13492, 67388929);
   var_c13492 = (word) XR_ImportInterface((word) "Process", (word) XR_GetTypeIndexS((word) (&string12)), 22);
   (* (( (ptr) gf_c0107)+45)/* var_c13428 */  ) = var_c13492;
   (void) XR_ImportProcS(var_c13492, 266753);
   var_c13492 = (word) XR_ImportInterface((word) "Rope", (word) XR_GetTypeIndexS((word) (&string13)), 43);
   (* (( (ptr) gf_c0107)+41)/* var_c12916 */  ) = var_c13492;
   (void) XR_ImportProcS(var_c13492, 67633666);
   (void) XR_ImportProcS(var_c13492, 68159236);
   (void) XR_ImportProcS(var_c13492, 67373825);
   var_c13492 = (word) XR_ImportInterface((word) "ViewerTools", (word) XR_GetTypeIndexS((word) (&string14)), 12);
   (* (( (ptr) gf_c0107)+40)/* var_c12884 */  ) = var_c13492;
   (void) XR_ImportProcS(var_c13492, 67109888);
   (void) XR_ImportProcS(var_c13492, 788227);
   (void) XR_ImportProcS(var_c13492, 67372545);
   var_c13492 = (word) XR_ExportInterface((word) "GGViewerOps", (word) XR_GetTypeIndexS((word) (&string15)), 8);
   (* (( (ptr) gf_c0107)+46)/* var_c13524 */  ) = var_c13492;
   (void) XR_ExportProcS(var_c13492, (word) (( (bPt) gf_c0107)+56)/* var_c12468 */ , 67108864);
   (void) XR_ExportProcS(var_c13492, (word) (( (bPt) gf_c0107)+144)/* var_c12820 */ , 67633410);
   (void) XR_ExportProcS(var_c13492, (word) (( (bPt) gf_c0107)+136)/* var_c12788 */ , 134480385);
   (void) XR_ExportProcS(var_c13492, (word) (( (bPt) gf_c0107)+128)/* var_c12756 */ , 67633922);
   (void) XR_ExportProcS(var_c13492, (word) (( (bPt) gf_c0107)+120)/* var_c12724 */ , 787459);
   (void) XR_ExportProcS(var_c13492, (word) (( (bPt) gf_c0107)+112)/* var_c12692 */ , 201590017);
   (void) XR_ExportProcS(var_c13492, (word) (( (bPt) gf_c0107)+104)/* var_c12660 */ , 787970);
   (void) XR_ExportProcS(var_c13492, (word) (( (bPt) gf_c0107)+64)/* var_c12500 */ , 134219520);
   }

static void GGViewerOpsImpl_P0(formal_c037, formal_c036)
   word formal_c037;
   word formal_c036;
   {
   /* GGViewerOpsImpl: */ 
SOURCE(110, 3184)
   /* moved to installation proc */ 
   /* moved to installation proc */ 
   }

static word GetReal_P60(textViewer_v3476, formal_c0134)
   word textViewer_v3476;
   word formal_c0134;
   {
   W9 var_c13556;
   /* declaration of default_v3504 skipped */ 
   register ptr gf_c13588 =  (ptr) &globalframe;
   /* declaration of r_v3548 skipped */ 
   word rRope_v4696;
   (* (( (ptr) &var_c13556)+4)/* default_v3504 */  ) = formal_c0134;
   /* GetReal: */ 
SOURCE(392, 1992)
SOURCE(471, 54)
   {
      word pd16;
      pd16 = (* (( (ptr) (* (( (ptr) gf_c13588)+40)/* var_c12884 */  ))+10) );
      rRope_v4696 = (word) ( *( (fPt) ((*  (ptr) pd16 ))))(textViewer_v3476, pd16);
      };
SOURCE(527, 1857)
SOURCE(527, 1857)
   {
      word pd17;
      pd17 = (* (( (ptr) (* (( (ptr) gf_c13588)+41)/* var_c12916 */  ))+15) );
      if (( (int)(word) ( *( (fPt) ((*  (ptr) pd17 ))))(rRope_v4696, pd17) ==  (int)0)) {
         (* (( (ptr) &var_c13556)+5)/* r_v3548 */  ) = (* (( (ptr) &var_c13556)+4)/* default_v3504 */  );
         }
      else {
         {
            /* declaration of var_c12948 skipped */ 
            {
               word pd18;
               pd18 = (* (( (ptr) (* (( (ptr) gf_c13588)+42)/* var_c12980 */  ))+33) );
               (* (( (ptr) &var_c13556)+6)/* var_c12948 */  ) = (word) ( *( (fPt) ((*  (ptr) pd18 ))))(rRope_v4696, 0, pd18);
               };
            {
               /* declaration of var_c01 skipped */ 
               (* (( (ptr) &var_c13556)+7)/* var_c01 */  ) = (* (( (ptr) (* (( (ptr) gf_c13588)+42)/* var_c12980 */  ))+74) );
               {
                  /* declaration of var_c02 skipped */ 
                  {
                     word var_c03;
                     {
                        word var_c0124;
                        var_c0124 = (word) &var_c13556;
                        var_c03 = (word) XR_Enable(( ((word)  (fPt) NoName_Q888) ), ( ((word)  (fPt) NoName_Q1188) ), var_c0124);
                        };
                     if ((var_c03 == 2)) {
                        goto lab_L100001;
                        };
                     };
                  (* (( (ptr) &var_c13556)+5)/* r_v3548 */  ) = (* (( (ptr) &var_c13556)+8)/* var_c02 */  );
                  };
               };
            };
         };
      };
   lab_L100001: ;
SOURCE(392, 1992)
   return((* (( (ptr) &var_c13556)+5)/* r_v3548 */  ));
   }

static word NoName_Q888(formal_c0109)
   word formal_c0109;
   {
SOURCE(527, 1857)
   {
      word pd19;
      pd19 = (* (( (ptr) formal_c0109)+7) );
      (* (( (ptr) formal_c0109)+8) ) = (word) ( *( (fPt) ((*  (ptr) pd19 ))))((* ((( (ptr) formal_c0109)+6)) ), pd19);
      };
   return(0);
   }

static void GetTwoReals_P120(formal_c048, textViewer_v3608)
   word formal_c048;
   word textViewer_v3608;
   {
   register ptr gf_c13620 =  (ptr) &globalframe;
   word x_v3652;
   word y_v3680;
   word wholeRope_v4740;
   word wholeStream_v4768;
   /* GetTwoReals: */ 
SOURCE(658, 1726)
SOURCE(729, 58)
   {
      word pd20;
      pd20 = (* (( (ptr) (* (( (ptr) gf_c13620)+40)/* var_c12884 */  ))+10) );
      wholeRope_v4740 = (word) ( *( (fPt) ((*  (ptr) pd20 ))))(textViewer_v3608, pd20);
      };
SOURCE(789, 42)
   {
      word pd21;
      pd21 = (* (( (ptr) (* (( (ptr) gf_c13620)+42)/* var_c12980 */  ))+33) );
      wholeStream_v4768 = (word) ( *( (fPt) ((*  (ptr) pd21 ))))(wholeRope_v4740, 0, pd21);
      };
SOURCE(833, 1551)
   {
      word pd22;
      pd22 = (* (( (ptr) (* (( (ptr) gf_c13620)+43)/* var_c13012 */  ))+27) );
      x_v3652 = (word) ( *( (fPt) ((*  (ptr) pd22 ))))(wholeStream_v4768, pd22);
      };
SOURCE(870, 35)
   {
      word pd23;
      pd23 = (* (( (ptr) (* (( (ptr) gf_c13620)+43)/* var_c13012 */  ))+10) );
      (void) ( *( (fPt) ((*  (ptr) pd23 ))))(wholeStream_v4768, 44, pd23);
      };
SOURCE(907, 1477)
   {
      word pd24;
      pd24 = (* (( (ptr) (* (( (ptr) gf_c13620)+43)/* var_c13012 */  ))+27) );
      y_v3680 = (word) ( *( (fPt) ((*  (ptr) pd24 ))))(wholeStream_v4768, pd24);
      };
   /* removed tail goto */ 
   (*  (ptr) formal_c048 ) = x_v3652;
   (* (( (ptr) formal_c048)+1) ) = y_v3680;
   return;
   }

static word GetPositiveReal_P180(textViewer_v3740, formal_c0135)
   word textViewer_v3740;
   word formal_c0135;
   {
   W9 var_c13652;
   /* declaration of default_v3768 skipped */ 
   register ptr gf_c13684 =  (ptr) &globalframe;
   /* declaration of r_v3812 skipped */ 
   word rRope_v4812;
   (* (( (ptr) &var_c13652)+4)/* default_v3768 */  ) = formal_c0135;
   /* GetPositiveReal: */ 
SOURCE(948, 1436)
SOURCE(1035, 54)
   {
      word pd25;
      pd25 = (* (( (ptr) (* (( (ptr) gf_c13684)+40)/* var_c12884 */  ))+10) );
      rRope_v4812 = (word) ( *( (fPt) ((*  (ptr) pd25 ))))(textViewer_v3740, pd25);
      };
SOURCE(1091, 1293)
   {
      word pd26;
      pd26 = (* (( (ptr) (* (( (ptr) gf_c13684)+41)/* var_c12916 */  ))+15) );
      if (( (int)(word) ( *( (fPt) ((*  (ptr) pd26 ))))(rRope_v4812, pd26) ==  (int)0)) {
SOURCE(1120, 17)
         (* (( (ptr) &var_c13652)+5)/* r_v3812 */  ) = (* (( (ptr) &var_c13652)+4)/* default_v3768 */  );
         }
      else {
SOURCE(1139, 1245)
SOURCE(1139, 1245)
         {
            /* declaration of var_c13044 skipped */ 
            {
               word pd27;
               pd27 = (* (( (ptr) (* (( (ptr) gf_c13684)+42)/* var_c12980 */  ))+33) );
               (* (( (ptr) &var_c13652)+6)/* var_c13044 */  ) = (word) ( *( (fPt) ((*  (ptr) pd27 ))))(rRope_v4812, 0, pd27);
               };
            {
               /* declaration of var_c04 skipped */ 
               (* (( (ptr) &var_c13652)+7)/* var_c04 */  ) = (* (( (ptr) (* (( (ptr) gf_c13684)+42)/* var_c12980 */  ))+74) );
               {
                  /* declaration of var_c05 skipped */ 
                  {
                     word var_c06;
                     {
                        word var_c0125;
                        var_c0125 = (word) &var_c13652;
                        var_c06 = (word) XR_Enable(( ((word)  (fPt) NoName_Q948) ), ( ((word)  (fPt) NoName_Q1128) ), var_c0125);
                        };
                     if ((var_c06 == 3)) {
                        goto lab_L100006;
                        };
                     };
                  (* (( (ptr) &var_c13652)+5)/* r_v3812 */  ) = (* (( (ptr) &var_c13652)+8)/* var_c05 */  );
                  };
               };
            };
         lab_L100006: ;
SOURCE(1224, 35)
         {
            word x28;
            word x30;
            if (((
               x28 = (* (( (ptr) &var_c13652)+5)/* r_v3812 */  ),  *(float*)&x28
               ) > (
               x30 = (*  (ptr) &fc29 ),  *(float*)&x30
               ))) {
               return((* (( (ptr) &var_c13652)+5)/* r_v3812 */  ));
               }
            else {
               return((* (( (ptr) &var_c13652)+4)/* default_v3768 */  ));
               };
            };
         };
      };
SOURCE(948, 1436)
   return((* (( (ptr) &var_c13652)+5)/* r_v3812 */  ));
   }

static word NoName_Q948(formal_c0112)
   word formal_c0112;
   {
SOURCE(1139, 1245)
   {
      word pd31;
      pd31 = (* (( (ptr) formal_c0112)+7) );
      (* (( (ptr) formal_c0112)+8) ) = (word) ( *( (fPt) ((*  (ptr) pd31 ))))((* ((( (ptr) formal_c0112)+6)) ), pd31);
      };
   return(0);
   }

static void SetReal_P240(viewer_v3872, real_v3900, format_v3928)
   word viewer_v3872;
   word real_v3900;
   word format_v3928;
   {
   register ptr gf_c13716 =  (ptr) &globalframe;
   word realRope_v4856 = 0;
   /* SetReal: */ 
SOURCE(1268, 1116)
SOURCE(1368, 46)
   if ((format_v3928 == 0)) {
      format_v3928 = (* (( (ptr) gf_c13716)+12) );
      }
   else {
      format_v3928 = format_v3928;
      };
SOURCE(1416, 968)
   {
      W2 var_c13076;
      var_c13076.f0 = 8;
      var_c13076.f1 = real_v3900;
      {
         word pd32;
         pd32 = (* (( (ptr) (* (( (ptr) gf_c13716)+42)/* var_c12980 */  ))+63) );
         realRope_v4856 = (word) ( *( (fPt) ((*  (ptr) pd32 ))))(format_v3928, var_c13076, pd32);
         };
      };
SOURCE(1460, 41)
   {
      word pd33;
      pd33 = (* (( (ptr) (* (( (ptr) gf_c13716)+40)/* var_c12884 */  ))+11) );
      (void) ( *( (fPt) ((*  (ptr) pd33 ))))(viewer_v3872, realRope_v4856, 1, pd33);
      };
   }

static void GetPoint_P300(formal_c064, textViewer_v3988)
   word formal_c064;
   word textViewer_v3988;
   {
   register ptr gf_c13748 =  (ptr) &globalframe;
   W2 point_v4032;
   word success_v4060;
   word pointRope_v4900;
   word f_v4928;
   /* GetPoint: */ 
SOURCE(1507, 877)
SOURCE(1592, 58)
   {
      word pd34;
      pd34 = (* (( (ptr) (* (( (ptr) gf_c13748)+40)/* var_c12884 */  ))+10) );
      pointRope_v4900 = (word) ( *( (fPt) ((*  (ptr) pd34 ))))(textViewer_v3988, pd34);
      };
SOURCE(1652, 32)
   {
      word pd35;
      pd35 = (* (( (ptr) (* (( (ptr) gf_c13748)+42)/* var_c12980 */  ))+33) );
      f_v4928 = (word) ( *( (fPt) ((*  (ptr) pd35 ))))(pointRope_v4900, 0, pd35);
      };
SOURCE(1686, 25)
   {
      word pd36;
      pd36 = (* (( (ptr) (* (( (ptr) gf_c13748)+43)/* var_c13012 */  ))+10) );
      (void) ( *( (fPt) ((*  (ptr) pd36 ))))(f_v4928, 91, pd36);
      };
SOURCE(1713, 671)
   point_v4032.f0 = (word) ReadBlankAndReal_P420(f_v4928);
SOURCE(1744, 25)
   {
      word pd37;
      pd37 = (* (( (ptr) (* (( (ptr) gf_c13748)+43)/* var_c13012 */  ))+10) );
      (void) ( *( (fPt) ((*  (ptr) pd37 ))))(f_v4928, 44, pd37);
      };
SOURCE(1771, 613)
   point_v4032.f1 = (word) ReadBlankAndReal_P420(f_v4928);
SOURCE(1802, 25)
   {
      word pd38;
      pd38 = (* (( (ptr) (* (( (ptr) gf_c13748)+43)/* var_c13012 */  ))+10) );
      (void) ( *( (fPt) ((*  (ptr) pd38 ))))(f_v4928, 93, pd38);
      };
SOURCE(1829, 14)
   success_v4060 = 1;
   /* removed tail goto */ 
   (*  (W2Pt) formal_c064 ) = point_v4032;
   (* (( (ptr) formal_c064)+2) ) = success_v4060;
   return;
   }

static void SetPoint_P360(viewer_v4120, point_v4148)
   word viewer_v4120;
   W2 point_v4148;
   {
   register ptr gf_c13780 =  (ptr) &globalframe;
   word pointRope_v4972 = 0;
   /* SetPoint: */ 
SOURCE(1849, 535)
SOURCE(1928, 456)
   {
      W2 var_c13108;
      W2 var_c13140;
      W2 var_c0126;
      var_c13108.f0 = 8;
      var_c13108.f1 = point_v4148.f0;
      var_c13140.f0 = 8;
      var_c13140.f1 = point_v4148.f1;
      (*  (ptr) (word) &var_c0126 ) = 0;
      (* (( (ptr) (word) &var_c0126) + 1) ) = 0;
      {
         word pd39;
         pd39 = (* (( (ptr) (* (( (ptr) gf_c13780)+42)/* var_c12980 */  ))+62) );
         pointRope_v4972 = (word) ( *( (fPt) ((*  (ptr) pd39 ))))((* (( (ptr) gf_c13780)+9) ), var_c13108, var_c13140, var_c0126, pd39)
         ;
         };
      };
SOURCE(1995, 42)
   {
      word pd40;
      pd40 = (* (( (ptr) (* (( (ptr) gf_c13780)+40)/* var_c12884 */  ))+11) );
      (void) ( *( (fPt) ((*  (ptr) pd40 ))))(viewer_v4120, pointRope_v4972, 1, pd40);
      };
   }

static word ReadBlankAndReal_P420(f_v4208)
   word f_v4208;
   {
   word r_v4252;
   /* ReadBlankAndReal: */ 
SOURCE(2043, 341)
SOURCE(2103, 12)
   (void) ReadBlank_P480(f_v4208);
SOURCE(2117, 267)
   r_v4252 = (word) ReadReal_P540(f_v4208);
SOURCE(2043, 341)
   return(r_v4252);
   }

static void ReadBlank_P480(f_v4312)
   word f_v4312;
   {
   register ptr gf_c13812 =  (ptr) &globalframe;
   /* ReadBlank: */ 
SOURCE(2138, 246)
SOURCE(2173, 211)
   {
      word var_c13204;
      word pd41;
      pd41 = (* (( (ptr) (* (( (ptr) gf_c13812)+42)/* var_c12980 */  ))+85) );
      var_c13204 = (word) ( *( (fPt) ((*  (ptr) pd41 ))))(f_v4312, 1, pd41);
      };
   }

static word ReadReal_P540(formal_c0136)
   word formal_c0136;
   {
   W9 var_c13844;
   /* declaration of f_v4372 skipped */ 
   register ptr gf_c13876 =  (ptr) &globalframe;
   word r_v4416;
   word realRope_v5016 = 0;
   /* declaration of end_v5044 skipped */ 
   (* (( (ptr) &var_c13844)+4)/* f_v4372 */  ) = formal_c0136;
   /* ReadReal: */ 
SOURCE(2210, 339)
SOURCE(2283, 17)
   (* (( (ptr) &var_c13844)+5)/* end_v5044 */  ) = 0;
SOURCE(2302, 82)
SOURCE(2302, 82)
   {
      W2 var_c13236;
      {
         /* declaration of var_c07 skipped */ 
         (* (( (ptr) &var_c13844)+6)/* var_c07 */  ) = (* (( (ptr) (* (( (ptr) gf_c13876)+42)/* var_c12980 */  ))+89) );
         {
            /* declaration of var_c08 skipped */ 
            {
               word var_c09;
               {
                  word var_c0127;
                  var_c0127 = (word) &var_c13844;
                  var_c09 = (word) XR_Enable(( ((word)  (fPt) NoName_Q1008) ), ( ((word)  (fPt) NoName_Q1068) ), var_c0127);
                  };
               if ((var_c09 == 4)) {
                  goto lab_L100011;
                  };
               };
            var_c13236 = (*  (W2Pt) (( (ptr) &var_c13844)+7)/* var_c08 */  );
            };
         };
      realRope_v5016 = var_c13236.f0;
      };
   lab_L100011: ;
SOURCE(2398, 28)
   if ((0 != (* (( (ptr) &var_c13844)+5)/* end_v5044 */  ))) {
SOURCE(2411, 7)
      r_v4416 = (*  (ptr) &fc29 );
SOURCE(2420, 6)
      return(r_v4416);
      };
SOURCE(2429, 86)
   {
      word pd42;
      pd42 = (* (( (ptr) (* (( (ptr) gf_c13876)+41)/* var_c12916 */  ))+11) );
      if (( (int)(word) ( *( (fPt) ((*  (ptr) pd42 ))))(realRope_v5016, (* (( (ptr) gf_c13876)+10) ), 0, 0, pd42) ==  (int) (word) -1)) {
SOURCE(2477, 38)
         {
            word pd43;
            pd43 = (* (( (ptr) (* (( (ptr) gf_c13876)+41)/* var_c12916 */  ))+6) );
            realRope_v5016 = (word) ( *( (fPt) ((*  (ptr) pd43 ))))(realRope_v5016, (* (( (ptr) gf_c13876)+11) ), pd43);
            };
         };
      };
SOURCE(2517, 32)
   {
      word var_c13268;
      {
         word pd44;
         pd44 = (* (( (ptr) (* (( (ptr) gf_c13876)+42)/* var_c12980 */  ))+33) );
         var_c13268 = (word) ( *( (fPt) ((*  (ptr) pd44 ))))(realRope_v5016, 0, pd44);
         };
      {
         word pd45;
         pd45 = (* (( (ptr) (* (( (ptr) gf_c13876)+42)/* var_c12980 */  ))+74) );
         r_v4416 = (word) ( *( (fPt) ((*  (ptr) pd45 ))))(var_c13268, pd45);
         };
      };
SOURCE(2210, 339)
   return(r_v4416);
   }

static word NoName_Q1008(formal_c0119)
   word formal_c0119;
   {
   register ptr gf_c0118 =  (ptr) &globalframe;
SOURCE(2302, 82)
   {
      word pd46;
      pd46 = (* (( (ptr) formal_c0119)+6) );
      (void) ( *( (fPt) ((*  (ptr) pd46 ))))((word) (( (bPt) formal_c0119)+28), (* (( (ptr) formal_c0119)+4) ), (word) (( (bPt) gf_c0118)+72)
         /* var_c12532 */ , pd46);
      };
   return(0);
   }

static word RealBreakProc_P600(char_v4476)
   word char_v4476;
   {
   word var_c4520;
   /* RealBreakProc: */ 
SOURCE(2555, 148)
SOURCE(2615, 88)
   {
      word var_c13300;
      var_c13300 = char_v4476;
      switch (var_c13300) {
         case 93: case 44: case 13: case 10: case 32: 
SOURCE(2662, 14)
            return(0);
         default: 
SOURCE(2689, 14)
            return(2);
         };
      };
   }

static void GetIconSize_P660(formal_c086)
   word formal_c086;
   {
   word width_v4580;
   word height_v4608;
   /* GetIconSize: */ 
SOURCE(2708, 93)
SOURCE(2769, 32)
   width_v4580 =  (int) ( short )64;
   height_v4608 =  (int) ( short )64;
   /* removed tail goto */ 
   (*  (ptr) formal_c086 ) = width_v4580;
   (* (( (ptr) formal_c086)+1) ) = height_v4608;
   return;
   }

static word GetSelectionContents_P720()
   {
   register ptr gf_c13908 =  (ptr) &globalframe;
   word var_c4668;
   /* GetSelectionContents: */ 
SOURCE(2887, 407)
SOURCE(2966, 306)
   {
      register word noName_c13332 = 0;
      register word noName_c13364;
      noName_c13364 = (* (( (ptr) gf_c13908)+4)/* pauses_v3224 */  );
      if (( (int)noName_c13332 >=  (int)noName_c13364)) {
         goto lab_L100015;
         };
      lab_L100018: ;
      {
         word f_v5088;
SOURCE(2991, 48)
         {
            word pd47;
            pd47 = (* (( (ptr) (* (( (ptr) gf_c13908)+44)/* var_c13396 */  ))+4) );
            f_v5088 = (word) ( *( (fPt) ((*  (ptr) pd47 ))))(pd47);
            };
SOURCE(3041, 26)
         if ((f_v5088 == 0)) {
SOURCE(3055, 12)
            return(0);
            };
SOURCE(3103, 169)
         if (((*  (ptr) f_v5088 ) == 0)) {
SOURCE(3123, 106)
            {
               word pd48;
               pd48 = (* (( (ptr) (* (( (ptr) gf_c13908)+45)/* var_c13428 */  ))+22) );
               (void) ( *( (fPt) ((*  (ptr) pd48 ))))((* ((( (ptr) gf_c13908)+5)/* pauseMSec_v3252 */ ) ), pd48);
               };
            }
         else {
SOURCE(3229, 43)
            {
               word pd49;
               pd49 = (* (( (ptr) (* (( (ptr) gf_c13908)+40)/* var_c12884 */  ))+8) );
               return((word) ( *( (fPt) ((*  (ptr) pd49 ))))(pd49));
               };
            };
         };
      noName_c13332 = (noName_c13332 + 1);
      if (( (int)noName_c13332 <  (int)noName_c13364)) {
         goto lab_L100018;
         };
      lab_L100015: ;
      };
SOURCE(3283, 11)
   return(0);
   }

static void NoName_Q1068(formal_c096, formal_c200008, formal_c200009, formal_c200010, formal_c200011)
   word formal_c096;
   word formal_c200008;
   word formal_c200009;
   word formal_c200010;
   word formal_c200011;
   {
   register ptr gf_c0121 =  (ptr) &globalframe;
   if ((formal_c200009 == (* (( (ptr) (* (( (ptr) gf_c0121)+42)/* var_c12980 */  ))+4) ))) {
      {
         word stream_v11216;
         stream_v11216 = (*  (ptr) formal_c200011 );
SOURCE(2374, 10)
         (* (( (ptr) formal_c200008)+5) ) = 1;
SOURCE(2386, 8)
         (*  (ptr) formal_c096 ) = 2;
         (* (( (ptr) formal_c096)+1) ) = 4;
         return;
         };
      };
   (*  (ptr) formal_c096 ) = 0;
   (* (( (ptr) formal_c096)+1) ) = 0;
   return;
   }

static void NoName_Q1128(formal_c0101, formal_c200004, formal_c200005, formal_c200006, formal_c200007)
   word formal_c0101;
   word formal_c200004;
   word formal_c200005;
   word formal_c200006;
   word formal_c200007;
   {
   register ptr gf_c0122 =  (ptr) &globalframe;
   if ((formal_c200005 == (* (( (ptr) (* (( (ptr) gf_c0122)+42)/* var_c12980 */  ))+4) )) || (formal_c200005 == (* (( (ptr) (* (
         ( (ptr) gf_c0122)+42)/* var_c12980 */  ))+5) ))) {
SOURCE(1199, 11)
      (* (( (ptr) formal_c200004)+5) ) = (* (( (ptr) formal_c200004)+4) );
SOURCE(1212, 8)
      (*  (ptr) formal_c0101 ) = 2;
      (* (( (ptr) formal_c0101)+1) ) = 3;
      return;
      };
   (*  (ptr) formal_c0101 ) = 0;
   (* (( (ptr) formal_c0101)+1) ) = 0;
   return;
   }

static void NoName_Q1188(formal_c0106, formal_c200000, formal_c200001, formal_c200002, formal_c200003)
   word formal_c0106;
   word formal_c200000;
   word formal_c200001;
   word formal_c200002;
   word formal_c200003;
   {
   register ptr gf_c0123 =  (ptr) &globalframe;
   if ((formal_c200001 == (* (( (ptr) (* (( (ptr) gf_c0123)+42)/* var_c12980 */  ))+4) )) || (formal_c200001 == (* (( (ptr) (* (
         ( (ptr) gf_c0123)+42)/* var_c12980 */  ))+5) ))) {
SOURCE(629, 11)
      (* (( (ptr) formal_c200000)+5) ) = (* (( (ptr) formal_c200000)+4) );
SOURCE(642, 8)
      (*  (ptr) formal_c0106 ) = 2;
      (* (( (ptr) formal_c0106)+1) ) = 2;
      return;
      };
   (*  (ptr) formal_c0106 ) = 0;
   (* (( (ptr) formal_c0106)+1) ) = 0;
   return;
   }

/* file: GGViewerOpsImpl, module: GGViewerOpsImpl, compiled at: December 3, 1992 6:30:13 pm PST */ 
extern void XR_install_GGViewerOpsImpl() {
   NoName_Q828();
   }
extern void XR_run_GGViewerOpsImpl() { XR_Start(&globalframe); }