Packages

erlpool

1.4.0
1.4.5 1.4.4 1.4.3 1.4.2 1.4.1 1.4.0

Erlang round-robin load balancer for Erlang processes based on ETS

Current section

Files

Jump to
Readme
6 Versions
0 Dependencies
Dependants
Files
Activity
erlpool src erlpool_compile.erl
Raw

src/erlpool_compile.erl 

-module(erlpool_compile).



-define(GLOBALS_MODULE, erlpool_globals).



-export([compile_settings/1]).



compile_settings(SettingsList) ->

    case merl:compile_and_load(get_settings_code(SettingsList)) of

        {ok, _Bin} ->

            ok;

        Err ->

            Err

    end.



get_settings_code(SettingsList) ->

    Module = io_lib:format("-module(~s).", [?GLOBALS_MODULE]),

    Export = "-export([size/1]).",

    Functions =

        lists:foldl(

            fun({Name, Size, _PoolArgs}, Acc) ->

                [io_lib:format("size(~s) -> {ok, ~b};", [Name, Size]) | Acc]

            end, ["size(_) -> {error, not_found}."], SettingsList),

    merl:quote([Module, Export | Functions]).