Fix double logging

Signed-off-by: JR <[email protected]>

Author: RayChang987

src/Main.cc

@@ -82,7 +82,7 @@ int cmd_argc;
 char** cmd_argv;
 static const char* log_filename = nullptr;
 static const char* metrics_filename = nullptr;
-static std::unique_ptr<std::set<std::string>> commands;
+static std::unique_ptr<std::set<std::string>> commands, sta_commands;
 static bool no_settings = false;
 static bool minimize = false;
 
@@ -393,7 +393,7 @@ static int TraceTclCommand(
       Tcl_Obj *fullName = Tcl_NewObj();
       Tcl_GetCommandFullName(interp, commandToken, fullName);
       string fullName_str = Tcl_GetString(fullName);
-      if(fullName_str.compare(0, 7, "::sta::")!=0){
+      if(fullName_str.compare(0, 7, "::sta::")==0||!sta_commands->count(Tcl_GetString(objv[0]))){
         logger->report("[CMD] "+cmd_str);
       }
     }
@@ -461,6 +461,7 @@ static int tclAppInit(int& argc,
     }
 
     commands = std::make_unique<std::set<std::string>>();
+    sta_commands = std::make_unique<std::set<std::string>>();
     if (Tcl_Eval(interp, "array names sta::cmd_args") == TCL_OK) {
       Tcl_Obj* cmd_names = Tcl_GetObjResult(interp);
       int cmd_size;
@@ -472,6 +473,18 @@ static int tclAppInit(int& argc,
         }
       }
     }
+    if (Tcl_Eval(interp, "info commands ::sta::*") == TCL_OK) {
+      Tcl_Obj* cmd_names = Tcl_GetObjResult(interp);
+      int cmd_size;
+      Tcl_Obj** cmds_objs;
+      if (Tcl_ListObjGetElements(interp, cmd_names, &cmd_size, &cmds_objs)
+          == TCL_OK) {
+        for (int i = 0; i < cmd_size; i++) {
+          string str = Tcl_GetString(cmds_objs[i]);
+          sta_commands->insert(string(str.begin()+7, str.end()));
+        }
+      }
+    }
     Tcl_CreateObjTrace(
           interp,
           0,