Cross Reference: /ast/src/lib/libtksh/tcl/tclInterp.c

Lines Matching defs:masterInterp
37     Tcl_Interp *masterInterp;	/* Master interpreter for this slave. */
132 			    Tcl_Interp *slaveInterp, Tcl_Interp *masterInterp,
466     Tcl_Interp *masterInterp;		/* Ptr to master interp for slave. */
485         masterInterp = interp;
491         masterInterp = GetInterp(interp, masterPtr, masterPath, &masterPtr);
492         if (masterInterp == (Tcl_Interp *) NULL) {
517     slavePtr->masterInterp = masterInterp;
520     slavePtr->interpCmd = Tcl_CreateCommand(masterInterp, slavePath,
545         (void) Tcl_DeleteCommand(masterInterp, slavePath);
657     Tcl_Interp *masterInterp;		/* Master of interp. to delete. */
675         masterInterp = interp;
683         masterInterp = GetInterp(interp, masterPtr, masterPath, &masterPtr);
684         if (masterInterp == (Tcl_Interp *) NULL) {
702     slaveName = Tcl_GetCommandName(masterInterp, slavePtr->interpCmd);
703     if (Tcl_DeleteCommand(masterInterp, slaveName) != 0) {
768 AliasHelper(curInterp, slaveInterp, masterInterp, masterPtr,
774     Tcl_Interp *masterInterp;		/* Interp where target cmd will be. */
802         slavePtr->masterInterp = (Tcl_Interp *) NULL;
826     aliasPtr->targetInterp = masterInterp;
939         *masterInterp;			/* creating an alias btn siblings. */
970     masterInterp = GetInterp(interp, masterPtr, argv[4], &masterMasterPtr);
971     if (masterInterp == (Tcl_Interp *) NULL) {
976     return AliasHelper(interp, slaveInterp, masterInterp, masterMasterPtr,
1023         slavePtr->masterInterp = (Tcl_Interp *) NULL;
1156     if (Tcl_GetInterpPath(askingInterp, slavePtr->masterInterp) == TCL_ERROR) {
1162     masterPtr = (Master *) Tcl_GetAssocData(slavePtr->masterInterp,
1267     Tcl_Interp *masterInterp;		/* A master. */
1469             masterInterp = GetInterp(interp, masterPtr, argv[2], NULL);
1470             if (masterInterp == (Tcl_Interp *) NULL) {
1481             chan = Tcl_GetChannel(masterInterp, argv[3], NULL);
1483                 if (interp != masterInterp) {
1484                     Tcl_AppendResult(interp, masterInterp->result,
1486                     Tcl_ResetResult(masterInterp);
1510         masterInterp = GetInterp(interp, masterPtr, argv[2], NULL);
1511         if (masterInterp == (Tcl_Interp *) NULL) {
1522         chan = Tcl_GetChannel(masterInterp, argv[3], NULL);
1524             if (interp != masterInterp) {
1525                 Tcl_AppendResult(interp, masterInterp->result, (char *) NULL);
1526                 Tcl_ResetResult(masterInterp);
1531         if (Tcl_UnregisterChannel(masterInterp, chan) != TCL_OK) {
1532             if (interp != masterInterp) {
1533                 Tcl_AppendResult(interp, masterInterp->result, (char *) NULL);
1534                 Tcl_ResetResult(masterInterp);
2125 	Tcl_DeleteCommand(slavePtr->masterInterp,
2126                 Tcl_GetCommandName(slavePtr->masterInterp,
2359     return slavePtr->masterInterp;