u2ctypes.c

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

extern int yRead_z_U2ctypes_6_short_int(
  void  * Result)
{
  z_U2ctypes_6_short_int temp;
  xxToken    Token;
  int        Negative;

  Token = xPromptQuestionMark(" (short_int) : ",
     " (short_int) : ", yCTemp_short_int);

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

extern char *yWri_z_U2ctypes_6_short_int(
  void  * C)
{
  sprintf(yCTemp_short_int, "%hd", *(z_U2ctypes_6_short_int *)C);
  return yCTemp_short_int;
}
#endif


/*****
* SYNTYPE unsigned_short_int  (BODY section)
* <<PACKAGE U2ctypes>>
* #SDTREF(TEXT,"C:\\Program\\Telelogic\\Tau 2.2\\bin\\..\\addins\\sdlkernels\\ADT\\BasicCTypes.pr",251,9)
******/
tSDLFuncInfo ySDLOp_z_U2ctypes_7_unsigned_short_int = {0, 0, 0
  xRaWF(yWri_z_U2ctypes_7_unsigned_short_int)
  xRaWF(yRead_z_U2ctypes_7_unsigned_short_int)};
tSDLTypeInfo ySDL_z_U2ctypes_7_unsigned_short_int = {type_SDL_UnsignedShortInt,
  0, (xptrint)sizeof(z_U2ctypes_7_unsigned_short_int)
  T_SDL_OPFUNCS(&ySDLOp_z_U2ctypes_7_unsigned_short_int) T_SDL_EXTRA_VALUE
  T_SDL_Names("unsigned_short_int") xRaWF((xIdNode)&yPacR_z_U2ctypes__U2ctypes)
  xRaWF(&ySrtR_z_U2ctypes_7_unsigned_short_int)};
#ifndef XOPTSORT
XCONST struct xSortIdStruct ySrtR_z_U2ctypes_7_unsigned_short_int = {xSortEC ,
  (xIdNode)0, (xIdNode)0, (xIdNode)&yPacR_z_U2ctypes__U2ctypes,
  "unsigned_short_int" xIdNumber(0) XCOMMON_EXTRAS xFreF(0) xAssF(0) xEqF(0)
  xTestF(0), (xptrint)sizeof(z_U2ctypes_7_unsigned_short_int), xUserdef,
  (xSortIdNode)0, (xSortIdNode)0, 0, 0, 0, 0
  xRaWF((tSDLTypeInfo *)&ySDL_z_U2ctypes_7_unsigned_short_int) XSRT_EXTRAS};
#endif

void * yMkAddr_z_U2ctypes_7_unsigned_short_int (z_U2ctypes_7_unsigned_short_int yMkValue, z_U2ctypes_7_unsigned_short_int * yMkResult)
{
  *yMkResult = yMkValue;
  return (void *)yMkResult;
}
                /* #SDTREF(TEXT,"C:\\Program\\Telelogic\\Tau 2.2\\bin\\..\\addins\\sdlkernels\\ADT\\BasicCTypes.pr",251,30) */
#ifdef XREADANDWRITEF
static char yCTemp_unsigned_short_int[50];
extern int yRead_z_U2ctypes_7_unsigned_short_int(
  void  * Result)
{
  z_U2ctypes_7_unsigned_short_int temp;
  xxToken Token;

  Token = xPromptQuestionMark(" (unsigned_short_int) : ",
     " (unsigned_short_int) : ", yCTemp_unsigned_short_int);

  if (Token == xxPlus) Token = xScanToken(yCTemp_unsigned_short_int);
  if (Token == xxId && sscanf(yCTemp_unsigned_short_int, "%hu", &temp) >= 1) {
    *(z_U2ctypes_7_unsigned_short_int *)Result = temp;
    return 1;
  }
  xPrintString("Illegal unsigned_short_int value\n");
  return 0;
}

extern char *yWri_z_U2ctypes_7_unsigned_short_int(
  void  * C)
{
  sprintf(yCTemp_unsigned_short_int, "%hu", *(z_U2ctypes_7_unsigned_short_int *)C);
  return yCTemp_unsigned_short_int;
}
#endif


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

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

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

/*****
* SYNTYPE float  (BODY section)
* <<PACKAGE U2ctypes>>
* #SDTREF(TEXT,"C:\\Program\\Telelogic\\Tau 2.2\\bin\\..\\addins\\sdlkernels\\ADT\\BasicCTypes.pr",318,9)
******/
tSDLFuncInfo ySDLOp_z_U2ctypes_B_float = {0, 0, 0
  xRaWF(yWri_z_U2ctypes_B_float) xRaWF(yRead_z_U2ctypes_B_float)};
tSDLTypeInfo ySDL_z_U2ctypes_B_float = {type_SDL_Float, 0,
  (xptrint)sizeof(z_U2ctypes_B_float) T_SDL_OPFUNCS(&ySDLOp_z_U2ctypes_B_float)
  T_SDL_EXTRA_VALUE T_SDL_Names("float")
  xRaWF((xIdNode)&yPacR_z_U2ctypes__U2ctypes) xRaWF(&ySrtR_z_U2ctypes_B_float)};
#ifndef XOPTSORT
XCONST struct xSortIdStruct ySrtR_z_U2ctypes_B_float = {xSortEC , (xIdNode)0,
  (xIdNode)0, (xIdNode)&yPacR_z_U2ctypes__U2ctypes, "float" xIdNumber(0)
  XCOMMON_EXTRAS xFreF(0) xAssF(0) xEqF(0) xTestF(0),
  (xptrint)sizeof(z_U2ctypes_B_float), xUserdef, (xSortIdNode)0,
  (xSortIdNode)0, 0, 0, 0, 0 xRaWF((tSDLTypeInfo *)&ySDL_z_U2ctypes_B_float)
  XSRT_EXTRAS};
#endif

void * yMkAddr_z_U2ctypes_B_float (z_U2ctypes_B_float yMkValue, z_U2ctypes_B_float * yMkResult)
{
  *yMkResult = yMkValue;
  return (void *)yMkResult;
}
                /* #SDTREF(TEXT,"C:\\Program\\Telelogic\\Tau 2.2\\bin\\..\\addins\\sdlkernels\\ADT\\BasicCTypes.pr",318,17) */
#ifdef XREADANDWRITEF
#ifndef XNOUSEOFREAL
extern int yRead_z_U2ctypes_B_float(
  void  * Result)
{
  SDL_Real  r;

  if (xGenericReadSort((void *)&r, (tSDLTypeInfo *)&ySDL_SDL_Real)) {
    *(z_U2ctypes_B_float *)Result = (z_U2ctypes_B_float)r;
    return 1;
  }
  return 0;
}

extern char *yWri_z_U2ctypes_B_float(
  void  * C)
{
  static WriteBuf *buf = 0;
  SDL_Real r;

  r = (SDL_Real)*(z_U2ctypes_B_float *)C;
  if (!buf)
    buf = WriteBuf_New(14);
  else
    WriteBuf_Clear(buf);
  xGenericWriteSort(buf, (void *)&r, (tSDLTypeInfo *)&ySDL_SDL_Real);
  return WriteBuf_Data(buf);
}
#endif
#endif


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

/*************************************************************************
**                       SECTION Initialization                         **
*************************************************************************/
extern void yInit_U2ctypes (void)
{
  static int IsCalled = 0;
  int  Temp;
  YINIT_TEMP_VARS
  if (IsCalled) return;
  IsCalled = 1;
  xInsertIdNode((xIdNode)&yPacR_z_U2ctypes__U2ctypes);
#ifndef XOPTSORT
  xInsertIdNode((xIdNode)&ySrtR_z_U2ctypes_2_int);
#endif
#ifndef XOPTSORT
  xInsertIdNode((xIdNode)&ySrtR_z_U2ctypes_3_unsigned_int);
#endif
#ifndef XOPTSORT
  xInsertIdNode((xIdNode)&ySrtR_z_U2ctypes_4_long_int);
#endif
#ifndef XOPTSORT
  xInsertIdNode((xIdNode)&ySrtR_z_U2ctypes_5_unsigned_long_int);
#endif
#ifndef XOPTSORT
  xInsertIdNode((xIdNode)&ySrtR_z_U2ctypes_6_short_int);
#endif
#ifndef XOPTSORT
  xInsertIdNode((xIdNode)&ySrtR_z_U2ctypes_7_unsigned_short_int);
#endif
#ifndef XOPTSORT
  xInsertIdNode((xIdNode)&ySrtR_z_U2ctypes_8_char);
#endif
#ifndef XOPTSORT
  xInsertIdNode((xIdNode)&ySrtR_z_U2ctypes_9_signed_char);
#endif
#ifndef XOPTSORT
  xInsertIdNode((xIdNode)&ySrtR_z_U2ctypes_A_unsigned_char);
#endif
#ifndef XOPTSORT
  xInsertIdNode((xIdNode)&ySrtR_z_U2ctypes_B_float);
#endif
#ifndef XOPTSORT
  xInsertIdNode((xIdNode)&ySrtR_z_U2ctypes_C_double);
#endif
}