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

admin

+ u& b& K: ?, R
1 b7 _1 K, X. c5 x  |7 k+ l/ l8 o做Check Mate功能包常用的几个信息输出打印方法
( F: O3 q" |3 t; M
#  Checker function
7 f- x7 W" c8 Z(Any Uncached) do_check:
2 Q  w- A0 N5 N' H$ _0 r( A( W@{
    $tag << XXXXX();
    $log_option << Nth( log_type:, log_type_option: );
/ k: O  `6 R% y$ ?% d! S    $log_str << mqc_sprintf ("XXXXXXXXXX: %s", UG_askObjectName(%mqc_askHostpointerOfTag($tag)) );
! A/ }3 J* r# _: y   
' X; g" w' Y5 C- R/ o    if ($tag > 0) Then
    @{
        ug_PrintValue($log_str);
$ E9 T2 d+ z8 R* ~1 s, R        mqc_logError( $tag, {}, $log_str );
5 q: R  _+ B2 {7 {) _    }
# R8 t) L2 @/ x    else
        mqc_log( $log_option, {}, "No active SkeTCh found.");
: ?, M: x! ]  L};
1 ?# _4 D7 E" A
. i6 V1 A; K8 T, e