diff options
author | Yann Herklotz <ymherklotz@gmail.com> | 2018-12-28 19:21:29 +0100 |
---|---|---|
committer | Yann Herklotz <ymherklotz@gmail.com> | 2018-12-28 19:21:29 +0100 |
commit | fedd3efbe770630fc355223c5ced3faa54f435e5 (patch) | |
tree | e4d5d69ed045a7a69881309ceb873b52fca7f882 /src/Test/VeriFuzz/Simulator/Icarus.hs | |
parent | 3b5b7e33033799ab1eb2289615a2c96b6329cba4 (diff) | |
download | verismith-fedd3efbe770630fc355223c5ced3faa54f435e5.tar.gz verismith-fedd3efbe770630fc355223c5ced3faa54f435e5.zip |
Add simulator module
Diffstat (limited to 'src/Test/VeriFuzz/Simulator/Icarus.hs')
-rw-r--r-- | src/Test/VeriFuzz/Simulator/Icarus.hs | 35 |
1 files changed, 35 insertions, 0 deletions
diff --git a/src/Test/VeriFuzz/Simulator/Icarus.hs b/src/Test/VeriFuzz/Simulator/Icarus.hs new file mode 100644 index 0000000..10b72e0 --- /dev/null +++ b/src/Test/VeriFuzz/Simulator/Icarus.hs @@ -0,0 +1,35 @@ +{-| +Module : Test.VeriFuzz.Simulator.Icarus +Description : Icarus verilog module. +Copyright : (c) Yann Herklotz Grave 2018 +License : GPL-3 +Maintainer : ymherklotz@gmail.com +Stability : experimental +Portability : POSIX + +Icarus verilog module. +-} + +{-# LANGUAGE QuasiQuotes #-} + +module Test.VeriFuzz.Simulator.Icarus where + +import Data.Text (Text) +import qualified Data.Text as T +import Prelude hiding (FilePath) +import Shelly +import Test.VeriFuzz.Simulator.General +import Test.VeriFuzz.Verilog.AST +import Test.VeriFuzz.Verilog.CodeGen +import Text.Shakespeare.Text (st) + +data Icarus = Icarus { icarusPath :: FilePath } + +instance Simulator Icarus where + toText _ = "iverilog" + +instance Simulate Icarus where + runSim = runSimIcarus + +runSimIcarus :: Icarus -> ModDecl -> [Int] -> Sh Int +runSimIcarus sim mod inp = return 0 |