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

admin

' w' [  r: M# q
做Check Mate功能包常用的几个信息输出打印方法
# B% {' s- J+ z2 a; C0 k4 E
( P+ {* u9 m7 a#  Checker function
. C) I. z9 T1 ]! H1 ^1 d6 K/ O(Any Uncached) do_check:
7 Y5 @  c1 c3 j. t4 U3 v@{
, `( H9 M5 A* V& u: p    $tag << XXXXX();
: q/ s! j# G0 z* k7 ]    $log_option << Nth( log_type:, log_type_option: );
# ^4 v! Z% w& v7 Q% u- O    $log_str << mqc_sprintf ("XXXXXXXXXX: %s", UG_askObjectName(%mqc_askHostpointerOfTag($tag)) );
: z9 ^$ ^" y4 h& X- k5 b) [) x   
    if ($tag > 0) Then
+ }3 o5 W7 S5 n7 f& W+ y    @{
        ug_PrintValue($log_str);
        mqc_logError( $tag, {}, $log_str );
    }
    else
        mqc_log( $log_option, {}, "No active SkeTCh found.");
8 P& `, g& P/ T4 j3 T: M% Q/ h};
2 N4 Y" ]$ U( y. k( Z# S
" O+ f. x9 @& R  |. x" b6 `& y, P