wtpprvdr.c

是一个手机功能的模拟程序

* PROCESS TransactionManager
* <<SYSTEM WAP/BLOCK WTPProvider/SUBSTRUCTURE WTPProvider/BLOCK WTP>>
* #SDTREF(SDL,D:\WIP\Maintenance\4.x\System\SystemConfigurations\base_co\sdl\wtp\transactionmanager.spr,1,1)
******/

/*++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
** Tables for process TransactionManager
** #SDTREF(SDL,D:\WIP\Maintenance\4.x\System\SystemConfigurations\base_co\sdl\wtp\transactionmanager.spr,1,1)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++*/

/*--------------Instance Data---------------*/
#define X_MAX_INST_z3008_TransactionManager 1
static yVDef_z3008_TransactionManager *yINSTD_z3008_TransactionManager[X_MAX_INST_z3008_TransactionManager];

/*--------------Process State---------------*/
static xSTATE yPSTATETBL_z3008_TransactionManager[X_MAX_INST_z3008_TransactionManager] = {
  XSTARTUP
};

/*---------------State Index----------------*/
static XCONST xSITBL xSTATE_INDEX_z3008_TransactionManager[3] = {0, 2, 13};

/*---------------Transition-----------------*/
#define XMAX_TRANS_z3008_TransactionManager 13
static XCONST xTR_TABLE_ENTRY yTRTBL_z3008_TransactionManager[XMAX_TRANS_z3008_TransactionManager] = {

    /* AwaitStart */
  XMK_B z30J_StartUp, 1 XMK_E,
  XMK_B z30K_Terminate, 12 XMK_E

    /* IDLE */,
  XMK_B z30081D_Suspend, 10 XMK_E,
  XMK_B z30K_Terminate, 12 XMK_E,
  XMK_B z_WTPpckg_D_WTPWaitTimeout, 9 XMK_E,
  XMK_B z_Global_Declarations_0_ClosePort, 11 XMK_E,
  XMK_B z_WSPConnectionMode_WTP_0_TRInvokeReq, 2 XMK_E,
  XMK_B z_WSPConnectionMode_WTP_1_TRResultRes, 6 XMK_E,
  XMK_B z_WSPConnectionMode_WTP_2_TRAbortReq, 8 XMK_E,
  XMK_B z_WSPConnectionMode_WTP_3_TRInvokeRes, 7 XMK_E,
  XMK_B z_WSPConnectionMode_WTP_4_TRAckReq, 3 XMK_E,
  XMK_B z_WDP_UpperLayer_2_TDUnitDataInd, 4 XMK_E,
  XMK_B z_WTPpckg_B_Done, 5 XMK_E
};

/*-----------Process-PID-Values-------------*/
#ifdef XMK_USE_PID_ADDRESSING
static xPIDTable yPID_TBL_z3008_TransactionManager[X_MAX_INST_z3008_TransactionManager];
#endif

/*-----------Process Description------------*/
#define X_PRIO_z3008_TransactionManager  xDefaultPrioProcess
XCONST XPDTBL yPDTBL_z3008_TransactionManager = {
#ifdef XMK_USE_PID_ADDRESSING
  yPID_TBL_z3008_TransactionManager,
#endif
  (xINSTD *)yINSTD_z3008_TransactionManager,
  sizeof(yVDef_z3008_TransactionManager),
  X_MAX_INST_z3008_TransactionManager,
#ifdef XMK_USE_TIMESLICE
  X_TIMESLICE_z3008_TransactionManager,
#endif
#ifdef XMK_USE_PREEMPTIVE
  X_PRIO_z3008_TransactionManager,
#endif
  (xmk_T_TRANS_ADDRESS) yPAD_z3008_TransactionManager,
  yTRTBL_z3008_TransactionManager,
  xSTATE_INDEX_z3008_TransactionManager,
  yPSTATETBL_z3008_TransactionManager
};

/*+++++
* Function for process TransactionManager
* #SDTREF(SDL,D:\WIP\Maintenance\4.x\System\SystemConfigurations\base_co\sdl\wtp\transactionmanager.spr,1,1)
++++++*/
YPAD_FUNCTION(yPAD_z3008_TransactionManager)
{
  YPAD_YSVARP
  YPAD_YVARP(yVDef_z3008_TransactionManager)
  YPAD_TEMP_VARS
  SDL_Integer  yDcn_SDL_Integer;
  /* INTEGRATION: commented out statement */
  /* SDL_Boolean  yDcn_SDL_Boolean; */
  /* INTEGRATION: commented out statement */
  /* SDL_PId  yDcn_SDL_PId; */
  YPRSNAME_VAR("TransactionManager")

  BEGIN_PAD
  switch (XSYMBOLNUMBER) {

/*-----
* START
* #SDTREF(SDL,D:\WIP\Maintenance\4.x\System\SystemConfigurations\base_co\sdl\wtp\transactionmanager.spr(Startup),3059(55,30),1)
------*/
  case 0:
    BEGIN_START_TRANSITION
    XAT_FIRST_SYMBOL(0, 4723)
    yDef_TransactionType(&yVarP->z30081H_tr);
    yDef_z_ctypes_4_VoidStar(&yVarP->z30081I_transTbl);
    yDef_z_ctypes_4_VoidStar(&yVarP->z30081J_waitTbl);
    yDef_z_ctypes_4_VoidStar(&yVarP->z30081K_iniCache);
    yDef_z_ctypes_4_VoidStar(&yVarP->z30081L_resCache);
    xDef_SDL_Natural(&yVarP->z30081M_tid);
    xDef_SDL_Natural(&yVarP->z30081N_lastTID);
    xDef_SDL_Boolean(&yVarP->z30081O_newTID);
    xDef_SDL_Natural(&yVarP->z30081P_rcvTID);
    xDef_SDL_Integer(&yVarP->z30081Q_handle);
    xDef_SDL_Natural(&yVarP->z30081R_class);
    xDef_SDL_Natural(&yVarP->z30081S_PDUtype);
    xDef_SDL_Natural(&yVarP->z30081T_direction);
    xDef_SDL_Natural(&yVarP->z30081U_lastSeqnum);
    xDef_SDL_Boolean(&yVarP->z30081V_suspended);
    xDef_SDL_PId(&yVarP->z30081W_suspendPID);
    xDef_SDL_Natural(&yVarP->z30081X_pathfinder);
    xDef_SDL_Natural(&yVarP->z30081Y_closePortNo);
    xDef_SDL_Boolean(&yVarP->z30081Z_sendClosePort);
    xDef_SDL_Natural(&yVarP->z300820_abortCode);
    xDef_SDL_Boolean(&yVarP->z300821_doWaitTimeout);
    xDef_SDL_Duration(&yVarP->z300822_waitTime);
    xDef_SDL_PId(&yVarP->z300823_pid);
    xDef_SDL_PId(&yVarP->z300824_tmpPId);
    xDef_SDL_Natural(&yVarP->z300825_noIniTrans);
    xDef_SDL_Natural(&yVarP->z300826_noResTrans);
    yDef_TRInvokeReqType(&yVarP->z300827_TRInvokeReqData);
    yDef_TDUnitdataIndType(&yVarP->z300828_TDUnitDataIndData);
    xDef_SDL_Boolean(&yVarP->z300829_dum);
    yDef_pdubuf_ptr(&yVarP->z30082A_allPDU);
    yDef_pdubuf_ptr(&yVarP->z30082B_abortPDU);
    yDef_pdubuf_ptr(&yVarP->z30082C_tempPDU);
    yDef_pdubuf_ptr(&yVarP->z30082D_exitInfo);
    XBETWEEN_SYMBOLS(13, 4736, 1020)

/*-----
* NEXTSTATE AwaitStart
* #SDTREF(SDL,D:\WIP\Maintenance\4.x\System\SystemConfigurations\base_co\sdl\wtp\transactionmanager.spr(Startup),3062(55,45),1)
------*/
    XAT_LAST_SYMBOL
    SDL_NEXTSTATE(AwaitStart, z30081E_AwaitStart, "AwaitStart")

/*-----
* INPUT StartUp
* #SDTREF(SDL,D:\WIP\Maintenance\4.x\System\SystemConfigurations\base_co\sdl\wtp\transactionmanager.spr(Startup),3068(55,60),1)
------*/
  case 1:
    XDEBUG_LABEL(AwaitStart_StartUp)
    XAT_FIRST_SYMBOL(1, 4724)
    XOS_TRACE_INPUT("StartUp")
    XBETWEEN_SYMBOLS(14, 4737, 1037)
    {

/*-----
* ASSIGNMENT transTbl := ...
* #SDTREF(SDL,D:\WIP\Maintenance\4.x\System\SystemConfigurations\base_co\sdl\wtp\transactionmanager.spr(Startup),11285(55,75),1)
------*/
      yAssF_z_ctypes_4_VoidStar(yVarP->z30081I_transTbl, ttbl_init(), XASS);
#ifdef XTRACE
      xTraceAssign("transTbl := ");
#endif
      XBETWEEN_STMTS(15, 4738, 1048)

/*-----
* ASSIGNMENT waitTbl := ...
* #SDTREF(SDL,D:\WIP\Maintenance\4.x\System\SystemConfigurations\base_co\sdl\wtp\transactionmanager.spr(Startup),11285(55,75),2)
------*/
      yAssF_z_ctypes_4_VoidStar(yVarP->z30081J_waitTbl, ttbl_init(), XASS);
#ifdef XTRACE
      xTraceAssign("waitTbl := ");
#endif
      XBETWEEN_STMTS(16, 4739, 1058)

/*-----
* CALL port_table_init
* #SDTREF(SDL,D:\WIP\Maintenance\4.x\System\SystemConfigurations\base_co\sdl\wtp\transactionmanager.spr(Startup),11285(55,75),3)
------*/
#ifdef XTRACE
      xTraceAlg("CALL EXTERNAL PROCEDURE port_table_init");
#endif
#ifdef XMSCE
      xMSCETask("CALL EXTERNAL port_table_init");
#endif
      port_table_init();
    }
    XBETWEEN_SYMBOLS(17, 4740, 1072)
    {

/*-----
* ASSIGNMENT iniCache := ...
* #SDTREF(SDL,D:\WIP\Maintenance\4.x\System\SystemConfigurations\base_co\sdl\wtp\transactionmanager.spr(Startup),11396(55,90),1)
------*/
      yAssF_z_ctypes_4_VoidStar(yVarP->z30081K_iniCache, tidcache_init(), XASS);
#ifdef XTRACE
      xTraceAssign("iniCache := ");
#endif
      XBETWEEN_STMTS(18, 4741, 1083)

/*-----
* ASSIGNMENT resCache := ...
* #SDTREF(SDL,D:\WIP\Maintenance\4.x\System\SystemConfigurations\base_co\sdl\wtp\transactionmanager.spr(Startup),11396(55,90),2)
------*/
      yAssF_z_ctypes_4_VoidStar(yVarP->z30081L_resCache, tidcache_init(), XASS);
#ifdef XTRACE
      xTraceAssign("resCache := ");
#endif
    }
    XBETWEEN_SYMBOLS(19, 4742, 1094)
    {

/*-----
* CALL tid_init
* #SDTREF(SDL,D:\WIP\Maintenance\4.x\System\SystemConfigurations\base_co\sdl\wtp\transactionmanager.spr(Startup),11402(55,105),1)
------*/
#ifdef XTRACE
      xTraceAlg("CALL EXTERNAL PROCEDURE tid_init");
#endif
#ifdef XMSCE
      xMSCETask("CALL EXTERNAL tid_init");
#endif
      tid_init();
      XBETWEEN_STMTS(20, 4743, 1108)

/*-----
* CALL handle_init
* #SDTREF(SDL,D:\WIP\Maintenance\4.x\System\SystemConfigurations\base_co\sdl\wtp\transactionmanager.spr(Startup),11402(55,105),2)
------*/
#ifdef XTRACE
      xTraceAlg("CALL EXTERNAL PROCEDURE handle_init");
#endif
#ifdef XMSCE
      xMSCETask("CALL EXTERNAL handle_init");
#endif
      handle_init();
    }
    XBETWEEN_SYMBOLS(21, 4744, 1122)

/*-----
* ASSIGNMENT noIniTrans := ...
* #SDTREF(SDL,D:\WIP\Maintenance\4.x\System\SystemConfigurations\base_co\sdl\wtp\transactionmanager.spr(Startup),1052(55,125),1)
------*/
    yAssF_SDL_Natural(yVarP->z300825_noIniTrans,
      yTstA_SDL_Natural(SDL_INTEGER_LIT(0)), XASS);
#ifdef XTRACE
    xTraceAssign("noIniTrans := ");
#endif
    XBETWEEN_STMTS(22, 4745, 1133)

/*-----
* ASSIGNMENT noResTrans := ...
* #SDTREF(SDL,D:\WIP\Maintenance\4.x\System\SystemConfigurations\base_co\sdl\wtp\transactionmanager.spr(Startup),1052(55,125),2)
------*/
    yAssF_SDL_Natural(yVarP->z300826_noResTrans,
      yTstA_SDL_Natural(SDL_INTEGER_LIT(0)), XASS);
#ifdef XTRACE
    xTraceAssign("noResTrans := ");
#endif
    XBETWEEN_STMTS(23, 4746, 1144)

/*-----
* ASSIGNMENT suspended := ...
* #SDTREF(SDL,D:\WIP\Maintenance\4.x\System\SystemConfigurations\base_co\sdl\wtp\transactionmanager.spr(Startup),1052(55,125),3)
------*/
    yAssF_SDL_Boolean(yVarP->z30081V_suspended, SDL_False, XASS);
#ifdef XTRACE
    xTraceAssign("suspended := ");
#endif
    XBETWEEN_STMTS(24, 4747, 1154)

/*-----
* ASSIGNMENT suspendPID := ...
* #SDTREF(SDL,D:\WIP\Maintenance\4.x\System\SystemConfigurations\base_co\sdl\wtp\transactionmanager.spr(Startup),1052(55,125),4)
------*/
    yAssF_SDL_PId(yVarP->z30081W_suspendPID, SDL_NULL, XASS);
#ifdef XTRACE
    xTraceAssign("suspendPID := ");
#endif
    XBETWEEN_SYMBOLS(25, 4748, 1164)

/*-----
* OUTPUT Started
* #SDTREF(SDL,D:\WIP\Maintenance\4.x\System\SystemConfigurations\base_co\sdl\wtp\transactionmanager.spr(Startup),3077(55,140),1)
------*/
    ALLOC_SIGNAL_NPAR(Started, z30H_Started, XSIGNALHEADERTYPE)
    SDL_OUTP_NPAR(xDefaultPrioSignal, Started, z30H_Started,
      TO_PROCESS(MEProcess, z3014_MEProcess), 0, "Started")
    XBETWEEN_SYMBOLS(26, 4749, 1173)

/*-----
* TASK log internal
* #SDTREF(SDL,D:\WIP\Maintenance\4.x\System\SystemConfigurations\base_co\sdl\wtp\transactionmanager.spr(Startup),11804(55,155),1)
------*/
#ifdef XTRACE
    xTraceTask("log internal");
#endif
#ifdef LOG_INTERNAL
  CLNTa_log (0, 0, "WTP-TM: started process\n");
#endif

    XBETWEEN_SYMBOLS(27, 4750, 1186)

/*-----
* NEXTSTATE IDLE
* #SDTREF(SDL,D:\WIP\Maintenance\4.x\System\SystemConfigurations\base_co\sdl\wtp\transactionmanager.spr(Startup),3044(55,170),1)
------*/
    XAT_LAST_SYMBOL
    SDL_NEXTSTATE(IDLE, z30081F_IDLE, "IDLE")