| 1 | '\" |
|---|
| 2 | '\" Copyright (c) 1995-1996 Sun Microsystems, Inc. |
|---|
| 3 | '\" |
|---|
| 4 | '\" See the file "license.terms" for information on usage and redistribution |
|---|
| 5 | '\" of this file, and for a DISCLAIMER OF ALL WARRANTIES. |
|---|
| 6 | '\" |
|---|
| 7 | '\" RCS: @(#) $Id: CrtSlave.3,v 1.20 2007/12/13 15:22:30 dgp Exp $ |
|---|
| 8 | '\" |
|---|
| 9 | .so man.macros |
|---|
| 10 | .TH Tcl_CreateSlave 3 7.6 Tcl "Tcl Library Procedures" |
|---|
| 11 | .BS |
|---|
| 12 | .SH NAME |
|---|
| 13 | Tcl_IsSafe, Tcl_MakeSafe, Tcl_CreateSlave, Tcl_GetSlave, Tcl_GetMaster, Tcl_GetInterpPath, Tcl_CreateAlias, Tcl_CreateAliasObj, Tcl_GetAlias, Tcl_GetAliasObj, Tcl_ExposeCommand, Tcl_HideCommand \- manage multiple Tcl interpreters, aliases and hidden commands |
|---|
| 14 | .SH SYNOPSIS |
|---|
| 15 | .nf |
|---|
| 16 | \fB#include <tcl.h>\fR |
|---|
| 17 | .sp |
|---|
| 18 | int |
|---|
| 19 | \fBTcl_IsSafe\fR(\fIinterp\fR) |
|---|
| 20 | .sp |
|---|
| 21 | int |
|---|
| 22 | \fBTcl_MakeSafe\fR(\fIinterp\fR) |
|---|
| 23 | .sp |
|---|
| 24 | Tcl_Interp * |
|---|
| 25 | \fBTcl_CreateSlave\fR(\fIinterp, slaveName, isSafe\fR) |
|---|
| 26 | .sp |
|---|
| 27 | Tcl_Interp * |
|---|
| 28 | \fBTcl_GetSlave\fR(\fIinterp, slaveName\fR) |
|---|
| 29 | .sp |
|---|
| 30 | Tcl_Interp * |
|---|
| 31 | \fBTcl_GetMaster\fR(\fIinterp\fR) |
|---|
| 32 | .sp |
|---|
| 33 | int |
|---|
| 34 | \fBTcl_GetInterpPath\fR(\fIaskingInterp, slaveInterp\fR) |
|---|
| 35 | .sp |
|---|
| 36 | int |
|---|
| 37 | \fBTcl_CreateAlias\fR(\fIslaveInterp, slaveCmd, targetInterp, targetCmd, |
|---|
| 38 | argc, argv\fR) |
|---|
| 39 | .sp |
|---|
| 40 | int |
|---|
| 41 | \fBTcl_CreateAliasObj\fR(\fIslaveInterp, slaveCmd, targetInterp, targetCmd, |
|---|
| 42 | objc, objv\fR) |
|---|
| 43 | .sp |
|---|
| 44 | int |
|---|
| 45 | \fBTcl_GetAlias\fR(\fIinterp, slaveCmd, targetInterpPtr, targetCmdPtr, |
|---|
| 46 | argcPtr, argvPtr\fR) |
|---|
| 47 | .sp |
|---|
| 48 | int |
|---|
| 49 | \fBTcl_GetAliasObj\fR(\fIinterp, slaveCmd, targetInterpPtr, targetCmdPtr, |
|---|
| 50 | objcPtr, objvPtr\fR) |
|---|
| 51 | .sp |
|---|
| 52 | int |
|---|
| 53 | \fBTcl_ExposeCommand\fR(\fIinterp, hiddenCmdName, cmdName\fR) |
|---|
| 54 | .sp |
|---|
| 55 | int |
|---|
| 56 | \fBTcl_HideCommand\fR(\fIinterp, cmdName, hiddenCmdName\fR) |
|---|
| 57 | .SH ARGUMENTS |
|---|
| 58 | .AS "const char *const" **targetInterpPtr out |
|---|
| 59 | .AP Tcl_Interp *interp in |
|---|
| 60 | Interpreter in which to execute the specified command. |
|---|
| 61 | .AP "const char" *slaveName in |
|---|
| 62 | Name of slave interpreter to create or manipulate. |
|---|
| 63 | .AP int isSafe in |
|---|
| 64 | If non-zero, a |
|---|
| 65 | .QW safe |
|---|
| 66 | slave that is suitable for running untrusted code |
|---|
| 67 | is created, otherwise a trusted slave is created. |
|---|
| 68 | .AP Tcl_Interp *slaveInterp in |
|---|
| 69 | Interpreter to use for creating the source command for an alias (see |
|---|
| 70 | below). |
|---|
| 71 | .AP "const char" *slaveCmd in |
|---|
| 72 | Name of source command for alias. |
|---|
| 73 | .AP Tcl_Interp *targetInterp in |
|---|
| 74 | Interpreter that contains the target command for an alias. |
|---|
| 75 | .AP "const char" *targetCmd in |
|---|
| 76 | Name of target command for alias in \fItargetInterp\fR. |
|---|
| 77 | .AP int argc in |
|---|
| 78 | Count of additional arguments to pass to the alias command. |
|---|
| 79 | .AP "const char *const" *argv in |
|---|
| 80 | Vector of strings, the additional arguments to pass to the alias command. |
|---|
| 81 | This storage is owned by the caller. |
|---|
| 82 | .AP int objc in |
|---|
| 83 | Count of additional object arguments to pass to the alias object command. |
|---|
| 84 | .AP Tcl_Obj **objv in |
|---|
| 85 | Vector of Tcl_Obj structures, the additional object arguments to pass to |
|---|
| 86 | the alias object command. |
|---|
| 87 | This storage is owned by the caller. |
|---|
| 88 | .AP Tcl_Interp **targetInterpPtr in |
|---|
| 89 | Pointer to location to store the address of the interpreter where a target |
|---|
| 90 | command is defined for an alias. |
|---|
| 91 | .AP "const char" **targetCmdPtr out |
|---|
| 92 | Pointer to location to store the address of the name of the target command |
|---|
| 93 | for an alias. |
|---|
| 94 | .AP int *argcPtr out |
|---|
| 95 | Pointer to location to store count of additional arguments to be passed to |
|---|
| 96 | the alias. The location is in storage owned by the caller. |
|---|
| 97 | .AP "const char" ***argvPtr out |
|---|
| 98 | Pointer to location to store a vector of strings, the additional arguments |
|---|
| 99 | to pass to an alias. The location is in storage owned by the caller, the |
|---|
| 100 | vector of strings is owned by the called function. |
|---|
| 101 | .AP int *objcPtr out |
|---|
| 102 | Pointer to location to store count of additional object arguments to be |
|---|
| 103 | passed to the alias. The location is in storage owned by the caller. |
|---|
| 104 | .AP Tcl_Obj ***objvPtr out |
|---|
| 105 | Pointer to location to store a vector of Tcl_Obj structures, the additional |
|---|
| 106 | arguments to pass to an object alias command. The location is in storage |
|---|
| 107 | owned by the caller, the vector of Tcl_Obj structures is owned by the |
|---|
| 108 | called function. |
|---|
| 109 | .AP "const char" *cmdName in |
|---|
| 110 | Name of an exposed command to hide or create. |
|---|
| 111 | .AP "const char" *hiddenCmdName in |
|---|
| 112 | Name under which a hidden command is stored and with which it can be |
|---|
| 113 | exposed or invoked. |
|---|
| 114 | .BE |
|---|
| 115 | |
|---|
| 116 | .SH DESCRIPTION |
|---|
| 117 | .PP |
|---|
| 118 | These procedures are intended for access to the multiple interpreter |
|---|
| 119 | facility from inside C programs. They enable managing multiple interpreters |
|---|
| 120 | in a hierarchical relationship, and the management of aliases, commands |
|---|
| 121 | that when invoked in one interpreter execute a command in another |
|---|
| 122 | interpreter. The return value for those procedures that return an \fBint\fR |
|---|
| 123 | is either \fBTCL_OK\fR or \fBTCL_ERROR\fR. If \fBTCL_ERROR\fR is returned |
|---|
| 124 | then the \fBresult\fR field of the interpreter contains an error message. |
|---|
| 125 | .PP |
|---|
| 126 | \fBTcl_CreateSlave\fR creates a new interpreter as a slave of \fIinterp\fR. |
|---|
| 127 | It also creates a slave command named \fIslaveName\fR in \fIinterp\fR which |
|---|
| 128 | allows \fIinterp\fR to manipulate the new slave. |
|---|
| 129 | If \fIisSafe\fR is zero, the command creates a trusted slave in which Tcl |
|---|
| 130 | code has access to all the Tcl commands. |
|---|
| 131 | If it is \fB1\fR, the command creates a |
|---|
| 132 | .QW safe |
|---|
| 133 | slave in which Tcl code has access only to set of Tcl commands defined as |
|---|
| 134 | .QW "Safe Tcl" ; |
|---|
| 135 | see the manual entry for the Tcl \fBinterp\fR command for details. |
|---|
| 136 | If the creation of the new slave interpreter failed, \fBNULL\fR is returned. |
|---|
| 137 | .PP |
|---|
| 138 | \fBTcl_IsSafe\fR returns \fB1\fR if \fIinterp\fR is |
|---|
| 139 | .QW safe |
|---|
| 140 | (was created with the \fBTCL_SAFE_INTERPRETER\fR flag specified), |
|---|
| 141 | \fB0\fR otherwise. |
|---|
| 142 | .PP |
|---|
| 143 | \fBTcl_MakeSafe\fR marks \fIinterp\fR as |
|---|
| 144 | .QW safe , |
|---|
| 145 | so that future |
|---|
| 146 | calls to \fBTcl_IsSafe\fR will return 1. It also removes all known |
|---|
| 147 | potentially-unsafe core functionality (both commands and variables) |
|---|
| 148 | from \fIinterp\fR. However, it cannot know what parts of an extension |
|---|
| 149 | or application are safe and does not make any attempt to remove those |
|---|
| 150 | parts, so safety is not guaranteed after calling \fBTcl_MakeSafe\fR. |
|---|
| 151 | Callers will want to take care with their use of \fBTcl_MakeSafe\fR |
|---|
| 152 | to avoid false claims of safety. For many situations, \fBTcl_CreateSlave\fR |
|---|
| 153 | may be a better choice, since it creates interpreters in a known-safe state. |
|---|
| 154 | .PP |
|---|
| 155 | \fBTcl_GetSlave\fR returns a pointer to a slave interpreter of |
|---|
| 156 | \fIinterp\fR. The slave interpreter is identified by \fIslaveName\fR. |
|---|
| 157 | If no such slave interpreter exists, \fBNULL\fR is returned. |
|---|
| 158 | .PP |
|---|
| 159 | \fBTcl_GetMaster\fR returns a pointer to the master interpreter of |
|---|
| 160 | \fIinterp\fR. If \fIinterp\fR has no master (it is a |
|---|
| 161 | top-level interpreter) then \fBNULL\fR is returned. |
|---|
| 162 | .PP |
|---|
| 163 | \fBTcl_GetInterpPath\fR sets the \fIresult\fR field in \fIaskingInterp\fR |
|---|
| 164 | to the relative path between \fIaskingInterp\fR and \fIslaveInterp\fR; |
|---|
| 165 | \fIslaveInterp\fR must be a slave of \fIaskingInterp\fR. If the computation |
|---|
| 166 | of the relative path succeeds, \fBTCL_OK\fR is returned, else |
|---|
| 167 | \fBTCL_ERROR\fR is returned and the \fIresult\fR field in |
|---|
| 168 | \fIaskingInterp\fR contains the error message. |
|---|
| 169 | .PP |
|---|
| 170 | \fBTcl_CreateAlias\fR creates an object command named \fIslaveCmd\fR in |
|---|
| 171 | \fIslaveInterp\fR that when invoked, will cause the command \fItargetCmd\fR |
|---|
| 172 | to be invoked in \fItargetInterp\fR. The arguments specified by the strings |
|---|
| 173 | contained in \fIargv\fR are always prepended to any arguments supplied in the |
|---|
| 174 | invocation of \fIslaveCmd\fR and passed to \fItargetCmd\fR. |
|---|
| 175 | This operation returns \fBTCL_OK\fR if it succeeds, or \fBTCL_ERROR\fR if |
|---|
| 176 | it fails; in that case, an error message is left in the object result |
|---|
| 177 | of \fIslaveInterp\fR. |
|---|
| 178 | Note that there are no restrictions on the ancestry relationship (as |
|---|
| 179 | created by \fBTcl_CreateSlave\fR) between \fIslaveInterp\fR and |
|---|
| 180 | \fItargetInterp\fR. Any two interpreters can be used, without any |
|---|
| 181 | restrictions on how they are related. |
|---|
| 182 | .PP |
|---|
| 183 | \fBTcl_CreateAliasObj\fR is similar to \fBTcl_CreateAlias\fR except |
|---|
| 184 | that it takes a vector of objects to pass as additional arguments instead |
|---|
| 185 | of a vector of strings. |
|---|
| 186 | .PP |
|---|
| 187 | \fBTcl_GetAlias\fR returns information about an alias \fIaliasName\fR |
|---|
| 188 | in \fIinterp\fR. Any of the result fields can be \fBNULL\fR, in |
|---|
| 189 | which case the corresponding datum is not returned. If a result field is |
|---|
| 190 | non\-\fBNULL\fR, the address indicated is set to the corresponding datum. |
|---|
| 191 | For example, if \fItargetNamePtr\fR is non\-\fBNULL\fR it is set to a |
|---|
| 192 | pointer to the string containing the name of the target command. |
|---|
| 193 | .PP |
|---|
| 194 | \fBTcl_GetAliasObj\fR is similar to \fBTcl_GetAlias\fR except that it |
|---|
| 195 | returns a pointer to a vector of Tcl_Obj structures instead of a vector of |
|---|
| 196 | strings. |
|---|
| 197 | .PP |
|---|
| 198 | \fBTcl_ExposeCommand\fR moves the command named \fIhiddenCmdName\fR from |
|---|
| 199 | the set of hidden commands to the set of exposed commands, putting |
|---|
| 200 | it under the name |
|---|
| 201 | \fIcmdName\fR. |
|---|
| 202 | \fIHiddenCmdName\fR must be the name of an existing hidden |
|---|
| 203 | command, or the operation will return \fBTCL_ERROR\fR and leave an error |
|---|
| 204 | message in the \fIresult\fR field in \fIinterp\fR. |
|---|
| 205 | If an exposed command named \fIcmdName\fR already exists, |
|---|
| 206 | the operation returns \fBTCL_ERROR\fR and leaves an error message in the |
|---|
| 207 | object result of \fIinterp\fR. |
|---|
| 208 | If the operation succeeds, it returns \fBTCL_OK\fR. |
|---|
| 209 | After executing this command, attempts to use \fIcmdName\fR in a call to |
|---|
| 210 | \fBTcl_Eval\fR or with the Tcl \fBeval\fR command will again succeed. |
|---|
| 211 | .PP |
|---|
| 212 | \fBTcl_HideCommand\fR moves the command named \fIcmdName\fR from the set of |
|---|
| 213 | exposed commands to the set of hidden commands, under the name |
|---|
| 214 | \fIhiddenCmdName\fR. |
|---|
| 215 | \fICmdName\fR must be the name of an existing exposed |
|---|
| 216 | command, or the operation will return \fBTCL_ERROR\fR and leave an error |
|---|
| 217 | message in the object result of \fIinterp\fR. |
|---|
| 218 | Currently both \fIcmdName\fR and \fIhiddenCmdName\fR must not contain |
|---|
| 219 | namespace qualifiers, or the operation will return \fBTCL_ERROR\fR and |
|---|
| 220 | leave an error message in the object result of \fIinterp\fR. |
|---|
| 221 | The \fICmdName\fR will be looked up in the global namespace, and not |
|---|
| 222 | relative to the current namespace, even if the current namespace is not the |
|---|
| 223 | global one. |
|---|
| 224 | If a hidden command whose name is \fIhiddenCmdName\fR already |
|---|
| 225 | exists, the operation also returns \fBTCL_ERROR\fR and the \fIresult\fR |
|---|
| 226 | field in \fIinterp\fR contains an error message. |
|---|
| 227 | If the operation succeeds, it returns \fBTCL_OK\fR. |
|---|
| 228 | After executing this command, attempts to use \fIcmdName\fR in a call to |
|---|
| 229 | \fBTcl_Eval\fR or with the Tcl \fBeval\fR command will fail. |
|---|
| 230 | .PP |
|---|
| 231 | For a description of the Tcl interface to multiple interpreters, see |
|---|
| 232 | \fIinterp(n)\fR. |
|---|
| 233 | .SH "SEE ALSO" |
|---|
| 234 | interp |
|---|
| 235 | |
|---|
| 236 | .SH KEYWORDS |
|---|
| 237 | alias, command, exposed commands, hidden commands, interpreter, invoke, |
|---|
| 238 | master, slave |
|---|