Changeset 2213
- Timestamp:
- Oct 27, 2004, 10:11:47 AM (22 years ago)
- Location:
- trunk/psLib/src
- Files:
-
- 8 edited
-
dataManip/psConstants.h (modified) (6 diffs)
-
dataManip/psMatrix.c (modified) (6 diffs)
-
dataManip/psMinimize.c (modified) (7 diffs)
-
dataManip/psStats.c (modified) (2 diffs)
-
math/psConstants.h (modified) (6 diffs)
-
math/psMatrix.c (modified) (6 diffs)
-
math/psMinimize.c (modified) (7 diffs)
-
math/psStats.c (modified) (2 diffs)
Legend:
- Unmodified
- Added
- Removed
-
trunk/psLib/src/dataManip/psConstants.h
r2212 r2213 6 6 * @author GLG, MHPCC 7 7 * 8 * @version $Revision: 1.2 0$ $Name: not supported by cvs2svn $9 * @date $Date: 2004-10-27 20: 07:17$8 * @version $Revision: 1.21 $ $Name: not supported by cvs2svn $ 9 * @date $Date: 2004-10-27 20:11:46 $ 10 10 * 11 11 * Copyright 2004 Maui High Performance Computing Center, University of Hawaii … … 119 119 120 120 /** Preprocessor macro to generate error on an incorrect type */ 121 #define PS_ CHECK_VECTOR_TYPE(NAME, TYPE, RVAL) \121 #define PS_VECTOR_CHECK_TYPE(NAME, TYPE, RVAL) \ 122 122 if (NAME->type.type != TYPE) { \ 123 123 psError(__func__,"Unallowable operation: %s has incorrect type.", #NAME); \ … … 126 126 127 127 /** Preprocessor macro to generate error on a NULL vector */ 128 #define PS_ CHECK_NULL_VECTOR(NAME, RVAL) \128 #define PS_VECTOR_CHEC_NULL(NAME, RVAL) \ 129 129 if (NAME == NULL || NAME->data.V == NULL) { \ 130 130 psError(__func__,"Unallowable operation: %s or its data is NULL.", #NAME); \ … … 133 133 134 134 /** Preprocessor macro to generate error for zero length vector */ 135 #define PS_ CHECK_EMPTY_VECTOR(NAME, RVAL) \135 #define PS_VECTOR_CHECK_EMPTY(NAME, RVAL) \ 136 136 if (NAME->n < 1) { \ 137 137 psError(__func__,"Unallowable operation: %s has zero n value.", #NAME); \ … … 140 140 141 141 /** Preprocessor macro to generate error on differing size vectors */ 142 #define PS_ CHECK_VECTOR_SIZE_EQUAL(VEC1, VEC2, RVAL) \142 #define PS_VECTOR_CHECK_SIZE_EQUAL(VEC1, VEC2, RVAL) \ 143 143 if (VEC1->n != VEC2->n) { \ 144 144 psError(__func__,"Vector %s has size %d, Vector %s has size %d.", #VEC1, VEC1->n, #VEC2, VEC2->n); \ … … 146 146 } 147 147 148 #define PS_ PRINT_VECTOR(NAME) \148 #define PS_VECTOR_PRINT(NAME) \ 149 149 for (int my_i=0;my_i<NAME->n;my_i++) { \ 150 150 printf("%s->data.F32[%d] is %f\n", #NAME, my_i, NAME->data.F32[my_i]); \ -
trunk/psLib/src/dataManip/psMatrix.c
r2204 r2213 20 20 * @author Ross Harman, MHPCC 21 21 * 22 * @version $Revision: 1.1 6$ $Name: not supported by cvs2svn $23 * @date $Date: 2004-10-27 00:57:31$22 * @version $Revision: 1.17 $ $Name: not supported by cvs2svn $ 23 * @date $Date: 2004-10-27 20:11:47 $ 24 24 * 25 25 * Copyright 2004 Maui High Performance Computing Center, University of Hawaii … … 42 42 43 43 /** Preprocessor macro to generate error a NULL image */ 44 #define PS_ CHECK_NULL_VECTOR(NAME, RETURN) \44 #define PS_VECTOR_CHEC_NULL(NAME, RETURN) \ 45 45 if (NAME == NULL || NAME->data.V == NULL) { \ 46 46 psError(__func__,"Invalid operation: %s or its data is NULL.", #NAME); \ … … 135 135 PS_CHECK_SIZE_IMAGE(outImage, outImage); 136 136 PS_CHECK_ALLOC_VECTOR(outPerm, inImage->numRows, inImage->type.type); 137 PS_ CHECK_NULL_VECTOR(outPerm, outImage);137 PS_VECTOR_CHEC_NULL(outPerm, outImage); 138 138 PS_CHECK_DIMEN_AND_TYPE(outPerm, PS_DIMEN_VECTOR, outImage); 139 139 … … 181 181 PS_CHECK_SIZE_IMAGE(inImage, outVector); 182 182 PS_CHECK_ALLOC_VECTOR(outVector, inImage->numRows, inImage->type.type); 183 PS_ CHECK_NULL_VECTOR(outVector, outVector);183 PS_VECTOR_CHEC_NULL(outVector, outVector); 184 184 PS_CHECK_DIMEN_AND_TYPE(outVector, PS_DIMEN_VECTOR, outVector); 185 PS_ CHECK_NULL_VECTOR(inVector, outVector);185 PS_VECTOR_CHEC_NULL(inVector, outVector); 186 186 PS_CHECK_DIMEN_AND_TYPE(inVector, PS_DIMEN_VECTOR, outVector); 187 PS_ CHECK_NULL_VECTOR(inPerm, outVector);187 PS_VECTOR_CHEC_NULL(inPerm, outVector); 188 188 PS_CHECK_DIMEN_AND_TYPE(inPerm, PS_DIMEN_VECTOR, outVector); 189 189 … … 456 456 } 457 457 458 PS_ CHECK_NULL_VECTOR(outVector, outVector);458 PS_VECTOR_CHEC_NULL(outVector, outVector); 459 459 460 460 // More checks … … 498 498 499 499 // Error checks 500 PS_ CHECK_NULL_VECTOR(inVector, outImage);500 PS_VECTOR_CHEC_NULL(inVector, outImage); 501 501 502 502 if (inVector->type.dimen == PS_DIMEN_VECTOR) { -
trunk/psLib/src/dataManip/psMinimize.c
r2212 r2213 9 9 * @author GLG, MHPCC 10 10 * 11 * @version $Revision: 1.6 6$ $Name: not supported by cvs2svn $12 * @date $Date: 2004-10-27 20: 07:17 $11 * @version $Revision: 1.67 $ $Name: not supported by cvs2svn $ 12 * @date $Date: 2004-10-27 20:11:47 $ 13 13 * 14 14 * Copyright 2004 Maui High Performance Computing Center, University of Hawaii … … 274 274 CONVERT_VECTOR_F64_TO_F32(x, x32, x32Static); 275 275 } 276 PS_ CHECK_VECTOR_SIZE_EQUAL(x32, y32, NULL);277 PS_ CHECK_VECTOR_SIZE_EQUAL(yErr32, y32, NULL);276 PS_VECTOR_CHECK_SIZE_EQUAL(x32, y32, NULL); 277 PS_VECTOR_CHECK_SIZE_EQUAL(yErr32, y32, NULL); 278 278 279 279 if (y32->n != (1 + mySpline->n)) { … … 426 426 { 427 427 PS_PTR_CHECK_NULL(min, NULL); 428 PS_ CHECK_NULL_VECTOR(params, NULL);429 PS_ CHECK_EMPTY_VECTOR(params, NULL);428 PS_VECTOR_CHEC_NULL(params, NULL); 429 PS_VECTOR_CHECK_EMPTY(params, NULL); 430 430 PS_PTR_CHECK_NULL(x, NULL); 431 PS_ CHECK_NULL_VECTOR(y, NULL);432 PS_ CHECK_EMPTY_VECTOR(y, NULL);433 PS_ CHECK_VECTOR_SIZE_EQUAL(x, y, NULL);431 PS_VECTOR_CHEC_NULL(y, NULL); 432 PS_VECTOR_CHECK_EMPTY(y, NULL); 433 PS_VECTOR_CHECK_SIZE_EQUAL(x, y, NULL); 434 434 if (paramMask != NULL) { 435 PS_ CHECK_VECTOR_SIZE_EQUAL(params, paramMask, NULL);435 PS_VECTOR_CHECK_SIZE_EQUAL(params, paramMask, NULL); 436 436 } 437 437 if (yErr != NULL) { 438 PS_ CHECK_VECTOR_SIZE_EQUAL(y, yErr, NULL);438 PS_VECTOR_CHECK_SIZE_EQUAL(y, yErr, NULL); 439 439 } 440 440 … … 856 856 psPolynomial1D *tmpPoly; 857 857 PS_CHECK_NULL_POLY(myPoly, NULL); 858 PS_ CHECK_NULL_VECTOR(y, NULL);859 PS_ CHECK_EMPTY_VECTOR(y, NULL);858 PS_VECTOR_CHEC_NULL(y, NULL); 859 PS_VECTOR_CHECK_EMPTY(y, NULL); 860 860 psVector *x64 = NULL; 861 861 psVector *y64 = NULL; … … 888 888 CONVERT_VECTOR_F32_TO_F64(x, x64, x64Static); 889 889 } 890 PS_ CHECK_VECTOR_SIZE_EQUAL(x64, y64, NULL);891 PS_ CHECK_VECTOR_SIZE_EQUAL(yErr64, y64, NULL);890 PS_VECTOR_CHECK_SIZE_EQUAL(x64, y64, NULL); 891 PS_VECTOR_CHECK_SIZE_EQUAL(yErr64, y64, NULL); 892 892 893 893 // Call the appropriate vector fitting routine. … … 1319 1319 psMinimizePowellFunc func) 1320 1320 { 1321 PS_ CHECK_NULL_VECTOR(params, NULL);1322 PS_ CHECK_EMPTY_VECTOR(params, NULL);1321 PS_VECTOR_CHEC_NULL(params, NULL); 1322 PS_VECTOR_CHECK_EMPTY(params, NULL); 1323 1323 PS_PTR_CHECK_NULL(min, NULL); 1324 1324 PS_PTR_CHECK_NULL(coords, NULL); … … 1363 1363 myParamMask = (psVector *) paramMask; 1364 1364 } 1365 PS_ CHECK_VECTOR_SIZE_EQUAL(params, myParamMask, NULL);1365 PS_VECTOR_CHECK_SIZE_EQUAL(params, myParamMask, NULL); 1366 1366 1367 1367 // 1: Set v[i] to be the unit vectors for each dimension in params -
trunk/psLib/src/dataManip/psStats.c
r2212 r2213 9 9 * @author GLG, MHPCC 10 10 * 11 * @version $Revision: 1.7 2$ $Name: not supported by cvs2svn $12 * @date $Date: 2004-10-27 20: 07:17 $11 * @version $Revision: 1.73 $ $Name: not supported by cvs2svn $ 12 * @date $Date: 2004-10-27 20:11:47 $ 13 13 * 14 14 * Copyright 2004 Maui High Performance Computing Center, University of Hawaii … … 1746 1746 1747 1747 if (mask != NULL) { 1748 PS_ CHECK_VECTOR_SIZE_EQUAL(mask, in, NULL);1749 PS_ CHECK_VECTOR_TYPE(mask, PS_TYPE_U8, NULL);1748 PS_VECTOR_CHECK_SIZE_EQUAL(mask, in, NULL); 1749 PS_VECTOR_CHECK_TYPE(mask, PS_TYPE_U8, NULL); 1750 1750 } 1751 1751 // ************************************************************************ -
trunk/psLib/src/math/psConstants.h
r2212 r2213 6 6 * @author GLG, MHPCC 7 7 * 8 * @version $Revision: 1.2 0$ $Name: not supported by cvs2svn $9 * @date $Date: 2004-10-27 20: 07:17$8 * @version $Revision: 1.21 $ $Name: not supported by cvs2svn $ 9 * @date $Date: 2004-10-27 20:11:46 $ 10 10 * 11 11 * Copyright 2004 Maui High Performance Computing Center, University of Hawaii … … 119 119 120 120 /** Preprocessor macro to generate error on an incorrect type */ 121 #define PS_ CHECK_VECTOR_TYPE(NAME, TYPE, RVAL) \121 #define PS_VECTOR_CHECK_TYPE(NAME, TYPE, RVAL) \ 122 122 if (NAME->type.type != TYPE) { \ 123 123 psError(__func__,"Unallowable operation: %s has incorrect type.", #NAME); \ … … 126 126 127 127 /** Preprocessor macro to generate error on a NULL vector */ 128 #define PS_ CHECK_NULL_VECTOR(NAME, RVAL) \128 #define PS_VECTOR_CHEC_NULL(NAME, RVAL) \ 129 129 if (NAME == NULL || NAME->data.V == NULL) { \ 130 130 psError(__func__,"Unallowable operation: %s or its data is NULL.", #NAME); \ … … 133 133 134 134 /** Preprocessor macro to generate error for zero length vector */ 135 #define PS_ CHECK_EMPTY_VECTOR(NAME, RVAL) \135 #define PS_VECTOR_CHECK_EMPTY(NAME, RVAL) \ 136 136 if (NAME->n < 1) { \ 137 137 psError(__func__,"Unallowable operation: %s has zero n value.", #NAME); \ … … 140 140 141 141 /** Preprocessor macro to generate error on differing size vectors */ 142 #define PS_ CHECK_VECTOR_SIZE_EQUAL(VEC1, VEC2, RVAL) \142 #define PS_VECTOR_CHECK_SIZE_EQUAL(VEC1, VEC2, RVAL) \ 143 143 if (VEC1->n != VEC2->n) { \ 144 144 psError(__func__,"Vector %s has size %d, Vector %s has size %d.", #VEC1, VEC1->n, #VEC2, VEC2->n); \ … … 146 146 } 147 147 148 #define PS_ PRINT_VECTOR(NAME) \148 #define PS_VECTOR_PRINT(NAME) \ 149 149 for (int my_i=0;my_i<NAME->n;my_i++) { \ 150 150 printf("%s->data.F32[%d] is %f\n", #NAME, my_i, NAME->data.F32[my_i]); \ -
trunk/psLib/src/math/psMatrix.c
r2204 r2213 20 20 * @author Ross Harman, MHPCC 21 21 * 22 * @version $Revision: 1.1 6$ $Name: not supported by cvs2svn $23 * @date $Date: 2004-10-27 00:57:31$22 * @version $Revision: 1.17 $ $Name: not supported by cvs2svn $ 23 * @date $Date: 2004-10-27 20:11:47 $ 24 24 * 25 25 * Copyright 2004 Maui High Performance Computing Center, University of Hawaii … … 42 42 43 43 /** Preprocessor macro to generate error a NULL image */ 44 #define PS_ CHECK_NULL_VECTOR(NAME, RETURN) \44 #define PS_VECTOR_CHEC_NULL(NAME, RETURN) \ 45 45 if (NAME == NULL || NAME->data.V == NULL) { \ 46 46 psError(__func__,"Invalid operation: %s or its data is NULL.", #NAME); \ … … 135 135 PS_CHECK_SIZE_IMAGE(outImage, outImage); 136 136 PS_CHECK_ALLOC_VECTOR(outPerm, inImage->numRows, inImage->type.type); 137 PS_ CHECK_NULL_VECTOR(outPerm, outImage);137 PS_VECTOR_CHEC_NULL(outPerm, outImage); 138 138 PS_CHECK_DIMEN_AND_TYPE(outPerm, PS_DIMEN_VECTOR, outImage); 139 139 … … 181 181 PS_CHECK_SIZE_IMAGE(inImage, outVector); 182 182 PS_CHECK_ALLOC_VECTOR(outVector, inImage->numRows, inImage->type.type); 183 PS_ CHECK_NULL_VECTOR(outVector, outVector);183 PS_VECTOR_CHEC_NULL(outVector, outVector); 184 184 PS_CHECK_DIMEN_AND_TYPE(outVector, PS_DIMEN_VECTOR, outVector); 185 PS_ CHECK_NULL_VECTOR(inVector, outVector);185 PS_VECTOR_CHEC_NULL(inVector, outVector); 186 186 PS_CHECK_DIMEN_AND_TYPE(inVector, PS_DIMEN_VECTOR, outVector); 187 PS_ CHECK_NULL_VECTOR(inPerm, outVector);187 PS_VECTOR_CHEC_NULL(inPerm, outVector); 188 188 PS_CHECK_DIMEN_AND_TYPE(inPerm, PS_DIMEN_VECTOR, outVector); 189 189 … … 456 456 } 457 457 458 PS_ CHECK_NULL_VECTOR(outVector, outVector);458 PS_VECTOR_CHEC_NULL(outVector, outVector); 459 459 460 460 // More checks … … 498 498 499 499 // Error checks 500 PS_ CHECK_NULL_VECTOR(inVector, outImage);500 PS_VECTOR_CHEC_NULL(inVector, outImage); 501 501 502 502 if (inVector->type.dimen == PS_DIMEN_VECTOR) { -
trunk/psLib/src/math/psMinimize.c
r2212 r2213 9 9 * @author GLG, MHPCC 10 10 * 11 * @version $Revision: 1.6 6$ $Name: not supported by cvs2svn $12 * @date $Date: 2004-10-27 20: 07:17 $11 * @version $Revision: 1.67 $ $Name: not supported by cvs2svn $ 12 * @date $Date: 2004-10-27 20:11:47 $ 13 13 * 14 14 * Copyright 2004 Maui High Performance Computing Center, University of Hawaii … … 274 274 CONVERT_VECTOR_F64_TO_F32(x, x32, x32Static); 275 275 } 276 PS_ CHECK_VECTOR_SIZE_EQUAL(x32, y32, NULL);277 PS_ CHECK_VECTOR_SIZE_EQUAL(yErr32, y32, NULL);276 PS_VECTOR_CHECK_SIZE_EQUAL(x32, y32, NULL); 277 PS_VECTOR_CHECK_SIZE_EQUAL(yErr32, y32, NULL); 278 278 279 279 if (y32->n != (1 + mySpline->n)) { … … 426 426 { 427 427 PS_PTR_CHECK_NULL(min, NULL); 428 PS_ CHECK_NULL_VECTOR(params, NULL);429 PS_ CHECK_EMPTY_VECTOR(params, NULL);428 PS_VECTOR_CHEC_NULL(params, NULL); 429 PS_VECTOR_CHECK_EMPTY(params, NULL); 430 430 PS_PTR_CHECK_NULL(x, NULL); 431 PS_ CHECK_NULL_VECTOR(y, NULL);432 PS_ CHECK_EMPTY_VECTOR(y, NULL);433 PS_ CHECK_VECTOR_SIZE_EQUAL(x, y, NULL);431 PS_VECTOR_CHEC_NULL(y, NULL); 432 PS_VECTOR_CHECK_EMPTY(y, NULL); 433 PS_VECTOR_CHECK_SIZE_EQUAL(x, y, NULL); 434 434 if (paramMask != NULL) { 435 PS_ CHECK_VECTOR_SIZE_EQUAL(params, paramMask, NULL);435 PS_VECTOR_CHECK_SIZE_EQUAL(params, paramMask, NULL); 436 436 } 437 437 if (yErr != NULL) { 438 PS_ CHECK_VECTOR_SIZE_EQUAL(y, yErr, NULL);438 PS_VECTOR_CHECK_SIZE_EQUAL(y, yErr, NULL); 439 439 } 440 440 … … 856 856 psPolynomial1D *tmpPoly; 857 857 PS_CHECK_NULL_POLY(myPoly, NULL); 858 PS_ CHECK_NULL_VECTOR(y, NULL);859 PS_ CHECK_EMPTY_VECTOR(y, NULL);858 PS_VECTOR_CHEC_NULL(y, NULL); 859 PS_VECTOR_CHECK_EMPTY(y, NULL); 860 860 psVector *x64 = NULL; 861 861 psVector *y64 = NULL; … … 888 888 CONVERT_VECTOR_F32_TO_F64(x, x64, x64Static); 889 889 } 890 PS_ CHECK_VECTOR_SIZE_EQUAL(x64, y64, NULL);891 PS_ CHECK_VECTOR_SIZE_EQUAL(yErr64, y64, NULL);890 PS_VECTOR_CHECK_SIZE_EQUAL(x64, y64, NULL); 891 PS_VECTOR_CHECK_SIZE_EQUAL(yErr64, y64, NULL); 892 892 893 893 // Call the appropriate vector fitting routine. … … 1319 1319 psMinimizePowellFunc func) 1320 1320 { 1321 PS_ CHECK_NULL_VECTOR(params, NULL);1322 PS_ CHECK_EMPTY_VECTOR(params, NULL);1321 PS_VECTOR_CHEC_NULL(params, NULL); 1322 PS_VECTOR_CHECK_EMPTY(params, NULL); 1323 1323 PS_PTR_CHECK_NULL(min, NULL); 1324 1324 PS_PTR_CHECK_NULL(coords, NULL); … … 1363 1363 myParamMask = (psVector *) paramMask; 1364 1364 } 1365 PS_ CHECK_VECTOR_SIZE_EQUAL(params, myParamMask, NULL);1365 PS_VECTOR_CHECK_SIZE_EQUAL(params, myParamMask, NULL); 1366 1366 1367 1367 // 1: Set v[i] to be the unit vectors for each dimension in params -
trunk/psLib/src/math/psStats.c
r2212 r2213 9 9 * @author GLG, MHPCC 10 10 * 11 * @version $Revision: 1.7 2$ $Name: not supported by cvs2svn $12 * @date $Date: 2004-10-27 20: 07:17 $11 * @version $Revision: 1.73 $ $Name: not supported by cvs2svn $ 12 * @date $Date: 2004-10-27 20:11:47 $ 13 13 * 14 14 * Copyright 2004 Maui High Performance Computing Center, University of Hawaii … … 1746 1746 1747 1747 if (mask != NULL) { 1748 PS_ CHECK_VECTOR_SIZE_EQUAL(mask, in, NULL);1749 PS_ CHECK_VECTOR_TYPE(mask, PS_TYPE_U8, NULL);1748 PS_VECTOR_CHECK_SIZE_EQUAL(mask, in, NULL); 1749 PS_VECTOR_CHECK_TYPE(mask, PS_TYPE_U8, NULL); 1750 1750 } 1751 1751 // ************************************************************************
Note:
See TracChangeset
for help on using the changeset viewer.
