[paparazzi-commits] [6429] startup script for paparazzi on osx

[Eric]

Revision: 6429
          http://svn.sv.gnu.org/viewvc/?view=rev&root=paparazzi&revision=6429
Author:   lamestllama
Date:     2010-11-19 13:27:01 +0000 (Fri, 19 Nov 2010)
Log Message:
-----------
startup script for paparazzi on osx

Added Paths:
-----------
    paparazzi-software/trunk/paparazzi.osx

Added: paparazzi-software/trunk/paparazzi.osx
===================================================================
--- paparazzi-software/trunk/paparazzi.osx                              (rev 0)
+++ paparazzi-software/trunk/paparazzi.osx      2010-11-19 13:27:01 UTC (rev 
6429)
@@ -0,0 +1,15 @@
+#!/usr/local/bin/ocamlrun /usr/local/bin/ocaml
+#load "unix.cma";;
+let (//) = Filename.concat
+let dirname = Filename.dirname Sys.argv.(0)
+let dirname = if Filename.is_relative dirname && dirname <> 
Filename.current_dir_name then Sys.getcwd () // dirname else dirname
+let env =
+  Array.map (fun var ->
+   let value = try Sys.getenv var with _ -> dirname in
+   let value = if value = "." then Sys.getcwd () else value in
+   Printf.sprintf "%s=%s" var value)
+   [|"PAPARAZZI_SRC"; "PAPARAZZI_HOME"|]
+let com = dirname // "sw/supervision/paparazzicenter";;
+Sys.argv.(0) <- com;;
+let env = Array.append env (Unix.environment ());;
+Unix.execve com Sys.argv env


Property changes on: paparazzi-software/trunk/paparazzi.osx
___________________________________________________________________
Added: svn:executable
   + *