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);
}