compilation of a new plane now works from the system

This commit is contained in:
Pascal Brisset
2005-02-24 17:06:26 +00:00
parent c1622f28ed
commit fc00c0022c
9 changed files with 85 additions and 41 deletions
+1 -1
View File
@@ -11,7 +11,7 @@ let mkdir = fun d ->
let _ =
if Array.length Sys.argv <> 2 then
failwith (sprintf "Usage: %s <xml_airframe_file>" Sys.argv.(0));
failwith (sprintf "Usage: %s <A/C ident (conf.xml)>" Sys.argv.(0));
let aircraft = Sys.argv.(1) in
let conf = Xml.parse_file conf_xml in
let aircraft_xml =