Posted to tcl by sondela at Mon Sep 03 18:21:29 GMT 2018view pretty
void do_something(mydata_t *data) { Tcl_Obj *cmd = data->cmd_prefix; if (cmd_prefix != NULL) { cmd = Tcl_DuplicateObj(cmd); // NOTE: do I need to call 'Tcl_IncrRefCount()'? Tcl_ListObjAppendElement(data->interp, cmd, data->value); Tcl_EvalObjEx(data->interp, cmd, TCL_EVAL_GLOBAL); Tcl_DecrRefCount(cmd); } Tcl_DecrRefCount(data->cmd_prefix); }