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

admin

2 U4 @& O1 w# v$ k# O8 o
4 c5 P# `# r( N% r4 t: J做Check Mate功能包常用的几个信息输出打印方法
5 \# M) C  g* C, `% s1 Y9 B
#  Checker function
(Any Uncached) do_check:
@{
    $tag << XXXXX();
& e/ g9 N8 C! N' v1 i$ S2 o" {$ {    $log_option << Nth( log_type:, log_type_option: );
    $log_str << mqc_sprintf ("XXXXXXXXXX: %s", UG_askObjectName(%mqc_askHostpointerOfTag($tag)) );
   
    if ($tag > 0) Then
! k& j" i/ g7 w    @{
        ug_PrintValue($log_str);
        mqc_logError( $tag, {}, $log_str );
( l. h' l" L) `2 N" Z    }
    else
        mqc_log( $log_option, {}, "No active SkeTCh found.");
9 s9 \4 H7 n  w2 N};

  ~. E2 ?% v2 [! p9 G