diff options
author | joye <joye> | 2014-01-17 16:06:16 (GMT) |
---|---|---|
committer | joye <joye> | 2014-01-17 16:06:16 (GMT) |
commit | 6cd8cfd53dd4383bd48e2d45aeec5844b3b7179e (patch) | |
tree | b7549350e28bed07b281b87b8f6d9e9e199b1e8e /src/bltVecMath.C | |
parent | b12e4c0676983f1b73b233be00fd8987033752fe (diff) | |
download | blt-6cd8cfd53dd4383bd48e2d45aeec5844b3b7179e.zip blt-6cd8cfd53dd4383bd48e2d45aeec5844b3b7179e.tar.gz blt-6cd8cfd53dd4383bd48e2d45aeec5844b3b7179e.tar.bz2 |
*** empty log message ***
Diffstat (limited to 'src/bltVecMath.C')
-rw-r--r-- | src/bltVecMath.C | 38 |
1 files changed, 19 insertions, 19 deletions
diff --git a/src/bltVecMath.C b/src/bltVecMath.C index 80c9d1e..fd7db6a 100644 --- a/src/bltVecMath.C +++ b/src/bltVecMath.C @@ -740,7 +740,7 @@ ParseMathFunction( * must have initialized pv field * correctly. */ { - Blt_HashEntry *hPtr; + Tcl_HashEntry *hPtr; MathFunction *mathPtr; /* Info about math function. */ char *p; VectorInterpData *dataPtr; /* Interpreter-specific data. */ @@ -763,7 +763,7 @@ ParseMathFunction( } dataPtr = valuePtr->vPtr->dataPtr; *p = '\0'; - hPtr = Blt_FindHashEntry(&dataPtr->mathProcTable, piPtr->nextPtr); + hPtr = Tcl_FindHashEntry(&dataPtr->mathProcTable, piPtr->nextPtr); *p = '('; if (hPtr == NULL) { return TCL_RETURN; /* Name doesn't match any known function */ @@ -780,7 +780,7 @@ ParseMathFunction( piPtr->expr, "\"", (char *)NULL); return TCL_ERROR; /* Missing right parenthesis */ } - mathPtr = Blt_GetHashValue(hPtr); + mathPtr = Tcl_GetHashValue(hPtr); proc = mathPtr->proc; if ((*proc) (mathPtr->clientData, interp, valuePtr->vPtr) != TCL_OK) { return TCL_ERROR; /* Function invocation error */ @@ -1765,30 +1765,30 @@ static MathFunction mathFunctions[] = }; void -Blt_Vec_InstallMathFunctions(Blt_HashTable *tablePtr) +Blt_Vec_InstallMathFunctions(Tcl_HashTable *tablePtr) { MathFunction *mathPtr; for (mathPtr = mathFunctions; mathPtr->name != NULL; mathPtr++) { - Blt_HashEntry *hPtr; + Tcl_HashEntry *hPtr; int isNew; - hPtr = Blt_CreateHashEntry(tablePtr, mathPtr->name, &isNew); - Blt_SetHashValue(hPtr, (ClientData)mathPtr); + hPtr = Tcl_CreateHashEntry(tablePtr, mathPtr->name, &isNew); + Tcl_SetHashValue(hPtr, (ClientData)mathPtr); } } void -Blt_Vec_UninstallMathFunctions(Blt_HashTable *tablePtr) +Blt_Vec_UninstallMathFunctions(Tcl_HashTable *tablePtr) { - Blt_HashEntry *hPtr; - Blt_HashSearch cursor; + Tcl_HashEntry *hPtr; + Tcl_HashSearch cursor; - for (hPtr = Blt_FirstHashEntry(tablePtr, &cursor); hPtr != NULL; - hPtr = Blt_NextHashEntry(&cursor)) { + for (hPtr = Tcl_FirstHashEntry(tablePtr, &cursor); hPtr != NULL; + hPtr = Tcl_NextHashEntry(&cursor)) { MathFunction *mathPtr; - mathPtr = Blt_GetHashValue(hPtr); + mathPtr = Tcl_GetHashValue(hPtr); if (mathPtr->name == NULL) { free(mathPtr); } @@ -1798,7 +1798,7 @@ Blt_Vec_UninstallMathFunctions(Blt_HashTable *tablePtr) static void InstallIndexProc( - Blt_HashTable *tablePtr, + Tcl_HashTable *tablePtr, const char *string, Blt_VectorIndexProc *procPtr) /* Pointer to function to be called * when the vector finds the named index. @@ -1806,19 +1806,19 @@ InstallIndexProc( * the index from the table. */ { - Blt_HashEntry *hPtr; + Tcl_HashEntry *hPtr; int dummy; - hPtr = Blt_CreateHashEntry(tablePtr, string, &dummy); + hPtr = Tcl_CreateHashEntry(tablePtr, string, &dummy); if (procPtr == NULL) { - Blt_DeleteHashEntry(tablePtr, hPtr); + Tcl_DeleteHashEntry(hPtr); } else { - Blt_SetHashValue(hPtr, (ClientData)procPtr); + Tcl_SetHashValue(hPtr, (ClientData)procPtr); } } void -Blt_Vec_InstallSpecialIndices(Blt_HashTable *tablePtr) +Blt_Vec_InstallSpecialIndices(Tcl_HashTable *tablePtr) { InstallIndexProc(tablePtr, "min", Blt_VecMin); InstallIndexProc(tablePtr, "max", Blt_VecMax); |