summaryrefslogtreecommitdiff
path: root/dev-erlang/lager/files
diff options
context:
space:
mode:
authorV3n3RiX <venerix@redcorelinux.org>2019-09-13 17:49:31 +0100
committerV3n3RiX <venerix@redcorelinux.org>2019-09-13 17:49:31 +0100
commit36ac65103bf5503e5bad1ecc7e8cb9e7643f6840 (patch)
treed9d1fbc20509d4c90f57fb2d9e1459bc8034c831 /dev-erlang/lager/files
parenta1392efe64137262023d92492396ca9156d22396 (diff)
Revert "gentoo resync : 13.09.2019"
This reverts commit a1392efe64137262023d92492396ca9156d22396.
Diffstat (limited to 'dev-erlang/lager/files')
-rw-r--r--dev-erlang/lager/files/3.2.0-0001-Support-typed-records-newly-exposed-in-OTP-19.patch55
-rw-r--r--dev-erlang/lager/files/3.2.0-0002-Fix-get_env-bug.patch63
-rw-r--r--dev-erlang/lager/files/3.2.0-0003-Add-get_env-unit-test.patch64
-rw-r--r--dev-erlang/lager/files/3.2.0-0004-Undo-unnecessary-whitespace.patch71
-rw-r--r--dev-erlang/lager/files/3.2.0-0005-R15-does-not-appear-to-properly-handle-the-export.patch25
5 files changed, 278 insertions, 0 deletions
diff --git a/dev-erlang/lager/files/3.2.0-0001-Support-typed-records-newly-exposed-in-OTP-19.patch b/dev-erlang/lager/files/3.2.0-0001-Support-typed-records-newly-exposed-in-OTP-19.patch
new file mode 100644
index 000000000000..b9ade5f5698f
--- /dev/null
+++ b/dev-erlang/lager/files/3.2.0-0001-Support-typed-records-newly-exposed-in-OTP-19.patch
@@ -0,0 +1,55 @@
+From d35670e01a3c6f9f9bcb3150217d26cc92513586 Mon Sep 17 00:00:00 2001
+From: =?UTF-8?q?Johannes=20Wei=C3=9Fl?= <jargon@molb.org>
+Date: Sun, 21 Feb 2016 14:22:28 +0100
+Subject: [PATCH 1/5] Support typed records newly exposed in OTP 19
+
+Otherwise `lager_transform` fails after https://github.com/erlang/otp/commit/de9012628a6b0e97d2f1325bf2f72817f69f84ee
+
+The error message is:
+
+ test/pr_nested_record_test.erl: error in parse transform 'lager_transform': {function_clause,
+ [{lager_transform,
+ '-walk_ast/2-fun-0-',
+ [{typed_record_field,
+ {record_field,5,
+ {atom,5,field1}},
+ {type,5,term,[]}}],
+ [{file,
+ "src/lager_transform.erl"},
+ {line,62}]},
+---
+ src/lager_transform.erl | 13 ++++++++-----
+ 1 file changed, 8 insertions(+), 5 deletions(-)
+
+diff --git a/src/lager_transform.erl b/src/lager_transform.erl
+index 7648c46..8cea5a3 100644
+--- a/src/lager_transform.erl
++++ b/src/lager_transform.erl
+@@ -59,16 +59,19 @@ walk_ast(Acc, [{function, Line, Name, Arity, Clauses}|T]) ->
+ walk_ast([{function, Line, Name, Arity,
+ walk_clauses([], Clauses)}|Acc], T);
+ walk_ast(Acc, [{attribute, _, record, {Name, Fields}}=H|T]) ->
+- FieldNames = lists:map(fun({record_field, _, {atom, _, FieldName}}) ->
+- FieldName;
+- ({record_field, _, {atom, _, FieldName}, _Default}) ->
+- FieldName
+- end, Fields),
++ FieldNames = lists:map(fun record_field_name/1, Fields),
+ stash_record({Name, FieldNames}),
+ walk_ast([H|Acc], T);
+ walk_ast(Acc, [H|T]) ->
+ walk_ast([H|Acc], T).
+
++record_field_name({record_field, _, {atom, _, FieldName}}) ->
++ FieldName;
++record_field_name({record_field, _, {atom, _, FieldName}, _Default}) ->
++ FieldName;
++record_field_name({typed_record_field, Field, _Type}) ->
++ record_field_name(Field).
++
+ walk_clauses(Acc, []) ->
+ lists:reverse(Acc);
+ walk_clauses(Acc, [{clause, Line, Arguments, Guards, Body}|T]) ->
+--
+2.8.3
+
diff --git a/dev-erlang/lager/files/3.2.0-0002-Fix-get_env-bug.patch b/dev-erlang/lager/files/3.2.0-0002-Fix-get_env-bug.patch
new file mode 100644
index 000000000000..51972d8c4fcd
--- /dev/null
+++ b/dev-erlang/lager/files/3.2.0-0002-Fix-get_env-bug.patch
@@ -0,0 +1,63 @@
+From 4c87abcd4f9d70a1136fff8f573dc7adcc833e43 Mon Sep 17 00:00:00 2001
+From: Alexander Petrovsky <askjuise@gmail.com>
+Date: Tue, 10 May 2016 22:37:22 +0300
+Subject: [PATCH 2/5] Fix get_env bug
+
+---
+ src/lager_app.erl | 20 +++++++++++---------
+ 1 file changed, 11 insertions(+), 9 deletions(-)
+
+diff --git a/src/lager_app.erl b/src/lager_app.erl
+index 8f1464d..8efd26b 100644
+--- a/src/lager_app.erl
++++ b/src/lager_app.erl
+@@ -138,11 +138,10 @@ maybe_install_sink_killer(_Sink, HWM, ReinstallTimer) ->
+ error_logger:error_msg("Invalid value for 'killer_hwm': ~p or 'killer_reinstall_after': ~p", [HWM, ReinstallTimer]),
+ throw({error, bad_config}).
+
+-start_error_logger_handler({ok, false}, _HWM, _Whitelist) ->
++-spec start_error_logger_handler(boolean(), pos_integer(), list()) -> list().
++start_error_logger_handler(false, _HWM, _Whitelist) ->
+ [];
+-start_error_logger_handler(_, HWM, undefined) ->
+- start_error_logger_handler(ignore_me, HWM, {ok, []});
+-start_error_logger_handler(_, HWM, {ok, WhiteList}) ->
++start_error_logger_handler(true, HWM, WhiteList) ->
+ GlStrategy = case application:get_env(lager, error_logger_groupleader_strategy) of
+ undefined ->
+ handle;
+@@ -200,13 +199,16 @@ configure_extra_sinks(Sinks) ->
+ lists:foreach(fun({Sink, Proplist}) -> configure_sink(Sink, Proplist) end,
+ Sinks).
+
++-spec get_env(atom(), atom()) -> term().
+ get_env(Application, Key) ->
+ get_env(Application, Key, undefined).
++
+ %% R15 doesn't know about application:get_env/3
++-spec get_env(atom(), atom(), term()) -> term().
+ get_env(Application, Key, Default) ->
+- get_env_default(application:get_env(Application, Key),
+- Default).
++ get_env_default(application:get_env(Application, Key), Default).
+
++-spec get_env_default('undefined' | {'ok', term()}, term()) -> term().
+ get_env_default(undefined, Default) ->
+ Default;
+ get_env_default({ok, Value}, _Default) ->
+@@ -235,9 +237,9 @@ boot() ->
+ lager:update_loglevel_config(?DEFAULT_SINK),
+
+ SavedHandlers = start_error_logger_handler(
+- get_env(lager, error_logger_redirect),
+- interpret_hwm(get_env(lager, error_logger_hwm)),
+- get_env(lager, error_logger_whitelist)
++ get_env(lager, error_logger_redirect, true),
++ interpret_hwm(get_env(lager, error_logger_hwm, 0)),
++ get_env(lager, error_logger_whitelist, [])
+ ),
+
+ SavedHandlers.
+--
+2.8.3
+
diff --git a/dev-erlang/lager/files/3.2.0-0003-Add-get_env-unit-test.patch b/dev-erlang/lager/files/3.2.0-0003-Add-get_env-unit-test.patch
new file mode 100644
index 000000000000..affc347fdc45
--- /dev/null
+++ b/dev-erlang/lager/files/3.2.0-0003-Add-get_env-unit-test.patch
@@ -0,0 +1,64 @@
+From 09aee4b601e0a11b31e99392bdb14ec67a79c80f Mon Sep 17 00:00:00 2001
+From: Alexander Petrovsky <askjuise@gmail.com>
+Date: Wed, 11 May 2016 22:52:09 +0300
+Subject: [PATCH 3/5] Add get_env unit test
+
+---
+ rebar.config | 4 +++-
+ test/lager_app_tests.erl | 22 ++++++++++++++++++++++
+ 2 files changed, 25 insertions(+), 1 deletion(-)
+ create mode 100644 test/lager_app_tests.erl
+
+diff --git a/rebar.config b/rebar.config
+index 77272c7..278df9c 100644
+--- a/rebar.config
++++ b/rebar.config
+@@ -40,9 +40,12 @@
+
+ {eunit_opts, [verbose]}.
+ {eunit_compile_opts, [
++ export_all,
++
+ nowarn_untyped_record,
+ nowarn_export_all
+ ]}.
++
+ {deps, [
+ {goldrush, ".*", {git, "git://github.com/DeadZen/goldrush.git", {tag, "0.1.8"}}}
+ ]}.
+@@ -53,4 +56,3 @@
+ {cover_enabled, true}.
+ {edoc_opts, [{stylesheet_file, "./priv/edoc.css"}]}.
+
+-{eunit_opts, [verbose]}.
+diff --git a/test/lager_app_tests.erl b/test/lager_app_tests.erl
+new file mode 100644
+index 0000000..80fe985
+--- /dev/null
++++ b/test/lager_app_tests.erl
+@@ -0,0 +1,22 @@
++-module(lager_app_tests).
++
++-compile([{parse_transform, lager_transform}]).
++
++-include_lib("eunit/include/eunit.hrl").
++
++
++get_env_default_test() ->
++ ?assertEqual(<<"Some">>, lager_app:get_env_default(undefined, <<"Some">>)),
++ ?assertEqual(<<"Value">>, lager_app:get_env_default({ok, <<"Value">>}, <<"Some">>)),
++ ok.
++
++get_env_test() ->
++ application:set_env(myapp, mykey1, <<"Value">>),
++
++ ?assertEqual(<<"Some">>, lager_app:get_env(myapp, mykey0, <<"Some">>)),
++ ?assertEqual(<<"Value">>, lager_app:get_env(myapp, mykey1, <<"Some">>)),
++
++ ?assertEqual(undefined, lager_app:get_env(myapp, mykey0)),
++ ?assertEqual(<<"Value">>, lager_app:get_env(myapp, mykey1)),
++ ok.
++
+--
+2.8.3
+
diff --git a/dev-erlang/lager/files/3.2.0-0004-Undo-unnecessary-whitespace.patch b/dev-erlang/lager/files/3.2.0-0004-Undo-unnecessary-whitespace.patch
new file mode 100644
index 000000000000..cefbc7ea4203
--- /dev/null
+++ b/dev-erlang/lager/files/3.2.0-0004-Undo-unnecessary-whitespace.patch
@@ -0,0 +1,71 @@
+From 0d428368e3c71fdefab39927ca142e3bccabd543 Mon Sep 17 00:00:00 2001
+From: "John R. Daily" <git@epep.us>
+Date: Thu, 19 May 2016 14:55:51 -0400
+Subject: [PATCH 4/5] * Undo unnecessary whitespace * Make
+ lager_handler_watcher test more resilient by scanning for messages of
+ interest rather than assuming we know exactly what messages will arrive at
+ the test backend
+
+---
+ src/lager_app.erl | 4 ++--
+ src/lager_handler_watcher.erl | 22 ++++++++++++++++------
+ 2 files changed, 18 insertions(+), 8 deletions(-)
+
+diff --git a/src/lager_app.erl b/src/lager_app.erl
+index 8efd26b..7b02e54 100644
+--- a/src/lager_app.erl
++++ b/src/lager_app.erl
+@@ -237,9 +237,9 @@ boot() ->
+ lager:update_loglevel_config(?DEFAULT_SINK),
+
+ SavedHandlers = start_error_logger_handler(
+- get_env(lager, error_logger_redirect, true),
++ get_env(lager, error_logger_redirect, true),
+ interpret_hwm(get_env(lager, error_logger_hwm, 0)),
+- get_env(lager, error_logger_whitelist, [])
++ get_env(lager, error_logger_whitelist, [])
+ ),
+
+ SavedHandlers.
+diff --git a/src/lager_handler_watcher.erl b/src/lager_handler_watcher.erl
+index d5fe140..4e595e4 100644
+--- a/src/lager_handler_watcher.erl
++++ b/src/lager_handler_watcher.erl
+@@ -178,12 +178,10 @@ reinstall_on_runtime_failure_test_() ->
+ try
+ ?assert(lists:member(lager_crash_backend, gen_event:which_handlers(lager_event))),
+ timer:sleep(6000),
+- _ = lager_test_backend:pop(), %% throw away application start up message
+- _ = lager_test_backend:pop(), %% throw away gen_event crash message
+- {_Severity, _Date, Msg, _Metadata} = lager_test_backend:pop(),
+- ?assertEqual("Lager event handler lager_crash_backend exited with reason crash", lists:flatten(Msg)),
+- {_Severity2, _Date2, Msg2, _Metadata2} = lager_test_backend:pop(),
+- ?assertMatch("Lager failed to install handler lager_crash_backend into lager_event, retrying later :"++_, lists:flatten(Msg2)),
++
++ pop_until("Lager event handler lager_crash_backend exited with reason crash", fun lists:flatten/1),
++ pop_until("Lager failed to install handler lager_crash_backend into lager_event, retrying later",
++ fun(Msg) -> string:substr(lists:flatten(Msg), 1, 84) end),
+ ?assertEqual(false, lists:member(lager_crash_backend, gen_event:which_handlers(lager_event)))
+ after
+ application:stop(lager),
+@@ -194,5 +192,17 @@ reinstall_on_runtime_failure_test_() ->
+ ]
+ }.
+
++pop_until(String, Fun) ->
++ try_backend_pop(lager_test_backend:pop(), String, Fun).
++
++try_backend_pop(undefined, String, _Fun) ->
++ throw("Not found: " ++ String);
++try_backend_pop({_Severity, _Date, Msg, _Metadata}, String, Fun) ->
++ case Fun(Msg) of
++ String ->
++ ok;
++ _ ->
++ try_backend_pop(lager_test_backend:pop(), String, Fun)
++ end.
+
+ -endif.
+--
+2.8.3
+
diff --git a/dev-erlang/lager/files/3.2.0-0005-R15-does-not-appear-to-properly-handle-the-export.patch b/dev-erlang/lager/files/3.2.0-0005-R15-does-not-appear-to-properly-handle-the-export.patch
new file mode 100644
index 000000000000..9c27abd5c430
--- /dev/null
+++ b/dev-erlang/lager/files/3.2.0-0005-R15-does-not-appear-to-properly-handle-the-export.patch
@@ -0,0 +1,25 @@
+From 124ba14f188fd3b63735b73828fa3d99ebfdb7af Mon Sep 17 00:00:00 2001
+From: "John R. Daily" <git@epep.us>
+Date: Thu, 19 May 2016 15:26:02 -0400
+Subject: [PATCH 5/5] R15 does not appear to properly handle the export_all
+ directive added to rebar.config
+
+---
+ src/lager_app.erl | 1 +
+ 1 file changed, 1 insertion(+)
+
+diff --git a/src/lager_app.erl b/src/lager_app.erl
+index 7b02e54..b76da53 100644
+--- a/src/lager_app.erl
++++ b/src/lager_app.erl
+@@ -23,6 +23,7 @@
+ -behaviour(application).
+ -include("lager.hrl").
+ -ifdef(TEST).
++-compile([export_all]).
+ -include_lib("eunit/include/eunit.hrl").
+ -endif.
+ -export([start/0,
+--
+2.8.3
+