obs_rte.pr.c

实验室前辈用OPNET做的光突发交换网络的仿真实验

		Packet*		re_pkptr;
		Route*		FIS_min_rptr_copy;
		Route*		FIS_current_rptr;
		Route*		FIS_rptr;
		double		link_cost;
		Route*		pk_rptr;
		Route*		pk_r;
		Route*		route_ptr;
		Route_Link*	link_ptr;
		Route*		min_rptr_copy;
		Route*		route_test;
		Route_Set*	FIS_rset_ptr_t;
		Route*		FIS_min_rptr_t;
		char		node_name[255];
		char		id[20];
		Objid*		node_objid_ptr;
		int			i, num_nodes;
		int			subnet_ids[10], node_ids[10];
		double		cur_time;
		Packet*		cp_pkptr;
		int			next_address;
		double		start_time, dtime_time;
		double		n_start_time;
		double		o_start_time;
		double		start_time_1, dtime_time_1;
		double		start_time_2, dtime_time_2;
		
		int			s_f, num;
		
		int 		j,k;
		
		int 		check_num, num1, num2,num3,num4;
		double		list_table[100][2];
		double		dtime;
		double		stime;
		
		int			delete_num;
		
		int 		FIS_fail_type;
		int 		FIS_node_link;
		int 		FIS_destination;
		int 		FIS_source[17][17];
		int 		x,y;
		int 		PK_source[17][17];
		int 		check, s_f_flag, FIS_s_f_flag ;
		int 		send_check;
		char		file_name[10];
		int			num_routes[17][17];
		int			exit_flag;
		int			l;
		int			comp_flag;
		int			change_flag;
		int 		pk_type;
		int			hop;
		int			bef_address;
		int			reserved_wave;
		
		int			temp_wave;
		double		temp_gap;
		int			insert_flag;
		double		offset_time;
		double		old_offset_time;
		int			loop_stop;
		double		new_start_time;
		
		int			route_flag;
		int			userid_c;
		int			userid_n;
		int			userid_d;
		int			restoration_flag;
		
		
		wave_info*	wave;
		wave_info*	wave_info_table;
		wave_info*	wave_free;
		
		wavelength_info*	wavelength;
		wavelength_info*	wavelength_info_table;
		wavelength_info*	wavelength_free;
		
		
		int			lost_flag;
		int			backup_flag;
		int			need_schedule;
		int			include_flag;
		int			hop_num_back;
		
		
		double		wavelength_list_table[100][2];
		
		
		int 		wavelength_number;
		int			wavelength_num;
		int			wave_break;
		
		double 		d_time;
		
		Objid		strm_objid1;
		int			strm_num1;
		int			temp_channel_num;
		//int			link_num;
		//int			channel_count1;
		CHANNEL_INFOR * channel_infor;
		CHANNEL_INFOR * channel_infor2;
		CHANNEL_INFOR * channel_infor3;
		CHANNEL_INFOR * channel_infor4;
		int			current_port;
		int			list_element_num;
		int			loop_channel;
		int 		loop_list;
		int			selected_channel;
		int 		difference_time;		
		int			temp_difference_time;
		
		int			loop_flag_i;
		int			loop_flag_j;
		int			loop_flag_k;
		int			pk_id;
		int			pk_address;
		int			pkptr_id;
		double		temp_time;
		
		
		int  e_s;
		int  e_d;
		int  e_id;
		int		temp_flag_suc;
		double dropped_burst_size = 0;
		
		
		int tt,ttt;

		/* No Termination Block */

		}
	Vos_Catmem_Dealloc (pr_state_ptr);

	FOUT;
	}


/* Undefine shortcuts to state variables to avoid */
/* syntax error in direct access to fields of */
/* local variable prs_ptr in OBS_rte_svar function. */
#undef current_rptr
#undef subnet_id
#undef next_node_id
#undef rev_pk_count
#undef rev_pk_cnt_stathandle
#undef node_objid
#undef self_objid
#undef subnet_objid
#undef node_pk_count
#undef dst_node_id
#undef send_ok
#undef pk_size_reiv_stathandle
#undef pk_cnt_reiv_stathandle
#undef pk_size_total_reiv_stathandle
#undef pk_cnt_total_reiv_stathandle
#undef pk_size_reiv
#undef pk_count_reiv
#undef pk_rev_cnt_no1_stathandle
#undef pk_rev_cnt_no2_stathandle
#undef pk_rev_cnt_no3_stathandle
#undef pk_rev_cnt_no4_stathandle
#undef pk_rev_cnt_no5_stathandle
#undef pk_rev_cnt_no6_stathandle
#undef pk_cnt_no1
#undef pk_cnt_no2
#undef pk_cnt_no3
#undef pk_cnt_no4
#undef pk_cnt_no5
#undef pk_cnt_no6
#undef jj
#undef pk_avg_size_rev
#undef pk_count_rev_channel0
#undef pk_count_rev_channel1
#undef pk_size_rev_channel0
#undef pk_size_rev_channel1
#undef pk_avg_size_rev_stathandle
#undef pk_count_rev_channel0_stathandle
#undef pk_size_rev_channel0_stathandle
#undef pk_count_rev_channel1_stathandle
#undef pk_size_rev_channel1_stathandle
#undef node_for_schedule
#undef link_num
#undef channel_count1
#undef link_count
#undef packet_type
#undef burst_count_lost
#undef burst_count_lost_stathandle
#undef bcp_count_lost
#undef bcp_count_lost_stathandle
#undef pk_avg_total_size_rev_stathandle
#undef burst_count_total_lost_stathandle
#undef test_state



void
OBS_rte_svar (void * gen_ptr, const char * var_name, char ** var_p_ptr)
	{
	OBS_rte_state		*prs_ptr;

	FIN (OBS_rte_svar (gen_ptr, var_name, var_p_ptr))

	if (var_name == OPC_NIL)
		{
		*var_p_ptr = (char *)OPC_NIL;
		FOUT;
		}
	prs_ptr = (OBS_rte_state *)gen_ptr;

	if (strcmp ("current_rptr" , var_name) == 0)
		{
		*var_p_ptr = (char *) (&prs_ptr->current_rptr);
		FOUT;
		}
	if (strcmp ("subnet_id" , var_name) == 0)
		{
		*var_p_ptr = (char *) (&prs_ptr->subnet_id);
		FOUT;
		}
	if (strcmp ("next_node_id" , var_name) == 0)
		{
		*var_p_ptr = (char *) (&prs_ptr->next_node_id);
		FOUT;
		}
	if (strcmp ("rev_pk_count" , var_name) == 0)
		{
		*var_p_ptr = (char *) (&prs_ptr->rev_pk_count);
		FOUT;
		}
	if (strcmp ("rev_pk_cnt_stathandle" , var_name) == 0)
		{
		*var_p_ptr = (char *) (&prs_ptr->rev_pk_cnt_stathandle);
		FOUT;
		}
	if (strcmp ("node_objid" , var_name) == 0)
		{
		*var_p_ptr = (char *) (&prs_ptr->node_objid);
		FOUT;
		}
	if (strcmp ("self_objid" , var_name) == 0)
		{
		*var_p_ptr = (char *) (&prs_ptr->self_objid);
		FOUT;
		}
	if (strcmp ("subnet_objid" , var_name) == 0)
		{
		*var_p_ptr = (char *) (&prs_ptr->subnet_objid);
		FOUT;
		}
	if (strcmp ("node_pk_count" , var_name) == 0)
		{
		*var_p_ptr = (char *) (&prs_ptr->node_pk_count);
		FOUT;
		}
	if (strcmp ("dst_node_id" , var_name) == 0)
		{
		*var_p_ptr = (char *) (&prs_ptr->dst_node_id);
		FOUT;
		}
	if (strcmp ("send_ok" , var_name) == 0)
		{
		*var_p_ptr = (char *) (&prs_ptr->send_ok);
		FOUT;
		}
	if (strcmp ("pk_size_reiv_stathandle" , var_name) == 0)
		{
		*var_p_ptr = (char *) (&prs_ptr->pk_size_reiv_stathandle);
		FOUT;
		}
	if (strcmp ("pk_cnt_reiv_stathandle" , var_name) == 0)
		{
		*var_p_ptr = (char *) (&prs_ptr->pk_cnt_reiv_stathandle);
		FOUT;
		}
	if (strcmp ("pk_size_total_reiv_stathandle" , var_name) == 0)
		{
		*var_p_ptr = (char *) (&prs_ptr->pk_size_total_reiv_stathandle);
		FOUT;
		}
	if (strcmp ("pk_cnt_total_reiv_stathandle" , var_name) == 0)
		{
		*var_p_ptr = (char *) (&prs_ptr->pk_cnt_total_reiv_stathandle);
		FOUT;
		}
	if (strcmp ("pk_size_reiv" , var_name) == 0)
		{
		*var_p_ptr = (char *) (&prs_ptr->pk_size_reiv);
		FOUT;
		}
	if (strcmp ("pk_count_reiv" , var_name) == 0)
		{
		*var_p_ptr = (char *) (&prs_ptr->pk_count_reiv);
		FOUT;
		}
	if (strcmp ("pk_rev_cnt_no1_stathandle" , var_name) == 0)
		{
		*var_p_ptr = (char *) (&prs_ptr->pk_rev_cnt_no1_stathandle);
		FOUT;
		}
	if (strcmp ("pk_rev_cnt_no2_stathandle" , var_name) == 0)
		{
		*var_p_ptr = (char *) (&prs_ptr->pk_rev_cnt_no2_stathandle);
		FOUT;
		}
	if (strcmp ("pk_rev_cnt_no3_stathandle" , var_name) == 0)
		{
		*var_p_ptr = (char *) (&prs_ptr->pk_rev_cnt_no3_stathandle);
		FOUT;
		}
	if (strcmp ("pk_rev_cnt_no4_stathandle" , var_name) == 0)
		{
		*var_p_ptr = (char *) (&prs_ptr->pk_rev_cnt_no4_stathandle);
		FOUT;
		}
	if (strcmp ("pk_rev_cnt_no5_stathandle" , var_name) == 0)
		{
		*var_p_ptr = (char *) (&prs_ptr->pk_rev_cnt_no5_stathandle);
		FOUT;
		}
	if (strcmp ("pk_rev_cnt_no6_stathandle" , var_name) == 0)
		{
		*var_p_ptr = (char *) (&prs_ptr->pk_rev_cnt_no6_stathandle);
		FOUT;
		}
	if (strcmp ("pk_cnt_no1" , var_name) == 0)
		{
		*var_p_ptr = (char *) (&prs_ptr->pk_cnt_no1);
		FOUT;
		}
	if (strcmp ("pk_cnt_no2" , var_name) == 0)
		{
		*var_p_ptr = (char *) (&prs_ptr->pk_cnt_no2);
		FOUT;
		}
	if (strcmp ("pk_cnt_no3" , var_name) == 0)
		{
		*var_p_ptr = (char *) (&prs_ptr->pk_cnt_no3);
		FOUT;
		}
	if (strcmp ("pk_cnt_no4" , var_name) == 0)
		{
		*var_p_ptr = (char *) (&prs_ptr->pk_cnt_no4);
		FOUT;
		}
	if (strcmp ("pk_cnt_no5" , var_name) == 0)
		{
		*var_p_ptr = (char *) (&prs_ptr->pk_cnt_no5);
		FOUT;
		}
	if (strcmp ("pk_cnt_no6" , var_name) == 0)
		{
		*var_p_ptr = (char *) (&prs_ptr->pk_cnt_no6);
		FOUT;
		}
	if (strcmp ("jj" , var_name) == 0)
		{
		*var_p_ptr = (char *) (&prs_ptr->jj);
		FOUT;
		}
	if (strcmp ("pk_avg_size_rev" , var_name) == 0)
		{
		*var_p_ptr = (char *) (&prs_ptr->pk_avg_size_rev);
		FOUT;
		}
	if (strcmp ("pk_count_rev_channel0" , var_name) == 0)
		{
		*var_p_ptr = (char *) (&prs_ptr->pk_count_rev_channel0);
		FOUT;
		}
	if (strcmp ("pk_count_rev_channel1" , var_name) == 0)
		{
		*var_p_ptr = (char *) (&prs_ptr->pk_count_rev_channel1);
		FOUT;
		}
	if (strcmp ("pk_size_rev_channel0" , var_name) == 0)
		{
		*var_p_ptr = (char *) (&prs_ptr->pk_size_rev_channel0);
		FOUT;
		}
	if (strcmp ("pk_size_rev_channel1" , var_name) == 0)
		{
		*var_p_ptr = (char *) (&prs_ptr->pk_size_rev_channel1);
		FOUT;
		}
	if (strcmp ("pk_avg_size_rev_stathandle" , var_name) == 0)
		{
		*var_p_ptr = (char *) (&prs_ptr->pk_avg_size_rev_stathandle);
		FOUT;
		}
	if (strcmp ("pk_count_rev_channel0_stathandle" , var_name) == 0)
		{
		*var_p_ptr = (char *) (&prs_ptr->pk_count_rev_channel0_stathandle);
		FOUT;
		}
	if (strcmp ("pk_size_rev_channel0_stathandle" , var_name) == 0)
		{
		*var_p_ptr = (char *) (&prs_ptr->pk_size_rev_channel0_stathandle);
		FOUT;
		}
	if (strcmp ("pk_count_rev_channel1_stathandle" , var_name) == 0)
		{
		*var_p_ptr = (char *) (&prs_ptr->pk_count_rev_channel1_stathandle);
		FOUT;
		}
	if (strcmp ("pk_size_rev_channel1_stathandle" , var_name) == 0)
		{
		*var_p_ptr = (char *) (&prs_ptr->pk_size_rev_channel1_stathandle);
		FOUT;
		}
	if (strcmp ("node_for_schedule" , var_name) == 0)
		{
		*var_p_ptr = (char *) (&prs_ptr->node_for_schedule);
		FOUT;
		}
	if (strcmp ("link_num" , var_name) == 0)
		{
		*var_p_ptr = (char *) (&prs_ptr->link_num);
		FOUT;
		}
	if (strcmp ("channel_count1" , var_name) == 0)
		{
		*var_p_ptr = (char *) (&prs_ptr->channel_count1);
		FOUT;
		}
	if (strcmp ("link_count" , var_name) == 0)
		{
		*var_p_ptr = (char *) (&prs_ptr->link_count);
		FOUT;
		}
	if (strcmp ("packet_type" , var_name) == 0)
		{
		*var_p_ptr = (char *) (&prs_ptr->packet_type);
		FOUT;
		}
	if (strcmp ("burst_count_lost" , var_name) == 0)
		{
		*var_p_ptr = (char *) (&prs_ptr->burst_count_lost);
		FOUT;
		}
	if (strcmp ("burst_count_lost_stathandle" , var_name) == 0)
		{
		*var_p_ptr = (char *) (&prs_ptr->burst_count_lost_stathandle);
		FOUT;
		}
	if (strcmp ("bcp_count_lost" , var_name) == 0)
		{
		*var_p_ptr = (char *) (&prs_ptr->bcp_count_lost);
		FOUT;
		}
	if (strcmp ("bcp_count_lost_stathandle" , var_name) == 0)
		{
		*var_p_ptr = (char *) (&prs_ptr->bcp_count_lost_stathandle);
		FOUT;
		}
	if (strcmp ("pk_avg_total_size_rev_stathandle" , var_name) == 0)
		{
		*var_p_ptr = (char *) (&prs_ptr->pk_avg_total_size_rev_stathandle);
		FOUT;
		}
	if (strcmp ("burst_count_total_lost_stathandle" , var_name) == 0)
		{
		*var_p_ptr = (char *) (&prs_ptr->burst_count_total_lost_stathandle);
		FOUT;
		}
	if (strcmp ("test_state" , var_name) == 0)
		{
		*var_p_ptr = (char *) (&prs_ptr->test_state);
		FOUT;
		}
	*var_p_ptr = (char *)OPC_NIL;

	FOUT;
	}