/* 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); }