globals.ml

(***********************************************************************)
(*                                                                     *)
(*    Copyright 2012 OCamlPro                                          *)
(*    Copyright 2012 INRIA                                             *)
(*                                                                     *)
(*  All rights reserved.  This file is distributed under the terms of  *)
(*  the GNU Public License version 3.0.                                *)
(*                                                                     *)
(*  TypeRex is distributed in the hope that it will be useful,         *)
(*  but WITHOUT ANY WARRANTY; without even the implied warranty of     *)
(*  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the      *)
(*  GNU General Public License for more details.                       *)
(*                                                                     *)
(***********************************************************************)

let debug = ref (
  try int_of_string (Sys.getenv "OPAMDEBUG") >= 2
  with _ -> false
)

let verbose = ref (
  try int_of_string (Sys.getenv "OPAMDEBUG") >= 1
  with _ -> false
)

let yes = ref false

let version = "0.1+dev"

let default_repository_name    = "default"
let default_repository_address = "http://opam.ocamlpro.com"
let default_repository_kind    = "curl"

let default_build_command = [ [ "./build.sh" ] ]

let default_package = "conf-ocaml"

let default_compiler_version = "system"

let opam_version = "1"

let home = Unix.getenv "HOME"
let default_opam_path = Filename.concat home ".opam"

let root_path = ref default_opam_path

let log section fmt =
  Printf.kprintf (fun str ->
    if !debug then
      Printf.eprintf "[%d] %-20s %s\n%!" (Unix.getpid ()) section str
  ) fmt

let error fmt =
  Printf.kprintf (fun str ->
    Printf.eprintf "[%d] ERROR: %s\n%!" (Unix.getpid ()) str
  ) fmt

let warning fmt =
  Printf.kprintf (fun str ->
    Printf.eprintf "[%d] WARNING: %s\n%!" (Unix.getpid ()) str
  ) fmt

exception Exit of int
  
let error_and_exit fmt =
  Printf.kprintf (fun str ->
    error "%s" str;
    raise (Exit 66)
  ) fmt

let exit i = raise (Exit i)

let msg fmt =
  Printf.kprintf (fun str ->
    Printf.printf "%s%!" str
  ) fmt

type os = 
  | Darwin
  | Linux
  | FreeBSD
  | Cygwin
  | Win32
  | Unix

let os = match Sys.os_type with
  | "Unix" -> begin
    match input_line (Unix.open_process_in "uname -s") with
    | "Darwin"  -> Darwin
    | "Linux"   -> Linux
    | "FreeBSD" -> FreeBSD
    | _         -> Unix
  end
  | "Win32"  -> Win32
  | "Cygwin" -> Cygwin
  | _        -> assert false

let default_cores = 1