/* Generated with C2C (Cedar To C)*/
/* Copyright (C) 1992 by Xerox Corporation.  All rights reserved. */
/* time: February 21, 1992 9:44:59 pm PST */
/* C2C version: October 16, 1990 (native) */
/* ref-counting: off */
/* file: UXTimeImpl, module: UXTimeImpl */ 
/* switches: bcfhklnouw */ 
#include <cedar/InstallationSupport.h>
#include <cedar/CedarExtra.h>
static char versionStamp[] = "@(#)mob_version [3629548630,3112650541] UXTimeImpl";
typedef unsigned word, *ptr;
typedef unsigned char byte, *bPt;
typedef unsigned short half, *hPt;
typedef word (*fPt)();
#define SOURCE(p, l) /* source p, l */
static void NoName_Q600();
static void UXTimeImpl_P0();
static word DOWN_P60();
static word UP_P120();
static word Now_P180();
static word Period_P240();
static word Update_P300();
static word GMTDOWN_P360();
static word GMTUP_P420();
static word ToGMT_P480();
static word FromGMT_P540();
static struct {unsigned f; char r[16];} string1 = {851984, "\257\300\330\126\204\126\300\271\207\107\055\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 struct {unsigned f; char r[16];} string3 = {851984, "\257\300\325\206\070\326\300\224\310\304\225\100\150\000\000"};
static struct {
   word f0[6]; word f6; word f7; word f8; 
   word f9; word f10; word f11; word f12; 
   word f13; word f14; word f15; word f16; 
   word f17; word f18; word f19; word f20; 
   word f21; word f22; word f23; word f24; 
   word f25[3]; 
   } globalframe = {
   {0}, (word) FromGMT_P540, 0, (word) ToGMT_P480, 
   0, (word) GMTUP_P420, 0, (word) GMTDOWN_P360, 
   0, (word) Update_P300, 0, (word) Period_P240, 
   0, (word) Now_P180, 0, (word) UP_P120, 
   0, (word) DOWN_P60, 0, (word) UXTimeImpl_P0, 
   {0}
   };

static void NoName_Q600()
   {
   register ptr gf_c040 =  (ptr) &globalframe;
   word var_c4588;
   (void) XR_DeclareGlobalFrame((word) "UXTimeImpl", &globalframe, (word) XR_GetTypeIndexS((word) (&string1)), (word) (( (bPt) gf_c040)+96)
      /* var_c4428 */ );
   var_c4588 = (word) XR_ImportInterface((word) "BasicTime", (word) XR_GetTypeIndexS((word) (&string2)), 24);
   (* (( (ptr) gf_c040)+26)/* var_c4460 */  ) = var_c4588;
   (void) XR_ImportProcS(var_c4588, 67111424);
   var_c4588 = (word) XR_ExportInterface((word) "UXTime", (word) XR_GetTypeIndexS((word) (&string3)), 10);
   (* (( (ptr) gf_c040)+27)/* var_c4620 */  ) = var_c4588;
   (void) XR_ExportVar(var_c4588, 0, (word) (( (bPt) gf_c040)+16));
   (void) XR_ExportVar(var_c4588, 1, (word) (( (bPt) gf_c040)+20));
   (void) XR_ExportProcS(var_c4588, (word) (( (bPt) gf_c040)+72)/* var_c4332 */ , 67109632);
   (void) XR_ExportProcS(var_c4588, (word) (( (bPt) gf_c040)+64)/* var_c4300 */ , 67634178);
   (void) XR_ExportProcS(var_c4588, (word) (( (bPt) gf_c040)+56)/* var_c4268 */ , 67634434);
   (void) XR_ExportProcS(var_c4588, (word) (( (bPt) gf_c040)+32)/* var_c4172 */ , 67372545);
   (void) XR_ExportProcS(var_c4588, (word) (( (bPt) gf_c040)+24)/* var_c4140 */ , 67372801);
   (void) XR_ExportProcS(var_c4588, (word) (( (bPt) gf_c040)+88)/* var_c4396 */ , 67373057);
   (void) XR_ExportProcS(var_c4588, (word) (( (bPt) gf_c040)+80)/* var_c4364 */ , 67373313);
   }

static void UXTimeImpl_P0(formal_c016, formal_c015)
   word formal_c016;
   word formal_c015;
   {
   /* UXTimeImpl: */ 
   }

static word DOWN_P60(time_v2916)
   word time_v2916;
   {
   word secs_v2960;
   /* DOWN: */ 
SOURCE(211, 85)
SOURCE(275, 21)
   secs_v2960 = time_v2916;
SOURCE(211, 85)
   return(secs_v2960);
   }

static word UP_P120(secs_v3020)
   word secs_v3020;
   {
   word time_v3064;
   /* UP: */ 
SOURCE(302, 83)
SOURCE(364, 21)
   time_v3064 = secs_v3020;
SOURCE(302, 83)
   return(time_v3064);
   }

static word Now_P180()
   {
   register ptr gf_c4652 =  (ptr) &globalframe;
   word time_v3124;
   word now_v3832;
   /* Now: */ 
SOURCE(391, 103)
SOURCE(437, 36)
   {
      word pd4;
      pd4 = (* (( (ptr) (* (( (ptr) gf_c4652)+26)/* var_c4460 */  ))+14) );
      now_v3832 = (word) ( *( (fPt) ((*  (ptr) pd4 ))))(pd4);
      };
SOURCE(475, 19)
   time_v3124 = (word) FromGMT_P540(now_v3832);
SOURCE(391, 103)
   return(time_v3124);
   }

static word Period_P240(from_v3184, to_v3212)
   word from_v3184;
   word to_v3212;
   {
   word delta_v3256;
   /* Period: */ 
SOURCE(500, 99)
SOURCE(570, 29)
   delta_v3256 = ((word) DOWN_P60(from_v3184) - (word) DOWN_P60(to_v3212));
SOURCE(500, 99)
   return(delta_v3256);
   }

static word Update_P300(base_v3316, period_v3344)
   word base_v3316;
   word period_v3344;
   {
   word time_v3388;
   /* Update: */ 
SOURCE(605, 111)
SOURCE(686, 30)
   {
      word var_c4492;
      var_c4492 = ((word) DOWN_P60(base_v3316) + period_v3344);
      time_v3388 = (word) UP_P120(var_c4492);
      };
SOURCE(605, 111)
   return(time_v3388);
   }

static word GMTDOWN_P360(gmt_v3448)
   word gmt_v3448;
   {
   word secs_v3492;
   /* GMTDOWN: */ 
SOURCE(841, 93)
SOURCE(914, 20)
   secs_v3492 = gmt_v3448;
SOURCE(841, 93)
   return(secs_v3492);
   }

static word GMTUP_P420(secs_v3552)
   word secs_v3552;
   {
   word gmt_v3596;
   /* GMTUP: */ 
SOURCE(940, 91)
SOURCE(1011, 20)
   gmt_v3596 = secs_v3552;
SOURCE(940, 91)
   return(gmt_v3596);
   }

static word ToGMT_P480(time_v3656)
   word time_v3656;
   {
   word gmt_v3700;
   /* ToGMT: */ 
SOURCE(1037, 110)
SOURCE(1108, 39)
   {
      word var_c4524;
      var_c4524 = ((word) DOWN_P60(time_v3656) + 63158400);
      gmt_v3700 = (word) GMTUP_P420(var_c4524);
      };
SOURCE(1037, 110)
   return(gmt_v3700);
   }

static word FromGMT_P540(gmt_v3760)
   word gmt_v3760;
   {
   word time_v3804;
   /* FromGMT: */ 
SOURCE(1153, 112)
SOURCE(1226, 39)
   {
      word var_c4556;
      var_c4556 = ((word) GMTDOWN_P360(gmt_v3760) - 63158400);
      time_v3804 = (word) UP_P120(var_c4556);
      };
SOURCE(1153, 112)
   return(time_v3804);
   }

/* file: UXTimeImpl, module: UXTimeImpl, compiled at: February 21, 1992 9:44:59 pm PST */ 
extern void XR_install_UXTimeImpl() {
   NoName_Q600();
   }
extern void XR_run_UXTimeImpl() { XR_Start(&globalframe); }