Add a clash wrapper that fills in the libdir from GHC.Paths

[matthijs/master-project/cλash.git] / cλash-nolibdir / CLasH / Translator.hs

diff --git a/cλash-nolibdir/CLasH/Translator.hs b/cλash-nolibdir/CLasH/Translator.hs
new file mode 100644 (file)
index 0000000..77c1fe3
--- /dev/null
+++ b/cλash-nolibdir/CLasH/Translator.hs
@@ -0,0 +1,24 @@
+module CLasH.Translator where
+
+import qualified GHC.Paths
+import qualified "clash" CLasH.Translator as Original (makeVHDL, makeVHDLAnn, listBindings, listBind)
+
+makeVHDL :: String -> String -> Bool -> IO ()
+makeVHDL filename name stateful = do
+  let libdir = GHC.Paths.libdir
+  Original.makeVHDL libdir filename name stateful
+  
+makeVHDLAnn :: String -> IO ()
+makeVHDLAnn filename = do
+  let libdir = GHC.Paths.libdir
+  Original.makeVHDLAnn libdir filename
+
+listBindings :: String -> IO [()]
+listBindings filename = do
+  let libdir = GHC.Paths.libdir
+  Original.listBindings libdir filename
+  
+listBind :: String -> String -> IO ()
+listBind filename name = do
+  let libdir = GHC.Paths.libdir
+  Original.listBind libdir filename name