[gen_modules] fix directory name for header includes

2026-06-05 23:49:00 +08:00 · 2012-12-21 16:43:16 +01:00
parent 7ebce74914
commit 49c1773521
1 changed files with 2 additions and 1 deletions
@@ -49,7 +49,8 @@ let print_headers = fun modules ->
    try
      let headers = ExtXml.child m "header" in
      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)
    with _ -> ())
  modules