foil

-module(foil).
-include("foil.hrl").

-compile(inline).
-compile({inline_size, 512}).

-ignore_xref([
    {foil_modules, lookup, 1}
]).


-export([
    all/1,
    delete/1,
    delete/2,
    insert/3,
    load/1,
    lookup/2,
    new/1
]).

%% public
-spec all(namespace()) ->
    {ok, [term()]} | error().

all(Namespace) ->
    try foil_modules:lookup(Namespace) of
        {ok, Module} ->
            {ok, ets:tab2list(Module)};
        {error, key_not_found} ->
            {error, module_not_found}
    catch
        error:undef ->
            {error, foil_not_started}
    end.

-spec delete(namespace()) ->
    ok | error().

delete(Namespace) ->
    try foil_modules:lookup(Namespace) of
        {ok, Module} ->
            ets:delete(Module),
            ets:delete(?FOIL_TABLE, Namespace),
            KVs = ets:tab2list(?FOIL_TABLE),
            foil_compiler:load(foil_modules, KVs),
            ok;
        {error, key_not_found} ->
            {error, module_not_found}
    catch
        error:undef ->
            {error, foil_not_started}
    end.

-spec delete(namespace(), key()) ->
    ok | error().

delete(Namespace, Key) ->
    try foil_modules:lookup(Namespace) of
        {ok, Module} ->
            ets:delete(Module, Key),
            ok;
        {error, key_not_found} ->
            {error, module_not_found}
    catch
        error:undef ->
            {error, foil_not_started}
    end.

-spec insert(namespace(), key(), value()) ->
    ok | error().

insert(Namespace, Key, Value) ->
    try foil_modules:lookup(Namespace) of
        {ok, Module} ->
            ets:insert(Module, {Key, Value}),
            ok;
        {error, key_not_found} ->
            {error, module_not_found}
    catch
        error:undef ->
            {error, foil_not_started}
    end.

-spec load(namespace()) ->
    ok | error().

load(Namespace) ->
    try foil_modules:lookup(Namespace) of
        {ok, Module} ->
            KVs = ets:tab2list(Module),
            foil_compiler:load(Module, KVs);
        {error, key_not_found} ->
            {error, module_not_found}
    catch
        error:undef ->
            {error, foil_not_started}
    end.

-spec lookup(namespace(), key()) ->
    {ok, value()} | error().

lookup(Namespace, Key) ->
    try foil_modules:lookup(Namespace) of
        {ok, Module} ->
            Module:lookup(Key);
        {error, key_not_found} ->
            {error, module_not_found}
    catch
        error:undef ->
            {error, foil_not_started}
    end.

-spec new(namespace()) ->
    ok | error().

new(Namespace) ->
    try foil_modules:lookup(Namespace) of
        {ok, _Module} ->
            {error, module_exists};
        {error, key_not_found} ->
            Module = module(Namespace),
            ets:new(Module, [named_table, public]),
            Server = whereis(foil_server),
            ets:give_away(Module, Server, undefined),
            ets:insert(?FOIL_TABLE, {Namespace, Module}),
            KVs = ets:tab2list(?FOIL_TABLE),
            foil_compiler:load(foil_modules, KVs)
    catch
        error:undef ->
            {error, foil_not_started}
    end.
%% private
module(Namespace) ->
    list_to_atom(atom_to_list(Namespace) ++ "_foil").