Revision efcc8d7f
Added by Lélio Brun about 2 years ago
| src/lusic.ml | ||
|---|---|---|
| 23 | 23 |
contents : top_decl list; |
| 24 | 24 |
} |
| 25 | 25 |
|
| 26 |
module HeaderMod = C_backend_header.EmptyMod |
|
| 27 |
module Header = C_backend_header.Main (HeaderMod) |
|
| 28 |
|
|
| 29 | 26 |
(* extracts a header from a program representing module owner = dirname/basename *) |
| 30 | 27 |
let extract_header dirname basename prog = |
| 31 | 28 |
let owner = dirname ^ "/" ^ basename in |
Also available in: Unified diff
move arrow spec in its own header