u2ctypes.c

UML语言构建的电梯管理系统

/* Program generated by Cbasic 2.2.20  */
#define XSCT_CBASIC

#define C_TRANSLATOR_2_2
#define XENABLE_VERSION_CHECK

#include "scttypes.h"
#include "U2ctypes.h"
#ifdef XINCLUDE_HS_FILE
#include "LiftSystem.hs"
#endif
#ifdef XCTRACE
static char  xFileName[] = "U2ctypes.c";
#endif


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

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

/*****
* PACKAGE U2ctypes
* #SDTREF(TEXT,"C:\\Program\\Telelogic\\Tau 2.2\\bin\\..\\addins\\sdlkernels\\ADT\\u2ctypes.sdl",26,9)
******/
XCONST struct xPackageIdStruct yPacR_z_U2ctypes__U2ctypes = {xPackageEC ,
  (xIdNode)0, (xIdNode)0, (xIdNode)&xSymbolTableIdRec, "U2ctypes" xIdNumber(0)
  XCOMMON_EXTRAS xIdNames(0) XPAC_EXTRAS};

/*****
* GENERATOR CArray  (BODY section)
* <<PACKAGE U2ctypes>>
* #SDTREF(TEXT,"C:\\Program\\Telelogic\\Tau 2.2\\bin\\..\\addins\\sdlkernels\\ADT\\BasicCTypes.pr",380,11)
******/

/*****
* GENERATOR Ref  (BODY section)
* <<PACKAGE U2ctypes>>
* #SDTREF(TEXT,"C:\\Program\\Telelogic\\Tau 2.2\\bin\\..\\addins\\sdlkernels\\ADT\\CPointer.pr",31,11)
******/

/*****
* SYNTYPE int  (BODY section)
* <<PACKAGE U2ctypes>>
* #SDTREF(TEXT,"C:\\Program\\Telelogic\\Tau 2.2\\bin\\..\\addins\\sdlkernels\\ADT\\BasicCTypes.pr",32,9)
******/
tSDLGenInfo ySDL_z_U2ctypes_2_int = {type_SDL_Syntype, 0,
  (xptrint)sizeof(z_U2ctypes_2_int) T_SDL_OPFUNCS(0) T_SDL_EXTRA_VALUE
  T_SDL_Names("int") xRaWF((xIdNode)&yPacR_z_U2ctypes__U2ctypes)
  xRaWF(&ySrtR_z_U2ctypes_2_int), (tSDLTypeInfo *)&ySDL_SDL_Integer};
#ifndef XOPTSORT
XCONST struct xSortIdStruct ySrtR_z_U2ctypes_2_int = {xSortEC , (xIdNode)0,
  (xIdNode)0, (xIdNode)&yPacR_z_U2ctypes__U2ctypes, "int" xIdNumber(0)
  XCOMMON_EXTRAS xFreF(0) xAssF(0) xEqF(0) xTestF(0),
  (xptrint)sizeof(z_U2ctypes_2_int), xSyntype, &xSrtR_SDL_Integer,
  &xSrtR_SDL_Integer, 0, 0, 0, 0 xRaWF((tSDLTypeInfo *)&ySDL_z_U2ctypes_2_int)
  XSRT_EXTRAS};
#endif

/*****
* SYNTYPE unsigned_int  (BODY section)
* <<PACKAGE U2ctypes>>
* #SDTREF(TEXT,"C:\\Program\\Telelogic\\Tau 2.2\\bin\\..\\addins\\sdlkernels\\ADT\\BasicCTypes.pr",40,9)
******/
tSDLFuncInfo ySDLOp_z_U2ctypes_3_unsigned_int = {0, 0, 0
  xRaWF(yWri_z_U2ctypes_3_unsigned_int) xRaWF(yRead_z_U2ctypes_3_unsigned_int)};
tSDLTypeInfo ySDL_z_U2ctypes_3_unsigned_int = {type_SDL_UnsignedInt, 0,
  (xptrint)sizeof(z_U2ctypes_3_unsigned_int)
  T_SDL_OPFUNCS(&ySDLOp_z_U2ctypes_3_unsigned_int) T_SDL_EXTRA_VALUE
  T_SDL_Names("unsigned_int") xRaWF((xIdNode)&yPacR_z_U2ctypes__U2ctypes)
  xRaWF(&ySrtR_z_U2ctypes_3_unsigned_int)};
#ifndef XOPTSORT
XCONST struct xSortIdStruct ySrtR_z_U2ctypes_3_unsigned_int = {xSortEC ,
  (xIdNode)0, (xIdNode)0, (xIdNode)&yPacR_z_U2ctypes__U2ctypes,
  "unsigned_int" xIdNumber(0) XCOMMON_EXTRAS xFreF(0) xAssF(0) xEqF(0)
  xTestF(0), (xptrint)sizeof(z_U2ctypes_3_unsigned_int), xUserdef,
  (xSortIdNode)0, (xSortIdNode)0, 0, 0, 0, 0
  xRaWF((tSDLTypeInfo *)&ySDL_z_U2ctypes_3_unsigned_int) XSRT_EXTRAS};
#endif

void * yMkAddr_z_U2ctypes_3_unsigned_int (z_U2ctypes_3_unsigned_int yMkValue, z_U2ctypes_3_unsigned_int * yMkResult)
{
  *yMkResult = yMkValue;
  return (void *)yMkResult;
}
                /* #SDTREF(TEXT,"C:\\Program\\Telelogic\\Tau 2.2\\bin\\..\\addins\\sdlkernels\\ADT\\BasicCTypes.pr",40,24) */
#ifdef XREADANDWRITEF
static char yCTemp_unsigned_int[50];
extern int yRead_z_U2ctypes_3_unsigned_int(
  void  * Result)
{
  z_U2ctypes_3_unsigned_int temp;
  xxToken Token;

  Token = xPromptQuestionMark(" (unsigned_int) : ",
     " (unsigned_int) : ", yCTemp_unsigned_int);

  if (Token == xxPlus) Token = xScanToken(yCTemp_unsigned_int);
  if (Token == xxId && sscanf(yCTemp_unsigned_int, "%u", &temp) >= 1) {
    *(z_U2ctypes_3_unsigned_int *)Result = temp;
    return 1;
  }
  xPrintString("Illegal unsigned_int value\n");
  return 0;
}

extern char *yWri_z_U2ctypes_3_unsigned_int(
  void  * C)
{
  sprintf(yCTemp_unsigned_int, "%u", *(z_U2ctypes_3_unsigned_int *)C);
  return yCTemp_unsigned_int;
}
#endif


/*****
* SYNTYPE long_int  (BODY section)
* <<PACKAGE U2ctypes>>
* #SDTREF(TEXT,"C:\\Program\\Telelogic\\Tau 2.2\\bin\\..\\addins\\sdlkernels\\ADT\\BasicCTypes.pr",88,9)
******/
tSDLFuncInfo ySDLOp_z_U2ctypes_4_long_int = {0, 0, 0
  xRaWF(yWri_z_U2ctypes_4_long_int) xRaWF(yRead_z_U2ctypes_4_long_int)};
tSDLTypeInfo ySDL_z_U2ctypes_4_long_int = {type_SDL_LongInt, 0,
  (xptrint)sizeof(z_U2ctypes_4_long_int)
  T_SDL_OPFUNCS(&ySDLOp_z_U2ctypes_4_long_int) T_SDL_EXTRA_VALUE
  T_SDL_Names("long_int") xRaWF((xIdNode)&yPacR_z_U2ctypes__U2ctypes)
  xRaWF(&ySrtR_z_U2ctypes_4_long_int)};
#ifndef XOPTSORT
XCONST struct xSortIdStruct ySrtR_z_U2ctypes_4_long_int = {xSortEC ,
  (xIdNode)0, (xIdNode)0, (xIdNode)&yPacR_z_U2ctypes__U2ctypes,
  "long_int" xIdNumber(0) XCOMMON_EXTRAS xFreF(0) xAssF(0) xEqF(0) xTestF(0),
  (xptrint)sizeof(z_U2ctypes_4_long_int), xUserdef, (xSortIdNode)0,
  (xSortIdNode)0, 0, 0, 0, 0 xRaWF((tSDLTypeInfo *)&ySDL_z_U2ctypes_4_long_int)
  XSRT_EXTRAS};
#endif

void * yMkAddr_z_U2ctypes_4_long_int (z_U2ctypes_4_long_int yMkValue, z_U2ctypes_4_long_int * yMkResult)
{
  *yMkResult = yMkValue;
  return (void *)yMkResult;
}
                /* #SDTREF(TEXT,"C:\\Program\\Telelogic\\Tau 2.2\\bin\\..\\addins\\sdlkernels\\ADT\\BasicCTypes.pr",88,20) */
#ifdef XREADANDWRITEF
static char yCTemp_long_int[50];
extern int yRead_z_U2ctypes_4_long_int(
  void  * Result)
{
  z_U2ctypes_4_long_int temp;
  xxToken    Token;
  int        Negative;

  Token = xPromptQuestionMark(" (long_int) : ",
     " (long_int) : ", yCTemp_long_int);

  Negative = 0;
  if (Token == xxPlus)
    Token = xScanToken(yCTemp_long_int);
  else if (Token == xxMinus) {
    Token = xScanToken(yCTemp_long_int);
    Negative = 1;
  }
  if (Token == xxId && sscanf(yCTemp_long_int, "%ld", &temp) >= 1) {
    if (Negative)
      *(z_U2ctypes_4_long_int *)Result = -temp;
    else
      *(z_U2ctypes_4_long_int *)Result = temp;
    return 1;
  }
  xPrintString("Illegal long_int value\n");
  return 0;
}

extern char *yWri_z_U2ctypes_4_long_int(
  void  * C)
{
  sprintf(yCTemp_long_int, "%ld", *(z_U2ctypes_4_long_int *)C);
  return yCTemp_long_int;
}
#endif


/*****
* SYNTYPE unsigned_long_int  (BODY section)
* <<PACKAGE U2ctypes>>
* #SDTREF(TEXT,"C:\\Program\\Telelogic\\Tau 2.2\\bin\\..\\addins\\sdlkernels\\ADT\\BasicCTypes.pr",145,9)
******/
tSDLFuncInfo ySDLOp_z_U2ctypes_5_unsigned_long_int = {0, 0, 0
  xRaWF(yWri_z_U2ctypes_5_unsigned_long_int)
  xRaWF(yRead_z_U2ctypes_5_unsigned_long_int)};
tSDLTypeInfo ySDL_z_U2ctypes_5_unsigned_long_int = {type_SDL_UnsignedLongInt,
  0, (xptrint)sizeof(z_U2ctypes_5_unsigned_long_int)
  T_SDL_OPFUNCS(&ySDLOp_z_U2ctypes_5_unsigned_long_int) T_SDL_EXTRA_VALUE
  T_SDL_Names("unsigned_long_int") xRaWF((xIdNode)&yPacR_z_U2ctypes__U2ctypes)
  xRaWF(&ySrtR_z_U2ctypes_5_unsigned_long_int)};
#ifndef XOPTSORT
XCONST struct xSortIdStruct ySrtR_z_U2ctypes_5_unsigned_long_int = {xSortEC ,
  (xIdNode)0, (xIdNode)0, (xIdNode)&yPacR_z_U2ctypes__U2ctypes,
  "unsigned_long_int" xIdNumber(0) XCOMMON_EXTRAS xFreF(0) xAssF(0) xEqF(0)
  xTestF(0), (xptrint)sizeof(z_U2ctypes_5_unsigned_long_int), xUserdef,
  (xSortIdNode)0, (xSortIdNode)0, 0, 0, 0, 0
  xRaWF((tSDLTypeInfo *)&ySDL_z_U2ctypes_5_unsigned_long_int) XSRT_EXTRAS};
#endif

void * yMkAddr_z_U2ctypes_5_unsigned_long_int (z_U2ctypes_5_unsigned_long_int yMkValue, z_U2ctypes_5_unsigned_long_int * yMkResult)
{
  *yMkResult = yMkValue;
  return (void *)yMkResult;
}
                /* #SDTREF(TEXT,"C:\\Program\\Telelogic\\Tau 2.2\\bin\\..\\addins\\sdlkernels\\ADT\\BasicCTypes.pr",145,29) */
#ifdef XREADANDWRITEF
static char yCTemp_unsigned_long_int[50];
extern int yRead_z_U2ctypes_5_unsigned_long_int(
  void  * Result)
{
  z_U2ctypes_5_unsigned_long_int temp;
  xxToken Token;

  Token = xPromptQuestionMark(" (unsigned_long_int) : ",
     " (unsigned_long_int) : ", yCTemp_unsigned_long_int);

  if (Token == xxPlus) Token = xScanToken(yCTemp_unsigned_long_int);
  if (Token == xxId && sscanf(yCTemp_unsigned_long_int, "%lu", &temp) >= 1) {
    *(z_U2ctypes_5_unsigned_long_int *)Result = temp;
    return 1;
  }
  xPrintString("Illegal unsigned_long_int value\n");
  return 0;
}

extern char *yWri_z_U2ctypes_5_unsigned_long_int(
  void  * C)
{
  sprintf(yCTemp_unsigned_long_int, "%lu", *(z_U2ctypes_5_unsigned_long_int *)C);
  return yCTemp_unsigned_long_int;
}
#endif


/*****
* SYNTYPE short_int  (BODY section)
* <<PACKAGE U2ctypes>>
* #SDTREF(TEXT,"C:\\Program\\Telelogic\\Tau 2.2\\bin\\..\\addins\\sdlkernels\\ADT\\BasicCTypes.pr",194,9)
******/
tSDLFuncInfo ySDLOp_z_U2ctypes_6_short_int = {0, 0, 0
  xRaWF(yWri_z_U2ctypes_6_short_int) xRaWF(yRead_z_U2ctypes_6_short_int)};
tSDLTypeInfo ySDL_z_U2ctypes_6_short_int = {type_SDL_ShortInt, 0,
  (xptrint)sizeof(z_U2ctypes_6_short_int)
  T_SDL_OPFUNCS(&ySDLOp_z_U2ctypes_6_short_int) T_SDL_EXTRA_VALUE
  T_SDL_Names("short_int") xRaWF((xIdNode)&yPacR_z_U2ctypes__U2ctypes)
  xRaWF(&ySrtR_z_U2ctypes_6_short_int)};
#ifndef XOPTSORT
XCONST struct xSortIdStruct ySrtR_z_U2ctypes_6_short_int = {xSortEC ,
  (xIdNode)0, (xIdNode)0, (xIdNode)&yPacR_z_U2ctypes__U2ctypes,
  "short_int" xIdNumber(0) XCOMMON_EXTRAS xFreF(0) xAssF(0) xEqF(0) xTestF(0),
  (xptrint)sizeof(z_U2ctypes_6_short_int), xUserdef, (xSortIdNode)0,
  (xSortIdNode)0, 0, 0, 0, 0
  xRaWF((tSDLTypeInfo *)&ySDL_z_U2ctypes_6_short_int) XSRT_EXTRAS};
#endif

void * yMkAddr_z_U2ctypes_6_short_int (z_U2ctypes_6_short_int yMkValue, z_U2ctypes_6_short_int * yMkResult)
{
  *yMkResult = yMkValue;
  return (void *)yMkResult;
}
                /* #SDTREF(TEXT,"C:\\Program\\Telelogic\\Tau 2.2\\bin\\..\\addins\\sdlkernels\\ADT\\BasicCTypes.pr",194,21) */
#ifdef XREADANDWRITEF
static char yCTemp_short_int[50];