summaryrefslogtreecommitdiff
path: root/support/dktools/dk3madsc.ctr
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2020-10-12 03:04:00 +0000
committerNorbert Preining <norbert@preining.info>2020-10-12 03:04:00 +0000
commit0ce40abb18ec02ec6fd6bcc5f21612c88daa7578 (patch)
tree416289fe1448873fd8ca33051f50ad85bffa8aaa /support/dktools/dk3madsc.ctr
parentfdb18507cd80dc17f5a5256153d34668b4f4e61c (diff)
CTAN sync 202010120303
Diffstat (limited to 'support/dktools/dk3madsc.ctr')
-rw-r--r--support/dktools/dk3madsc.ctr115
1 files changed, 0 insertions, 115 deletions
diff --git a/support/dktools/dk3madsc.ctr b/support/dktools/dk3madsc.ctr
deleted file mode 100644
index 9507dbf892..0000000000
--- a/support/dktools/dk3madsc.ctr
+++ /dev/null
@@ -1,115 +0,0 @@
-%% options
-
-copyright owner = Dirk Krause
-copyright year = 2014-xxxx
-SPDX-License-Identifier: BSD-3-Clause
-
-
-%% header
-
-
-/** @file dk3madsc.h Conversion from double to short and
- unsigned short.
-*/
-
-#include <dk3conf.h>
-
-#include <stdio.h>
-#if DK3_HAVE_SYS_TYPES_H
-#include <sys/types.h>
-#endif
-#if DK3_HAVE_STDINT
-#include <stdint.h>
-#endif
-#if DK3_HAVE_INTTYPES_H
-#include <inttypes.h>
-#endif
-#if DK3_HAVE_LIMITS_H
-#include <limits.h>
-#endif
-#if DK3_HAVE_MATH_H
-#include <math.h>
-#endif
-#if DK3_HAVE_FLOAT_H
-#include <float.h>
-#endif
-
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-
-/** Convert double value to short.
- @param x Double value to convert.
- @param ec Pointer to error code variable.
- Set to DK3_ERROR_MATH_OVERFLOW if the absolute value of x is too large.
- @return Conversion result.
-*/
-short
-dk3ma_d_to_s_ok(double x, int *ec);
-
-/** Convert double value to unsigned short.
- @param x Double value to convert.
- @param ec Pointer to error code variable.
- Set to DK3_ERROR_MATH_OVERFLOW if the absolute value of x is too large,
- DK3_ERROR_MATH_OUT_OF_RANGE for negative x.
- @return Conversion result.
-*/
-unsigned short
-dk3ma_d_to_us_ok(double x, int *ec);
-
-#ifdef __cplusplus
-}
-#endif
-
-
-
-%% module
-
-
-
-#include "dk3ma.h"
-
-
-
-$!trace-include
-
-
-
-short
-dk3ma_d_to_s_ok(double x, int *ec)
-{
- short back = 0;
- if ((double)DK3_S_MIN <= x) {
- if ((double)DK3_S_MAX >= x) {
- back = (short)x;
- } else {
- back = DK3_S_MAX;
- if (NULL != ec) { *ec = DK3_ERROR_MATH_OVERFLOW; }
- }
- } else {
- back = DK3_S_MIN;
- if (NULL != ec) { *ec = DK3_ERROR_MATH_OVERFLOW; }
- }
- return back;
-}
-
-
-
-unsigned short
-dk3ma_d_to_us_ok(double x, int *ec)
-{
- unsigned short back = 0U;
- if (0.0 <= x) {
- if ((double)DK3_US_MAX >= x) {
- back = (unsigned short)x;
- } else {
- back = DK3_US_MAX;
- if (NULL != ec) { *ec = DK3_ERROR_MATH_OVERFLOW; }
- }
- } else {
- if (NULL != ec) { *ec = DK3_ERROR_MATH_OUT_OF_RANGE; }
- }
- return back;
-}
-