/* 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); }