diff options
author | Norbert Preining <norbert@preining.info> | 2020-09-20 03:03:26 +0000 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2020-09-20 03:03:26 +0000 |
commit | 1f457376b478257b88d4a857f5ec1b6155442dd7 (patch) | |
tree | 2a06a60551dea362cf8cb0cb0ba66c78608717c4 /support/dktools/dk4maas.c | |
parent | ac690ca29ad5bf8a5203a65fd6252f7b564f4727 (diff) |
CTAN sync 202009200303
Diffstat (limited to 'support/dktools/dk4maas.c')
-rw-r--r-- | support/dktools/dk4maas.c | 77 |
1 files changed, 46 insertions, 31 deletions
diff --git a/support/dktools/dk4maas.c b/support/dktools/dk4maas.c index 168469024e..8af172b60e 100644 --- a/support/dktools/dk4maas.c +++ b/support/dktools/dk4maas.c @@ -1,43 +1,21 @@ /* - WARNING: This file was generated by dkct. - Changes you make here will be lost if dkct is run again! - You should modify the original source and run dkct on it. - Original source: dk4maas.ctr +Copyright (C) 2015-2020, Dirk Krause +SPDX-License-Identifier: BSD-3-Clause */ /* -Copyright (C) 2015-2017, Dirk Krause - -Redistribution and use in source and binary forms, with or without -modification, are permitted provided that the following conditions are met: - -* Redistributions of source code must retain the above copyright notice, - this list of conditions and the following disclaimer. -* Redistributions in binary form must reproduce the above opyright notice, - this list of conditions and the following disclaimer in the documentation - and/or other materials provided with the distribution. -* Neither the name of the author nor the names of contributors may be used - to endorse or promote products derived from this software without specific - prior written permission. - -THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS ``AS IS'' -AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE -IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE -ARE DISCLAIMED. -IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE FOR ANY -DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES -(INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; -LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND -ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT -(INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF -THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. + WARNING: This file was generated by the dkct program (see + http://dktools.sourceforge.net/ for details). + Changes you make here will be lost if dkct is run again! + You should modify the original source and run dkct on it. + Original source: dk4maas.ctr */ /** @file dk4maas.c The dk4maas module. */ -#line 100 "dk4maas.ctr" +#line 132 "dk4maas.ctr" #include "dk4conf.h" @@ -54,7 +32,11 @@ dk4ma_short_abs(short a, dk4_er_t *erp) if (SHRT_MIN == a) { dk4error_set_simple_error_code(erp, DK4_E_MATH_OVERFLOW); } - return (short)((0 <= a) ? a : ((SHRT_MIN == a) ? SHRT_MAX : (0 - a))); + return ( + ((short)0 <= a) + ? (a) + : ((SHRT_MIN == a) ? (SHRT_MAX) : ((short)0 - a)) + ); } @@ -168,3 +150,36 @@ dk4ma_short_div(short a, short b, dk4_er_t *erp) return back; } + + +short +dk4ma_short_from(dk4_im_t i, dk4_er_t *erp) +{ + if (((dk4_im_t)(SHRT_MAX) < i) || ((dk4_im_t)(SHRT_MIN) > i)) { + dk4error_set_simple_error_code(erp, DK4_E_MATH_OVERFLOW); + } + return ((short)i); +} + + + +short +dk4ma_short_from_double(double d, dk4_er_t *erp) +{ + short back = 0; + if ((double)(SHRT_MIN) > d) { + dk4error_set_simple_error_code(erp, DK4_E_MATH_OVERFLOW); + back = SHRT_MIN; + } + else { + if ((double)(SHRT_MAX) < d) { + dk4error_set_simple_error_code(erp,DK4_E_MATH_OVERFLOW); + back = SHRT_MAX; + } + else { + back = (short)d; + } + } + return back; +} + |