%%% Copyright (c) 2015, Michael Santos <michael.santos@gmail.com>
%%% Permission to use, copy, modify, and/or distribute this software for any
%%% purpose with or without fee is hereby granted, provided that the above
%%% copyright notice and this permission notice appear in all copies.
%%%
%%% THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
%%% WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
%%% MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
%%% ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
%%% WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
%%% ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
%%% OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
-module(alcove_cstruct).

-include("alcove.hrl").

-export([
        jail/1
    ]).

-spec jail(#alcove_jail{}) -> [binary()|{ptr, binary()}].
jail(#alcove_jail{
        version = 2,
        path = Path,
        hostname = Hostname,
        jailname = Jailname,
        ip4 = IPv4,
        ip6 = IPv6
    }) ->
    [<<2:4/native-unsigned-integer-unit:8>>,
     <<0:(alcove:wordalign(4) * 8)>>,
     {ptr, <<(iolist_to_binary(Path))/binary, 0>>},
     {ptr, <<(iolist_to_binary(Hostname))/binary, 0>>},
     {ptr, <<(iolist_to_binary(Jailname))/binary, 0>>},
     <<(length(IPv4)):4/native-unsigned-integer-unit:8,
       (length(IPv6)):4/native-unsigned-integer-unit:8>>,
     {ptr, << <<IP1,IP2,IP3,IP4>> || {IP1,IP2,IP3,IP4} <- IPv4 >>},
     {ptr, << <<IP1:16,IP2:16,IP3:16,IP4:16,IP5:16,IP6:16,IP7:16,IP8:16>>
              || {IP1,IP2,IP3,IP4,IP5,IP6,IP7,IP8} <- IPv6 >>}].