做Check Mate功能包常用的几个信息输出打印方法

admin

/ m1 i) Z9 a/ H; e: y+ u
/ ?  v+ B0 _! _  s% ?做Check Mate功能包常用的几个信息输出打印方法

1 R6 I# T1 R0 S$ `- \6 A- t#  Checker function
* A0 h9 V, F! ?* s(Any Uncached) do_check:
1 o% [) `/ P/ M9 A: l@{
( r' n  ^2 f8 K3 W    $tag << XXXXX();
6 P8 {/ H$ M; E7 Y    $log_option << Nth( log_type:, log_type_option: );
4 S* f6 T2 v; \1 o" a; a& R    $log_str << mqc_sprintf ("XXXXXXXXXX: %s", UG_askObjectName(%mqc_askHostpointerOfTag($tag)) );
9 n6 _1 k: p) k   
3 A# l+ D4 d: X    if ($tag > 0) Then
: i8 s6 B& Z  y& G( m3 m$ l/ e2 U    @{
! j  c' ~% u) q' q- t8 \( i        ug_PrintValue($log_str);
+ G& ^6 B& T- G        mqc_logError( $tag, {}, $log_str );
2 Z% ^' k$ l% }& e8 C) u) q    }
4 ^4 r0 O% @9 u+ d. C. j- F( Q    else
7 L1 m5 Q% M5 w$ e* D& ^        mqc_log( $log_option, {}, "No active SkeTCh found.");
0 d8 a4 a$ x7 l8 `};
& f; M% i4 n5 [/ a: H) G% G# t
  Y) b0 }* F) j