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
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
|
## This Source Code Form is subject to the terms of the Mozilla Public
## License, v. 2.0. If a copy of the MPL was not distributed with this
## file, You can obtain one at https://mozilla.org/MPL/2.0/.
##
## Copyright (c) 2007-2023 Broadcom. All Rights Reserved. The term “Broadcom” refers to Broadcom Inc. and/or its subsidiaries. All rights reserved.
defmodule RabbitMQ.CLI.Formatters.FormatterHelpers do
import RabbitCommon.Records
import Bitwise
@type error :: {:error, term()} | {:error, integer(), String.t() | [String.t()]}
@spec without_errors_1((el -> result)) :: error() | result when el: term(), result: term()
def without_errors_1(fun) do
fn
{:error, _} = err -> err
{:error, _, _} = err -> err
other -> fun.(other)
end
end
@spec without_errors_1((el, acc -> result)) :: error() | result
when el: term(), result: term(), acc: term()
def without_errors_2(fun) do
fn
{:error, _} = err, _acc -> err
{:error, _, _} = err, _acc -> err
other, acc -> fun.(other, acc)
end
end
def proplist?([{_key, _value} | rest]), do: proplist?(rest)
def proplist?([]), do: true
def proplist?(_other), do: false
defmacro is_u8(x) do
quote do
unquote(x) >= 0 and unquote(x) <= 255
end
end
defmacro is_u16(x) do
quote do
unquote(x) >= 0 and unquote(x) <= 65_535
end
end
def format_info_item(item, escaped \\ true)
def format_info_item(map, escaped) when is_map(map) do
kv = to_predictably_ordered_keyword_list(map)
[
"\#\{",
Enum.map(
kv,
fn {k, v} ->
["#{escape(k, escaped)} => ", format_info_item(v, escaped)]
end
)
|> Enum.join(", "),
"}"
]
end
# when Record.is_record(res, :resource) do
def format_info_item(resource(name: name), escaped) do
# resource(name: name) = res
escape(name, escaped)
end
def format_info_item({n1, n2, n3, n4} = value, _escaped)
when is_u8(n1) and is_u8(n2) and is_u8(n3) and is_u8(n4) do
:rabbit_misc.ntoa(value)
end
def format_info_item({k1, k2, k3, k4, k5, k6, k7, k8} = value, _escaped)
when is_u16(k1) and is_u16(k2) and is_u16(k3) and is_u16(k4) and
is_u16(k5) and is_u16(k6) and is_u16(k7) and is_u16(k8) do
:rabbit_misc.ntoa(value)
end
def format_info_item(value, _escaped) when is_pid(value) do
:rabbit_misc.pid_to_string(value)
end
def format_info_item(value, escaped) when is_binary(value) do
escape(value, escaped)
end
def format_info_item(value, escaped) when is_atom(value) do
escape(to_charlist(value), escaped)
end
def format_info_item(
[{key, type, _table_entry_value} | _] = value,
escaped
)
when is_binary(key) and
is_atom(type) do
:io_lib.format(
"~1000000000000tp",
[prettify_amqp_table(value, escaped)]
)
end
def format_info_item([t | _] = value, escaped)
when is_tuple(t) or is_pid(t) or is_binary(t) or is_atom(t) or is_list(t) do
[
"[",
Enum.map(
value,
fn el ->
format_info_item(el, escaped)
end
)
|> Enum.join(", "),
"]"
]
end
def format_info_item({key, value}, escaped) do
["{", :io_lib.format("~p", [key]), ", ", format_info_item(value, escaped), "}"]
end
def format_info_item(value, _escaped) do
:io_lib.format("~1000000000000tp", [value])
end
@spec to_predictably_ordered_keyword_list(Enumerable.t()) :: Keyword.t()
def to_predictably_ordered_keyword_list(input0) do
case input0 do
m when is_map(m) -> Enum.sort(Keyword.new(m))
other -> other
end
end
defp prettify_amqp_table(table, escaped) do
for {k, t, v} <- table do
{escape(k, escaped), prettify_typed_amqp_value(t, v, escaped)}
end
end
defp prettify_typed_amqp_value(:longstr, value, escaped) do
escape(value, escaped)
end
defp prettify_typed_amqp_value(:table, value, escaped) do
prettify_amqp_table(value, escaped)
end
defp prettify_typed_amqp_value(:array, value, escaped) do
for {t, v} <- value, do: prettify_typed_amqp_value(t, v, escaped)
end
defp prettify_typed_amqp_value(_type, value, _escaped) do
value
end
defp escape(atom, escaped) when is_atom(atom) do
escape(to_charlist(atom), escaped)
end
defp escape(bin, escaped) when is_binary(bin) do
escape(to_charlist(bin), escaped)
end
defp escape(l, false) when is_list(l) do
escape_char(:lists.reverse(l), [])
end
defp escape(l, true) when is_list(l) do
l
end
defp escape_char([?\\ | t], acc) do
escape_char(t, [?\\, ?\\ | acc])
end
defp escape_char([x | t], acc) when x >= 32 and x != 127 do
escape_char(t, [x | acc])
end
defp escape_char([x | t], acc) do
escape_char(t, [?\\, ?0 + (x >>> 6), ?0 + (x &&& 0o070 >>> 3), ?0 + (x &&& 7) | acc])
end
defp escape_char([], acc) do
acc
end
end
|
