bindings-gsl 0.0.1 → 0.0.2

raw patch · 5 files changed

+174/−1 lines, 5 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• bindings-gsl.cabal +3/−1
• src/Bindings/Gsl/LeastSquaresFitting.hsc +29/−0
• src/Bindings/Gsl/NonlinearLeastSquaresFitting.hsc +114/−0
• src/Bindings/Gsl/SpecialFunctions.hsc +2/−0
• src/inlines.c +26/−0

@@ -3,7 +3,7 @@ homepage: http://bitbucket.org/mauricio/bindings-gsl synopsis:   Low level bindings to GNU GSL.-version: 0.0.1+version: 0.0.2 license: BSD3 license-file: LICENSE maintainer: Maurício C. Antunes <mauricio.antunes@gmail.com>@@ -20,7 +20,9 @@     bindings-common >= 1.3 && < 1.4   exposed-modules:     Bindings.Gsl.Eigensystems+    Bindings.Gsl.LeastSquaresFitting     Bindings.Gsl.Mode+    Bindings.Gsl.NonlinearLeastSquaresFitting     Bindings.Gsl.SpecialFunctions     Bindings.Gsl.VectorsAndMatrices     Bindings.Gsl.Version

@@ -0,0 +1,29 @@+#include <bindings.macros.h>+#include <gsl/gsl_fit.h>++-- | <http://www.gnu.org/software/gsl/manual/html_node/Least_002dSquares-Fitting.html>++module Bindings.Gsl.LeastSquaresFitting where+#strict_import++#ccall gsl_fit_linear , Ptr CDouble -> CSize -> \+    Ptr CDouble -> CSize -> CSize -> Ptr CDouble -> \+    Ptr CDouble -> Ptr CDouble -> Ptr CDouble -> \+    Ptr CDouble -> Ptr CDouble -> IO CInt+#ccall gsl_fit_wlinear , Ptr CDouble -> CSize -> \+    Ptr CDouble -> CSize -> Ptr CDouble -> CSize -> \+    CSize -> Ptr CDouble -> Ptr CDouble -> \+    Ptr CDouble -> Ptr CDouble -> Ptr CDouble -> \+    Ptr CDouble -> IO CInt+#ccall gsl_fit_linear_est , CDouble -> CDouble -> \+    CDouble -> CDouble -> CDouble -> CDouble -> \+    Ptr CDouble -> Ptr CDouble -> IO CInt+#ccall gsl_fit_mul , Ptr CDouble -> CSize -> \+    Ptr CDouble -> CSize -> CSize -> Ptr CDouble -> \+    Ptr CDouble -> Ptr CDouble -> IO CInt+#ccall gsl_fit_wmul , Ptr CDouble -> CSize -> \+    Ptr CDouble -> CSize -> Ptr CDouble -> CSize -> \+    CSize -> Ptr CDouble -> Ptr CDouble -> \+    Ptr CDouble -> IO CInt+#ccall gsl_fit_mul_est , CDouble -> CDouble -> \+    CDouble -> Ptr CDouble -> Ptr CDouble -> IO CInt

@@ -0,0 +1,114 @@+#include <bindings.macros.h>+#include <gsl/gsl_multifit_nlin.h>++-- | <http://www.gnu.org/software/gsl/manual/html_node/Nonlinear-Least_002dSquares-Fitting.html>++module Bindings.Gsl.NonlinearLeastSquaresFitting where+#strict_import+import Bindings.Gsl.VectorsAndMatrices++#ccall gsl_multifit_gradient , Ptr <gsl_matrix> -> \+    Ptr <gsl_vector> -> Ptr <gsl_vector> -> IO CInt+#ccall gsl_multifit_covar , Ptr <gsl_matrix> -> CDouble -> \+    Ptr <gsl_matrix> -> IO CInt++#starttype gsl_multifit_function+#field f , FunPtr (Ptr <gsl_vector> -> Ptr () -> Ptr <gsl_vector> -> IO ())+#field n , CSize+#field p , CSize+#field params , Ptr ()+#stoptype++#cinline GSL_MULTIFIT_FN_EVAL , Ptr <gsl_multifit_function> -> \+    Ptr <gsl_vector> -> Ptr <gsl_vector> -> IO ()++#starttype gsl_multifit_fsolver_type+#field name , CString+#field size , CSize+#field alloc , FunPtr (Ptr () -> CSize -> CSize -> IO CInt)+#field set , FunPtr (Ptr () -> Ptr <gsl_multifit_function> -> \+    Ptr <gsl_vector> -> Ptr <gsl_vector> -> Ptr <gsl_vector> -> IO CInt)+#field iterate , FunPtr (Ptr () -> Ptr <gsl_multifit_function> -> \+    Ptr <gsl_vector> -> Ptr <gsl_vector> -> Ptr <gsl_vector> -> IO CInt)+#field free , FunPtr (Ptr () -> IO ())+#stoptype++#starttype gsl_multifit_fsolver+#field type , Ptr <gsl_multifit_fsolver_type>+#field function , Ptr <gsl_multifit_function>+#field x , Ptr <gsl_vector>+#field f , Ptr <gsl_vector>+#field dx , Ptr <gsl_vector>+#field state , Ptr ()+#stoptype++#ccall gsl_multifit_fsolver_alloc , Ptr <gsl_multifit_fsolver_type> -> \+    CSize -> CSize -> IO (Ptr <gsl_multifit_fsolver>)+#ccall gsl_multifit_fsolver_free , Ptr <gsl_multifit_fsolver> -> IO ()+#ccall gsl_multifit_fsolver_set , Ptr <gsl_multifit_fsolver> -> \+    Ptr <gsl_multifit_function> -> Ptr <gsl_vector> -> IO CInt+#ccall gsl_multifit_fsolver_iterate , Ptr <gsl_multifit_fsolver> -> IO CInt+#ccall gsl_multifit_fsolver_name , Ptr <gsl_multifit_fsolver> -> IO CString+#ccall gsl_multifit_fsolver_position , Ptr <gsl_multifit_fsolver> -> \+    IO (Ptr <gsl_vector>)++#starttype gsl_multifit_function_fdf+#field f , FunPtr (Ptr <gsl_vector> -> Ptr () -> \+    Ptr <gsl_vector> -> IO CInt)+#field df , FunPtr (Ptr <gsl_vector> -> Ptr () -> \+    Ptr <gsl_matrix> -> IO CInt)+#field fdf , FunPtr (Ptr <gsl_vector> -> Ptr () -> Ptr <gsl_vector> -> \+    Ptr <gsl_matrix> -> IO CInt)+#field n , CSize+#field p , CSize+#field params , Ptr ()+#stoptype++#cinline GSL_MULTIFIT_FN_EVAL_F , Ptr <gsl_multifit_function_fdf> -> \+    Ptr <gsl_vector> -> Ptr <gsl_vector> -> IO CInt+#cinline GSL_MULTIFIT_FN_EVAL_DF , Ptr <gsl_multifit_function_fdf> -> \+    Ptr <gsl_vector> -> Ptr <gsl_matrix> -> IO CInt+#cinline GSL_MULTIFIT_FN_EVAL_F_DF , Ptr <gsl_multifit_function_fdf> -> \+    Ptr <gsl_vector> -> Ptr <gsl_vector> -> Ptr <gsl_matrix> -> IO CInt++#starttype gsl_multifit_fdfsolver_type+#field name , CString+#field size , CSize+#field alloc , FunPtr (Ptr () -> CSize -> CSize -> IO CInt)+#field set , FunPtr (Ptr () -> Ptr <gsl_multifit_function_fdf> -> \+    Ptr <gsl_vector> -> Ptr <gsl_vector> -> Ptr <gsl_matrix> -> \+    Ptr <gsl_vector> -> IO CInt)+#field iterate , FunPtr (Ptr () -> Ptr <gsl_multifit_function_fdf> -> \+    Ptr <gsl_vector> -> Ptr <gsl_vector> -> Ptr <gsl_matrix> -> \+    Ptr <gsl_vector> -> IO CInt)+#field free , FunPtr (Ptr () -> IO ())+#stoptype++#starttype gsl_multifit_fdfsolver+#field type , Ptr <gsl_multifit_fdfsolver_type>+#field fdf , Ptr <gsl_multifit_function_fdf>+#field x , Ptr <gsl_vector>+#field f , Ptr <gsl_vector>+#field J , Ptr <gsl_matrix>+#field dx , Ptr <gsl_vector>+#field state , Ptr ()+#stoptype++#ccall gsl_multifit_fdfsolver_alloc , Ptr <gsl_multifit_fdfsolver_type> -> \+    CSize -> CSize -> IO (Ptr <gsl_multifit_fdfsolver>)+#ccall gsl_multifit_fdfsolver_set , Ptr <gsl_multifit_fdfsolver> -> \+    Ptr <gsl_multifit_function_fdf> -> Ptr <gsl_vector> -> IO CInt+#ccall gsl_multifit_fdfsolver_iterate , Ptr <gsl_multifit_fdfsolver> -> \+    IO CInt+#ccall gsl_multifit_fdfsolver_free , Ptr <gsl_multifit_fdfsolver> -> IO ()+#ccall gsl_multifit_fdfsolver_name , Ptr <gsl_multifit_fdfsolver> -> \+    IO CString+#ccall gsl_multifit_fdfsolver_position , Ptr <gsl_multifit_fdfsolver> -> \+    IO (Ptr <gsl_vector>)+#ccall gsl_multifit_test_delta , Ptr <gsl_vector> -> \+    Ptr <gsl_vector> -> CDouble -> CDouble -> IO CInt+#ccall gsl_multifit_test_gradient , Ptr <gsl_vector> -> CDouble -> IO CInt++#globalvar gsl_multifit_fdfsolver_lmder , Ptr <gsl_multifit_fdfsolver_type>+#globalvar gsl_multifit_fdfsolver_lmsder , Ptr <gsl_multifit_fdfsolver_type>+

@@ -1,6 +1,8 @@ #include <bindings.macros.h> #include <gsl/gsl_sf.h> +-- | <http://www.gnu.org/software/gsl/manual/html_node/Special-Functions.html>+ module Bindings.Gsl.SpecialFunctions where #strict_import import Bindings.Gsl.Eigensystems

@@ -12,3 +12,29 @@   return GSL_MODE_PREC(mt); } +#include <gsl/gsl_multifit_nlin.h>++void inline_GSL_MULTIFIT_FN_EVAL (gsl_multifit_function *f,+  gsl_vector *x, gsl_vector *y)+{+  return GSL_MULTIFIT_FN_EVAL (f,x,y);+}++int inline_GSL_MULTIFIT_FN_EVAL_F (gsl_multifit_function_fdf *f,+  gsl_vector *x, gsl_vector *y)+{+  return GSL_MULTIFIT_FN_EVAL_F (f,x,y);+}++int inline_GSL_MULTIFIT_FN_EVAL_DF (gsl_multifit_function_fdf *f,+  gsl_vector *x, gsl_matrix *dy)+{+  return GSL_MULTIFIT_FN_EVAL_DF (f,x,dy);+}++int inline_GSL_MULTIFIT_FN_EVAL_F_DF (gsl_multifit_function_fdf *f,+  gsl_vector *x, gsl_vector *y, gsl_matrix *dy)+{+  return GSL_MULTIFIT_FN_EVAL_F_DF (f,x,y,dy);+}+