Packages

fifo_dt

0.2.26
0.2.26 0.2.25 0.2.24 0.2.23 0.2.22 0.2.21 0.2.20 0.2.19 0.2.18 0.2.17 0.2.16 0.2.15 0.2.14 0.2.13 0.2.12 0.2.11 0.2.10 0.2.9 0.2.8 0.2.7 0.2.6 0.2.5 0.2.4 0.2.3 0.2.2 0.2.1 0.2.0 0.1.69 0.1.68 0.1.67 0.1.66 0.1.65

FiFo datatype collection

Current section

Files

Jump to
Readme
32 Versions
5 Dependencies
Dependants
Files
Activity
fifo_dt src ft_hostname.erl
Raw

src/ft_hostname.erl 

%%% @author Heinz Nikolaus Gies <heinz@licenser.net>

%%% @copyright (C) 2012, Heinz Nikolaus Gies

%%% @doc

%%%

%%% @end

%%% Created : 23 Aug 2012 by Heinz Nikolaus Gies <heinz@licenser.net>

-module(ft_hostname).



-include("ft_hostname.hrl").

-include("ft_helper.hrl").



-export([

         new/1,

         uuid/3,

         load/2,

         merge/2, empty/1,

         a/1, add_a/3, remove_a/3,

         is_a/1

        ]).



-ignore_xref([

              new/1,

              load/2,

              merge/2,

              a/1, add_a/3, remove_a/3

             ]).



-type hostname() :: #{

            type        => ?TYPE,

            version     => ?VERSION,

            a           => riak_dt_orswot:orswot()

         }.

-export_type([hostname/0]).



?IS_A.



new({_T, _ID}) ->

    #{

     type     => ?TYPE,

     version  => ?VERSION,

     a        => riak_dt_orswot:new()

    }.



%%-spec load({integer(), atom()}, any_hostname()) -> hostname().



load(_, #{type := ?TYPE, version := ?VERSION} = Hostname) ->

    Hostname.



-spec merge(hostname(), hostname()) -> hostname().



merge(R = #{

        type := ?TYPE,

        a    := A1

       },

      #{

         type := ?TYPE,

         a    := A2

       }) ->

    R#{

      a => riak_dt_orswot:merge(A1, A2)

     }.



empty(H) ->

    L = a(H),

    L =:= [].



%% This is a horrible hack, but we set uuid in a few places

uuid(_, _, Obj) ->

    Obj.



?SET_GET(a).

?SET_ADD(add_a, a).

?SET_REM(remove_a, a).