/* Generated with C2C (Cedar To C)*/
/* Copyright (C) 1993 by Xerox Corporation.  All rights reserved. */
/* time: July 28, 1993 10:25:43 am PDT */
/* C2C version: April 20, 1993 (sun4) */
/* ref-counting: off */
/* file: ImagerSwitchesImpl, module: ImagerSwitchesImpl */ 
/* switches: bcfhklnouw */ 
#include <cedar/InstallationSupport.h>
#include <cedar/CedarExtra.h>
static char versionStamp[] = "@(#)mob_version [17263800,1750218414] ImagerSwitchesImpl";
typedef unsigned word, *ptr;
typedef unsigned char byte, *bPt;
typedef unsigned short half, *hPt;
#define SOURCE(p, l) /* source p, l */
static void NoName_Q240();
static void ImagerSwitchesImpl_P0();
static word Define_P60();
static void Describe_P120();
static void Set_P180();
static struct {unsigned f; char r[16];} string1 = {851984, "\257\300\001\007\154\270\300\150\122\066\256\100\150\000\000"};
static struct {unsigned f; char r[20];} string2 = {1114129, "\006\004\020\010\000\004\032\001\100\170\013\100\340\013\101\110\013\000\000"};
static struct {unsigned f; char r[12];} string3 = {720908, "\257\300/\002\345\247\245\243T@h"};
static struct {
   word f0[115]; word f115; word f116; word f117; 
   word f118; word f119; word f120; word f121; 
   word f122[2]; 
   } globalframe = {
   {0}, (word) Set_P180, 0, (word) Describe_P120, 
   0, (word) Define_P60, 0, (word) ImagerSwitchesImpl_P0, 
   {0}
   };

static void NoName_Q240()
   {
   register ptr gf_c036 =  (ptr) &globalframe;
   word var_c4248;
   (void) XR_DeclareGlobalFrame((word) "ImagerSwitchesImpl", &globalframe, (word) XR_GetTypeIndex((word) &string1, 0, (word) &string2)
      , (word) (( (bPt) gf_c036)+484)/* var_c4024 */ );
   var_c4248 = (word) XR_ExportInterface((word) "ImagerSwitches", (word) XR_GetTypeIndexS((word) (&string3)), 8);
   (* (( (ptr) gf_c036)+123)/* var_c4216 */  ) = var_c4248;
   (void) XR_ExportProcS(var_c4248, (word) (( (bPt) gf_c036)+476)/* var_c3992 */ , 68157444, (word) "Define");
   (void) XR_ExportVar(var_c4248, 1, (word) (( (bPt) gf_c036)+452));
   (void) XR_ExportProcS(var_c4248, (word) (( (bPt) gf_c036)+468)/* var_c3960 */ , 268698113, (word) "Describe");
   (void) XR_ExportProcS(var_c4248, (word) (( (bPt) gf_c036)+460)/* var_c3928 */ , 787203, (word) "Set");
   (void) XR_ExportVar(var_c4248, 4, (word) (( (bPt) gf_c036)+456));
   (void) XR_ExportVar(var_c4248, 6, (word) (( (bPt) gf_c036)+16)/* val_v2436 */ );
   }

static void ImagerSwitchesImpl_P0(formal_c014, formal_c013)
   word formal_c014;
   word formal_c013;
   {
   /* ImagerSwitchesImpl: */ 
   }

static word Define_P60(switch_v3032, name_v3060, doc_v3088, defaultValue_v3116)
   word switch_v3032;
   word name_v3060;
   word doc_v3088;
   word defaultValue_v3116;
   {
   register ptr gf_c4280 =  (ptr) &globalframe;
   word var_c3192;
   /* Define: */ 
SOURCE(401, 308)
SOURCE(518, 85)
   {
      word tc4;
      if ((name_v3060 != (* ((( (ptr) gf_c4280)+56)/* names_v2492 */ +switch_v3032) ))) {
         tc4 =  (word) ((* ((( (ptr) gf_c4280)+56)/* names_v2492 */ +switch_v3032) ) != 0);
         }
      else {
         tc4 =  (word) 0;
         };
      if (tc4) {
SOURCE(571, 32)
         {
            word var_c020;
            var_c020 = (switch_v3032 + 97);
            (void) XR_RaiseError((word) (( (bPt) gf_c4280)+452), (word) &var_c020);
            };
         };
      };
SOURCE(605, 20)
   (* ((( (ptr) gf_c4280)+56)/* names_v2492 */ +switch_v3032) ) = name_v3060;
SOURCE(627, 18)
   (* ((( (ptr) gf_c4280)+82)/* docs_v2520 */ +switch_v3032) ) = doc_v3088;
SOURCE(647, 44)
   {
      word var_c4056;
      var_c4056 = defaultValue_v3116;
      (* ((( (ptr) gf_c4280)+30)/* default_v2464 */ +switch_v3032) ) = defaultValue_v3116;
      (* ((( (ptr) gf_c4280)+4)/* val_v2436 */ +switch_v3032) ) = var_c4056;
      };
SOURCE(693, 16)
   return(switch_v3032);
   }

static void Describe_P120(formal_c031, switch_v3272)
   word formal_c031;
   word switch_v3272;
   {
   register ptr gf_c4312 =  (ptr) &globalframe;
   word name_v3336;
   word doc_v3364;
   word defaultValue_v3392;
   word value_v3420;
   /* Describe: */ 
SOURCE(713, 216)
SOURCE(713, 216)
   name_v3336 = 0;
SOURCE(713, 216)
   doc_v3364 = 0;
SOURCE(713, 216)
   defaultValue_v3392 = 0;
SOURCE(713, 216)
   value_v3420 = 0;
SOURCE(830, 99)
   {
      word var_c4088;
      word var_c4120;
      word var_c4152;
      word var_c4184;
      var_c4088 = (* ((( (ptr) gf_c4312)+56)/* names_v2492 */ +switch_v3272) );
      var_c4120 = (* ((( (ptr) gf_c4312)+82)/* docs_v2520 */ +switch_v3272) );
      var_c4152 = (* ((( (ptr) gf_c4312)+30)/* default_v2464 */ +switch_v3272) );
      var_c4184 = (* ((( (ptr) gf_c4312)+4)/* val_v2436 */ +switch_v3272) );
      name_v3336 = var_c4088;
      doc_v3364 = var_c4120;
      defaultValue_v3392 = var_c4152;
      value_v3420 = var_c4184;
      /* removed tail goto */ 
      };
   (*  (ptr) formal_c031 ) = name_v3336;
   (* (( (ptr) formal_c031)+1) ) = doc_v3364;
   (* (( (ptr) formal_c031)+2) ) = defaultValue_v3392;
   (* (( (ptr) formal_c031)+3) ) = value_v3420;
   return;
   }

static void Set_P180(switch_v3504, name_v3532, value_v3560)
   word switch_v3504;
   word name_v3532;
   word value_v3560;
   {
   register ptr gf_c4344 =  (ptr) &globalframe;
   /* Set: */ 
SOURCE(933, 142)
SOURCE(1001, 53)
   if ((name_v3532 != (* ((( (ptr) gf_c4344)+56)/* names_v2492 */ +switch_v3504) ))) {
SOURCE(1031, 23)
      {
         word var_c035;
         var_c035 = (switch_v3504 + 97);
         (void) XR_RaiseError((word) (( (bPt) gf_c4344)+456), (word) &var_c035);
         };
      };
SOURCE(1056, 19)
   (* ((( (ptr) gf_c4344)+4)/* val_v2436 */ +switch_v3504) ) = value_v3560;
   }

/* file: ImagerSwitchesImpl, module: ImagerSwitchesImpl, compiled at: July 28, 1993 10:25:43 am PDT */ 
extern void XR_install_ImagerSwitchesImpl() {
   NoName_Q240();
   }
extern void XR_run_ImagerSwitchesImpl() { XR_Start(&globalframe); }