mirror of https://github.com/zachjs/sv2v.git
support for integers with arrays or assignments; more complete and standardized support for multiple reg/integer declarations in procedural blocks
This commit is contained in:
Zachary Snow
parent
bde3673b06
commit
50996f0d67
|
|
@ -77,8 +77,8 @@ data ModuleItem
|
|||
| Parameter (Maybe Range) Identifier Expr
|
||||
| Localparam (Maybe Range) Identifier Expr
|
||||
| PortDecl Direction (Maybe Range) Identifier
|
||||
| LocalNet Type Identifier (Either [Range] (Maybe Expr))
|
||||
| Integer [Identifier]
|
||||
| LocalNet Type Identifier RangesOrAssignment
|
||||
| Integer Identifier RangesOrAssignment
|
||||
| Always (Maybe Sense) Stmt
|
||||
| Assign LHS Expr
|
||||
| Instance Identifier [PortBinding] Identifier [PortBinding]
|
||||
|
|
@ -92,14 +92,8 @@ instance Show ModuleItem where
|
|||
Parameter r n e -> printf "parameter %s%s = %s;" (showRange r) n (showExprConst e)
|
||||
Localparam r n e -> printf "localparam %s%s = %s;" (showRange r) n (showExprConst e)
|
||||
PortDecl d r x -> printf "%s %s%s;" (show d) (showRange r) x
|
||||
LocalNet t x v -> printf "%s%s%s;" (show t) x extra
|
||||
where
|
||||
extra =
|
||||
case v of
|
||||
Left ranges -> (intercalate "\b" $ map (showRange . Just) ranges) ++ "\b"
|
||||
Right Nothing -> ""
|
||||
Right (Just val) -> " = " ++ show val
|
||||
Integer a -> printf "integer %s;" $ commas a
|
||||
LocalNet t x v -> printf "%s%s%s;" (show t) x (showRangesOrAssignment v)
|
||||
Integer x v -> printf "integer %s%s;" x (showRangesOrAssignment v)
|
||||
Always Nothing b -> printf "always\n%s" $ indent $ show b
|
||||
Always (Just a) b -> printf "always @(%s)\n%s" (show a) $ indent $ show b
|
||||
Assign a b -> printf "assign %s = %s;" (show a) (show b)
|
||||
|
|
@ -110,6 +104,20 @@ instance Show ModuleItem where
|
|||
showPorts :: (Expr -> String) -> [(Identifier, Maybe Expr)] -> String
|
||||
showPorts s ports = indentedParenList [ if i == "" then show (fromJust arg) else printf ".%s(%s)" i (if isJust arg then s $ fromJust arg else "") | (i, arg) <- ports ]
|
||||
|
||||
type RangesOrAssignment = Either [Range] (Maybe Expr)
|
||||
|
||||
showRangesOrAssignment :: Either [Range] (Maybe Expr) -> String
|
||||
showRangesOrAssignment (Left ranges) = showRanges ranges
|
||||
showRangesOrAssignment (Right val) = showAssignment val
|
||||
|
||||
showAssignment :: Maybe Expr -> String
|
||||
showAssignment Nothing = ""
|
||||
showAssignment (Just val) = " = " ++ show val
|
||||
|
||||
showRanges :: [Range] -> String
|
||||
showRanges = concat . (map rangeToString)
|
||||
where rangeToString d = (showRange $ Just d) ++ "\b"
|
||||
|
||||
showRange :: Maybe Range -> String
|
||||
showRange Nothing = ""
|
||||
showRange (Just (h, l)) = printf "[%s:%s] " (showExprConst h) (showExprConst l)
|
||||
|
|
@ -283,8 +291,8 @@ instance Show LHS where
|
|||
|
||||
data Stmt
|
||||
= Block (Maybe Identifier) [Stmt]
|
||||
| StmtReg (Maybe Range) [(Identifier, Maybe Range)]
|
||||
| StmtInteger [Identifier]
|
||||
| StmtReg (Maybe Range) Identifier [Range]
|
||||
| StmtInteger Identifier RangesOrAssignment
|
||||
| Case Expr [Case] (Maybe Stmt)
|
||||
| BlockingAssignment LHS Expr
|
||||
| NonBlockingAssignment LHS Expr
|
||||
|
|
@ -300,8 +308,8 @@ commas = intercalate ", "
|
|||
instance Show Stmt where
|
||||
show (Block Nothing b ) = printf "begin\n%s\nend" $ indent $ unlines' $ map show b
|
||||
show (Block (Just a) b ) = printf "begin : %s\n%s\nend" a $ indent $ unlines' $ map show b
|
||||
show (StmtReg a b ) = printf "reg %s%s;" (showRange a) (commas [ x ++ showRange r | (x, r) <- b ])
|
||||
show (StmtInteger a ) = printf "integer %s;" $ commas a
|
||||
show (StmtReg r x a ) = printf "reg %s%s%s;" (showRange r) x (showRanges a)
|
||||
show (StmtInteger x v ) = printf "integer %s%s;" x (showRangesOrAssignment v)
|
||||
show (Case a b Nothing ) = printf "case (%s)\n%s\nendcase" (show a) (indent $ unlines' $ map showCase b)
|
||||
show (Case a b (Just c) ) = printf "case (%s)\n%s\n\tdefault:\n%s\nendcase" (show a) (indent $ unlines' $ map showCase b) (indent $ indent $ show c)
|
||||
show (BlockingAssignment a b ) = printf "%s = %s;" (show a) (show b)
|
||||
|
|
|
|||
|
|
@ -225,7 +225,7 @@ ModuleItem :: { [ModuleItem] }
|
|||
| PortDecl(";") { $1 }
|
||||
| "reg" MaybeRange VariableIdentifiers ";" { map (uncurry $ LocalNet $ Reg $2) $3 }
|
||||
| "wire" MaybeRange VariableIdentifiers ";" { map (uncurry $ LocalNet $ Wire $2) $3 }
|
||||
| "integer" Identifiers ";" { [Integer $2] }
|
||||
| "integer" VariableIdentifiers ";" { map (uncurry Integer) $2 }
|
||||
| "assign" LHS "=" Expr ";" { [Assign $2 $4] }
|
||||
| "always" Stmt { [Always Nothing $2] }
|
||||
| "always" "@" "(" Sense ")" Stmt { [Always (Just $4) $6] }
|
||||
|
|
@ -312,18 +312,25 @@ Stmts :: { [Stmt] }
|
|||
| Stmts Stmt { $1 ++ [$2] }
|
||||
|
||||
Stmt :: { Stmt }
|
||||
: ";" { Null }
|
||||
| "begin" Stmts "end" { Block Nothing $2 }
|
||||
| "begin" ":" Identifier Stmts "end" { Block (Just $3) $4 }
|
||||
| "reg" MaybeRange RegDeclarations ";" { StmtReg $2 $3 }
|
||||
| "integer" Identifiers ";" { StmtInteger $2 }
|
||||
| "if" "(" Expr ")" Stmt "else" Stmt { If $3 $5 $7 }
|
||||
| "if" "(" Expr ")" Stmt %prec NoElse { If $3 $5 Null }
|
||||
| "for" "(" Identifier "=" Expr ";" Expr ";" Identifier "=" Expr ")" Stmt { For ($3, $5) $7 ($9, $11) $13 }
|
||||
| LHS "=" Expr ";" { BlockingAssignment $1 $3 }
|
||||
| LHS "<=" Expr ";" { NonBlockingAssignment $1 $3 }
|
||||
| Call ";" { StmtCall $1 }
|
||||
| "case" "(" Expr ")" Cases CaseDefault "endcase" { Case $3 $5 $6 }
|
||||
: ";" { Null }
|
||||
| "begin" Stmts "end" { Block Nothing $2 }
|
||||
| "begin" ":" Identifier Stmts "end" { Block (Just $3) $4 }
|
||||
| "reg" MaybeRange BlockRegIdentifiers ";" { stmtsToStmt $ map (uncurry $ StmtReg $2) $3 }
|
||||
| "integer" VariableIdentifiers ";" { stmtsToStmt $ map (uncurry StmtInteger) $2 }
|
||||
| "if" "(" Expr ")" Stmt "else" Stmt { If $3 $5 $7 }
|
||||
| "if" "(" Expr ")" Stmt %prec NoElse { If $3 $5 Null }
|
||||
| "for" "(" Identifier "=" Expr ";" Expr ";" Identifier "=" Expr ")" Stmt { For ($3, $5) $7 ($9, $11) $13 }
|
||||
| LHS "=" Expr ";" { BlockingAssignment $1 $3 }
|
||||
| LHS "<=" Expr ";" { NonBlockingAssignment $1 $3 }
|
||||
| Call ";" { StmtCall $1 }
|
||||
| "case" "(" Expr ")" Cases CaseDefault "endcase" { Case $3 $5 $6 }
|
||||
|
||||
BlockRegIdentifiers :: { [(Identifier, [Range])] }
|
||||
: BlockRegIdentifier { [$1] }
|
||||
| BlockRegIdentifiers "," BlockRegIdentifier { $1 ++ [$3] }
|
||||
BlockRegIdentifier :: { (Identifier, [Range]) }
|
||||
: Identifier { ($1, []) }
|
||||
| Identifier Dimensions { ($1, $2) }
|
||||
|
||||
Cases :: { [Case] }
|
||||
: { [] }
|
||||
|
|
@ -454,6 +461,10 @@ getPortNames items =
|
|||
getPortName (PortDecl _ _ ident) = Just ident
|
||||
getPortName _ = Nothing
|
||||
|
||||
stmtsToStmt :: [Stmt] -> Stmt
|
||||
stmtsToStmt [] = error "stmtsToStmt given empty list!"
|
||||
stmtsToStmt [s] = s
|
||||
stmtsToStmt ss = Block Nothing ss
|
||||
|
||||
}
|
||||
|
||||
|
|
|
|||
Loading…
Reference in New Issue