diff options
Diffstat (limited to 'packages/base/src/Data/Packed/Internal/Signatures.hs')
| -rw-r--r-- | packages/base/src/Data/Packed/Internal/Signatures.hs | 70 |
1 files changed, 70 insertions, 0 deletions
diff --git a/packages/base/src/Data/Packed/Internal/Signatures.hs b/packages/base/src/Data/Packed/Internal/Signatures.hs new file mode 100644 index 0000000..acc3070 --- /dev/null +++ b/packages/base/src/Data/Packed/Internal/Signatures.hs | |||
| @@ -0,0 +1,70 @@ | |||
| 1 | -- | | ||
| 2 | -- Module : Data.Packed.Internal.Signatures | ||
| 3 | -- Copyright : (c) Alberto Ruiz 2009 | ||
| 4 | -- License : BSD3 | ||
| 5 | -- Maintainer : Alberto Ruiz | ||
| 6 | -- Stability : provisional | ||
| 7 | -- | ||
| 8 | -- Signatures of the C functions. | ||
| 9 | -- | ||
| 10 | |||
| 11 | |||
| 12 | module Data.Packed.Internal.Signatures where | ||
| 13 | |||
| 14 | import Foreign.Ptr(Ptr) | ||
| 15 | import Data.Complex(Complex) | ||
| 16 | import Foreign.C.Types(CInt) | ||
| 17 | |||
| 18 | type PF = Ptr Float -- | ||
| 19 | type PD = Ptr Double -- | ||
| 20 | type PQ = Ptr (Complex Float) -- | ||
| 21 | type PC = Ptr (Complex Double) -- | ||
| 22 | type TF = CInt -> PF -> IO CInt -- | ||
| 23 | type TFF = CInt -> PF -> TF -- | ||
| 24 | type TFV = CInt -> PF -> TV -- | ||
| 25 | type TVF = CInt -> PD -> TF -- | ||
| 26 | type TFFF = CInt -> PF -> TFF -- | ||
| 27 | type TV = CInt -> PD -> IO CInt -- | ||
| 28 | type TVV = CInt -> PD -> TV -- | ||
| 29 | type TVVV = CInt -> PD -> TVV -- | ||
| 30 | type TFM = CInt -> CInt -> PF -> IO CInt -- | ||
| 31 | type TFMFM = CInt -> CInt -> PF -> TFM -- | ||
| 32 | type TFMFMFM = CInt -> CInt -> PF -> TFMFM -- | ||
| 33 | type TM = CInt -> CInt -> PD -> IO CInt -- | ||
| 34 | type TMM = CInt -> CInt -> PD -> TM -- | ||
| 35 | type TVMM = CInt -> PD -> TMM -- | ||
| 36 | type TMVMM = CInt -> CInt -> PD -> TVMM -- | ||
| 37 | type TMMM = CInt -> CInt -> PD -> TMM -- | ||
| 38 | type TVM = CInt -> PD -> TM -- | ||
| 39 | type TVVM = CInt -> PD -> TVM -- | ||
| 40 | type TMV = CInt -> CInt -> PD -> TV -- | ||
| 41 | type TMMV = CInt -> CInt -> PD -> TMV -- | ||
| 42 | type TMVM = CInt -> CInt -> PD -> TVM -- | ||
| 43 | type TMMVM = CInt -> CInt -> PD -> TMVM -- | ||
| 44 | type TCM = CInt -> CInt -> PC -> IO CInt -- | ||
| 45 | type TCVCM = CInt -> PC -> TCM -- | ||
| 46 | type TCMCVCM = CInt -> CInt -> PC -> TCVCM -- | ||
| 47 | type TMCMCVCM = CInt -> CInt -> PD -> TCMCVCM -- | ||
| 48 | type TCMCMCVCM = CInt -> CInt -> PC -> TCMCVCM -- | ||
| 49 | type TCMCM = CInt -> CInt -> PC -> TCM -- | ||
| 50 | type TVCM = CInt -> PD -> TCM -- | ||
| 51 | type TCMVCM = CInt -> CInt -> PC -> TVCM -- | ||
| 52 | type TCMCMVCM = CInt -> CInt -> PC -> TCMVCM -- | ||
| 53 | type TCMCMCM = CInt -> CInt -> PC -> TCMCM -- | ||
| 54 | type TCV = CInt -> PC -> IO CInt -- | ||
| 55 | type TCVCV = CInt -> PC -> TCV -- | ||
| 56 | type TCVCVCV = CInt -> PC -> TCVCV -- | ||
| 57 | type TCVV = CInt -> PC -> TV -- | ||
| 58 | type TQV = CInt -> PQ -> IO CInt -- | ||
| 59 | type TQVQV = CInt -> PQ -> TQV -- | ||
| 60 | type TQVQVQV = CInt -> PQ -> TQVQV -- | ||
| 61 | type TQVF = CInt -> PQ -> TF -- | ||
| 62 | type TQM = CInt -> CInt -> PQ -> IO CInt -- | ||
| 63 | type TQMQM = CInt -> CInt -> PQ -> TQM -- | ||
| 64 | type TQMQMQM = CInt -> CInt -> PQ -> TQMQM -- | ||
| 65 | type TCMCV = CInt -> CInt -> PC -> TCV -- | ||
| 66 | type TVCV = CInt -> PD -> TCV -- | ||
| 67 | type TCVM = CInt -> PC -> TM -- | ||
| 68 | type TMCVM = CInt -> CInt -> PD -> TCVM -- | ||
| 69 | type TMMCVM = CInt -> CInt -> PD -> TMCVM -- | ||
| 70 | |||