Skip to content
Snippets Groups Projects
Commit 8df51e84 authored by Samuel Hym's avatar Samuel Hym
Browse files

Automatically insert _ for dependency namespace

Since "." in Coq names are converted to "_" in C names, automatically
insert "_" between explicitly provided namespace and name for
dependencies
parent 3aa662a6
Branches
Tags
No related merge requests found
......@@ -321,7 +321,7 @@ infoDependency cp cleanOpts (prefix, modul) = (go syms, go recs)
where modul' = cleanAST cleanOpts modul
syms = extractSymbolTable cp $ declarationsMod modul'
recs = detectBounds (nats cp) modul'
go = Map.mapKeys (prefix ++)
go = if null prefix then id else Map.mapKeys ((prefix ++ "_") ++)
main :: IO ()
main = do progname <- getProgName
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment