package open

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

Source file open.ml

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
type os =
  | MacOS
  | Linux
  | Windows
  | Cygwin

let detect_os () : os =
  if Sys.win32 then Windows else
  if Sys.cygwin then Cygwin else
  let in_ch,_,_ as uname = Unix.open_process_full "uname" [||] in
  let os = input_line in_ch in
  ignore (Unix.close_process_full uname);
  match os with
  | "Darwin" -> MacOS
  | "Linux" -> Linux
  | _ -> failwith "unknown operating system"

let open_cmd =
  match detect_os () with
  | MacOS -> "open"
  | Linux -> "xdg-open"
  | Windows | Cygwin -> "start"

let silence =
  match detect_os () with
  | MacOS | Linux -> "> /dev/null 2>&1"
  | Windows | Cygwin -> "> nul 2>&1"

let in_default_app file : bool =
  Format.sprintf "%s %s %s" open_cmd file silence
  |> Unix.system
  |> function
    | Unix.WEXITED 0 -> true
    | _ -> false