Lines Matching refs:iPtr
30 static char * CallCommandTraces _ANSI_ARGS_((Interp *iPtr,
304 Interp *iPtr;
338 iPtr = (Interp *) ckalloc(sizeof(Interp));
339 interp = (Tcl_Interp *) iPtr;
341 iPtr->result = iPtr->resultSpace;
342 iPtr->freeProc = NULL;
343 iPtr->errorLine = 0;
344 iPtr->objResultPtr = Tcl_NewObj();
345 Tcl_IncrRefCount(iPtr->objResultPtr);
346 iPtr->handle = TclHandleCreate(iPtr);
347 iPtr->globalNsPtr = NULL;
348 iPtr->hiddenCmdTablePtr = NULL;
349 iPtr->interpInfo = NULL;
350 Tcl_InitHashTable(&iPtr->mathFuncTable, TCL_STRING_KEYS);
352 iPtr->numLevels = 0;
353 iPtr->maxNestingDepth = MAX_NESTING_DEPTH;
354 iPtr->framePtr = NULL;
355 iPtr->varFramePtr = NULL;
362 iPtr->cmdFramePtr = NULL;
363 iPtr->linePBodyPtr = (Tcl_HashTable*) ckalloc (sizeof (Tcl_HashTable));
364 iPtr->lineBCPtr = (Tcl_HashTable*) ckalloc (sizeof (Tcl_HashTable));
365 iPtr->lineLAPtr = (Tcl_HashTable*) ckalloc (sizeof (Tcl_HashTable));
366 iPtr->lineLABCPtr = (Tcl_HashTable*) ckalloc (sizeof (Tcl_HashTable));
367 Tcl_InitHashTable(iPtr->linePBodyPtr, TCL_ONE_WORD_KEYS);
368 Tcl_InitHashTable(iPtr->lineBCPtr, TCL_ONE_WORD_KEYS);
369 Tcl_InitHashTable(iPtr->lineLAPtr, TCL_ONE_WORD_KEYS);
370 Tcl_InitHashTable(iPtr->lineLABCPtr, TCL_ONE_WORD_KEYS);
371 iPtr->scriptCLLocPtr = NULL;
374 iPtr->activeVarTracePtr = NULL;
375 iPtr->returnCode = TCL_OK;
376 iPtr->errorInfo = NULL;
377 iPtr->errorCode = NULL;
379 iPtr->appendResult = NULL;
380 iPtr->appendAvl = 0;
381 iPtr->appendUsed = 0;
383 Tcl_InitHashTable(&iPtr->packageTable, TCL_STRING_KEYS);
384 iPtr->packageUnknown = NULL;
387 iPtr->packagePrefer = (getenv ("TCL_PKG_PREFER_LATEST") == NULL ?
391 iPtr->cmdCount = 0;
392 iPtr->termOffset = 0;
393 TclInitLiteralTable(&(iPtr->literalTable));
394 iPtr->compileEpoch = 0;
395 iPtr->compiledProcPtr = NULL;
396 iPtr->resolverPtr = NULL;
397 iPtr->evalFlags = 0;
398 iPtr->scriptFile = NULL;
399 iPtr->flags = 0;
400 iPtr->tracePtr = NULL;
401 iPtr->tracesForbiddingInline = 0;
402 iPtr->activeCmdTracePtr = NULL;
403 iPtr->activeInterpTracePtr = NULL;
404 iPtr->assocData = (Tcl_HashTable *) NULL;
405 iPtr->execEnvPtr = NULL; /* set after namespaces initialized */
406 iPtr->emptyObjPtr = Tcl_NewObj(); /* another empty object */
407 Tcl_IncrRefCount(iPtr->emptyObjPtr);
408 iPtr->resultSpace[0] = 0;
409 iPtr->threadId = Tcl_GetCurrentThread();
411 iPtr->globalNsPtr = NULL; /* force creation of global ns below */
412 iPtr->globalNsPtr = (Namespace *) Tcl_CreateNamespace(interp, "",
414 if (iPtr->globalNsPtr == NULL) {
425 iPtr->execEnvPtr = TclCreateExecEnv(interp);
433 statsPtr = &(iPtr->stats);
467 iPtr->stubTable = &tclStubs;
492 hPtr = Tcl_CreateHashEntry(&iPtr->globalNsPtr->cmdTable,
497 cmdPtr->nsPtr = iPtr->globalNsPtr;
539 Tcl_CreateMathFunc((Tcl_Interp *) iPtr, builtinFuncPtr->name,
542 hPtr = Tcl_FindHashEntry(&iPtr->mathFuncTable,
552 iPtr->flags |= EXPR_INITIALIZED;
578 * (void) Tcl_SetVar2((Tcl_Interp *)iPtr, "errorInfo", (char *) NULL,
580 * (void) Tcl_SetVar2((Tcl_Interp *)iPtr, "errorCode", (char *) NULL,
715 Interp *iPtr = (Interp *) interp;
727 if (iPtr->assocData == (Tcl_HashTable *) NULL) {
728 iPtr->assocData = (Tcl_HashTable *) ckalloc(sizeof(Tcl_HashTable));
729 Tcl_InitHashTable(iPtr->assocData, TCL_STRING_KEYS);
731 hPtr = Tcl_CreateHashEntry(iPtr->assocData, buffer, &new);
765 Interp *iPtr = (Interp *) interp;
771 hTablePtr = iPtr->assocData;
814 Interp *iPtr = (Interp *) interp;
819 if (iPtr->assocData == (Tcl_HashTable *) NULL) {
820 iPtr->assocData = (Tcl_HashTable *) ckalloc(sizeof(Tcl_HashTable));
821 Tcl_InitHashTable(iPtr->assocData, TCL_STRING_KEYS);
823 hPtr = Tcl_CreateHashEntry(iPtr->assocData, name, &new);
858 Interp *iPtr = (Interp *) interp;
862 if (iPtr->assocData == (Tcl_HashTable *) NULL) {
865 hPtr = Tcl_FindHashEntry(iPtr->assocData, name);
903 Interp *iPtr = (Interp *) interp;
907 if (iPtr->assocData == (Tcl_HashTable *) NULL) {
910 hPtr = Tcl_FindHashEntry(iPtr->assocData, name);
975 Interp *iPtr = (Interp *) interp;
981 if (iPtr->flags & DELETED) {
989 iPtr->flags |= DELETED;
1025 Interp *iPtr = (Interp *) interp;
1035 if (iPtr->numLevels > 0) {
1044 if (!(iPtr->flags & DELETED)) {
1048 TclHandleFree(iPtr->handle);
1059 TclTeardownNamespace(iPtr->globalNsPtr);
1065 hTablePtr = iPtr->hiddenCmdTablePtr;
1086 for (hPtr = Tcl_FirstHashEntry(&iPtr->mathFuncTable, &search);
1091 Tcl_DeleteHashTable(&iPtr->mathFuncTable);
1098 while (iPtr->assocData != (Tcl_HashTable *) NULL) {
1101 hTablePtr = iPtr->assocData;
1102 iPtr->assocData = (Tcl_HashTable *) NULL;
1121 Tcl_DeleteNamespace((Tcl_Namespace *) iPtr->globalNsPtr);
1131 Tcl_DecrRefCount(iPtr->objResultPtr);
1132 iPtr->objResultPtr = NULL;
1133 if (iPtr->errorInfo != NULL) {
1134 ckfree(iPtr->errorInfo);
1135 iPtr->errorInfo = NULL;
1137 if (iPtr->errorCode != NULL) {
1138 ckfree(iPtr->errorCode);
1139 iPtr->errorCode = NULL;
1141 if (iPtr->appendResult != NULL) {
1142 ckfree(iPtr->appendResult);
1143 iPtr->appendResult = NULL;
1145 TclFreePackageInfo(iPtr);
1146 while (iPtr->tracePtr != NULL) {
1147 Tcl_DeleteTrace((Tcl_Interp*) iPtr, (Tcl_Trace) iPtr->tracePtr);
1149 if (iPtr->execEnvPtr != NULL) {
1150 TclDeleteExecEnv(iPtr->execEnvPtr);
1152 Tcl_DecrRefCount(iPtr->emptyObjPtr);
1153 iPtr->emptyObjPtr = NULL;
1155 resPtr = iPtr->resolverPtr;
1168 TclDeleteLiteralTable(interp, &(iPtr->literalTable));
1180 for (hPtr = Tcl_FirstHashEntry(iPtr->linePBodyPtr, &hSearch);
1194 Tcl_DeleteHashTable (iPtr->linePBodyPtr);
1195 ckfree ((char*) iPtr->linePBodyPtr);
1196 iPtr->linePBodyPtr = NULL;
1200 for (hPtr = Tcl_FirstHashEntry(iPtr->lineBCPtr, &hSearch);
1222 Tcl_DeleteHashTable (iPtr->lineBCPtr);
1223 ckfree((char*) iPtr->lineBCPtr);
1224 iPtr->lineBCPtr = NULL;
1233 if (iPtr->lineLAPtr->numEntries) {
1242 Tcl_DeleteHashTable (iPtr->lineLAPtr);
1243 ckfree((char*) iPtr->lineLAPtr);
1244 iPtr->lineLAPtr = NULL;
1246 if (iPtr->lineLABCPtr->numEntries) {
1255 Tcl_DeleteHashTable (iPtr->lineLABCPtr);
1256 ckfree((char*) iPtr->lineLABCPtr);
1257 iPtr->lineLABCPtr = NULL;
1260 ckfree((char *) iPtr);
1289 Interp *iPtr = (Interp *) interp;
1296 if (iPtr->flags & DELETED) {
1352 if ( cmdPtr->nsPtr != iPtr->globalNsPtr ) {
1363 hiddenCmdTablePtr = iPtr->hiddenCmdTablePtr;
1368 iPtr->hiddenCmdTablePtr = hiddenCmdTablePtr;
1422 iPtr->compileEpoch++;
1453 Interp *iPtr = (Interp *) interp;
1460 if (iPtr->flags & DELETED) {
1488 hiddenCmdTablePtr = iPtr->hiddenCmdTablePtr;
1507 if ( cmdPtr->nsPtr != iPtr->globalNsPtr ) {
1572 iPtr->compileEpoch++;
1615 Interp *iPtr = (Interp *) interp;
1624 if (iPtr->flags & DELETED) {
1646 nsPtr = iPtr->globalNsPtr;
1763 Interp *iPtr = (Interp *) interp;
1772 if (iPtr->flags & DELETED) {
1794 nsPtr = iPtr->globalNsPtr;
2080 Interp *iPtr = (Interp *) interp;
2191 if ( newNsPtr != iPtr->globalNsPtr ) {
2196 CallCommandTraces( iPtr, cmdPtr,
2219 iPtr->compileEpoch++;
2487 Interp *iPtr = (Interp *) interp;
2499 if (cmdPtr->nsPtr != iPtr->globalNsPtr) {
2576 Interp *iPtr = (Interp *) interp;
2625 CallCommandTraces(iPtr,cmdPtr,NULL,NULL,TCL_TRACE_DELETE);
2648 iPtr->compileEpoch++;
2721 CallCommandTraces(iPtr, cmdPtr, oldName, newName, flags)
2722 Interp *iPtr; /* Interpreter containing command. */
2763 active.nextPtr = iPtr->activeCmdTracePtr;
2765 iPtr->activeCmdTracePtr = &active;
2772 Tcl_Preserve((ClientData) iPtr);
2786 Tcl_GetCommandFullName((Tcl_Interp *) iPtr,
2792 (Tcl_Interp *) iPtr, oldName, newName, flags);
2815 iPtr->activeCmdTracePtr = active.nextPtr;
2816 Tcl_Release((ClientData) iPtr);
2891 Interp *iPtr = (Interp *) interp;
2896 hPtr = Tcl_CreateHashEntry(&iPtr->mathFuncTable, name, &new);
2913 iPtr->compileEpoch++;
2922 iPtr->compileEpoch++;
2974 Interp *iPtr = (Interp *) interp;
2980 hPtr = Tcl_FindHashEntry(&iPtr->mathFuncTable, name);
3035 Interp *iPtr = (Interp *) interp;
3041 for (hPtr = Tcl_FirstHashEntry(&iPtr->mathFuncTable, &hSearch);
3043 name = Tcl_GetHashKey(&iPtr->mathFuncTable, hPtr);
3079 register Interp *iPtr = (Interp *) interp;
3092 if (iPtr->flags & DELETED) {
3107 if (((iPtr->numLevels) > iPtr->maxNestingDepth)
3125 * is responsible for managing the iPtr->numLevels.
3164 Interp *iPtr = (Interp *) interp;
3167 CallFrame *savedVarFramePtr; /* Saves old copy of iPtr->varFramePtr
3188 savedVarFramePtr = iPtr->varFramePtr;
3193 iPtr->varFramePtr = NULL;
3194 } else if ((flags & TCL_EVAL_INVOKE) && iPtr->varFramePtr) {
3195 savedNsPtr = iPtr->varFramePtr->nsPtr;
3196 iPtr->varFramePtr->nsPtr = iPtr->globalNsPtr;
3222 iPtr->numLevels++;
3225 iPtr->numLevels--;
3230 iPtr->varFramePtr->nsPtr = savedNsPtr;
3235 iPtr->varFramePtr->nsPtr = savedNsPtr;
3251 if (iPtr->tracePtr != NULL && traceCode == TCL_OK) {
3286 iPtr->cmdCount++;
3305 int saveErrFlags = iPtr->flags
3311 if (iPtr->tracePtr != NULL && traceCode == TCL_OK) {
3316 iPtr->flags |= saveErrFlags;
3339 if (*(iPtr->result) != 0) {
3351 iPtr->varFramePtr = savedVarFramePtr;
3388 Interp *iPtr = (Interp *)interp;
3399 int allowExceptions = (iPtr->evalFlags & TCL_ALLOW_EXCEPTIONS);
3401 for (tracePtr = iPtr->tracePtr; tracePtr; tracePtr = tracePtr->nextPtr) {
3402 if ((tracePtr->level == 0) || (iPtr->numLevels <= tracePtr->level)) {
3418 iPtr->numLevels++;
3420 iPtr->numLevels--;
3427 if (iPtr->numLevels == 0) {
3429 code = TclUpdateReturnInfo(iPtr);
3498 Interp *iPtr = (Interp *) interp;
3500 if (iPtr->flags & ERR_ALREADY_LOGGED) {
3513 iPtr->errorLine = 1;
3516 iPtr->errorLine++;
3540 if (!(iPtr->flags & ERR_IN_PROGRESS)) {
3548 iPtr->flags &= ~ERR_ALREADY_LOGGED;
3631 Interp* iPtr = (Interp*) interp;
3632 int inFile = iPtr->evalFlags & TCL_EVAL_FILE;
3730 Interp *iPtr = (Interp *) interp;
3731 iPtr->numLevels++;
3750 iPtr->evalFlags |= TCL_EVAL_FILE;
3754 iPtr->numLevels--;
4002 Interp *iPtr = (Interp *) interp;
4010 CallFrame *savedVarFramePtr; /* Saves old copy of iPtr->varFramePtr
4012 int allowExceptions = (iPtr->evalFlags & TCL_ALLOW_EXCEPTIONS);
4036 if (iPtr->scriptCLLocPtr) {
4040 clNext = &iPtr->scriptCLLocPtr->loc[0];
4050 savedVarFramePtr = iPtr->varFramePtr;
4052 iPtr->varFramePtr = NULL;
4063 if (iPtr->evalFlags & TCL_BRACKET_TERM) {
4080 if (iPtr->evalFlags & TCL_EVAL_CTX) {
4084 eeFrame.data.eval.path = iPtr->invokeCmdFramePtr->data.eval.path;
4086 } else if (iPtr->evalFlags & TCL_EVAL_FILE) {
4091 if (iPtr->scriptFile) {
4098 Tcl_Obj* norm = Tcl_FSGetNormalizedPath (interp, iPtr->scriptFile);
4115 eeFrame.level = (iPtr->cmdFramePtr == NULL
4117 : iPtr->cmdFramePtr->level + 1);
4118 eeFrame.framePtr = iPtr->framePtr;
4119 eeFrame.nextPtr = iPtr->cmdFramePtr;
4124 iPtr->evalFlags = 0;
4212 iPtr->evalFlags |= TCL_EVAL_FILE;
4219 iPtr->evalFlags = 0;
4255 iPtr->cmdFramePtr = &eeFrame;
4257 iPtr->numLevels++;
4260 iPtr->numLevels--;
4262 iPtr->cmdFramePtr = iPtr->cmdFramePtr->nextPtr;
4306 iPtr->termOffset = (p - 1) - script;
4307 iPtr->varFramePtr = savedVarFramePtr;
4326 iPtr->termOffset = p - script;
4327 iPtr->varFramePtr = savedVarFramePtr;
4343 if (iPtr->numLevels == 0) {
4345 code = TclUpdateReturnInfo(iPtr);
4353 if ((code == TCL_ERROR) && !(iPtr->flags & ERR_ALREADY_LOGGED)) {
4377 iPtr->varFramePtr = savedVarFramePtr;
4380 * All that's left to do before returning is to set iPtr->termOffset
4389 iPtr->termOffset = p - script;
4403 * to correctly set iPtr->termOffset to point to that matching
4418 iPtr->termOffset = (parse.commandStart - 1) - script;
4420 iPtr->termOffset = (next - 1) - script;
4440 iPtr->termOffset = parse.term - script;
4446 iPtr->termOffset = parse.term - script;
4460 iPtr->termOffset = (parse.term + 1) - script;
4473 iPtr->termOffset = parse.term - script;
4609 Interp* iPtr = (Interp*) interp;
4624 hPtr = Tcl_CreateHashEntry (iPtr->lineLAPtr, (char*) objv[i], &new);
4673 Interp* iPtr = (Interp*) interp;
4679 hPtr = Tcl_FindHashEntry (iPtr->lineLAPtr, (char *) objv[i]);
4722 Interp* iPtr = (Interp*) interp;
4723 Tcl_HashEntry* hePtr = Tcl_FindHashEntry (iPtr->lineBCPtr, (char *) codePtr);
4748 Tcl_CreateHashEntry (iPtr->lineLABCPtr,
4808 Interp* iPtr = (Interp*) interp;
4809 Tcl_HashEntry* hePtr = Tcl_FindHashEntry (iPtr->lineBCPtr, (char *) codePtr);
4826 Tcl_HashEntry* hPtr = Tcl_FindHashEntry(iPtr->lineLABCPtr,
4871 Interp* iPtr = (Interp*) interp;
4891 hPtr = Tcl_FindHashEntry (iPtr->lineLAPtr, (char *) obj);
4904 hPtr = Tcl_FindHashEntry (iPtr->lineLABCPtr, (char *) obj);
5059 register Interp *iPtr = (Interp *) interp;
5063 CallFrame *savedVarFramePtr; /* Saves old copy of iPtr->varFramePtr
5065 int allowExceptions = (iPtr->evalFlags & TCL_ALLOW_EXCEPTIONS);
5069 if ((iPtr->flags & USE_EVAL_DIRECT) || (flags & TCL_EVAL_DIRECT)) {
5084 if (!(iPtr->flags & USE_EVAL_DIRECT) &&
5102 eoFrame.level = (iPtr->cmdFramePtr == NULL ?
5104 iPtr->cmdFramePtr->level + 1);
5105 eoFrame.framePtr = iPtr->framePtr;
5106 eoFrame.nextPtr = iPtr->cmdFramePtr;
5146 iPtr->cmdFramePtr = &eoFrame;
5150 iPtr->cmdFramePtr = iPtr->cmdFramePtr->nextPtr;
5198 ContLineLoc* saveCLLocPtr = iPtr->scriptCLLocPtr;
5202 iPtr->scriptCLLocPtr = clLocPtr;
5203 Tcl_Preserve (iPtr->scriptCLLocPtr);
5205 iPtr->scriptCLLocPtr = NULL;
5249 iPtr->invokeCmdFramePtr = &ctx;
5250 iPtr->evalFlags |= TCL_EVAL_CTX;
5266 if (iPtr->scriptCLLocPtr) {
5267 Tcl_Release (iPtr->scriptCLLocPtr);
5269 iPtr->scriptCLLocPtr = saveCLLocPtr;
5280 savedVarFramePtr = iPtr->varFramePtr;
5282 iPtr->varFramePtr = NULL;
5296 if (iPtr->numLevels == 0) {
5298 result = TclUpdateReturnInfo(iPtr);
5312 if (!(iPtr->flags & ERR_ALREADY_LOGGED)) {
5315 iPtr->flags &= ~ERR_ALREADY_LOGGED;
5319 iPtr->evalFlags = 0;
5320 iPtr->varFramePtr = savedVarFramePtr;
5814 register Interp *iPtr = (Interp *) interp;
5818 savedVarFramePtr = iPtr->varFramePtr;
5819 iPtr->varFramePtr = NULL;
5821 iPtr->varFramePtr = savedVarFramePtr;
5859 register Interp *iPtr = (Interp *) interp;
5863 savedVarFramePtr = iPtr->varFramePtr;
5864 iPtr->varFramePtr = NULL;
5866 iPtr->varFramePtr = savedVarFramePtr;
5900 register Interp *iPtr = (Interp *) interp;
5991 iPtr->cmdCount++;
6001 && ((iPtr->flags & ERR_ALREADY_LOGGED) == 0)) {
6004 if (!(iPtr->flags & ERR_IN_PROGRESS)) {
6037 iPtr->flags &= ~ERR_ALREADY_LOGGED;
6205 register Interp *iPtr = (Interp *) interp;
6210 if (iPtr->tracesForbiddingInline == 0) {
6223 iPtr->compileEpoch++;
6224 iPtr->flags |= DONT_COMPILE_CMDS_INLINE;
6226 iPtr->tracesForbiddingInline++;
6234 tracePtr->nextPtr = iPtr->tracePtr;
6236 iPtr->tracePtr = tracePtr;
6411 Interp *iPtr = (Interp *) interp;
6413 register Trace **tracePtr2 = &(iPtr->tracePtr);
6437 for (activePtr = iPtr->activeInterpTracePtr; activePtr != NULL;
6456 iPtr->tracesForbiddingInline--;
6457 if (iPtr->tracesForbiddingInline == 0) {
6458 iPtr->flags &= ~DONT_COMPILE_CMDS_INLINE;
6459 iPtr->compileEpoch++;
6541 register Interp *iPtr = (Interp *) interp;
6549 if (!(iPtr->flags & ERR_IN_PROGRESS)) { /* just starting to log error */
6550 iPtr->flags |= ERR_IN_PROGRESS;
6552 if (iPtr->result[0] == 0) {
6553 Tcl_ObjSetVar2(interp, iPtr->execEnvPtr->errorInfo, NULL,
6554 iPtr->objResultPtr, TCL_GLOBAL_ONLY);
6558 Tcl_ObjSetVar2(interp, iPtr->execEnvPtr->errorInfo, NULL,
6568 if (!(iPtr->flags & ERROR_CODE_SET)) {
6571 Tcl_ObjSetVar2(interp, iPtr->execEnvPtr->errorCode, NULL,
6584 Tcl_ObjSetVar2(interp, iPtr->execEnvPtr->errorInfo, NULL,
6698 register Interp *iPtr = (Interp *) interp;
6702 savedVarFramePtr = iPtr->varFramePtr;
6703 iPtr->varFramePtr = NULL;
6705 iPtr->varFramePtr = savedVarFramePtr;
6733 Interp *iPtr = (Interp *) interp;
6736 old = iPtr->maxNestingDepth;
6738 iPtr->maxNestingDepth = depth;
6768 Interp *iPtr = (Interp *) interp;
6770 iPtr->evalFlags |= TCL_ALLOW_EXCEPTIONS;