mirror of https://github.com/zachjs/sv2v.git
20 lines
636 B
Haskell
20 lines
636 B
Haskell
|
module Language.Verilog.Parser
|
||
|
|
( parseFile
|
||
|
|
, preprocess
|
||
|
|
) where
|
||
|
|
|
||
|
|
import Language.Verilog.AST
|
||
|
|
import Language.Verilog.Parser.Lex
|
||
|
|
import Language.Verilog.Parser.Parse
|
||
|
|
import Language.Verilog.Parser.Preprocess
|
||
|
|
import Language.Verilog.Parser.Tokens
|
||
|
|
|
||
|
|
-- | Parses a file given a table of predefined macros, the file name, and the file contents.
|
||
|
|
parseFile :: [(String, String)] -> FilePath -> String -> [Module]
|
||
|
|
parseFile env file content = modules tokens
|
||
|
|
where
|
||
|
|
tokens = map relocate $ alexScanTokens $ preprocess env file content
|
||
|
|
relocate :: Token -> Token
|
||
|
|
relocate (Token t s (Position _ l c)) = Token t s $ Position file l c
|
||
|
|
|