OPNET学习笔记之gna_ftp_mgr进程模型
首先注意bgsim intrpt属性为disable，估计本进程会由gna_profile_mgr 进程调用并提供初始化参数。
状态变量注意：GnaT_Cli_Ftp_Params_Info* ftp_client_info_ptr;和GnaT_Nam_Appl* application_info_ptr;是由profile提供的参数。
//---------------------------------------------------------------------------------------------------------------------------INIT入口代码
/** This state initialize variables. **/
/* Create a handle for tracking dynamically allocated objects */
cmo_handle = prg_cmo_define ("gna_ftp_mgr dynamic memory"); //注意动态分配的对象（这里不是内存???）
/* Acquire the application information from the argument memory. 从父进程的参数内存得到进程初始化参数*/
if ((application_info_ptr = (GnaT_Nam_Appl *)op_pro_argmem_access ()) == OPC_NIL)
{
/* Stop the simulation if the application information can not be accessed. */
ftp_mgr_error ("Unable to get the application information from the parent profile manager process", OPC_NIL, OPC_NIL);
}
/* Schedule the first entry or query for the database application. */
/* A request/query should be sent as soon as the application */
/* manager is spawned since it marks the start of the application. */
op_intrpt_schedule_self (op_sim_time (), GNAC_FTP_CLIENT_SPAWN); //马上调用一个自中断，使下一步马上进入get/put状态
/* Schedule the end of the application.该进程仿真结束，时间 = 进程仿真持续时间 + 当前时间 */
end_of_application = application_info_ptr->application_duration + op_sim_time ();
ending_event_handle = op_intrpt_schedule_self (end_of_application, GNAC_FTP_MGR_KILL); //调用另一个自中断，当到达进程结束时间时中断
/* Create a structure in charge of sending all information to the FTP client. This structure will tell whether the client */
/* should generate a request or an entry, its size ... 分配内存，用于存储FTP client端的信息*/
ftp_client_info_ptr = (GnaT_Cli_Ftp_Params_Info*) prg_cmo_alloc (cmo_handle, sizeof (GnaT_Cli_Ftp_Params_Info));
/* Get traffic scaling factor. 应在profile中已经定义好的信息*/
temp_app_desc = (GnaT_Ftp_Desc *) application_info_ptr->application_comp_ptr->application_ptr->application_desc_ptr;
inter_request_time_dist_handle = oms_dist_scaled_load_from_string (temp_app_desc->inter_request_time_dist_name_ptr, 1 / application_info_ptr->scaling_factor);
/* Set type of service in structure passed to FTP client. */
ftp_client_info_ptr->tos = temp_app_desc->tos;
/* Pass to client global information structure. */
ftp_client_info_ptr->app_info_ptr = application_info_ptr;
/* Set the apptracking info from the PTC memory */
ftp_client_info_ptr->apptrack_profile_info_ptr = (ApptrackT_Profile_Info*) op_pro_parmem_access ();
//只是收集相关信息，然后进入IDLE，没有用到动态子进程。
//---------------------------------------------------------------------------------------------------------------------------
由于init状态是强制状态，且其中定义了自中断（开始/结束进程），故从本状态会马上跳到get/put状态
//---------------------------------------------------------------------------------------------------------------------------get/put状态
/** Spawns a client process for a "get" or a "put" to the FTP server. A client is spawned for **/
/** each potential TCP connection. 该状态调用子进程处理**/
/* Spawns a FTP child process. */
ftp_cli_phandle = op_pro_create ("gna_ftp_cli", OPC_NIL); //创建，还没有调用，
/* Get the FTP description. FTP描述 */
temp_app_desc = (GnaT_Ftp_Desc *) application_info_ptr->application_comp_ptr->application_ptr->application_desc_ptr;
/* Get a random number to choose whether the request will be a "get" or a "put". */
random_number = op_dist_uniform (1.0);
/* Set the corresponding request. */
if (random_number >= temp_app_desc->command_mix)
{
/* The request is a "put". */
if (trace_active || trace_arch_active)
{
op_prg_odb_print_major ("FTP Manager spawning a FTP (\"gna_ftp_cli\") process for PUT command", OPC_NIL);
}
ftp_client_info_ptr->request_type = GnaC_App_Type_Ftp_Put;
}
else
{
/* The request is a "get". */
if (trace_active || trace_arch_active)
{
op_prg_odb_print_major ("FTP Manager spawning a FTP (\"gna_ftp_cli\") process for GET command", OPC_NIL);
}
ftp_client_info_ptr->request_type = GnaC_App_Type_Ftp_Get;
}
/* Set packet size */
ftp_client_info_ptr->request_size = ceil (tpal_dist_positive_outcome(temp_app_desc->file_size_dist_handle,
application_info_ptr->application_comp_ptr->application_ptr->application_name_ptr, "File size" ));
/* Select a server among the list of servers corresponding to the symbolic server name. 注意这里选择server，通过symbolic name*/
ftp_client_info_ptr->server_name = app_server_name_select (application_info_ptr);
/* Invoke FTP client. 这时FTP client应进入open状态*/
op_pro_invoke (ftp_cli_phandle, ftp_client_info_ptr);
/* Compute the next time a request will be made. */
scheduled_time = op_sim_time () + tpal_dist_positive_outcome (inter_request_time_dist_handle,
application_info_ptr->application_comp_ptr->application_ptr->application_name_ptr, "Inter-request time");
/* Schedule next request unless application is over. */
if (scheduled_time <= end_of_application)
{
op_intrpt_schedule_self (scheduled_time, GNAC_FTP_CLIENT_SPAWN); //等间隔时间过后，再发出FTP 请求
/* Check whether this interrupt is scheduled at the same time as the ending interrupt. */
if (end_of_application == scheduled_time)
{
/* Cancel ending interrupt that is lower in interrupt stack. Schedule an interrupt to end the application when over. */
/* Keep the handle of the interrupt in charge of destroying the process. Some applications may close at the same time. */
/* The interrupt can be then cancelled and scheduled again so this ending interrupt occurs last. */
op_ev_cancel (ending_event_handle);
ending_event_handle = op_intrpt_schedule_self (end_of_application, GNAC_FTP_MGR_KILL);
}
}
//---------------------------------------------------------------------------------------------------------------------------
//---------------------------------------------------------------------------------------------------------------------------
