blob: 10b72e06ee099a0e978a759894d82b0f064feace (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
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
|