/macosx-10.10/tcl-105/tcl_ext/incrtcl/incrTcl/itcl/generic/ |
H A D | itcl_migrate.c | 129 Var *varPtr; 131 varPtr = (Var *) ckalloc(itclVarLocalSize); 132 ItclInitVarFlags(varPtr); 133 ItclVarObjValue(varPtr) = NULL; 136 varPtr->name = NULL; 137 varPtr->nsPtr = NULL; 138 varPtr->hPtr = NULL; 139 varPtr->refCount = 0; 140 varPtr->tracePtr = NULL; 141 varPtr 127 Var *varPtr; local 158 Var *varPtr = _TclNewVar(); local [all...] |
H A D | itclInt.h | 126 #define ItclInitVarFlags(varPtr) \ 127 (varPtr)->flags = 0 129 #define ItclInitVarArgument(varPtr) \ 130 (varPtr)->flags = VAR_ARGUMENT 135 #define ItclVarRefCount(varPtr) VarHashRefCount(varPtr) 137 #define ItclClearVarUndefined(varPtr) 139 #define ItclNextLocal(varPtr) ((varPtr)++) 141 #define ItclVarObjValue(varPtr) ((varPt [all...] |
H A D | itcl_objects.c | 1083 Var *varPtr; 1088 varPtr = _TclNewVar(); 1091 varPtr->name = vdefn->member->name; 1092 varPtr->nsPtr = (Namespace*)vdefn->member->classDefn->namesp; 1105 varPtr->hPtr = (Tcl_HashEntry*)0x1; 1106 ItclVarRefCount(varPtr) = 1; /* protect from being deleted */ 1120 contextObj->data[vlookup->var.index] = varPtr; 1069 Var *varPtr; local
|
H A D | itcl_methods.c | 1861 Var *varPtr; 1880 varPtr = framePtr->compiledLocals; 1884 argPtr=argPtr->nextPtr, argsLeft--, ItclNextLocal(varPtr), objv++, objc--) 1905 ItclVarObjValue(varPtr) = listPtr; 1907 ItclClearVarUndefined(varPtr); 1963 ItclVarObjValue(varPtr) = listPtr; 1965 ItclClearVarUndefined(varPtr); 2003 ItclVarObjValue(varPtr) = listPtr; 2005 ItclClearVarUndefined(varPtr); 2009 ItclVarObjValue(varPtr) 1838 Var *varPtr; local [all...] |
H A D | itcl_parse.c | 910 Var *varPtr; 948 varPtr = ItclVarHashCreateVar(&nsPtr->varTable, 953 varPtr->nsPtr = nsPtr; 956 TclSetVarNamespaceVar(varPtr); 957 ItclVarRefCount(varPtr)++; /* another use by class */ 900 Var *varPtr; local
|
H A D | itcl_class.c | 499 VarInHash *varPtr; 531 varPtr = (VarInHash*)vlookup->var.common; 532 if (--ItclVarRefCount(varPtr) == 0) { 538 ckfree((char *)varPtr); 494 VarInHash *varPtr; local
|
/macosx-10.10/tcl-105/tcl/tcl/generic/ |
H A D | tclTestObj.c | 24 * the values of Tcl object-valued variables. varPtr[i] is the i-th variable's 29 static Tcl_Obj *varPtr[NUMBER_OF_OBJECT_VARS]; variable 91 varPtr[i] = NULL; 189 if ((varPtr[varIndex] != NULL) && !Tcl_IsShared(varPtr[varIndex])) { 190 Tcl_SetBignumObj(varPtr[varIndex], &bignumValue); 214 if (Tcl_GetBignumFromObj(interp, varPtr[varIndex], 227 if (!Tcl_IsShared(varPtr[varIndex])) { 228 Tcl_SetBignumObj(varPtr[varIndex], &newValue); 242 if (Tcl_GetBignumFromObj(interp, varPtr[varInde [all...] |
H A D | tclVar.c | 47 static inline void CleanupVar(Var *varPtr, Var *arrayPtr); 76 VarHashInvalidateEntry(Var* varPtr) { argument 77 varPtr->flags |= VAR_DEAD_HASH; 80 #define VarHashInvalidateEntry(varPtr) \ 81 ((varPtr)->flags |= VAR_DEAD_HASH) 83 #define VarHashDeleteEntry(varPtr) \ 84 Tcl_DeleteHashEntry(&(((VarInHash *) varPtr)->entry)) 119 #define VarHashGetKey(varPtr) \ 120 (((VarInHash *)(varPtr))->entry.key.objPtr) 158 Var *varPtr, in 266 Var *varPtr; local 299 CleanupVar( Var *varPtr, Var *arrayPtr) argument 326 TclCleanupVar( Var *varPtr, Var *arrayPtr) argument 398 Var *varPtr; local 519 register Var *varPtr; /* Points to the variable's in-frame Var local 883 Var *varPtr; /* Points to the Var structure returned for local 1109 Var *varPtr; local 1350 Var *varPtr, *arrayPtr; local 1390 TclPtrGetVar( Tcl_Interp *interp, register Var *varPtr, Var *arrayPtr, Tcl_Obj *part1Ptr, Tcl_Obj *part2Ptr, const int flags, int index) argument 1714 Var *varPtr, *arrayPtr; local 1761 TclPtrSetVar( Tcl_Interp *interp, register Var *varPtr, Var *arrayPtr, Tcl_Obj *part1Ptr, Tcl_Obj *part2Ptr, Tcl_Obj *newValuePtr, const int flags, int index) argument 2001 Var *varPtr, *arrayPtr; local 2040 TclPtrIncrObjVar( Tcl_Interp *interp, Var *varPtr, Var *arrayPtr, Tcl_Obj *part1Ptr, Tcl_Obj *part2Ptr, Tcl_Obj *incrPtr, const int flags, int index) argument 2213 Var *varPtr; local 2296 UnsetVarStruct( Var *varPtr, Var *arrayPtr, Interp *iPtr, Tcl_Obj *part1Ptr, Tcl_Obj *part2Ptr, int flags) argument 2545 Var *varPtr, *arrayPtr; local 2612 Var *varPtr, *arrayPtr; local 2767 Var *varPtr, *arrayPtr; local 3344 Var *varPtr, *arrayPtr; local 3638 Var *varPtr; local 3848 register Var *varPtr = (Var *) variable; local 4018 Var *varPtr, *arrayPtr; local 4282 ParseSearchId( Tcl_Interp *interp, const Var *varPtr, Tcl_Obj *varNamePtr, Tcl_Obj *handleObj) argument 4425 Var *varPtr; local 4510 register Var *varPtr; local 4562 register Var *varPtr; local 4598 DeleteArray( Interp *iPtr, Tcl_Obj *arrayNamePtr, Var *varPtr, int flags) argument 4824 register Var *varPtr = objPtr->internalRep.twoPtrValue.ptr2; local 4840 register Var *varPtr = srcPtr->internalRep.twoPtrValue.ptr2; local 5009 Var *varPtr; local 5128 Var *varPtr; local 5321 Var *varPtr; local 5465 Var *varPtr; local 5557 Var *varPtr; local 5576 Var *varPtr = VarHashGetValue(hPtr); local [all...] |
H A D | tclExecute.c | 1744 #define ReadTraced(varPtr) ((varPtr)->flags & VAR_TRACED_READ) 1745 #define WriteTraced(varPtr) ((varPtr)->flags & VAR_TRACED_WRITE) 2653 Var *varPtr, *arrayPtr; 2659 varPtr = &(compiledLocals[opnd]); 2660 while (TclIsVarLink(varPtr)) { 2661 varPtr = varPtr->value.linkPtr; 2664 if (TclIsVarDirectReadable(varPtr)) { 2641 Var *varPtr, *arrayPtr; local 2804 Var *varPtr, *arrayPtr; local 3076 Var *varPtr, *arrayPtr; local 3348 Var *varPtr, *arrayPtr; local 3453 Var *varPtr, *otherPtr; local 6575 Var *iterVarPtr, *listVarPtr, *varPtr; local 6748 Var *varPtr; local 7015 Var *varPtr; local 7108 Var *varPtr; local [all...] |
H A D | tclInt.h | 475 struct Var *varPtr; /* Variable that's being traced. */ member in struct:ActiveVarTrace 494 struct Var *varPtr; /* Pointer to array variable that's being member in struct:ArraySearch 663 * MODULE_SCOPE void TclSetVarScalar(Var *varPtr); 664 * MODULE_SCOPE void TclSetVarArray(Var *varPtr); 665 * MODULE_SCOPE void TclSetVarLink(Var *varPtr); 666 * MODULE_SCOPE void TclSetVarArrayElement(Var *varPtr); 667 * MODULE_SCOPE void TclSetVarUndefined(Var *varPtr); 668 * MODULE_SCOPE void TclClearVarUndefined(Var *varPtr); 671 #define TclSetVarScalar(varPtr) \ 672 (varPtr) [all...] |
H A D | tclTrace.c | 2415 Var *varPtr; 2421 * you do "info exists x" you get a varPtr and therefore trigger traces. 2422 * However, if you do "info exists x(i)", then you only get a varPtr if x 2427 varPtr = TclLookupVar(interp, varName, NULL, 0, "access", 2430 if (varPtr == NULL) { 2434 if ((varPtr->flags & VAR_TRACED_READ) 2436 TclCallVarTraces((Interp *)interp, arrayPtr, varPtr, varName, NULL, 2445 if (TclIsVarUndefined(varPtr)) { 2446 TclCleanupVar(varPtr, arrayPtr); 2450 return varPtr; 2395 Var *varPtr; local 2457 TclObjCallVarTraces( Interp *iPtr, register Var *arrayPtr, Var *varPtr, Tcl_Obj *part1Ptr, Tcl_Obj *part2Ptr, int flags, int leaveErrMsg, int index) argument 2488 TclCallVarTraces( Interp *iPtr, register Var *arrayPtr, Var *varPtr, const char *part1, const char *part2, int flags, int leaveErrMsg) argument 2831 Var *varPtr, *arrayPtr; local 2993 Var *varPtr, *arrayPtr; local 3159 Var *varPtr, *arrayPtr; local [all...] |
H A D | tclProc.c | 1171 Var *varPtr = framePtr->compiledLocals; 1189 InitResolvedLocals(interp, codePtr, varPtr, nsPtr); 1215 Var *varPtr, 1225 * Find the localPtr corresponding to varPtr 1228 varNum = varPtr - iPtr->framePtr->compiledLocals; 1243 for (; localPtr != NULL; varPtr++, localPtr = localPtr->nextPtr) { 1244 varPtr->flags = 0; 1245 varPtr->value.objPtr = NULL; 1260 varPtr->flags = VAR_LINK; 1261 varPtr 1162 Var *varPtr = framePtr->compiledLocals; local 1202 InitResolvedLocals( Tcl_Interp *interp, ByteCode *codePtr, Var *varPtr, Namespace *nsPtr) argument 1343 Var *varPtr; local 1396 register Var *varPtr, *defPtr; local [all...] |
/macosx-10.10/tcl-105/tcl84/tcl/generic/ |
H A D | tclTestObj.c | 22 * the values of Tcl object-valued variables. varPtr[i] is the i-th 27 static Tcl_Obj *varPtr[NUMBER_OF_OBJECT_VARS]; variable 96 varPtr[i] = NULL; 173 if ((varPtr[varIndex] != NULL) && !Tcl_IsShared(varPtr[varIndex])) { 174 Tcl_SetBooleanObj(varPtr[varIndex], boolValue); 178 Tcl_SetObjResult(interp, varPtr[varIndex]); 186 Tcl_SetObjResult(interp, varPtr[varIndex]); 194 if (Tcl_GetBooleanFromObj(interp, varPtr[varIndex], 198 if (!Tcl_IsShared(varPtr[varInde [all...] |
H A D | tclVar.c | 47 Var *varPtr, CONST char *part1, CONST char *part2, 49 static void CleanupVar _ANSI_ARGS_((Var *varPtr, 53 CONST char *arrayName, Var *varPtr, int flags)); 62 CONST Var *varPtr, CONST char *varName, 69 static void UnsetVarStruct _ANSI_ARGS_((Var *varPtr, Var *arrayPtr, 210 Var *varPtr; 225 varPtr = NULL; 272 varPtr = TclLookupSimpleVar(interp, part1, flags, 274 if (varPtr == NULL) { 279 while (TclIsVarLink(varPtr)) { 209 Var *varPtr; local 362 register Var *varPtr; /* Points to the variable's in-frame Var local 687 Var *varPtr; /* Points to the Var structure returned for local 927 Var *varPtr; local 1101 Var *varPtr, *arrayPtr; local 1150 Var *varPtr, *arrayPtr; local 1453 Var *varPtr, *arrayPtr; local 1508 Var *varPtr, *arrayPtr; local 1782 Var *varPtr, *arrayPtr; local 2013 Var *varPtr; local 2282 Var *varPtr, *arrayPtr; local 2396 Var *varPtr, *arrayPtr; local 2542 Var *varPtr, *arrayPtr; local 2669 Var *varPtr, *arrayPtr; local 2742 Var *varPtr, *arrayPtr; local 2936 Var *varPtr, *arrayPtr; local 3435 Var *varPtr, *arrayPtr; local 3568 Var *otherPtr, *varPtr, *arrayPtr; local 3789 register Var *varPtr = (Var *) variable; local 3941 Var *varPtr, *arrayPtr; local 4391 register Var *varPtr; local 4624 register Var *varPtr = (Var *) Tcl_GetHashValue(hPtr); local 4680 register Var *varPtr; local 4826 register Var *varPtr; local 5099 Var *varPtr; local 5222 register Var *varPtr = (Var *) objPtr->internalRep.twoPtrValue.ptr2; local 5243 register Var *varPtr = (Var *) srcPtr->internalRep.twoPtrValue.ptr2; local [all...] |
H A D | tclInt.h | 370 struct Var *varPtr; /* Variable that's being traced. */ member in struct:ActiveVarTrace 391 struct Var *varPtr; /* Pointer to array variable that's being member in struct:ArraySearch 541 * EXTERN void TclSetVarScalar _ANSI_ARGS_((Var *varPtr)); 542 * EXTERN void TclSetVarArray _ANSI_ARGS_((Var *varPtr)); 543 * EXTERN void TclSetVarLink _ANSI_ARGS_((Var *varPtr)); 544 * EXTERN void TclSetVarArrayElement _ANSI_ARGS_((Var *varPtr)); 545 * EXTERN void TclSetVarUndefined _ANSI_ARGS_((Var *varPtr)); 546 * EXTERN void TclClearVarUndefined _ANSI_ARGS_((Var *varPtr)); 549 #define TclSetVarScalar(varPtr) \ 550 (varPtr) [all...] |
H A D | tclExecute.c | 1214 Var *varPtr, *arrayPtr; 1736 varPtr = &(varFramePtr->compiledLocals[opnd]); 1737 part1 = varPtr->name; 1738 while (TclIsVarLink(varPtr)) { 1739 varPtr = varPtr->value.linkPtr; 1742 if (TclIsVarScalar(varPtr) && !TclIsVarUndefined(varPtr) 1743 && (varPtr->tracePtr == NULL)) { 1747 objResultPtr = varPtr 1204 Var *varPtr, *arrayPtr; local [all...] |
H A D | tclCmdIL.c | 1032 Var *varPtr; 1040 varPtr = TclVarTraceExists(interp, varName); 1041 if ((varPtr != NULL) && !TclIsVarUndefined(varPtr)) { 1382 Var *varPtr; 1411 varPtr = (Var *) Tcl_GetHashValue(entryPtr); 1412 if (!TclIsVarUndefined(varPtr)) { 1421 varPtr = (Var *) Tcl_GetHashValue(entryPtr); 1422 if (TclIsVarUndefined(varPtr)) { 1732 Var *varPtr; 1022 Var *varPtr; local 1369 Var *varPtr; local 1713 Var *varPtr; local 2203 Var *varPtr; local [all...] |
H A D | tclCompile.c | 2339 Var *varPtr = framePtr->compiledLocals; 2401 varPtr->name = localPtr->name; /* will be just '\0' if temp var */ 2402 varPtr->nsPtr = NULL; 2403 varPtr->hPtr = NULL; 2404 varPtr->refCount = 0; 2405 varPtr->tracePtr = NULL; 2406 varPtr->searchPtr = NULL; 2407 varPtr->flags = 0; 2408 TclSetVarLink(varPtr); 2409 varPtr 2323 Var *varPtr = framePtr->compiledLocals; local [all...] |
H A D | tclProc.c | 1020 register Var *varPtr; 1103 varPtr = framePtr->compiledLocals; 1126 varPtr->value.objPtr = listPtr; 1128 TclClearVarUndefined(varPtr); 1133 varPtr->value.objPtr = objPtr; 1134 TclClearVarUndefined(varPtr); 1139 varPtr->value.objPtr = objPtr; 1140 TclClearVarUndefined(varPtr); 1146 varPtr++; 1012 register Var *varPtr; local
|
H A D | tclNamesp.c | 2147 Var *varPtr; 2207 varPtr = NULL; 2208 for (search = 0; (search < 2) && (varPtr == NULL); search++) { 2213 varPtr = (Var *) Tcl_GetHashValue(entryPtr); 2217 if (varPtr != NULL) { 2218 return (Tcl_Var) varPtr; 2127 Var *varPtr; local
|
/macosx-10.10/tcl-105/tcl_ext/xotcl/xotcl/generic/ |
H A D | deleteVars.c | 41 CallVarTraces(iPtr, arrayPtr, varPtr, part1, part2, flags, leaveErrMsg) 46 Var *varPtr; /* Variable whose traces are to be 74 if (varPtr->flags & VAR_TRACE_ACTIVE) { 77 varPtr->flags |= VAR_TRACE_ACTIVE; 78 varPtr->refCount++; 126 active.varPtr = arrayPtr; 162 active.varPtr = varPtr; 163 for (tracePtr = varPtr->tracePtr; tracePtr != NULL; 232 varPtr 329 register Var *varPtr; local [all...] |
H A D | deleteVars.h | 39 CallVarTraces(iPtr, arrayPtr, varPtr, part1, part2, flags, leaveErrMsg) 44 Var *varPtr; /* Variable whose traces are to be variable 72 if (varPtr->flags & VAR_TRACE_ACTIVE) { 75 varPtr->flags |= VAR_TRACE_ACTIVE; 76 varPtr->refCount++; 124 active.varPtr = arrayPtr; 160 active.varPtr = varPtr; 161 for (tracePtr = varPtr->tracePtr; tracePtr != NULL; 230 varPtr 254 Var *varPtr; /* Pointer to variable structure. */ variable 266 DeleteSearches(varPtr); variable 325 register Var *varPtr; variable 413 TclSetVarUndefined(varPtr); variable 414 TclSetVarScalar(varPtr); variable [all...] |
H A D | xotcl.c | 228 (Var * varPtr, Var *arrayPtr) 306 # define VarHashRefCount(varPtr) \ 307 (*((int *) (((char *)(varPtr))+varRefCountOffset))) 315 #define VarHashGetKey(varPtr) \ 316 (((VarInHash *)(varPtr))->entry.key.objPtr) 330 #define varFlags(varPtr) \ 332 ((Var85 *)varPtr)->flags : \ 333 (varPtr)->flags \ 336 #define TclIsVarScalar(varPtr) \ 338 !(((Var85 *)varPtr) 428 register Var *varPtr; local 446 Var *varPtr; local 467 TclCleanupVar84(Var * varPtr, Var *arrayPtr) argument 490 Var *varPtr = NULL; local 579 Var *varPtr = NULL; local 592 Var *varPtr = NULL; local 1666 Var *varPtr; local 1692 varResolver(Tcl_Interp *interp, CONST char *name, Tcl_Namespace *ns, int flags, Tcl_Var *varPtr) argument 1897 Var *varPtr, *arrayPtr; local 4913 Var *varPtr, *arrayPtr; local 7312 Tcl_Var *varPtr; local 8974 Var *varPtr = NULL, *otherPtr = NULL, *arrayPtr; local 12082 Var *varPtr = NULL; local 12332 Var *varPtr; local 12639 Var *varPtr; local [all...] |
/macosx-10.10/tcl-105/tcl_ext/tclvfs/tclvfs/library/ |
H A D | tarvfs.tcl | 238 proc vfs::tar::_data {fd arr {varPtr ""}} { 241 if {$varPtr eq ""} { 244 upvar 1 $varPtr data
|
/macosx-10.10/IOFWDVComponents-207.4.1/ |
H A D | DVLib.h | 195 extern UInt8 * DVWriteGetDCLBuffer(DVGlobalOutPtr globs, DVSharedVars **varPtr);
|