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
35
open! Core_kernel
open! Import
let getenv = Funcall.("getenv" <: string @-> return (nil_or string))
let getenv ~var = getenv var
let setenv = Funcall.("setenv" <: string @-> nil_or string @-> return nil)
let setenv ~var ~value = setenv var value
let process_environment = Var.Wrap.("process-environment" <: list string)
let exec_path = Var.Wrap.("exec-path" <: path_list)
let noninteractive = Var.Wrap.("noninteractive" <: bool)
let is_interactive () = not (Current_buffer.value_exn noninteractive)
module Var_and_value = struct
type t =
{ var : string
; value : string
}
[@@deriving sexp_of]
end
let append = Funcall.("append" <: list string @-> value @-> return value)
let setenv_temporarily sync_or_async vars_and_values ~f =
let process_environment = Var.Wrap.("process-environment" <: value) in
Current_buffer.set_value_temporarily
sync_or_async
~f
process_environment
(append
(vars_and_values
|> List.map ~f:(fun { Var_and_value.var; value } -> concat [ var; "="; value ]))
(Current_buffer.value_exn process_environment))
;;
let hostname = Funcall.("system-name" <: nullary @-> return string)