blob: c5a8c5abca56fb68e045a3f5b31f695343bbf072 (
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
|
//// Function to interact with the host operating system.
import gleam/list
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() -> List(tuple(String, String)) {
list.map(
os_getenv(),
fn(char_list) {
assert Ok(value) = string.split_once(char_list_to_string(char_list), "=")
value
},
)
}
/// Set an environment variable.
pub fn put_env(key: String, value: String) -> Nil {
let True = os_putenv(string_to_char_list(key), string_to_char_list(value))
Nil
}
/// Delete an environment variable.
pub fn delete_env(key: String) -> Nil {
let True = os_unsetenv(string_to_char_list(key))
Nil
}
|
