Posted to tcl by sondela at Mon Sep 03 18:21:29 GMT 2018view raw

  1. void do_something(mydata_t *data)
  2. {
  3. Tcl_Obj *cmd = data->cmd_prefix;
  4.  
  5. if (cmd_prefix != NULL) {
  6. cmd = Tcl_DuplicateObj(cmd);
  7. // NOTE: do I need to call 'Tcl_IncrRefCount()'?
  8.  
  9. Tcl_ListObjAppendElement(data->interp, cmd, data->value);
  10. Tcl_EvalObjEx(data->interp, cmd, TCL_EVAL_GLOBAL);
  11. Tcl_DecrRefCount(cmd);
  12. }
  13.  
  14. Tcl_DecrRefCount(data->cmd_prefix);
  15. }
  16.