Current section
Files
Jump to
Current section
Files
src/xep0359.erl
%% Created automatically by XML generator (fxml_gen.erl)
%% Source: xmpp_codec.spec
-module(xep0359).
-compile(export_all).
do_decode(<<"referenced-stanza">>, <<"urn:xmpp:sid:0">>,
El, Opts) ->
decode_referenced_stanza(<<"urn:xmpp:sid:0">>,
Opts,
El);
do_decode(<<"origin-id">>, <<"urn:xmpp:sid:0">>, El,
Opts) ->
decode_origin_id(<<"urn:xmpp:sid:0">>, Opts, El);
do_decode(<<"stanza-id">>, <<"urn:xmpp:sid:0">>, El,
Opts) ->
decode_stanza_id(<<"urn:xmpp:sid:0">>, Opts, El);
do_decode(Name, <<>>, _, _) ->
erlang:error({xmpp_codec, {missing_tag_xmlns, Name}});
do_decode(Name, XMLNS, _, _) ->
erlang:error({xmpp_codec, {unknown_tag, Name, XMLNS}}).
tags() ->
[{<<"referenced-stanza">>, <<"urn:xmpp:sid:0">>},
{<<"origin-id">>, <<"urn:xmpp:sid:0">>},
{<<"stanza-id">>, <<"urn:xmpp:sid:0">>}].
do_encode({stanza_id, _, _} = Stanza_id, TopXMLNS) ->
encode_stanza_id(Stanza_id, TopXMLNS);
do_encode({origin_id, _} = Origin_id, TopXMLNS) ->
encode_origin_id(Origin_id, TopXMLNS);
do_encode({referenced_stanza, _, _} = Referenced_stanza,
TopXMLNS) ->
encode_referenced_stanza(Referenced_stanza, TopXMLNS).
do_get_name({origin_id, _}) -> <<"origin-id">>;
do_get_name({referenced_stanza, _, _}) ->
<<"referenced-stanza">>;
do_get_name({stanza_id, _, _}) -> <<"stanza-id">>.
do_get_ns({origin_id, _}) -> <<"urn:xmpp:sid:0">>;
do_get_ns({referenced_stanza, _, _}) ->
<<"urn:xmpp:sid:0">>;
do_get_ns({stanza_id, _, _}) -> <<"urn:xmpp:sid:0">>.
pp(stanza_id, 2) -> [by, id];
pp(origin_id, 1) -> [id];
pp(referenced_stanza, 2) -> [by, id];
pp(_, _) -> no.
records() ->
[{stanza_id, 2},
{origin_id, 1},
{referenced_stanza, 2}].
decode_referenced_stanza(__TopXMLNS, __Opts,
{xmlel, <<"referenced-stanza">>, _attrs, _els}) ->
{Id, By} = decode_referenced_stanza_attrs(__TopXMLNS,
_attrs,
undefined,
undefined),
{referenced_stanza, By, Id}.
decode_referenced_stanza_attrs(__TopXMLNS,
[{<<"id">>, _val} | _attrs], _Id, By) ->
decode_referenced_stanza_attrs(__TopXMLNS,
_attrs,
_val,
By);
decode_referenced_stanza_attrs(__TopXMLNS,
[{<<"by">>, _val} | _attrs], Id, _By) ->
decode_referenced_stanza_attrs(__TopXMLNS,
_attrs,
Id,
_val);
decode_referenced_stanza_attrs(__TopXMLNS, [_ | _attrs],
Id, By) ->
decode_referenced_stanza_attrs(__TopXMLNS,
_attrs,
Id,
By);
decode_referenced_stanza_attrs(__TopXMLNS, [], Id,
By) ->
{decode_referenced_stanza_attr_id(__TopXMLNS, Id),
decode_referenced_stanza_attr_by(__TopXMLNS, By)}.
encode_referenced_stanza({referenced_stanza, By, Id},
__TopXMLNS) ->
__NewTopXMLNS =
xmpp_codec:choose_top_xmlns(<<"urn:xmpp:sid:0">>,
[],
__TopXMLNS),
_els = [],
_attrs = encode_referenced_stanza_attr_by(By,
encode_referenced_stanza_attr_id(Id,
xmpp_codec:enc_xmlns_attrs(__NewTopXMLNS,
__TopXMLNS))),
{xmlel, <<"referenced-stanza">>, _attrs, _els}.
decode_referenced_stanza_attr_id(__TopXMLNS,
undefined) ->
erlang:error({xmpp_codec,
{missing_attr,
<<"id">>,
<<"referenced-stanza">>,
__TopXMLNS}});
decode_referenced_stanza_attr_id(__TopXMLNS, _val) ->
_val.
encode_referenced_stanza_attr_id(_val, _acc) ->
[{<<"id">>, _val} | _acc].
decode_referenced_stanza_attr_by(__TopXMLNS,
undefined) ->
undefined;
decode_referenced_stanza_attr_by(__TopXMLNS, _val) ->
case catch jid:decode(_val) of
{'EXIT', _} ->
erlang:error({xmpp_codec,
{bad_attr_value,
<<"by">>,
<<"referenced-stanza">>,
__TopXMLNS}});
_res -> _res
end.
encode_referenced_stanza_attr_by(undefined, _acc) ->
_acc;
encode_referenced_stanza_attr_by(_val, _acc) ->
[{<<"by">>, jid:encode(_val)} | _acc].
decode_origin_id(__TopXMLNS, __Opts,
{xmlel, <<"origin-id">>, _attrs, _els}) ->
Id = decode_origin_id_attrs(__TopXMLNS,
_attrs,
undefined),
{origin_id, Id}.
decode_origin_id_attrs(__TopXMLNS,
[{<<"id">>, _val} | _attrs], _Id) ->
decode_origin_id_attrs(__TopXMLNS, _attrs, _val);
decode_origin_id_attrs(__TopXMLNS, [_ | _attrs], Id) ->
decode_origin_id_attrs(__TopXMLNS, _attrs, Id);
decode_origin_id_attrs(__TopXMLNS, [], Id) ->
decode_origin_id_attr_id(__TopXMLNS, Id).
encode_origin_id({origin_id, Id}, __TopXMLNS) ->
__NewTopXMLNS =
xmpp_codec:choose_top_xmlns(<<"urn:xmpp:sid:0">>,
[],
__TopXMLNS),
_els = [],
_attrs = encode_origin_id_attr_id(Id,
xmpp_codec:enc_xmlns_attrs(__NewTopXMLNS,
__TopXMLNS)),
{xmlel, <<"origin-id">>, _attrs, _els}.
decode_origin_id_attr_id(__TopXMLNS, undefined) ->
erlang:error({xmpp_codec,
{missing_attr, <<"id">>, <<"origin-id">>, __TopXMLNS}});
decode_origin_id_attr_id(__TopXMLNS, _val) -> _val.
encode_origin_id_attr_id(_val, _acc) ->
[{<<"id">>, _val} | _acc].
decode_stanza_id(__TopXMLNS, __Opts,
{xmlel, <<"stanza-id">>, _attrs, _els}) ->
{Id, By} = decode_stanza_id_attrs(__TopXMLNS,
_attrs,
undefined,
undefined),
{stanza_id, By, Id}.
decode_stanza_id_attrs(__TopXMLNS,
[{<<"id">>, _val} | _attrs], _Id, By) ->
decode_stanza_id_attrs(__TopXMLNS, _attrs, _val, By);
decode_stanza_id_attrs(__TopXMLNS,
[{<<"by">>, _val} | _attrs], Id, _By) ->
decode_stanza_id_attrs(__TopXMLNS, _attrs, Id, _val);
decode_stanza_id_attrs(__TopXMLNS, [_ | _attrs], Id,
By) ->
decode_stanza_id_attrs(__TopXMLNS, _attrs, Id, By);
decode_stanza_id_attrs(__TopXMLNS, [], Id, By) ->
{decode_stanza_id_attr_id(__TopXMLNS, Id),
decode_stanza_id_attr_by(__TopXMLNS, By)}.
encode_stanza_id({stanza_id, By, Id}, __TopXMLNS) ->
__NewTopXMLNS =
xmpp_codec:choose_top_xmlns(<<"urn:xmpp:sid:0">>,
[],
__TopXMLNS),
_els = [],
_attrs = encode_stanza_id_attr_by(By,
encode_stanza_id_attr_id(Id,
xmpp_codec:enc_xmlns_attrs(__NewTopXMLNS,
__TopXMLNS))),
{xmlel, <<"stanza-id">>, _attrs, _els}.
decode_stanza_id_attr_id(__TopXMLNS, undefined) ->
erlang:error({xmpp_codec,
{missing_attr, <<"id">>, <<"stanza-id">>, __TopXMLNS}});
decode_stanza_id_attr_id(__TopXMLNS, _val) -> _val.
encode_stanza_id_attr_id(_val, _acc) ->
[{<<"id">>, _val} | _acc].
decode_stanza_id_attr_by(__TopXMLNS, undefined) ->
erlang:error({xmpp_codec,
{missing_attr, <<"by">>, <<"stanza-id">>, __TopXMLNS}});
decode_stanza_id_attr_by(__TopXMLNS, _val) ->
case catch jid:decode(_val) of
{'EXIT', _} ->
erlang:error({xmpp_codec,
{bad_attr_value,
<<"by">>,
<<"stanza-id">>,
__TopXMLNS}});
_res -> _res
end.
encode_stanza_id_attr_by(_val, _acc) ->
[{<<"by">>, jid:encode(_val)} | _acc].