/* Generated with C2C (Cedar To C)*/
/* Copyright (C) 1992 by Xerox Corporation.  All rights reserved. */
/* time: August 19, 1992 3:36:00 pm PDT */
/* C2C version: October 16, 1990 (native) */
/* ref-counting: off */
/* file: XlPrivateResourcesImpl, module: XlPrivateResourcesImpl */ 
/* switches: bcfhklnouw */ 
#include <cedar/InstallationSupport.h>
#include <cedar/CedarExtra.h>
#define XRM_BITAND(x, y) (((word)(x)) & ((word)(y)))
#define XRM_BITOR(x, y) (((word)(x)) | ((word)(y)))
static char versionStamp[] = "@(#)mob_version [2861273789,3017289246] XlPrivateResourcesImpl";
typedef unsigned word, *ptr;
typedef unsigned char byte, *bPt;
typedef unsigned short half, *hPt;
typedef word (*fPt)();
typedef struct {word f0, f1;} W2;
#define SOURCE(p, l) /* source p, l */
#define SGNCK(i) ((int) (word) (i) < 0 ? XR_RaiseArithmeticFault(): i )
#define BCK(idx, lim) ( ((unsigned) idx) >= ((unsigned) lim) ? (XR_RaiseBoundsFault()) : (idx) )
static void NoName_Q1080();
static void XlPrivateResourcesImpl_P0();
static void InitPrivateResources_P60();
static void MarkDead_P120();
static word NewResourceID_P180();
static void InternalFreeResourceID_P240();
static void EntryFreeResourceID_P300();
static word ValidID_P360();
static void Attach_P420();
static void Detach_P480();
static word Fetch_P540();
static struct {unsigned f; char r[16];} string1 = {851984, "\257\300\252\213\222\275\300\263\330\056\036\100\214\000\000"};
static struct {unsigned f; char r[4];} string2 = {131074, "\0040\000"};
static struct {unsigned f; char r[16];} string3 = {851984, "\257\300\252\213\222\275\300\263\330\056\036\100\230\000\000"};
static struct {unsigned f; char r[4];} string4 = {196611, "\003@A"};
static struct {unsigned f; char r[16];} string5 = {851984, "\257\300\252\213\222\275\300\263\330\056\036\100\200\000\000"};
static struct {unsigned f; char r[16];} string6 = {851984, "\257\300\223\215\300\016\300\070\141\304\023\100\150\000\000"};
static struct {unsigned f; char r[16];} string7 = {851984, "\257\300\351\276\264\273\300\115\104\320\264\100\164\000\000"};
static struct {unsigned f; char r[32];} string8 = {1900576, "\211\021\020\122\145\163\157\165\162\143\145\123\164\165\146\146\122\145\160\300\351\276\264\273\300\115\104\320\264\000\000"};
static struct {unsigned f; char r[16];} string9 = {851984, "\257\300\044\126\136\322\300\125\273\233\107\100\150\000\000"};
static struct {
   word f0[6]; 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[4]; 
   } globalframe = {
   {0}, (word) Fetch_P540, 0, (word) Detach_P480, 
   0, (word) Attach_P420, 0, (word) ValidID_P360, 
   0, (word) EntryFreeResourceID_P300, 0, (word) InternalFreeResourceID_P240, 
   0, (word) NewResourceID_P180, 0, (word) MarkDead_P120, 
   0, (word) InitPrivateResources_P60, 0, (word) XlPrivateResourcesImpl_P0, 
   {0}
   };

static void NoName_Q1080()
   {
   register ptr gf_c066 =  (ptr) &globalframe;
   word var_c8788;
   (* (( (ptr) gf_c066)+4) ) = (word) XR_GetTypeIndex((word) &string1, 0, (word) &string2);
   (* (( (ptr) gf_c066)+5) ) = (word) XR_GetTypeIndex((word) &string3, 0, (word) &string4);
   (void) XR_DeclareGlobalFrame((word) "XlPrivateResourcesImpl", &globalframe, (word) XR_GetTypeIndexS((word) (&string5)), (word) (
         ( (bPt) gf_c066)+96)/* var_c8212 */ );
   var_c8788 = (word) XR_ImportInterface((word) "CardTab", (word) XR_GetTypeIndexS((word) (&string6)), 12);
   (* (( (ptr) gf_c066)+26)/* var_c8372 */  ) = var_c8788;
   (void) XR_ImportProcS(var_c8788, 134742786);
   (void) XR_ImportProcS(var_c8788, 67634946);
   (void) XR_ImportProcS(var_c8788, 67896579);
   (void) XR_ImportProcS(var_c8788, 264193);
   (void) XR_ImportProcS(var_c8788, 67371265);
   var_c8788 = (word) XR_ExportInterface((word) "Xl", (word) XR_GetTypeIndexS((word) (&string7)), 218);
   (* (( (ptr) gf_c066)+27)/* var_c8820 */  ) = var_c8788;
   (void) XR_ExportType((word) "ResourceStuffRep", (word) XR_GetTypeIndexS((word) (&string8)), (word) XR_GetTypeIndex((word) &string1, 0, (word) &string2)
      );
   var_c8788 = (word) XR_ExportInterface((word) "XlPrivateResources", (word) XR_GetTypeIndexS((word) (&string9)), 9);
   (* (( (ptr) gf_c066)+28)/* var_c8852 */  ) = var_c8788;
   (void) XR_ExportProcS(var_c8788, (word) (( (bPt) gf_c066)+88)/* var_c8180 */ , 786435);
   (void) XR_ExportProcS(var_c8788, (word) (( (bPt) gf_c066)+80)/* var_c8148 */ , 262401);
   (void) XR_ExportProcS(var_c8788, (word) (( (bPt) gf_c066)+72)/* var_c8116 */ , 67371521);
   (void) XR_ExportProcS(var_c8788, (word) (( (bPt) gf_c066)+64)/* var_c8084 */ , 525058);
   (void) XR_ExportProcS(var_c8788, (word) (( (bPt) gf_c066)+56)/* var_c8052 */ , 525314);
   (void) XR_ExportProcS(var_c8788, (word) (( (bPt) gf_c066)+48)/* var_c8020 */ , 67634434);
   (void) XR_ExportProcS(var_c8788, (word) (( (bPt) gf_c066)+40)/* var_c7988 */ , 787971);
   (void) XR_ExportProcS(var_c8788, (word) (( (bPt) gf_c066)+32)/* var_c7956 */ , 526082);
   (void) XR_ExportProcS(var_c8788, (word) (( (bPt) gf_c066)+24)/* var_c7924 */ , 67635202);
   }

static void XlPrivateResourcesImpl_P0(formal_c017, formal_c016)
   word formal_c017;
   word formal_c016;
   {
   /* XlPrivateResourcesImpl: */ 
   }

static void InitPrivateResources_P60(c_v3424, resourceIdBase_v3452, resourceIdMask_v3480)
   word c_v3424;
   word resourceIdBase_v3452;
   word resourceIdMask_v3480;
   {
   register ptr gf_c8884 =  (ptr) &globalframe;
   word resources_v4344;
   /* InitPrivateResources: */ 
SOURCE(640, 345)
SOURCE(734, 222)
   {
      word var_c8244;
      word var_c8340;
      word var_c8404;
      {
         word var_c8276;
         word w2_v7876;
         w2_v7876 = ( (word) -1 - (resourceIdMask_v3480 - 1));
         var_c8276 = (word) XRM_BITAND(resourceIdMask_v3480, w2_v7876);
         var_c8244 = var_c8276;
         };
      {
         word pd10;
         pd10 = (* (( (ptr) (* (( (ptr) gf_c8884)+26)/* var_c8372 */  ))+5) );
         var_c8340 = (word) ( *( (fPt) ((*  (ptr) pd10 ))))(17, pd10);
         };
      var_c8404 = XR_NewObject(24, (* (( (ptr) gf_c8884)+4) ));
      (*  (ptr) var_c8404 ) = resourceIdBase_v3452;
      (* (( (ptr) var_c8404)+1) ) = resourceIdMask_v3480;
      (* (( (ptr) var_c8404)+2) ) = var_c8244;
      (* (( (ptr) var_c8404)+5) ) = var_c8340;
      resources_v4344 = var_c8404;
      };
SOURCE(958, 27)
   (* (( (ptr) c_v3424)+26) ) = resources_v4344;
   }

static void MarkDead_P120(c_v3540)
   word c_v3540;
   {
   register ptr gf_c8916 =  (ptr) &globalframe;
   word resources_v4400;
   /* MarkDead: */ 
SOURCE(990, 214)
SOURCE(1032, 49)
   resources_v4400 = (* (( (ptr) c_v3540)+26) );
SOURCE(1083, 121)
   if ((resources_v4400 != 0)) {
SOURCE(1107, 24)
      (* (( (ptr) resources_v4400)+4) ) = 0;
SOURCE(1133, 71)
      if (((* (( (ptr) resources_v4400)+5) ) != 0)) {
SOURCE(1167, 37)
         {
            word pd11;
            pd11 = (* (( (ptr) (* (( (ptr) gf_c8916)+26)/* var_c8372 */  ))+12) );
            (void) ( *( (fPt) ((*  (ptr) pd11 ))))((* ((( (ptr) resources_v4400)+5)) ), pd11);
            };
         };
      };
   }

static word NewResourceID_P180(c_v3600)
   word c_v3600;
   {
   word id_v3644;
   word resources_v4484;
   word free_v4512;
   /* NewResourceID: */ 
SOURCE(1210, 635)
SOURCE(1580, 49)
   resources_v4484 = (* (( (ptr) c_v3600)+26) );
SOURCE(1631, 39)
   free_v4512 = (* (( (ptr) resources_v4484)+4) );
SOURCE(1672, 49)
   if ( ( (free_v4512 != 0) ? ((* (( (ptr) free_v4512)+64) ) == 0) : 0 ) ) {
SOURCE(1705, 16)
      free_v4512 = (* (( (ptr) free_v4512)+65) );
      };
SOURCE(1723, 85)
   if ( ( (free_v4512 != 0) ? ((* (( (ptr) free_v4512)+64) ) > 0) : 0 ) ) {
SOURCE(1757, 23)
      {
         word idx12;
         (* (( (ptr) free_v4512)+64) ) = (
            idx12 = (word) ((* (( (ptr) free_v4512)+64) ) - 1),
            SGNCK(idx12)
            );
         };
SOURCE(1782, 26)
      {
         word idx13;
         return((* (( (ptr) free_v4512)+(
               idx13 = (* (( (ptr) free_v4512)+64) ),
               BCK(idx13, 64)
               )) ));
         };
      };
SOURCE(1811, 34)
   {
      word var_c8468;
      word resources_v7676;
      resources_v7676 = resources_v4484;
      {
         word var_c8532;
         word w1_v7724;
         word w2_v7752;
SOURCE(1366, 41)
         if (((* (( (ptr) resources_v7676)+3) ) == (* (( (ptr) resources_v7676)+1) ))) {
SOURCE(1407, 5)
            (void) XR_RaiseUnnamedError();
            };
SOURCE(1462, 55)
         (* (( (ptr) resources_v7676)+3) ) = ((* (( (ptr) resources_v7676)+3) ) + (* (( (ptr) resources_v7676)+2) ));
SOURCE(1519, 56)
         w1_v7724 = (* (( (ptr) resources_v7676)+3) );
         w2_v7752 = (*  (ptr) resources_v7676 );
         var_c8532 = (word) XRM_BITOR(w1_v7724, w2_v7752);
         var_c8468 = (var_c8532
         );
         };
      return(var_c8468);
      };
   }

static void InternalFreeResourceID_P240(c_v3704, id_v3732)
   word c_v3704;
   word id_v3732;
   {
   register ptr gf_c8948 =  (ptr) &globalframe;
   /* InternalFreeResourceID: */ 
SOURCE(1850, 381)
SOURCE(1927, 304)
   if ( (  ( (c_v3704 != 0) ? (0 != (* (( (ptr) c_v3704)+15) )) : 0 )  ? (0 != (word) ValidID_P360(c_v3704, id_v3732)) : 0 ) ) {
SOURCE(1966, 267)
      {
         word resources_v4696;
         word free_v4724;
SOURCE(1968, 49)
         resources_v4696 = (* (( (ptr) c_v3704)+26) );
SOURCE(2019, 39)
         free_v4724 = (* (( (ptr) resources_v4696)+4) );
SOURCE(2060, 121)
         if ((free_v4724 == 0) || ((* (( (ptr) free_v4724)+64) ) >= 64)) {
SOURCE(2104, 49)
            {
               word var_c8596;
               var_c8596 = XR_NewObject(264, (* (( (ptr) gf_c8948)+5) ));
               (* (( (ptr) var_c8596)+65) ) = (* (( (ptr) resources_v4696)+4) );
               free_v4724 = var_c8596;
               };
SOURCE(2155, 26)
            (* (( (ptr) resources_v4696)+4) ) = free_v4724;
            };
SOURCE(2184, 22)
         {
            word idx14;
            (* (( (ptr) free_v4724)+(
                  idx14 = (* (( (ptr) free_v4724)+64) ),
                  BCK(idx14, 64)
                  )) ) = id_v3732;
            };
SOURCE(2208, 23)
         (* (( (ptr) free_v4724)+64) ) = ((* (( (ptr) free_v4724)+64) ) + 1);
         };
      };
   }

static void EntryFreeResourceID_P300(c_v3792, id_v3820)
   word c_v3792;
   word id_v3820;
   {
   /* EntryFreeResourceID: */ 
SOURCE(2240, 96)
   (void) (XR_MonitorEntry(c_v3792));
SOURCE(2307, 29)
   (void) InternalFreeResourceID_P240(c_v3792, id_v3820);
SOURCE(2240, 96)
   (void) (XR_MonitorExit(c_v3792));
   return;
   }

static word ValidID_P360(c_v3880, id_v3908)
   word c_v3880;
   word id_v3908;
   {
   word var_c3952;
   word resources_v4792;
   /* ValidID: */ 
SOURCE(2342, 203)
SOURCE(2406, 49)
   resources_v4792 = (* (( (ptr) c_v3880)+26) );
SOURCE(2457, 88)
   {
      word var_c073;
      if ((id_v3908 != 0)) {
         {
            word var_c8660;
            word w1_v7800;
            word w2_v7828;
            w1_v7800 = ( (word) -1 - (* (( (ptr) resources_v4792)+1) ));
            w2_v7828 = (id_v3908 - (*  (ptr) resources_v4792 ));
            var_c8660 = (word) XRM_BITAND(w1_v7800, w2_v7828);
            var_c073 = (var_c8660 == 0);
            };
         }
      else {
         var_c073 = 0;
         };
      return(var_c073);
      };
   }

static void Attach_P420(c_v4012, id_v4040, ref_v4068)
   word c_v4012;
   word id_v4040;
   word ref_v4068;
   {
   register ptr gf_c8980 =  (ptr) &globalframe;
   word resources_v4848;
   /* Attach: */ 
SOURCE(2551, 159)
SOURCE(2609, 49)
   resources_v4848 = (* (( (ptr) c_v4012)+26) );
SOURCE(2660, 50)
   {
      word var_c8724;
      word pd15;
      pd15 = (* (( (ptr) (* (( (ptr) gf_c8980)+26)/* var_c8372 */  ))+9) );
      var_c8724 = (word) ( *( (fPt) ((*  (ptr) pd15 ))))((* (( (ptr) resources_v4848)+5) ), id_v4040, ref_v4068, pd15);
      };
   }

static void Detach_P480(c_v4144, id_v4172)
   word c_v4144;
   word id_v4172;
   {
   register ptr gf_c9012 =  (ptr) &globalframe;
   word resources_v4904;
   /* Detach: */ 
SOURCE(2715, 145)
SOURCE(2763, 49)
   resources_v4904 = (* (( (ptr) c_v4144)+26) );
SOURCE(2814, 46)
   {
      word var_c8756;
      word pd16;
      pd16 = (* (( (ptr) (* (( (ptr) gf_c9012)+26)/* var_c8372 */  ))+11) );
      var_c8756 = (word) ( *( (fPt) ((*  (ptr) pd16 ))))((* (( (ptr) resources_v4904)+5) ), id_v4172, pd16);
      };
   }

static word Fetch_P540(c_v4232, id_v4260)
   word c_v4232;
   word id_v4260;
   {
   register ptr gf_c9044 =  (ptr) &globalframe;
   word ref_v4304;
   word resources_v4960;
   W2 var_c065;
   /* Fetch: */ 
SOURCE(2865, 167)
SOURCE(2865, 167)
   ref_v4304 = 0;
SOURCE(2931, 49)
   resources_v4960 = (* (( (ptr) c_v4232)+26) );
SOURCE(2982, 50)
   {
      word pd17;
      pd17 = (* (( (ptr) (* (( (ptr) gf_c9044)+26)/* var_c8372 */  ))+7) );
      (void) ( *( (fPt) ((*  (ptr) pd17 ))))((word) &var_c065, (* (( (ptr) resources_v4960)+5) ), id_v4260, pd17);
      };
   ref_v4304 = var_c065.f1;
SOURCE(2865, 167)
   return(ref_v4304);
   }

/* file: XlPrivateResourcesImpl, module: XlPrivateResourcesImpl, compiled at: August 19, 1992 3:35:59 pm PDT */ 
extern void XR_install_XlPrivateResourcesImpl() {
   NoName_Q1080();
   }
extern void XR_run_XlPrivateResourcesImpl() { XR_Start(&globalframe); }