overworld

-module(ow_script_srv).

-behaviour(gen_server).

-define(SERVER(Name), {via, gproc, {n, l, {?MODULE, Name}}}).

% public interface
-export([start/1, stop/1, do_file/2, do_file/3, do/3, do/2]).

% genserver callbacks
-export([
    init/1,
    handle_call/3,
    handle_cast/2,
    handle_info/2,
    terminate/2,
    code_change/3
]).

% API
start(ID) ->
    gen_server:start_link(?SERVER(ID), ?MODULE, [], []).

stop(ID) ->
    gen_server:stop(?SERVER(ID)),
    ok.

do_file(Where, ID) ->
    do_file(Where, false, ID).

do_file(Where, Inspect, ID) ->
    {ok, Bin} = file:read_file(Where),
    What = binary:bin_to_list(Bin),
    do(What, Inspect, ID).

do(What, ID) ->
    do(What, false, ID).

do(What, Inspect, ID) ->
    gen_server:call(?SERVER(ID), {do, What, Inspect}).

% Callbacks

init([]) ->
    % gdminus uses the process dictionary to store state !
    gdminus_int:init(),
    ow_api:setup_api(),
    {ok, []}.

handle_call({do, What, Inspect}, _From, State) ->
    Reply =
        case Inspect of
            false ->
                {R, _, _} = gdminus_int:do(What),
                R;
            true ->
                gdminus_int:do(What)
        end,
    {reply, Reply, State};
handle_call({do, What}, _From, State) ->
    Reply = gdminus_int:do(What),
    {reply, Reply, State};
handle_call(stop, _From, State) ->
    {stop, normal, stopped, State}.

handle_cast(_Request, State) ->
    {noreply, State}.

handle_info(_Info, State) -> {noreply, State}.

terminate(_Reason, _State) -> ok.

code_change(_OldVsn, State, _Extra) -> {ok, State}.