diff options
Diffstat (limited to 'src/pubsub_subscribe_options.erl')
| -rw-r--r-- | src/pubsub_subscribe_options.erl | 508 |
1 files changed, 0 insertions, 508 deletions
diff --git a/src/pubsub_subscribe_options.erl b/src/pubsub_subscribe_options.erl deleted file mode 100644 index 02c046995..000000000 --- a/src/pubsub_subscribe_options.erl +++ /dev/null @@ -1,508 +0,0 @@ -%% Created automatically by xdata generator (xdata_codec.erl) -%% Source: pubsub_subscribe_options.xdata -%% Form type: http://jabber.org/protocol/pubsub#subscribe_options -%% Document: XEP-0060 - --module(pubsub_subscribe_options). - --export([decode/1, decode/2, encode/1, encode/2, - format_error/1]). - --include("xmpp_codec.hrl"). - --include("pubsub_subscribe_options.hrl"). - --export_type([property/0, result/0, form/0]). - -dec_enum(Val, Enums) -> - AtomVal = erlang:binary_to_existing_atom(Val, utf8), - case lists:member(AtomVal, Enums) of - true -> AtomVal - end. - -enc_enum(Atom) -> erlang:atom_to_binary(Atom, utf8). - -dec_bool(<<"1">>) -> true; -dec_bool(<<"0">>) -> false; -dec_bool(<<"true">>) -> true; -dec_bool(<<"false">>) -> false. - -enc_bool(true) -> <<"1">>; -enc_bool(false) -> <<"0">>. - -format_error({form_type_mismatch, Type}) -> - <<"FORM_TYPE doesn't match '", Type/binary, "'">>; -format_error({bad_var_value, Var, Type}) -> - <<"Bad value of field '", Var/binary, "' of type '", - Type/binary, "'">>; -format_error({missing_value, Var, Type}) -> - <<"Missing value of field '", Var/binary, "' of type '", - Type/binary, "'">>; -format_error({too_many_values, Var, Type}) -> - <<"Too many values for field '", Var/binary, - "' of type '", Type/binary, "'">>; -format_error({unknown_var, Var, Type}) -> - <<"Unknown field '", Var/binary, "' of type '", - Type/binary, "'">>; -format_error({missing_required_var, Var, Type}) -> - <<"Missing required field '", Var/binary, "' of type '", - Type/binary, "'">>. - -decode(Fs) -> decode(Fs, []). - -decode(Fs, Acc) -> - case lists:keyfind(<<"FORM_TYPE">>, #xdata_field.var, - Fs) - of - false -> decode(Fs, Acc, []); - #xdata_field{values = - [<<"http://jabber.org/protocol/pubsub#subscribe_o" - "ptions">>]} -> - decode(Fs, Acc, []); - _ -> - erlang:error({?MODULE, - {form_type_mismatch, - <<"http://jabber.org/protocol/pubsub#subscribe_o" - "ptions">>}}) - end. - -encode(Cfg) -> encode(Cfg, fun (Text) -> Text end). - -encode(List, Translate) when is_list(List) -> - Fs = [case Opt of - {deliver, Val} -> [encode_deliver(Val, Translate)]; - {deliver, _, _} -> erlang:error({badarg, Opt}); - {digest, Val} -> [encode_digest(Val, Translate)]; - {digest, _, _} -> erlang:error({badarg, Opt}); - {digest_frequency, Val} -> - [encode_digest_frequency(Val, Translate)]; - {digest_frequency, _, _} -> erlang:error({badarg, Opt}); - {expire, Val} -> [encode_expire(Val, Translate)]; - {expire, _, _} -> erlang:error({badarg, Opt}); - {include_body, Val} -> - [encode_include_body(Val, Translate)]; - {include_body, _, _} -> erlang:error({badarg, Opt}); - {'show-values', Val} -> - ['encode_show-values'(Val, default, Translate)]; - {'show-values', Val, Opts} -> - ['encode_show-values'(Val, Opts, Translate)]; - {subscription_type, Val} -> - [encode_subscription_type(Val, default, Translate)]; - {subscription_type, Val, Opts} -> - [encode_subscription_type(Val, Opts, Translate)]; - {subscription_depth, Val} -> - [encode_subscription_depth(Val, default, Translate)]; - {subscription_depth, Val, Opts} -> - [encode_subscription_depth(Val, Opts, Translate)]; - #xdata_field{} -> [Opt]; - _ -> [] - end - || Opt <- List], - FormType = #xdata_field{var = <<"FORM_TYPE">>, - type = hidden, - values = - [<<"http://jabber.org/protocol/pubsub#subscribe_o" - "ptions">>]}, - [FormType | lists:flatten(Fs)]. - -decode([#xdata_field{var = <<"pubsub#deliver">>, - values = [Value]} - | Fs], - Acc, Required) -> - try dec_bool(Value) of - Result -> - decode(Fs, [{deliver, Result} | Acc], - lists:delete(<<"pubsub#deliver">>, Required)) - catch - _:_ -> - erlang:error({?MODULE, - {bad_var_value, <<"pubsub#deliver">>, - <<"http://jabber.org/protocol/pubsub#subscribe_o" - "ptions">>}}) - end; -decode([#xdata_field{var = <<"pubsub#deliver">>, - values = []} = - F - | Fs], - Acc, Required) -> - decode([F#xdata_field{var = <<"pubsub#deliver">>, - values = [<<>>]} - | Fs], - Acc, Required); -decode([#xdata_field{var = <<"pubsub#deliver">>} | _], - _, _) -> - erlang:error({?MODULE, - {too_many_values, <<"pubsub#deliver">>, - <<"http://jabber.org/protocol/pubsub#subscribe_o" - "ptions">>}}); -decode([#xdata_field{var = <<"pubsub#digest">>, - values = [Value]} - | Fs], - Acc, Required) -> - try dec_bool(Value) of - Result -> - decode(Fs, [{digest, Result} | Acc], - lists:delete(<<"pubsub#digest">>, Required)) - catch - _:_ -> - erlang:error({?MODULE, - {bad_var_value, <<"pubsub#digest">>, - <<"http://jabber.org/protocol/pubsub#subscribe_o" - "ptions">>}}) - end; -decode([#xdata_field{var = <<"pubsub#digest">>, - values = []} = - F - | Fs], - Acc, Required) -> - decode([F#xdata_field{var = <<"pubsub#digest">>, - values = [<<>>]} - | Fs], - Acc, Required); -decode([#xdata_field{var = <<"pubsub#digest">>} | _], _, - _) -> - erlang:error({?MODULE, - {too_many_values, <<"pubsub#digest">>, - <<"http://jabber.org/protocol/pubsub#subscribe_o" - "ptions">>}}); -decode([#xdata_field{var = - <<"pubsub#digest_frequency">>, - values = [Value]} - | Fs], - Acc, Required) -> - try Value of - Result -> - decode(Fs, [{digest_frequency, Result} | Acc], - lists:delete(<<"pubsub#digest_frequency">>, Required)) - catch - _:_ -> - erlang:error({?MODULE, - {bad_var_value, <<"pubsub#digest_frequency">>, - <<"http://jabber.org/protocol/pubsub#subscribe_o" - "ptions">>}}) - end; -decode([#xdata_field{var = - <<"pubsub#digest_frequency">>, - values = []} = - F - | Fs], - Acc, Required) -> - decode([F#xdata_field{var = - <<"pubsub#digest_frequency">>, - values = [<<>>]} - | Fs], - Acc, Required); -decode([#xdata_field{var = - <<"pubsub#digest_frequency">>} - | _], - _, _) -> - erlang:error({?MODULE, - {too_many_values, <<"pubsub#digest_frequency">>, - <<"http://jabber.org/protocol/pubsub#subscribe_o" - "ptions">>}}); -decode([#xdata_field{var = <<"pubsub#expire">>, - values = [Value]} - | Fs], - Acc, Required) -> - try Value of - Result -> - decode(Fs, [{expire, Result} | Acc], - lists:delete(<<"pubsub#expire">>, Required)) - catch - _:_ -> - erlang:error({?MODULE, - {bad_var_value, <<"pubsub#expire">>, - <<"http://jabber.org/protocol/pubsub#subscribe_o" - "ptions">>}}) - end; -decode([#xdata_field{var = <<"pubsub#expire">>, - values = []} = - F - | Fs], - Acc, Required) -> - decode([F#xdata_field{var = <<"pubsub#expire">>, - values = [<<>>]} - | Fs], - Acc, Required); -decode([#xdata_field{var = <<"pubsub#expire">>} | _], _, - _) -> - erlang:error({?MODULE, - {too_many_values, <<"pubsub#expire">>, - <<"http://jabber.org/protocol/pubsub#subscribe_o" - "ptions">>}}); -decode([#xdata_field{var = <<"pubsub#include_body">>, - values = [Value]} - | Fs], - Acc, Required) -> - try dec_bool(Value) of - Result -> - decode(Fs, [{include_body, Result} | Acc], - lists:delete(<<"pubsub#include_body">>, Required)) - catch - _:_ -> - erlang:error({?MODULE, - {bad_var_value, <<"pubsub#include_body">>, - <<"http://jabber.org/protocol/pubsub#subscribe_o" - "ptions">>}}) - end; -decode([#xdata_field{var = <<"pubsub#include_body">>, - values = []} = - F - | Fs], - Acc, Required) -> - decode([F#xdata_field{var = <<"pubsub#include_body">>, - values = [<<>>]} - | Fs], - Acc, Required); -decode([#xdata_field{var = <<"pubsub#include_body">>} - | _], - _, _) -> - erlang:error({?MODULE, - {too_many_values, <<"pubsub#include_body">>, - <<"http://jabber.org/protocol/pubsub#subscribe_o" - "ptions">>}}); -decode([#xdata_field{var = <<"pubsub#show-values">>, - values = Values} - | Fs], - Acc, Required) -> - try [dec_enum(Value, [away, chat, dnd, online, xa]) - || Value <- Values] - of - Result -> - decode(Fs, [{'show-values', Result} | Acc], - lists:delete(<<"pubsub#show-values">>, Required)) - catch - _:_ -> - erlang:error({?MODULE, - {bad_var_value, <<"pubsub#show-values">>, - <<"http://jabber.org/protocol/pubsub#subscribe_o" - "ptions">>}}) - end; -decode([#xdata_field{var = - <<"pubsub#subscription_type">>, - values = [Value]} - | Fs], - Acc, Required) -> - try dec_enum(Value, [items, nodes]) of - Result -> - decode(Fs, [{subscription_type, Result} | Acc], - lists:delete(<<"pubsub#subscription_type">>, Required)) - catch - _:_ -> - erlang:error({?MODULE, - {bad_var_value, <<"pubsub#subscription_type">>, - <<"http://jabber.org/protocol/pubsub#subscribe_o" - "ptions">>}}) - end; -decode([#xdata_field{var = - <<"pubsub#subscription_type">>, - values = []} = - F - | Fs], - Acc, Required) -> - decode([F#xdata_field{var = - <<"pubsub#subscription_type">>, - values = [<<>>]} - | Fs], - Acc, Required); -decode([#xdata_field{var = - <<"pubsub#subscription_type">>} - | _], - _, _) -> - erlang:error({?MODULE, - {too_many_values, <<"pubsub#subscription_type">>, - <<"http://jabber.org/protocol/pubsub#subscribe_o" - "ptions">>}}); -decode([#xdata_field{var = - <<"pubsub#subscription_depth">>, - values = [Value]} - | Fs], - Acc, Required) -> - try dec_enum(Value, ['1', all]) of - Result -> - decode(Fs, [{subscription_depth, Result} | Acc], - lists:delete(<<"pubsub#subscription_depth">>, Required)) - catch - _:_ -> - erlang:error({?MODULE, - {bad_var_value, <<"pubsub#subscription_depth">>, - <<"http://jabber.org/protocol/pubsub#subscribe_o" - "ptions">>}}) - end; -decode([#xdata_field{var = - <<"pubsub#subscription_depth">>, - values = []} = - F - | Fs], - Acc, Required) -> - decode([F#xdata_field{var = - <<"pubsub#subscription_depth">>, - values = [<<>>]} - | Fs], - Acc, Required); -decode([#xdata_field{var = - <<"pubsub#subscription_depth">>} - | _], - _, _) -> - erlang:error({?MODULE, - {too_many_values, <<"pubsub#subscription_depth">>, - <<"http://jabber.org/protocol/pubsub#subscribe_o" - "ptions">>}}); -decode([#xdata_field{var = Var} | Fs], Acc, Required) -> - if Var /= <<"FORM_TYPE">> -> - erlang:error({?MODULE, - {unknown_var, Var, - <<"http://jabber.org/protocol/pubsub#subscribe_o" - "ptions">>}}); - true -> decode(Fs, Acc, Required) - end; -decode([], _, [Var | _]) -> - erlang:error({?MODULE, - {missing_required_var, Var, - <<"http://jabber.org/protocol/pubsub#subscribe_o" - "ptions">>}}); -decode([], Acc, []) -> Acc. - -encode_deliver(Value, Translate) -> - Values = case Value of - undefined -> []; - Value -> [enc_bool(Value)] - end, - Opts = [], - #xdata_field{var = <<"pubsub#deliver">>, - values = Values, required = false, type = boolean, - options = Opts, desc = <<>>, - label = - Translate(<<"Whether an entity wants to receive or " - "disable notifications">>)}. - -encode_digest(Value, Translate) -> - Values = case Value of - undefined -> []; - Value -> [enc_bool(Value)] - end, - Opts = [], - #xdata_field{var = <<"pubsub#digest">>, values = Values, - required = false, type = boolean, options = Opts, - desc = <<>>, - label = - Translate(<<"Whether an entity wants to receive digests " - "(aggregations) of notifications or all " - "notifications individually">>)}. - -encode_digest_frequency(Value, Translate) -> - Values = case Value of - <<>> -> []; - Value -> [Value] - end, - Opts = [], - #xdata_field{var = <<"pubsub#digest_frequency">>, - values = Values, required = false, type = 'text-single', - options = Opts, desc = <<>>, - label = - Translate(<<"The minimum number of milliseconds between " - "sending any two notification digests">>)}. - -encode_expire(Value, Translate) -> - Values = case Value of - <<>> -> []; - Value -> [Value] - end, - Opts = [], - #xdata_field{var = <<"pubsub#expire">>, values = Values, - required = false, type = 'text-single', options = Opts, - desc = <<>>, - label = - Translate(<<"The DateTime at which a leased subscription " - "will end or has ended">>)}. - -encode_include_body(Value, Translate) -> - Values = case Value of - undefined -> []; - Value -> [enc_bool(Value)] - end, - Opts = [], - #xdata_field{var = <<"pubsub#include_body">>, - values = Values, required = false, type = boolean, - options = Opts, desc = <<>>, - label = - Translate(<<"Whether an entity wants to receive an " - "XMPP message body in addition to the " - "payload format">>)}. - -'encode_show-values'(Value, Options, Translate) -> - Values = case Value of - [] -> []; - Value -> [enc_enum(V) || V <- Value] - end, - Opts = if Options == default -> - [#xdata_option{label = - Translate(<<"XMPP Show Value of Away">>), - value = <<"away">>}, - #xdata_option{label = - Translate(<<"XMPP Show Value of Chat">>), - value = <<"chat">>}, - #xdata_option{label = - Translate(<<"XMPP Show Value of DND (Do Not Disturb)">>), - value = <<"dnd">>}, - #xdata_option{label = - Translate(<<"Mere Availability in XMPP (No Show Value)">>), - value = <<"online">>}, - #xdata_option{label = - Translate(<<"XMPP Show Value of XA (Extended Away)">>), - value = <<"xa">>}]; - true -> - [#xdata_option{label = Translate(L), - value = enc_enum(V)} - || {L, V} <- Options] - end, - #xdata_field{var = <<"pubsub#show-values">>, - values = Values, required = false, type = 'list-multi', - options = Opts, desc = <<>>, - label = - Translate(<<"The presence states for which an entity " - "wants to receive notifications">>)}. - -encode_subscription_type(Value, Options, Translate) -> - Values = case Value of - undefined -> []; - Value -> [enc_enum(Value)] - end, - Opts = if Options == default -> - [#xdata_option{label = - Translate(<<"Receive notification of new items only">>), - value = <<"items">>}, - #xdata_option{label = - Translate(<<"Receive notification of new nodes only">>), - value = <<"nodes">>}]; - true -> - [#xdata_option{label = Translate(L), - value = enc_enum(V)} - || {L, V} <- Options] - end, - #xdata_field{var = <<"pubsub#subscription_type">>, - values = Values, required = false, type = 'list-single', - options = Opts, desc = <<>>, label = <<>>}. - -encode_subscription_depth(Value, Options, Translate) -> - Values = case Value of - undefined -> []; - Value -> [enc_enum(Value)] - end, - Opts = if Options == default -> - [#xdata_option{label = - Translate(<<"Receive notification from direct child " - "nodes only">>), - value = <<"1">>}, - #xdata_option{label = - Translate(<<"Receive notification from all descendent " - "nodes">>), - value = <<"all">>}]; - true -> - [#xdata_option{label = Translate(L), - value = enc_enum(V)} - || {L, V} <- Options] - end, - #xdata_field{var = <<"pubsub#subscription_depth">>, - values = Values, required = false, type = 'list-single', - options = Opts, desc = <<>>, label = <<>>}. |