Posted to tcl by sondela at Mon Sep 03 18:21:29 GMT 2018view raw
- 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);
- }