/* Generated with C2C (Cedar To C)*/
/* Copyright (C) 1993 by Xerox Corporation.  All rights reserved. */
/* time: January 19, 1993 12:22:22 pm PST */
/* C2C version: October 7, 1992 (native) */
/* ref-counting: off */
/* file: UnixEnvironImpl, module: UnixEnvironImpl */ 
/* switches: bcfhklnouw */ 
#include <cedar/InstallationSupport.h>
#include <cedar/CedarExtra.h>
static char versionStamp[] = "@(#)mob←version [4150751497,1833347657] UnixEnvironImpl";
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←Q120();
static void UnixEnvironImpl←P0();
static word GetEnv←P60();
static struct {unsigned f; char r[16];} string1 = {851984, "\257\300\367\147\161\011\300\155\106\252\111\100\164\000\000"};
static struct {unsigned f; char r[16];} string2 = {851984, "\257\300\220\270\074\115\300\121\012\115\357\100\150\000\000"};
static struct {unsigned f; char r[16];} string3 = {851984, "\257\300\322\342\022\352\300\100\014\165\000\100\150\000\000"};
static struct {
   word f0[4]; word f4; word f5; word f6; 
   word f7[3]; 
   } globalframe = {
   {0}, (word) GetEnv←P60, 0, (word) UnixEnvironImpl←P0, 
   {0}
   };

static void NoName←Q120()
   {
   register ptr gf←c012 =  (ptr) &globalframe;
   word var←c3828;
   (void) XR←DeclareGlobalFrame((word) "UnixEnvironImpl", &globalframe, (word) XR←GetTypeIndexS((word) (&string1)), (word) (
         ( (bPt) gf←c012)+24)/* var←c3668 */ );
   var←c3828 = (word) XR←ImportInterface((word) "UXStrings", (word) XR←GetTypeIndexS((word) (&string2)), 9);
   (* (( (ptr) gf←c012)+8)/* var←c3796 */  ) = var←c3828;
   (void) XR←ImportProcS(var←c3828, 67371265);
   (void) XR←ImportProcS(var←c3828, 67633922);
   var←c3828 = (word) XR←ExportInterface((word) "UnixEnviron", (word) XR←GetTypeIndexS((word) (&string3)), 1);
   (* (( (ptr) gf←c012)+9)/* var←c3860 */  ) = var←c3828;
   (void) XR←ExportProcS(var←c3828, (word) (( (bPt) gf←c012)+16)/* var←c3636 */ , 67371009);
   }

static void UnixEnvironImpl←P0(formal←c07, formal←c06)
   word formal←c07;
   word formal←c06;
   {
   /* UnixEnvironImpl: */ 
   }

static word GetEnv←P60(name←v2688)
   word name←v2688;
   {
   register ptr gf←c3892 =  (ptr) &globalframe;
   word value←v2732;
   /* GetEnv: */ 
SOURCE(213, 130)
SOURCE(213, 130)
   value←v2732 = 0;
SOURCE(276, 67)
   {
      word var←c3764;
      word var←c3732;
      {
         word pd4;
         pd4 = (* (( (ptr) (* (( (ptr) gf←c3892)+8)/* var←c3796 */  ))+5) );
         var←c3764 = (word) ( *( (fPt) ((*  (ptr) pd4 ))))(name←v2688, pd4);
         };
      var←c3732 = (word) XR←getenv(var←c3764);
      {
         word pd5;
         pd5 = (* (( (ptr) (* (( (ptr) gf←c3892)+8)/* var←c3796 */  ))+7) );
         return((word) ( *( (fPt) ((*  (ptr) pd5 ))))(var←c3732, 2147483647, pd5));
         };
      };
   }

/* file: UnixEnvironImpl, module: UnixEnvironImpl, compiled at: January 19, 1993 12:22:21 pm PST */ 
extern void XR←install←UnixEnvironImpl() {
   NoName←Q120();
   }
extern void XR←run←UnixEnvironImpl() { XR←Start(&globalframe); }