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

admin

1 I* {, k9 M, Y( i6 B; |
! o6 D' D" s3 T4 k) K$ m( H- C做Check Mate功能包常用的几个信息输出打印方法
- p" f# i! w. B9 ~+ q6 _
) f/ W* ^& W" Q#  Checker function
(Any Uncached) do_check:
@{
! L7 p' m8 f) s8 H- S7 X. m    $tag << XXXXX();
8 n2 Z1 s5 S% c% t0 ?6 q! j  K$ O3 `- T    $log_option << Nth( log_type:, log_type_option: );
2 O! x( e2 H9 b$ E  y; F    $log_str << mqc_sprintf ("XXXXXXXXXX: %s", UG_askObjectName(%mqc_askHostpointerOfTag($tag)) );
   
    if ($tag > 0) Then
% x7 M- S4 O- d5 Q& t& j- ?    @{
        ug_PrintValue($log_str);
& p; n6 @4 h+ d* W5 i6 q4 A        mqc_logError( $tag, {}, $log_str );
    }
    else
4 x7 x  b, [. q/ W2 g. f3 [        mqc_log( $log_option, {}, "No active SkeTCh found.");
: x& Z% G2 Y# P% g};