wtpprvdr.c

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

                /* #SDTREF(SDL,D:\WIP\Maintenance\4.x\System\SystemConfigurations\base_co\sdl\wtp\responder.spr(Definitions),3416(65,30),2) */
    DEF_TIMER_VAR(yTim_AckInterval)
} yVDef_z300A_Responder;

/*****
* PROCEDURE SendToRightLayerRES
* <<SYSTEM WAP/BLOCK WTPProvider/SUBSTRUCTURE WTPProvider/BLOCK WTP
*     /PROCESS Responder>>
* #SDTREF(SDL,D:\WIP\Maintenance\4.x\System\SystemConfigurations\base_co\sdl\wtp\SendToRightLayerRES.spd,1,1)
******/
extern void z300A0C_SendToRightLayerRES XPP((AddressType z300A0C0_clientAdd,
    AddressType z300A0C1_serverAdd, SDL_Natural z300A0C2_logNo,
    pdubuf_ptr z300A0C3_pdu, SDL_PId z300A0C4_returnPid,
    SDL_Natural z300A0C5_pathFinder));
#define z300A0D_LISTEN  1
#define z300A0E_TIDOKWAIT  2
#define z300A0F_INVRESPWAIT  3

/*****
* TIMER AckInterval
* <<SYSTEM WAP/BLOCK WTPProvider/SUBSTRUCTURE WTPProvider/BLOCK WTP
*     /PROCESS Responder>>
* #SDTREF(SDL,D:\WIP\Maintenance\4.x\System\SystemConfigurations\base_co\sdl\wtp\responder.spr(Definitions),3416(65,30),2)
******/
#define z300A0H_AckInterval 9

/*****
* PROCESS MEProcess
* <<SYSTEM WAP/BLOCK WTPProvider/SUBSTRUCTURE WTPProvider/BLOCK ManagementEntity>>
* #SDTREF(SDL,D:\WIP\Maintenance\4.x\System\SystemConfigurations\base_co\sdl\wtp\meprocess.spr,4,1)
******/
YPAD_PROTOTYPE(yPAD_z3014_MEProcess)
typedef struct {
    PROCESS_VARS
                /* #SDTREF(SDL,D:\WIP\Maintenance\4.x\System\SystemConfigurations\base_co\sdl\wtp\meprocess.spr(1),143(125,5),2) */
    SDL_Natural  z30144_WTP;
} yVDef_z3014_MEProcess;
#define z30140_WaitForStartWTP  1
#define z30141_WaitForWTPToStart  2
#define z30142_WTPisStarted  3
#define z30143_WaitForWTPtoTerminate  4

/*****
* SIGNAL Started
* <<SYSTEM WAP/BLOCK WTPProvider/SUBSTRUCTURE WTPProvider>>
* #SDTREF(SDL,D:\WIP\Maintenance\4.x\System\SystemConfigurations\base_co\sdl\wtp\WTPProvider.sbk(Interaction),3320(35,90),2)
******/
#define z30H_Started 287

/*****
* SIGNAL Terminated
* <<SYSTEM WAP/BLOCK WTPProvider/SUBSTRUCTURE WTPProvider>>
* #SDTREF(SDL,D:\WIP\Maintenance\4.x\System\SystemConfigurations\base_co\sdl\wtp\WTPProvider.sbk(Interaction),3320(35,90),2)
******/
#define z30I_Terminated 288

/*****
* SIGNAL StartUp
* <<SYSTEM WAP/BLOCK WTPProvider/SUBSTRUCTURE WTPProvider>>
* #SDTREF(SDL,D:\WIP\Maintenance\4.x\System\SystemConfigurations\base_co\sdl\wtp\WTPProvider.sbk(Interaction),3320(35,90),3)
******/
#define z30J_StartUp 289

/*****
* SIGNAL Terminate
* <<SYSTEM WAP/BLOCK WTPProvider/SUBSTRUCTURE WTPProvider>>
* #SDTREF(SDL,D:\WIP\Maintenance\4.x\System\SystemConfigurations\base_co\sdl\wtp\WTPProvider.sbk(Interaction),3320(35,90),3)
******/
#define z30K_Terminate 290

/*************************************************************************
**                #CODE directives, #HEADING sections                   **
*************************************************************************/
                /* #SDTREF(SDL,D:\WIP\Maintenance\4.x\System\SystemConfigurations\base_co\sdl\wtp\transactionmanager.spr(Definitions),11870(140,65),29) */
#include "wtpsuppt.h"

                /* #SDTREF(SDL,D:\WIP\Maintenance\4.x\System\SystemConfigurations\base_co\sdl\wtp\initiator.spr(DataDefinition),14168(75,115),103) */
#include "wtpsuppt.h"
#include "wtpsar.h"

                /* #SDTREF(SDL,D:\WIP\Maintenance\4.x\System\SystemConfigurations\base_co\sdl\wtp\responder.spr(Definitions),7511(105,80),29) */
#include "wtpsuppt.h"


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

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

/*****
* SYNONYM RIDmask
* <<SYSTEM WAP/BLOCK WTPProvider>>
* #SDTREF(SDL,D:\WIP\Maintenance\4.x\System\SystemConfigurations\base_co\sdl\wtp\WTPProvider.sbk(1),5663(30,55),2)
******/
SDL_Octet  z3M_RIDmask;

/*****
* SYNONYM TIDnewmask
* <<SYSTEM WAP/BLOCK WTPProvider>>
* #SDTREF(SDL,D:\WIP\Maintenance\4.x\System\SystemConfigurations\base_co\sdl\wtp\WTPProvider.sbk(1),5675(30,85),2)
******/
SDL_Octet  z3N_TIDnewmask;

/*****
* SYNONYM TveTokmask
* <<SYSTEM WAP/BLOCK WTPProvider>>
* #SDTREF(SDL,D:\WIP\Maintenance\4.x\System\SystemConfigurations\base_co\sdl\wtp\WTPProvider.sbk(1),5681(30,100),2)
******/
SDL_Octet  z3O_TveTokmask;

/*****
* SYNONYM TCLmask
* <<SYSTEM WAP/BLOCK WTPProvider>>
* #SDTREF(SDL,D:\WIP\Maintenance\4.x\System\SystemConfigurations\base_co\sdl\wtp\WTPProvider.sbk(1),5699(30,145),2)
******/
SDL_Octet  z3P_TCLmask;

/*****
* SYNONYM typeMask
* <<SYSTEM WAP/BLOCK WTPProvider>>
* #SDTREF(SDL,D:\WIP\Maintenance\4.x\System\SystemConfigurations\base_co\sdl\wtp\WTPProvider.sbk(1),5747(30,175),2)
******/
SDL_Octet  z3Q_typeMask;

/*****
* NEWTYPE ResultType  (BODY section)
* <<SYSTEM WAP/BLOCK WTPProvider>>
* #SDTREF(SDL,D:\WIP\Maintenance\4.x\System\SystemConfigurations\base_co\sdl\wtp\WTPProvider.sbk(Synonyms),5531(15,75),2)
******/

/*****
* PROCEDURE TIDtest
* <<SYSTEM WAP/BLOCK WTPProvider/SUBSTRUCTURE WTPProvider/BLOCK WTP>>
* #SDTREF(SDL,D:\WIP\Maintenance\4.x\System\SystemConfigurations\base_co\sdl\wtp\tidtest.spd,1,1)
******/

/*+++++
* Function for procedure TIDtest
* #SDTREF(SDL,D:\WIP\Maintenance\4.x\System\SystemConfigurations\base_co\sdl\wtp\tidtest.spd,1,1)
++++++*/

#ifndef XNOPROTO
extern z31_ResultType z3007_TIDtest (XGP_PARAM_D SDL_Natural z30070_tid,
    SDL_Natural z30071_lastTid)
#else
extern z31_ResultType z3007_TIDtest (XGP_PARAM_K z30070_tid, z30071_lastTid)
  XGP_PARAM_KD
  SDL_Natural z30070_tid;
  SDL_Natural z30071_lastTid;
#endif
{
  YGLOBALPRD_YVARP
  /* INTEGRATION: commented out statement */
  /* YPRD_TEMP_VARS */
  SDL_Integer  yDcn_SDL_Integer;
  /* INTEGRATION: commented out statement */
  /* SDL_Boolean  yDcn_SDL_Boolean; */
  YPRDNAME_VAR("TIDtest")

/*-----
* START
* #SDTREF(SDL,D:\WIP\Maintenance\4.x\System\SystemConfigurations\base_co\sdl\wtp\tidtest.spd(1),119(80,40),1)
------*/
  XAT_FIRST_SYMBOL(0, 4713)
  XBETWEEN_SYMBOLS_PRD(1, 4714, 758)

/*-----
* DECISION
* #SDTREF(SDL,D:\WIP\Maintenance\4.x\System\SystemConfigurations\base_co\sdl\wtp\tidtest.spd(1),182(80,60),1)
------*/
#ifdef XTRACE
  yAssF_SDL_Boolean(yDcn_SDL_Boolean, yNEqF_SDL_Integer(z30071_lastTid,
    z35_EMPTY_TID), XASS);
  if (yDcn_SDL_Boolean) {
#else
  if (yNEqF_SDL_Integer(z30071_lastTid, z35_EMPTY_TID)) {
#endif
#ifdef XTRACE
  xTraceDecision("TRUE");
#endif
    XBETWEEN_SYMBOLS_PRD(2, 4715, 774)

/*-----
* DECISION
* #SDTREF(SDL,D:\WIP\Maintenance\4.x\System\SystemConfigurations\base_co\sdl\wtp\tidtest.spd(1),122(80,85),1)
------*/
#ifdef XTRACE
    yAssF_SDL_Boolean(yDcn_SDL_Boolean, xGE_SDL_Integer(z30070_tid,
      z30071_lastTid), XASS);
    if (yDcn_SDL_Boolean) {
#else
    if (xGE_SDL_Integer(z30070_tid, z30071_lastTid)) {
#endif
#ifdef XTRACE
    xTraceDecision("TRUE");
#endif
      XBETWEEN_SYMBOLS_PRD(3, 4716, 790)

/*-----
* DECISION
* #SDTREF(SDL,D:\WIP\Maintenance\4.x\System\SystemConfigurations\base_co\sdl\wtp\tidtest.spd(1),128(30,100),1)
------*/
      yAssF_SDL_Integer(yDcn_SDL_Integer, xMinus_SDL_Integer(z30070_tid,
        z30071_lastTid), XASS);
      if ((xLE_SDL_Integer(SDL_INTEGER_LIT(1), yDcn_SDL_Integer) &&
            xLE_SDL_Integer(yDcn_SDL_Integer, SDL_INTEGER_LIT(16348)))) {
#ifdef XTRACE
      xTraceDecision("PATH: Integer");
#endif
        XBETWEEN_SYMBOLS_PRD(4, 4717, 803)

/*-----
* RETURN
* #SDTREF(SDL,D:\WIP\Maintenance\4.x\System\SystemConfigurations\base_co\sdl\wtp\tidtest.spd(1),143(35,145),1)
------*/
#ifdef XFREEVARS
        FREE_PROCESS_VARS
#endif
        return z310_Ok;
      } else {
#ifdef XTRACE
      xTraceDecision("ELSE");
#endif
        XBETWEEN_SYMBOLS_PRD(5, 4718, 817)

/*-----
* RETURN
* #SDTREF(SDL,D:\WIP\Maintenance\4.x\System\SystemConfigurations\base_co\sdl\wtp\tidtest.spd(1),167(60,145),1)
------*/
#ifdef XFREEVARS
        FREE_PROCESS_VARS
#endif
        return z311_Fail;
      }
    } else {
#ifdef XTRACE
    xTraceDecision("FALSE");
#endif
      XBETWEEN_SYMBOLS_PRD(6, 4719, 832)

/*-----
* DECISION
* #SDTREF(SDL,D:\WIP\Maintenance\4.x\System\SystemConfigurations\base_co\sdl\wtp\tidtest.spd(1),134(155,100),1)
------*/
      yAssF_SDL_Integer(yDcn_SDL_Integer, xMinus_SDL_Integer(z30071_lastTid,
        z30070_tid), XASS);
      if (xLT_SDL_Integer(yDcn_SDL_Integer, SDL_INTEGER_LIT(16348))) {
#ifdef XTRACE
      xTraceDecision("PATH: < W");
#endif
        XBETWEEN_SYMBOLS_PRD(7, 4720, 844)

/*-----
* RETURN
* #SDTREF(SDL,D:\WIP\Maintenance\4.x\System\SystemConfigurations\base_co\sdl\wtp\tidtest.spd(1),173(135,145),1)
------*/
#ifdef XFREEVARS
        FREE_PROCESS_VARS
#endif
        return z311_Fail;
      } else if (xGE_SDL_Integer(yDcn_SDL_Integer, SDL_INTEGER_LIT(16348))) {
#ifdef XTRACE
      xTraceDecision("PATH: >= W");
#endif
        XBETWEEN_SYMBOLS_PRD(8, 4721, 858)

/*-----
* RETURN
* #SDTREF(SDL,D:\WIP\Maintenance\4.x\System\SystemConfigurations\base_co\sdl\wtp\tidtest.spd(1),149(160,145),1)
------*/
#ifdef XFREEVARS
        FREE_PROCESS_VARS
#endif
        return z310_Ok;
      }
#ifdef XEDECISION
      else {
        XDECISION_ERROR
      }
#endif
    }
  } else {
#ifdef XTRACE
  xTraceDecision("FALSE");
#endif
    XBETWEEN_SYMBOLS_PRD(9, 4722, 879)

/*-----
* RETURN
* #SDTREF(SDL,D:\WIP\Maintenance\4.x\System\SystemConfigurations\base_co\sdl\wtp\tidtest.spd(1),191(10,145),1)
------*/
#ifdef XFREEVARS
    FREE_PROCESS_VARS
#endif
    return z310_Ok;
  }
  return 0; /* INTEGRATION: added return statement */
}

/*****