/macosx-10.9.5/tcl-102/tcl84/tcl/generic/ |
H A D | tclObj.c | 92 Tcl_Obj *objPtr)); 94 Tcl_Obj *objPtr)); 96 Tcl_Obj *objPtr)); 98 Tcl_Obj *objPtr)); 99 static void UpdateStringOfBoolean _ANSI_ARGS_((Tcl_Obj *objPtr)); 100 static void UpdateStringOfDouble _ANSI_ARGS_((Tcl_Obj *objPtr)); 101 static void UpdateStringOfInt _ANSI_ARGS_((Tcl_Obj *objPtr)); 103 Tcl_Obj *objPtr)); 106 static void UpdateStringOfWideInt _ANSI_ARGS_((Tcl_Obj *objPtr)); 127 static void DupCmdNameInternalRep _ANSI_ARGS_((Tcl_Obj *objPtr, 550 TclContinuationsCopy(Tcl_Obj* objPtr, Tcl_Obj* originObjPtr) argument 871 register Tcl_Obj *objPtr; local 919 register Tcl_Obj *objPtr; local 970 register Tcl_Obj *prevPtr, *objPtr; local 1293 register Tcl_Obj *objPtr; local 1340 register Tcl_Obj *objPtr; local 1709 register Tcl_Obj *objPtr; local 1756 register Tcl_Obj *objPtr; local 2037 register Tcl_Obj *objPtr; local 2414 register Tcl_Obj *objPtr; local 2469 register Tcl_Obj *objPtr; local 2804 register Tcl_Obj *objPtr; local 2861 register Tcl_Obj *objPtr; local 3157 Tcl_Obj *objPtr = (Tcl_Obj *) keyPtr; local 3247 Tcl_Obj *objPtr = (Tcl_Obj *) hPtr->key.oneWordValue; local 3276 Tcl_Obj *objPtr = (Tcl_Obj *) keyPtr; local [all...] |
H A D | tclStringObj.c | 45 Tcl_Obj *objPtr, CONST Tcl_UniChar *unicode, 48 Tcl_Obj *objPtr, CONST Tcl_UniChar *unicode, 50 static void AppendUtfToUnicodeRep _ANSI_ARGS_((Tcl_Obj *objPtr, 52 static void AppendUtfToUtfRep _ANSI_ARGS_((Tcl_Obj *objPtr, 54 static void DupStringInternalRep _ANSI_ARGS_((Tcl_Obj *objPtr, 56 static void FillUnicodeRep _ANSI_ARGS_((Tcl_Obj *objPtr)); 57 static void FreeStringInternalRep _ANSI_ARGS_((Tcl_Obj *objPtr)); 58 static void GrowUnicodeBuffer _ANSI_ARGS_((Tcl_Obj *objPtr, 61 Tcl_Obj *objPtr)); 62 static void SetUnicodeObj(Tcl_Obj *objPtr, 172 GrowUnicodeBuffer( Tcl_Obj *objPtr, int needed) argument 266 register Tcl_Obj *objPtr; local 322 register Tcl_Obj *objPtr; local 378 Tcl_Obj *objPtr; local 1695 register Tcl_Obj *objPtr; local [all...] |
H A D | tclIndexObj.c | 24 Tcl_Obj *objPtr)); 25 static void UpdateStringOfIndex _ANSI_ARGS_((Tcl_Obj *objPtr)); 28 static void FreeIndex _ANSI_ARGS_((Tcl_Obj *objPtr)); 79 * If the value of objPtr is identical to or a unique abbreviation 80 * for one of the entries in objPtr, then the return value is 91 * objPtr, so that repeated lookups can be done quickly. 97 Tcl_GetIndexFromObj(interp, objPtr, tablePtr, msg, flags, indexPtr) 99 Tcl_Obj *objPtr; /* Object containing the string to lookup. */ 101 * value of objPtr; last entry must be NULL 115 if (objPtr 443 Tcl_Obj *objPtr; local [all...] |
H A D | tclLiteral.c | 125 TclReleaseLiteral(interp, entryPtr->objPtr); 188 register Tcl_Obj *objPtr; 207 objPtr = localPtr->objPtr; 208 if ((objPtr->length == length) && ((length == 0) 209 || ((objPtr->bytes[0] == bytes[0]) 210 && (memcmp(objPtr->bytes, bytes, (unsigned) length) 232 objPtr = globalPtr->objPtr; 233 if ((objPtr 185 register Tcl_Obj *objPtr; local [all...] |
H A D | tclHistory.c | 123 register Tcl_Obj *objPtr; 133 objPtr = Tcl_NewListObj(3, list); 134 Tcl_IncrRefCount(objPtr); 135 (void) Tcl_EvalObjEx(interp, objPtr, TCL_EVAL_GLOBAL); 136 Tcl_DecrRefCount(objPtr); 121 register Tcl_Obj *objPtr; local
|
/macosx-10.9.5/tcl-102/tcl/tcl/generic/ |
H A D | tclObj.c | 66 Tcl_Obj *objPtr; /* The pointer to the allocated Tcl_Obj. */ 158 #define PushObjToDelete(contextPtr,objPtr) \ 161 (objPtr)->bytes = (char *) ((contextPtr)->deletionStack); \ 162 (contextPtr)->deletionStack = (objPtr) 185 #define PACK_BIGNUM(bignum, objPtr) \ 189 (objPtr)->internalRep.ptrAndLongRep.ptr = (void*) temp; \ 190 (objPtr)->internalRep.ptrAndLongRep.value = (unsigned long)(-1); \ 195 (objPtr)->internalRep.ptrAndLongRep.ptr = (void*) (bignum).dp; \ 196 (objPtr)->internalRep.ptrAndLongRep.value = ( ((bignum).sign << 30) \ 200 #define UNPACK_BIGNUM(objPtr, bignu 65 Tcl_Obj *objPtr; /* The pointer to the allocated Tcl_Obj. */ member in struct:ObjData 565 TclContinuationsEnter(Tcl_Obj* objPtr, int num, int* loc) argument 630 TclContinuationsEnterDerived(Tcl_Obj* objPtr, int start, int* clNext) argument 724 TclContinuationsCopy(Tcl_Obj* objPtr, Tcl_Obj* originObjPtr) argument 756 TclContinuationsGet(Tcl_Obj* objPtr) argument 895 Tcl_AppendAllObjTypes( Tcl_Interp *interp, Tcl_Obj *objPtr) argument 982 Tcl_ConvertToType( Tcl_Interp *interp, Tcl_Obj *objPtr, Tcl_ObjType *typePtr) argument 1073 TclDbInitNewObj( register Tcl_Obj *objPtr, register CONST char *file, register int line) argument 1163 register Tcl_Obj *objPtr; local 1210 register Tcl_Obj *objPtr; local 1260 register Tcl_Obj *prevPtr, *objPtr; local 1311 TclFreeObj( register Tcl_Obj *objPtr) argument 1388 TclFreeObj( register Tcl_Obj *objPtr) argument 1493 TclObjBeingDeleted( Tcl_Obj *objPtr) argument 1530 Tcl_DuplicateObj( register Tcl_Obj *objPtr) argument 1577 Tcl_GetString( register Tcl_Obj *objPtr) argument 1617 Tcl_GetStringFromObj( register Tcl_Obj *objPtr, register int *lengthPtr) argument 1657 Tcl_InvalidateStringRep( register Tcl_Obj *objPtr) argument 1704 register Tcl_Obj *objPtr; local 1747 register Tcl_Obj *objPtr; local 1790 Tcl_SetBooleanObj( register Tcl_Obj *objPtr, register int boolValue) argument 1821 Tcl_GetBooleanFromObj( Tcl_Interp *interp, register Tcl_Obj *objPtr, register int *boolPtr) argument 1888 SetBooleanFromAny( Tcl_Interp *interp, register Tcl_Obj *objPtr) argument 1941 ParseBoolean( register Tcl_Obj *objPtr) argument 2089 register Tcl_Obj *objPtr; local 2132 register Tcl_Obj *objPtr; local 2175 Tcl_SetDoubleObj( register Tcl_Obj *objPtr, register double dblValue) argument 2207 Tcl_GetDoubleFromObj( Tcl_Interp *interp, register Tcl_Obj *objPtr, register double *dblPtr) argument 2265 SetDoubleFromAny( Tcl_Interp *interp, register Tcl_Obj *objPtr) argument 2295 UpdateStringOfDouble( register Tcl_Obj *objPtr) argument 2355 register Tcl_Obj *objPtr; local 2381 Tcl_SetIntObj( register Tcl_Obj *objPtr, register int intValue) argument 2419 Tcl_GetIntFromObj( Tcl_Interp *interp, register Tcl_Obj *objPtr, register int *intPtr) argument 2463 SetIntFromAny( Tcl_Interp *interp, Tcl_Obj *objPtr) argument 2491 UpdateStringOfInt( register Tcl_Obj *objPtr) argument 2552 register Tcl_Obj *objPtr; local 2602 register Tcl_Obj *objPtr; local 2646 Tcl_SetLongObj( register Tcl_Obj *objPtr, register long longValue) argument 2680 Tcl_GetLongFromObj( Tcl_Interp *interp, register Tcl_Obj *objPtr, register long *longPtr) argument 2786 UpdateStringOfWideInt( register Tcl_Obj *objPtr) argument 2853 register Tcl_Obj *objPtr; local 2905 register Tcl_Obj *objPtr; local 2947 Tcl_SetWideIntObj( register Tcl_Obj *objPtr, register Tcl_WideInt wideValue) argument 2994 Tcl_GetWideIntFromObj( Tcl_Interp *interp, register Tcl_Obj *objPtr, register Tcl_WideInt *wideIntPtr) argument 3082 SetWideIntFromAny( Tcl_Interp *interp, Tcl_Obj *objPtr) argument 3105 FreeBignum( Tcl_Obj *objPtr) argument 3170 UpdateStringOfBignum( Tcl_Obj *objPtr) argument 3236 Tcl_Obj* objPtr; local 3269 Tcl_Obj *objPtr; local 3308 GetBignumFromObj( Tcl_Interp *interp, Tcl_Obj *objPtr, int copy, mp_int *bignumValue) argument 3384 Tcl_GetBignumFromObj( Tcl_Interp *interp, Tcl_Obj *objPtr, mp_int *bignumValue) argument 3419 Tcl_TakeBignumFromObj( Tcl_Interp *interp, Tcl_Obj *objPtr, mp_int *bignumValue) argument 3445 Tcl_SetBignumObj( Tcl_Obj *objPtr, mp_int *bignumValue) argument 3507 TclSetBignumIntRep( Tcl_Obj *objPtr, mp_int *bignumValue) argument 3537 TclGetNumberFromObj( Tcl_Interp *interp, Tcl_Obj *objPtr, ClientData *clientDataPtr, int *typePtr) argument 3601 Tcl_DbIncrRefCount( register Tcl_Obj *objPtr, CONST char *file, int line) argument 3666 Tcl_DbDecrRefCount( register Tcl_Obj *objPtr, CONST char *file, int line) argument 3747 Tcl_DbIsShared( register Tcl_Obj *objPtr, CONST char *file, int line) argument 3850 Tcl_Obj *objPtr = (Tcl_Obj *) keyPtr; local 3944 Tcl_Obj *objPtr = (Tcl_Obj *) hPtr->key.oneWordValue; local 3973 Tcl_Obj *objPtr = (Tcl_Obj *) keyPtr; local 4021 Tcl_GetCommandFromObj( Tcl_Interp *interp, register Tcl_Obj *objPtr) argument 4102 TclSetCmdNameObj( Tcl_Interp *interp, register Tcl_Obj *objPtr, Command *cmdPtr) argument 4173 FreeCmdNameInternalRep( register Tcl_Obj *objPtr) argument 4259 SetCmdNameFromAny( Tcl_Interp *interp, register Tcl_Obj *objPtr) argument [all...] |
H A D | tclStringObj.c | 45 static void AppendPrintfToObjVA(Tcl_Obj *objPtr, 47 static void AppendUnicodeToUnicodeRep(Tcl_Obj *objPtr, 49 static void AppendUnicodeToUtfRep(Tcl_Obj *objPtr, 51 static void AppendUtfToUnicodeRep(Tcl_Obj *objPtr, 53 static void AppendUtfToUtfRep(Tcl_Obj *objPtr, 55 static void DupStringInternalRep(Tcl_Obj *objPtr, 57 static void FillUnicodeRep(Tcl_Obj *objPtr); 58 static void FreeStringInternalRep(Tcl_Obj *objPtr); 59 static void GrowUnicodeBuffer(Tcl_Obj *objPtr, int needed); 60 static int SetStringFromAny(Tcl_Interp *interp, Tcl_Obj *objPtr); 175 GrowUnicodeBuffer( Tcl_Obj *objPtr, int needed) argument 265 register Tcl_Obj *objPtr; local 318 register Tcl_Obj *objPtr; local 371 Tcl_Obj *objPtr; local 396 Tcl_GetCharLength( Tcl_Obj *objPtr) argument 479 Tcl_GetUniChar( Tcl_Obj *objPtr, int index) argument 539 Tcl_GetUnicode( Tcl_Obj *objPtr) argument 589 Tcl_GetUnicodeFromObj( Tcl_Obj *objPtr, int *lengthPtr) argument 646 Tcl_GetRange( Tcl_Obj *objPtr, int first, int last) argument 721 Tcl_SetStringObj( register Tcl_Obj *objPtr, const char *bytes, register int length) argument 776 Tcl_SetObjLength( register Tcl_Obj *objPtr, register int length) argument 898 Tcl_AttemptSetObjLength( register Tcl_Obj *objPtr, register int length) argument 1025 Tcl_SetUnicodeObj( Tcl_Obj *objPtr, const Tcl_UniChar *unicode, int numChars) argument 1055 SetUnicodeObj( Tcl_Obj *objPtr, const Tcl_UniChar *unicode, int numChars) argument 1108 Tcl_AppendLimitedToObj( register Tcl_Obj *objPtr, const char *bytes, register int length, register int limit, const char *ellipsis) argument 1189 Tcl_AppendToObj( register Tcl_Obj *objPtr, const char *bytes, register int length) argument 1218 Tcl_AppendUnicodeToObj( register Tcl_Obj *objPtr, const Tcl_UniChar *unicode, int length) argument 1269 Tcl_AppendObjToObj( Tcl_Obj *objPtr, Tcl_Obj *appendObjPtr) argument 1354 AppendUnicodeToUnicodeRep( Tcl_Obj *objPtr, const Tcl_UniChar *unicode, int appendNumChars) argument 1436 AppendUnicodeToUtfRep( Tcl_Obj *objPtr, const Tcl_UniChar *unicode, int numChars) argument 1476 AppendUtfToUnicodeRep( Tcl_Obj *objPtr, const char *bytes, int numBytes) argument 1517 AppendUtfToUtfRep( Tcl_Obj *objPtr, const char *bytes, int numBytes) argument 1613 Tcl_AppendStringsToObjVA( Tcl_Obj *objPtr, va_list argList) argument 1762 Tcl_AppendStringsToObj( Tcl_Obj *objPtr, ...) argument 2077 Tcl_Obj *objPtr; local 2091 Tcl_Obj *objPtr; local 2495 Tcl_Obj *objPtr = Tcl_NewObj(); local 2517 AppendPrintfToObjVA( Tcl_Obj *objPtr, const char *format, va_list argList) argument 2663 Tcl_AppendPrintfToObj( Tcl_Obj *objPtr, const char *format, ...) argument 2695 Tcl_Obj *objPtr = Tcl_NewObj(); local 2722 TclStringObjReverse( Tcl_Obj *objPtr) argument 2803 FillUnicodeRep( Tcl_Obj *objPtr) argument 2919 SetStringFromAny( Tcl_Interp *interp, register Tcl_Obj *objPtr) argument 2981 UpdateStringOfString( Tcl_Obj *objPtr) argument 3055 FreeStringInternalRep( Tcl_Obj *objPtr) argument [all...] |
H A D | tclIndexObj.c | 22 static int SetIndexFromAny(Tcl_Interp *interp, Tcl_Obj *objPtr); 23 static void UpdateStringOfIndex(Tcl_Obj *objPtr); 25 static void FreeIndex(Tcl_Obj *objPtr); 75 * If the value of objPtr is identical to or a unique abbreviation for 76 * one of the entries in objPtr, then the return value is TCL_OK and the 85 * The result of the lookup is cached as the internal rep of objPtr, so 94 Tcl_Obj *objPtr, /* Object containing the string to lookup. */ 96 * value of objPtr; last entry must be NULL 110 if (objPtr->typePtr == &indexType) { 111 IndexRep *indexRep = objPtr 91 Tcl_GetIndexFromObj( Tcl_Interp *interp, Tcl_Obj *objPtr, const char **tablePtr, const char *msg, int flags, int *indexPtr) argument 154 Tcl_GetIndexFromObjStruct( Tcl_Interp *interp, Tcl_Obj *objPtr, const void *tablePtr, int offset, const char *msg, int flags, int *indexPtr) argument 304 SetIndexFromAny( Tcl_Interp *interp, register Tcl_Obj *objPtr) argument 332 UpdateStringOfIndex( Tcl_Obj *objPtr) argument 396 FreeIndex( Tcl_Obj *objPtr) argument 451 Tcl_Obj *objPtr; local [all...] |
H A D | tclLiteral.c | 34 Tcl_Obj *objPtr, int localHash); 107 Tcl_Obj* objPtr; /* Pointer to a literal object whose internal 131 objPtr = entryPtr->objPtr; 133 typePtr = objPtr->typePtr; 135 if (objPtr->bytes == NULL) { 138 objPtr->typePtr = NULL; 139 typePtr->freeIntRepProc(objPtr); 178 Tcl_Obj *objPtr; 203 objPtr 105 Tcl_Obj* objPtr; /* Pointer to a literal object whose internal local 175 Tcl_Obj *objPtr; local 257 Tcl_Obj *objPtr; local 418 Tcl_Obj *objPtr; local 501 TclLookupLiteralEntry( Tcl_Interp *interp, register Tcl_Obj *objPtr) argument 611 TclAddLiteralObj( register CompileEnv *envPtr, Tcl_Obj *objPtr, LiteralEntry **litPtrPtr) argument 660 AddLocalLiteralEntry( register CompileEnv *envPtr, Tcl_Obj *objPtr, int localHash) argument 811 TclReleaseLiteral( Tcl_Interp *interp, register Tcl_Obj *objPtr) argument [all...] |
H A D | tclRegexp.h | 25 * objPtr are mutually exclusive. These values are needed by Tcl_RegExpRange 34 Tcl_Obj *objPtr; /* Last object passed to Tcl_RegExpExecObj. */ member in struct:TclRegexp
|
H A D | tclHistory.c | 119 register Tcl_Obj *objPtr; 143 objPtr = Tcl_NewListObj(3, list); 144 Tcl_IncrRefCount(objPtr); 145 (void) Tcl_EvalObjEx(interp, objPtr, TCL_EVAL_GLOBAL); 146 Tcl_DecrRefCount(objPtr); 117 register Tcl_Obj *objPtr; local
|
H A D | tclScan.c | 575 Tcl_Obj **objs = NULL, *objPtr = NULL; 717 objPtr = Tcl_NewIntObj(string - baseString); 718 Tcl_IncrRefCount(objPtr); 719 objs[objIndex++] = objPtr; 820 objPtr = Tcl_NewStringObj(string, end-string); 821 Tcl_IncrRefCount(objPtr); 822 objs[objIndex++] = objPtr; 855 objPtr = Tcl_NewStringObj(string, end-string); 856 Tcl_IncrRefCount(objPtr); 857 objs[objIndex++] = objPtr; 570 Tcl_Obj **objs = NULL, *objPtr = NULL; local [all...] |
/macosx-10.9.5/tcl-102/tcl_ext/tbcload/tbcload/ |
H A D | cmpProcBody.c | 31 static void ProcBodyFree _ANSI_ARGS_((Tcl_Obj *objPtr)); 33 Tcl_Obj *objPtr)); 34 static void ProcBodyUpdateString _ANSI_ARGS_((Tcl_Obj *objPtr)); 107 Tcl_Obj *objPtr; 113 objPtr = Tcl_NewObj(); 115 if (objPtr) { 116 objPtr->typePtr = &cmpProcBodyObjType; 117 objPtr->internalRep.otherValuePtr = (VOID *) procPtr; 122 return objPtr; 175 ProcBodyFree(objPtr) 105 Tcl_Obj *objPtr; local [all...] |
/macosx-10.9.5/tcl-102/tcl_ext/tclae/tclae/generic/ |
H A D | tclAEDescObj.c | 58 static void FreeAEDescInternalRep(Tcl_Obj *objPtr); 60 static int SetAEDescFromAny(Tcl_Interp *interp, Tcl_Obj *objPtr); 89 FreeAEDescInternalRep(Tcl_Obj *objPtr) /* AEDesc object with internal 92 AEDesc * descPtr = (AEDesc *) objPtr->internalRep.otherValuePtr; 138 * Generate an AEDesc internal form for the Tcl object "objPtr". 145 * A pointer to an AEDesc built from objPtr's string rep 146 * is stored as objPtr's internal representation. 153 Tcl_Obj * objPtr) /* The object to convert. */ 161 * objPtr is an AEGizmos string. 164 Tcl_UtfToExternalDString(tclAE_macRoman_encoding, Tcl_GetString(objPtr), 87 FreeAEDescInternalRep(Tcl_Obj *objPtr) argument 148 SetAEDescFromAny(Tcl_Interp * interp, Tcl_Obj * objPtr) argument 212 TclaeUpdateStringOfAEDesc(Tcl_Obj *objPtr) argument 282 SetConstAEDescFromAny(Tcl_Interp * interp, Tcl_Obj * objPtr) argument 325 FreeAEDescRefInternalRep(Tcl_Obj *objPtr) argument 380 SetAEDescRefFromAny(Tcl_Interp * interp, Tcl_Obj * objPtr) argument 430 UpdateStringOfAEDescRef(Tcl_Obj *objPtr) argument 511 Tclae_GetAEDescObjFromObj(Tcl_Interp *interp, Tcl_Obj *objPtr, Tcl_Obj **descObjHdl, int parseGizmo) argument 535 Tclae_GetAEDescFromObj(Tcl_Interp *interp, Tcl_Obj *objPtr, AEDesc **descPtr, int parseGizmo) argument 561 Tclae_GetConstAEDescFromObj(Tcl_Interp *interp, Tcl_Obj *objPtr, const AEDesc **descPtr, int parseGizmo) argument 578 Tclae_ConvertToAEDesc(Tcl_Interp *interp, Tcl_Obj *objPtr) argument [all...] |
/macosx-10.9.5/tcl-102/tk84/tk/generic/ |
H A D | tkObj.c | 28 #define SIMPLE_PIXELREP(objPtr) \ 29 ((objPtr)->internalRep.twoPtrValue.ptr2 == 0) 31 #define SET_SIMPLEPIXEL(objPtr, intval) \ 32 (objPtr)->internalRep.twoPtrValue.ptr1 = (VOID *) (intval); \ 33 (objPtr)->internalRep.twoPtrValue.ptr2 = 0 35 #define GET_SIMPLEPIXEL(objPtr) \ 36 ((int) (objPtr)->internalRep.twoPtrValue.ptr1) 38 #define SET_COMPLEXPIXEL(objPtr, repPtr) \ 39 (objPtr)->internalRep.twoPtrValue.ptr1 = 0; \ 40 (objPtr) [all...] |
H A D | tkCursor.c | 46 static void FreeCursorObjProc _ANSI_ARGS_((Tcl_Obj *objPtr)); 50 Tcl_Obj *objPtr)); 51 static void InitCursorObj _ANSI_ARGS_((Tcl_Obj *objPtr)); 80 * unless objPtr couldn't be parsed correctly. In this case, 96 Tk_AllocCursorFromObj(interp, tkwin, objPtr) 99 Tcl_Obj *objPtr; /* Object describing cursor; see manual 105 if (objPtr->typePtr != &tkCursorObjType) { 106 InitCursorObj(objPtr); 108 cursorPtr = (TkCursor *) objPtr->internalRep.twoPtrValue.ptr1; 121 FreeCursorObjProc(objPtr); 848 Tcl_Obj *resultPtr, *objPtr; local [all...] |
H A D | tkColor.c | 48 static void FreeColorObjProc _ANSI_ARGS_((Tcl_Obj *objPtr)); 49 static void InitColorObj _ANSI_ARGS_((Tcl_Obj *objPtr)); 77 * given by the string in objPtr, and also specifies a pixel value 92 Tk_AllocColorFromObj(interp, tkwin, objPtr) 96 Tcl_Obj *objPtr; /* Object that describes the color; string 102 if (objPtr->typePtr != &tkColorObjType) { 103 InitColorObj(objPtr); 105 tkColPtr = (TkColor *) objPtr->internalRep.twoPtrValue.ptr1; 119 FreeColorObjProc(objPtr); 137 FreeColorObjProc(objPtr); 793 Tcl_Obj *resultPtr, *objPtr; local [all...] |
H A D | tkBitmap.c | 115 static void FreeBitmapObjProc _ANSI_ARGS_((Tcl_Obj *objPtr)); 119 Tcl_Obj *objPtr)); 120 static void InitBitmapObj _ANSI_ARGS_((Tcl_Obj *objPtr)); 163 Tk_AllocBitmapFromObj(interp, tkwin, objPtr) 167 Tcl_Obj *objPtr; /* Object describing bitmap; see manual 172 if (objPtr->typePtr != &tkBitmapObjType) { 173 InitBitmapObj(objPtr); 175 bitmapPtr = (TkBitmap *) objPtr->internalRep.twoPtrValue.ptr1; 189 FreeBitmapObjProc(objPtr); 207 FreeBitmapObjProc(objPtr); 1145 Tcl_Obj *resultPtr, *objPtr; local [all...] |
/macosx-10.9.5/tcl-102/tk/tk/generic/ |
H A D | tkObj.c | 27 #define SIMPLE_PIXELREP(objPtr) \ 28 ((objPtr)->internalRep.twoPtrValue.ptr2 == 0) 30 #define SET_SIMPLEPIXEL(objPtr, intval) \ 31 (objPtr)->internalRep.twoPtrValue.ptr1 = INT2PTR(intval); \ 32 (objPtr)->internalRep.twoPtrValue.ptr2 = 0 34 #define GET_SIMPLEPIXEL(objPtr) \ 35 (PTR2INT((objPtr)->internalRep.twoPtrValue.ptr1)) 37 #define SET_COMPLEXPIXEL(objPtr, repPtr) \ 38 (objPtr)->internalRep.twoPtrValue.ptr1 = 0; \ 39 (objPtr) 148 GetPixelsFromObjEx( Tcl_Interp *interp, Tk_Window tkwin, Tcl_Obj *objPtr, int *intPtr, double *dblPtr) argument 232 Tk_GetPixelsFromObj( Tcl_Interp *interp, Tk_Window tkwin, Tcl_Obj *objPtr, int *intPtr) argument 263 Tk_GetDoublePixelsFromObj( Tcl_Interp *interp, Tk_Window tkwin, Tcl_Obj *objPtr, double *doublePtr) argument 308 FreePixelInternalRep( Tcl_Obj *objPtr) argument 381 SetPixelFromAny( Tcl_Interp *interp, Tcl_Obj *objPtr) argument 483 Tk_GetMMFromObj( Tcl_Interp *interp, Tk_Window tkwin, Tcl_Obj *objPtr, double *doublePtr) argument 539 FreeMMInternalRep( Tcl_Obj *objPtr) argument 602 UpdateStringOfMM( register Tcl_Obj *objPtr) argument 643 SetMMFromAny( Tcl_Interp *interp, Tcl_Obj *objPtr) argument 769 TkGetWindowFromObj( Tcl_Interp *interp, Tk_Window tkwin, Tcl_Obj *objPtr, Tk_Window *windowPtr) argument 828 SetWindowFromAny( Tcl_Interp *interp, register Tcl_Obj *objPtr) argument 909 FreeWindowInternalRep( Tcl_Obj *objPtr) argument [all...] |
H A D | tkCursor.c | 45 static void FreeCursorObjProc(Tcl_Obj *objPtr); 48 static TkCursor * GetCursorFromObj(Tk_Window tkwin, Tcl_Obj *objPtr); 49 static void InitCursorObj(Tcl_Obj *objPtr); 78 * objPtr couldn't be parsed correctly. In this case, None is returned 96 Tcl_Obj *objPtr) /* Object describing cursor; see manual entry 102 if (objPtr->typePtr != &tkCursorObjType) { 103 InitCursorObj(objPtr); 105 cursorPtr = (TkCursor *) objPtr->internalRep.twoPtrValue.ptr1; 119 FreeCursorObjProc(objPtr); 136 FreeCursorObjProc(objPtr); 92 Tk_AllocCursorFromObj( Tcl_Interp *interp, Tk_Window tkwin, Tcl_Obj *objPtr) argument 546 Tk_FreeCursorFromObj( Tk_Window tkwin, Tcl_Obj *objPtr) argument 575 FreeCursorObjProc( Tcl_Obj *objPtr) argument 644 Tk_GetCursorFromObj( Tk_Window tkwin, Tcl_Obj *objPtr) argument 678 GetCursorFromObj( Tk_Window tkwin, Tcl_Obj *objPtr) argument 750 InitCursorObj( Tcl_Obj *objPtr) argument 839 Tcl_Obj *resultPtr, *objPtr; local [all...] |
H A D | tkColor.c | 47 static void FreeColorObjProc(Tcl_Obj *objPtr); 48 static void InitColorObj(Tcl_Obj *objPtr); 76 * in objPtr, and also specifies a pixel value to use to draw in that 94 Tcl_Obj *objPtr) /* Object that describes the color; string 100 if (objPtr->typePtr != &tkColorObjType) { 101 InitColorObj(objPtr); 103 tkColPtr = (TkColor *) objPtr->internalRep.twoPtrValue.ptr1; 117 FreeColorObjProc(objPtr); 135 FreeColorObjProc(objPtr); 142 objPtr 89 Tk_AllocColorFromObj( Tcl_Interp *interp, Tk_Window tkwin, Tcl_Obj *objPtr) argument 527 Tk_FreeColorFromObj( Tk_Window tkwin, Tcl_Obj *objPtr) argument 556 FreeColorObjProc( Tcl_Obj *objPtr) argument 624 Tk_GetColorFromObj( Tk_Window tkwin, Tcl_Obj *objPtr) argument 708 InitColorObj( Tcl_Obj *objPtr) argument 792 Tcl_Obj *objPtr = Tcl_NewObj(); local [all...] |
/macosx-10.9.5/tcl-102/tk/tk/generic/ttk/ |
H A D | ttkState.c | 73 static int StateSpecSetFromAny(Tcl_Interp *interp, Tcl_Obj *objPtr) argument 81 status = Tcl_ListObjGetElements(interp, objPtr, &objc, &objv); 118 if (objPtr->typePtr && objPtr->typePtr->freeIntRepProc) { 119 objPtr->typePtr->freeIntRepProc(objPtr); 122 objPtr->typePtr = &StateSpecObjType; 123 objPtr->internalRep.longValue = (onbits << 16) | offbits; 128 static void StateSpecUpdateString(Tcl_Obj *objPtr) argument 130 unsigned int onbits = (objPtr 166 Tcl_Obj *objPtr = Tcl_NewObj(); local 175 Ttk_GetStateSpecFromObj( Tcl_Interp *interp, Tcl_Obj *objPtr, Ttk_StateSpec *spec) argument [all...] |
H A D | ttkCache.c | 229 * CheckNamedColor(objPtr) -- 230 * If objPtr is a registered color name, return a Tcl_Obj * 234 static Tcl_Obj *CheckNamedColor(Ttk_ResourceCache cache, Tcl_Obj *objPtr) argument 237 Tcl_FindHashEntry(&cache->namedColors, Tcl_GetString(objPtr)); 239 objPtr = Tcl_GetHashValue(entryPtr); 241 return objPtr; 254 Tcl_Obj *objPtr) 258 Tcl_CreateHashEntry(table,Tcl_GetString(objPtr),&newEntry); 265 cacheObj = Tcl_DuplicateObj(objPtr); 283 Tcl_Obj *Ttk_UseFont(Ttk_ResourceCache cache, Tk_Window tkwin, Tcl_Obj *objPtr) argument 249 Ttk_Use( Tcl_Interp *interp, Tcl_HashTable *table, Allocator allocate, Tk_Window tkwin, Tcl_Obj *objPtr) argument 294 Ttk_UseColor(Ttk_ResourceCache cache, Tk_Window tkwin, Tcl_Obj *objPtr) argument 306 Ttk_UseBorder( Ttk_ResourceCache cache, Tk_Window tkwin, Tcl_Obj *objPtr) argument 327 Ttk_UseImage(Ttk_ResourceCache cache, Tk_Window tkwin, Tcl_Obj *objPtr) argument [all...] |
/macosx-10.9.5/tcl-102/tcl_ext/tkimg/tkimg/base/ |
H A D | tkimgUtils.c | 62 * Returns a pointer to the string representation of objPtr. If 70 * - objPtr is allowed to be NULL. In that case the NULL pointer 84 register Tcl_Obj *objPtr, /* Object whose string rep byte pointer 90 if (!objPtr) { 98 char *string = LangString((Arg) objPtr); 105 return Tcl_GetStringFromObj(objPtr, lengthPtr); 120 * Returns a pointer to the byte representation of objPtr. If 134 register Tcl_Obj *objPtr, /**< Object whose string rep byte pointer 141 char *string = LangString((Arg) objPtr); 148 return Tcl_GetByteArrayFromObj(objPtr, lengthPt 82 tkimg_GetStringFromObj( register Tcl_Obj *objPtr, register int *lengthPtr ) argument 131 tkimg_GetByteArrayFromObj( register Tcl_Obj *objPtr, register int *lengthPtr ) argument 172 tkimg_ListObjGetElements( Tcl_Interp *interp, Tcl_Obj *objPtr, int *objc, Tcl_Obj ***objv ) argument [all...] |
/macosx-10.9.5/tcl-102/tcl_ext/tclx/tclx/generic/ |
H A D | tclXfstat.c | 270 Tcl_Obj *objPtr; 273 objPtr = Tcl_NewIntObj ((int) statBufPtr->st_dev); 275 objPtr = Tcl_NewIntObj ((int) statBufPtr->st_ino); 277 objPtr = Tcl_NewIntObj ((int) statBufPtr->st_mode); 279 objPtr = Tcl_NewIntObj ((int) statBufPtr->st_nlink); 281 objPtr = Tcl_NewIntObj ((int) statBufPtr->st_uid); 283 objPtr = Tcl_NewIntObj ((int) statBufPtr->st_gid); 285 objPtr = Tcl_NewLongObj ((long) statBufPtr->st_size); 287 objPtr = Tcl_NewLongObj ((long) statBufPtr->st_atime); 289 objPtr 266 Tcl_Obj *objPtr; local [all...] |