Mirrors_Framework/paparazzi
1
0
Fork 0
mirror of https://github.com/paparazzi/paparazzi.git synced 2026-06-06 16:58:48 +08:00
Code Issues Actions 25 Packages Projects Releases Wiki Activity

restore something working

Browse Source
This commit is contained in:
Pascal Brisset
2010-03-25 22:41:56 +00:00
parent 54fd603f85
commit 89dae19b1b
1 changed files with 5 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files
sw/simulator/launchsitl
+5 -13
View File
@@ -12,22 +12,14 @@ let () =
try
let rec loop = fun i ->
if Sys.argv.(i) = "-a" && (i+1) < n then
let ac = Sys.argv.(i+1) in
(* Shift other args *)
for j = i+2 to n-1 do Sys.argv.(j-2) <- Sys.argv.(j) done;
ac
let ac = Sys.argv.(i+1) in
(* Shift other args *)
for j = i+2 to n-1 do Sys.argv.(j-2) <- Sys.argv.(j) done;
ac
else if i = n then raise Not_found
else loop (i+1) in
let ac = loop 0 in
(*let rec sim_type = fun i ->
if Sys.argv.(i) = "-jsbsim" then
"jsbsim"
else if i = n then "sim"
else loop (i+1) in
let sim = sim_type 0 in*)
let sim = "jsbsim" in
let com = paparazzi_home // "var" // ac // sim // "simsitl" in
prerr_endline com;
let com = paparazzi_home // "var" // ac // "sim/simsitl" in
if not (Sys.file_exists com) then begin
Printf.fprintf stderr "Error: '%s' is missing. Build target sim for A/C %s ?\n" com ac;
exit 1