envoy

-module(envoy_ffi).

-export([get/1, set/2, unset/1, all/0]).

get(Key) ->
    case os:getenv(binary_to_list(Key)) of
        false -> {error, nil};
        Value -> {ok, list_to_binary(Value)}
    end.

set(Key, Value) ->
    os:putenv(binary_to_list(Key), binary_to_list(Value)),
    nil.

unset(Key) ->
    os:unsetenv(binary_to_list(Key)),
    nil.

all() ->
    BinVars = lists:map(fun(VarString) ->
        [VarName, VarVal] = string:split(VarString, "="),
        {list_to_binary(VarName), list_to_binary(VarVal)}
    end, os:getenv()),
    maps:from_list(BinVars).