interfaces.c

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

{
  YPRD_TEMP_VARS

/* ----- START ----- */
/* #SDTREF(U2,"u2:F:\UML\LiftManagement20\SystemDesign\LiftManagement.u2#wL2KUVZy-jiLcbOhPEnpl2AE|pos(1,13)") */
  #ifdef XTRACE
    xTraceAlg("OPERATOR START LiftInfo ");
  #endif

/* ----- ASSIGNMENT itself... := ... ----- */
/* #SDTREF(U2,"u2:F:\UML\LiftManagement20\SystemDesign\LiftManagement.u2#CKSbDEcA6SLLWyMWGIccXQXE|pos(1,17)") */
  yAssF_z_Interfaces_O_DirectionKind((*(z_Interfaces_NJ0_itself)).direction,
    z_Interfaces_O1_down, XASS_MR_ASS_FR);
  #ifdef XTRACE
  xTraceAssign("itself... := ", &((*(z_Interfaces_NJ0_itself)).direction),
    (tSDLTypeInfo *)&ySDL_z_Interfaces_O_DirectionKind);
#endif

/* ----- ASSIGNMENT itself... := ... ----- */
/* #SDTREF(U2,"u2:F:\UML\LiftManagement20\SystemDesign\LiftManagement.u2#y70drL9s*pDLPd0Z0VfxshOI|pos(1,17)") */
  yAssF_SDL_Boolean((*(z_Interfaces_NJ0_itself)).isMoving, SDL_False,
    XASS_MR_ASS_FR);
  #ifdef XTRACE
  xTraceAssign("itself... := ", &((*(z_Interfaces_NJ0_itself)).isMoving),
    (tSDLTypeInfo *)&ySDL_SDL_Boolean);
#endif

/* ----- ASSIGNMENT itself... := ... ----- */
/* #SDTREF(U2,"u2:F:\UML\LiftManagement20\SystemDesign\LiftManagement.u2#NUQvcVEFpG5LAmjdVL6sfLaE|pos(1,17)") */
  yAssF_z_Interfaces_P_DoorStatus((*(z_Interfaces_NJ0_itself)).doorStatus,
    z_Interfaces_P1_closed, XASS_MR_ASS_FR);
  #ifdef XTRACE
  xTraceAssign("itself... := ", &((*(z_Interfaces_NJ0_itself)).doorStatus),
    (tSDLTypeInfo *)&ySDL_z_Interfaces_P_DoorStatus);
#endif

/* ----- ASSIGNMENT itself... := ... ----- */
/* #SDTREF(U2,"u2:F:\UML\LiftManagement20\SystemDesign\LiftManagement.u2#H54A2EEw-NELb*P9wIOuoaQI|pos(1,17)") */
  yAssF_SDL_Integer((*(z_Interfaces_NJ0_itself)).currentFloor, 0,
    XASS_MR_ASS_FR);
  #ifdef XTRACE
  xTraceAssign("itself... := ", &((*(z_Interfaces_NJ0_itself)).currentFloor),
    (tSDLTypeInfo *)&ySDL_SDL_Integer);
#endif

/* ----- RETURN ----- */
/* #SDTREF(U2,"u2:F:\UML\LiftManagement20\SystemDesign\LiftManagement.u2#6pYdUIGfoOVLJ0qkCIoPbhRI|pos(1,17)") */
  #ifdef XTRACE
    xTraceAlg("OPERATOR RETURN LiftInfo");
  #endif
  return;
}

/*****
* OPERATOR @NewLiftInfo
* <<PACKAGE Interfaces/TYPE LiftInfo>>
* #SDTREF(U2,"u2:F:\UML\LiftManagement20\SystemDesign\LiftManagement.u2#d*2LVEeiZeVL5j5k8VvvkZfV|pos(1,18)")
******/
#ifdef XCOVERAGE
long int yPrdC_z_Interfaces_NK_NewLiftInfo[ySym_z_Interfaces_NK_NewLiftInfo+1];
#endif
static XCONST XSIGTYPE yPrdS_z_Interfaces_NK_NewLiftInfo[] = {(XSIGTYPE)0};
static XCONST xStateIdNode yPrdT_z_Interfaces_NK_NewLiftInfo[] =
  {&xStartStateIdRec};
static xPrdNode yPrdA_z_Interfaces_NK_NewLiftInfo = (xPrdNode)0;
XCONST struct xPrdIdStruct yPrdR_z_Interfaces_NK_NewLiftInfo = {xOperatorEC ,
  (xIdNode)0, (xIdNode)0, (xIdNode)&yPacR_z_Interfaces__Interfaces,
  "@NewLiftInfo" xIdNumber(0) XCOMMON_EXTRAS,
  yPrdT_z_Interfaces_NK_NewLiftInfo, yPrdS_z_Interfaces_NK_NewLiftInfo,
  z_Interfaces_NK_NewLiftInfo, yFree_z_Interfaces_NK_NewLiftInfo,
  (xptrint)sizeof(yVDef_z_Interfaces_NK_NewLiftInfo),
  &yPrdA_z_Interfaces_NK_NewLiftInfo xBreakB(yRef_z_Interfaces_NK_NewLiftInfo)
  xBreakB(ySym_z_Interfaces_NK_NewLiftInfo) xBreakB(0)
  xCoverage(yPrdC_z_Interfaces_NK_NewLiftInfo), (xPrdIdNode)0, (xPrdIdNode *)0
  XPRD_EXTRAS};
void yFree_z_Interfaces_NK_NewLiftInfo(void *yVarP)
{
}

/*+++++
* GR ref function for operator @NewLiftInfo
* #SDTREF(U2,"u2:F:\UML\LiftManagement20\SystemDesign\LiftManagement.u2#LSer8Vy-tteLDQKbuVn9thUL|pos(1,13)")
++++++*/
#ifdef XBREAKBEFORE
char * yRef_z_Interfaces_NK_NewLiftInfo (int SymbolNo, xSymbolType *SymbolType)
{
  switch (SymbolNo) {
    case 0: *SymbolType = xsStart;
      return "#SDTREF(U2,\"u2:F:\\UML\\LiftManagement20\\SystemDesign\\LiftManagement.u2#LSer8Vy-tteLDQKbuVn9thUL|pos(1,13)\")";
    case 1: *SymbolType = xsAssignmentStatement;
      return "#SDTREF(U2,\"u2:F:\\UML\\LiftManagement20\\SystemDesign\\LiftManagement.u2#T9jcpIEML0VLElxkhIuynM6L|pos(1,22)\")";
    case 2: *SymbolType = xsAssignmentStatement;
      return "#SDTREF(U2,\"u2:F:\\UML\\LiftManagement20\\SystemDesign\\LiftManagement.u2#yXjudVuBlDlLiDXj3Ez6Gc3V|pos(1,22)\")";
    case 3: *SymbolType = xsReturn;
      return "#SDTREF(U2,\"u2:F:\\UML\\LiftManagement20\\SystemDesign\\LiftManagement.u2#b4JbtVdTKueLDsbdALbL16TL|pos(1,17)\")";
    default : *SymbolType = xsNoSuchSymbolType; return "";
  }
}
#endif

/*+++++
* Function for procedure @NewLiftInfo
* #SDTREF(U2,"u2:F:\UML\LiftManagement20\SystemDesign\LiftManagement.u2#LSer8Vy-tteLDQKbuVn9thUL|pos(1,13)")
++++++*/
YPRD_FUNCTION(z_Interfaces_NK_NewLiftInfo)
{
  YPAD_YSVARP
  YGLOBALPRD_YVARP
  yVDef_z_Interfaces_NK_NewLiftInfo * yPrdVarP;
  YPRD_TEMP_VARS
  YPRDNAME_VAR("@NewLiftInfo")
#ifndef XNOUSEOFSERVICE
  if (yVarP->ActiveSrv != (xSrvNode)0)
    yPrdVarP = (yVDef_z_Interfaces_NK_NewLiftInfo *)yVarP->ActiveSrv->ActivePrd;
  else
#endif
    yPrdVarP = (yVDef_z_Interfaces_NK_NewLiftInfo *)yVarP->ActivePrd;

  LOOP_LABEL_PRD_NOSTATE
  switch (yPrdVarP->RestartAddress) {

/* ----- START ----- */
/* #SDTREF(U2,"u2:F:\UML\LiftManagement20\SystemDesign\LiftManagement.u2#LSer8Vy-tteLDQKbuVn9thUL|pos(1,13)") */
  case 0:
    XAT_FIRST_SYMBOL(0)
    yAssF_z_Interfaces_T_ptr_LiftInfo(*yPrdVarP->z_Interfaces_NK0_result,
      z_Interfaces_T0_Null(), XASS_MR_ASS_NF);
    XBETWEEN_SYMBOLS_PRD(1, 394)

/* ----- ASSIGNMENT result := ... ----- */
/* #SDTREF(U2,"u2:F:\UML\LiftManagement20\SystemDesign\LiftManagement.u2#T9jcpIEML0VLElxkhIuynM6L|pos(1,22)") */
#ifdef XCASELABELS
  case 1:
#endif
    yAssF_z_Interfaces_T_ptr_LiftInfo((*(yPrdVarP->z_Interfaces_NK0_result)),
      z_Interfaces_T1_Alloc(), XASS_MR_ASS_FR);
    #ifdef XTRACE
    xTraceAssign("result := ", &((*(yPrdVarP->z_Interfaces_NK0_result))),
      (tSDLTypeInfo *)&ySDL_z_Interfaces_T_ptr_LiftInfo);
  #endif
#ifdef XMSCE
  xMSCEAssign(VarP, "result := ", &((*(yPrdVarP->z_Interfaces_NK0_result))),
    (tSDLTypeInfo *)&ySDL_z_Interfaces_T_ptr_LiftInfo);
#endif
    XBETWEEN_SYMBOLS_PRD(2, 411)

/* ----- ASSIGNMENT LiftInfo := ... ----- */
/* #SDTREF(U2,"u2:F:\UML\LiftManagement20\SystemDesign\LiftManagement.u2#yXjudVuBlDlLiDXj3Ez6Gc3V|pos(1,22)") */
#ifdef XCASELABELS
  case 2:
#endif
    XCHECK_REF((*(yPrdVarP->z_Interfaces_NK0_result)),
      &ySDL_z_Interfaces_T_ptr_LiftInfo, z_Interfaces_T_ptr_LiftInfo)
    z_Interfaces_NJ_LiftInfo(&((*((*(yPrdVarP->z_Interfaces_NK0_result))))));
    XBETWEEN_SYMBOLS_PRD(3, 421)

/* ----- RETURN ----- */
/* #SDTREF(U2,"u2:F:\UML\LiftManagement20\SystemDesign\LiftManagement.u2#b4JbtVdTKueLDsbdALbL16TL|pos(1,17)") */
#ifdef XCASELABELS
  case 3:
#endif
    SDL_RETURN
  }
  XEND_PRD
}

/*****
* FPAR result
* <<PACKAGE Interfaces/TYPE LiftInfo/OPERATOR @NewLiftInfo>>
* #SDTREF(U2,"u2:F:\UML\LiftManagement20\SystemDesign\LiftManagement.u2#jOPZqV0W6MILYBA7FVX-ZELE|pos(1,9)")
******/
#ifndef XOPTFPAR
XCONST struct xVarIdStruct yVarR_z_Interfaces_NK0_result = {xFormalParEC ,
  (xIdNode)0, (xIdNode)0, (xIdNode)&yPrdR_z_Interfaces_NK_NewLiftInfo,
  "result" xIdNumber(0) XCOMMON_EXTRAS, &ySrtR_z_Interfaces_T_ptr_LiftInfo,
  (tSDLTypeInfo *)&ySDL_z_Interfaces_T_ptr_LiftInfo,
  xOffsetOf(yVDef_z_Interfaces_NK_NewLiftInfo, z_Interfaces_NK0_result),
  (xptrint)0, 5 XVAR_EXTRAS};
#endif

/*****
* NEWTYPE DirectionKind  (BODY section)
* <<PACKAGE Interfaces>>
* #SDTREF(U2,"u2:F:\UML\LiftManagement20\SystemDesign\LiftManagement.u2#SYr87V03pvILCOkZSIpjEOAE|pos(1,13)")
******/
#ifdef XREADANDWRITEF
tSDLEnumLiteralInfo fSDL_z_Interfaces_O_DirectionKind[] = {
     {(int)z_Interfaces_O0_up, "up"}, {(int)z_Interfaces_O1_down, "down"} };
#endif
tSDLEnumInfo ySDL_z_Interfaces_O_DirectionKind = {type_SDL_Enum, 0,
  (xptrint)sizeof(z_Interfaces_O_DirectionKind) T_SDL_OPFUNCS(0)
  T_SDL_EXTRA_VALUE T_SDL_Names("DirectionKind")
  xRaWF((xIdNode)&yPacR_z_Interfaces__Interfaces)
  xRaWF(&ySrtR_z_Interfaces_O_DirectionKind), 0 xRaWF(2)
  xRaWF(fSDL_z_Interfaces_O_DirectionKind)};
#ifndef XOPTSORT
XCONST struct xSortIdStruct ySrtR_z_Interfaces_O_DirectionKind = {xSortEC ,
  (xIdNode)0, (xIdNode)0, (xIdNode)&yPacR_z_Interfaces__Interfaces,
  "DirectionKind" xIdNumber(0) XCOMMON_EXTRAS xFreF(0) xAssF(0) xEqF(0)
  xTestF(0), (xptrint)sizeof(z_Interfaces_O_DirectionKind), xEnum,
  (xSortIdNode)0, (xSortIdNode)0, 0, 0, 0, 0
  xRaWF((tSDLTypeInfo *)&ySDL_z_Interfaces_O_DirectionKind) XSRT_EXTRAS};
#endif
#ifndef XOPTLIT
/*-----------------LITERALS-----------------*/
static XCONST struct xLiteralIdStruct yLitR_z_Interfaces_O0_up = {xLiteralEC ,
  (xIdNode)0, (xIdNode)0, (xIdNode)&ySrtR_z_Interfaces_O_DirectionKind,
  "up" xIdNumber(0) XCOMMON_EXTRAS, (int)z_Interfaces_O0_up XLIT_EXTRAS};
static XCONST struct xLiteralIdStruct yLitR_z_Interfaces_O1_down = {xLiteralEC
  , (xIdNode)0, (xIdNode)0, (xIdNode)&ySrtR_z_Interfaces_O_DirectionKind,
  "down" xIdNumber(0) XCOMMON_EXTRAS, (int)z_Interfaces_O1_down XLIT_EXTRAS};
#endif

/*****
* NEWTYPE DoorStatus  (BODY section)
* <<PACKAGE Interfaces>>
* #SDTREF(U2,"u2:F:\UML\LiftManagement20\SystemDesign\LiftManagement.u2#T5RnfL50vNELCOkkgEZtOcEL|pos(1,13)")
******/
#ifdef XREADANDWRITEF
tSDLEnumLiteralInfo fSDL_z_Interfaces_P_DoorStatus[] = {
     {(int)z_Interfaces_P0_open, "open"}, {(int)z_Interfaces_P1_closed,
    "closed"} };
#endif
tSDLEnumInfo ySDL_z_Interfaces_P_DoorStatus = {type_SDL_Enum, 0,
  (xptrint)sizeof(z_Interfaces_P_DoorStatus) T_SDL_OPFUNCS(0) T_SDL_EXTRA_VALUE
  T_SDL_Names("DoorStatus") xRaWF((xIdNode)&yPacR_z_Interfaces__Interfaces)
  xRaWF(&ySrtR_z_Interfaces_P_DoorStatus), 0 xRaWF(2)
  xRaWF(fSDL_z_Interfaces_P_DoorStatus)};
#ifndef XOPTSORT
XCONST struct xSortIdStruct ySrtR_z_Interfaces_P_DoorStatus = {xSortEC ,
  (xIdNode)0, (xIdNode)0, (xIdNode)&yPacR_z_Interfaces__Interfaces,
  "DoorStatus" xIdNumber(0) XCOMMON_EXTRAS xFreF(0) xAssF(0) xEqF(0) xTestF(0),
  (xptrint)sizeof(z_Interfaces_P_DoorStatus), xEnum, (xSortIdNode)0,
  (xSortIdNode)0, 0, 0, 0, 0
  xRaWF((tSDLTypeInfo *)&ySDL_z_Interfaces_P_DoorStatus) XSRT_EXTRAS};
#endif
#ifndef XOPTLIT
/*-----------------LITERALS-----------------*/
static XCONST struct xLiteralIdStruct yLitR_z_Interfaces_P0_open = {xLiteralEC
  , (xIdNode)0, (xIdNode)0, (xIdNode)&ySrtR_z_Interfaces_P_DoorStatus,
  "open" xIdNumber(0) XCOMMON_EXTRAS, (int)z_Interfaces_P0_open XLIT_EXTRAS};
static XCONST struct xLiteralIdStruct yLitR_z_Interfaces_P1_closed =
  {xLiteralEC , (xIdNode)0, (xIdNode)0,
  (xIdNode)&ySrtR_z_Interfaces_P_DoorStatus, "closed" xIdNumber(0)
  XCOMMON_EXTRAS, (int)z_Interfaces_P1_closed XLIT_EXTRAS};
#endif

/*****
* SYNTYPE ServiceTime  (BODY section)
* <<PACKAGE Interfaces>>
* #SDTREF(U2,"u2:F:\UML\LiftManagement20\SystemDesign\LiftManagement.u2#Ga4IhVn-zsVLrTmatLJPeoJE|pos(1,13)")
******/
tSDLGenInfo ySDL_z_Interfaces_V_ServiceTime = {type_SDL_Syntype, 0,
  (xptrint)sizeof(z_Interfaces_V_ServiceTime) T_SDL_OPFUNCS(0)
  T_SDL_EXTRA_VALUE T_SDL_Names("ServiceTime")
  xRaWF((xIdNode)&yPacR_z_Interfaces__Interfaces)
  xRaWF(&ySrtR_z_Interfaces_V_ServiceTime), (tSDLTypeInfo *)&ySDL_SDL_Integer};
#ifndef XOPTSORT
XCONST struct xSortIdStruct ySrtR_z_Interfaces_V_ServiceTime = {xSortEC ,
  (xIdNode)0, (xIdNode)0, (xIdNode)&yPacR_z_Interfaces__Interfaces,
  "ServiceTime" xIdNumber(0) XCOMMON_EXTRAS xFreF(0) xAssF(0) xEqF(0)
  xTestF(yTest_z_Interfaces_V_ServiceTime),
  (xptrint)sizeof(z_Interfaces_V_ServiceTime), xSyntype, &xSrtR_SDL_Integer,
  &xSrtR_SDL_Integer, 0, 999, 0, 0
  xRaWF((tSDLTypeInfo *)&ySDL_z_Interfaces_V_ServiceTime) XSRT_EXTRAS};
#endif