MOM функции.

   Не много отвлечемся и я вам расскажу о том, как и где создаются MOM (TCL) расширения. Основную роль в этом играют библиотеки,  libcamsmom.dll,  libcamsint.dll и libcams.dll. Основные классы описаны в библиотеке - libcamsint.dll и libcamsmom.dll. Их иерархию - я не знаю. Строго говоря, подготовка и обработка данных для постпроцесса состоит из нескольких частей: первая часть это функции MOM_POST_*, вторая часть из более современной - классы. Каждый из них содержит огромное количество методов и свойств, некоторые дополняются своими специфическими. Ниже привожу их как пример (часть) методы класса UGS::TCL :

public: 
protected:
::ask_output_directory(void)
::ask_output_buffer(void)
::ask_proc_names(char const *)
::clear_end_buffer(void)
::close_output_file(char *)
::do_internal_event(char *)
::does_handler_handle_event(char *)
::dump(int (__cdecl*)(char const *,...))
::eval_boolean(char const *)
::eval_interp_proc_arg(char const *)
::eval_num_expr_in_xlator(char *,double *,int *)
::eval_str_expr_in_xlator(char *,char *,int *)
::init(void)
::implement_unload(void)
::implement_destroy(void)
::init_output_buffer(void)
::load_default_handlers(void)
::load_definition_file(void)
::load_event_handlers(void)
::load_global_vars_into_xlator(void)
::parser_error(char *,int,char *,char *)
::raise_warning(char const *)
::remove_var(char *)
::set_associative_array(char const *,char const *,char const *)
::set_dbl_array(char *,int,double *)
::set_dbl_array_2d(char *,int,int,double *)
::set_debug_mode(int)
::set_double(int,char const *,double)
::set_int(char *,int)
::set_int_array(char *,int,int *)
::set_integer(int,char const *,int)
::set_internal_string(char *,char *)
::set_last_result(char *)
::set_last_result_from_interp(void)
::set_channel_being_postprocessed(class UGS::XTP_channel *) ----xtp
::set_postprocessing_mode(bool) ------xtp
::set_str_array(char *,int,char * *)
::set_string(char *,char *)
::set_double_fast(enum MOM_FAST_VARS_e,double)
::set_int_fast(enum MOM_FAST_VARS_e,int)
::set_string_fast(enum MOM_FAST_VARS_e,char const *) 
::set_timing_group(int)
::set_unprefixed_var(char const *,char const *)
::start_translator(void)
::stop_translator(void)
::unload(void)
::unload_definition_file(void)
::write_definition_file(void)
::write_obuf_to_ofile(void)

static class UGS::OM::AttributeId 
::start_bufferAttId
::symbol_tableAttId
::time_stampAttId
::timing_groupAttId
::xtpTransAttId
::primary_output_file_nameAttId
::previous_xtp_eventAttId

Иерархия классов примерно такая :

Сами MOM-функции создаются в методе класса ::add_funcs_to_xlator(void *this)

А вот присоединяются непосредственно к командам TCL посредством структуры: struct TCL_vtbl_s * pvtbl_tcl  - со смещением 17. Что за команда TCL скрыта под этим номером можно только догадываться.

....
(*(void (__cdecl **)(int, _DWORD, int (__cdecl *)(int, int, int, int), int, _DWORD))
    ((void (__cdecl **)(_DWORD, _DWORD, _DWORD, _DWORD, _DWORD))pvtbl_tcl+ 17))

В исходниках UG - файлы, отвечающие за МОМ, расположены примерно здесь:

Методы классов.

Рассмотрим их, по мере создания и подключения.

UGS::MOM_INFO

Но классы описанные в библиотеке выше являются более общными для всех, а вот непосредственно отвечающими за обработку и вывод постпроцессора являются классы лежащие внутри ниже показанной библиотеки.

Класс UGS::UI_WIZD.

• ISV или методы симуляции УП в Unigraphic-е реализуются методом "хука". То-есть, классы MOM_SIM - в реализации тоже самое, что и MOM_POST, только обработка события проходит через специфичные для данного класса метода, а уж потом вызываются методы класса MOM_POST.

MOM_SIM={событие| 1-этап: методы MOM_SIM, 2 этап: методы  MOM_POST }

    В библиотеках Юниграфики, собственно за обработку данных координат (для постпроцессора) отвечает большое количество функций с именем: MOM_POST_*. В их теле происходит интенсивная обработка mom-переменных, переменных - кинематики, разного рода вычисления. Вот примерные имена их:

.........
MOM_POST_convert_point
MOM_POST_edm_4axis_pt
MOM_POST_rotate_tool_axis
MOM_POST_convert_5axis_pt
MOM_POST_dh_convert_point
MOM_POST_round
MOM_POST_rotary_pos
MOM_POST_rotate_point
MOM_POST_limit_angle
........

- на них, я не буду останавливаться. Их много, а тратить время на их анализ просто не хотелось, кто хочет - может попробовать сам. Покажу только список всех кинематических переменных читаемых функцией MOM_POST_init_kinematic_data. В этой функции MOM читает мом-переменные и заполняет сложную внутреннюю структуру. Все значения приводятся к верхнему регистру MCE_convert_toupper(char *), а затем сравниваются с определенными значениями. Активно применяется PART_ask_units. Внутри функции читается переменная "UGII_CAM_POST_ENABLE_RESOLUTION_ROUND" - за что она отвечает можно только догадываться. Практически все строковые кинематические MOM переменные переводятся в числовые {1, 0}={TRUE,FALSE}, либо в массив значений.

    
 "kin_cycle_plane_change_to_lower" ; "TRUE"
 "kin_cycle_plane_change_per_axis" ; "TRUE"
 "kin_output_unit" ; IN or MM
 "kin_post_data_unit" ; IN or MM
 "kin_machine_type" ; 
"lathe" "3_axis_mill" "4_axis_head" "4_axis_table" 
"mill_turn" "3_axis_mill_turn" 
"5_axis_dual_table" "5_axis_dual_head" "5_axis_head_table" 
"2_axis_wedm" "4_axis_wedm"

 "kin_wire_tilt_output_type" ; ANGLES, COORDINATES
 "kin_min_angular_incr" ; "COORDINATES" "ADVANCED"
 "kin_machine_resolution"
 "kin_min_arc_length"
 "kin_track_center_of_ball" ; "TRUE"

 "kin_4th_axis_plane" ;"ZX"
 "kin_4th_axis_rotation" ;"reverse" STANDARD
 "kin_4th_axis_min_incr"
 "kin_4th_axis_min_limit"
 "kin_4th_axis_max_limit"
 "kin_4th_axis_zero"
 "kin_4th_axis_center_offset"
 "kin_4th_axis_direction" ; 
"SIGN_DETERMINES_DIRECTION" "SIGN_PLUS_CCLW" "CCLW_LARGER_ANGLE" 
"ALWAYS_CLW" "ALWAYS_CCLW" "ALWAYS_SHORTEST" "CODE_FORCES_DIR"

 "kin_linearization_tol"
 "kin_linearization_flag" ;"TRUE"

 "kin_5th_axis_plane" ;"ZX"
 "kin_5th_axis_rotation"; "reverse" STANDARD
 "kin_5th_axis_min_incr"
 "kin_5th_axis_min_limit"
 "kin_5th_axis_max_limit"
 "kin_5th_axis_zero"
 "kin_5th_axis_center_offset"
 "kin_5th_axis_inclination_to_4th"
 "kin_5th_axis_direction" ; 
"SIGN_DETERMINES_DIRECTION" "MAGNITUDE_DETERMINES_DIRECTION" "SIGN_PLUS_CCLW" 
"CCLW_LARGER_ANGLE" "ALWAYS_CLW"; "ALWAYS_CCLW" "ALWAYS_SHORTEST" "CODE_FORCES_DIR"

 "kin_iks_usage"
 "iks_usage"

 "kin_4th_axis_plane"
 "kin_5th_axis_plane"

 "kin_pivot_dist_vec"
 "kin_pivot_gauge_offset"

 "kin_coordinate_type" ; "POLAR"

  ;POSX, POSY, POSZ, NEGX, NEGY, NEGZ
 "kin_holder1_orientation" ,  "kin_holder1_offset_x" ,  "kin_holder1_offset_y" ,  "kin_holder1_offset_z"
 "kin_holder2_orientation" ,  "kin_holder2_offset_x" ,  "kin_holder2_offset_y" ,  "kin_holder2_offset_z"
 "kin_holder3_orientation" ,  "kin_holder3_offset_x" ,  "kin_holder3_offset_y" ,  "kin_holder3_offset_z"
 "kin_holder4_orientation" ,  "kin_holder4_offset_x" ,  "kin_holder4_offset_y" ,  "kin_holder4_offset_z"
 "kin_holder5_orientation" ,  "kin_holder5_offset_x" ,  "kin_holder5_offset_y" ,  "kin_holder5_offset_z"
 "kin_holder6_orientation" ,  "kin_holder6_offset_x" ,  "kin_holder6_offset_y" ,  "kin_holder6_offset_z"

 "kin_polar_radius_side" ; "POSITIVE" "NEGATIVE"

 "kin_nurbs_output_type" ; BSPLINE, HEIDENHAIN_POLY, SIEMENS_POLY

 "kin_independent_head" ; FRONT, REAR, RIGHT, LEFT, SIDE, SADDLE, NONE

 "kin_ind_to_dependent_head_x"
 "kin_ind_to_dependent_head_z"

 "kin_clsf_generation"

 "kin_no_defaults"

 "kin_read_ahead_next_motion" ;"TRUE"

 "kin_is_turbo_output" ;"TRUE" "FALSE"

 "kin_arc_output_mode" ; FULL_CIRCLE, QUADRANT, LINEAR

 "kin_helical_arc_output_mode" ;FULL_CIRCLE, QUADRANT, LINEAR, END_POINT 
 "kin_arc_valid_plane" ; XYZ, XY, YZ, ZX, ANY
 "kin_min_arc_radius"
 "kin_max_arc_radius"
 "kin_tool_tracking_height"

 "kin_rapid_feed_rate"

 "kin_max_fpm"
 "kin_max_fpr"
 "kin_max_frn"
 "kin_max_dpm"
 "kin_min_fpm"
 "kin_min_fpr"
 "kin_min_frn"
 "kin_min_dpm"
 "kin_tool_change_time"
 "kin_clamp_time"
 "kin_flush_time"
 "kin_spindle_axis" ;"XAXIS" "YAXIS" "ZAXIS"

 "kin_4th_axis_incr_switch" ; ON (incremental) or OFF (absolute)
 "kin_5th_axis_incr_switch"

 "kin_tool_tip_distance_compute_method"

 "sys_linearization_method"; "axis"

Основным классом можно признать UGS::MOM_TCL. Косвенным фактом этого служит обработчик по умолчанию:

 UGS::MOM_TCL::load_default_handlers(void *this) {

proc MOM__halt {} { set pfx_util_done_heading 0;}

proc MOM__util_do_heading {} {
  global pfx_part_name;
  global pfx_logname;
  global pfx_date;
  global pfx_util_done_heading;
  if { $pfx_util_done_heading == 1 } { return };
  MOM__util_print "Informational Output for PART: $pfx_part_name";
  MOM__util_print "Created By: $pfx_logname";
  MOM__util_print "Creation Date: $pfx_date";
  MOM__util_print "===============================================";
  set pfx_util_done_heading 1;
}

proc MOM__util_print_line_context {filename linenum context where} {
  set fl [open $filename r];
  set from [expr $linenum-$context];
  set to [expr $linenum+$context];
  set current 1;
  if { $from < 1 } { set from 1 };
  while { $current <= $to && [gets $fl line] >= 0 } {
   if { $current >= $from } { MOM__util_print "${current}: $line"; }
   set current [incr current];
  };
  close $fl;
}

proc MOM__util_print { line } {
  set f [open "./pfx_information.out" a];
  puts $f $line;
  flush $f;
  close $f;
}

proc MOM__boot {} { global pfx_util_done_heading; set pfx_util_done_heading 0;}

set pfx_debug_init_done 0;
set pfx_debug_events 0;
set pfx_debug_vars 0;
set pfx_debug_num_flag 0;
set pfx_debug_range_flag 0;
set pfx_debug_range_lower 0;
set pfx_debug_range_upper 0;
set pfx_debug_event_num 0;
set pfx_parse_error "";
set pfx_parse_file_name "";
set pfx_parse_line_number "";
set pfx_parse_line "";
set pfx_error_info "";
set pfx_error_code "";
set pfx_error_event "";
set pfx_error_event_handler_name "";

set pfx_parse_error "";
set pfx_parse_file_name "";
set pfx_parse_line_number "";
set pfx_parse_line "";
set pfx_error_info "";
set pfx_error_code "";
set pfx_error_event "";
set pfx_error_event_handler_name "";

proc PFX_on_event_error {} {
  global pfx_error_info;
  global pfx_error_code;
  global pfx_error_event;
  global pfx_error_event_handler_name;
  MOM__util_print "***** A TCL Error Has Occurred *****";
  MOM__util_print "Event Handler: $pfx_error_event_handler_name";
  MOM__util_print "Event: $pfx_error_event";
  MOM__util_print "Error Info: $pfx_error_info";
  MOM__util_print "Error Code: $pfx_error_code";
}

proc PFX_on_parse_error {} {
  global pfx_parse_error;
  global pfx_parse_file_name;
  global pfx_parse_line_number;
  global pfx_parse_line;
  MOM__util_print "***** A Parse Error Has Ocurred *****";
  MOM__util_print "Definition file: $pfx_parse_file_name";
  MOM__util_print "In Or Near Line Number: $pfx_parse_line_number";
  MOM__util_print_line_context $pfx_parse_file_name $pfx_parse_line_number 3 stdonly;
  MOM__util_print "Parser error message: $pfx_parse_error";
}

proc PFX_catch_warning {} {
  global pfx_warning_info;
  MOM__util_do_heading;
  MOM__util_print "";
  MOM__util_print "+++MOM WARNING+++";
  MOM__util_print "Info: $pfx_warning_info";
  MOM__util_print "";
}

proc PFX_on_event_error_debug {} {
  global pfx_error_info;
  global pfx_error_code;
  global pfx_error_event;
  global pfx_error_event_handler_name;
  MOM__util_print "";
  MOM__util_print "***ERROR***: Error in the Event Handler";
  MOM__util_print "---------------------------------------";
  MOM__util_print "Event Handler: $pfx_error_event_handler_name";
  MOM__util_print "Event: $pfx_error_event";
  MOM__util_print "Error Info: $pfx_error_info";
  MOM__util_print "Error Code: $pfx_error_code";
  MOM__util_print "";
}

proc PFX_on_parse_error_debug {} {
  global pfx_parse_error;
  global pfx_parse_file_name;
  global pfx_parse_line_number;
  global pfx_parse_line;
  MOM__util_print "";
  MOM__util_print "***ERROR***: Parse Error in the Definition File";
  MOM__util_print "--------------------------------------------------";
  MOM__util_print "Definition file: $pfx_parse_file_name";
  MOM__util_print "In Or Near Line Number: $pfx_parse_line_number";
  MOM__print_line_context $pfx_parse_file_name $pfx_parse_line_number 3 fileonly
  MOM__util_print "Line: $pfx_parse_line";
  MOM__util_print "Parser error message: $pfx_parse_error";
  MOM__util_print "";
}

proc PFX_end_debug {} { global pfx_util_done_heading; set pfx_util_done_heading 0; }

proc PFX_init_debug {} {
  global pfx_debug_init_done;
  global pfx_part_name;
  global pfx_logname;
  global pfx_date;
  global pfx_util_done_heading;
  global pfx_debug_events pfx_debug_vars pfx_debug_num_flag;
  global pfx_debug_range_flag pfx_debug_range_lower pfx_debug_range_upper;
  MOM__util_print "Set Debugging Options";
  PFX_set_defaults;
  if { [file exists mom_debug_answers] } {
    PFX_read_answers;
    MOM__util_print "Use the answers found in mom_debug_answers.";
  } else {
    MOM__util_print "Use default answers.";
  };
  MOM__util_print "Answers: $pfx_debug_events $pfx_debug_vars $pfx_debug_num_flag \
                       $pfx_debug_range_flag $pfx_debug_range_lower $pfx_debug_range_upper";
  set pfx_util_done_heading 0;
  set pfx_debug_init_done 1;
}

proc PFX_read_answers {} {
  global pfx_debug_events;
  global pfx_debug_vars;
  global pfx_debug_num_flag;
  global pfx_debug_range_flag;
  global pfx_debug_range_lower;
  global pfx_debug_range_upper;
  set f [open mom_debug_answers r];
  gets $f pfx_debug_events;
  gets $f pfx_debug_vars;
  gets $f pfx_debug_num_flag;
  gets $f pfx_debug_range_flag;
  if { $pfx_debug_range_flag == 1 } {
    gets $f pfx_debug_range_lower;
    gets $f pfx_debug_range_upper;
  };
  close $f;
}

proc PFX_set_defaults {} {
  global pfx_debug_events;
  global pfx_debug_vars;
  global pfx_debug_num_flag;
  global pfx_debug_range_flag;
  global pfx_debug_range_lower;
  global pfx_debug_range_upper;
  set pfx_debug_events 1;
  set pfx_debug_vars 0;
  set pfx_debug_num_flag 1;
  set pfx_debug_range_flag 0;
  set pfx_debug_range_lower 0;
  set pfx_debug_range_upper 0;
}

proc PFX_before_each_add_var {} {
  global pfx_debug_assign_var;
  global pfx_debug_vars;
  global pfx_debug_event_num;
  global pfx_debug_range_lower pfx_debug_range_upper pfx_debug_range_flag;
  if { $pfx_debug_vars == 0 } { return };
  MOM__util_do_heading;
  set num $pfx_debug_event_num;
  incr num;
  if { $pfx_debug_range_flag == 1 } {
    if { $num < $pfx_debug_range_lower || $num > $pfx_debug_range_upper } { return };
  };
  MOM__util_print "Var: $pfx_debug_assign_var";
}

proc PFX_before_each_event {} {
  global pfx_debug_event_name;
  global pfx_debug_events pfx_debug_range_flag pfx_debug_event_num;
  global pfx_debug_range_lower pfx_debug_range_upper pfx_debug_num_flag;
  incr pfx_debug_event_num;
  if { $pfx_debug_events == 0 } { return };
  if { $pfx_debug_range_flag == 1 } {
    if { $pfx_debug_event_num < $pfx_debug_range_lower || $pfx_debug_event_num > $pfx_debug_range_upper } { return };
  };
  MOM__util_do_heading;
  if { $pfx_debug_num_flag == 1 } { set num $pfx_debug_event_num; } else { set num ""; };
  MOM__util_print ""; 
  MOM__util_print "Event ${num}: $pfx_debug_event_name";
  MOM__util_print "--------------------------------------------------";
  MOM__util_print "";
}

}

Что делает этот код - я не знаю. Наверно он служит для каких-то отладочных мероприятий.

Подведем итоги.

Copyright © 2001—2009 че