Packages

launchdarkly_server_sdk

2.1.2
3.11.0 3.10.1 3.9.0 3.8.1 3.8.0 3.7.2 3.7.1 3.7.0 3.6.0 3.5.0 3.4.0 3.3.1 3.3.0 3.2.0 3.1.0 3.0.4 3.0.3 3.0.2 3.0.1 3.0.0 2.1.2 2.1.1 2.1.0 2.0.5 2.0.4 2.0.3 2.0.2 2.0.1 2.0.0 1.6.0 1.5.0 1.4.0 1.3.2 1.3.1 1.3.0 1.2.0 1.1.3 1.1.2 1.1.1 retired 1.1.0 retired 1.0.1 retired 1.0.0 retired 1.0.0-beta4 retired 1.0.0-beta3 retired 1.0.0-beta2 retired

LaunchDarkly SDK for Erlang

HexDocs

Current section

Files

Jump to
Readme
45 Versions
8 Dependencies
4 Dependants
Files
Activity
launchdarkly_server_sdk src ldclient_storage_redis.erl
Raw

src/ldclient_storage_redis.erl 

%%-------------------------------------------------------------------

%% @doc `ldclient_storage_redis' module

%% @private

%% Provides implementation of Redis storage backend behavior.

%% @end

%%-------------------------------------------------------------------



-module(ldclient_storage_redis).



-behaviour(ldclient_storage_engine).



%% Helper macro for declaring children of supervisor

-define(CHILD(Id, Module, Args, Type), {Id, {Module, start_link, Args}, permanent, 5000, Type, [Module]}).



%% Behavior callbacks

-export([init/3]).

-export([create/2]).

-export([empty/2]).

-export([get/3]).

-export([all/2]).

-export([upsert/3]).

-export([upsert_clean/3]).

-export([delete/3]).

-export([terminate/1]).

-export([set_init/1]).

-export([get_init/1]).



%%===================================================================

%% Behavior callbacks

%%===================================================================



-spec init(SupRef :: atom(), Tag :: atom(), Options :: list()) ->

    ok.

init(SupRef, Tag, _) ->

    SupRegName = get_local_reg_name(supervisor, Tag),

    WorkerRegName = get_local_reg_name(worker, Tag),

    StorageSup = ?CHILD(ldclient_storage_redis_sup, ldclient_storage_redis_sup, [SupRegName, WorkerRegName, Tag], supervisor),

    {ok, _} = supervisor:start_child(SupRef, StorageSup),

    ok = ldclient_storage_cache:init(SupRef, Tag, []),

    % Pre-create features and segments buckets

    ok = create(Tag, features),

    ok = create(Tag, segments).



-spec create(Tag :: atom(), Bucket :: atom()) ->

    ok |

    {error, already_exists, string()}.

create(Tag, Bucket) ->

    ServerRef = get_local_reg_name(worker, Tag),

    ldclient_storage_cache:create(Tag, Bucket, ServerRef, ldclient_storage_redis_server).



-spec empty(Tag :: atom(), Bucket :: atom()) ->

    ok |

    {error, bucket_not_found, string()}.

empty(Tag, Bucket) ->

    ServerRef = get_local_reg_name(worker, Tag),

    ldclient_storage_cache:empty(Tag, Bucket, ServerRef, ldclient_storage_redis_server).



-spec get(Tag :: atom(), Bucket :: atom(), Key :: binary()) ->

    [{Key :: binary(), Value :: any()}] |

    {error, bucket_not_found, string()}.

get(Tag, Bucket, Key) ->

    ServerRef = get_local_reg_name(worker, Tag),

    ldclient_storage_cache:get(Tag, Bucket, Key, ServerRef, ldclient_storage_redis_server).



-spec all(Tag :: atom(), Bucket :: atom()) ->

    [{Key :: binary(), Value :: any()}] |

    {error, bucket_not_found, string()}.

all(Tag, Bucket) ->

    ServerRef = get_local_reg_name(worker, Tag),

    ldclient_storage_redis_server:all(ServerRef, Bucket).



-spec upsert(Tag :: atom(), Bucket :: atom(), Items :: #{Key :: binary() => Value :: any()}) ->

    ok |

    {error, bucket_not_found, string()}.

upsert(Tag, Bucket, Items) ->

    ServerRef = get_local_reg_name(worker, Tag),

    ldclient_storage_cache:upsert(Tag, Bucket, Items, ServerRef, ldclient_storage_redis_server).



-spec upsert_clean(Tag :: atom(), Bucket :: atom(), Items :: #{Key :: binary() => Value :: any()}) ->

    ok |

    {error, bucket_not_found, string()}.

upsert_clean(Tag, Bucket, Items) ->

    ServerRef = get_local_reg_name(worker, Tag),

    ldclient_storage_cache:upsert_clean(Tag, Bucket, Items, ServerRef, ldclient_storage_redis_server).



set_init(Tag) ->

    ServerRef = get_local_reg_name(worker, Tag),

    ldclient_storage_redis_server:set_init(ServerRef).



get_init(Tag) ->

    ServerRef = get_local_reg_name(worker, Tag),

    Initialized = ldclient_storage_redis_server:get_init(ServerRef),

    ldclient_update_processor_state:set_storage_initialized_state(Tag, Initialized),

    Initialized.



-spec delete(Tag :: atom(), Bucket :: atom(), Key :: binary()) ->

    ok |

    {error, bucket_not_found, string()}.

delete(Tag, Bucket, Key) ->

    ServerRef = get_local_reg_name(worker, Tag),

    ldclient_storage_cache:delete(Tag, Bucket, Key, ServerRef, ldclient_storage_redis_server).



-spec terminate(Tag :: atom()) -> ok.

terminate(_Tag) -> ok.



%%===================================================================

%% Internal functions

%%===================================================================



-spec get_local_reg_name(atom(), Tag :: atom()) -> atom().

get_local_reg_name(supervisor, Tag) ->

    list_to_atom("ldclient_storage_redis_sup_" ++ atom_to_list(Tag));

get_local_reg_name(worker, Tag) ->

    list_to_atom("ldclient_storage_redis_server_" ++ atom_to_list(Tag)).