generic

tclObj.c File Reference

#include "tclInt.h"
#include "tommath.h"
#include <float.h>

Go to the source code of this file.

Data Structures

struct  PendingObjData
struct  ResolvedCmdName

Defines

#define ObjDeletionLock(contextPtr)   ((contextPtr)->deletionCount++)
#define ObjDeletionUnlock(contextPtr)   ((contextPtr)->deletionCount--)
#define ObjDeletePending(contextPtr)   ((contextPtr)->deletionCount > 0)
#define ObjOnStack(contextPtr)   ((contextPtr)->deletionStack != NULL)
#define PushObjToDelete(contextPtr, objPtr)
#define PopObjToDelete(contextPtr, objPtrVar)
#define ObjInitDeletionContext(contextPtr)   PendingObjData *CONST contextPtr = &pendingObjData
#define PACK_BIGNUM(bignum, objPtr)
#define UNPACK_BIGNUM(objPtr, bignum)
#define OBJS_TO_ALLOC_EACH_TIME   100

Functions

void TclInitObjSubsystem (void)
void TclFinalizeObjects (void)
void Tcl_RegisterObjType (Tcl_ObjType *typePtr)
int Tcl_AppendAllObjTypes (Tcl_Interp *interp, Tcl_Obj *objPtr)
Tcl_ObjType * Tcl_GetObjType (CONST char *typeName)
int Tcl_ConvertToType (Tcl_Interp *interp, Tcl_Obj *objPtr, Tcl_ObjType *typePtr)
Tcl_Obj * Tcl_NewObj (void)
Tcl_Obj * Tcl_DbNewObj (CONST char *file, int line)
void TclAllocateFreeObjects (void)
void TclFreeObj (register Tcl_Obj *objPtr)
int TclObjBeingDeleted (Tcl_Obj *objPtr)
Tcl_Obj * Tcl_DuplicateObj (register Tcl_Obj *objPtr)
char * Tcl_GetString (register Tcl_Obj *objPtr)
char * Tcl_GetStringFromObj (register Tcl_Obj *objPtr, register int *lengthPtr)
void Tcl_InvalidateStringRep (register Tcl_Obj *objPtr)
Tcl_Obj * Tcl_NewBooleanObj (register int boolValue)
Tcl_Obj * Tcl_DbNewBooleanObj (register int boolValue, CONST char *file, int line)
void Tcl_SetBooleanObj (register Tcl_Obj *objPtr, register int boolValue)
int Tcl_GetBooleanFromObj (Tcl_Interp *interp, register Tcl_Obj *objPtr, register int *boolPtr)
Tcl_Obj * Tcl_NewDoubleObj (register double dblValue)
Tcl_Obj * Tcl_DbNewDoubleObj (register double dblValue, CONST char *file, int line)
void Tcl_SetDoubleObj (register Tcl_Obj *objPtr, register double dblValue)
int Tcl_GetDoubleFromObj (Tcl_Interp *interp, register Tcl_Obj *objPtr, register double *dblPtr)
Tcl_Obj * Tcl_NewIntObj (register int intValue)
void Tcl_SetIntObj (register Tcl_Obj *objPtr, register int intValue)
int Tcl_GetIntFromObj (Tcl_Interp *interp, register Tcl_Obj *objPtr, register int *intPtr)
Tcl_Obj * Tcl_NewLongObj (register long longValue)
Tcl_Obj * Tcl_DbNewLongObj (register long longValue, CONST char *file, int line)
void Tcl_SetLongObj (register Tcl_Obj *objPtr, register long longValue)
int Tcl_GetLongFromObj (Tcl_Interp *interp, register Tcl_Obj *objPtr, register long *longPtr)
Tcl_Obj * Tcl_NewWideIntObj (register Tcl_WideInt wideValue)
Tcl_Obj * Tcl_DbNewWideIntObj (register Tcl_WideInt wideValue, CONST char *file, int line)
void Tcl_SetWideIntObj (register Tcl_Obj *objPtr, register Tcl_WideInt wideValue)
int Tcl_GetWideIntFromObj (Tcl_Interp *interp, register Tcl_Obj *objPtr, register Tcl_WideInt *wideIntPtr)
Tcl_Obj * Tcl_NewBignumObj (mp_int *bignumValue)
Tcl_Obj * Tcl_DbNewBignumObj (mp_int *bignumValue, CONST char *file, int line)
int Tcl_GetBignumFromObj (Tcl_Interp *interp, Tcl_Obj *objPtr, mp_int *bignumValue)
int Tcl_TakeBignumFromObj (Tcl_Interp *interp, Tcl_Obj *objPtr, mp_int *bignumValue)
void Tcl_SetBignumObj (Tcl_Obj *objPtr, mp_int *bignumValue)
void TclSetBignumIntRep (Tcl_Obj *objPtr, mp_int *bignumValue)
int TclGetNumberFromObj (Tcl_Interp *interp, Tcl_Obj *objPtr, ClientData *clientDataPtr, int *typePtr)
void Tcl_DbIncrRefCount (register Tcl_Obj *objPtr, CONST char *file, int line)
void Tcl_DbDecrRefCount (register Tcl_Obj *objPtr, CONST char *file, int line)
int Tcl_DbIsShared (register Tcl_Obj *objPtr, CONST char *file, int line)
void Tcl_InitObjHashTable (register Tcl_HashTable *tablePtr)
int TclCompareObjKeys (void *keyPtr, Tcl_HashEntry *hPtr)
void TclFreeObjEntry (Tcl_HashEntry *hPtr)
unsigned int TclHashObjKey (Tcl_HashTable *tablePtr, void *keyPtr)
Tcl_Command Tcl_GetCommandFromObj (Tcl_Interp *interp, register Tcl_Obj *objPtr)
void TclSetCmdNameObj (Tcl_Interp *interp, register Tcl_Obj *objPtr, Command *cmdPtr)

Variables

Tcl_Obj * tclFreeObjList = NULL
char tclEmptyString = '\0'
char * tclEmptyStringRep = &tclEmptyString
Tcl_ObjType tclBooleanType
Tcl_ObjType tclDoubleType
Tcl_ObjType tclIntType
Tcl_ObjType tclWideIntType
Tcl_ObjType tclBignumType
Tcl_HashKeyType tclObjHashKeyType

Define Documentation

#define ObjDeletePending ( contextPtr   )     ((contextPtr)->deletionCount > 0)

Definition at line 111 of file tclObj.c.

Referenced by TclFreeObj().

#define ObjDeletionLock ( contextPtr   )     ((contextPtr)->deletionCount++)

Definition at line 109 of file tclObj.c.

Referenced by TclFreeObj().

#define ObjDeletionUnlock ( contextPtr   )     ((contextPtr)->deletionCount--)

Definition at line 110 of file tclObj.c.

Referenced by TclFreeObj().

#define ObjInitDeletionContext ( contextPtr   )     PendingObjData *CONST contextPtr = &pendingObjData

Definition at line 126 of file tclObj.c.

Referenced by TclFreeObj().

#define ObjOnStack ( contextPtr   )     ((contextPtr)->deletionStack != NULL)

Definition at line 112 of file tclObj.c.

Referenced by TclFreeObj().

#define OBJS_TO_ALLOC_EACH_TIME   100

Definition at line 773 of file tclObj.c.

Referenced by TclAllocateFreeObjects().

#define PACK_BIGNUM ( bignum,
objPtr   ) 

Value:

if ((bignum).used > 0x7fff) { \
        mp_int *temp = (void *) ckalloc((unsigned) sizeof(mp_int)); \
        *temp = bignum; \
        (objPtr)->internalRep.ptrAndLongRep.ptr = (void*) temp; \
        (objPtr)->internalRep.ptrAndLongRep.value = (unsigned long)(-1); \
    } else { \
        if ((bignum).alloc > 0x7fff) { \
            mp_shrink(&(bignum)); \
        } \
        (objPtr)->internalRep.ptrAndLongRep.ptr = (void*) (bignum).dp; \
        (objPtr)->internalRep.ptrAndLongRep.value = ( ((bignum).sign << 30) \
                | ((bignum).alloc << 15) | ((bignum).used)); \
    }

Definition at line 139 of file tclObj.c.

Referenced by TclSetBignumIntRep().

#define PopObjToDelete ( contextPtr,
objPtrVar   ) 

Value:

(objPtrVar) = (contextPtr)->deletionStack; \
    (contextPtr)->deletionStack = (Tcl_Obj *) (objPtrVar)->bytes

Definition at line 117 of file tclObj.c.

Referenced by TclFreeObj().

#define PushObjToDelete ( contextPtr,
objPtr   ) 

Value:

/* The string rep is already invalidated so we can use the bytes value \
     * for our pointer chain: push onto the head of the stack. */ \
    (objPtr)->bytes = (char *) ((contextPtr)->deletionStack); \
    (contextPtr)->deletionStack = (objPtr)

Definition at line 113 of file tclObj.c.

Referenced by TclFreeObj().

#define UNPACK_BIGNUM ( objPtr,
bignum   ) 

Value:

if ((objPtr)->internalRep.ptrAndLongRep.value == (unsigned long)(-1)) { \
        (bignum) = *((mp_int *) ((objPtr)->internalRep.ptrAndLongRep.ptr)); \
    } else { \
        (bignum).dp = (mp_digit*) (objPtr)->internalRep.ptrAndLongRep.ptr; \
        (bignum).sign = (objPtr)->internalRep.ptrAndLongRep.value >> 30; \
        (bignum).alloc = \
                ((objPtr)->internalRep.ptrAndLongRep.value >> 15) & 0x7fff; \
        (bignum).used = (objPtr)->internalRep.ptrAndLongRep.value & 0x7fff; \
    }

Definition at line 154 of file tclObj.c.

Referenced by Tcl_GetDoubleFromObj(), Tcl_GetLongFromObj(), Tcl_GetWideIntFromObj(), and TclGetNumberFromObj().

Function Documentation

int Tcl_AppendAllObjTypes ( Tcl_Interp *  interp,
Tcl_Obj *  objPtr 
)

Definition at line 478 of file tclObj.c.

References TCL_ERROR, Tcl_FirstHashEntry(), Tcl_GetHashKey, Tcl_ListObjAppendElement(), Tcl_MutexLock, Tcl_MutexUnlock, Tcl_NewStringObj(), Tcl_NextHashEntry(), TCL_OK, and TclListObjLength.

int Tcl_ConvertToType ( Tcl_Interp *  interp,
Tcl_Obj *  objPtr,
Tcl_ObjType *  typePtr 
)

Definition at line 565 of file tclObj.c.

References Tcl_ObjType::name, Tcl_ObjType::setFromAnyProc, TCL_OK, Tcl_Panic(), and Tcl_Obj::typePtr.

Referenced by Tcl_FSConvertToPathType(), Tcl_FSGetNormalizedPath(), and Tcl_GetBoolean().

void Tcl_DbDecrRefCount ( register Tcl_Obj *  objPtr,
CONST char *  file,
int  line 
)

Definition at line 3142 of file tclObj.c.

References Tcl_DeleteHashEntry(), Tcl_FindHashEntry, Tcl_Panic(), TCL_TSD_INIT, TclFreeObj(), and TclInExit().

void Tcl_DbIncrRefCount ( register Tcl_Obj *  objPtr,
CONST char *  file,
int  line 
)

Definition at line 3077 of file tclObj.c.

References Tcl_FindHashEntry, Tcl_Panic(), TCL_TSD_INIT, and TclInExit().

int Tcl_DbIsShared ( register Tcl_Obj *  objPtr,
CONST char *  file,
int  line 
)

Definition at line 3214 of file tclObj.c.

References Tcl_FindHashEntry, Tcl_MutexLock, Tcl_MutexUnlock, Tcl_Panic(), TCL_TSD_INIT, and TclInExit().

Tcl_Obj* Tcl_DbNewBignumObj ( mp_int *  bignumValue,
CONST char *  file,
int  line 
)

Definition at line 2753 of file tclObj.c.

References Tcl_NewBignumObj().

Tcl_Obj* Tcl_DbNewBooleanObj ( register int  boolValue,
CONST char *  file,
int  line 
)

Definition at line 1236 of file tclObj.c.

References Tcl_NewBooleanObj().

Tcl_Obj* Tcl_DbNewDoubleObj ( register double  dblValue,
CONST char *  file,
int  line 
)

Definition at line 1621 of file tclObj.c.

References Tcl_NewDoubleObj().

Tcl_Obj* Tcl_DbNewLongObj ( register long  longValue,
CONST char *  file,
int  line 
)

Definition at line 2091 of file tclObj.c.

References Tcl_NewLongObj().

Tcl_Obj* Tcl_DbNewObj ( CONST char *  file,
int  line 
)

Definition at line 742 of file tclObj.c.

References Tcl_NewObj().

Tcl_Obj* Tcl_DbNewWideIntObj ( register Tcl_WideInt  wideValue,
CONST char *  file,
int  line 
)

Definition at line 2391 of file tclObj.c.

References Tcl_NewWideIntObj().

Tcl_Obj* Tcl_DuplicateObj ( register Tcl_Obj *  objPtr  ) 

Definition at line 1006 of file tclObj.c.

References Tcl_Obj::bytes, Tcl_ObjType::dupIntRepProc, Tcl_Obj::internalRep, TclInitStringRep, TclNewObj, and Tcl_Obj::typePtr.

int Tcl_GetBignumFromObj ( Tcl_Interp *  interp,
Tcl_Obj *  objPtr,
mp_int *  bignumValue 
)

Definition at line 2860 of file tclObj.c.

Referenced by Tcl_AppendFormatToObj(), TclExecuteByteCode(), and TclIncrObj().

int Tcl_GetBooleanFromObj ( Tcl_Interp *  interp,
register Tcl_Obj *  objPtr,
register int *  boolPtr 
)

Definition at line 1297 of file tclObj.c.

References TCL_ERROR, Tcl_GetDoubleFromObj(), TCL_OK, tclBignumType, tclBooleanType, tclDoubleType, tclIntType, TclParseNumber(), and tclWideIntType.

Tcl_Command Tcl_GetCommandFromObj ( Tcl_Interp *  interp,
register Tcl_Obj *  objPtr 
)

Definition at line 3488 of file tclObj.c.

References CMD_IS_DELETED, ResolvedCmdName::cmdEpoch, Command::cmdEpoch, ResolvedCmdName::cmdPtr, Namespace::cmdRefEpoch, Command::flags, Namespace::interp, Namespace::nsId, Command::nsPtr, ResolvedCmdName::refNsCmdEpoch, ResolvedCmdName::refNsId, ResolvedCmdName::refNsPtr, Tcl_ObjType::setFromAnyProc, TCL_OK, and TclGetCurrentNamespace.

int Tcl_GetDoubleFromObj ( Tcl_Interp *  interp,
register Tcl_Obj *  objPtr,
register double *  dblPtr 
)

Definition at line 1683 of file tclObj.c.

References TCL_ERROR, Tcl_NewStringObj(), TCL_OK, Tcl_SetObjResult(), TclBignumToDouble(), tclBignumType, tclDoubleType, tclIntType, TclIsNaN, tclWideIntType, and UNPACK_BIGNUM.

int Tcl_GetIntFromObj ( Tcl_Interp *  interp,
register Tcl_Obj *  objPtr,
register int *  intPtr 
)

Definition at line 1895 of file tclObj.c.

References CONST, TCL_ERROR, Tcl_NewStringObj(), TCL_OK, Tcl_SetErrorCode(), Tcl_SetObjResult(), and TclGetLongFromObj.

int Tcl_GetLongFromObj ( Tcl_Interp *  interp,
register Tcl_Obj *  objPtr,
register long *  longPtr 
)

Definition at line 2156 of file tclObj.c.

References DIGIT_BIT, MP_OKAY, mp_to_unsigned_bin_n, Tcl_AppendObjToObj(), Tcl_AppendToObj(), TCL_ERROR, Tcl_NewStringObj(), TCL_OK, TCL_PARSE_INTEGER_ONLY, Tcl_SetErrorCode(), Tcl_SetObjResult(), Tcl_WideAsLong, tclBignumType, tclDoubleType, tclIntType, TclNewLiteralStringObj, TclParseNumber(), tclWideIntType, UNPACK_BIGNUM, and mp_int::used.

Tcl_ObjType* Tcl_GetObjType ( CONST char *  typeName  ) 

Definition at line 529 of file tclObj.c.

References Tcl_FindHashEntry, Tcl_GetHashValue, Tcl_MutexLock, and Tcl_MutexUnlock.

char* Tcl_GetString ( register Tcl_Obj *  objPtr  ) 

Definition at line 1053 of file tclObj.c.

References Tcl_Panic().

char* Tcl_GetStringFromObj ( register Tcl_Obj *  objPtr,
register int *  lengthPtr 
)

Definition at line 1093 of file tclObj.c.

References Tcl_Panic().

int Tcl_GetWideIntFromObj ( Tcl_Interp *  interp,
register Tcl_Obj *  objPtr,
register Tcl_WideInt *  wideIntPtr 
)

Definition at line 2470 of file tclObj.c.

References DIGIT_BIT, MP_OKAY, mp_to_unsigned_bin_n, Tcl_AppendObjToObj(), Tcl_AppendToObj(), TCL_ERROR, Tcl_NewStringObj(), TCL_OK, TCL_PARSE_INTEGER_ONLY, Tcl_SetErrorCode(), Tcl_SetObjResult(), tclBignumType, tclDoubleType, tclIntType, TclNewLiteralStringObj, TclParseNumber(), tclWideIntType, UNPACK_BIGNUM, and mp_int::used.

void Tcl_InitObjHashTable ( register Tcl_HashTable *  tablePtr  ) 

Definition at line 3287 of file tclObj.c.

References TCL_CUSTOM_PTR_KEYS, Tcl_InitCustomHashTable(), and tclObjHashKeyType.

void Tcl_InvalidateStringRep ( register Tcl_Obj *  objPtr  ) 

Definition at line 1133 of file tclObj.c.

References TclInvalidateStringRep.

Tcl_Obj* Tcl_NewBignumObj ( mp_int *  bignumValue  ) 

Definition at line 2709 of file tclObj.c.

References Tcl_SetBignumObj(), and TclNewObj.

Referenced by Tcl_AppendFormatToObj(), Tcl_DbNewBignumObj(), Tcl_ExprLongObj(), and TclExecuteByteCode().

Tcl_Obj* Tcl_NewBooleanObj ( register int  boolValue  ) 

Definition at line 1177 of file tclObj.c.

References TclNewBooleanObj.

Tcl_Obj* Tcl_NewDoubleObj ( register double  dblValue  ) 

Definition at line 1562 of file tclObj.c.

References TclNewDoubleObj.

Tcl_Obj* Tcl_NewIntObj ( register int  intValue  ) 

Definition at line 1828 of file tclObj.c.

References TclNewIntObj.

Tcl_Obj* Tcl_NewLongObj ( register long  longValue  ) 

Definition at line 2024 of file tclObj.c.

References TclNewLongObj.

Tcl_Obj* Tcl_NewObj ( void   ) 

Definition at line 681 of file tclObj.c.

References TclNewObj.

Referenced by Tcl_AfterObjCmd(), Tcl_AppendFormatToObj(), Tcl_BinaryObjCmd(), Tcl_CreateInterp(), Tcl_DbNewObj(), Tcl_ExecObjCmd(), Tcl_ForeachObjCmd(), Tcl_Format(), Tcl_FSEvalFileEx(), Tcl_FSJoinPath(), Tcl_FSListVolumes(), Tcl_FSSplitPath(), Tcl_GetEncodingNames(), Tcl_GetReturnOptions(), Tcl_GetsObjCmd(), Tcl_InterpObjCmd(), Tcl_JoinObjCmd(), Tcl_JoinPath(), Tcl_ListMathFuncs(), Tcl_Main(), Tcl_ObjPrintf(), Tcl_ParseExpr(), Tcl_PidObjCmd(), Tcl_ReadObjCmd(), Tcl_RegexpObjCmd(), Tcl_SaveResult(), Tcl_ScanObjCmd(), Tcl_SetErrorCodeVA(), Tcl_SplitObjCmd(), Tcl_SubstObj(), Tcl_TraceObjCmd(), TclCleanupChildren(), TclClockOldscanObjCmd(), TclCompileExpr(), TclCompileReturnCmd(), TclCompileScript(), TclCompileUpvarCmd(), TclInfoVarsCmd(), TclLindexFlat(), TclMergeReturnOptions(), TclNewFSPathObj(), TclPathPart(), TclpFindExecutable(), TclpInitLibraryPath(), TclRenameCommand(), TclStringObjReverse(), and TclWordKnownAtCompileTime().

Tcl_Obj* Tcl_NewWideIntObj ( register Tcl_WideInt  wideValue  ) 

Definition at line 2324 of file tclObj.c.

References Tcl_SetWideIntObj(), and TclNewObj.

void Tcl_RegisterObjType ( Tcl_ObjType *  typePtr  ) 

Definition at line 440 of file tclObj.c.

References Tcl_ObjType::name, Tcl_CreateHashEntry, Tcl_MutexLock, Tcl_MutexUnlock, and Tcl_SetHashValue.

Referenced by TclInitObjSubsystem().

void Tcl_SetBignumObj ( Tcl_Obj *  objPtr,
mp_int *  bignumValue 
)

Definition at line 2921 of file tclObj.c.

References DIGIT_BIT, mp_clear, MP_OKAY, mp_to_unsigned_bin_n, Tcl_IsShared, Tcl_Panic(), TclFreeIntRep, TclInvalidateStringRep, TclSetBignumIntRep(), TclSetLongObj, TclSetWideIntObj, and mp_int::used.

Referenced by Tcl_NewBignumObj(), Tcl_SetWideIntObj(), TclExecuteByteCode(), and TclIncrObj().

void Tcl_SetBooleanObj ( register Tcl_Obj *  objPtr,
register int  boolValue 
)

Definition at line 1266 of file tclObj.c.

References Tcl_IsShared, Tcl_Panic(), and TclSetBooleanObj.

void Tcl_SetDoubleObj ( register Tcl_Obj *  objPtr,
register double  dblValue 
)

Definition at line 1651 of file tclObj.c.

References Tcl_IsShared, Tcl_Panic(), and TclSetDoubleObj.

void Tcl_SetIntObj ( register Tcl_Obj *  objPtr,
register int  intValue 
)

Definition at line 1857 of file tclObj.c.

References Tcl_IsShared, Tcl_Panic(), and TclSetIntObj.

void Tcl_SetLongObj ( register Tcl_Obj *  objPtr,
register long  longValue 
)

Definition at line 2122 of file tclObj.c.

References Tcl_IsShared, Tcl_Panic(), and TclSetLongObj.

void Tcl_SetWideIntObj ( register Tcl_Obj *  objPtr,
register Tcl_WideInt  wideValue 
)

Definition at line 2423 of file tclObj.c.

References Tcl_IsShared, Tcl_Panic(), Tcl_SetBignumObj(), TclBNInitBignumFromWideInt(), TclSetLongObj, and TclSetWideIntObj.

int Tcl_TakeBignumFromObj ( Tcl_Interp *  interp,
Tcl_Obj *  objPtr,
mp_int *  bignumValue 
)

Definition at line 2895 of file tclObj.c.

Referenced by TclExecuteByteCode(), and TclIncrObj().

void TclAllocateFreeObjects ( void   ) 

Definition at line 776 of file tclObj.c.

References ckalloc, Tcl_Obj::internalRep, OBJS_TO_ALLOC_EACH_TIME, Tcl_Obj::otherValuePtr, and tclFreeObjList.

int TclCompareObjKeys ( void *  keyPtr,
Tcl_HashEntry *  hPtr 
)

Definition at line 3346 of file tclObj.c.

References CONST, Tcl_HashEntry::key, Tcl_Obj::length, Tcl_HashEntry::oneWordValue, and TclGetString.

void TclFinalizeObjects ( void   ) 

Definition at line 401 of file tclObj.c.

References Tcl_DeleteHashTable(), Tcl_MutexLock, Tcl_MutexUnlock, and tclFreeObjList.

Referenced by Tcl_Finalize().

void TclFreeObj ( register Tcl_Obj *  objPtr  ) 

Definition at line 886 of file tclObj.c.

References Tcl_ObjType::freeIntRepProc, ObjDeletePending, ObjDeletionLock, ObjDeletionUnlock, ObjInitDeletionContext, ObjOnStack, PopObjToDelete, PushObjToDelete, TCL_DTRACE_OBJ_FREE, TclFreeObjStorage, TclIncrObjsFreed, TclInvalidateStringRep, and Tcl_Obj::typePtr.

void TclFreeObjEntry ( Tcl_HashEntry *  hPtr  ) 

Definition at line 3408 of file tclObj.c.

References ckfree, Tcl_HashEntry::key, Tcl_HashEntry::oneWordValue, and Tcl_DecrRefCount.

int TclGetNumberFromObj ( Tcl_Interp *  interp,
Tcl_Obj *  objPtr,
ClientData *  clientDataPtr,
int *  typePtr 
)

Definition at line 3013 of file tclObj.c.

References Tcl_Obj::doubleValue, Tcl_Obj::internalRep, Tcl_Obj::longValue, TCL_ERROR, Tcl_GetThreadData(), TCL_NUMBER_BIG, TCL_NUMBER_DOUBLE, TCL_NUMBER_LONG, TCL_NUMBER_NAN, TCL_NUMBER_WIDE, TCL_OK, tclBignumType, tclDoubleType, tclIntType, TclIsNaN, TclParseNumber(), tclWideIntType, Tcl_Obj::typePtr, UNPACK_BIGNUM, and Tcl_Obj::wideValue.

Referenced by Tcl_ExprDoubleObj(), and Tcl_ExprLongObj().

unsigned int TclHashObjKey ( Tcl_HashTable *  tablePtr,
void *  keyPtr 
)

Definition at line 3436 of file tclObj.c.

References CONST, Tcl_Obj::length, and TclGetString.

void TclInitObjSubsystem ( void   ) 

Definition at line 343 of file tclObj.c.

References Tcl_InitHashTable(), Tcl_MutexLock, Tcl_MutexUnlock, Tcl_RegisterObjType(), TCL_STRING_KEYS, tclArraySearchType, tclByteArrayType, tclByteCodeType, tclDictType, tclDoubleType, tclEndOffsetType, tclIntType, tclListType, tclProcBodyType, tclRegexpType, tclStringType, and tclWideIntType.

Referenced by TclInitSubsystems().

int TclObjBeingDeleted ( Tcl_Obj *  objPtr  ) 

Definition at line 969 of file tclObj.c.

References Tcl_Obj::length.

void TclSetBignumIntRep ( Tcl_Obj *  objPtr,
mp_int *  bignumValue 
)

Definition at line 2983 of file tclObj.c.

References mp_int::alloc, mp_int::dp, MP_NEG, PACK_BIGNUM, mp_int::sign, tclBignumType, Tcl_Obj::typePtr, and mp_int::used.

Referenced by Tcl_SetBignumObj(), and TclParseNumber().

void TclSetCmdNameObj ( Tcl_Interp *  interp,
register Tcl_Obj *  objPtr,
Command *  cmdPtr 
)

Definition at line 3568 of file tclObj.c.

References ckalloc, Command::cmdEpoch, ResolvedCmdName::cmdEpoch, ResolvedCmdName::cmdPtr, Namespace::cmdRefEpoch, iPtr, Namespace::nsId, CallFrame::nsPtr, ResolvedCmdName::refCount, Command::refCount, ResolvedCmdName::refNsCmdEpoch, ResolvedCmdName::refNsId, ResolvedCmdName::refNsPtr, TclFreeIntRep, TclGetString, and Interp::varFramePtr.

Variable Documentation

Tcl_ObjType tclBignumType

Initial value:

 {
    "bignum",                           
    FreeBignum,                         
    DupBignum,                          
    UpdateStringOfBignum,               
    NULL                                
}

Definition at line 244 of file tclObj.c.

Tcl_ObjType tclBooleanType

Initial value:

 {
    "booleanString",                    
    NULL,                               
    NULL,                               
    NULL,                               
    SetBooleanFromAny                   
}

Definition at line 214 of file tclObj.c.

Tcl_ObjType tclDoubleType

Initial value:

 {
    "double",                           
    NULL,                               
    NULL,                               
    UpdateStringOfDouble,               
    SetDoubleFromAny                    
}

Definition at line 221 of file tclObj.c.

char tclEmptyString = '\0'

Definition at line 53 of file tclObj.c.

char* tclEmptyStringRep = &tclEmptyString

Definition at line 54 of file tclObj.c.

Tcl_Obj* tclFreeObjList = NULL

Definition at line 35 of file tclObj.c.

Tcl_ObjType tclIntType

Initial value:

 {
    "int",                              
    NULL,                               
    NULL,                               
    UpdateStringOfInt,                  
    SetIntFromAny                       
}

Definition at line 228 of file tclObj.c.

Tcl_HashKeyType tclObjHashKeyType

Initial value:

 {
    TCL_HASH_KEY_TYPE_VERSION,  
    0,                          
    TclHashObjKey,              
    TclCompareObjKeys,          
    AllocObjEntry,              
    TclFreeObjEntry             
}

Definition at line 256 of file tclObj.c.

Tcl_ObjType tclWideIntType

Initial value:

 {
    "wideInt",                          
    NULL,                               
    NULL,                               
    UpdateStringOfWideInt,              
    SetWideIntFromAny                   
}

Definition at line 236 of file tclObj.c.


Generated on Wed Mar 12 12:18:33 2008 by  doxygen 1.5.1