blob: d3ce121c70767f98c1682e3549a361bad6c1959c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
|
-----------------------------------------------------------------------------
-- |
-- Module : Data.Packed.Internal.Signatures
-- Copyright : (c) Alberto Ruiz 2009
-- License : GPL-style
--
-- Maintainer : Alberto Ruiz <aruiz@um.es>
-- Stability : provisional
-- Portability : portable (uses FFI)
--
-- Signatures of the C functions.
--
-----------------------------------------------------------------------------
module Data.Packed.Internal.Signatures where
import Foreign
import Data.Complex
import Foreign.C.Types
type PD = Ptr Double --
type PC = Ptr (Complex Double) --
type TV = CInt -> PD -> IO CInt --
type TVV = CInt -> PD -> TV --
type TVVV = CInt -> PD -> TVV --
type TM = CInt -> CInt -> PD -> IO CInt --
type TMM = CInt -> CInt -> PD -> TM --
type TVMM = CInt -> PD -> TMM --
type TMVMM = CInt -> CInt -> PD -> TVMM --
type TMMM = CInt -> CInt -> PD -> TMM --
type TVM = CInt -> PD -> TM --
type TVVM = CInt -> PD -> TVM --
type TMV = CInt -> CInt -> PD -> TV --
type TMMV = CInt -> CInt -> PD -> TMV --
type TMVM = CInt -> CInt -> PD -> TVM --
type TMMVM = CInt -> CInt -> PD -> TMVM --
type TCM = CInt -> CInt -> PC -> IO CInt --
type TCVCM = CInt -> PC -> TCM --
type TCMCVCM = CInt -> CInt -> PC -> TCVCM --
type TMCMCVCM = CInt -> CInt -> PD -> TCMCVCM --
type TCMCMCVCM = CInt -> CInt -> PC -> TCMCVCM --
type TCMCM = CInt -> CInt -> PC -> TCM --
type TVCM = CInt -> PD -> TCM --
type TCMVCM = CInt -> CInt -> PC -> TVCM --
type TCMCMVCM = CInt -> CInt -> PC -> TCMVCM --
type TCMCMCM = CInt -> CInt -> PC -> TCMCM --
type TCV = CInt -> PC -> IO CInt --
type TCVCV = CInt -> PC -> TCV --
type TCVCVCV = CInt -> PC -> TCVCV --
type TCMCV = CInt -> CInt -> PC -> TCV --
type TVCV = CInt -> PD -> TCV --
type TCVM = CInt -> PC -> TM --
type TMCVM = CInt -> CInt -> PD -> TCVM --
type TMMCVM = CInt -> CInt -> PD -> TMCVM --
|
