Handling of gorrazopteres while compiling

2026-05-30 19:47:50 +08:00 · 2005-08-22 15:49:49 +00:00
parent 925d04fb01
commit a0a7f2efd5
9 changed files with 111 additions and 25 deletions
@@ -106,6 +106,7 @@ let parse_section = fun s ->
  match Xml.tag s with
    "section" ->
      let prefix = ExtXml.attrib_or_default s "prefix" "" in
+      define ("SECTION_"^ExtXml.attrib s "name") "1";
      List.iter (parse_element prefix) (Xml.children s);
      nl ()
  | "servos" ->