diff options
Diffstat (limited to 'support/dktools/dk4maadi.c')
-rw-r--r-- | support/dktools/dk4maadi.c | 76 |
1 files changed, 46 insertions, 30 deletions
diff --git a/support/dktools/dk4maadi.c b/support/dktools/dk4maadi.c index 0ae674bd14..be724cc804 100644 --- a/support/dktools/dk4maadi.c +++ b/support/dktools/dk4maadi.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: dk4maadi.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: dk4maadi.ctr */ /** @file dk4maadi.c The dk4maadi module. */ -#line 100 "dk4maadi.ctr" +#line 134 "dk4maadi.ctr" #include "dk4conf.h" #include "dk4types.h" @@ -56,6 +34,10 @@ THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. #include "dk4maadi.h" +#ifndef DK4MAADU_H_INCLUDED +#include "dk4maadu.h" +#endif + dk4_im_t @@ -137,3 +119,37 @@ dk4ma_im_div(dk4_im_t a, dk4_im_t b, dk4_er_t *erp) } + +dk4_im_t +dk4ma_im_gcd(dk4_im_t a, dk4_im_t b, dk4_er_t *erp) +{ + dk4_im_t back; + dk4_um_t v; + + v = dk4ma_um_gcd(dk4ma_im_abs(a, erp), dk4ma_im_abs(b, erp)); + back = (dk4_im_t)v; + if ((dk4_um_t)(DK4_IM_MAX) < v) { + dk4error_set_simple_error_code(erp, DK4_E_MATH_OVERFLOW); + } + return back; +} + + + +dk4_im_t +dk4ma_im_lcm(dk4_im_t a, dk4_im_t b, dk4_er_t *erp) +{ + return ( + dk4ma_im_mul( + dk4ma_im_div(dk4ma_im_abs(a, erp), dk4ma_im_gcd(a, b, erp), erp), + dk4ma_im_abs(b, erp), + erp + ) + ); +} + + + + +/* vim: set ai sw=4 ts=4 : */ + |