/* Process model C form file: tdma.pr.c */
/* Portions of this file copyright 1986-2008 by OPNET Technologies, Inc. */
/* This variable carries the header into the object file */
const char tdma_pr_c [] = "MIL_3_Tfile_Hdr_ 145A 30A modeler 7 4BBAFCC5 4BBAFCC5 1 PC-20100310UVTB Administrator 0 0 none none 0 0 none 0 0 0 0 0 0 0 0 1bcc 1 ";
#include <string.h>
/* OPNET system definitions */
#include <opnet.h>
/* Header Block */
#include <math.h>
/* Constant Definitions */
#define RX_IN_STRM (1)
#define SRC_IN_STRM (0)
#define TX_OUT_STRM (1)
#define SINK_OUT_STRM (0)
#define EPSILON (1e-10) /* rounding error factor */
#define TDMA_COMPLETE (-10)
/* Transition Condition Macros */
#define FROM_RX (current_intrpt_type == OPC_INTRPT_STRM) && (op_intrpt_strm () == RX_IN_STRM)
#define FROM_SRC (current_intrpt_type == OPC_INTRPT_STRM) && (op_intrpt_strm () == SRC_IN_STRM)
#define TRANSMITTING (op_stat_local_read (0) == 1.0)
#define SLOT (current_intrpt_type == OPC_INTRPT_SELF)
#define END (current_intrpt_type == OPC_INTRPT_STAT)
#define DATA_ENQ (!(op_subq_empty (0)))
#define SELF_INTRPT_SCHLD (intrpt_flag == 1)
/* Global Variables */
int tdma_pk_sent;
int tdma_pk_rcvd;
int tdma_bits_sent;
int tdma_bits_rcvd;
int tdma_setup;
int tdma_id;
int num_slots;
/* End of Header Block */
#if !defined (VOSD_NO_FIN)
#undef BIN
#undef BOUT
#define BIN FIN_LOCAL_FIELD(_op_last_line_passed) = __LINE__ - _op_block_origin;
#define BOUT BIN
#define BINIT FIN_LOCAL_FIELD(_op_last_line_passed) = 0; _op_block_origin = __LINE__;
#else
#define BINIT
#endif /* #if !defined (VOSD_NO_FIN) */
/* State variable definitions */
typedef struct
{
/* Internal state tracking for FSM */
FSM_SYS_STATE
/* State Variables */
int my_offset ;
double slot_length ;
double tx_data_rate ;
int intrpt_flag ;
int num_pk_sent ;
int num_pk_rcvd ;
int num_bits_sent ;
int num_bits_rcvd ;
Stathandle num_pk_sent_stat ;
Stathandle global_pk_sent_stat ;
Stathandle num_pk_rcvd_stat ;
Stathandle global_pk_rcvd_stat ;
Objid my_node_id ;
Objid my_id ;
Stathandle num_bits_sent_stat ;
Stathandle global_bits_sent_stat ;
Stathandle num_bits_rcvd_stat ;
Stathandle global_bits_rcvd_stat ;
Stathandle bits_sec_rcvd_stat ;
Stathandle bits_sec_sent_stat ;
Stathandle pk_sec_rcvd_stat ;
Stathandle pk_sec_sent_stat ;
Stathandle global_bits_sec_rcvd_stat ;
Stathandle global_bits_sec_sent_stat ;
Stathandle global_pk_sec_rcvd_stat ;
Stathandle global_pk_sec_sent_stat ;
} tdma_state;
#define my_offset op_sv_ptr->my_offset
#define slot_length op_sv_ptr->slot_length
#define tx_data_rate op_sv_ptr->tx_data_rate
#define intrpt_flag op_sv_ptr->intrpt_flag
#define num_pk_sent op_sv_ptr->num_pk_sent
#define num_pk_rcvd op_sv_ptr->num_pk_rcvd
#define num_bits_sent op_sv_ptr->num_bits_sent
#define num_bits_rcvd op_sv_ptr->num_bits_rcvd
#define num_pk_sent_stat op_sv_ptr->num_pk_sent_stat
#define global_pk_sent_stat op_sv_ptr->global_pk_sent_stat
#define num_pk_rcvd_stat op_sv_ptr->num_pk_rcvd_stat
#define global_pk_rcvd_stat op_sv_ptr->global_pk_rcvd_stat
#define my_node_id op_sv_ptr->my_node_id
#define my_id op_sv_ptr->my_id
#define num_bits_sent_stat op_sv_ptr->num_bits_sent_stat
#define global_bits_sent_stat op_sv_ptr->global_bits_sent_stat
#define num_bits_rcvd_stat op_sv_ptr->num_bits_rcvd_stat
#define global_bits_rcvd_stat op_sv_ptr->global_bits_rcvd_stat
#define bits_sec_rcvd_stat op_sv_ptr->bits_sec_rcvd_stat
#define bits_sec_sent_stat op_sv_ptr->bits_sec_sent_stat
#define pk_sec_rcvd_stat op_sv_ptr->pk_sec_rcvd_stat
#define pk_sec_sent_stat op_sv_ptr->pk_sec_sent_stat
#define global_bits_sec_rcvd_stat op_sv_ptr->global_bits_sec_rcvd_stat
#define global_bits_sec_sent_stat op_sv_ptr->global_bits_sec_sent_stat
#define global_pk_sec_rcvd_stat op_sv_ptr->global_pk_sec_rcvd_stat
#define global_pk_sec_sent_stat op_sv_ptr->global_pk_sec_sent_stat
/* These macro definitions will define a local variable called */
/* "op_sv_ptr" in each function containing a FIN statement. */
/* This variable points to the state variable data structure, */
/* and can be used from a C debugger to display their values. */
#undef FIN_PREAMBLE_DEC
#undef FIN_PREAMBLE_CODE
#define FIN_PREAMBLE_DEC tdma_state *op_sv_ptr;
#define FIN_PREAMBLE_CODE \
op_sv_ptr = ((tdma_state *)(OP_SIM_CONTEXT_PTR->_op_mod_state_ptr));
/* No Function Block */
#if !defined (VOSD_NO_FIN)
enum { _op_block_origin = __LINE__ };
#endif
/* Undefine optional tracing in FIN/FOUT/FRET */
/* The FSM has its own tracing code and the other */
/* functions should not have any tracing. */
#undef FIN_TRACING
#define FIN_TRACING
#undef FOUTRET_TRACING
#define FOUTRET_TRACING
#if defined (__cplusplus)
extern "C" {
#endif
void tdma (OP_SIM_CONTEXT_ARG_OPT);
VosT_Obtype _op_tdma_init (int * init_block_ptr);
void _op_tdma_diag (OP_SIM_CONTEXT_ARG_OPT);
void _op_tdma_terminate (OP_SIM_CONTEXT_ARG_OPT);
VosT_Address _op_tdma_alloc (VosT_Obtype, int);
void _op_tdma_svar (void *, const char *, void **);
#if defined (__cplusplus)
} /* end of 'extern "C"' */
#endif
/* Process model interrupt handling procedure */
void
tdma (OP_SIM_CONTEXT_ARG_OPT)
{
#if !defined (VOSD_NO_FIN)
int _op_block_origin = 0;
#endif
FIN_MT (tdma ());
{
/* Temporary Variables */
Packet* pkptr;
Objid tx_id, comp_id, tx_ch_id;
double floor();
double fmod();
int used_slots;
int current_offset;
int next_offset;
double current_time;
double time_left_in_slot;
double pk_len;
double pk_time;
double my_next_slot_time;
int current_intrpt_type;
/* End of Temporary Variables */
FSM_ENTER ("tdma")
FSM_BLOCK_SWITCH
{
/*---------------------------------------------------------*/
/** state (init) enter executives **/
FSM_STATE_ENTER_UNFORCED_NOLABEL (0, "init", "tdma [init enter execs]")
FSM_PROFILE_SECTION_IN (