[fp] add until attribute to go block in flight plans

This commit is contained in:
Gautier Hattenberger
2012-08-29 17:01:37 +02:00
parent e7b5f1afed
commit 5b7b37804a
2 changed files with 9 additions and 1 deletions
+2 -1
View File
@@ -141,7 +141,8 @@ alt CDATA #IMPLIED
height CDATA #IMPLIED
approaching_time CDATA #IMPLIED
throttle CDATA #IMPLIED
climb CDATA #IMPLIED>
climb CDATA #IMPLIED
until CDATA #IMPLIED>
<!ATTLIST path
wpts CDATA #REQUIRED
+7
View File
@@ -380,6 +380,13 @@ let rec print_stage = fun index_of_waypoints x ->
if vmode = "glide" && hmode <> "route" then
failwith "glide vmode requires route hmode";
left (); lprintf "}\n";
begin
try
let c = parsed_attrib x "until" in
lprintf "if (%s) NextStageAndBreak();\n" c
with
ExtXml.Error _ -> ()
end;
lprintf "break;\n"
| "stay" ->
stage ();