The start of an hmatrix interface to sundials

1 files changed, 44 insertions, 0 deletions

diff --git a/packages/sundials/src/Types.hs b/packages/sundials/src/Types.hs
new file mode 100644
index 0000000..355850d
--- /dev/null
+++ b/packages/sundials/src/Types.hs
@@ -0,0 +1,44 @@
+{-# LANGUAGE QuasiQuotes #-}
+{-# LANGUAGE TemplateHaskell #-}
+{-# LANGUAGE MultiWayIf #-}
+{-# LANGUAGE OverloadedStrings #-}
+
+module Types where
+
+import qualified Language.C.Inline as C
+import qualified Language.C.Inline.Unsafe as CU
+import           Data.Monoid ((<>))
+import           Foreign.C.Types
+import           Foreign.Ptr (Ptr)
+import           Foreign.Marshal.Array
+import qualified Data.Vector.Storable as V
+
+import           Data.Coerce (coerce)
+import           Data.Monoid ((<>))
+import qualified Data.Vector.Storable as V
+import qualified Data.Vector.Storable.Mutable as VM
+import           Foreign.C.Types
+import           Foreign.ForeignPtr (newForeignPtr_)
+import           Foreign.Ptr (Ptr)
+import           Foreign.Storable (Storable)
+import qualified Language.C.Inline as C
+import qualified Language.C.Inline.Unsafe as CU
+import           System.IO.Unsafe (unsafePerformIO)
+
+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
+
+
+-- This is a lie!!!
+type SunIndexType = CLong
+
+sunTypesTable :: Map.Map CT.TypeSpecifier TH.TypeQ
+sunTypesTable = Map.fromList
+  [
+    (CT.TypeName "sunindextype", [t| SunIndexType |] )
+  ]
+
+sunctx = mempty {ctxTypesTable = sunTypesTable}
+