CODEWITHSUNDEEP
tcltclsh
piper
piper

Reputation: 87

How to correctly rename Tcl commands defined in c

I defined a tcl command in c++

Tcl_CreateObjCommand(interp, "myproc", myproc_func, nullptr, nullptr);

in tclsh

% rename myproc newproc

in C code

myproc_func(ClientData clientData,Tcl_Interp *interp,int objc,Tcl_Obj *const objv[])

at this moment when I run

% newproc

It will call myproc's function, which is myproc_func, but at this time myproc_func's objv[0]->bytes corresponds to the name "newproc", which causes me to fail in looking for the function corresponding to the function name named newproc.

Is it possible to map commands after rename to commands before in tcl?

Upvotes: 0

Views: 178

Answers (1)

Donal Fellows
Donal Fellows

Reputation: 137577

If you want to get a handle to an existing command that persists through renames, you should use Tcl_GetCommandFromObj() to get an opaque Tcl_Command handle (it's also returned by Tcl_CreateCommand() and Tcl_CreateObjCommand()). Renames do not alter that handle; they affect the process of going from the command name to the handle. You can get the current name of the command from the handle. (You can't invoke it directly through the handle though; that's not a public API we ever made. The internal API is tangled up in execution trace processing, so we don't expose that or even use it much ourselves outside of the implementation of the public API that is Tcl_EvalObjv() and its internal analog TclEvalObjv().)

Note that if you do this, you should set a delete trace on the command so that you know when to stop holding on to the handle.

There is no equivalent to the Tcl_Command handle in the Tcl script level API at all. The concept is not exposed.

The Tcl_Command is actually a pointer to a structure that contains the sort of information you can retrieve with Tcl_GetCommandInfoFromToken() as well as flags and pointers into various hash tables, trace tracking info, etc, but you should pretend you don't know about that. The internals of that are not part of the API at all, and may be subject to being changed between point releases of Tcl without notice.

Upvotes: 1

Related Questions