diff --git a/bindings-mpdecimal.cabal b/bindings-mpdecimal.cabal --- a/bindings-mpdecimal.cabal +++ b/bindings-mpdecimal.cabal @@ -10,7 +10,7 @@ -- PVP summary: +-+------- breaking API changes -- | | +----- non-breaking API additions -- | | | +--- code changes with no API change -version: 0.6.0.0 +version: 0.8.0.0 -- A short (one-line) description of the package. synopsis: bindings to mpdecimal library diff --git a/lib/Bindings/Mpdecimal.hsc b/lib/Bindings/Mpdecimal.hsc --- a/lib/Bindings/Mpdecimal.hsc +++ b/lib/Bindings/Mpdecimal.hsc @@ -5,27 +5,28 @@ import Foreign.Ptr #strict_import --- -- Sizes and integral types +-- Version +#ccall mpd_version , IO CString + +#num MPD_MAJOR_VERSION +#num MPD_MINOR_VERSION +#num MPD_MICRO_VERSION +#num NULL + +#num MPD_VERSION + +-- Sizes and integral types #integral_t mpd_uint_t #integral_t mpd_size_t #integral_t mpd_ssize_t #integral_t uint32_t #integral_t size_t #integral_t uint8_t +#integral_t uint16_t #integral_t int32_t #integral_t uint64_t #integral_t int64_t -#integral_t uint16_t --- - Version -#ccall mpd_version , IO CString - -#num MPD_MAJOR_VERSION -#num MPD_MINOR_VERSION -#num MPD_MICRO_VERSION - -#num MPD_VERSION - -- Configuration -- Modular and base arithmetic @@ -90,6 +91,9 @@ #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; @@ -154,7 +158,7 @@ #num MPD_MINALLOC_MIN #num MPD_MINALLOC_MAX -#globalvar MPD_MINALLOC , +#globalvar MPD_MINALLOC , CInt -- Traphandler @@ -255,9 +259,6 @@ #ccall mpd_to_eng , Ptr -> CInt -> IO CString #ccall mpd_to_sci_size , Ptr CString -> Ptr -> CInt -> IO #ccall mpd_to_eng_size , Ptr CString -> Ptr -> CInt -> IO -#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 -> IO CString #ccall mpd_qformat , Ptr -> CString -> Ptr -> Ptr -> IO CString #num MPD_NUM_FLAGS @@ -328,7 +329,7 @@ #ccall mpd_qcopy , Ptr -> Ptr -> Ptr -> IO CInt #ccall mpd_qncopy , Ptr -> IO (Ptr ) #ccall mpd_qcopy_abs , Ptr -> Ptr -> Ptr -> IO CInt -#ccall mpd_qcopy_negate , Ptr -> Ptr -> Ptr -> IO CInt +#ccall mpd_qcopy_negate , Ptr -> Ptr -> Ptr -> IO #ccall mpd_qcopy_sign , Ptr -> Ptr -> Ptr -> Ptr -> IO CInt #ccall mpd_qand , Ptr -> Ptr -> Ptr -> Ptr -> Ptr -> IO () #ccall mpd_qinvert , Ptr -> Ptr -> Ptr -> Ptr -> IO () @@ -338,11 +339,11 @@ #ccall mpd_qxor , Ptr -> Ptr -> Ptr -> Ptr -> Ptr -> IO () #ccall mpd_same_quantum , Ptr -> Ptr -> IO CInt #ccall mpd_qrotate , Ptr -> Ptr -> Ptr -> Ptr -> Ptr -> IO () -#ccall mpd_qshiftl , Ptr -> Ptr -> -> Ptr -> IO CInt -#ccall mpd_qshiftr , Ptr -> Ptr -> -> Ptr -> IO CULong +#ccall mpd_qshiftl , Ptr -> Ptr -> -> Ptr -> IO CInt +#ccall mpd_qshiftr , Ptr -> Ptr -> -> Ptr -> IO #ccall mpd_qshiftr_inplace , Ptr -> -> IO #ccall mpd_qshift , Ptr -> Ptr -> Ptr -> Ptr -> Ptr -> IO () -#ccall mpd_qshiftn , Ptr -> Ptr -> CInt -> Ptr -> Ptr -> IO () +#ccall mpd_qshiftn , Ptr -> Ptr -> -> Ptr -> Ptr -> IO () #ccall mpd_qcmp , Ptr -> Ptr -> Ptr -> IO CInt #ccall mpd_qcompare , Ptr -> Ptr -> Ptr -> Ptr -> Ptr -> IO CInt #ccall mpd_qcompare_signal , Ptr -> Ptr -> Ptr -> Ptr -> Ptr -> IO CInt @@ -410,18 +411,18 @@ #ccall mpd_qmul_u64 , Ptr -> Ptr -> -> Ptr -> Ptr -> IO () #ccall mpd_qdiv_i64 , Ptr -> Ptr -> -> Ptr -> Ptr -> IO () #ccall mpd_qdiv_u64 , Ptr -> Ptr -> -> Ptr -> Ptr -> IO () -#ccall mpd_sizeinbase , Ptr -> -> IO CSize +#ccall mpd_sizeinbase , Ptr -> -> IO #ccall mpd_qimport_u16 , Ptr -> Ptr -> -> -> -> Ptr -> Ptr -> IO () #ccall mpd_qimport_u32 , Ptr -> Ptr -> -> -> -> Ptr -> Ptr -> IO () -#ccall mpd_qexport_u16 , Ptr (Ptr ) -> -> -> Ptr -> Ptr -> IO -#ccall mpd_qexport_u32 , Ptr (Ptr ) -> CSize -> -> Ptr -> Ptr -> IO +#ccall mpd_qexport_u16 , Ptr (Ptr CUShort) -> -> -> Ptr -> Ptr -> IO +#ccall mpd_qexport_u32 , Ptr (Ptr ) -> -> -> Ptr -> Ptr -> IO -- Signalling functions --- START HERE + #ccall mpd_format , Ptr -> CString -> Ptr -> IO CString -#ccall mpd_import_u16 , Ptr -> Ptr -> -> -> -> Ptr -> IO () -#ccall mpd_import_u32 , Ptr -> Ptr -> -> -> -> Ptr -> IO () -#ccall mpd_export_u16 , Ptr (Ptr ) -> -> -> Ptr -> Ptr -> IO +#ccall mpd_import_u16 , Ptr -> Ptr CUShort -> -> CUChar -> -> Ptr -> IO () +#ccall mpd_import_u32 , Ptr -> Ptr -> -> CUChar -> -> Ptr -> IO () +#ccall mpd_export_u16 , Ptr (Ptr CUShort) -> -> -> Ptr -> Ptr -> IO #ccall mpd_export_u32 , Ptr (Ptr ) -> -> -> Ptr -> Ptr -> IO #ccall mpd_finalize , Ptr -> Ptr -> IO () #ccall mpd_check_nan , Ptr -> Ptr -> Ptr -> IO CInt @@ -431,20 +432,20 @@ #ccall mpd_sset_ssize , Ptr -> -> Ptr -> IO () #ccall mpd_sset_i32 , Ptr -> -> Ptr -> IO () #ccall mpd_sset_uint , Ptr -> -> Ptr -> IO () -#ccall mpd_sset_u32 , Ptr -> -> Ptr -> IO () +#ccall mpd_sset_u32 , Ptr -> -> Ptr -> IO () #ccall mpd_set_ssize , Ptr -> -> Ptr -> IO () #ccall mpd_set_i32 , Ptr -> -> Ptr -> IO () #ccall mpd_set_uint , Ptr -> -> Ptr -> IO () #ccall mpd_set_u32 , Ptr -> -> Ptr -> IO () #ccall mpd_set_i64 , Ptr -> -> Ptr -> IO () -#ccall mpd_set_u64 , Ptr -> -> Ptr -> IO () +#ccall mpd_set_u64 , Ptr -> -> Ptr -> IO () #ccall mpd_get_ssize , Ptr -> Ptr -> IO #ccall mpd_get_uint , Ptr -> Ptr -> IO #ccall mpd_abs_uint , Ptr -> Ptr -> IO #ccall mpd_get_i32 , Ptr -> Ptr -> IO #ccall mpd_get_u32 , Ptr -> Ptr -> IO #ccall mpd_get_i64 , Ptr -> Ptr -> IO -#ccall mpd_get_u64 , Ptr -> Ptr -> IO +#ccall mpd_get_u64 , Ptr -> Ptr -> IO #ccall mpd_and , Ptr -> Ptr -> Ptr -> Ptr -> IO () #ccall mpd_copy , Ptr -> Ptr -> Ptr -> IO () #ccall mpd_canonical , Ptr -> Ptr -> Ptr -> IO () @@ -515,13 +516,13 @@ #ccall mpd_sqrt , Ptr -> Ptr -> Ptr -> IO () #ccall mpd_invroot , Ptr -> Ptr -> Ptr -> IO () #ccall mpd_add_i64 , Ptr -> Ptr -> -> Ptr -> IO () -#ccall mpd_add_u64 , Ptr -> Ptr -> -> Ptr -> IO () +#ccall mpd_add_u64 , Ptr -> Ptr -> -> Ptr -> IO () #ccall mpd_sub_i64 , Ptr -> Ptr -> -> Ptr -> IO () -#ccall mpd_sub_u64 , Ptr -> Ptr -> -> Ptr -> IO () +#ccall mpd_sub_u64 , Ptr -> Ptr -> -> Ptr -> IO () #ccall mpd_div_i64 , Ptr -> Ptr -> -> Ptr -> IO () -#ccall mpd_div_u64 , Ptr -> Ptr -> -> Ptr -> IO () +#ccall mpd_div_u64 , Ptr -> Ptr -> -> Ptr -> IO () #ccall mpd_mul_i64 , Ptr -> Ptr -> -> Ptr -> IO () -#ccall mpd_mul_u64 , Ptr -> Ptr -> -> Ptr -> IO () +#ccall mpd_mul_u64 , Ptr -> Ptr -> -> Ptr -> IO () -- Get attributes of a decimal @@ -535,7 +536,7 @@ #ccall mpd_lsd , -> IO -#ccall mpd_digits_to_size , -> IO +#ccall mpd_digits_to_size , CInt -> IO CInt #ccall mpd_exp_digits , -> IO CInt #ccall mpd_iscanonical , Ptr -> IO CInt @@ -563,7 +564,7 @@ #ccall mpd_iseven , Ptr -> IO CInt -#ccall mpd_sign , Ptr -> IO +#ccall mpd_sign , Ptr -> IO CUChar #ccall mpd_arith_sign , Ptr -> IO CInt #ccall mpd_radix , IO CLong @@ -573,7 +574,7 @@ #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 +#ccall mpd_trail_zeros , Ptr -> IO CInt -- Set attributes of a decimal @@ -596,32 +597,9 @@ #ccall mpd_set_flags , Ptr -> -> IO () #ccall mpd_copy_flags , Ptr -> Ptr -> IO () --- Memory handling - -#globalvar mpd_mallocfunc , -> IO (Ptr ()) -#callback funptr_mpd_mallocfunc , -> IO (Ptr ()) - -#globalvar mpd_callocfunc , -> -> IO (Ptr ()) -#callback funptr_mpd_callocfunc , -> -> IO (Ptr ()) - -#globalvar mpd_reallocfunc , Ptr () -> -> IO (Ptr ()) -#callback funptr_mpd_reallocfunc , Ptr () -> -> IO (Ptr ()) - -#globalvar mpd_free , Ptr () -> IO () -#callback funptr_mpd_free , Ptr () -> IO () +-- Memory handling +-- I skipped many functions. -#ccall mpd_callocfunc_em , -> -> IO (Ptr ()) -#ccall mpd_alloc , -> -> IO (Ptr ()) -#ccall mpd_calloc , -> -> IO (Ptr ()) -#ccall mpd_realloc , Ptr () -> -> -> Ptr -> IO (Ptr ()) -#ccall mpd_sh_alloc , -> -> -> IO (Ptr ()) #ccall mpd_qnew , IO (Ptr ) #ccall mpd_new , Ptr -> IO (Ptr ) -#ccall mpd_qnew_size , -> IO (Ptr ) #ccall mpd_del , Ptr -> IO () -#ccall mpd_uint_zero , Ptr -> -> IO () -#ccall mpd_qresize , Ptr -> -> Ptr -> IO CInt -#ccall mpd_qresize_zero , Ptr -> -> Ptr -> IO CInt -#ccall mpd_minalloc , Ptr -> IO () -#ccall mpd_resize , Ptr -> -> Ptr -> IO CInt -#ccall mpd_resize_zero , Ptr -> -> Ptr -> IO CInt