1 files changed, 81 insertions, 0 deletions
diff --git a/src/VeriFuzz/Yosys.hs b/src/VeriFuzz/Yosys.hs
new file mode 100644
index 0000000..e18de5a
--- /dev/null
+++ b/src/VeriFuzz/Yosys.hs
@@ -0,0 +1,81 @@
+{-|
+Module      : VeriFuzz.Simulator.Yosys
+Description : Yosys simulator implementation.
+Copyright   : (c) 2018-2019, Yann Herklotz Grave
+License     : BSD-3
+Maintainer  : ymherklotz [at] gmail [dot] com
+Stability   : experimental
+Portability : POSIX
+
+Yosys simulator implementation.
+-}
+
+{-# LANGUAGE QuasiQuotes #-}
+
+module VeriFuzz.Simulator.Yosys where
+
+import           Data.Maybe                           (fromMaybe)
+import           Data.Text                            (Text)
+import qualified Data.Text                            as T
+import           Prelude                              hiding (FilePath)
+import           Shelly
+import           Text.Shakespeare.Text                (st)
+import           VeriFuzz.Simulator.General
+import           VeriFuzz.Simulator.Internal.Template
+import           VeriFuzz.Verilog
+
+newtype Yosys = Yosys { yosysPath :: FilePath }
+
+instance Simulator Yosys where
+  toText _ = "yosys"
+
+instance Synthesize Yosys where
+  runSynth = runSynthYosys
+
+defaultYosys :: Yosys
+defaultYosys = Yosys "/usr/bin/yosys"
+
+writeSimFile
+  :: Yosys    -- ^ Simulator instance
+  -> ModDecl  -- ^ Current module
+  -> FilePath -- ^ Output sim file
+  -> Sh ()
+writeSimFile _ m file = do
+  writefile "rtl.v" $ genSource m
+  writefile file yosysSimConfig
+
+runSynthYosys :: Yosys -> ModDecl -> FilePath -> Sh ()
+runSynthYosys sim m outf = do
+  writefile inpf $ genSource m
+  echoP "Run yosim"
+  noPrint $ run_ (yosysPath sim) ["-q", "-b", "verilog -noattr", "-o", out, "-S", inp]
+ where
+  inpf = "rtl.v"
+  inp  = toTextIgnore inpf
+  out  = toTextIgnore outf
+  -- ids = T.intercalate "," $ allVars m ^.. traverse . getIdentifier
+
+runMaybeSynth :: (Synthesize a) => Maybe a -> ModDecl -> Sh ()
+runMaybeSynth (Just sim) m = runSynth sim m $ fromText [st|syn_#{toText sim}.v|]
+runMaybeSynth Nothing    m = writefile "syn_rtl.v" $ genSource m
+
+runEquivYosys :: (Synthesize a, Synthesize b) => Yosys -> a -> Maybe b -> ModDecl -> Sh ()
+runEquivYosys yosys sim1 sim2 m = do
+  writefile "top.v" . genSource . initMod $ makeTop 2 m
+  writefile checkFile $ yosysSatConfig sim1 sim2 m
+  runSynth sim1 m $ fromText [st|syn_#{toText sim1}.v|]
+  runMaybeSynth sim2 m
+  echoP "Run yosys"
+  noPrint $ run_ (yosysPath yosys) [toTextIgnore checkFile]
+  where
+    checkFile = fromText [st|test.#{toText sim1}.#{maybe "rtl" toText sim2}.ys|]
+
+runEquiv :: (Synthesize a, Synthesize b) => Yosys -> a -> Maybe b -> ModDecl -> Sh ()
+runEquiv yosys sim1 sim2 m = do
+  root <- rootPath
+  writefile "top.v" . genSource . initMod $ makeTopAssert m
+  writefile "test.sby" $ sbyConfig root sim1 sim2 m
+  runSynth sim1 m $ fromText [st|syn_#{toText sim1}.v|]
+  runMaybeSynth sim2 m
+  echoP "Run SymbiYosys"
+  noPrint $ run_ "sby" ["test.sby"]