#include <tcl.h> int Tcl_IsSafe(interp) int Tcl_MakeSafe(interp) Tcl_Interp * Tcl_CreateSlave(interp, slaveName, isSafe) Tcl_Interp * Tcl_GetSlave(interp, slaveName) Tcl_Interp * Tcl_GetMaster(interp) int Tcl_GetInterpPath(askingInterp, slaveInterp) int Tcl_CreateAlias(slaveInterp, srcCmd, targetInterp, targetCmd, argc, argv) int Tcl_CreateAliasObj(slaveInterp, srcCmd, targetInterp, targetCmd, objc, objv) int Tcl_GetAlias(interp, srcCmd, targetInterpPtr, targetCmdPtr, argcPtr, argvPtr) int Tcl_GetAliasObj(interp, srcCmd, targetInterpPtr, targetCmdPtr, objcPtr, objvPtr) int Tcl_ExposeCommand(interp, hiddenCmdName, cmdName) int Tcl_HideCommand(interp, cmdName, hiddenCmdName)
Tcl_CreateSlave creates a new interpreter as a slave of interp. It also creates a slave command named slaveName in interp which allows interp to manipulate the new slave. If isSafe is zero, the command creates a trusted slave in which Tcl code has access to all the Tcl commands. If it is 1, the command creates a ``safe'' slave in which Tcl code has access only to set of Tcl commands defined as ``Safe Tcl''; see the manual entry for the Tcl interp command for details. If the creation of the new slave interpreter failed, NULL is returned.
Tcl_IsSafe returns 1 if interp is ``safe'' (was created with the TCL_SAFE_INTERPRETER flag specified), 0 otherwise.
Tcl_MakeSafe makes interp ``safe'' by removing all non-core and core unsafe functionality. Note that if you call this after adding some extension to an interpreter, all traces of that extension will be removed from the interpreter.
Tcl_GetSlave returns a pointer to a slave interpreter of interp. The slave interpreter is identified by slaveName. If no such slave interpreter exists, NULL is returned.
Tcl_GetMaster returns a pointer to the master interpreter of interp. If interp has no master (it is a top-level interpreter) then NULL is returned.
Tcl_GetInterpPath sets the result field in askingInterp to the relative path between askingInterp and slaveInterp; slaveInterp must be a slave of askingInterp. If the computation of the relative path succeeds, TCL_OK is returned, else TCL_ERROR is returned and the result field in askingInterp contains the error message.
Tcl_CreateAlias creates an object command named srcCmd in
slaveInterp that when invoked, will cause the command targetCmd
to be invoked in targetInterp. The arguments specified by the strings
contained in argv are always prepended to any arguments supplied in the
invocation of srcCmd and passed to targetCmd.
This operation returns TCL_OK if it succeeds, or TCL_ERROR if
it fails; in that case, an error message is left in the object result
of slaveInterp.
Note that there are no restrictions on the ancestry relationship (as
created by Tcl_CreateSlave) between slaveInterp and
targetInterp. Any two interpreters can be used, without any
restrictions on how they are related.
Tcl_CreateAliasObj is similar to Tcl_CreateAliasObj except
that it takes a vector of objects to pass as additional arguments instead
of a vector of strings.
Tcl_GetAlias returns information about an alias aliasName
in interp. Any of the result fields can be NULL, in
which case the corresponding datum is not returned. If a result field is
non-NULL, the address indicated is set to the corresponding datum.
For example, if targetNamePtr is non-NULL it is set to a
pointer to the string containing the name of the target command.
Tcl_GetAliasObj is similar to Tcl_GetAlias except that it
returns a pointer to a vector of Tcl_Obj structures instead of a vector of
strings.
Tcl_ExposeCommand moves the command named hiddenCmdName from
the set of hidden commands to the set of exposed commands, renaming it to
cmdName. HiddenCmdName must be the name of an existing hidden
command, or the operation will return TCL_ERROR and deposit an error
message in the result field in interp.
If an exposed command named cmdName already exists,
the operation returns TCL_ERROR and leaves an error message in the
object result of interp.
If the operation succeeds, it returns TCL_OK.
After executing this command, attempts to use cmdName in a call to
Tcl_Eval or with the Tcl eval command will again succeed.
Tcl_HideCommand moves the command named cmdName from the set of
exposed commands to the set of hidden commands, renaming it to
hiddenCmdName. CmdName must be the name of an existing exposed
command, or the operation will return TCL_ERROR and leave an error
message in the object result of interp.
If a hidden command named hiddenCmdName already
exists, the operation also returns TCL_ERROR and the result
field in interp contains an error message.
If the operation succeeds, it returns TCL_OK.
After executing this command, attempts to use cmdName in a call to
Tcl_Eval or with the Tcl eval command will fail.
SEE ALSO
For a description of the Tcl interface to multiple interpreters, see
interp(n).KEYWORDS
alias, command, exposed commands, hidden commands, interpreter, invoke,
master, slave,
Copyright © 1989-1994 The Regents of the University of California.
Copyright © 1994-1997 Sun Microsystems, Inc.