blob: 8ae522d1f0d4966783c8793c5bce9ee288f2e331 (
plain)
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
36
37
38
39
40
41
42
43
44
45
46
47
|
//// Function to interact with the host operating system.
import gleam/list
import gleam/map.{Map}
import gleam/string
// Internal type for erlang interop.
external type CharList
external fn os_getenv() -> List(CharList) =
"os" "getenv"
external fn os_putenv(key: CharList, value: CharList) -> Bool =
"os" "putenv"
external fn os_unsetenv(key: CharList) -> Bool =
"os" "unsetenv"
external fn char_list_to_string(CharList) -> String =
"erlang" "list_to_binary"
external fn string_to_char_list(String) -> CharList =
"erlang" "binary_to_list"
/// Return all environment variables set on the system.
pub fn get_env() -> Map(String, String) {
list.map(
os_getenv(),
fn(char_list) {
assert Ok(value) = string.split_once(char_list_to_string(char_list), "=")
value
},
)
|> map.from_list()
}
/// Set an environment variable.
pub fn insert_env(key: String, value: String) -> Nil {
os_putenv(string_to_char_list(key), string_to_char_list(value))
Nil
}
/// Delete an environment variable.
pub fn delete_env(key: String) -> Nil {
os_unsetenv(string_to_char_list(key))
Nil
}
|
