Initial commit

2026-05-24 12:41:26 +02:00
commit 62161193c5
14 changed files with 1372 additions and 0 deletions
@@ -0,0 +1,50 @@
+%%%-------------------------------------------------------------------
+%% @doc gm_ctflow top level supervisor.
+%% @end
+%%%-------------------------------------------------------------------
+
+-module(gm_ctflow_worker_sup).
+
+-behaviour(supervisor).
+
+-export([start_link/0]).
+-export([child/2]).
+
+-export([init/1]).
+
+-define(SERVER, ?MODULE).
+
+start_link() ->
+    supervisor:start_link({local, ?SERVER}, ?MODULE, []).
+
+%% sup_flags() = #{strategy => strategy(),         % optional
+%%                 intensity => non_neg_integer(), % optional
+%%                 period => pos_integer()}        % optional
+%% child_spec() = #{id => child_id(),       % mandatory
+%%                  start => mfargs(),      % mandatory
+%%                  restart => restart(),   % optional
+%%                  shutdown => shutdown(), % optional
+%%                  type => worker(),       % optional
+%%                  modules => modules()}   % optional
+init([]) ->
+    gm_ctflow_worker:init_reg(),
+    SupFlags = #{
+        strategy => simple_one_for_one,
+        intensity => 0,
+        period => 1
+    },
+    ChildSpecs = [
+                   child(gm_ctflow_worker, worker)
+                 ],
+    {ok, {SupFlags, ChildSpecs}}.
+
+%% internal functions
+
+child(Mod, Type) ->
+    #{ id    => Mod
+     , start => {Mod, start_link, []}
+     , restart => permanent
+     , shutdown => 5000
+     , type     => Type
+     , modules  => [Mod]
+     }.