Copyright | (c) Signali Corp. 2010 |
---|---|
License | All rights reserved |
Maintainer | pweaver@signalicorp.com |
Stability | experimental |
Portability | non-portable (DeriveDataTypeable) |
Safe Haskell | None |
Language | Haskell98 |
Language.Netlist.AST
Description
An abstract syntax tree (AST) for a generic netlist, kind of like a high-level subset of Verilog and VHDL that is compatible with both languages.
There are no definitive semantics assigned to this AST.
For example, the user may choose to treat the bindings as recursive, so that expressions can reference variables before their declaration, like in Haskell, which is not supported in Verilog and VHDL. in this case, the user must fix the bindings when converting to an HDL.
Also, the user may treat module instantiations and processes as having an implict clock/reset, so that they are not explicitly named in those constructs in this AST. Then, the clock and reset can be inserted when generating HDL.
When you instantiate a module but information about that module is missing (e.g. the clock/reset are implicit and you need to know what they are called in that module), you can use ExternDecl (TODO) to declare a module's interface so that you know how to instantiate it, or retrieve the interface from a user-maintained database or by parsing and extracting from an HDL file.
Synopsis
- data Module = Module {
- module_name :: Ident
- module_inputs :: [(Ident, Maybe Range)]
- module_outputs :: [(Ident, Maybe Range)]
- module_statics :: [(Ident, ConstExpr)]
- module_decls :: [Decl]
- type Ident = String
- type Size = Int
- data Decl
- = NetDecl Ident (Maybe Range) (Maybe Expr)
- | NetAssign Ident Expr
- | MemDecl Ident (Maybe Range) (Maybe Range) (Maybe [Expr])
- | MemAssign Ident Expr Expr
- | InstDecl Ident Ident [(Ident, Expr)] [(Ident, Expr)] [(Ident, Expr)]
- | ProcessDecl Event (Maybe (Event, Stmt)) Stmt
- | InitProcessDecl Stmt
- | CommentDecl String
- data Range = Range ConstExpr ConstExpr
- type ConstExpr = Expr
- data Event = Event Expr Edge
- data Edge
- data Expr
- = ExprLit (Maybe Size) ExprLit
- | ExprVar Ident
- | ExprString String
- | ExprIndex Ident Expr
- | ExprSlice Ident Expr Expr
- | ExprSliceOff Ident Expr Int
- | ExprCase Expr [([ConstExpr], Expr)] (Maybe Expr)
- | ExprConcat [Expr]
- | ExprCond Expr Expr Expr
- | ExprUnary UnaryOp Expr
- | ExprBinary BinaryOp Expr Expr
- | ExprFunCall Ident [Expr]
- data ExprLit
- = ExprNum Integer
- | ExprBit Bit
- | ExprBitVector [Bit]
- data Bit
- data Stmt
- type LValue = Expr
- data UnaryOp
- data BinaryOp
- = Pow
- | Plus
- | Minus
- | Times
- | Divide
- | Modulo
- | Equals
- | NotEquals
- | CEquals
- | CNotEquals
- | LAnd
- | LOr
- | LessThan
- | LessEqual
- | GreaterThan
- | GreaterEqual
- | And
- | Nand
- | Or
- | Nor
- | Xor
- | Xnor
- | ShiftLeft
- | ShiftRight
- | RotateLeft
- | RotateRight
- | ShiftLeftArith
- | ShiftRightArith
Documentation
A Module corresponds to a "module" in Verilog or an "entity" in VHDL.
Constructors
Module | |
Fields
|
Instances
Eq Module Source # | |
Data Module Source # | |
Defined in Language.Netlist.AST Methods gfoldl :: (forall d b. Data d => c (d -> b) -> d -> c b) -> (forall g. g -> c g) -> Module -> c Module gunfold :: (forall b r. Data b => c (b -> r) -> c r) -> (forall r. r -> c r) -> Constr -> c Module dataTypeOf :: Module -> DataType dataCast1 :: Typeable t => (forall d. Data d => c (t d)) -> Maybe (c Module) dataCast2 :: Typeable t => (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c Module) gmapT :: (forall b. Data b => b -> b) -> Module -> Module gmapQl :: (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> Module -> r gmapQr :: forall r r'. (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> Module -> r gmapQ :: (forall d. Data d => d -> u) -> Module -> [u] gmapQi :: Int -> (forall d. Data d => d -> u) -> Module -> u gmapM :: Monad m => (forall d. Data d => d -> m d) -> Module -> m Module gmapMp :: MonadPlus m => (forall d. Data d => d -> m d) -> Module -> m Module gmapMo :: MonadPlus m => (forall d. Data d => d -> m d) -> Module -> m Module | |
Ord Module Source # | |
Show Module Source # | |
Binary Module Source # | |
A declaration, analogous to an "item" in the Verilog formal syntax.
Constructors
NetDecl Ident (Maybe Range) (Maybe Expr) | A net ( |
NetAssign Ident Expr | |
MemDecl Ident (Maybe Range) (Maybe Range) (Maybe [Expr]) | A mem ( The first range is the most significant dimension.
So, |
MemAssign Ident Expr Expr | These are permanent assignments to memory locations, of the form mem[addr] = val |
InstDecl Ident Ident [(Ident, Expr)] [(Ident, Expr)] [(Ident, Expr)] | A module/entity instantiation. The arguments are the name of the module, the name of the instance, the parameter assignments, the input port connections, and the output port connections. |
ProcessDecl Event (Maybe (Event, Stmt)) Stmt | A sequential process with clock and (optional) asynchronous reset. |
InitProcessDecl Stmt | A statement that executes once at the beginning of simulation. Equivalent to Verilog "initial" statement. |
CommentDecl String | A basic comment (typically is placed above a decl of interest). Newlines are allowed, and generate new single line comments. |
Instances
Eq Decl Source # | |
Data Decl Source # | |
Defined in Language.Netlist.AST Methods gfoldl :: (forall d b. Data d => c (d -> b) -> d -> c b) -> (forall g. g -> c g) -> Decl -> c Decl gunfold :: (forall b r. Data b => c (b -> r) -> c r) -> (forall r. r -> c r) -> Constr -> c Decl dataTypeOf :: Decl -> DataType dataCast1 :: Typeable t => (forall d. Data d => c (t d)) -> Maybe (c Decl) dataCast2 :: Typeable t => (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c Decl) gmapT :: (forall b. Data b => b -> b) -> Decl -> Decl gmapQl :: (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> Decl -> r gmapQr :: forall r r'. (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> Decl -> r gmapQ :: (forall d. Data d => d -> u) -> Decl -> [u] gmapQi :: Int -> (forall d. Data d => d -> u) -> Decl -> u gmapM :: Monad m => (forall d. Data d => d -> m d) -> Decl -> m Decl gmapMp :: MonadPlus m => (forall d. Data d => d -> m d) -> Decl -> m Decl gmapMo :: MonadPlus m => (forall d. Data d => d -> m d) -> Decl -> m Decl | |
Ord Decl Source # | |
Show Decl Source # | |
Binary Decl Source # | |
A Range
tells us the type of a bit vector. It can count up or down.
Instances
Eq Range Source # | |
Data Range Source # | |
Defined in Language.Netlist.AST Methods gfoldl :: (forall d b. Data d => c (d -> b) -> d -> c b) -> (forall g. g -> c g) -> Range -> c Range gunfold :: (forall b r. Data b => c (b -> r) -> c r) -> (forall r. r -> c r) -> Constr -> c Range dataTypeOf :: Range -> DataType dataCast1 :: Typeable t => (forall d. Data d => c (t d)) -> Maybe (c Range) dataCast2 :: Typeable t => (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c Range) gmapT :: (forall b. Data b => b -> b) -> Range -> Range gmapQl :: (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> Range -> r gmapQr :: forall r r'. (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> Range -> r gmapQ :: (forall d. Data d => d -> u) -> Range -> [u] gmapQi :: Int -> (forall d. Data d => d -> u) -> Range -> u gmapM :: Monad m => (forall d. Data d => d -> m d) -> Range -> m Range gmapMp :: MonadPlus m => (forall d. Data d => d -> m d) -> Range -> m Range gmapMo :: MonadPlus m => (forall d. Data d => d -> m d) -> Range -> m Range | |
Ord Range Source # | |
Show Range Source # | |
Binary Range Source # | |
type ConstExpr = Expr Source #
A constant expression is simply an expression that must be a constant (i.e. the only free variables are static parameters). This restriction is not made in the AST.
Instances
Eq Event Source # | |
Data Event Source # | |
Defined in Language.Netlist.AST Methods gfoldl :: (forall d b. Data d => c (d -> b) -> d -> c b) -> (forall g. g -> c g) -> Event -> c Event gunfold :: (forall b r. Data b => c (b -> r) -> c r) -> (forall r. r -> c r) -> Constr -> c Event dataTypeOf :: Event -> DataType dataCast1 :: Typeable t => (forall d. Data d => c (t d)) -> Maybe (c Event) dataCast2 :: Typeable t => (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c Event) gmapT :: (forall b. Data b => b -> b) -> Event -> Event gmapQl :: (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> Event -> r gmapQr :: forall r r'. (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> Event -> r gmapQ :: (forall d. Data d => d -> u) -> Event -> [u] gmapQi :: Int -> (forall d. Data d => d -> u) -> Event -> u gmapM :: Monad m => (forall d. Data d => d -> m d) -> Event -> m Event gmapMp :: MonadPlus m => (forall d. Data d => d -> m d) -> Event -> m Event gmapMo :: MonadPlus m => (forall d. Data d => d -> m d) -> Event -> m Event | |
Ord Event Source # | |
Show Event Source # | |
Binary Event Source # | |
Instances
Eq Edge Source # | |
Data Edge Source # | |
Defined in Language.Netlist.AST Methods gfoldl :: (forall d b. Data d => c (d -> b) -> d -> c b) -> (forall g. g -> c g) -> Edge -> c Edge gunfold :: (forall b r. Data b => c (b -> r) -> c r) -> (forall r. r -> c r) -> Constr -> c Edge dataTypeOf :: Edge -> DataType dataCast1 :: Typeable t => (forall d. Data d => c (t d)) -> Maybe (c Edge) dataCast2 :: Typeable t => (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c Edge) gmapT :: (forall b. Data b => b -> b) -> Edge -> Edge gmapQl :: (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> Edge -> r gmapQr :: forall r r'. (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> Edge -> r gmapQ :: (forall d. Data d => d -> u) -> Edge -> [u] gmapQi :: Int -> (forall d. Data d => d -> u) -> Edge -> u gmapM :: Monad m => (forall d. Data d => d -> m d) -> Edge -> m Edge gmapMp :: MonadPlus m => (forall d. Data d => d -> m d) -> Edge -> m Edge gmapMo :: MonadPlus m => (forall d. Data d => d -> m d) -> Edge -> m Edge | |
Ord Edge Source # | |
Show Edge Source # | |
Binary Edge Source # | |
Expr is a combination of VHDL and Verilog expressions.
In VHDL, concatenation is a binary operator, but in Verilog it takes any number of arguments. In this AST, we define it like the Verilog operator. If we translate to VHDL, we have to convert it to the VHDL binary operator.
There are some HDL operators that we don't represent here. For example, in Verilog there is a multiple concatenation (a.k.a. replication) operator, which we don't bother to support.
Constructors
ExprLit (Maybe Size) ExprLit | a sized or unsized literal |
ExprVar Ident | a variable ference |
ExprString String | a quoted string (useful for parameters) |
ExprIndex Ident Expr | x[e] |
ExprSlice Ident Expr Expr | x[e1 : e2] |
ExprSliceOff Ident Expr Int |
|
ExprCase Expr [([ConstExpr], Expr)] (Maybe Expr) | case expression. supports multiple matches per result value, and an optional default value |
ExprConcat [Expr] | concatenation |
ExprCond Expr Expr Expr | conditional expression |
ExprUnary UnaryOp Expr | application of a unary operator |
ExprBinary BinaryOp Expr Expr | application of a binary operator |
ExprFunCall Ident [Expr] | a function application |
Instances
Eq Expr Source # | |
Data Expr Source # | |
Defined in Language.Netlist.AST Methods gfoldl :: (forall d b. Data d => c (d -> b) -> d -> c b) -> (forall g. g -> c g) -> Expr -> c Expr gunfold :: (forall b r. Data b => c (b -> r) -> c r) -> (forall r. r -> c r) -> Constr -> c Expr dataTypeOf :: Expr -> DataType dataCast1 :: Typeable t => (forall d. Data d => c (t d)) -> Maybe (c Expr) dataCast2 :: Typeable t => (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c Expr) gmapT :: (forall b. Data b => b -> b) -> Expr -> Expr gmapQl :: (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> Expr -> r gmapQr :: forall r r'. (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> Expr -> r gmapQ :: (forall d. Data d => d -> u) -> Expr -> [u] gmapQi :: Int -> (forall d. Data d => d -> u) -> Expr -> u gmapM :: Monad m => (forall d. Data d => d -> m d) -> Expr -> m Expr gmapMp :: MonadPlus m => (forall d. Data d => d -> m d) -> Expr -> m Expr gmapMo :: MonadPlus m => (forall d. Data d => d -> m d) -> Expr -> m Expr | |
Ord Expr Source # | |
Show Expr Source # | |
Binary Expr Source # | |
Constructors
ExprNum Integer | a number |
ExprBit Bit | a single bit. in vhdl, bits are different than 1-bit bitvectors |
ExprBitVector [Bit] |
Instances
Eq ExprLit Source # | |
Data ExprLit Source # | |
Defined in Language.Netlist.AST Methods gfoldl :: (forall d b. Data d => c (d -> b) -> d -> c b) -> (forall g. g -> c g) -> ExprLit -> c ExprLit gunfold :: (forall b r. Data b => c (b -> r) -> c r) -> (forall r. r -> c r) -> Constr -> c ExprLit dataTypeOf :: ExprLit -> DataType dataCast1 :: Typeable t => (forall d. Data d => c (t d)) -> Maybe (c ExprLit) dataCast2 :: Typeable t => (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c ExprLit) gmapT :: (forall b. Data b => b -> b) -> ExprLit -> ExprLit gmapQl :: (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> ExprLit -> r gmapQr :: forall r r'. (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> ExprLit -> r gmapQ :: (forall d. Data d => d -> u) -> ExprLit -> [u] gmapQi :: Int -> (forall d. Data d => d -> u) -> ExprLit -> u gmapM :: Monad m => (forall d. Data d => d -> m d) -> ExprLit -> m ExprLit gmapMp :: MonadPlus m => (forall d. Data d => d -> m d) -> ExprLit -> m ExprLit gmapMo :: MonadPlus m => (forall d. Data d => d -> m d) -> ExprLit -> m ExprLit | |
Ord ExprLit Source # | |
Show ExprLit Source # | |
Binary ExprLit Source # | |
Instances
Eq Bit Source # | |
Data Bit Source # | |
Defined in Language.Netlist.AST Methods gfoldl :: (forall d b. Data d => c (d -> b) -> d -> c b) -> (forall g. g -> c g) -> Bit -> c Bit gunfold :: (forall b r. Data b => c (b -> r) -> c r) -> (forall r. r -> c r) -> Constr -> c Bit dataTypeOf :: Bit -> DataType dataCast1 :: Typeable t => (forall d. Data d => c (t d)) -> Maybe (c Bit) dataCast2 :: Typeable t => (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c Bit) gmapT :: (forall b. Data b => b -> b) -> Bit -> Bit gmapQl :: (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> Bit -> r gmapQr :: forall r r'. (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> Bit -> r gmapQ :: (forall d. Data d => d -> u) -> Bit -> [u] gmapQi :: Int -> (forall d. Data d => d -> u) -> Bit -> u gmapM :: Monad m => (forall d. Data d => d -> m d) -> Bit -> m Bit gmapMp :: MonadPlus m => (forall d. Data d => d -> m d) -> Bit -> m Bit gmapMo :: MonadPlus m => (forall d. Data d => d -> m d) -> Bit -> m Bit | |
Ord Bit Source # | |
Show Bit Source # | |
Binary Bit Source # | |
Behavioral sequential statement
Constructors
Assign LValue Expr | non-blocking assignment |
If Expr Stmt (Maybe Stmt) |
|
Case Expr [([Expr], Stmt)] (Maybe Stmt) | case statement, with optional default case |
Seq [Stmt] | multiple statements in sequence |
FunCallStmt Ident [Expr] | a function call that can appear as a statement, useful for calling Verilog tasks (e.g. $readmem). |
Instances
Eq Stmt Source # | |
Data Stmt Source # | |
Defined in Language.Netlist.AST Methods gfoldl :: (forall d b. Data d => c (d -> b) -> d -> c b) -> (forall g. g -> c g) -> Stmt -> c Stmt gunfold :: (forall b r. Data b => c (b -> r) -> c r) -> (forall r. r -> c r) -> Constr -> c Stmt dataTypeOf :: Stmt -> DataType dataCast1 :: Typeable t => (forall d. Data d => c (t d)) -> Maybe (c Stmt) dataCast2 :: Typeable t => (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c Stmt) gmapT :: (forall b. Data b => b -> b) -> Stmt -> Stmt gmapQl :: (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> Stmt -> r gmapQr :: forall r r'. (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> Stmt -> r gmapQ :: (forall d. Data d => d -> u) -> Stmt -> [u] gmapQi :: Int -> (forall d. Data d => d -> u) -> Stmt -> u gmapM :: Monad m => (forall d. Data d => d -> m d) -> Stmt -> m Stmt gmapMp :: MonadPlus m => (forall d. Data d => d -> m d) -> Stmt -> m Stmt gmapMo :: MonadPlus m => (forall d. Data d => d -> m d) -> Stmt -> m Stmt | |
Ord Stmt Source # | |
Show Stmt Source # | |
Binary Stmt Source # | |
Unary operators
LNeg
is logical negation, Neg
is bitwise negation. UAnd
, UNand
,
UOr
, UNor
, UXor
, and UXnor
are sometimes called "reduction
operators".
Instances
Eq UnaryOp Source # | |
Data UnaryOp Source # | |
Defined in Language.Netlist.AST Methods gfoldl :: (forall d b. Data d => c (d -> b) -> d -> c b) -> (forall g. g -> c g) -> UnaryOp -> c UnaryOp gunfold :: (forall b r. Data b => c (b -> r) -> c r) -> (forall r. r -> c r) -> Constr -> c UnaryOp dataTypeOf :: UnaryOp -> DataType dataCast1 :: Typeable t => (forall d. Data d => c (t d)) -> Maybe (c UnaryOp) dataCast2 :: Typeable t => (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c UnaryOp) gmapT :: (forall b. Data b => b -> b) -> UnaryOp -> UnaryOp gmapQl :: (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> UnaryOp -> r gmapQr :: forall r r'. (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> UnaryOp -> r gmapQ :: (forall d. Data d => d -> u) -> UnaryOp -> [u] gmapQi :: Int -> (forall d. Data d => d -> u) -> UnaryOp -> u gmapM :: Monad m => (forall d. Data d => d -> m d) -> UnaryOp -> m UnaryOp gmapMp :: MonadPlus m => (forall d. Data d => d -> m d) -> UnaryOp -> m UnaryOp gmapMo :: MonadPlus m => (forall d. Data d => d -> m d) -> UnaryOp -> m UnaryOp | |
Ord UnaryOp Source # | |
Show UnaryOp Source # | |
Binary UnaryOp Source # | |
Binary operators.
These operators include almost all VHDL and Verilog operators.
- precedence and pretty-printing are language specific, and defined elsewhere.
- exponentation operators were introduced in Verilog-2001.
- some operators are not prefix/infix, such as verilog concatenation and the
conditional (
x ? y : z
) operator. those operators are defined inExpr
. - VHDL has both "logical" and "barithmetic" shift operators, which we don't yet distinguish between here.
- VHDL has both a
mod
and arem
operator, but so far we only defineModulo
. - VHDL has a concat operator (
&
) that isn't yet supported here. UseExprConcat
instead. - VHDL has an
abs
operator that isn't yet supported here.
Constructors
Instances
Eq BinaryOp Source # | |
Data BinaryOp Source # | |
Defined in Language.Netlist.AST Methods gfoldl :: (forall d b. Data d => c (d -> b) -> d -> c b) -> (forall g. g -> c g) -> BinaryOp -> c BinaryOp gunfold :: (forall b r. Data b => c (b -> r) -> c r) -> (forall r. r -> c r) -> Constr -> c BinaryOp toConstr :: BinaryOp -> Constr dataTypeOf :: BinaryOp -> DataType dataCast1 :: Typeable t => (forall d. Data d => c (t d)) -> Maybe (c BinaryOp) dataCast2 :: Typeable t => (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c BinaryOp) gmapT :: (forall b. Data b => b -> b) -> BinaryOp -> BinaryOp gmapQl :: (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> BinaryOp -> r gmapQr :: forall r r'. (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> BinaryOp -> r gmapQ :: (forall d. Data d => d -> u) -> BinaryOp -> [u] gmapQi :: Int -> (forall d. Data d => d -> u) -> BinaryOp -> u gmapM :: Monad m => (forall d. Data d => d -> m d) -> BinaryOp -> m BinaryOp gmapMp :: MonadPlus m => (forall d. Data d => d -> m d) -> BinaryOp -> m BinaryOp gmapMo :: MonadPlus m => (forall d. Data d => d -> m d) -> BinaryOp -> m BinaryOp | |
Ord BinaryOp Source # | |
Defined in Language.Netlist.AST | |
Show BinaryOp Source # | |
Binary BinaryOp Source # | |