diff --git a/LICENSE b/LICENSE new file mode 100644 --- /dev/null +++ b/LICENSE @@ -0,0 +1,30 @@ +Copyright (c) 2014, Omari Norman + +All rights reserved. + +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 + copyright notice, this list of conditions and the following + disclaimer in the documentation and/or other materials provided + with the distribution. + + * Neither the name of Omari Norman nor the names of other + 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. diff --git a/README b/README new file mode 100644 --- /dev/null +++ b/README @@ -0,0 +1,20 @@ +Bindings to the mpdecimal library by Stefan Krah, which is available at + +http://www.bytereef.org/mpdecimal + +mpdecimal provides decimal floating point arithmetic. It currently is +the basis for the decimal library in the Python standard library. +More information on decimal arithmetic is at + +http://speleotrove.com/decimal/ + +These bindings were written for mpdecimal version 2.4.0. You will +need to install mpdecimal before you install this library. + +These bindings were made using bindings-dsl: + +https://bitbucket.org/mauricio/bindings-dsl/wiki/Home + +and c2hsc: + +https://github.com/jwiegley/c2hsc diff --git a/Setup.hs b/Setup.hs new file mode 100644 --- /dev/null +++ b/Setup.hs @@ -0,0 +1,2 @@ +import Distribution.Simple +main = defaultMain diff --git a/bindings-mpdecimal.cabal b/bindings-mpdecimal.cabal new file mode 100644 --- /dev/null +++ b/bindings-mpdecimal.cabal @@ -0,0 +1,86 @@ +-- Initial bindings-mpdecimal.cabal generated by cabal init. For further +-- documentation, see http://haskell.org/cabal/users-guide/ + +-- The name of the package. +name: bindings-mpdecimal + +-- The package version. See the Haskell package versioning policy (PVP) +-- for standards guiding when and how versions should be incremented. +-- http://www.haskell.org/haskellwiki/Package_versioning_policy +-- PVP summary: +-+------- breaking API changes +-- | | +----- non-breaking API additions +-- | | | +--- code changes with no API change +version: 0.2.0.0 + +-- A short (one-line) description of the package. +synopsis: bindings to mpdecimal library + +-- A longer description of the package. +description: + mpdecimal provides correctly rounded + arbitrary precision decimal floating point arithmetic. + . + Please see + . + +-- URL for the project homepage or repository. +homepage: http://www.github.com/massysett/bindings-mpdecimal + +-- The license under which the package is released. +license: BSD3 + +-- The file containing the license text. +license-file: LICENSE + +-- The package author(s). +author: Omari Norman + +-- An email address to which users can send suggestions, bug reports, and +-- patches. +maintainer: omari@smileystation.com + +-- A copyright notice. +-- copyright: + +category: Math + +build-type: Simple + +-- Extra files to be distributed with the package, such as examples or a +-- README. +-- extra-source-files: + +-- Constraint on the version of Cabal needed to build this package. +cabal-version: >=1.10 + +extra-source-files: README + +source-repository head + type: git + location: https://github.com/massysett/bindings-mpdecimal.git + +library + default-extensions: ForeignFunctionInterface + hs-source-dirs: lib + + -- Modules exported by the library. + exposed-modules: + Bindings.Mpdecimal + + -- Modules included in this library but not exported. + -- other-modules: + + -- LANGUAGE extensions used by modules in this package. + -- other-extensions: + + -- Other library packages from which modules are imported. + build-depends: + base >=4.6 && <4.7 + , bindings-DSL ==1.0.* + + -- Directories containing source files. + -- hs-source-dirs: + + -- Base language which the package is written in. + default-language: Haskell2010 + diff --git a/lib/Bindings/Mpdecimal.hsc b/lib/Bindings/Mpdecimal.hsc new file mode 100644 --- /dev/null +++ b/lib/Bindings/Mpdecimal.hsc @@ -0,0 +1,445 @@ +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +{-# LANGUAGE Safe #-} +#include +#include +module Bindings.Mpdecimal where +import Foreign.Ptr +#strict_import + +#ccall mpd_version , IO CString +{- typedef uint64_t mpd_uint_t; -} +#synonym_t mpd_uint_t , CULong +{- typedef size_t mpd_size_t; -} +#synonym_t mpd_size_t , CSize +{- typedef int64_t mpd_ssize_t; -} +#synonym_t mpd_ssize_t , CInt +{- enum { + MPD_ROUND_UP, + MPD_ROUND_DOWN, + MPD_ROUND_CEILING, + MPD_ROUND_FLOOR, + MPD_ROUND_HALF_UP, + MPD_ROUND_HALF_DOWN, + MPD_ROUND_HALF_EVEN, + MPD_ROUND_05UP, + MPD_ROUND_TRUNC, + MPD_ROUND_GUARD +}; -} +#num MPD_ROUND_UP +#num MPD_ROUND_DOWN +#num MPD_ROUND_CEILING +#num MPD_ROUND_FLOOR +#num MPD_ROUND_HALF_UP +#num MPD_ROUND_HALF_DOWN +#num MPD_ROUND_HALF_EVEN +#num MPD_ROUND_05UP +#num MPD_ROUND_TRUNC +#num MPD_ROUND_GUARD +{- enum { + MPD_CLAMP_DEFAULT, MPD_CLAMP_IEEE_754, MPD_CLAMP_GUARD +}; -} +#num MPD_CLAMP_DEFAULT +#num MPD_CLAMP_IEEE_754 +#num MPD_CLAMP_GUARD +#globalvar mpd_round_string , CChar +#globalvar mpd_clamp_string , CChar +{- typedef struct mpd_context_t { + mpd_ssize_t prec; + mpd_ssize_t emax; + mpd_ssize_t emin; + uint32_t traps; + uint32_t status; + uint32_t newtrap; + int round; + int clamp; + int allcr; + } mpd_context_t; -} +#starttype mpd_context_t +#field prec , CInt +#field emax , CInt +#field emin , CInt +#field traps , CUInt +#field status , CUInt +#field newtrap , CUInt +#field round , CInt +#field clamp , CInt +#field allcr , CInt +#stoptype +#globalvar MPD_MINALLOC , CInt +#callback mpd_traphandler , Ptr -> IO () +#ccall mpd_dflt_traphandler , Ptr -> IO () +#ccall mpd_setminalloc , CInt -> IO () +#ccall mpd_init , Ptr -> CInt -> IO () +#ccall mpd_maxcontext , Ptr -> IO () +#ccall mpd_defaultcontext , Ptr -> IO () +#ccall mpd_basiccontext , Ptr -> IO () +#ccall mpd_ieee_context , Ptr -> CInt -> IO CInt +#ccall mpd_getprec , Ptr -> IO CInt +#ccall mpd_getemax , Ptr -> IO CInt +#ccall mpd_getemin , Ptr -> IO CInt +#ccall mpd_getround , Ptr -> IO CInt +#ccall mpd_gettraps , Ptr -> IO CUInt +#ccall mpd_getstatus , Ptr -> IO CUInt +#ccall mpd_getclamp , Ptr -> IO CInt +#ccall mpd_getcr , Ptr -> IO CInt +#ccall mpd_qsetprec , Ptr -> CInt -> IO CInt +#ccall mpd_qsetemax , Ptr -> CInt -> IO CInt +#ccall mpd_qsetemin , Ptr -> CInt -> IO CInt +#ccall mpd_qsetround , Ptr -> CInt -> IO CInt +#ccall mpd_qsettraps , Ptr -> CUInt -> IO CInt +#ccall mpd_qsetstatus , Ptr -> CUInt -> IO CInt +#ccall mpd_qsetclamp , Ptr -> CInt -> IO CInt +#ccall mpd_qsetcr , Ptr -> CInt -> IO CInt +#ccall mpd_addstatus_raise , Ptr -> CUInt -> IO () +{- typedef struct mpd_t { + uint8_t flags; + mpd_ssize_t exp; + mpd_ssize_t digits; + mpd_ssize_t len; + mpd_ssize_t alloc; + mpd_uint_t * data; + } mpd_t; -} +#starttype mpd_t +#field flags , CUChar +#field exp , CInt +#field digits , CInt +#field len , CInt +#field alloc , CInt +#field data , Ptr CULong +#stoptype +{- typedef unsigned char uchar; -} +#synonym_t uchar , CUChar +{- typedef struct mpd_spec_t { + mpd_ssize_t min_width; + mpd_ssize_t prec; + char type; + char align; + char sign; + char fill[5]; + const char * dot; + const char * sep; + const char * grouping; + } mpd_spec_t; -} +#starttype mpd_spec_t +#field min_width , CInt +#field prec , CInt +#field type , CChar +#field align , CChar +#field sign , CChar +#array_field fill , CChar +#field dot , CString +#field sep , CString +#field grouping , CString +#stoptype +#ccall mpd_to_sci , Ptr -> CInt -> IO CString +#ccall mpd_to_eng , Ptr -> CInt -> IO CString +#ccall mpd_to_sci_size , Ptr CString -> Ptr -> CInt -> IO CInt +#ccall mpd_to_eng_size , Ptr CString -> Ptr -> CInt -> IO CInt +#ccall mpd_validate_lconv , Ptr -> IO CInt +#ccall mpd_parse_fmt_str , Ptr -> CString -> CInt -> IO CInt +#ccall mpd_qformat_spec , Ptr -> Ptr -> Ptr -> Ptr CUInt -> IO CString +#ccall mpd_qformat , Ptr -> CString -> Ptr -> Ptr CUInt -> IO CString +#ccall mpd_snprint_flags , CString -> CInt -> CUInt -> IO CInt +#ccall mpd_lsnprint_flags , CString -> CInt -> CUInt -> Ptr CString -> IO CInt +#ccall mpd_lsnprint_signals , CString -> CInt -> CUInt -> Ptr CString -> IO CInt +-- next line is removed - prints to a C file object +-- #ccall mpd_fprint , Ptr <_IO_FILE> -> Ptr -> IO () +#ccall mpd_print , Ptr -> IO () +#ccall mpd_qset_string , Ptr -> CString -> Ptr -> Ptr CUInt -> IO () +#ccall mpd_seterror , Ptr -> CUInt -> Ptr CUInt -> IO () +#ccall mpd_setspecial , Ptr -> CUChar -> CUChar -> IO () +#ccall mpd_zerocoeff , Ptr -> IO () +#ccall mpd_qmaxcoeff , Ptr -> Ptr -> Ptr CUInt -> IO () +#ccall mpd_qset_ssize , Ptr -> CInt -> Ptr -> Ptr CUInt -> IO () +#ccall mpd_qset_i32 , Ptr -> CInt -> Ptr -> Ptr CUInt -> IO () +#ccall mpd_qset_uint , Ptr -> CULong -> Ptr -> Ptr CUInt -> IO () +#ccall mpd_qset_u32 , Ptr -> CUInt -> Ptr -> Ptr CUInt -> IO () +#ccall mpd_qset_i64 , Ptr -> CInt -> Ptr -> Ptr CUInt -> IO () +#ccall mpd_qset_u64 , Ptr -> CULong -> Ptr -> Ptr CUInt -> IO () +#ccall mpd_qsset_ssize , Ptr -> CInt -> Ptr -> Ptr CUInt -> IO () +#ccall mpd_qsset_i32 , Ptr -> CInt -> Ptr -> Ptr CUInt -> IO () +#ccall mpd_qsset_uint , Ptr -> CULong -> Ptr -> Ptr CUInt -> IO () +#ccall mpd_qsset_u32 , Ptr -> CUInt -> Ptr -> Ptr CUInt -> IO () +#ccall mpd_qget_ssize , Ptr -> Ptr CUInt -> IO CInt +#ccall mpd_qget_uint , Ptr -> Ptr CUInt -> IO CULong +#ccall mpd_qabs_uint , Ptr -> Ptr CUInt -> IO CULong +#ccall mpd_qget_i32 , Ptr -> Ptr CUInt -> IO CInt +#ccall mpd_qget_u32 , Ptr -> Ptr CUInt -> IO CUInt +#ccall mpd_qget_i64 , Ptr -> Ptr CUInt -> IO CInt +#ccall mpd_qget_u64 , Ptr -> Ptr CUInt -> IO CULong +#ccall mpd_qcheck_nan , Ptr -> Ptr -> Ptr -> Ptr CUInt -> IO CInt +#ccall mpd_qcheck_nans , Ptr -> Ptr -> Ptr -> Ptr -> Ptr CUInt -> IO CInt +#ccall mpd_qfinalize , Ptr -> Ptr -> Ptr CUInt -> IO () +#ccall mpd_class , Ptr -> Ptr -> IO CString +#ccall mpd_qcopy , Ptr -> Ptr -> Ptr CUInt -> IO CInt +#ccall mpd_qncopy , Ptr -> IO (Ptr ) +#ccall mpd_qcopy_abs , Ptr -> Ptr -> Ptr CUInt -> IO CInt +#ccall mpd_qcopy_negate , Ptr -> Ptr -> Ptr CUInt -> IO CInt +#ccall mpd_qcopy_sign , Ptr -> Ptr -> Ptr -> Ptr CUInt -> IO CInt +#ccall mpd_qand , Ptr -> Ptr -> Ptr -> Ptr -> Ptr CUInt -> IO () +#ccall mpd_qinvert , Ptr -> Ptr -> Ptr -> Ptr CUInt -> IO () +#ccall mpd_qlogb , Ptr -> Ptr -> Ptr -> Ptr CUInt -> IO () +#ccall mpd_qor , Ptr -> Ptr -> Ptr -> Ptr -> Ptr CUInt -> IO () +#ccall mpd_qscaleb , Ptr -> Ptr -> Ptr -> Ptr -> Ptr CUInt -> IO () +#ccall mpd_qxor , Ptr -> Ptr -> Ptr -> Ptr -> Ptr CUInt -> IO () +#ccall mpd_same_quantum , Ptr -> Ptr -> IO CInt +#ccall mpd_qrotate , Ptr -> Ptr -> Ptr -> Ptr -> Ptr CUInt -> IO () +#ccall mpd_qshiftl , Ptr -> Ptr -> CInt -> Ptr CUInt -> IO CInt +#ccall mpd_qshiftr , Ptr -> Ptr -> CInt -> Ptr CUInt -> IO CULong +#ccall mpd_qshiftr_inplace , Ptr -> CInt -> IO CULong +#ccall mpd_qshift , Ptr -> Ptr -> Ptr -> Ptr -> Ptr CUInt -> IO () +#ccall mpd_qshiftn , Ptr -> Ptr -> CInt -> Ptr -> Ptr CUInt -> IO () +#ccall mpd_qcmp , Ptr -> Ptr -> Ptr CUInt -> IO CInt +#ccall mpd_qcompare , Ptr -> Ptr -> Ptr -> Ptr -> Ptr CUInt -> IO CInt +#ccall mpd_qcompare_signal , Ptr -> Ptr -> Ptr -> Ptr -> Ptr CUInt -> IO CInt +#ccall mpd_cmp_total , Ptr -> Ptr -> IO CInt +#ccall mpd_cmp_total_mag , Ptr -> Ptr -> IO CInt +#ccall mpd_compare_total , Ptr -> Ptr -> Ptr -> IO CInt +#ccall mpd_compare_total_mag , Ptr -> Ptr -> Ptr -> IO CInt +#ccall mpd_qround_to_intx , Ptr -> Ptr -> Ptr -> Ptr CUInt -> IO () +#ccall mpd_qround_to_int , Ptr -> Ptr -> Ptr -> Ptr CUInt -> IO () +#ccall mpd_qtrunc , Ptr -> Ptr -> Ptr -> Ptr CUInt -> IO () +#ccall mpd_qfloor , Ptr -> Ptr -> Ptr -> Ptr CUInt -> IO () +#ccall mpd_qceil , Ptr -> Ptr -> Ptr -> Ptr CUInt -> IO () +#ccall mpd_qabs , Ptr -> Ptr -> Ptr -> Ptr CUInt -> IO () +#ccall mpd_qmax , Ptr -> Ptr -> Ptr -> Ptr -> Ptr CUInt -> IO () +#ccall mpd_qmax_mag , Ptr -> Ptr -> Ptr -> Ptr -> Ptr CUInt -> IO () +#ccall mpd_qmin , Ptr -> Ptr -> Ptr -> Ptr -> Ptr CUInt -> IO () +#ccall mpd_qmin_mag , Ptr -> Ptr -> Ptr -> Ptr -> Ptr CUInt -> IO () +#ccall mpd_qminus , Ptr -> Ptr -> Ptr -> Ptr CUInt -> IO () +#ccall mpd_qplus , Ptr -> Ptr -> Ptr -> Ptr CUInt -> IO () +#ccall mpd_qnext_minus , Ptr -> Ptr -> Ptr -> Ptr CUInt -> IO () +#ccall mpd_qnext_plus , Ptr -> Ptr -> Ptr -> Ptr CUInt -> IO () +#ccall mpd_qnext_toward , Ptr -> Ptr -> Ptr -> Ptr -> Ptr CUInt -> IO () +#ccall mpd_qquantize , Ptr -> Ptr -> Ptr -> Ptr -> Ptr CUInt -> IO () +#ccall mpd_qrescale , Ptr -> Ptr -> CInt -> Ptr -> Ptr CUInt -> IO () +#ccall mpd_qrescale_fmt , Ptr -> Ptr -> CInt -> Ptr -> Ptr CUInt -> IO () +#ccall mpd_qreduce , Ptr -> Ptr -> Ptr -> Ptr CUInt -> IO () +#ccall mpd_qadd , Ptr -> Ptr -> Ptr -> Ptr -> Ptr CUInt -> IO () +#ccall mpd_qadd_ssize , Ptr -> Ptr -> CInt -> Ptr -> Ptr CUInt -> IO () +#ccall mpd_qadd_i32 , Ptr -> Ptr -> CInt -> Ptr -> Ptr CUInt -> IO () +#ccall mpd_qadd_uint , Ptr -> Ptr -> CULong -> Ptr -> Ptr CUInt -> IO () +#ccall mpd_qadd_u32 , Ptr -> Ptr -> CUInt -> Ptr -> Ptr CUInt -> IO () +#ccall mpd_qsub , Ptr -> Ptr -> Ptr -> Ptr -> Ptr CUInt -> IO () +#ccall mpd_qsub_ssize , Ptr -> Ptr -> CInt -> Ptr -> Ptr CUInt -> IO () +#ccall mpd_qsub_i32 , Ptr -> Ptr -> CInt -> Ptr -> Ptr CUInt -> IO () +#ccall mpd_qsub_uint , Ptr -> Ptr -> CULong -> Ptr -> Ptr CUInt -> IO () +#ccall mpd_qsub_u32 , Ptr -> Ptr -> CUInt -> Ptr -> Ptr CUInt -> IO () +#ccall mpd_qmul , Ptr -> Ptr -> Ptr -> Ptr -> Ptr CUInt -> IO () +#ccall mpd_qmul_ssize , Ptr -> Ptr -> CInt -> Ptr -> Ptr CUInt -> IO () +#ccall mpd_qmul_i32 , Ptr -> Ptr -> CInt -> Ptr -> Ptr CUInt -> IO () +#ccall mpd_qmul_uint , Ptr -> Ptr -> CULong -> Ptr -> Ptr CUInt -> IO () +#ccall mpd_qmul_u32 , Ptr -> Ptr -> CUInt -> Ptr -> Ptr CUInt -> IO () +#ccall mpd_qfma , Ptr -> Ptr -> Ptr -> Ptr -> Ptr -> Ptr CUInt -> IO () +#ccall mpd_qdiv , Ptr -> Ptr -> Ptr -> Ptr -> Ptr CUInt -> IO () +#ccall mpd_qdiv_ssize , Ptr -> Ptr -> CInt -> Ptr -> Ptr CUInt -> IO () +#ccall mpd_qdiv_i32 , Ptr -> Ptr -> CInt -> Ptr -> Ptr CUInt -> IO () +#ccall mpd_qdiv_uint , Ptr -> Ptr -> CULong -> Ptr -> Ptr CUInt -> IO () +#ccall mpd_qdiv_u32 , Ptr -> Ptr -> CUInt -> Ptr -> Ptr CUInt -> IO () +#ccall mpd_qdivint , Ptr -> Ptr -> Ptr -> Ptr -> Ptr CUInt -> IO () +#ccall mpd_qrem , Ptr -> Ptr -> Ptr -> Ptr -> Ptr CUInt -> IO () +#ccall mpd_qrem_near , Ptr -> Ptr -> Ptr -> Ptr -> Ptr CUInt -> IO () +#ccall mpd_qdivmod , Ptr -> Ptr -> Ptr -> Ptr -> Ptr -> Ptr CUInt -> IO () +#ccall mpd_qpow , Ptr -> Ptr -> Ptr -> Ptr -> Ptr CUInt -> IO () +#ccall mpd_qpowmod , Ptr -> Ptr -> Ptr -> Ptr -> Ptr -> Ptr CUInt -> IO () +#ccall mpd_qexp , Ptr -> Ptr -> Ptr -> Ptr CUInt -> IO () +#ccall mpd_qln10 , Ptr -> CInt -> Ptr CUInt -> IO () +#ccall mpd_qln , Ptr -> Ptr -> Ptr -> Ptr CUInt -> IO () +#ccall mpd_qlog10 , Ptr -> Ptr -> Ptr -> Ptr CUInt -> IO () +#ccall mpd_qsqrt , Ptr -> Ptr -> Ptr -> Ptr CUInt -> IO () +#ccall mpd_qinvroot , Ptr -> Ptr -> Ptr -> Ptr CUInt -> IO () +#ccall mpd_qadd_i64 , Ptr -> Ptr -> CInt -> Ptr -> Ptr CUInt -> IO () +#ccall mpd_qadd_u64 , Ptr -> Ptr -> CULong -> Ptr -> Ptr CUInt -> IO () +#ccall mpd_qsub_i64 , Ptr -> Ptr -> CInt -> Ptr -> Ptr CUInt -> IO () +#ccall mpd_qsub_u64 , Ptr -> Ptr -> CULong -> Ptr -> Ptr CUInt -> IO () +#ccall mpd_qmul_i64 , Ptr -> Ptr -> CInt -> Ptr -> Ptr CUInt -> IO () +#ccall mpd_qmul_u64 , Ptr -> Ptr -> CULong -> Ptr -> Ptr CUInt -> IO () +#ccall mpd_qdiv_i64 , Ptr -> Ptr -> CInt -> Ptr -> Ptr CUInt -> IO () +#ccall mpd_qdiv_u64 , Ptr -> Ptr -> CULong -> Ptr -> Ptr CUInt -> IO () +#ccall mpd_sizeinbase , Ptr -> CUInt -> IO CSize +#ccall mpd_qimport_u16 , Ptr -> Ptr CUShort -> CSize -> CUChar -> CUInt -> Ptr -> Ptr CUInt -> IO () +#ccall mpd_qimport_u32 , Ptr -> Ptr CUInt -> CSize -> CUChar -> CUInt -> Ptr -> Ptr CUInt -> IO () +#ccall mpd_qexport_u16 , Ptr (Ptr CUShort) -> CSize -> CUInt -> Ptr -> Ptr CUInt -> IO CSize +#ccall mpd_qexport_u32 , Ptr (Ptr CUInt) -> CSize -> CUInt -> Ptr -> Ptr CUInt -> IO CSize +#ccall mpd_format , Ptr -> CString -> Ptr -> IO CString +#ccall mpd_import_u16 , Ptr -> Ptr CUShort -> CSize -> CUChar -> CUInt -> Ptr -> IO () +#ccall mpd_import_u32 , Ptr -> Ptr CUInt -> CSize -> CUChar -> CUInt -> Ptr -> IO () +#ccall mpd_export_u16 , Ptr (Ptr CUShort) -> CSize -> CUInt -> Ptr -> Ptr -> IO CSize +#ccall mpd_export_u32 , Ptr (Ptr CUInt) -> CSize -> CUInt -> Ptr -> Ptr -> IO CSize +#ccall mpd_finalize , Ptr -> Ptr -> IO () +#ccall mpd_check_nan , Ptr -> Ptr -> Ptr -> IO CInt +#ccall mpd_check_nans , Ptr -> Ptr -> Ptr -> Ptr -> IO CInt +#ccall mpd_set_string , Ptr -> CString -> Ptr -> IO () +#ccall mpd_maxcoeff , Ptr -> Ptr -> IO () +#ccall mpd_sset_ssize , Ptr -> CInt -> Ptr -> IO () +#ccall mpd_sset_i32 , Ptr -> CInt -> Ptr -> IO () +#ccall mpd_sset_uint , Ptr -> CULong -> Ptr -> IO () +#ccall mpd_sset_u32 , Ptr -> CUInt -> Ptr -> IO () +#ccall mpd_set_ssize , Ptr -> CInt -> Ptr -> IO () +#ccall mpd_set_i32 , Ptr -> CInt -> Ptr -> IO () +#ccall mpd_set_uint , Ptr -> CULong -> Ptr -> IO () +#ccall mpd_set_u32 , Ptr -> CUInt -> Ptr -> IO () +#ccall mpd_set_i64 , Ptr -> CInt -> Ptr -> IO () +#ccall mpd_set_u64 , Ptr -> CULong -> Ptr -> IO () +#ccall mpd_get_ssize , Ptr -> Ptr -> IO CInt +#ccall mpd_get_uint , Ptr -> Ptr -> IO CULong +#ccall mpd_abs_uint , Ptr -> Ptr -> IO CULong +#ccall mpd_get_i32 , Ptr -> Ptr -> IO CInt +#ccall mpd_get_u32 , Ptr -> Ptr -> IO CUInt +#ccall mpd_get_i64 , Ptr -> Ptr -> IO CInt +#ccall mpd_get_u64 , Ptr -> Ptr -> IO CULong +#ccall mpd_and , Ptr -> Ptr -> Ptr -> Ptr -> IO () +#ccall mpd_copy , Ptr -> Ptr -> Ptr -> IO () +#ccall mpd_canonical , Ptr -> Ptr -> Ptr -> IO () +#ccall mpd_copy_abs , Ptr -> Ptr -> Ptr -> IO () +#ccall mpd_copy_negate , Ptr -> Ptr -> Ptr -> IO () +#ccall mpd_copy_sign , Ptr -> Ptr -> Ptr -> Ptr -> IO () +#ccall mpd_invert , Ptr -> Ptr -> Ptr -> IO () +#ccall mpd_logb , Ptr -> Ptr -> Ptr -> IO () +#ccall mpd_or , Ptr -> Ptr -> Ptr -> Ptr -> IO () +#ccall mpd_rotate , Ptr -> Ptr -> Ptr -> Ptr -> IO () +#ccall mpd_scaleb , Ptr -> Ptr -> Ptr -> Ptr -> IO () +#ccall mpd_shiftl , Ptr -> Ptr -> CInt -> Ptr -> IO () +#ccall mpd_shiftr , Ptr -> Ptr -> CInt -> Ptr -> IO CULong +#ccall mpd_shiftn , Ptr -> Ptr -> CInt -> Ptr -> IO () +#ccall mpd_shift , Ptr -> Ptr -> Ptr -> Ptr -> IO () +#ccall mpd_xor , Ptr -> Ptr -> Ptr -> Ptr -> IO () +#ccall mpd_abs , Ptr -> Ptr -> Ptr -> IO () +#ccall mpd_cmp , Ptr -> Ptr -> Ptr -> IO CInt +#ccall mpd_compare , Ptr -> Ptr -> Ptr -> Ptr -> IO CInt +#ccall mpd_compare_signal , Ptr -> Ptr -> Ptr -> Ptr -> IO CInt +#ccall mpd_add , Ptr -> Ptr -> Ptr -> Ptr -> IO () +#ccall mpd_add_ssize , Ptr -> Ptr -> CInt -> Ptr -> IO () +#ccall mpd_add_i32 , Ptr -> Ptr -> CInt -> Ptr -> IO () +#ccall mpd_add_uint , Ptr -> Ptr -> CULong -> Ptr -> IO () +#ccall mpd_add_u32 , Ptr -> Ptr -> CUInt -> Ptr -> IO () +#ccall mpd_sub , Ptr -> Ptr -> Ptr -> Ptr -> IO () +#ccall mpd_sub_ssize , Ptr -> Ptr -> CInt -> Ptr -> IO () +#ccall mpd_sub_i32 , Ptr -> Ptr -> CInt -> Ptr -> IO () +#ccall mpd_sub_uint , Ptr -> Ptr -> CULong -> Ptr -> IO () +#ccall mpd_sub_u32 , Ptr -> Ptr -> CUInt -> Ptr -> IO () +#ccall mpd_div , Ptr -> Ptr -> Ptr -> Ptr -> IO () +#ccall mpd_div_ssize , Ptr -> Ptr -> CInt -> Ptr -> IO () +#ccall mpd_div_i32 , Ptr -> Ptr -> CInt -> Ptr -> IO () +#ccall mpd_div_uint , Ptr -> Ptr -> CULong -> Ptr -> IO () +#ccall mpd_div_u32 , Ptr -> Ptr -> CUInt -> Ptr -> IO () +#ccall mpd_divmod , Ptr -> Ptr -> Ptr -> Ptr -> Ptr -> IO () +#ccall mpd_divint , Ptr -> Ptr -> Ptr -> Ptr -> IO () +#ccall mpd_exp , Ptr -> Ptr -> Ptr -> IO () +#ccall mpd_fma , Ptr -> Ptr -> Ptr -> Ptr -> Ptr -> IO () +#ccall mpd_ln , Ptr -> Ptr -> Ptr -> IO () +#ccall mpd_log10 , Ptr -> Ptr -> Ptr -> IO () +#ccall mpd_max , Ptr -> Ptr -> Ptr -> Ptr -> IO () +#ccall mpd_max_mag , Ptr -> Ptr -> Ptr -> Ptr -> IO () +#ccall mpd_min , Ptr -> Ptr -> Ptr -> Ptr -> IO () +#ccall mpd_min_mag , Ptr -> Ptr -> Ptr -> Ptr -> IO () +#ccall mpd_minus , Ptr -> Ptr -> Ptr -> IO () +#ccall mpd_mul , Ptr -> Ptr -> Ptr -> Ptr -> IO () +#ccall mpd_mul_ssize , Ptr -> Ptr -> CInt -> Ptr -> IO () +#ccall mpd_mul_i32 , Ptr -> Ptr -> CInt -> Ptr -> IO () +#ccall mpd_mul_uint , Ptr -> Ptr -> CULong -> Ptr -> IO () +#ccall mpd_mul_u32 , Ptr -> Ptr -> CUInt -> Ptr -> IO () +#ccall mpd_next_minus , Ptr -> Ptr -> Ptr -> IO () +#ccall mpd_next_plus , Ptr -> Ptr -> Ptr -> IO () +#ccall mpd_next_toward , Ptr -> Ptr -> Ptr -> Ptr -> IO () +#ccall mpd_plus , Ptr -> Ptr -> Ptr -> IO () +#ccall mpd_pow , Ptr -> Ptr -> Ptr -> Ptr -> IO () +#ccall mpd_powmod , Ptr -> Ptr -> Ptr -> Ptr -> Ptr -> IO () +#ccall mpd_quantize , Ptr -> Ptr -> Ptr -> Ptr -> IO () +#ccall mpd_rescale , Ptr -> Ptr -> CInt -> Ptr -> IO () +#ccall mpd_reduce , Ptr -> Ptr -> Ptr -> IO () +#ccall mpd_rem , Ptr -> Ptr -> Ptr -> Ptr -> IO () +#ccall mpd_rem_near , Ptr -> Ptr -> Ptr -> Ptr -> IO () +#ccall mpd_round_to_intx , Ptr -> Ptr -> Ptr -> IO () +#ccall mpd_round_to_int , Ptr -> Ptr -> Ptr -> IO () +#ccall mpd_trunc , Ptr -> Ptr -> Ptr -> IO () +#ccall mpd_floor , Ptr -> Ptr -> Ptr -> IO () +#ccall mpd_ceil , Ptr -> Ptr -> Ptr -> IO () +#ccall mpd_sqrt , Ptr -> Ptr -> Ptr -> IO () +#ccall mpd_invroot , Ptr -> Ptr -> Ptr -> IO () +#ccall mpd_add_i64 , Ptr -> Ptr -> CInt -> Ptr -> IO () +#ccall mpd_add_u64 , Ptr -> Ptr -> CULong -> Ptr -> IO () +#ccall mpd_sub_i64 , Ptr -> Ptr -> CInt -> Ptr -> IO () +#ccall mpd_sub_u64 , Ptr -> Ptr -> CULong -> Ptr -> IO () +#ccall mpd_div_i64 , Ptr -> Ptr -> CInt -> Ptr -> IO () +#ccall mpd_div_u64 , Ptr -> Ptr -> CULong -> Ptr -> IO () +#ccall mpd_mul_i64 , Ptr -> Ptr -> CInt -> Ptr -> IO () +#ccall mpd_mul_u64 , Ptr -> Ptr -> CULong -> Ptr -> IO () +#ccall mpd_qsset_i64 , Ptr -> CInt -> Ptr -> Ptr CUInt -> IO () +#ccall mpd_qsset_u64 , Ptr -> CULong -> Ptr -> Ptr CUInt -> IO () +#ccall mpd_sset_i64 , Ptr -> CInt -> Ptr -> IO () +#ccall mpd_sset_u64 , Ptr -> CULong -> Ptr -> IO () +#ccall mpd_adjexp , Ptr -> IO CInt +#ccall mpd_etiny , Ptr -> IO CInt +#ccall mpd_etop , Ptr -> IO CInt +#ccall mpd_msword , Ptr -> IO CULong +#ccall mpd_word_digits , CULong -> IO CInt +#ccall mpd_msd , CULong -> IO CULong +#ccall mpd_lsd , CULong -> IO CULong +#ccall mpd_digits_to_size , CInt -> IO CInt +#ccall mpd_exp_digits , CInt -> IO CInt +#ccall mpd_iscanonical , Ptr -> IO CInt +#ccall mpd_isfinite , Ptr -> IO CInt +#ccall mpd_isinfinite , Ptr -> IO CInt +#ccall mpd_isinteger , Ptr -> IO CInt +#ccall mpd_isnan , Ptr -> IO CInt +#ccall mpd_isnegative , Ptr -> IO CInt +#ccall mpd_ispositive , Ptr -> IO CInt +#ccall mpd_isqnan , Ptr -> IO CInt +#ccall mpd_issigned , Ptr -> IO CInt +#ccall mpd_issnan , Ptr -> IO CInt +#ccall mpd_isspecial , Ptr -> IO CInt +#ccall mpd_iszero , Ptr -> IO CInt +#ccall mpd_iszerocoeff , Ptr -> IO CInt +#ccall mpd_isnormal , Ptr -> Ptr -> IO CInt +#ccall mpd_issubnormal , Ptr -> Ptr -> IO CInt +#ccall mpd_isoddword , CULong -> IO CInt +#ccall mpd_isoddcoeff , Ptr -> IO CInt +#ccall mpd_isodd , Ptr -> IO CInt +#ccall mpd_iseven , Ptr -> IO CInt +#ccall mpd_sign , Ptr -> IO CUChar +#ccall mpd_arith_sign , Ptr -> IO CInt +#ccall mpd_radix , IO CLong +#ccall mpd_isdynamic , Ptr -> IO CInt +#ccall mpd_isstatic , Ptr -> IO CInt +#ccall mpd_isdynamic_data , Ptr -> IO CInt +#ccall mpd_isstatic_data , Ptr -> IO CInt +#ccall mpd_isshared_data , Ptr -> IO CInt +#ccall mpd_isconst_data , Ptr -> IO CInt +#ccall mpd_trail_zeros , Ptr -> IO CInt +#ccall mpd_setdigits , Ptr -> IO () +#ccall mpd_set_sign , Ptr -> CUChar -> IO () +#ccall mpd_signcpy , Ptr -> Ptr -> IO () +#ccall mpd_set_infinity , Ptr -> IO () +#ccall mpd_set_qnan , Ptr -> IO () +#ccall mpd_set_snan , Ptr -> IO () +#ccall mpd_set_negative , Ptr -> IO () +#ccall mpd_set_positive , Ptr -> IO () +#ccall mpd_set_dynamic , Ptr -> IO () +#ccall mpd_set_static , Ptr -> IO () +#ccall mpd_set_dynamic_data , Ptr -> IO () +#ccall mpd_set_static_data , Ptr -> IO () +#ccall mpd_set_shared_data , Ptr -> IO () +#ccall mpd_set_const_data , Ptr -> IO () +#ccall mpd_clear_flags , Ptr -> IO () +#ccall mpd_set_flags , Ptr -> CUChar -> IO () +#ccall mpd_copy_flags , Ptr -> Ptr -> IO () +#callback mpd_mallocfunc , CSize -> IO (Ptr ()) +#callback mpd_callocfunc , CSize -> CSize -> IO (Ptr ()) +#callback mpd_reallocfunc , Ptr () -> CSize -> IO (Ptr ()) +#callback mpd_free , Ptr () -> IO () +#ccall mpd_callocfunc_em , CSize -> CSize -> IO (Ptr ()) +#ccall mpd_alloc , CSize -> CSize -> IO (Ptr ()) +#ccall mpd_calloc , CSize -> CSize -> IO (Ptr ()) +#ccall mpd_realloc , Ptr () -> CSize -> CSize -> Ptr CUChar -> IO (Ptr ()) +#ccall mpd_sh_alloc , CSize -> CSize -> CSize -> IO (Ptr ()) +#ccall mpd_qnew , IO (Ptr ) +#ccall mpd_new , Ptr -> IO (Ptr ) +#ccall mpd_qnew_size , CInt -> IO (Ptr ) +#ccall mpd_del , Ptr -> IO () +#ccall mpd_uint_zero , Ptr CULong -> CSize -> IO () +#ccall mpd_qresize , Ptr -> CInt -> Ptr CUInt -> IO CInt +#ccall mpd_qresize_zero , Ptr -> CInt -> Ptr CUInt -> IO CInt +#ccall mpd_minalloc , Ptr -> IO () +#ccall mpd_resize , Ptr -> CInt -> Ptr -> IO CInt +#ccall mpd_resize_zero , Ptr -> CInt -> Ptr -> IO CInt