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

admin

& I/ v5 `7 Z, N4 U, \* Q  o2 O
# A$ S2 _: M6 |! D9 U$ F做Check Mate功能包常用的几个信息输出打印方法
# d& _7 K8 m9 K% T) u& y3 k
5 I9 i5 H0 W# O( ^#  Checker function
(Any Uncached) do_check:
0 Z9 q, a! ^- |" F6 L6 S' t) b1 k@{
+ J8 _6 J8 f* `2 _    $tag << XXXXX();
    $log_option << Nth( log_type:, log_type_option: );
    $log_str << mqc_sprintf ("XXXXXXXXXX: %s", UG_askObjectName(%mqc_askHostpointerOfTag($tag)) );
/ M2 @5 f% U9 p& L   
% D! A6 u: ^0 [6 Q! E  Z4 [* M    if ($tag > 0) Then
    @{
3 m+ X6 q* ?# D  C9 }& J, A& g        ug_PrintValue($log_str);
        mqc_logError( $tag, {}, $log_str );
    }
/ V! s" Q* \2 k( u, i    else
# p( O3 m+ H# E7 n2 O. z# O6 u9 S, `        mqc_log( $log_option, {}, "No active SkeTCh found.");
};
7 g8 n  |7 U- ]1 ^( z
, [; ~( v$ [; b7 e  l$ E