diff options
author | Ian Jauslin <ian.jauslin@roma1.infn.it> | 2016-05-20 20:30:15 +0000 |
---|---|---|
committer | Ian Jauslin <ian.jauslin@roma1.infn.it> | 2016-05-20 20:30:15 +0000 |
commit | 2125f01f97abfe343fc5e0cc078bf1d081b2e441 (patch) | |
tree | 932dc60739384224be31f9e894ae63055634435e /src/array_double.h |
Initial commitv1.0
Diffstat (limited to 'src/array_double.h')
-rw-r--r-- | src/array_double.h | 52 |
1 files changed, 52 insertions, 0 deletions
diff --git a/src/array_double.h b/src/array_double.h new file mode 100644 index 0000000..8d3c187 --- /dev/null +++ b/src/array_double.h @@ -0,0 +1,52 @@ +/* +Copyright 2016 Ian Jauslin + +Licensed under the Apache License, Version 2.0 (the "License"); +you may not use this file except in compliance with the License. +You may obtain a copy of the License at + + http://www.apache.org/licenses/LICENSE-2.0 + +Unless required by applicable law or agreed to in writing, software +distributed under the License is distributed on an "AS IS" BASIS, +WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. +See the License for the specific language governing permissions and +limitations under the License. +*/ + +/* + Preprocessor macros for double arrays +*/ + + +// reset CPP macros +#undef ARRAY_TYPENAME +#undef ARRAY_FUNC +#undef ARRAY_VAL_TYPE +#undef ARRAY_VAL_FREE +#undef ARRAY_VAL_SET +#undef ARRAY_VAL_CPY +#undef ARRAY_VAL_IFEQ +#undef ARRAY_VAL_IFLT +#undef ARRAY_VAL_IFGT +#undef ARRAY_VAL_PRINT + + +// name of the polynomial type +#define ARRAY_TYPENAME array_double +// prefix of function names +#define ARRAY_FUNC(NAME) array_double_ ## NAME + +// type of values +#define ARRAY_VAL_TYPE double +// set values +#define ARRAY_VAL_SET(VAL, NEWVAL) VAL = NEWVAL +// copy values +#define ARRAY_VAL_CPY(FROMVAL, TOVAL) TOVAL = FROMVAL +// compare values +#define ARRAY_VAL_IFEQ(VAL1, VAL2) VAL1==VAL2 +#define ARRAY_VAL_IFLT(VAL1, VAL2) VAL1<VAL2 +#define ARRAY_VAL_IFGT(VAL1, VAL2) VAL1>VAL2 +// print values +#define ARRAY_VAL_PRINT(VAL) fprint_double(stdout, VAL) + |