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