1 files changed, 37 insertions, 0 deletions

diff --git a/packages/sundials/src/Numeric/Sundials/CLangToHaskellTypes.hs b/packages/sundials/src/Numeric/Sundials/CLangToHaskellTypes.hs
new file mode 100644
index 0000000..0908cbe
--- /dev/null
+++ b/packages/sundials/src/Numeric/Sundials/CLangToHaskellTypes.hs
@@ -0,0 +1,37 @@
+{-# LANGUAGE QuasiQuotes #-}
+{-# LANGUAGE TemplateHaskell #-}
+{-# LANGUAGE OverloadedStrings #-}
+{-# LANGUAGE EmptyDataDecls #-}
+
+module Numeric.Sundials.CLangToHaskellTypes where
+
+import           Foreign.C.Types
+
+import qualified Language.Haskell.TH as TH
+import qualified Language.C.Types as CT
+import qualified Data.Map as Map
+import           Language.C.Inline.Context
+
+import qualified Data.Vector.Storable as V
+
+
+data SunVector
+data SunMatrix = SunMatrix { rows :: CInt
+                           , cols :: CInt
+                           , vals :: V.Vector CDouble
+                           }
+
+-- | This is true only if configured/ built as 64 bits
+type SunIndexType = CLong
+
+sunTypesTable :: Map.Map CT.TypeSpecifier TH.TypeQ
+sunTypesTable = Map.fromList
+  [
+    (CT.TypeName "sunindextype", [t| SunIndexType |] )
+  , (CT.TypeName "SunVector", [t| SunVector |] )
+  , (CT.TypeName "SunMatrix", [t| SunMatrix |] )
+  ]
+
+sunCtx :: Context
+sunCtx = mempty {ctxTypesTable = sunTypesTable}
+