/* Program generated by SDT Cadvanced 3.6.0 */
#define XSCT_CADVANCED

#define SCT_VERSION_3_6
#include "scttypes.h"
#include "accesslibrary.h"
#ifdef XINCLUDE_HS_FILE
#include "accesscontrol.hs"
#endif
#ifdef XCTRACE
static char  xFileName[] = "D:\\TelelogicTau36\\examples\\courseenv\\simccode\\ACCESS\\accesslibrary.c";
#endif


/*************************************************************************
**                  #CODE directives, #BODY sections                    **
*************************************************************************/

/*************************************************************************
**                  SECTION Variables and Functions                     **
*************************************************************************/

/*****
* PACKAGE AccessLibrary
* #SDTREF(SDL,D:\TelelogicTau36\examples\courseenv\simccode\ACCESS\AccessLibrary.sun,4,1,9)
******/
XCONST struct xPackageIdStruct yPacR_z_AccessLibrary__AccessLibrary =
  {xPackageEC xSymbTLink((xIdNode)0, (xIdNode)0), (xIdNode)&xSymbolTableIdRec
  xIdNames("AccessLibrary") XCOMMON_EXTRAS xIdNames(0) XPAC_EXTRAS};

/*****
* SYNONYM KEYMAX
* <<PACKAGE AccessLibrary>>
* #SDTREF(SDL,D:\TelelogicTau36\examples\courseenv\simccode\ACCESS\AccessLibrary.sun(Declarations),155(25,50),1,9)
******/
#ifdef XUSESYNONYMIDNODES
XCONST struct xSynonymIdStruct ySynR_z_AccessLibrary_J_KEYMAX = {xSynonymEC
  xSymbTLink((xIdNode)0, (xIdNode)0),
  (xIdNode)&yPacR_z_AccessLibrary__AccessLibrary xIdNames("KEYMAX")
  XCOMMON_EXTRAS, xSrtN_SDL_Natural XSYN_EXTRAS};
#endif

/*****
* SYNONYM DOORMAX
* <<PACKAGE AccessLibrary>>
* #SDTREF(SDL,D:\TelelogicTau36\examples\courseenv\simccode\ACCESS\AccessLibrary.sun(Declarations),155(25,50),2,9)
******/
#ifdef XUSESYNONYMIDNODES
XCONST struct xSynonymIdStruct ySynR_z_AccessLibrary_K_DOORMAX = {xSynonymEC
  xSymbTLink((xIdNode)0, (xIdNode)0),
  (xIdNode)&yPacR_z_AccessLibrary__AccessLibrary xIdNames("DOORMAX")
  XCOMMON_EXTRAS, xSrtN_SDL_Natural XSYN_EXTRAS};
#endif

/*****
* SYNONYM DISPLAYTIME
* <<PACKAGE AccessLibrary>>
* #SDTREF(SDL,D:\TelelogicTau36\examples\courseenv\simccode\ACCESS\AccessLibrary.sun(Declarations),155(25,50),3,9)
******/
#ifdef XUSESYNONYMIDNODES
XCONST struct xSynonymIdStruct ySynR_z_AccessLibrary_L_DISPLAYTIME =
  {xSynonymEC xSymbTLink((xIdNode)0, (xIdNode)0),
  (xIdNode)&yPacR_z_AccessLibrary__AccessLibrary xIdNames("DISPLAYTIME")
  XCOMMON_EXTRAS, xSrtN_SDL_Duration XSYN_EXTRAS};
#endif

/*****
* SYNONYM USERTIMEOUT
* <<PACKAGE AccessLibrary>>
* #SDTREF(SDL,D:\TelelogicTau36\examples\courseenv\simccode\ACCESS\AccessLibrary.sun(Declarations),155(25,50),4,9)
******/
#ifdef XUSESYNONYMIDNODES
XCONST struct xSynonymIdStruct ySynR_z_AccessLibrary_M_USERTIMEOUT =
  {xSynonymEC xSymbTLink((xIdNode)0, (xIdNode)0),
  (xIdNode)&yPacR_z_AccessLibrary__AccessLibrary xIdNames("USERTIMEOUT")
  XCOMMON_EXTRAS, xSrtN_SDL_Duration XSYN_EXTRAS};
#endif

/*****
* SYNTYPE DoorNoType  (BODY section)
* <<PACKAGE AccessLibrary>>
* #SDTREF(SDL,D:\TelelogicTau36\examples\courseenv\simccode\ACCESS\AccessLibrary.sun(Declarations),152(100,50),1,9)
******/
#ifndef XOPTSORT
XCONST struct xSortIdStruct ySrtR_z_AccessLibrary_H_DoorNoType = {xSortEC
  xSymbTLink((xIdNode)0, (xIdNode)0),
  (xIdNode)&yPacR_z_AccessLibrary__AccessLibrary xIdNames("DoorNoType")
  XCOMMON_EXTRAS xFreF(0) xAssF(0) xEqF(0) xRaWF(0) xRaWF(0)
  xTestF(yTest_z_AccessLibrary_H_DoorNoType),
  (xptrint)sizeof(z_AccessLibrary_H_DoorNoType), xSyntype, &xSrtR_SDL_Integer,
  &xSrtR_SDL_Natural, SDL_INTEGER_LIT(1), SDL_INTEGER_LIT(4), 0, 0 XSRT_EXTRAS};
#endif

/*-------------------TEST-------------------*/
#ifdef XTESTF
#ifndef XNOPROTO
xbool yTest_z_AccessLibrary_H_DoorNoType(void * yExpr)
#else
xbool yTest_z_AccessLibrary_H_DoorNoType(yExpr)
  void * yExpr;
#endif
{
  if (xLE_SDL_Integer(SDL_INTEGER_LIT(1),
    *(z_AccessLibrary_H_DoorNoType *)yExpr))
    if (xLE_SDL_Integer(*(z_AccessLibrary_H_DoorNoType *)yExpr,
    SDL_INTEGER_LIT(4)))
      return (xbool)1;
  return (xbool)0;
}
#endif

/*-------------------TSTA-------------------*/
#ifdef XERANGE
#ifndef XNOPROTO
z_AccessLibrary_H_DoorNoType yTstA_z_AccessLibrary_H_DoorNoType
  (z_AccessLibrary_H_DoorNoType yExpr)
#else
z_AccessLibrary_H_DoorNoType yTstA_z_AccessLibrary_H_DoorNoType(yExpr)
  z_AccessLibrary_H_DoorNoType yExpr;
#endif
{
  if (! yTest_z_AccessLibrary_H_DoorNoType((void *)&yExpr) )
    xErrorSubrange(ySrtN_z_AccessLibrary_H_DoorNoType, xWriteSort(&yExpr,
  ySrtN_z_AccessLibrary_H_DoorNoType));
  return yExpr;
}
#endif

/*-------------------TSTI-------------------*/
#ifdef XEINDEX
#ifndef XNOPROTO
z_AccessLibrary_H_DoorNoType yTstI_z_AccessLibrary_H_DoorNoType
  (z_AccessLibrary_H_DoorNoType yExpr)
#else
z_AccessLibrary_H_DoorNoType yTstI_z_AccessLibrary_H_DoorNoType(yExpr)
  z_AccessLibrary_H_DoorNoType yExpr;
#endif
{
  if (! yTest_z_AccessLibrary_H_DoorNoType((void *)&yExpr) ) {
    xErrorIndex(ySrtN_z_AccessLibrary_H_DoorNoType, xWriteSort(&yExpr,
  ySrtN_z_AccessLibrary_H_DoorNoType));
    return SDL_INTEGER_LIT(1);
  }
  return yExpr;
}
#endif

/*****
* SYNTYPE KeyIndexType  (BODY section)
* <<PACKAGE AccessLibrary>>
* #SDTREF(SDL,D:\TelelogicTau36\examples\courseenv\simccode\ACCESS\AccessLibrary.sun(Declarations),152(100,50),5,9)
******/
#ifndef XOPTSORT
XCONST struct xSortIdStruct ySrtR_z_AccessLibrary_I_KeyIndexType = {xSortEC
  xSymbTLink((xIdNode)0, (xIdNode)0),
  (xIdNode)&yPacR_z_AccessLibrary__AccessLibrary xIdNames("KeyIndexType")
  XCOMMON_EXTRAS xFreF(0) xAssF(0) xEqF(0) xRaWF(0) xRaWF(0)
  xTestF(yTest_z_AccessLibrary_I_KeyIndexType),
  (xptrint)sizeof(z_AccessLibrary_I_KeyIndexType), xSyntype,
  &xSrtR_SDL_Integer, &xSrtR_SDL_Natural, SDL_INTEGER_LIT(1),
  SDL_INTEGER_LIT(4), 0, 0 XSRT_EXTRAS};
#endif

/*-------------------TEST-------------------*/
#ifdef XTESTF
#ifndef XNOPROTO
xbool yTest_z_AccessLibrary_I_KeyIndexType(void * yExpr)
#else
xbool yTest_z_AccessLibrary_I_KeyIndexType(yExpr)
  void * yExpr;
#endif
{
  if (xLE_SDL_Integer(SDL_INTEGER_LIT(1),
    *(z_AccessLibrary_I_KeyIndexType *)yExpr))
    if (xLE_SDL_Integer(*(z_AccessLibrary_I_KeyIndexType *)yExpr,
    SDL_INTEGER_LIT(4)))
      return (xbool)1;
  return (xbool)0;
}
#endif

/*-------------------TSTA-------------------*/
#ifdef XERANGE
#ifndef XNOPROTO
z_AccessLibrary_I_KeyIndexType yTstA_z_AccessLibrary_I_KeyIndexType
  (z_AccessLibrary_I_KeyIndexType yExpr)
#else
z_AccessLibrary_I_KeyIndexType yTstA_z_AccessLibrary_I_KeyIndexType(yExpr)
  z_AccessLibrary_I_KeyIndexType yExpr;
#endif
{
  if (! yTest_z_AccessLibrary_I_KeyIndexType((void *)&yExpr) )
    xErrorSubrange(ySrtN_z_AccessLibrary_I_KeyIndexType, xWriteSort(&yExpr,
  ySrtN_z_AccessLibrary_I_KeyIndexType));
  return yExpr;
}
#endif

/*-------------------TSTI-------------------*/
#ifdef XEINDEX
#ifndef XNOPROTO
z_AccessLibrary_I_KeyIndexType yTstI_z_AccessLibrary_I_KeyIndexType
  (z_AccessLibrary_I_KeyIndexType yExpr)
#else
z_AccessLibrary_I_KeyIndexType yTstI_z_AccessLibrary_I_KeyIndexType(yExpr)
  z_AccessLibrary_I_KeyIndexType yExpr;
#endif
{
  if (! yTest_z_AccessLibrary_I_KeyIndexType((void *)&yExpr) ) {
    xErrorIndex(ySrtN_z_AccessLibrary_I_KeyIndexType, xWriteSort(&yExpr,
  ySrtN_z_AccessLibrary_I_KeyIndexType));
    return SDL_INTEGER_LIT(1);
  }
  return yExpr;
}
#endif

/*****
* NEWTYPE KeyArrayType  (BODY section)
* <<PACKAGE AccessLibrary>>
* #SDTREF(SDL,D:\TelelogicTau36\examples\courseenv\simccode\ACCESS\AccessLibrary.sun(Declarations),152(100,50),9,9)
******/
#ifndef XOPTSORT
XCONST struct xSortIdStruct ySrtR_z_AccessLibrary_F_KeyArrayType = {xSortEC
  xSymbTLink((xIdNode)0, (xIdNode)0),
  (xIdNode)&yPacR_z_AccessLibrary__AccessLibrary xIdNames("KeyArrayType")
  XCOMMON_EXTRAS xFreF(0) xAssF(0) xEqF(yEq_z_AccessLibrary_F_KeyArrayType)
  xRaWF(0) xRaWF(0) xTestF(0), (xptrint)sizeof(z_AccessLibrary_F_KeyArrayType),
  xArray, &xSrtR_SDL_Character, &ySrtR_z_AccessLibrary_I_KeyIndexType, 0, 0, 0,
  0 XSRT_EXTRAS};
#endif

/*------------------DEFAULT-----------------*/
#ifndef XNOPROTO
void yDef_z_AccessLibrary_F_KeyArrayType(z_AccessLibrary_F_KeyArrayType *yVar)
#else
void yDef_z_AccessLibrary_F_KeyArrayType(yVar)
  z_AccessLibrary_F_KeyArrayType *yVar;
#endif
{
  int  yIndex;
  for (yIndex = 0; yIndex<=SDL_INTEGER_LIT(4) - SDL_INTEGER_LIT(1); yIndex++)
    xDef_SDL_Character(&((*yVar).A[yIndex]));
}

/*------------------EQUAL-------------------*/
#ifndef XNOPROTO
SDL_Boolean yEq_z_AccessLibrary_F_KeyArrayType(
  z_AccessLibrary_F_KeyArrayType yExpr1,
  z_AccessLibrary_F_KeyArrayType yExpr2)
#else
SDL_Boolean yEq_z_AccessLibrary_F_KeyArrayType(yExpr1, yExpr2)
  z_AccessLibrary_F_KeyArrayType yExpr1, yExpr2;
#endif
{
  int  yIndex;
  for (yIndex = 0; yIndex<=SDL_INTEGER_LIT(4) - SDL_INTEGER_LIT(1); yIndex++)
    if (yNEqF_SDL_Character(yExpr1.A[yIndex], yExpr2.A[yIndex]))
      return SDL_False;
  return SDL_True;
}

/*-------------------MAKE-------------------*/
#ifndef XNOPROTO
z_AccessLibrary_F_KeyArrayType yMake_z_AccessLibrary_F_KeyArrayType(
  SDL_Character yExpr)
#else
z_AccessLibrary_F_KeyArrayType yMake_z_AccessLibrary_F_KeyArrayType(yExpr)
  SDL_Character yExpr;
#endif
{
  int yIndex;
  z_AccessLibrary_F_KeyArrayType yVar;
  yAssF_SDL_Character(yVar.A[0], yExpr, XASS_MR_TMP_NF);
  for (yIndex = 1; yIndex<=SDL_INTEGER_LIT(4) - SDL_INTEGER_LIT(1); yIndex++)
    yAssF_SDL_Character(yVar.A[yIndex], yExpr, XASS_AC_TMP_NF);
  return yVar;
}

/*****
* NEWTYPE ReadResultType  (BODY section)
* <<PACKAGE AccessLibrary>>
* #SDTREF(SDL,D:\TelelogicTau36\examples\courseenv\simccode\ACCESS\AccessLibrary.sun(Declarations),152(100,50),13,9)
******/
#ifndef XOPTSORT
XCONST struct xSortIdStruct ySrtR_z_AccessLibrary_G_ReadResultType = {xSortEC
  xSymbTLink((xIdNode)0, (xIdNode)0),
  (xIdNode)&yPacR_z_AccessLibrary__AccessLibrary xIdNames("ReadResultType")
  XCOMMON_EXTRAS xFreF(0) xAssF(0) xEqF(0) xRaWF(0) xRaWF(0) xTestF(0),
  (xptrint)sizeof(z_AccessLibrary_G_ReadResultType), xEnum, (xSortIdNode)0,
  (xSortIdNode)0, 0, 0, 0, 0 XSRT_EXTRAS};
#endif
#ifndef XOPTLIT
/*-----------------LITERALS-----------------*/