Chapril/xmpp.chapril.org-ejabberd
25
1
Fork 0
mirror of https://github.com/processone/ejabberd.git synced 2024-11-24 16:23:40 +01:00
Code Releases Activity

Regenerate XMPP codec

Browse Source
This commit is contained in:
Evgeniy Khramtsov 2014-02-28 15:32:05 +04:00
parent d03de1bb43
commit 4a02893dac
2 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
tools/xmpp_codec.erl
View File

@ -5,7 +5,7 @@
-compile({nowarn_unused_function, -compile({nowarn_unused_function,
[{dec_int, 3}, {dec_int, 1}, {dec_enum, 2}, [{dec_int, 3}, {dec_int, 1}, {dec_enum, 2},
{enc_int, 1}, {enc_enum, 1}]}). {enc_int, 1}, {get_attr, 2}, {enc_enum, 1}]}).
-export([pp/1, format_error/1, decode/1, is_known_tag/1, -export([pp/1, format_error/1, decode/1, is_known_tag/1,
encode/1]). encode/1]).
@ -1580,12 +1580,12 @@ encode({last, _, _} = Query) ->
dec_int(Val) -> dec_int(Val, infinity, infinity). dec_int(Val) -> dec_int(Val, infinity, infinity).
dec_int(Val, Min, Max) -> dec_int(Val, Min, Max) ->
case erlang:binary_to_integer(Val) of case list_to_integer(binary_to_list(Val)) of
Int when Int =< Max, Min == infinity -> Int; Int when Int =< Max, Min == infinity -> Int;
Int when Int =< Max, Int >= Min -> Int Int when Int =< Max, Int >= Min -> Int
end. end.
enc_int(Int) -> erlang:integer_to_binary(Int). enc_int(Int) -> list_to_binary(integer_to_list(Int)).
dec_enum(Val, Enums) -> dec_enum(Val, Enums) ->
AtomVal = erlang:binary_to_existing_atom(Val, utf8), AtomVal = erlang:binary_to_existing_atom(Val, utf8),
@ -1787,8 +1787,8 @@ enc_tzo({H, M}) ->
dec_tzo(Val) -> dec_tzo(Val) ->
[H1, M1] = str:tokens(Val, <<":">>), [H1, M1] = str:tokens(Val, <<":">>),
H = erlang:binary_to_integer(H1), H = jlib:binary_to_integer(H1),
M = erlang:binary_to_integer(M1), M = jlib:binary_to_integer(M1),
if H >= -12, H =< 12, M >= 0, M < 60 -> {H, M} end. if H >= -12, H =< 12, M >= 0, M < 60 -> {H, M} end.
decode_muc({xmlel, <<"x">>, _attrs, _els}) -> decode_muc({xmlel, <<"x">>, _attrs, _els}) ->

4
tools/xmpp_codec.spec
View File

@ -1986,8 +1986,8 @@
dec_tzo(Val) -> dec_tzo(Val) ->
[H1, M1] = str:tokens(Val, <<":">>), [H1, M1] = str:tokens(Val, <<":">>),
H = erlang:binary_to_integer(H1), H = jlib:binary_to_integer(H1),
M = erlang:binary_to_integer(M1), M = jlib:binary_to_integer(M1),
if H >= -12, H =< 12, M >= 0, M < 60 -> if H >= -12, H =< 12, M >= 0, M < 60 ->
{H, M} {H, M}
end. end.