| /ast/src/lib/libtksh/src/ |
| H A D | basic.c | 178 register Interp *iPtr;
181 iPtr = (Interp *) ckalloc(sizeof(Interp));
182 iPtr->result = iPtr->resultSpace;
183 iPtr->freeProc = 0;
184 iPtr->errorLine = 0;
185 Tcl_InitHashTable(&iPtr->mathFuncTable, TCL_STRING_KEYS);
186 iPtr->numLevels = 0;
187 iPtr->maxNestingDepth = 1000;
188 iPtr
177 register Interp *iPtr; local
266 Interp *iPtr = (Interp *) interp; local
313 Interp *iPtr = (Interp *) interp; local
361 Interp *iPtr = (Interp *) interp; local
404 Interp *iPtr = (Interp *) interp; local
448 Interp *iPtr = (Interp *) interp; local
491 Interp *iPtr = (Interp *) interp; local
666 Interp *iPtr = (Interp *) interp; local
743 register Interp *iPtr = (Interp *) interp; local
778 register Interp *iPtr = (Interp *) interp; local
822 register Interp *iPtr = (Interp *) interp; local
924 Interp *iPtr = (Interp *) interp; local
958 Interp *iPtr = (Interp *) interp; local
[all...] |
| H A D | commands.c | 175 Interp *iPtr = (Interp *)context->ptr; local
189 iPtr->interpType = INTERP_TCL;
191 iPtr->interpType = INTERP_KSH;
194 sfprintf(sfstdout,"%s\n",(iPtr->interpType==INTERP_KSH)?"ksh":
195 ((iPtr->interpType==INTERP_TCL)?"tcl":"either"));
300 register Interp *iPtr = (Interp *) interp; local
326 procPtr = TclFindProc(iPtr, argv[2]);
344 procPtr = TclFindProc(iPtr, argv[2]);
348 iPtr->result = procPtr->command;
357 sprintf(iPtr
[all...] |
| H A D | tclproc.c | 38 register Interp *iPtr = (Interp *) interp; local
53 procPtr->iPtr = iPtr;
171 TclFindProc(Interp *iPtr, char *procName) argument
174 if (Tcl_GetCommandInfo((Tcl_Interp *) iPtr, procName, &procInfo))
253 if (procPtr->iPtr->flags & ERR_IN_PROGRESS)
256 procPtr->iPtr->flags |= ERR_IN_PROGRESS;
284 register Interp *iPtr = procPtr->iPtr; local
290 iPtr
[all...] |
| H A D | eval.c | 231 register Interp *iPtr = (Interp *) interp; local
232 int result, oldInterpType = iPtr->interpType;
235 interp->result = iPtr->resultSpace;
236 iPtr->resultSpace[0] = 0;
238 iPtr->interpType = INTERP_KSH;
255 iPtr->interpType = oldInterpType;
261 if (iPtr->flags & DELETED)
269 register Interp *iPtr = (Interp *) interp; local
278 if (iPtr->interpType == INTERP_TCL)
298 Interp *iPtr local
350 register Interp *iPtr = (Interp *) interp; local
[all...] |
| H A D | filecmd.c | 653 Interp *iPtr = (Interp *) interp;
654 int oldInterpType = iPtr->interpType, result = TCL_ERROR;
657 iPtr->interpType = INTERP_KSH;
675 iPtr->interpType = oldInterpType;
651 Interp *iPtr = (Interp *) interp; local
|
| H A D | init.c | 165 Interp *iPtr = (Interp *) interp; local
174 iPtr->interpType=INTERP_CURRENT;
|
| H A D | tcleval.c | 35 * such as iPtr->returnCode and iPtr->errorCode and modifies
49 TclUpdateReturnInfo(iPtr)
50 Interp *iPtr; /* Interpreter for which TCL_RETURN
55 code = iPtr->returnCode;
56 iPtr->returnCode = TCL_OK;
58 Tcl_SetVar2((Tcl_Interp *) iPtr, "errorCode", (char *) NULL,
59 (iPtr->errorCode != NULL) ? iPtr->errorCode : "NONE",
61 iPtr
130 register Interp *iPtr = (Interp *) interp; local
[all...] |
| H A D | varcmd.c | 250 #define MakeUpvar(iPtr, framePtr, nm1, nm2, newname, notused2) \
251 TkshUpVar((Tcl_Interp*) iPtr,(newname),(nm1),(nm2),(framePtr)->var_tree)
321 register Interp *iPtr = (Interp *) interp;
369 result = MakeUpvar(iPtr, framePtr, argv[0], openParen+1,
377 result = MakeUpvar(iPtr, framePtr, argv[0], (char *) NULL, argv[1], 0);
319 register Interp *iPtr = (Interp *) interp; local
|
| /ast/src/lib/libtksh/tcl/ |
| H A D | tclPkg.c | 301 Interp *iPtr = (Interp *) interp;
320 hPtr = Tcl_FindHashEntry(&iPtr->packageTable, argv[i]);
348 hPtr = Tcl_FindHashEntry(&iPtr->packageTable, argv[2]);
391 tablePtr = &iPtr->packageTable;
406 hPtr = Tcl_FindHashEntry(&iPtr->packageTable, argv[2]);
447 if (iPtr->packageUnknown != NULL) {
448 iPtr->result = iPtr->packageUnknown;
451 if (iPtr->packageUnknown != NULL) {
452 ckfree(iPtr
298 Interp *iPtr = (Interp *) interp; local
538 Interp *iPtr = (Interp *) interp; local
[all...] |
| H A D | tclHash.c | 915 register int *iPtr;
919 iPtr = hPtr->key.words; count > 0; count--, iPtr++) {
920 index += *iPtr;
899 register int *iPtr; local
|
| H A D | tclParse.c | 428 Interp *iPtr = (Interp *) interp;
430 iPtr->evalFlags = flags | TCL_BRACKET_TERM;
432 *termPtr = iPtr->termPtr;
445 length = strlen(iPtr->result);
450 strcpy(pvPtr->next, iPtr->result);
452 Tcl_FreeResult(iPtr);
453 iPtr->result = iPtr->resultSpace;
454 iPtr->resultSpace[0] = '\0';
425 Interp *iPtr = (Interp *) interp; local
|
| H A D | tclUtil.c | 44 static void SetupAppendBuffer _ANSI_ARGS_((Interp *iPtr,
980 register Interp *iPtr = (Interp *) interp;
982 Tcl_FreeProc *oldFreeProc = iPtr->freeProc;
983 char *oldResult = iPtr->result;
986 iPtr->resultSpace[0] = 0;
987 iPtr->result = iPtr->resultSpace;
988 iPtr->freeProc = 0;
992 iPtr->result = (char *) ckalloc((unsigned) length+1);
993 iPtr
971 register Interp *iPtr = (Interp *) interp; local
1035 register Interp *iPtr; local
1111 register Interp *iPtr = (Interp *) interp; local
1241 register Interp *iPtr = (Interp *) interp; local
1277 Interp *iPtr; local
1377 register Interp *iPtr = (Interp *) interp; local
1875 Interp *iPtr = (Interp *) interp; local
2038 register Interp *iPtr = (Interp *) interp; local
[all...] |
| H A D | tclCmdAH.c | 392 Interp *iPtr = (Interp *) interp;
401 iPtr->flags |= ERR_ALREADY_LOGGED;
406 iPtr->flags |= ERROR_CODE_SET;
385 Interp *iPtr = (Interp *) interp; local
|
| H A D | tclCmdMZ.c | 520 Interp *iPtr = (Interp *) interp;
541 hPtr = Tcl_FindHashEntry(&iPtr->commandTable, dstName);
563 hPtr = Tcl_FindHashEntry(&iPtr->commandTable, srcName);
581 hPtr = Tcl_CreateHashEntry(&iPtr->commandTable, dstName, &new);
597 hPtr = Tcl_CreateHashEntry(&iPtr->commandTable, "tkerror", &new);
606 Tcl_DeleteHashEntry(Tcl_FindHashEntry(&iPtr->commandTable, "tkerror"));
637 Interp *iPtr = (Interp *) interp;
640 if (iPtr->errorInfo != NULL) {
641 ckfree(iPtr->errorInfo);
642 iPtr
516 Interp *iPtr = (Interp *) interp; local
632 Interp *iPtr = (Interp *) interp; local
1451 Interp *iPtr = (Interp *) interp; local
[all...] |
| H A D | tclExpr.c | 730 Interp *iPtr = (Interp *) interp;
792 if (!iPtr->noEval) {
885 if (!iPtr->noEval) {
900 iPtr->noEval++;
903 iPtr->noEval--;
929 iPtr->noEval++;
932 iPtr->noEval--;
934 iPtr->noEval++;
937 iPtr->noEval--;
969 if (iPtr
727 Interp *iPtr = (Interp *) interp; local
1608 Interp *iPtr = (Interp *) interp; local
1665 Interp *iPtr = (Interp *) interp; local
[all...] |
| H A D | tclInterp.c | 1834 Interp *iPtr; /* The target interpreter. */
1871 iPtr = (Interp *) aliasPtr->targetInterp;
1872 iPtr->numLevels++;
1873 Tcl_Preserve((ClientData) iPtr);
1874 Tcl_ResetResult((Tcl_Interp *) iPtr);
1875 result = (cmdInfo.proc)(cmdInfo.clientData, (Tcl_Interp *) iPtr,
1877 iPtr->numLevels--;
1878 if (iPtr->numLevels == 0) {
1880 result = TclUpdateReturnInfo(iPtr);
1883 Tcl_ResetResult((Tcl_Interp *) iPtr);
1815 Interp *iPtr; /* The target interpreter. */ local
[all...] |
| /ast/src/lib/libtksh/include/ |
| H A D | tkshlib.h | 154 struct Interp *iPtr; /* Interpreter for which this command member in struct:Proc
168 extern Proc * TclFindProc(Interp *iPtr, char *procName);
169 extern int TclUpdateReturnInfo(Interp *iPtr);
215 EXTERN void TclFreePackageInfo(Interp *iPtr);
|
| /ast/src/lib/libtk/generic/ |
| H A D | tkOption.c | 1062 int level, i, *iPtr;
1176 for (iPtr = searchOrder; *iPtr != -1; iPtr++) {
1181 i = *iPtr;
1051 int level, i, *iPtr; local
|