Initial version with most important hooks in place

Author: amiramix

.gitignore

@@ -0,0 +1,5 @@
+.eunit
+*.o
+*.beam
+*.plt
+*.app

LICENSE

@@ -0,0 +1,23 @@
+Copyright (c) 2015, Grzegorz Junka
+All rights reserved.
+
+Redistribution and use in source and binary forms, with or without
+modification, are permitted provided that the following conditions are met:
+
+* Redistributions of source code must retain the above copyright notice, this
+  list of conditions and the following disclaimer.
+
+* Redistributions in binary form must reproduce the above copyright notice,
+  this list of conditions and the following disclaimer in the documentation
+  and/or other materials provided with the distribution.
+
+THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
+DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE
+FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
+SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
+CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
+OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
+OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.

priv/local_setup.conf

@@ -0,0 +1,4 @@
+%% -*- mode: erlang -*-
+{dummy_value1, abc}.
+{dummy_value2, def}.
+{dummy_port, 123}.

src/builderl_sample_setup.app.src

@@ -0,0 +1,11 @@
+%% -*- erlang -*-
+{application, builderl_sample_setup,
+ [{description, "Example of an installation and configuration application"},
+  {vsn, "=VSN="},
+  {modules,
+   [
+    =MODULES=
+   ]},
+  {registered, []},
+  {applications, [kernel, stdlib]}
+ ]}.

src/cmd_config.erl

@@ -0,0 +1,28 @@
+-module(cmd_config).
+
+-export([
+         subfolders/0,
+         key_replace/4,
+         process_config/4
+        ]).
+
+subfolders() ->
+    {ok,
+     [<<"mnesia_backups">>,
+      <<"other_folder">>]}.
+
+key_replace(_Base, _Name, Offset, RunVars) ->
+    {_, _Host} = proplists:get_value(hostname, RunVars),
+
+    {ok,
+     [
+      {<<"=EXAMPLE_IP=">>, <<"0.0.0.0">>},
+      {<<"=EXAMPLE_PORT=">>, integer_to_list(8080 + Offset), [global]}
+     ]}.
+
+process_config({resource_discovery, _Name, _PrivDir},
+               _CfgDir, _CfgArgs, _Privs) ->
+    %% Some custom configuration instructions for resource_discovery
+    true;
+process_config(_App, _Dest, _CfgArgs, _Privs) ->
+    false.

src/common_config.erl

@@ -0,0 +1,16 @@
+-module(common_config).
+
+-export([load_config/1]).
+
+-define(DEFAULT_CONFIG_FILENAME, "local_setup.conf").
+
+load_config(SetupCfg) ->
+    Name = proplists:get_value(default_config,
+                               SetupCfg, ?DEFAULT_CONFIG_FILENAME),
+    File = filename:join(code:priv_dir(builderl_sample_setup), Name),
+
+    io:format("Using configuration file: ~p~n", [File]),
+    {ok, Config} = file:consult(File),
+    Replace = proplists:get_value(install_key_replace, SetupCfg, []),
+    io:format("But replacing the following keys:~n~p~n", [Replace]),
+    bld_init:merge_config(Config, Replace).

src/htif_config.erl

@@ -0,0 +1,14 @@
+-module(htif_config).
+
+-export([install/2]).
+
+log(F0, A0) ->
+    F1 = "~p:~p: " ++ F0 ++ "~n",
+    A1 = [?MODULE, ?LINE] ++ A0,
+    io:format(F1, A1).
+
+install({_Id, _Node}, SetupCfg) ->
+    Config = common_config:load_config(SetupCfg),
+    log("Config file: ~p~n", [Config]),
+
+    ok.

src/sc_config.erl

@@ -0,0 +1,30 @@
+-module(sc_config).
+
+-export([install/2]).
+
+log(F0, A0) ->
+    F1 = "~p:~p: " ++ F0 ++ "~n",
+    A1 = [?MODULE, ?LINE] ++ A0,
+    io:format(F1, A1).
+
+install(Cluster, SetupCfg) ->
+    Config = common_config:load_config(SetupCfg),
+    log("Config file: ~p~n", [Config]),
+
+    Nodes = [Remote || {_Id, Remote} <- Cluster],
+
+    ok = mnesia:create_schema(Nodes),
+    verify(rpc:multicall(Nodes, mnesia, start, [])),
+
+    %% application:start(inets),
+    ok.
+
+verify({OKs, []} = Err) ->
+    lists:usort(OKs) =:= [ok] orelse verify_error(Err);
+verify({[ok], []}) ->
+    ok;
+verify(Err) ->
+    verify_error(Err).
+
+verify_error(Err) ->
+    io:format(standard_error, "Returned error:'~p', aborting...~n", [Err]).

src/tcif_config.erl

@@ -0,0 +1,14 @@
+-module(tcif_config).
+
+-export([install/2]).
+
+log(F0, A0) ->
+    F1 = "~p:~p: " ++ F0 ++ "~n",
+    A1 = [?MODULE, ?LINE] ++ A0,
+    io:format(F1, A1).
+
+install({_Id, _Node}, SetupCfg) ->
+    Config = common_config:load_config(SetupCfg),
+    log("Config file: ~p~n", [Config]),
+
+    ok.

src/vsn.mk

@@ -0,0 +1 @@
+VSN = 0.1