mirror of
https://github.com/paparazzi/paparazzi.git
synced 2026-05-23 04:45:37 +08:00
Pascal Brisset
15 lines
513 B
OCaml
Executable File
15 lines
513 B
OCaml
Executable File
#!/usr/bin/ocamlrun /usr/bin/ocaml
|
|
#load "unix.cma";;
|
|
let (//) = Filename.concat
|
|
let dirname = Filename.dirname Sys.argv.(0)
|
|
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
|