Merge pull request #4473 from esl/xml_cleanups

Cleanup exml types

Author: DenysGonchar

big_tests/rebar.config

@@ -8,7 +8,7 @@
 
 %% We use https:// instead of git://
 {deps, [
-        {exml, "4.0.0", {pkg, hexml}},
+        {exml, "4.1.1", {pkg, hexml}},
         {bbmustache, "1.12.2"},
         {jiffy, "1.1.2"},
         {proper, "1.4.0"},

big_tests/rebar.lock

@@ -12,7 +12,7 @@
   0},
  {<<"escalus">>,{pkg,<<"escalus">>,<<"4.3.0">>},0},
  {<<"esip">>,{pkg,<<"esip">>,<<"1.0.56">>},0},
- {<<"exml">>,{pkg,<<"hexml">>,<<"4.0.0">>},0},
+ {<<"exml">>,{pkg,<<"hexml">>,<<"4.1.1">>},0},
  {<<"fast_pbkdf2">>,{pkg,<<"fast_pbkdf2">>,<<"1.0.6">>},2},
  {<<"fast_scram">>,{pkg,<<"fast_scram">>,<<"0.6.1">>},1},
  {<<"fast_tls">>,{pkg,<<"fast_tls">>,<<"1.1.21">>},1},
@@ -44,7 +44,7 @@
  {<<"ct_groups_summary_hook">>, <<"21B94902B6CF2D345F4D790D34B49654E71CB8E570DCCC9C1C3616DAE720A7AA">>},
  {<<"escalus">>, <<"80301D57F4C863FA95F09AE148524508F18D7389B5070E2A5FFB7A38B51527C5">>},
  {<<"esip">>, <<"63C0FDC667BE751714E1E5C14621A9334F21B60AC1BB68BE889454CA9CA021B7">>},
- {<<"exml">>, <<"54C1AAD5BD290EC31C19CE4A5D449C7E3236107AA2D3610FC04FC963DC8EAF13">>},
+ {<<"exml">>, <<"D46272177F3B779D75058005C744997034823AB3A237F9B30B56A583B063FDE3">>},
  {<<"fast_pbkdf2">>, <<"199BCEC73A1A246941E9465D3DC41052953B638128841ED24B29ED03CF70AF27">>},
  {<<"fast_scram">>, <<"BEEADB03D774640F0671681759CE53B2FF33CB58C86FD9BF2A793E2FC1ED0F5D">>},
  {<<"fast_tls">>, <<"65D7D547A09EEFB37A1C0D04D8601FAC4F3E6E2C1EDE859A7787081670F9648D">>},
@@ -75,7 +75,7 @@
  {<<"ct_groups_summary_hook">>, <<"997CDE48FEB0C398989E4091A341D4FFF43CFA06CDB8FB2E80CC4A0E0362691C">>},
  {<<"escalus">>, <<"8C4D39677D55C48B04EDE4EAC0FD0AD2A574BEDE7180761E6E3D3877900C7708">>},
  {<<"esip">>, <<"9EF3660CEF93B623F7368DCD5C79F4E704358631909E6DD464E335378815DA1F">>},
- {<<"exml">>, <<"08CC97527C708D57A03F467049AC260B5951BD67906AA154BE56B5D8BDD3238C">>},
+ {<<"exml">>, <<"86C154396A9B21EEB0EDB9636D0E2D493FE0F59EAAF40FCFE795210F31119D8F">>},
  {<<"fast_pbkdf2">>, <<"35EEC22629AAA739915843C7B7DE0D84657D1ECE972D8BBC86368747E9C14012">>},
  {<<"fast_scram">>, <<"FE0650A309FDF97C75E1EA812CCFB40EB464ECAFD3783E83AA17C7F572EDAB0B">>},
  {<<"fast_tls">>, <<"131542913937025E48CD80AA81F00359686D5501B75621E72026A87B5229505B">>},

big_tests/tests/graphql_private_SUITE.erl

@@ -159,7 +159,7 @@ parse_xml_error(Config) ->
 parse_xml_error(Config, Alice) ->
     ResultSet = user_set_private(Alice, <<"AAAABBBB">>, Config),
     ?assertEqual(<<"Input coercion failed for type XmlElement with value <<\"AAAABBBB\">>."
-                   " The reason it failed is: \"expected <\"">>,
+                   " The reason it failed is: <<\"expected <\">>">>,
                  get_coercion_err_msg(ResultSet)).
 
 % User private not configured test cases

big_tests/tests/graphql_stanza_SUITE.erl

@@ -393,7 +393,7 @@ user_send_stanza_with_spoofed_from_story(Config, Alice, Bob) ->
 admin_send_unparsable_stanza(Config) ->
     Res = send_stanza(<<"<test">>, Config),
     ?assertEqual(<<"Input coercion failed for type XmlElement with value <<\"<test\">>. "
-                   "The reason it failed is: \"expected >\"">>,
+                   "The reason it failed is: <<\"expected >\">>">>,
                  get_coercion_err_msg(Res)).
 
 admin_send_stanza_from_unknown_user(Config) ->

include/mod_muc_light.hrl

@@ -57,7 +57,7 @@
 
 -record(msg, {
           id = <<>> :: binary(),
-          children = [] :: [jlib:xmlch()]
+          children = [] :: [exml:child()]
          }).
 
 -record(config, {

rebar.config

@@ -46,7 +46,7 @@
 {deps,
  [
   %%% Stateless parsers
-  {exml, "4.0.0", {pkg, hexml}},
+  {exml, "4.1.1", {pkg, hexml}},
   {jiffy, "1.1.2"},
   {jid, "2.2.0", {pkg, mongoose_jid}},
   {tomerl, "0.5.0"},

rebar.lock

@@ -26,7 +26,7 @@
  {<<"erl_csv">>,{pkg,<<"erl_csv">>,<<"0.3.3">>},0},
  {<<"erlang_doctor">>,{pkg,<<"erlang_doctor">>,<<"0.2.7">>},0},
  {<<"erlcloud">>,{pkg,<<"erlcloud">>,<<"3.8.2">>},0},
- {<<"exml">>,{pkg,<<"hexml">>,<<"4.0.0">>},0},
+ {<<"exml">>,{pkg,<<"hexml">>,<<"4.1.1">>},0},
  {<<"exometer_core">>,
   {git,"https://github.com/esl/exometer_core.git",
        {ref,"123daa053a4abb3ff4bdbf52f08344da535294e9"}},
@@ -142,7 +142,7 @@
  {<<"erl_csv">>, <<"94FBA776D493FE0DA76786D694CC2A788F14C864766DBB04C1786272515898C4">>},
  {<<"erlang_doctor">>, <<"38DCCF531B0DCF01B327EF437C7422EA3123457CF664C75BA8219D6022A7DA4B">>},
  {<<"erlcloud">>, <<"E0EE55C4B11826E79737655A52282C5C62EB31F7FDFACF4E314C12422C64A95F">>},
- {<<"exml">>, <<"54C1AAD5BD290EC31C19CE4A5D449C7E3236107AA2D3610FC04FC963DC8EAF13">>},
+ {<<"exml">>, <<"D46272177F3B779D75058005C744997034823AB3A237F9B30B56A583B063FDE3">>},
  {<<"fast_pbkdf2">>, <<"6045138C4C209FC8222A0B18B2CB1D7BD7407EF4ADAD0F14C5E0F7F4726E3E41">>},
  {<<"fast_scram">>, <<"70724F584A118DA147A51EE38DEE56203F217D58AD61E0BB2C2EF834C16B35B8">>},
  {<<"fast_tls">>, <<"44356B256AFAD4399C2FC5059A3066669DAFD8BD4E4E796C9C1CF8910DDD265E">>},
@@ -213,7 +213,7 @@
  {<<"erl_csv">>, <<"B1B4B5F6578B2AFC307E8CBF67277AC8E3D721FE5E6B5A4D53BA49215C9600F3">>},
  {<<"erlang_doctor">>, <<"5895F16E04666843895479D60624751330F87D8296411E03EC405F42F697796D">>},
  {<<"erlcloud">>, <<"36207854A37BF157B45A9A115A7EEE814430808ADB2CC713C72E0048DD6351A1">>},
- {<<"exml">>, <<"08CC97527C708D57A03F467049AC260B5951BD67906AA154BE56B5D8BDD3238C">>},
+ {<<"exml">>, <<"86C154396A9B21EEB0EDB9636D0E2D493FE0F59EAAF40FCFE795210F31119D8F">>},
  {<<"fast_pbkdf2">>, <<"BC3B5A3CAB47AD114FF8BB815FEDE62A6187ACD14D8B37412F2AF8236A089CEF">>},
  {<<"fast_scram">>, <<"771D034341599CFC6A6C5E56CF924B68D2C7478088CAF17419E3147B66914667">>},
  {<<"fast_tls">>, <<"E65779AEFB7AB15C4755230FEF8077E687D20CC5A3984A5974F9F657E8E2485B">>},

src/c2s/mongoose_c2s.erl

@@ -273,7 +273,7 @@ handle_socket_packet(StateData = #c2s_data{parser = Parser}, Packet) ->
     ?LOG_DEBUG(#{what => received_xml_on_stream, packet => Packet, c2s_pid => self()}),
     case exml_stream:parse(Parser, Packet) of
         {error, Reason} ->
-            NextEvent = {next_event, internal, #xmlstreamerror{name = iolist_to_binary(Reason)}},
+            NextEvent = {next_event, internal, #xmlstreamerror{name = Reason}},
             {keep_state, StateData, NextEvent};
         {ok, NewParser, XmlElements} ->
             Size = iolist_size(Packet),

src/jlib.erl

@@ -66,10 +66,6 @@
 -type xmlstreamerror()  :: #xmlstreamerror{}.
 -type xmlstreamel() :: exml:element() | exml_stream:start() | exml_stream:stop() | xmlstreamerror().
 
--type xmlcdata()  :: #xmlcdata{}.
-
--type xmlch() :: exml:element() | xmlcdata(). % (XML ch)ild
-
 -type iq() :: #iq{}.
 
 -type rsm_in() :: #rsm_in{}.
@@ -80,8 +76,6 @@
 
 -export_type([xmlstreamel/0, xmlstreamerror/0,
               rsm_in/0, rsm_out/0,
-              xmlcdata/0,
-              xmlch/0,
               iq/0,
               rfc3339_string/0]).
 
@@ -100,8 +94,7 @@ make_result_iq_reply_attrs(#xmlel{attrs = Attrs}) ->
     Attrs1 = swap_from_to_attrs(Attrs),
     Attrs1#{<<"type">> => <<"result">>}.
 
--spec make_error_reply(exml:element() | mongoose_acc:t(),
-                       xmlcdata() | exml:element()) ->
+-spec make_error_reply(exml:element() | mongoose_acc:t(), exml:child()) ->
     exml:element() | {mongoose_acc:t(), exml:element() | {error, {already_an_error, _, _}}}.
 make_error_reply(#xmlel{} = Elem, Error) ->
     ?LOG_DEBUG(#{what => make_error_reply,
@@ -191,12 +184,9 @@ swap_from_to_attrs(Attrs) ->
                       To :: jid:simple_jid() | jid:jid(),
                       XE :: exml:element()) -> exml:element().
 replace_from_to(From, To, XE = #xmlel{attrs = Attrs}) ->
-    NewAttrs = replace_from_to_attrs(jid:to_binary(From),
-                                     jid:to_binary(To),
-                                     Attrs),
+    NewAttrs = replace_from_to_attrs(jid:to_binary(From), jid:to_binary(To), Attrs),
     XE#xmlel{attrs = NewAttrs}.
 
-
 -spec remove_attr(binary(), exml:element()) -> exml:element().
 remove_attr(Attr, XE = #xmlel{attrs = Attrs}) ->
     NewAttrs = maps:remove(Attr, Attrs),
@@ -467,41 +457,30 @@ maybe_append_delay(Packet = #xmlel{children = Children}, From, TS, Desc) ->
             Packet
     end.
 
-remove_delay_tags(#xmlel{children = Els} = Packet) ->
-    NEl = lists:foldl(
-            fun(#xmlel{name= <<"delay">>} = R, El) ->
-                    case exml_query:attr(R, <<"xmlns">>) of
-                        ?NS_DELAY ->
-                            El;
-                        _ ->
-                            El ++ [R]
-                    end;
-               (#xmlel{name= <<"x">>} = R, El) ->
-                    case exml_query:attr(R, <<"xmlns">>) of
-                        ?NS_DELAY91 ->
-                            El;
-                        _ ->
-                            El ++ [R]
-                    end;
-               (R, El) ->
-                    El ++ [R]
-            end, [], Els),
-    Packet#xmlel{children = NEl}.
-
--spec remove_cdata([xmlch()]) -> [xmlch()].
+remove_delay_tags(#xmlel{children = Children} = Packet) ->
+    Fun = fun(#xmlel{name = <<"delay">>, attrs = #{<<"xmlns">> := ?NS_DELAY}}, Els) ->
+                  Els;
+             (#xmlel{name = <<"x">>, attrs = #{<<"xmlns">> := ?NS_DELAY91}}, Els) ->
+                  Els;
+             (R, Els) ->
+                  [R | Els]
+          end,
+    NEls = lists:foldl(Fun, [], Children),
+    Packet#xmlel{children = lists:reverse(NEls)}.
+
+-spec remove_cdata([exml:child()]) -> [exml:element()].
 remove_cdata(L) ->
     [E || E <- L, remove_cdata_p(E)].
 
--spec remove_cdata_p(xmlch()) -> boolean().
+-spec remove_cdata_p(exml:child()) -> boolean().
 remove_cdata_p(#xmlel{}) -> true;
 remove_cdata_p(_) -> false.
 
--spec append_subtags(exml:element(), [xmlch()]) -> exml:element().
+-spec append_subtags(exml:element(), [exml:child()]) -> exml:element().
 append_subtags(XE = #xmlel{children = SubTags1}, SubTags2) ->
     XE#xmlel{children = SubTags1 ++ SubTags2}.
 
--spec replace_tag_attr(Attr :: binary(), Value :: binary(), exml:element()
-                      ) -> exml:element().
+-spec replace_tag_attr(Attr :: binary(), Value :: binary(), exml:element()) -> exml:element().
 replace_tag_attr(Attr, Value, XE = #xmlel{attrs = Attrs}) ->
     Attrs1 = Attrs#{Attr => Value},
     XE#xmlel{attrs = Attrs1}.

src/mam/mod_mam_utils.erl

@@ -582,7 +582,7 @@ result_set(FirstId, LastId, FirstIndexI, CountI)
        children = FirstEl ++ LastEl ++ [CountEl]}.
 
 
--spec result_query(jlib:xmlcdata() | exml:element(), binary()) -> exml:element().
+-spec result_query(exml:child(), binary()) -> exml:element().
 result_query(SetEl, Namespace) ->
     #xmlel{
        name = <<"query">>,