3 files changed, 33 insertions, 33 deletions
diff --git a/lib/Numeric/GSL/Special/Debye.hs b/lib/Numeric/GSL/Special/Debye.hs
index c059cf1..cb86f03 100644
--- a/lib/Numeric/GSL/Special/Debye.hs
+++ b/lib/Numeric/GSL/Special/Debye.hs
@@ -23,10 +23,10 @@ module Numeric.GSL.Special.Debye(
 , debye_3
 , debye_4_e
 , debye_4
-, debye_5_e
+--, debye_5_e
-, debye_5
+--, debye_5
-, debye_6_e
+--, debye_6_e
-, debye_6
+--, debye_6
 ) where
 import Foreign(Ptr)
@@ -92,27 +92,27 @@ foreign import ccall "debye.h gsl_sf_debye_4" gsl_sf_debye_4 :: Double -> Double
 -- | wrapper for int gsl_sf_debye_5_e(double x,gsl_sf_result* result);
 --
 --   <http://www.google.com/search?q=gsl_sf_debye_5_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
-debye_5_e :: Double -> (Double,Double)
+--debye_5_e :: Double -> (Double,Double)
-debye_5_e x = createSFR "debye_5_e" $ gsl_sf_debye_5_e x
+--debye_5_e x = createSFR "debye_5_e" $ gsl_sf_debye_5_e x
-foreign import ccall "debye.h gsl_sf_debye_5_e" gsl_sf_debye_5_e :: Double -> Ptr () -> IO CInt
+--foreign import ccall "debye.h gsl_sf_debye_5_e" gsl_sf_debye_5_e :: Double -> Ptr () -> IO CInt
 -- | wrapper for double gsl_sf_debye_5(double x);
 --
 --   <http://www.google.com/search?q=gsl_sf_debye_5&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
-debye_5 :: Double -> Double
+--debye_5 :: Double -> Double
-debye_5 = gsl_sf_debye_5
+--debye_5 = gsl_sf_debye_5
-foreign import ccall "debye.h gsl_sf_debye_5" gsl_sf_debye_5 :: Double -> Double
+--foreign import ccall "debye.h gsl_sf_debye_5" gsl_sf_debye_5 :: Double -> Double
 -- | wrapper for int gsl_sf_debye_6_e(double x,gsl_sf_result* result);
 --
 --   <http://www.google.com/search?q=gsl_sf_debye_6_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
-debye_6_e :: Double -> (Double,Double)
+--debye_6_e :: Double -> (Double,Double)
-debye_6_e x = createSFR "debye_6_e" $ gsl_sf_debye_6_e x
+--debye_6_e x = createSFR "debye_6_e" $ gsl_sf_debye_6_e x
-foreign import ccall "debye.h gsl_sf_debye_6_e" gsl_sf_debye_6_e :: Double -> Ptr () -> IO CInt
+--foreign import ccall "debye.h gsl_sf_debye_6_e" gsl_sf_debye_6_e :: Double -> Ptr () -> IO CInt
 -- | wrapper for double gsl_sf_debye_6(double x);
 --
 --   <http://www.google.com/search?q=gsl_sf_debye_6&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
-debye_6 :: Double -> Double
+--debye_6 :: Double -> Double
-debye_6 = gsl_sf_debye_6
+--debye_6 = gsl_sf_debye_6
-foreign import ccall "debye.h gsl_sf_debye_6" gsl_sf_debye_6 :: Double -> Double
+--foreign import ccall "debye.h gsl_sf_debye_6" gsl_sf_debye_6 :: Double -> Double
diff --git a/lib/Numeric/GSL/Special/Ellint.hs b/lib/Numeric/GSL/Special/Ellint.hs
index 52ca412..dfd36d9 100644
--- a/lib/Numeric/GSL/Special/Ellint.hs
+++ b/lib/Numeric/GSL/Special/Ellint.hs
@@ -19,10 +19,10 @@ module Numeric.GSL.Special.Ellint(
 , ellint_Kcomp
 , ellint_Ecomp_e
 , ellint_Ecomp
-, ellint_Pcomp_e
+--, ellint_Pcomp_e
-, ellint_Pcomp
+--, ellint_Pcomp
-, ellint_Dcomp_e
+--, ellint_Dcomp_e
-, ellint_Dcomp
+--, ellint_Dcomp
 , ellint_F_e
 , ellint_F
 , ellint_E_e
@@ -76,30 +76,30 @@ foreign import ccall "ellint.h gsl_sf_ellint_Ecomp" gsl_sf_ellint_Ecomp :: Doubl
 -- | wrapper for int gsl_sf_ellint_Pcomp_e(double k,double n,gsl_mode_t mode,gsl_sf_result* result);
 --
 --   <http://www.google.com/search?q=gsl_sf_ellint_Pcomp_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
-ellint_Pcomp_e :: Double -> Double -> Precision -> (Double,Double)
+--ellint_Pcomp_e :: Double -> Double -> Precision -> (Double,Double)
-ellint_Pcomp_e k n mode = createSFR "ellint_Pcomp_e" $ gsl_sf_ellint_Pcomp_e k n  (precCode mode)
+--ellint_Pcomp_e k n mode = createSFR "ellint_Pcomp_e" $ gsl_sf_ellint_Pcomp_e k n  (precCode mode)
-foreign import ccall "ellint.h gsl_sf_ellint_Pcomp_e" gsl_sf_ellint_Pcomp_e :: Double -> Double -> Gsl_mode_t -> Ptr () -> IO CInt
+--foreign import ccall "ellint.h gsl_sf_ellint_Pcomp_e" gsl_sf_ellint_Pcomp_e :: Double -> Double -> Gsl_mode_t -> Ptr () -> IO CInt
 -- | wrapper for double gsl_sf_ellint_Pcomp(double k,double n,gsl_mode_t mode);
 --
 --   <http://www.google.com/search?q=gsl_sf_ellint_Pcomp&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
-ellint_Pcomp :: Double -> Double -> Precision -> Double
+--ellint_Pcomp :: Double -> Double -> Precision -> Double
-ellint_Pcomp k n mode = gsl_sf_ellint_Pcomp k n  (precCode mode)
+--ellint_Pcomp k n mode = gsl_sf_ellint_Pcomp k n  (precCode mode)
-foreign import ccall "ellint.h gsl_sf_ellint_Pcomp" gsl_sf_ellint_Pcomp :: Double -> Double -> Gsl_mode_t -> Double
+--foreign import ccall "ellint.h gsl_sf_ellint_Pcomp" gsl_sf_ellint_Pcomp :: Double -> Double -> Gsl_mode_t -> Double
 -- | wrapper for int gsl_sf_ellint_Dcomp_e(double k,gsl_mode_t mode,gsl_sf_result* result);
 --
 --   <http://www.google.com/search?q=gsl_sf_ellint_Dcomp_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
-ellint_Dcomp_e :: Double -> Precision -> (Double,Double)
+--ellint_Dcomp_e :: Double -> Precision -> (Double,Double)
-ellint_Dcomp_e k mode = createSFR "ellint_Dcomp_e" $ gsl_sf_ellint_Dcomp_e k  (precCode mode)
+--ellint_Dcomp_e k mode = createSFR "ellint_Dcomp_e" $ gsl_sf_ellint_Dcomp_e k  (precCode mode)
-foreign import ccall "ellint.h gsl_sf_ellint_Dcomp_e" gsl_sf_ellint_Dcomp_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt
+--foreign import ccall "ellint.h gsl_sf_ellint_Dcomp_e" gsl_sf_ellint_Dcomp_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt
 -- | wrapper for double gsl_sf_ellint_Dcomp(double k,gsl_mode_t mode);
 --
 --   <http://www.google.com/search?q=gsl_sf_ellint_Dcomp&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
-ellint_Dcomp :: Double -> Precision -> Double
+--ellint_Dcomp :: Double -> Precision -> Double
-ellint_Dcomp k mode = gsl_sf_ellint_Dcomp k  (precCode mode)
+--ellint_Dcomp k mode = gsl_sf_ellint_Dcomp k  (precCode mode)
-foreign import ccall "ellint.h gsl_sf_ellint_Dcomp" gsl_sf_ellint_Dcomp :: Double -> Gsl_mode_t -> Double
+--foreign import ccall "ellint.h gsl_sf_ellint_Dcomp" gsl_sf_ellint_Dcomp :: Double -> Gsl_mode_t -> Double
 -- | wrapper for int gsl_sf_ellint_F_e(double phi,double k,gsl_mode_t mode,gsl_sf_result* result);
 --
diff --git a/lib/Numeric/GSL/Vector.hs b/lib/Numeric/GSL/Vector.hs
index 0db2f84..9e06783 100644
--- a/lib/Numeric/GSL/Vector.hs
+++ b/lib/Numeric/GSL/Vector.hs
@@ -27,7 +27,7 @@ import Complex
 import Foreign
 import Foreign.C.Types(CInt)
-fromei = fromIntegral . fromei
+fromei x = fromIntegral (fromEnum x)
 data FunCodeV = Sin
              | Cos

diff --git a/lib/Numeric/GSL/Special/Debye.hs b/lib/Numeric/GSL/Special/Debye.hs index c059cf1..cb86f03 100644 --- a/lib/Numeric/GSL/Special/Debye.hs +++ b/lib/Numeric/GSL/Special/Debye.hs
@@ -23,10 +23,10 @@ module Numeric.GSL.Special.Debye(
23	, debye_3	23	, debye_3
24	, debye_4_e	24	, debye_4_e
25	, debye_4	25	, debye_4
26	, debye_5_e	26	--, debye_5_e
27	, debye_5	27	--, debye_5
28	, debye_6_e	28	--, debye_6_e
29	, debye_6	29	--, debye_6
30	) where	30	) where
31		31
32	import Foreign(Ptr)	32	import Foreign(Ptr)
@@ -92,27 +92,27 @@ foreign import ccall "debye.h gsl_sf_debye_4" gsl_sf_debye_4 :: Double -> Double
92	-- \| wrapper for int gsl_sf_debye_5_e(double x,gsl_sf_result* result);	92	-- \| wrapper for int gsl_sf_debye_5_e(double x,gsl_sf_result* result);
93	--	93	--
94	-- <http://www.google.com/search?q=gsl_sf_debye_5_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>	94	-- <http://www.google.com/search?q=gsl_sf_debye_5_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
95	debye_5_e :: Double -> (Double,Double)	95	--debye_5_e :: Double -> (Double,Double)
96	debye_5_e x = createSFR "debye_5_e" $ gsl_sf_debye_5_e x	96	--debye_5_e x = createSFR "debye_5_e" $ gsl_sf_debye_5_e x
97	foreign import ccall "debye.h gsl_sf_debye_5_e" gsl_sf_debye_5_e :: Double -> Ptr () -> IO CInt	97	--foreign import ccall "debye.h gsl_sf_debye_5_e" gsl_sf_debye_5_e :: Double -> Ptr () -> IO CInt
98		98
99	-- \| wrapper for double gsl_sf_debye_5(double x);	99	-- \| wrapper for double gsl_sf_debye_5(double x);
100	--	100	--
101	-- <http://www.google.com/search?q=gsl_sf_debye_5&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>	101	-- <http://www.google.com/search?q=gsl_sf_debye_5&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
102	debye_5 :: Double -> Double	102	--debye_5 :: Double -> Double
103	debye_5 = gsl_sf_debye_5	103	--debye_5 = gsl_sf_debye_5
104	foreign import ccall "debye.h gsl_sf_debye_5" gsl_sf_debye_5 :: Double -> Double	104	--foreign import ccall "debye.h gsl_sf_debye_5" gsl_sf_debye_5 :: Double -> Double
105		105
106	-- \| wrapper for int gsl_sf_debye_6_e(double x,gsl_sf_result* result);	106	-- \| wrapper for int gsl_sf_debye_6_e(double x,gsl_sf_result* result);
107	--	107	--
108	-- <http://www.google.com/search?q=gsl_sf_debye_6_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>	108	-- <http://www.google.com/search?q=gsl_sf_debye_6_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
109	debye_6_e :: Double -> (Double,Double)	109	--debye_6_e :: Double -> (Double,Double)
110	debye_6_e x = createSFR "debye_6_e" $ gsl_sf_debye_6_e x	110	--debye_6_e x = createSFR "debye_6_e" $ gsl_sf_debye_6_e x
111	foreign import ccall "debye.h gsl_sf_debye_6_e" gsl_sf_debye_6_e :: Double -> Ptr () -> IO CInt	111	--foreign import ccall "debye.h gsl_sf_debye_6_e" gsl_sf_debye_6_e :: Double -> Ptr () -> IO CInt
112		112
113	-- \| wrapper for double gsl_sf_debye_6(double x);	113	-- \| wrapper for double gsl_sf_debye_6(double x);
114	--	114	--
115	-- <http://www.google.com/search?q=gsl_sf_debye_6&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>	115	-- <http://www.google.com/search?q=gsl_sf_debye_6&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
116	debye_6 :: Double -> Double	116	--debye_6 :: Double -> Double
117	debye_6 = gsl_sf_debye_6	117	--debye_6 = gsl_sf_debye_6
118	foreign import ccall "debye.h gsl_sf_debye_6" gsl_sf_debye_6 :: Double -> Double	118	--foreign import ccall "debye.h gsl_sf_debye_6" gsl_sf_debye_6 :: Double -> Double


diff --git a/lib/Numeric/GSL/Special/Ellint.hs b/lib/Numeric/GSL/Special/Ellint.hs index 52ca412..dfd36d9 100644 --- a/lib/Numeric/GSL/Special/Ellint.hs +++ b/lib/Numeric/GSL/Special/Ellint.hs
@@ -19,10 +19,10 @@ module Numeric.GSL.Special.Ellint(
19	, ellint_Kcomp	19	, ellint_Kcomp
20	, ellint_Ecomp_e	20	, ellint_Ecomp_e
21	, ellint_Ecomp	21	, ellint_Ecomp
22	, ellint_Pcomp_e	22	--, ellint_Pcomp_e
23	, ellint_Pcomp	23	--, ellint_Pcomp
24	, ellint_Dcomp_e	24	--, ellint_Dcomp_e
25	, ellint_Dcomp	25	--, ellint_Dcomp
26	, ellint_F_e	26	, ellint_F_e
27	, ellint_F	27	, ellint_F
28	, ellint_E_e	28	, ellint_E_e
@@ -76,30 +76,30 @@ foreign import ccall "ellint.h gsl_sf_ellint_Ecomp" gsl_sf_ellint_Ecomp :: Doubl
76	-- \| wrapper for int gsl_sf_ellint_Pcomp_e(double k,double n,gsl_mode_t mode,gsl_sf_result* result);	76	-- \| wrapper for int gsl_sf_ellint_Pcomp_e(double k,double n,gsl_mode_t mode,gsl_sf_result* result);
77	--	77	--
78	-- <http://www.google.com/search?q=gsl_sf_ellint_Pcomp_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>	78	-- <http://www.google.com/search?q=gsl_sf_ellint_Pcomp_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
79	ellint_Pcomp_e :: Double -> Double -> Precision -> (Double,Double)	79	--ellint_Pcomp_e :: Double -> Double -> Precision -> (Double,Double)
80	ellint_Pcomp_e k n mode = createSFR "ellint_Pcomp_e" $ gsl_sf_ellint_Pcomp_e k n (precCode mode)	80	--ellint_Pcomp_e k n mode = createSFR "ellint_Pcomp_e" $ gsl_sf_ellint_Pcomp_e k n (precCode mode)
81	foreign import ccall "ellint.h gsl_sf_ellint_Pcomp_e" gsl_sf_ellint_Pcomp_e :: Double -> Double -> Gsl_mode_t -> Ptr () -> IO CInt	81	--foreign import ccall "ellint.h gsl_sf_ellint_Pcomp_e" gsl_sf_ellint_Pcomp_e :: Double -> Double -> Gsl_mode_t -> Ptr () -> IO CInt
82		82
83	-- \| wrapper for double gsl_sf_ellint_Pcomp(double k,double n,gsl_mode_t mode);	83	-- \| wrapper for double gsl_sf_ellint_Pcomp(double k,double n,gsl_mode_t mode);
84	--	84	--
85	-- <http://www.google.com/search?q=gsl_sf_ellint_Pcomp&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>	85	-- <http://www.google.com/search?q=gsl_sf_ellint_Pcomp&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
86	ellint_Pcomp :: Double -> Double -> Precision -> Double	86	--ellint_Pcomp :: Double -> Double -> Precision -> Double
87	ellint_Pcomp k n mode = gsl_sf_ellint_Pcomp k n (precCode mode)	87	--ellint_Pcomp k n mode = gsl_sf_ellint_Pcomp k n (precCode mode)
88	foreign import ccall "ellint.h gsl_sf_ellint_Pcomp" gsl_sf_ellint_Pcomp :: Double -> Double -> Gsl_mode_t -> Double	88	--foreign import ccall "ellint.h gsl_sf_ellint_Pcomp" gsl_sf_ellint_Pcomp :: Double -> Double -> Gsl_mode_t -> Double
89		89
90	-- \| wrapper for int gsl_sf_ellint_Dcomp_e(double k,gsl_mode_t mode,gsl_sf_result* result);	90	-- \| wrapper for int gsl_sf_ellint_Dcomp_e(double k,gsl_mode_t mode,gsl_sf_result* result);
91	--	91	--
92	-- <http://www.google.com/search?q=gsl_sf_ellint_Dcomp_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>	92	-- <http://www.google.com/search?q=gsl_sf_ellint_Dcomp_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
93	ellint_Dcomp_e :: Double -> Precision -> (Double,Double)	93	--ellint_Dcomp_e :: Double -> Precision -> (Double,Double)
94	ellint_Dcomp_e k mode = createSFR "ellint_Dcomp_e" $ gsl_sf_ellint_Dcomp_e k (precCode mode)	94	--ellint_Dcomp_e k mode = createSFR "ellint_Dcomp_e" $ gsl_sf_ellint_Dcomp_e k (precCode mode)
95	foreign import ccall "ellint.h gsl_sf_ellint_Dcomp_e" gsl_sf_ellint_Dcomp_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt	95	--foreign import ccall "ellint.h gsl_sf_ellint_Dcomp_e" gsl_sf_ellint_Dcomp_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt
96		96
97	-- \| wrapper for double gsl_sf_ellint_Dcomp(double k,gsl_mode_t mode);	97	-- \| wrapper for double gsl_sf_ellint_Dcomp(double k,gsl_mode_t mode);
98	--	98	--
99	-- <http://www.google.com/search?q=gsl_sf_ellint_Dcomp&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>	99	-- <http://www.google.com/search?q=gsl_sf_ellint_Dcomp&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
100	ellint_Dcomp :: Double -> Precision -> Double	100	--ellint_Dcomp :: Double -> Precision -> Double
101	ellint_Dcomp k mode = gsl_sf_ellint_Dcomp k (precCode mode)	101	--ellint_Dcomp k mode = gsl_sf_ellint_Dcomp k (precCode mode)
102	foreign import ccall "ellint.h gsl_sf_ellint_Dcomp" gsl_sf_ellint_Dcomp :: Double -> Gsl_mode_t -> Double	102	--foreign import ccall "ellint.h gsl_sf_ellint_Dcomp" gsl_sf_ellint_Dcomp :: Double -> Gsl_mode_t -> Double
103		103
104	-- \| wrapper for int gsl_sf_ellint_F_e(double phi,double k,gsl_mode_t mode,gsl_sf_result* result);	104	-- \| wrapper for int gsl_sf_ellint_F_e(double phi,double k,gsl_mode_t mode,gsl_sf_result* result);
105	--	105	--


diff --git a/lib/Numeric/GSL/Vector.hs b/lib/Numeric/GSL/Vector.hs index 0db2f84..9e06783 100644 --- a/lib/Numeric/GSL/Vector.hs +++ b/lib/Numeric/GSL/Vector.hs
@@ -27,7 +27,7 @@ import Complex
27	import Foreign	27	import Foreign
28	import Foreign.C.Types(CInt)	28	import Foreign.C.Types(CInt)
29		29
30	fromei = fromIntegral . fromei	30	fromei x = fromIntegral (fromEnum x)
31		31
32	data FunCodeV = Sin	32	data FunCodeV = Sin
33	\| Cos	33	\| Cos