package spin

  1. Overview
  2. Docs
package spin
Legend:
Page
Library
Module
Module type
Parameter
Class
Class type
Source

Source file spawn.ml

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
include Spin_std.Spawn

let default_fd () =
  if Config.verbose () then
    None
  else
    Some
      (if Sys.win32 then
         Unix.openfile "nul" [ Unix.O_RDWR ] 0o666
      else
        Unix.openfile "/dev/null" [ Unix.O_RDWR ] 0o666)

let exec ?env ?cwd ?stdin ?stdout ?stderr prog argv =
  let stdout = match stdout with Some x -> Some x | None -> default_fd () in
  let stderr = match stderr with Some x -> Some x | None -> default_fd () in
  exec ?env ?cwd ?stdin ?stdout ?stderr prog argv