1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
|
%% The contents of this file are subject to the Mozilla Public License
%% Version 1.1 (the "License"); you may not use this file except in
%% compliance with the License. You may obtain a copy of the License
%% at http://www.mozilla.org/MPL/
%%
%% Software distributed under the License is distributed on an "AS IS"
%% basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See
%% the License for the specific language governing rights and
%% limitations under the License.
%%
%% The Original Code is RabbitMQ.
%%
%% The Initial Developer of the Original Code is GoPivotal, Inc.
%% Copyright (c) 2007-2013 GoPivotal, Inc. All rights reserved.
%%
%% Since the AMQP methods used here are queue related,
%% maybe we want this to be a queue_interceptor.
-module(rabbit_channel_interceptor).
-include("rabbit.hrl").
-export([intercept_method/1]).
-ifdef(use_specs).
-type(intercept_method() :: rabbit_framing:amqp_method_name()).
-type(original_method() :: rabbit_framing:amqp_method_record()).
-type(processed_method() :: rabbit_framing:amqp_method_record()).
-callback description() -> [proplists:property()].
-callback intercept(original_method()) ->
rabbit_types:ok_or_error2(processed_method(), any()).
%% Whether the interceptor wishes to intercept the amqp method
-callback applies_to(intercept_method()) -> boolean().
-else.
-export([behaviour_info/1]).
behaviour_info(callbacks) ->
[{description, 0}, {intercept, 1}, {applies_to, 1}];
behaviour_info(_Other) ->
undefined.
-endif.
%%----------------------------------------------------------------------------
intercept_method(M) ->
intercept_method(M, select(M)).
intercept_method(M, []) ->
M;
intercept_method(M, [I]) ->
case I:intercept(M) of
{ok, M2} ->
M2;
{error, Reason} ->
rabbit_misc:protocol_error(
internal_error, "~s",
[Reason])
end;
intercept_method(M, _) ->
rabbit_misc:protocol_error(
internal_error,
"More than one interceptor defined for method: ~p",
[rabbit_misc:method_record_type(M)]).
%% select the interceptors that apply to intercept_method().
select(Method) ->
[M || {_, M} <- rabbit_registry:lookup_all(channel_interceptor),
code:which(M) =/= non_existing,
M:applies_to(Method)].
|