add until attribute to stay stage

This commit is contained in:
Pascal Brisset
2009-09-12 21:26:46 +00:00
parent 95ae9fc8bf
commit 327a789e83
2 changed files with 8 additions and 0 deletions
+1
View File
@@ -207,6 +207,7 @@ vmode CDATA #IMPLIED
throttle CDATA #IMPLIED
climb CDATA #IMPLIED
alt CDATA #IMPLIED
until CDATA #IMPLIED
height CDATA #IMPLIED>
<!ATTLIST deroute
+7
View File
@@ -402,6 +402,13 @@ let rec print_stage = fun index_of_waypoints x ->
lprintf "NavGotoXY(last_x, last_y);\n";
ignore(output_vmode x "" "")
end;
begin
try
let c = parsed_attrib x "until" in
lprintf "if (%s) NextStageAndBreak();\n" c
with
ExtXml.Error _ -> ()
end;
lprintf "break;\n"
| "xyz" ->
stage ();