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

Lines Matching defs:slavePtr
402     Slave *slavePtr;		/* Interim slave record. */
420         slavePtr = (Slave *) Tcl_GetHashValue(hPtr);
421         searchInterp = slavePtr->slaveInterp;
467     Slave *slavePtr;			/* Slave record. */
516     slavePtr = (Slave *) ckalloc((unsigned) sizeof(Slave));
517     slavePtr->masterInterp = masterInterp;
518     slavePtr->slaveEntry = hPtr;
519     slavePtr->slaveInterp = slaveInterp;
520     slavePtr->interpCmd = Tcl_CreateCommand(masterInterp, slavePath,
522     Tcl_InitHashTable(&(slavePtr->aliasTable), TCL_STRING_KEYS);
524             SlaveRecordDeleteProc, (ClientData) slavePtr);
525     Tcl_SetHashValue(hPtr, (ClientData) slavePtr);
656     Slave *slavePtr;			/* Interim storage for slave record. */
701     slavePtr = (Slave *) Tcl_GetHashValue(hPtr);
702     slaveName = Tcl_GetCommandName(masterInterp, slavePtr->interpCmd);
790     Slave *slavePtr;			/* Maps from source command in slave
793     slavePtr = (Slave *) Tcl_GetAssocData(slaveInterp, "tclSlaveRecord", NULL);
800     if (slavePtr == (Slave *) NULL) {
801         slavePtr = (Slave *) ckalloc((unsigned) sizeof(Slave));
802         slavePtr->masterInterp = (Tcl_Interp *) NULL;
803         slavePtr->slaveEntry = (Tcl_HashEntry *) NULL;
804         slavePtr->slaveInterp = slaveInterp;
805         slavePtr->interpCmd = (Tcl_Command) NULL;
806         Tcl_InitHashTable(&(slavePtr->aliasTable), TCL_STRING_KEYS);
808                 SlaveRecordDeleteProc, (ClientData) slavePtr);
863         hPtr = Tcl_CreateHashEntry(&(slavePtr->aliasTable), aliasName, &new);
1005     Slave *slavePtr;		/* Slave record for slave interpreter. */
1010     slavePtr = (Slave *) Tcl_GetAssocData(slaveInterp, "tclSlaveRecord",
1012     if (slavePtr == (Slave *) NULL) {
1022         slavePtr = (Slave *) ckalloc((unsigned) sizeof(Slave));
1023         slavePtr->masterInterp = (Tcl_Interp *) NULL;
1024         slavePtr->slaveEntry = (Tcl_HashEntry *) NULL;
1025         slavePtr->slaveInterp = slaveInterp;
1026         slavePtr->interpCmd = (Tcl_Command) NULL;
1027         Tcl_InitHashTable(&(slavePtr->aliasTable), TCL_STRING_KEYS);
1029                 SlaveRecordDeleteProc, (ClientData) slavePtr);
1031     hPtr = Tcl_FindHashEntry(&(slavePtr->aliasTable), aliasName);
1067     Slave *slavePtr;		/* Slave record for slave interpreter. */
1071     slavePtr = (Slave *) Tcl_GetAssocData(slaveInterp, "tclSlaveRecord",
1073     if (slavePtr == (Slave *) NULL) {
1087     hPtr = Tcl_FindHashEntry(&(slavePtr->aliasTable), aliasName);
1143     Slave *slavePtr;		/* Interim storage for Slave record. */
1151     slavePtr = (Slave *) Tcl_GetAssocData(targetInterp, "tclSlaveRecord",
1153     if (slavePtr == (Slave *) NULL) {
1156     if (Tcl_GetInterpPath(askingInterp, slavePtr->masterInterp) == TCL_ERROR) {
1162     masterPtr = (Master *) Tcl_GetAssocData(slavePtr->masterInterp,
1168             slavePtr->slaveEntry));
1269     Slave *slavePtr;			/* Record for slave interp. */
1313             slavePtr = (Slave *) Tcl_GetAssocData(slaveInterp,
1315             if (slavePtr == (Slave *) NULL) {
1318             for (hPtr = Tcl_FirstHashEntry(&(slavePtr->aliasTable), &hSearch);
1322                         Tcl_GetHashKey(&(slavePtr->aliasTable), hPtr));
1574     Slave *slavePtr;			/* Slave record. */
1598     slavePtr = (Slave *) Tcl_GetAssocData(slaveInterp,
1600     if (slavePtr == (Slave *) NULL) {
1644             for (hPtr = Tcl_FirstHashEntry(&(slavePtr->aliasTable),
1761     Slave *slavePtr;			/* Interim storage for Slave record. */
1765     slavePtr = (Slave *) Tcl_GetAssocData(slaveInterp, "tclSlaveRecord",NULL); 
1766     if (slavePtr == (Slave *) NULL) {
1778     Tcl_DeleteHashEntry(slavePtr->slaveEntry);
1786     slavePtr->interpCmd = NULL;
1795     Tcl_DeleteInterp(slavePtr->slaveInterp);
2030     Slave *slavePtr;			/* Loop variable. */
2038         slavePtr = (Slave *) Tcl_GetHashValue(hPtr);
2039         cmdName = Tcl_GetCommandName(interp, slavePtr->interpCmd);
2081     Slave *slavePtr;			/* Interim storage. */
2087     slavePtr = (Slave *) clientData;
2091      * slavePtr is not NULL. Otherwise we panic.
2094     if (slavePtr == NULL) {
2095 	panic("SlaveRecordDeleteProc: NULL slavePtr");
2098     if (slavePtr->interpCmd != (Tcl_Command) NULL) {
2099 	Command *cmdPtr = (Command *) slavePtr->interpCmd;
2110 	 * and turn off the callback now (since we are about to free slavePtr
2115 	Tcl_DeleteHashEntry(slavePtr->slaveEntry);
2125 	Tcl_DeleteCommand(slavePtr->masterInterp,
2126                 Tcl_GetCommandName(slavePtr->masterInterp,
2127                         slavePtr->interpCmd));
2136     hTblPtr = (Tcl_HashTable *) &(slavePtr->aliasTable);
2159     ckfree((char *) slavePtr);    
2350     Slave *slavePtr;		/* Slave record of this interpreter. */
2355     slavePtr = (Slave *) Tcl_GetAssocData(interp, "tclSlaveRecord", NULL);
2356     if (slavePtr == (Slave *) NULL) {
2359     return slavePtr->masterInterp;
2435     Slave *slavePtr;			/* Slave record for slave interp. */
2442     slavePtr = (Slave *) Tcl_GetAssocData(interp, "tclSlaveRecord", NULL);
2443     if (slavePtr == (Slave *) NULL) {
2446     hPtr = Tcl_FindHashEntry(&(slavePtr->aliasTable), aliasName);