Searched refs:iPtr (Results 1 - 20 of 20) sorted by relevance

/ast/src/lib/libtksh/src/
H A Dbasic.c178 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 Dtcleval.c35 * 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 Dtclproc.c38 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 Dcommands.c175 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 Deval.c231 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 Dinit.c165 Interp *iPtr = (Interp *) interp; local
174 iPtr->interpType=INTERP_CURRENT;
H A Dvarcmd.c250 #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
H A Dfilecmd.c653 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
/ast/src/lib/libtksh/tcl/
H A DtclUtil.c44 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 DtclPkg.c301 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 DtclCmdMZ.c520 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 DtclInterp.c1834 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...]
H A DtclExpr.c730 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 DtclHash.c915 register int *iPtr;
919 iPtr = hPtr->key.words; count > 0; count--, iPtr++) {
920 index += *iPtr;
899 register int *iPtr; local
H A DtclParse.c428 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 DtclIOUtil.c368 Interp *iPtr = (Interp *) interp;
374 oldScriptFile = iPtr->scriptFile;
375 iPtr->scriptFile = fileName;
422 result = TclUpdateReturnInfo(iPtr);
434 iPtr->scriptFile = oldScriptFile;
443 iPtr->scriptFile = oldScriptFile;
H A DtclCmdAH.c392 Interp *iPtr = (Interp *) interp;
401 iPtr->flags |= ERR_ALREADY_LOGGED;
406 iPtr->flags |= ERROR_CODE_SET;
385 Interp *iPtr = (Interp *) interp; local
/ast/src/lib/libtksh/include/
H A Dtkshlib.h154 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 Dtk3d.c92 XPoint *b1Ptr, XPoint *b2Ptr, XPoint *iPtr));
1146 * at *iPtr is filled in with the intersection between
1148 * -1 is returned and *iPtr isn't modified.
1157 Intersect(a1Ptr, a2Ptr, b1Ptr, b2Ptr, iPtr)
1162 XPoint *iPtr; /* Filled in with intersection point. */
1187 iPtr->x = - ((-p + q/2)/q);
1189 iPtr->x = (p + q/2)/q;
1198 iPtr->y = - ((-p + q/2)/q);
1200 iPtr->y = (p + q/2)/q;
H A DtkOption.c1062 int level, i, *iPtr;
1176 for (iPtr = searchOrder; *iPtr != -1; iPtr++) {
1181 i = *iPtr;
1051 int level, i, *iPtr; local

Completed in 713 milliseconds