carp-lang/Carp
1
1
Fork 0
mirror of https://github.com/carp-lang/Carp.git synced 2024-09-17 16:38:14 +03:00
Code Issues Projects Releases Wiki Activity

Handle function prototypes prefixed with a single macro token.

Browse Source
This commit is contained in:
Erik Svedäng 2018-02-27 13:09:21 +01:00
parent ebbdf95679
commit 4f86ae7907
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
headerparse/Main.hs
View File

@ -32,7 +32,14 @@ parseHeaderFile path src =
cSyntax = Parsec.sepBy line (Parsec.char '\n')
line :: Parsec.Parsec String () [XObj]
line = Parsec.try functionPrototype <|> discarded
line = Parsec.try prefixedFunctionPrototype <|>
Parsec.try functionPrototype <|>
discarded
prefixedFunctionPrototype :: Parsec.Parsec String () [XObj]
prefixedFunctionPrototype = do Parsec.many spaceOrTab
_ <- Parsec.many1 identifierChar
functionPrototype
functionPrototype :: Parsec.Parsec String () [XObj]
functionPrototype = do Parsec.many spaceOrTab