[gen_modules] fix directory name for header includes

This commit is contained in:
Gautier Hattenberger
2012-12-21 16:43:16 +01:00
parent 7ebce74914
commit 49c1773521
+2 -1
View File
@@ -49,7 +49,8 @@ let print_headers = fun modules ->
try try
let headers = ExtXml.child m "header" in let headers = ExtXml.child m "header" in
List.iter (fun h -> List.iter (fun h ->
lprintf out_h "#include \"%s/%s\"\n" dir_name (Xml.attrib h "name")) let dir = ExtXml.attrib_or_default h "dir" dir_name in
lprintf out_h "#include \"%s/%s\"\n" dir (Xml.attrib h "name"))
(Xml.children headers) (Xml.children headers)
with _ -> ()) with _ -> ())
modules modules