Lines Matching refs:Tcl_Interp
37 Tcl_Interp *masterInterp; /* Master interpreter for this slave. */
43 Tcl_Interp *slaveInterp; /* The slave interpreter. */
61 Tcl_Interp *targetInterp; /* Master interpreter. */
93 Tcl_Interp *slaveInterp; /* Slave Interpreter. */
128 Tcl_Interp *currentInterp, int argc, char **argv));
131 static int AliasHelper _ANSI_ARGS_((Tcl_Interp *curInterp,
132 Tcl_Interp *slaveInterp, Tcl_Interp *masterInterp,
135 static int CreateInterpObject _ANSI_ARGS_((Tcl_Interp *interp,
137 static Tcl_Interp *CreateSlave _ANSI_ARGS_((Tcl_Interp *interp,
139 static int DeleteAlias _ANSI_ARGS_((Tcl_Interp *interp,
140 Tcl_Interp *slaveInterp, char *aliasName));
141 static int DescribeAlias _ANSI_ARGS_((Tcl_Interp *interp,
142 Tcl_Interp *slaveInterp, char *aliasName));
143 static int DeleteInterpObject _ANSI_ARGS_((Tcl_Interp *interp,
145 static int DeleteOneInterpObject _ANSI_ARGS_((Tcl_Interp *interp,
147 static Tcl_Interp *GetInterp _ANSI_ARGS_((Tcl_Interp *interp,
150 static int GetTarget _ANSI_ARGS_((Tcl_Interp *interp, char *path,
153 ClientData clientData, Tcl_Interp *interp));
154 static int MakeSafe _ANSI_ARGS_((Tcl_Interp *interp));
155 static int SlaveAliasHelper _ANSI_ARGS_((Tcl_Interp *interp,
158 Tcl_Interp *interp, int argc, char **argv));
162 ClientData clientData, Tcl_Interp *interp));
218 Tcl_Interp *interp; /* Interp in which to report errors. */
219 Tcl_Interp *cmdInterp; /* Interp in which the command is
307 Tcl_Interp *interp; /* Interpreter to be made safe. */
394 static Tcl_Interp *
396 Tcl_Interp *interp; /* Interp. to start search from. */
405 Tcl_Interp *searchInterp; /* Interim storage for interp. to find. */
410 return (Tcl_Interp *) NULL;
418 return (Tcl_Interp *) NULL;
422 if (searchInterp == (Tcl_Interp *) NULL) {
424 return (Tcl_Interp *) NULL;
431 return (Tcl_Interp *) NULL;
449 * Returns the new Tcl_Interp * if successful or NULL if not. If failed,
458 static Tcl_Interp *
460 Tcl_Interp *interp; /* Interp. to start search from. */
465 Tcl_Interp *slaveInterp; /* Ptr to slave interpreter. */
466 Tcl_Interp *masterInterp; /* Ptr to master interp for slave. */
481 return (Tcl_Interp *) NULL;
492 if (masterInterp == (Tcl_Interp *) NULL) {
497 return (Tcl_Interp *) NULL;
510 return (Tcl_Interp *) NULL;
513 if (slaveInterp == (Tcl_Interp *) NULL) {
546 slaveInterp = (Tcl_Interp *) NULL;
572 Tcl_Interp *interp; /* Invoking interpreter. */
652 Tcl_Interp *interp; /* Interpreter for reporting errors. */
657 Tcl_Interp *masterInterp; /* Master of interp. to delete. */
684 if (masterInterp == (Tcl_Interp *) NULL) {
733 Tcl_Interp *interp; /* Interpreter start search from. */
770 Tcl_Interp *curInterp; /* Interp that invoked this proc. */
771 Tcl_Interp *slaveInterp; /* Interp where alias cmd will live
774 Tcl_Interp *masterInterp; /* Interp where target cmd will be. */
802 slavePtr->masterInterp = (Tcl_Interp *) NULL;
933 Tcl_Interp *interp; /* Current interpreter. */
938 Tcl_Interp *slaveInterp, /* Interpreters used when */
953 if (slaveInterp == (Tcl_Interp *) NULL) {
971 if (masterInterp == (Tcl_Interp *) NULL) {
1001 Tcl_Interp *interp; /* Interpreter for result and errors. */
1002 Tcl_Interp *slaveInterp; /* Interpreter defining alias. */
1023 slavePtr->masterInterp = (Tcl_Interp *) NULL;
1063 Tcl_Interp *interp; /* Interpreter for result and errors. */
1064 Tcl_Interp *slaveInterp; /* Interpreter defining alias. */
1139 Tcl_Interp *askingInterp; /* Interpreter to start search from. */
1140 Tcl_Interp *targetInterp; /* Interpreter to find. */
1148 if (targetInterp == (Tcl_Interp *) NULL) {
1193 Tcl_Interp *askingInterp; /* Interpreter to start search from. */
1197 Tcl_Interp *slaveInterp; /* Interim storage for slave. */
1211 if (slaveInterp == (Tcl_Interp *) NULL) {
1262 Tcl_Interp *interp; /* Current interpreter. */
1266 Tcl_Interp *slaveInterp; /* A slave. */
1267 Tcl_Interp *masterInterp; /* A master. */
1305 if (slaveInterp == (Tcl_Interp *) NULL) {
1344 if (slaveInterp == (Tcl_Interp *) NULL) {
1403 (Tcl_Interp *) NULL) {
1425 if (slaveInterp == (Tcl_Interp *) NULL) {
1449 (Tcl_Interp *) NULL) {
1470 if (masterInterp == (Tcl_Interp *) NULL) {
1476 if (slaveInterp == (Tcl_Interp *) NULL) {
1511 if (masterInterp == (Tcl_Interp *) NULL) {
1517 if (slaveInterp == (Tcl_Interp *) NULL) {
1569 Tcl_Interp *interp; /* Current interpreter. */
1575 Tcl_Interp *slaveInterp; /* Slave interpreter. */
1591 slaveInterp = (Tcl_Interp *) clientData;
1592 if (slaveInterp == (Tcl_Interp *) NULL) {
1762 Tcl_Interp *slaveInterp; /* And for a slave interp. */
1764 slaveInterp = (Tcl_Interp *) clientData;
1824 Tcl_Interp *interp; /* Current interpreter. */
1874 Tcl_ResetResult((Tcl_Interp *) iPtr);
1875 result = (cmdInfo.proc)(cmdInfo.clientData, (Tcl_Interp *) iPtr,
1883 Tcl_ResetResult((Tcl_Interp *) iPtr);
1915 if (interp != (Tcl_Interp *) iPtr) {
1933 Tcl_AddErrorInfo((Tcl_Interp *) iPtr, "");
1937 Tcl_AddErrorInfo(interp, Tcl_GetVar2((Tcl_Interp *) iPtr,
1940 Tcl_GetVar2((Tcl_Interp *) iPtr, "errorCode",
1950 Tcl_ResetResult((Tcl_Interp *) iPtr);
2025 Tcl_Interp *interp; /* Interpreter being deleted. */
2079 Tcl_Interp *interp; /* Interpreter being deleted. */
2183 Tcl_Interp *interp; /* Interpreter to initialize. */
2217 Tcl_Interp *interp; /* Is this interpreter "safe" ? */
2221 if (interp == (Tcl_Interp *) NULL) {
2250 Tcl_Interp *interp; /* Make this interpreter "safe". */
2252 if (interp == (Tcl_Interp *) NULL) {
2282 Tcl_Interp *
2284 Tcl_Interp *interp; /* Interpreter to start search at. */
2288 if ((interp == (Tcl_Interp *) NULL) || (slavePath == (char *) NULL)) {
2303 * Returns a Tcl_Interp * for the named interpreter or NULL if not
2312 Tcl_Interp *
2314 Tcl_Interp *interp; /* Interpreter to start search from. */
2319 if ((interp == (Tcl_Interp *) NULL) || (slavePath == (char *) NULL)) {
2338 * Returns a Tcl_Interp * for the master interpreter or NULL if none.
2346 Tcl_Interp *
2348 Tcl_Interp *interp; /* Get the master of this interpreter. */
2352 if (interp == (Tcl_Interp *) NULL) {
2382 Tcl_Interp *slaveInterp; /* Interpreter for source command. */
2384 Tcl_Interp *targetInterp; /* Interpreter for target command. */
2391 if ((slaveInterp == (Tcl_Interp *) NULL) ||
2392 (targetInterp == (Tcl_Interp *) NULL) ||
2428 Tcl_Interp *interp; /* Interp to start search from. */
2430 Tcl_Interp **targetInterpPtr; /* (Return) target interpreter. */
2439 if ((interp == (Tcl_Interp *) NULL) || (aliasName == (char *) NULL)) {
2453 if (targetInterpPtr != (Tcl_Interp **) NULL) {