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

admin

6 e; t; Z  @( _% D" I% f2 d
+ o, n" y. V3 C2 l, l$ [; Z& \做Check Mate功能包常用的几个信息输出打印方法
# d& Z% Y# l8 |; \
#  Checker function
(Any Uncached) do_check:
@{
, n( h- a" U: S/ l9 g6 E* C    $tag << XXXXX();
% S2 a/ W. ?+ A    $log_option << Nth( log_type:, log_type_option: );
    $log_str << mqc_sprintf ("XXXXXXXXXX: %s", UG_askObjectName(%mqc_askHostpointerOfTag($tag)) );
! J: ^& J3 }0 U# w" v: Z   
' t8 u( i8 e* r# L    if ($tag > 0) Then
    @{
3 H( y2 w9 N+ g& G' i' b* Z        ug_PrintValue($log_str);
        mqc_logError( $tag, {}, $log_str );
+ E8 B1 a7 [9 D3 R" M4 k, a    }
6 w$ n' z6 ?+ V/ C7 P    else
8 v5 K$ _3 x7 _% [3 Z+ i        mqc_log( $log_option, {}, "No active SkeTCh found.");
8 v( C8 h0 e& D2 O' R};
/ C: V: u0 a/ U0 e2 I
) a! p1 j0 \8 w* J/ b9 r0 }% U