mirror of https://github.com/zachjs/sv2v.git
27 lines
629 B
Haskell
27 lines
629 B
Haskell
|
{- sv2v
|
||
|
|
- Author: Zachary Snow <zach@zachjs.com>
|
||
|
|
-
|
||
|
|
- Conversion for removing any comments
|
||
|
|
-}
|
||
|
|
|
||
|
|
module Convert.RemoveComments (convert) where
|
||
|
|
|
||
|
|
import Convert.Traverse
|
||
|
|
import Language.SystemVerilog.AST
|
||
|
|
|
||
|
|
convert :: [AST] -> [AST]
|
||
|
|
convert = map convertFile
|
||
|
|
|
||
|
|
convertFile :: AST -> AST
|
||
|
|
convertFile =
|
||
|
|
traverseDescriptions (traverseModuleItems convertModuleItem) .
|
||
|
|
filter (not . isComment)
|
||
|
|
|
||
|
|
isComment :: Description -> Bool
|
||
|
|
isComment (PackageItem (Comment _)) = True
|
||
|
|
isComment _ = False
|
||
|
|
|
||
|
|
convertModuleItem :: ModuleItem -> ModuleItem
|
||
|
|
convertModuleItem (MIPackageItem (Comment _)) = Generate []
|
||
|
|
convertModuleItem other = other
|