/* Generated with C2C (Cedar To C)*/
/* Copyright (C) 1993 by Xerox Corporation.  All rights reserved. */
/* time: February 5, 1993 12:13:10 pm PST */
/* C2C version: October 7, 1992 (native) */
/* ref-counting: off */
/* file: BasicTimeExtrasImpl, module: BasicTimeExtrasImpl */ 
/* switches: bcfhklnouw */ 
#include <cedar/InstallationSupport.h>
#include <cedar/CedarExtra.h>
static char versionStamp[] = "@(#)mob_version [1835244819,714520179] BasicTimeExtrasImpl";
typedef unsigned word, *ptr;
typedef unsigned char byte, *bPt;
typedef unsigned short half, *hPt;
typedef struct {word f0, f1;} W2;
#define SOURCE(p, l) /* source p, l */
static void NoName_Q180();
static void BasicTimeExtrasImpl_P0();
static word ECompare_P60();
static struct {unsigned f; char r[16];} string1 = {851984, "\257\300\155\143\235\023\300\052\226\266\163\100\164\000\000"};
static struct {unsigned f; char r[16];} string2 = {851984, "\257\300\212\174\364\337\300\361\376\000\156\100\150\000\000"};
static unsigned string3 = 1196250112;
static struct {unsigned f; char r[20];} string4 = {1048596, "\211\004\003\107\115\124\300\212\174\364\337\300\361\376\000\156\000\000\000"};
static struct {unsigned f; char r[4];} string5 = {65540, "\242\000\000"};
static struct {unsigned f; char r[16];} string6 = {851984, "\257\300\261\060\212\262\300\205\020\356\120\100\150\000\000"};
static struct {
   word f0[5]; word f5; word f6; word f7; 
   word f8[2]; 
   } globalframe = {
   {0}, (word) ECompare_P60, 0, (word) BasicTimeExtrasImpl_P0, 
   {0}
   };

static void NoName_Q180()
   {
   register ptr gf_c013 =  (ptr) &globalframe;
   word var_c3696;
   (void) XR_DeclareGlobalFrame((word) "BasicTimeExtrasImpl", &globalframe, (word) XR_GetTypeIndexS((word) (&string1)), (word) (
         ( (bPt) gf_c013)+28)/* var_c3632 */ );
   var_c3696 = (word) XR_ExportInterface((word) "BasicTime", (word) XR_GetTypeIndexS((word) (&string2)), 24);
   (* (( (ptr) gf_c013)+9)/* var_c3664 */  ) = var_c3696;
   (void) XR_ExportType((word) &string3, (word) XR_GetTypeIndexS((word) (&string4)), (word) XR_GetTypeIndexS((word) (&string5))
      );
   var_c3696 = (word) XR_ExportInterface((word) "BasicTimeExtras", (word) XR_GetTypeIndexS((word) (&string6)), 6);
   (* (( (ptr) gf_c013)+9)/* var_c3664 */  ) = var_c3696;
   (void) XR_ExportType((word) &string3, (word) XR_GetTypeIndexS((word) (&string4)), (word) XR_GetTypeIndexS((word) (&string5))
      );
   (void) XR_ExportProcS(var_c3696, (word) (( (bPt) gf_c013)+20)/* var_c3600 */ , 68157698);
   }

static void BasicTimeExtrasImpl_P0(formal_c07, formal_c06)
   word formal_c07;
   word formal_c06;
   {
   /* BasicTimeExtrasImpl: */ 
   }

static word ECompare_P60(a_v2632, b_v2660)
   W2 a_v2632;
   W2 b_v2660;
   {
   word var_c2704;
   word agmt_v2732;
   word bgmt_v2760;
   /* ECompare: */ 
SOURCE(209, 251)
SOURCE(283, 17)
   agmt_v2732 = a_v2632.f0;
SOURCE(302, 17)
   bgmt_v2760 = b_v2660.f0;
   if (( (int)agmt_v2732 <  (int)bgmt_v2760)) {
SOURCE(353, 13)
      return(0);
      }
   else {
      if (( (int)agmt_v2732 >  (int)bgmt_v2760)) {
SOURCE(383, 16)
         return(2);
         }
      else {
         if (( (int)a_v2632.f0 ==  (int)b_v2660.f0)) {
SOURCE(418, 42)
            if ((a_v2632.f1 == b_v2660.f1)) {
               return(1);
               }
            else {
               if ((a_v2632.f1 > b_v2660.f1)) {
                  return(2);
                  }
               else {
                  return(0);
                  };
               };
            }
         else {
SOURCE(473, 6)
            (void) XR_RaiseUnnamedError();
            };
         };
      };
   }

/* file: BasicTimeExtrasImpl, module: BasicTimeExtrasImpl, compiled at: February 5, 1993 12:13:10 pm PST */ 
extern void XR_install_BasicTimeExtrasImpl() {
   NoName_Q180();
   }
extern void XR_run_BasicTimeExtrasImpl() { XR_Start(&globalframe); }