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