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

headerparse: generate bindings for function-like macros

Browse Source
This commit is contained in:
hellerve 2018-08-07 16:07:43 +02:00
parent 687e5566db
commit d0057d3338
1 changed files with 23 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
headerparse/Main.hs
View File

@ -11,6 +11,8 @@ import Util
import Types
import Obj
import Debug.Trace
data Args = Args { sourcePath :: String
, prefixToRemove :: String
, kebabCase :: Bool
@ -49,13 +51,30 @@ parseHeaderFile path src prefix kebab =
Parsec.string "#define"
Parsec.many spaceOrTab
name <- Parsec.many1 identifierChar
argList <- Parsec.optionMaybe argList
Parsec.many spaceOrTab
number <- Parsec.many1 identifierChar
Parsec.many spaceOrTab
let tyXObj =
--toTypeXObj ("a", 0)
XObj (Sym (SymPath [] "a") Symbol) Nothing Nothing
return (createRegisterForm name tyXObj prefix False) -- OBS! Never kebab
-- OBS! Never kebab
case argList of
Nothing ->
let tyXObj =
XObj (Sym (SymPath [] "a") Symbol) Nothing Nothing
in return (createRegisterForm name tyXObj prefix False)
Just args ->
let argsTy = genTypes (length args)
tyXObj = toFnTypeXObj argsTy ("a", 0)
in return (createRegisterForm name tyXObj prefix False)
where argList = do
_ <- Parsec.char '('
args <- Parsec.sepBy
(Parsec.many spaceOrTab >>
Parsec.many1 identifierChar)
(Parsec.char ',')
_ <- Parsec.char ')'
return args
genTypes 0 = []
genTypes n = (("a" ++ show n), 0) : genTypes (n - 1)
prefixedFunctionPrototype :: Parsec.Parsec String () [XObj]
prefixedFunctionPrototype = do Parsec.many spaceOrTab