/* Generated with C2C (Cedar To C)*/
/* Copyright (C) 1992 by Xerox Corporation.  All rights reserved. */
/* time: February 21, 1992 7:27:21 pm PST */
/* C2C version: October 16, 1990 (native) */
/* ref-counting: off */
/* file: ProcessorFaceImpl, module: ProcessorFaceImpl */ 
/* switches: bcfhklnouw */ 
#include <cedar/InstallationSupport.h>
#include <cedar/CedarExtra.h>
static char versionStamp[] = "@(#)mob_version [2124677674,4279112002] ProcessorFaceImpl";
typedef unsigned word, *ptr;
typedef unsigned char byte, *bPt;
typedef unsigned short half, *hPt;
typedef word (*fPt)();
typedef struct {word f0, f1;} W2;
typedef W2 *W2Pt;
#define SOURCE(p, l) /* source p, l */
static void NoName_Q360();
static void ProcessorFaceImpl_P0();
static void GetProcessorID_P60();
static word GetProcessorType_P120();
static word GetProcessorTypeName_P180();
static word ProcessorTypeFromName_P240();
static word LastProcessorType_P300();
static struct {unsigned f; char r[16];} string1 = {851984, "\257\300\176\244\002\052\300\377\016\021\102\100\164\000\000"};
static struct {unsigned f; char r[4];} string2 = {196611, "\004G\300"};
static struct {unsigned f; char r[16];} string3 = {851984, "\257\300\374\377\221\350\300\202\044\047\115\100\150\000\000"};
static struct {unsigned f; char r[16];} string4 = {851984, "\257\300\011\071\113\334\300\244\027\111\067\100\150\000\000"};
static struct {unsigned f; char r[12];} string6 = {655372, "decstation\000"};
static struct {unsigned f; char r[8];} string8 = {393224, "rs6000\000"};
static struct {unsigned f; char r[8];} string10 = {262152, "sun3\000\000\000"};
static struct {unsigned f; char r[8];} string12 = {262152, "sun4\000\000\000"};
static struct {unsigned f; char r[8];} string14 = {458760, "unknown"};
static struct {
   word f0[12]; word f12; word f13; word f14; 
   word f15; word f16; word f17; word f18; 
   word f19; word f20; word f21; word f22; 
   word f23[3]; 
   } globalframe = {
   {0}, (word) LastProcessorType_P300, 0, (word) ProcessorTypeFromName_P240, 
   0, (word) GetProcessorTypeName_P180, 0, (word) GetProcessorType_P120, 
   0, (word) GetProcessorID_P60, 0, (word) ProcessorFaceImpl_P0, 
   {0}
   };
extern void XR_getxnshostid();

static void NoName_Q360()
   {
   register ptr gf_c030 =  (ptr) &globalframe;
   word var_c4336;
   (void) XR_DeclareGlobalFrame((word) "ProcessorFaceImpl", &globalframe, (word) XR_GetTypeIndex((word) &string1, 0, (word) &string2)
      , (word) (( (bPt) gf_c030)+88)/* var_c4176 */ );
   var_c4336 = (word) XR_ImportInterface((word) "AtomPrivate", (word) XR_GetTypeIndexS((word) (&string3)), 2);
   (* (( (ptr) gf_c030)+24)/* var_c4208 */  ) = var_c4336;
   (void) XR_ImportProcS(var_c4336, 67371265);
   var_c4336 = (word) XR_ExportInterface((word) "ProcessorFace", (word) XR_GetTypeIndexS((word) (&string4)), 5);
   (* (( (ptr) gf_c030)+25)/* var_c4368 */  ) = var_c4336;
   (void) XR_ExportVar(var_c4336, 0, (word) (( (bPt) gf_c030)+16)/* processorID_v2468 */ );
   (void) XR_ExportProcS(var_c4336, (word) (( (bPt) gf_c030)+72)/* var_c4112 */ , 67109120);
   (void) XR_ExportProcS(var_c4336, (word) (( (bPt) gf_c030)+64)/* var_c4080 */ , 67371521);
   (void) XR_ExportProcS(var_c4336, (word) (( (bPt) gf_c030)+56)/* var_c4048 */ , 67371777);
   (void) XR_ExportProcS(var_c4336, (word) (( (bPt) gf_c030)+48)/* var_c4016 */ , 67109888);
   }

static void ProcessorFaceImpl_P0(formal_c019, formal_c017)
   word formal_c019;
   word formal_c017;
   {
   register ptr gf_c4400 =  (ptr) &globalframe;
   /* ProcessorFaceImpl: */ 
SOURCE(107, 1714)
SOURCE(192, 64)
   (void) GetProcessorID_P60((word) ((( (bPt) gf_c4400)+16)/* processorID_v2468 */ ));
SOURCE(1519, 302)
SOURCE(1521, 60)
   {
      word pd5;
      pd5 = (* (( (ptr) (* (( (ptr) gf_c4400)+24)/* var_c4208 */  ))+5) );
      (* (( (ptr) gf_c4400)+6)/* decAtom_v2552 */  ) = (word) ( *( (fPt) ((*  (ptr) pd5 ))))((word) (&string6), pd5);
      };
SOURCE(1583, 59)
   {
      word pd7;
      pd7 = (* (( (ptr) (* (( (ptr) gf_c4400)+24)/* var_c4208 */  ))+5) );
      (* (( (ptr) gf_c4400)+7)/* rs6000Atom_v2580 */  ) = (word) ( *( (fPt) ((*  (ptr) pd7 ))))((word) (&string8), pd7);
      };
SOURCE(1644, 55)
   {
      word pd9;
      pd9 = (* (( (ptr) (* (( (ptr) gf_c4400)+24)/* var_c4208 */  ))+5) );
      (* (( (ptr) gf_c4400)+8)/* sun3Atom_v2608 */  ) = (word) ( *( (fPt) ((*  (ptr) pd9 ))))((word) (&string10), pd9);
      };
SOURCE(1701, 55)
   {
      word pd11;
      pd11 = (* (( (ptr) (* (( (ptr) gf_c4400)+24)/* var_c4208 */  ))+5) );
      (* (( (ptr) gf_c4400)+9)/* sun4Atom_v2636 */  ) = (word) ( *( (fPt) ((*  (ptr) pd11 ))))((word) (&string12), pd11);
      };
SOURCE(1758, 61)
   {
      word pd13;
      pd13 = (* (( (ptr) (* (( (ptr) gf_c4400)+24)/* var_c4208 */  ))+5) );
      (* (( (ptr) gf_c4400)+10)/* unknownAtom_v2664 */  ) = (word) ( *( (fPt) ((*  (ptr) pd13 ))))((word) (&string14), pd13);
      };
   }

static void GetProcessorID_P60(formal_c021)
   word formal_c021;
   {
   W2 processorID_v2856;
   /* GetProcessorID: */ 
SOURCE(260, 272)
SOURCE(499, 33)
   (void) XR_getxnshostid((word) (&processorID_v2856));
   /* removed tail goto */ 
   (*  (W2Pt) formal_c021 ) = processorID_v2856;
   return;
   }

static word GetProcessorType_P120()
   {
   word var_c2916;
   /* GetProcessorType: */ 
SOURCE(539, 198)
SOURCE(721, 16)
   return((word) XR_GetProcessorType());
   }

static word GetProcessorTypeName_P180(type_v2976)
   word type_v2976;
   {
   register ptr gf_c4432 =  (ptr) &globalframe;
   word var_c3020;
   /* GetProcessorTypeName: */ 
SOURCE(865, 255)
SOURCE(954, 166)
   {
      word var_c4272;
      var_c4272 = type_v2976;
      switch (var_c4272) {
         case 0: 
SOURCE(980, 17)
            return((* (( (ptr) gf_c4432)+8)/* sun3Atom_v2608 */  ));
         case 1: 
SOURCE(1007, 17)
            return((* (( (ptr) gf_c4432)+9)/* sun4Atom_v2636 */  ));
         case 2: 
SOURCE(1036, 19)
            return((* (( (ptr) gf_c4432)+7)/* rs6000Atom_v2580 */  ));
         case 3: 
SOURCE(1071, 16)
            return((* (( (ptr) gf_c4432)+6)/* decAtom_v2552 */  ));
         default: 
SOURCE(1100, 20)
            return((* (( (ptr) gf_c4432)+10)/* unknownAtom_v2664 */  ));
         };
      };
   }

static word ProcessorTypeFromName_P240(name_v3080)
   word name_v3080;
   {
   register ptr gf_c4464 =  (ptr) &globalframe;
   word var_c3124;
   /* ProcessorTypeFromName: */ 
SOURCE(1126, 278)
SOURCE(1216, 188)
   {
      word var_c4304;
      var_c4304 = name_v3080;
      if ((var_c4304 == (* (( (ptr) gf_c4464)+8)/* sun3Atom_v2608 */  ))) {
SOURCE(1246, 13)
         return(0);
         };
      if ((var_c4304 == (* (( (ptr) gf_c4464)+9)/* sun4Atom_v2636 */  ))) {
SOURCE(1273, 13)
         return(1);
         };
      if ((var_c4304 == (* (( (ptr) gf_c4464)+7)/* rs6000Atom_v2580 */  ))) {
SOURCE(1302, 15)
         return(2);
         };
      if ((var_c4304 == (* (( (ptr) gf_c4464)+6)/* decAtom_v2552 */  ))) {
SOURCE(1330, 19)
         return(3);
         };
SOURCE(1362, 42)
      return( (word) -1);
      };
   }

static word LastProcessorType_P300()
   {
   word var_c3184;
   /* LastProcessorType: */ 
SOURCE(1410, 98)
SOURCE(1482, 26)
   return(3);
   }

/* file: ProcessorFaceImpl, module: ProcessorFaceImpl, compiled at: February 21, 1992 7:27:21 pm PST */ 
extern void XR_install_ProcessorFaceImpl() {
   NoName_Q360();
   }
extern void XR_run_ProcessorFaceImpl() { XR_Start(&globalframe); }