Lines Matching defs:slaveInterp
43 Tcl_Interp *slaveInterp; /* The slave interpreter. */
93 Tcl_Interp *slaveInterp; /* Slave Interpreter. */
132 Tcl_Interp *slaveInterp, Tcl_Interp *masterInterp,
140 Tcl_Interp *slaveInterp, char *aliasName));
142 Tcl_Interp *slaveInterp, char *aliasName));
421 searchInterp = slavePtr->slaveInterp;
465 Tcl_Interp *slaveInterp; /* Ptr to slave interpreter. */
512 slaveInterp = Tcl_CreateInterp();
513 if (slaveInterp == (Tcl_Interp *) NULL) {
519 slavePtr->slaveInterp = slaveInterp;
521 SlaveObjectCmd, (ClientData) slaveInterp, SlaveObjectDeleteProc);
523 (void) Tcl_SetAssocData(slaveInterp, "tclSlaveRecord",
526 Tcl_SetVar(slaveInterp, "tcl_interactive", "0", TCL_GLOBAL_ONLY);
528 if (((safe) && (MakeSafe(slaveInterp) == TCL_ERROR)) ||
529 ((!safe) && (Tcl_Init(slaveInterp) == TCL_ERROR))) {
531 Tcl_AddErrorInfo(interp, Tcl_GetVar2(slaveInterp, "errorInfo", (char *)
534 Tcl_GetVar2(slaveInterp, "errorCode", (char *) NULL,
537 if (slaveInterp->freeProc != NULL) {
538 interp->result = slaveInterp->result;
539 interp->freeProc = slaveInterp->freeProc;
540 slaveInterp->freeProc = 0;
542 Tcl_SetResult(interp, slaveInterp->result, TCL_VOLATILE);
544 Tcl_ResetResult(slaveInterp);
546 slaveInterp = (Tcl_Interp *) NULL;
549 return slaveInterp;
768 AliasHelper(curInterp, slaveInterp, masterInterp, masterPtr,
771 Tcl_Interp *slaveInterp; /* Interp where alias cmd will live
793 slavePtr = (Slave *) Tcl_GetAssocData(slaveInterp, "tclSlaveRecord", NULL);
804 slavePtr->slaveInterp = slaveInterp;
807 (void) Tcl_SetAssocData(slaveInterp, "tclSlaveRecord",
818 return DeleteAlias(curInterp, slaveInterp, aliasName);
839 if (TclPreventAliasLoop(curInterp, slaveInterp, aliasName, AliasCmd,
854 aliasPtr->slaveCmd = Tcl_CreateCommand(slaveInterp, aliasName, AliasCmd,
866 tmpAliasName = Tcl_GetCommandName(slaveInterp,
868 (void) Tcl_DeleteCommand(slaveInterp, tmpAliasName);
891 targetPtr->slaveInterp = slaveInterp;
938 Tcl_Interp *slaveInterp, /* Interpreters used when */
952 slaveInterp = GetInterp(interp, masterPtr, argv[2], NULL);
953 if (slaveInterp == (Tcl_Interp *) NULL) {
959 return DescribeAlias(interp, slaveInterp, argv[3]);
962 return DeleteAlias(interp, slaveInterp, argv[3]);
976 return AliasHelper(interp, slaveInterp, masterInterp, masterMasterPtr,
1000 DescribeAlias(interp, slaveInterp, aliasName)
1002 Tcl_Interp *slaveInterp; /* Interpreter defining alias. */
1010 slavePtr = (Slave *) Tcl_GetAssocData(slaveInterp, "tclSlaveRecord",
1025 slavePtr->slaveInterp = slaveInterp;
1028 (void) Tcl_SetAssocData(slaveInterp, "tclSlaveRecord",
1062 DeleteAlias(interp, slaveInterp, aliasName)
1064 Tcl_Interp *slaveInterp; /* Interpreter defining alias. */
1071 slavePtr = (Slave *) Tcl_GetAssocData(slaveInterp, "tclSlaveRecord",
1094 aliasName = Tcl_GetCommandName(slaveInterp, aliasPtr->slaveCmd);
1103 if (Tcl_DeleteCommand(slaveInterp, aliasName) != 0) {
1197 Tcl_Interp *slaveInterp; /* Interim storage for slave. */
1210 slaveInterp = GetInterp(askingInterp, masterPtr, path, NULL);
1211 if (slaveInterp == (Tcl_Interp *) NULL) {
1216 slaveSlavePtr = (Slave *) Tcl_GetAssocData(slaveInterp, "tclSlaveRecord",
1266 Tcl_Interp *slaveInterp; /* A slave. */
1304 slaveInterp = GetInterp(interp, masterPtr, argv[2], NULL);
1305 if (slaveInterp == (Tcl_Interp *) NULL) {
1311 slaveInterp = interp;
1313 slavePtr = (Slave *) Tcl_GetAssocData(slaveInterp,
1343 slaveInterp = GetInterp(interp, masterPtr, argv[2], NULL);
1344 if (slaveInterp == (Tcl_Interp *) NULL) {
1350 Tcl_Preserve((ClientData) slaveInterp);
1351 result = Tcl_Eval(slaveInterp, cmd);
1362 if (interp != slaveInterp) {
1370 * errorInfo before appending slaveInterp's $errorInfo;
1376 Tcl_AddErrorInfo(interp, Tcl_GetVar2(slaveInterp,
1379 Tcl_GetVar2(slaveInterp, "errorCode", (char *)
1383 if (slaveInterp->freeProc != NULL) {
1384 interp->result = slaveInterp->result;
1385 interp->freeProc = slaveInterp->freeProc;
1386 slaveInterp->freeProc = 0;
1388 Tcl_SetResult(interp, slaveInterp->result, TCL_VOLATILE);
1390 Tcl_ResetResult(slaveInterp);
1392 Tcl_Release((ClientData) slaveInterp);
1423 slaveInterp = GetInterp(interp, masterPtr, argv[2],
1425 if (slaveInterp == (Tcl_Interp *) NULL) {
1475 slaveInterp = GetInterp(interp, masterPtr, argv[4], NULL);
1476 if (slaveInterp == (Tcl_Interp *) NULL) {
1490 Tcl_RegisterChannel(slaveInterp, chan);
1516 slaveInterp = GetInterp(interp, masterPtr, argv[4], NULL);
1517 if (slaveInterp == (Tcl_Interp *) NULL) {
1530 Tcl_RegisterChannel(slaveInterp, chan);
1575 Tcl_Interp *slaveInterp; /* Slave interpreter. */
1591 slaveInterp = (Tcl_Interp *) clientData;
1592 if (slaveInterp == (Tcl_Interp *) NULL) {
1598 slavePtr = (Slave *) Tcl_GetAssocData(slaveInterp,
1624 return DescribeAlias(interp, slaveInterp, argv[2]);
1632 return AliasHelper(interp, slaveInterp, interp, masterPtr,
1664 Tcl_Preserve((ClientData) slaveInterp);
1665 result = Tcl_Eval(slaveInterp, cmd);
1676 if (interp != slaveInterp) {
1684 * before appending slaveInterp's $errorInfo;
1690 Tcl_AddErrorInfo(interp, Tcl_GetVar2(slaveInterp,
1693 Tcl_GetVar2(slaveInterp, "errorCode",
1697 if (slaveInterp->freeProc != NULL) {
1698 interp->result = slaveInterp->result;
1699 interp->freeProc = slaveInterp->freeProc;
1700 slaveInterp->freeProc = 0;
1702 Tcl_SetResult(interp, slaveInterp->result, TCL_VOLATILE);
1704 Tcl_ResetResult(slaveInterp);
1706 Tcl_Release((ClientData) slaveInterp);
1718 masterPtr = (Master *) Tcl_GetAssocData(slaveInterp,
1762 Tcl_Interp *slaveInterp; /* And for a slave interp. */
1764 slaveInterp = (Tcl_Interp *) clientData;
1765 slavePtr = (Slave *) Tcl_GetAssocData(slaveInterp, "tclSlaveRecord",NULL);
1795 Tcl_DeleteInterp(slavePtr->slaveInterp);
2048 cmdName = Tcl_GetCommandName(targetPtr->slaveInterp,
2050 (void) Tcl_DeleteCommand(targetPtr->slaveInterp, cmdName);
2372 * the result of slaveInterp will contain an error message.
2375 * Creates a new alias, manipulates the result field of slaveInterp.
2381 Tcl_CreateAlias(slaveInterp, slaveCmd, targetInterp, targetCmd, argc, argv)
2382 Tcl_Interp *slaveInterp; /* Interpreter for source command. */
2391 if ((slaveInterp == (Tcl_Interp *) NULL) ||
2402 return AliasHelper(slaveInterp, slaveInterp, targetInterp, masterPtr,