/* Generated with C2C (Cedar To C)*/
/* Copyright (C) 1993 by Xerox Corporation.  All rights reserved. */
/* time: January 26, 1993 8:43:13 pm PST */
/* C2C version: October 7, 1992 (native) */
/* ref-counting: off */
/* file: UnixSysCallsImpl, module: UnixSysCallsImpl */ 
/* switches: bcfhklnouw */ 
#include <cedar/InstallationSupport.h>
#include <cedar/CedarExtra.h>
#include <sys/mman.h>
static char versionStamp[] = "@(#)mob_version [3903818339,1514255853] UnixSysCallsImpl";
typedef unsigned word, *ptr;
typedef unsigned char byte, *bPt;
typedef unsigned short half, *hPt;
typedef word (*fPt)();
typedef struct {word f0, f1, f2, f3, f4, f5, f6, f7;} W8;
typedef struct {word f0, f1, f2, f3, f4, f5, f6;} W7;
typedef struct {W8 f; W7 r;} W15;
typedef struct {word f0, f1;} W2;
typedef W2 *W2Pt;
#define SOURCE(p, l) /* source p, l */
static void NoName_Q1008();
static void UnixSysCallsImpl_P0();
static word Close_P60();
static word FSync_P120();
static word GetDEnts_P180();
static word GetDTableSize_P240();
static word GetDTableSize1_P300();
static word GetTimeOfDay_P360();
static word LSeek_P420();
static word MMap_P480();
static word MUnmap_P540();
static word Open_P600();
static word Read_P660();
static word FStat_P720();
static word Unlink_P780();
static word Write_P840();
static void AssignStat_P900();
static struct {unsigned f; char r[16];} string1 = {851984, "\257\300\350\257\212\143\300\132\101\265\355\100\164\000\000"};
static struct {unsigned f; char r[16];} string2 = {851984, "\257\300\011\071\113\334\300\244\027\111\067\100\150\000\000"};
static struct {unsigned f; char r[16];} string3 = {851984, "\257\300\211\056\077\074\300\127\047\310\242\100\150\000\000"};
static struct {unsigned f; char r[16];} string4 = {851984, "\257\300\061\347\231\302\300\102\104\205\246\100\150\000\000"};
static struct {
   word f0[4]; word f4; word f5; 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; word f26; 
   word f27; word f28; word f29; word f30; 
   word f31; word f32; word f33; word f34; 
   word f35[3]; 
   } globalframe = {
   {0}, (word) AssignStat_P900, 0, (word) Write_P840, 
   0, (word) Unlink_P780, 0, (word) FStat_P720, 
   0, (word) Read_P660, 0, (word) Open_P600, 
   0, (word) MUnmap_P540, 0, (word) MMap_P480, 
   0, (word) LSeek_P420, 0, (word) GetTimeOfDay_P360, 
   0, (word) GetDTableSize1_P300, 0, (word) GetDTableSize_P240, 
   0, (word) GetDEnts_P180, 0, (word) FSync_P120, 
   0, (word) Close_P60, 0, (word) UnixSysCallsImpl_P0, 
   {0}
   };
#define CONSTRUCT_MMAP_FLAGS(shared, private, fixed) ( ((word)(shared))*((word)(MAP_SHARED)) + ((word)(private))*((word)(MAP_PRIVATE)) + ((word)(fixed))*((word)(MAP_FIXED)))

static void NoName_Q1008()
   {
   register ptr gf_c073 =  (ptr) &globalframe;
   word var_c12036;
   (void) XR_DeclareGlobalFrame((word) "UnixSysCallsImpl", &globalframe, (word) XR_GetTypeIndexS((word) (&string1)), (word) (
         ( (bPt) gf_c073)+136)/* var_c11428 */ );
   var_c12036 = (word) XR_ImportInterface((word) "ProcessorFace", (word) XR_GetTypeIndexS((word) (&string2)), 5);
   (* (( (ptr) gf_c073)+36)/* var_c11844 */  ) = var_c12036;
   (void) XR_ImportProcS(var_c12036, 67109120);
   var_c12036 = (word) XR_ExportInterface((word) "UnixSysCalls", (word) XR_GetTypeIndexS((word) (&string3)), 77);
   (* (( (ptr) gf_c073)+37)/* var_c12068 */  ) = var_c12036;
   (void) XR_ExportProcS(var_c12036, (word) (( (bPt) gf_c073)+128)/* var_c11396 */ , 67372289);
   (void) XR_ExportProcS(var_c12036, (word) (( (bPt) gf_c073)+120)/* var_c11364 */ , 67373313);
   (void) XR_ExportProcS(var_c12036, (word) (( (bPt) gf_c073)+112)/* var_c11332 */ , 67897859);
   (void) XR_ExportProcS(var_c12036, (word) (( (bPt) gf_c073)+104)/* var_c11300 */ , 67111936);
   (void) XR_ExportProcS(var_c12036, (word) (( (bPt) gf_c073)+88)/* var_c11236 */ , 67640066);
   (void) XR_ExportProcS(var_c12036, (word) (( (bPt) gf_c073)+80)/* var_c11204 */ , 67904515);
   (void) XR_ExportProcS(var_c12036, (word) (( (bPt) gf_c073)+72)/* var_c11172 */ , 68691974);
   (void) XR_ExportProcS(var_c12036, (word) (( (bPt) gf_c073)+64)/* var_c11140 */ , 67643650);
   (void) XR_ExportProcS(var_c12036, (word) (( (bPt) gf_c073)+56)/* var_c11108 */ , 67906563);
   (void) XR_ExportProcS(var_c12036, (word) (( (bPt) gf_c073)+48)/* var_c11076 */ , 67907587);
   (void) XR_ExportProcS(var_c12036, (word) (( (bPt) gf_c073)+40)/* var_c11044 */ , 67650050);
   (void) XR_ExportProcS(var_c12036, (word) (( (bPt) gf_c073)+32)/* var_c11012 */ , 67389697);
   (void) XR_ExportProcS(var_c12036, (word) (( (bPt) gf_c073)+24)/* var_c10980 */ , 67914499);
   var_c12036 = (word) XR_ExportInterface((word) "UnixSysCallExtensions", (word) XR_GetTypeIndexS((word) (&string4)), 1);
   (* (( (ptr) gf_c073)+37)/* var_c12068 */  ) = var_c12036;
   (void) XR_ExportProcS(var_c12036, (word) (( (bPt) gf_c073)+96)/* var_c11268 */ , 67371009);
   }

static void UnixSysCallsImpl_P0(formal_c021, formal_c020)
   word formal_c021;
   word formal_c020;
   {
   /* UnixSysCallsImpl: */ 
   }

static word Close_P60(fd_v3052)
   word fd_v3052;
   {
   word var_c3096;
   /* Close: */ 
SOURCE(247, 139)
SOURCE(367, 19)
   return((word) XR_Close(fd_v3052));
   }

static word FSync_P120(fd_v3156)
   word fd_v3156;
   {
   word var_c3200;
   /* FSync: */ 
SOURCE(396, 139)
SOURCE(516, 19)
   return((word) XR_FSync(fd_v3156));
   }

static word GetDEnts_P180(fd_v3260, buf_v3288, nBytes_v3316)
   word fd_v3260;
   word buf_v3288;
   word nBytes_v3316;
   {
   word var_c3360;
   /* GetDEnts: */ 
SOURCE(541, 244)
SOURCE(750, 35)
   return((word) XR_GetDEnts(fd_v3260, buf_v3288, nBytes_v3316));
   }

static word GetDTableSize_P240()
   {
   word var_c3420;
   /* GetDTableSize: */ 
SOURCE(792, 151)
SOURCE(918, 25)
   return((word) XR_GetDTableSize());
   }

static word GetDTableSize1_P300(kind_v3480)
   word kind_v3480;
   {
   word var_c3524;
   /* GetDTableSize1: */ 
SOURCE(949, 199)
SOURCE(1113, 35)
   return((word) XR_GetDTableSize1(kind_v3480));
   }

static word GetTimeOfDay_P360(tp_v3584, tzp_v3612)
   word tp_v3584;
   word tzp_v3612;
   {
   word var_c3656;
   /* GetTimeOfDay: */ 
SOURCE(1159, 250)
SOURCE(1378, 31)
   return((word) XR_GetTimeOfDay(tp_v3584, tzp_v3612));
   }

static word LSeek_P420(d_v3716, offset_v3744, whence_v3772)
   word d_v3716;
   word offset_v3744;
   word whence_v3772;
   {
   word var_c3816;
   /* LSeek: */ 
SOURCE(1416, 210)
SOURCE(1592, 34)
   return((word) XR_LSeek(d_v3716, offset_v3744, whence_v3772));
   }

static word MMap_P480(addr_v3876, nbytes_v3904, prot_v3932, flags_v3960, d_v3988, offset_v4016)
   word addr_v3876;
   word nbytes_v3904;
   word prot_v3932;
   word flags_v3960;
   word d_v3988;
   word offset_v4016;
   {
   word var_c4060;
   word var_c11716;
   /* MMap: */ 
SOURCE(1632, 840)
SOURCE(2305, 167)
   var_c11716 = (word) CONSTRUCT_MMAP_FLAGS((flags_v3960 & 1), (((unsigned)flags_v3960 << 30) >> 31), (((unsigned)flags_v3960 << 28) >> 31))
   ;
   if (((word) XR_MMap(addr_v3876, nbytes_v3904, prot_v3932, var_c11716, d_v3988, offset_v4016) == addr_v3876)) {
      return(0);
      }
   else {
      return( (word) -1);
      };
   }

static word MUnmap_P540(addr_v4120, nbytes_v4148)
   word addr_v4120;
   word nbytes_v4148;
   {
   word var_c4192;
   /* MUnmap: */ 
SOURCE(2478, 198)
SOURCE(2646, 30)
   return((word) XR_MUnmap(addr_v4120, nbytes_v4148));
   }

static word Open_P600(path_v4252, flags_v4280, mode_v4308)
   word path_v4252;
   word flags_v4280;
   word mode_v4308;
   {
   word var_c4352;
   /* Open: */ 
SOURCE(2684, 222)
SOURCE(2873, 33)
   return((word) XR_Open(path_v4252, flags_v4280, mode_v4308));
   }

static word Read_P660(d_v4412, buf_v4440, nBytes_v4468)
   word d_v4412;
   word buf_v4440;
   word nBytes_v4468;
   {
   word var_c4512;
   /* Read: */ 
SOURCE(2913, 225)
SOURCE(3108, 30)
   return((word) XR_Read(d_v4412, buf_v4440, nBytes_v4468));
   }

static word FStat_P720(fd_v4572, buf_v4600)
   word fd_v4572;
   word buf_v4600;
   {
   register ptr gf_c12100 =  (ptr) &globalframe;
   word var_c4644;
   /* FStat: */ 
SOURCE(3153, 443)
SOURCE(3427, 169)
   {
      word var_c11876;
      {
         word pd5;
         pd5 = (* (( (ptr) (* (( (ptr) gf_c12100)+36)/* var_c11844 */  ))+5) );
         var_c11876 = (word) ( *( (fPt) ((*  (ptr) pd5 ))))(pd5);
         };
      if ((var_c11876 == 1)) {
SOURCE(3480, 25)
         return((word) XR_FStat(fd_v4572, buf_v4600));
         }
      else {
         if ((var_c11876 == 0)) {
SOURCE(3515, 83)
            {
               W15 buf3_v8092;
               word res_v8120;
SOURCE(3517, 11)
               XR_FillWords(&buf3_v8092, 15, 0);
SOURCE(3530, 29)
               res_v8120 = (word) XR_FStat(fd_v4572, (word) &buf3_v8092);
SOURCE(3561, 22)
               (void) AssignStat_P900(buf_v4600, (word) &buf3_v8092);
SOURCE(3585, 11)
               return(res_v8120);
               };
            }
         else {
SOURCE(3611, 5)
            (void) XR_RaiseUnnamedError();
            };
         };
      };
   }

static word Unlink_P780(path_v4704)
   word path_v4704;
   {
   word var_c4748;
   /* Unlink: */ 
SOURCE(3625, 159)
SOURCE(3762, 22)
   return((word) XR_Unlink(path_v4704));
   }

static word Write_P840(d_v4808, buf_v4836, nBytes_v4864)
   word d_v4808;
   word buf_v4836;
   word nBytes_v4864;
   {
   word var_c4908;
   /* Write: */ 
SOURCE(3793, 203)
SOURCE(3965, 31)
   return((word) XR_Write(d_v4808, buf_v4836, nBytes_v4864));
   }

static void AssignStat_P900(s4_v5508, s3_v5536)
   word s4_v5508;
   word s3_v5536;
   {
   /* AssignStat: */ 
SOURCE(4719, 432)
SOURCE(4804, 15)
   (*  (hPt) s4_v5508 ) = (*  (hPt) s3_v5536 );
SOURCE(4821, 15)
   (* (( (ptr) s4_v5508)+1) ) = XR_ExtractField((word) s3_v5536, 16, 32);
SOURCE(4838, 17)
   (* (( (hPt) s4_v5508)+4) ) = (* (( (hPt) s3_v5536)+3) );
SOURCE(4857, 19)
   (* (( (hPt) s4_v5508)+5) ) = (* (( (hPt) s3_v5536)+4) );
SOURCE(4878, 15)
   (* (( (hPt) s4_v5508)+6) ) = (* (( (hPt) s3_v5536)+5) );
SOURCE(4895, 15)
   (* (( (hPt) s4_v5508)+7) ) = (* (( (hPt) s3_v5536)+6) );
SOURCE(4912, 17)
   (* (( (hPt) s4_v5508)+8) ) = (* (( (hPt) s3_v5536)+7) );
SOURCE(4931, 17)
   (* (( (ptr) s4_v5508)+5) ) = (* (( (ptr) s3_v5536)+4) );
SOURCE(4950, 19)
   (* (( (ptr) s4_v5508)+6) ) = (* (( (ptr) s3_v5536)+5) );
SOURCE(4971, 21)
   (* (( (ptr) s4_v5508)+7) ) = (* (( (ptr) s3_v5536)+6) );
SOURCE(4994, 19)
   (* (( (ptr) s4_v5508)+8) ) = (* (( (ptr) s3_v5536)+7) );
SOURCE(5015, 21)
   (* (( (ptr) s4_v5508)+9) ) = (* (( (ptr) s3_v5536)+8) );
SOURCE(5038, 19)
   (* (( (ptr) s4_v5508)+10) ) = (* (( (ptr) s3_v5536)+9) );
SOURCE(5059, 21)
   (* (( (ptr) s4_v5508)+11) ) = (* (( (ptr) s3_v5536)+10) );
SOURCE(5082, 23)
   (* (( (ptr) s4_v5508)+12) ) = (* (( (ptr) s3_v5536)+11) );
SOURCE(5107, 21)
   (* (( (ptr) s4_v5508)+13) ) = (* (( (ptr) s3_v5536)+12) );
SOURCE(5130, 21)
   (*  (W2Pt) (( (ptr) s4_v5508)+14) ) = (*  (W2Pt) (( (ptr) s3_v5536)+13) );
   }

/* file: UnixSysCallsImpl, module: UnixSysCallsImpl, compiled at: January 26, 1993 8:43:12 pm PST */ 
extern void XR_install_UnixSysCallsImpl() {
   NoName_Q1008();
   }
extern void XR_run_UnixSysCallsImpl() { XR_Start(&globalframe); }