[paparazzi-commits] [4738] fix launchsitl to start sim and jsbsim with -jsbsim option

[Gautier Hattenberger]

Revision: 4738
          http://svn.sv.gnu.org/viewvc/?view=rev&root=paparazzi&revision=4738
Author:   gautier
Date:     2010-03-26 13:36:11 +0000 (Fri, 26 Mar 2010)
Log Message:
-----------
fix launchsitl to start sim and jsbsim with -jsbsim option

Modified Paths:
--------------
    paparazzi3/trunk/sw/simulator/launchsitl

Modified: paparazzi3/trunk/sw/simulator/launchsitl
===================================================================
--- paparazzi3/trunk/sw/simulator/launchsitl    2010-03-26 04:17:30 UTC (rev 
4737)
+++ paparazzi3/trunk/sw/simulator/launchsitl    2010-03-26 13:36:11 UTC (rev 
4738)
@@ -19,7 +19,12 @@
       else if i = n then raise Not_found
       else loop (i+1) in
     let ac = loop 0 in
-    let com = paparazzi_home // "var" // ac // "sim/simsitl" in
+    let rec sim_type = fun i ->
+      if Sys.argv.(i) = "-jsbsim" then "jsbsim"
+      else if i = (n-2) then "sim"
+      else sim_type (i+1) in
+    let sim = sim_type 0 in
+    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