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

admin

) O+ a* _% s' M; W- Q
做Check Mate功能包常用的几个信息输出打印方法
( a5 [, a; b% r6 R( x1 r' q8 D7 ?
, B' G" E5 X# K' @  ?6 k+ Q6 x% p& F#  Checker function
; E) B" e' W" I) y  z- S, ^(Any Uncached) do_check:
@{
/ Z9 ?& v% {; H8 @" ?. P    $tag << XXXXX();
    $log_option << Nth( log_type:, log_type_option: );
* V' I  A% j, o+ f% Q    $log_str << mqc_sprintf ("XXXXXXXXXX: %s", UG_askObjectName(%mqc_askHostpointerOfTag($tag)) );
( ?, u/ b; Y5 r# B   
& j, N8 [% o6 G) t% r    if ($tag > 0) Then
    @{
3 M4 N" O& f7 Y9 n1 H$ i. I        ug_PrintValue($log_str);
8 |4 l7 ?! X8 \! u' ~& i1 t        mqc_logError( $tag, {}, $log_str );
2 W# w! {2 F8 e/ f" ^' X2 t    }
    else
8 W  }* `- B+ U# f        mqc_log( $log_option, {}, "No active SkeTCh found.");
5 F# q( s8 v) c; m5 u: ^/ E};
' H: r' |: }' E2 P6 F' v, ~
* B# \( |, r) s# M8 {  a9 o