arizona_server.erl

%% @author William Fank Thomé <willilamthome@hotmail.com>
%% @copyright 2023 William Fank Thomé
%% @doc Server.

%% Copyright 2023 William Fank Thomé
%%
%% Licensed under the Apache License, Version 2.0 (the "License");
%% you may not use this file except in compliance with the License.
%% You may obtain a copy of the License at
%%
%%     http://www.apache.org/licenses/LICENSE-2.0
%%
%% Unless required by applicable law or agreed to in writing, software
%% distributed under the License is distributed on an "AS IS" BASIS,
%% WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
%% See the License for the specific language governing permissions and
%% limitations under the License.
-module(arizona_server).

%% API
-export([ start/0
        , stop/1
        , get_headers/1
        , set_headers/2
        , set_status_code/2
        , get_body/1
        , set_body/2
        , normalize_path/1
        ]).

%% Macros
-define(ADAPTER, (arizona_env:get_server(adapter))).

%%%=====================================================================
%%% API
%%%=====================================================================

start() ->
    Args = arizona_env:get_server(args),
    case ?ADAPTER:start(Args) of
        ok ->
            URL = url_to_string(maps:get(url, Args)),
            io:format("Arizona is running at ~s~n", [URL]),
            ok;
        {error, Reason} ->
            {error, Reason}
    end.

stop(State) ->
    ?ADAPTER:stop(State).

get_headers(Req) ->
    ?ADAPTER:get_headers(Req).

set_headers(Headers, Req) ->
    ?ADAPTER:set_headers(Headers, Req).

set_status_code(StatusCode, Req) ->
    ?ADAPTER:set_status_code(StatusCode, Req).

get_body(Req) ->
    ?ADAPTER:get_body(Req).

set_body(Body, Req) ->
    ?ADAPTER:set_body(Body, Req).

normalize_path(Path) ->
    binary:split(Path, <<"/">>, [global, trim_all]).

%%%=====================================================================
%%% Internal functions
%%%=====================================================================

url_to_string(#{schema := Schema, ip := IP, port := Port}) ->
    io_lib:format("~w://~s:~p", [Schema, ip_to_string(IP), Port]).

ip_to_string(IP) ->
    case inet:ntoa(IP) of
        {error, einval} ->
            error({invalid_ip, IP});
        String ->
            String
    end.