summaryrefslogtreecommitdiff
path: root/packages/special/lib/Numeric/GSL/Special/Trig.hs
diff options
context:
space:
mode:
authorAlberto Ruiz <aruiz@um.es>2012-03-13 14:51:12 +0100
committerAlberto Ruiz <aruiz@um.es>2012-03-13 14:51:12 +0100
commit072055e1658fa6fd64a4462b6a243ec0f5e5cdb4 (patch)
tree09e3a46185a1ee231cdddab6955437a2b0ead601 /packages/special/lib/Numeric/GSL/Special/Trig.hs
parent9c4a8a37291f902312215452d0bdd9ad95408ae9 (diff)
revert to SAFE_CHEAP macro, unsafe by default
Diffstat (limited to 'packages/special/lib/Numeric/GSL/Special/Trig.hs')
-rw-r--r--packages/special/lib/Numeric/GSL/Special/Trig.hs50
1 files changed, 25 insertions, 25 deletions
diff --git a/packages/special/lib/Numeric/GSL/Special/Trig.hs b/packages/special/lib/Numeric/GSL/Special/Trig.hs
index 6180144..43fdc95 100644
--- a/packages/special/lib/Numeric/GSL/Special/Trig.hs
+++ b/packages/special/lib/Numeric/GSL/Special/Trig.hs
@@ -44,100 +44,100 @@ import Numeric.GSL.Special.Internal
44 44
45sin_e :: Double -> (Double,Double) 45sin_e :: Double -> (Double,Double)
46sin_e x = createSFR "sin_e" $ gsl_sf_sin_e x 46sin_e x = createSFR "sin_e" $ gsl_sf_sin_e x
47foreign import ccall unsafe "gsl_sf_sin_e" gsl_sf_sin_e :: Double -> Ptr () -> IO CInt 47foreign import ccall SAFE_CHEAP "gsl_sf_sin_e" gsl_sf_sin_e :: Double -> Ptr () -> IO CInt
48 48
49sin :: Double -> Double 49sin :: Double -> Double
50sin = gsl_sf_sin 50sin = gsl_sf_sin
51foreign import ccall unsafe "gsl_sf_sin" gsl_sf_sin :: Double -> Double 51foreign import ccall SAFE_CHEAP "gsl_sf_sin" gsl_sf_sin :: Double -> Double
52 52
53cos_e :: Double -> (Double,Double) 53cos_e :: Double -> (Double,Double)
54cos_e x = createSFR "cos_e" $ gsl_sf_cos_e x 54cos_e x = createSFR "cos_e" $ gsl_sf_cos_e x
55foreign import ccall unsafe "gsl_sf_cos_e" gsl_sf_cos_e :: Double -> Ptr () -> IO CInt 55foreign import ccall SAFE_CHEAP "gsl_sf_cos_e" gsl_sf_cos_e :: Double -> Ptr () -> IO CInt
56 56
57cos :: Double -> Double 57cos :: Double -> Double
58cos = gsl_sf_cos 58cos = gsl_sf_cos
59foreign import ccall unsafe "gsl_sf_cos" gsl_sf_cos :: Double -> Double 59foreign import ccall SAFE_CHEAP "gsl_sf_cos" gsl_sf_cos :: Double -> Double
60 60
61hypot_e :: Double -> Double -> (Double,Double) 61hypot_e :: Double -> Double -> (Double,Double)
62hypot_e x y = createSFR "hypot_e" $ gsl_sf_hypot_e x y 62hypot_e x y = createSFR "hypot_e" $ gsl_sf_hypot_e x y
63foreign import ccall unsafe "gsl_sf_hypot_e" gsl_sf_hypot_e :: Double -> Double -> Ptr () -> IO CInt 63foreign import ccall SAFE_CHEAP "gsl_sf_hypot_e" gsl_sf_hypot_e :: Double -> Double -> Ptr () -> IO CInt
64 64
65hypot :: Double -> Double -> Double 65hypot :: Double -> Double -> Double
66hypot = gsl_sf_hypot 66hypot = gsl_sf_hypot
67foreign import ccall unsafe "gsl_sf_hypot" gsl_sf_hypot :: Double -> Double -> Double 67foreign import ccall SAFE_CHEAP "gsl_sf_hypot" gsl_sf_hypot :: Double -> Double -> Double
68 68
69complex_sin_e :: Double -> Double -> ((Double,Double),(Double,Double)) 69complex_sin_e :: Double -> Double -> ((Double,Double),(Double,Double))
70complex_sin_e zr zi = create2SFR "complex_sin_e" $ gsl_sf_complex_sin_e zr zi 70complex_sin_e zr zi = create2SFR "complex_sin_e" $ gsl_sf_complex_sin_e zr zi
71foreign import ccall unsafe "gsl_sf_complex_sin_e" gsl_sf_complex_sin_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt 71foreign import ccall SAFE_CHEAP "gsl_sf_complex_sin_e" gsl_sf_complex_sin_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt
72 72
73complex_cos_e :: Double -> Double -> ((Double,Double),(Double,Double)) 73complex_cos_e :: Double -> Double -> ((Double,Double),(Double,Double))
74complex_cos_e zr zi = create2SFR "complex_cos_e" $ gsl_sf_complex_cos_e zr zi 74complex_cos_e zr zi = create2SFR "complex_cos_e" $ gsl_sf_complex_cos_e zr zi
75foreign import ccall unsafe "gsl_sf_complex_cos_e" gsl_sf_complex_cos_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt 75foreign import ccall SAFE_CHEAP "gsl_sf_complex_cos_e" gsl_sf_complex_cos_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt
76 76
77complex_logsin_e :: Double -> Double -> ((Double,Double),(Double,Double)) 77complex_logsin_e :: Double -> Double -> ((Double,Double),(Double,Double))
78complex_logsin_e zr zi = create2SFR "complex_logsin_e" $ gsl_sf_complex_logsin_e zr zi 78complex_logsin_e zr zi = create2SFR "complex_logsin_e" $ gsl_sf_complex_logsin_e zr zi
79foreign import ccall unsafe "gsl_sf_complex_logsin_e" gsl_sf_complex_logsin_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt 79foreign import ccall SAFE_CHEAP "gsl_sf_complex_logsin_e" gsl_sf_complex_logsin_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt
80 80
81sinc_e :: Double -> (Double,Double) 81sinc_e :: Double -> (Double,Double)
82sinc_e x = createSFR "sinc_e" $ gsl_sf_sinc_e x 82sinc_e x = createSFR "sinc_e" $ gsl_sf_sinc_e x
83foreign import ccall unsafe "gsl_sf_sinc_e" gsl_sf_sinc_e :: Double -> Ptr () -> IO CInt 83foreign import ccall SAFE_CHEAP "gsl_sf_sinc_e" gsl_sf_sinc_e :: Double -> Ptr () -> IO CInt
84 84
85sinc :: Double -> Double 85sinc :: Double -> Double
86sinc = gsl_sf_sinc 86sinc = gsl_sf_sinc
87foreign import ccall unsafe "gsl_sf_sinc" gsl_sf_sinc :: Double -> Double 87foreign import ccall SAFE_CHEAP "gsl_sf_sinc" gsl_sf_sinc :: Double -> Double
88 88
89lnsinh_e :: Double -> (Double,Double) 89lnsinh_e :: Double -> (Double,Double)
90lnsinh_e x = createSFR "lnsinh_e" $ gsl_sf_lnsinh_e x 90lnsinh_e x = createSFR "lnsinh_e" $ gsl_sf_lnsinh_e x
91foreign import ccall unsafe "gsl_sf_lnsinh_e" gsl_sf_lnsinh_e :: Double -> Ptr () -> IO CInt 91foreign import ccall SAFE_CHEAP "gsl_sf_lnsinh_e" gsl_sf_lnsinh_e :: Double -> Ptr () -> IO CInt
92 92
93lnsinh :: Double -> Double 93lnsinh :: Double -> Double
94lnsinh = gsl_sf_lnsinh 94lnsinh = gsl_sf_lnsinh
95foreign import ccall unsafe "gsl_sf_lnsinh" gsl_sf_lnsinh :: Double -> Double 95foreign import ccall SAFE_CHEAP "gsl_sf_lnsinh" gsl_sf_lnsinh :: Double -> Double
96 96
97lncosh_e :: Double -> (Double,Double) 97lncosh_e :: Double -> (Double,Double)
98lncosh_e x = createSFR "lncosh_e" $ gsl_sf_lncosh_e x 98lncosh_e x = createSFR "lncosh_e" $ gsl_sf_lncosh_e x
99foreign import ccall unsafe "gsl_sf_lncosh_e" gsl_sf_lncosh_e :: Double -> Ptr () -> IO CInt 99foreign import ccall SAFE_CHEAP "gsl_sf_lncosh_e" gsl_sf_lncosh_e :: Double -> Ptr () -> IO CInt
100 100
101lncosh :: Double -> Double 101lncosh :: Double -> Double
102lncosh = gsl_sf_lncosh 102lncosh = gsl_sf_lncosh
103foreign import ccall unsafe "gsl_sf_lncosh" gsl_sf_lncosh :: Double -> Double 103foreign import ccall SAFE_CHEAP "gsl_sf_lncosh" gsl_sf_lncosh :: Double -> Double
104 104
105polar_to_rect :: Double -> Double -> ((Double,Double),(Double,Double)) 105polar_to_rect :: Double -> Double -> ((Double,Double),(Double,Double))
106polar_to_rect r theta = create2SFR "polar_to_rect" $ gsl_sf_polar_to_rect r theta 106polar_to_rect r theta = create2SFR "polar_to_rect" $ gsl_sf_polar_to_rect r theta
107foreign import ccall unsafe "gsl_sf_polar_to_rect" gsl_sf_polar_to_rect :: Double -> Double -> Ptr () -> Ptr () -> IO CInt 107foreign import ccall SAFE_CHEAP "gsl_sf_polar_to_rect" gsl_sf_polar_to_rect :: Double -> Double -> Ptr () -> Ptr () -> IO CInt
108 108
109rect_to_polar :: Double -> Double -> ((Double,Double),(Double,Double)) 109rect_to_polar :: Double -> Double -> ((Double,Double),(Double,Double))
110rect_to_polar x y = create2SFR "rect_to_polar" $ gsl_sf_rect_to_polar x y 110rect_to_polar x y = create2SFR "rect_to_polar" $ gsl_sf_rect_to_polar x y
111foreign import ccall unsafe "gsl_sf_rect_to_polar" gsl_sf_rect_to_polar :: Double -> Double -> Ptr () -> Ptr () -> IO CInt 111foreign import ccall SAFE_CHEAP "gsl_sf_rect_to_polar" gsl_sf_rect_to_polar :: Double -> Double -> Ptr () -> Ptr () -> IO CInt
112 112
113sin_err_e :: Double -> Double -> (Double,Double) 113sin_err_e :: Double -> Double -> (Double,Double)
114sin_err_e x dx = createSFR "sin_err_e" $ gsl_sf_sin_err_e x dx 114sin_err_e x dx = createSFR "sin_err_e" $ gsl_sf_sin_err_e x dx
115foreign import ccall unsafe "gsl_sf_sin_err_e" gsl_sf_sin_err_e :: Double -> Double -> Ptr () -> IO CInt 115foreign import ccall SAFE_CHEAP "gsl_sf_sin_err_e" gsl_sf_sin_err_e :: Double -> Double -> Ptr () -> IO CInt
116 116
117cos_err_e :: Double -> Double -> (Double,Double) 117cos_err_e :: Double -> Double -> (Double,Double)
118cos_err_e x dx = createSFR "cos_err_e" $ gsl_sf_cos_err_e x dx 118cos_err_e x dx = createSFR "cos_err_e" $ gsl_sf_cos_err_e x dx
119foreign import ccall unsafe "gsl_sf_cos_err_e" gsl_sf_cos_err_e :: Double -> Double -> Ptr () -> IO CInt 119foreign import ccall SAFE_CHEAP "gsl_sf_cos_err_e" gsl_sf_cos_err_e :: Double -> Double -> Ptr () -> IO CInt
120 120
121angle_restrict_symm_e :: Ptr Double -> CInt 121angle_restrict_symm_e :: Ptr Double -> CInt
122angle_restrict_symm_e = gsl_sf_angle_restrict_symm_e 122angle_restrict_symm_e = gsl_sf_angle_restrict_symm_e
123foreign import ccall unsafe "gsl_sf_angle_restrict_symm_e" gsl_sf_angle_restrict_symm_e :: Ptr Double -> CInt 123foreign import ccall SAFE_CHEAP "gsl_sf_angle_restrict_symm_e" gsl_sf_angle_restrict_symm_e :: Ptr Double -> CInt
124 124
125angle_restrict_symm :: Double -> Double 125angle_restrict_symm :: Double -> Double
126angle_restrict_symm = gsl_sf_angle_restrict_symm 126angle_restrict_symm = gsl_sf_angle_restrict_symm
127foreign import ccall unsafe "gsl_sf_angle_restrict_symm" gsl_sf_angle_restrict_symm :: Double -> Double 127foreign import ccall SAFE_CHEAP "gsl_sf_angle_restrict_symm" gsl_sf_angle_restrict_symm :: Double -> Double
128 128
129angle_restrict_pos_e :: Ptr Double -> CInt 129angle_restrict_pos_e :: Ptr Double -> CInt
130angle_restrict_pos_e = gsl_sf_angle_restrict_pos_e 130angle_restrict_pos_e = gsl_sf_angle_restrict_pos_e
131foreign import ccall unsafe "gsl_sf_angle_restrict_pos_e" gsl_sf_angle_restrict_pos_e :: Ptr Double -> CInt 131foreign import ccall SAFE_CHEAP "gsl_sf_angle_restrict_pos_e" gsl_sf_angle_restrict_pos_e :: Ptr Double -> CInt
132 132
133angle_restrict_pos :: Double -> Double 133angle_restrict_pos :: Double -> Double
134angle_restrict_pos = gsl_sf_angle_restrict_pos 134angle_restrict_pos = gsl_sf_angle_restrict_pos
135foreign import ccall unsafe "gsl_sf_angle_restrict_pos" gsl_sf_angle_restrict_pos :: Double -> Double 135foreign import ccall SAFE_CHEAP "gsl_sf_angle_restrict_pos" gsl_sf_angle_restrict_pos :: Double -> Double
136 136
137angle_restrict_symm_err_e :: Double -> (Double,Double) 137angle_restrict_symm_err_e :: Double -> (Double,Double)
138angle_restrict_symm_err_e theta = createSFR "angle_restrict_symm_err_e" $ gsl_sf_angle_restrict_symm_err_e theta 138angle_restrict_symm_err_e theta = createSFR "angle_restrict_symm_err_e" $ gsl_sf_angle_restrict_symm_err_e theta
139foreign import ccall unsafe "gsl_sf_angle_restrict_symm_err_e" gsl_sf_angle_restrict_symm_err_e :: Double -> Ptr () -> IO CInt 139foreign import ccall SAFE_CHEAP "gsl_sf_angle_restrict_symm_err_e" gsl_sf_angle_restrict_symm_err_e :: Double -> Ptr () -> IO CInt
140 140
141angle_restrict_pos_err_e :: Double -> (Double,Double) 141angle_restrict_pos_err_e :: Double -> (Double,Double)
142angle_restrict_pos_err_e theta = createSFR "angle_restrict_pos_err_e" $ gsl_sf_angle_restrict_pos_err_e theta 142angle_restrict_pos_err_e theta = createSFR "angle_restrict_pos_err_e" $ gsl_sf_angle_restrict_pos_err_e theta
143foreign import ccall unsafe "gsl_sf_angle_restrict_pos_err_e" gsl_sf_angle_restrict_pos_err_e :: Double -> Ptr () -> IO CInt 143foreign import ccall SAFE_CHEAP "gsl_sf_angle_restrict_pos_err_e" gsl_sf_angle_restrict_pos_err_e :: Double -> Ptr () -> IO CInt
generated by cgit v1.2.3 (git 2.39.1) at 2024-11-01 16:08:19 +0000