Packages

smppex

2.2.4
3.3.0 3.2.4 3.2.3 3.2.2 3.2.1 3.2.0 retired 3.1.0 retired 3.0.6 3.0.5 3.0.4 3.0.3 3.0.2 3.0.1 3.0.0 2.4.0 2.3.3 2.3.2 2.3.1 2.3.0 2.2.9 2.2.8 2.2.7 2.2.6 2.2.5 2.2.4 2.2.3 2.2.2 2.2.1 2.2.0 2.1.0 2.0.1 2.0.0 1.0.1 0.3.2 0.3.1 0.3.0 0.2.1 0.2.0 0.1.12 0.1.11 0.1.10 0.1.9 0.1.8 0.1.7 0.1.6 0.1.5 0.1.4 0.1.3 0.1.2 0.1.1 0.1.0 0.0.5 0.0.4 0.0.3 0.0.2 0.0.1

SMPP 3.4 protocol and framework implemented in Elixir

HexDocs

Current section

Files

Jump to
Readme
56 Versions
1 Dependency
Dependants
Files
Activity
smppex lib smppex protocol tlv_format.ex
Raw

lib/smppex/protocol/tlv_format.ex 

defmodule SMPPEX.Protocol.TlvFormat do

  @moduledoc false



  @type integer_size :: 1 | 2 | 4

  @type tlv_value_spec ::

          {:integer, integer_size}

          | {:c_octet_string, {:max, pos_integer}}

          | {:octet_string, non_neg_integer}

          | {:octet_string, {non_neg_integer, non_neg_integer}}



  tlvs = [

    {:dest_addr_subunit, 0x0005, quote(do: {:integer, 1})},

    {:dest_network_type, 0x0006, quote(do: {:integer, 1})},

    {:dest_bearer_type, 0x0007, quote(do: {:integer, 1})},

    {:dest_telematics_id, 0x0008, quote(do: {:integer, 2})},

    {:source_addr_subunit, 0x000D, quote(do: {:integer, 1})},

    {:source_network_type, 0x000E, quote(do: {:integer, 1})},

    {:source_bearer_type, 0x000F, quote(do: {:integer, 1})},

    {:source_telematics_id, 0x0010, quote(do: {:integer, 1})},

    {:qos_time_to_live, 0x0017, quote(do: {:integer, 4})},

    {:payload_type, 0x0019, quote(do: {:integer, 1})},

    {:additional_status_info_text, 0x001D, quote(do: {:c_octet_string, {:max, 256}})},

    {:receipted_message_id, 0x001E, quote(do: {:c_octet_string, {:max, 65}})},

    {:ms_msg_wait_facilities, 0x0030, quote(do: {:integer, 1})},

    {:privacy_indicator, 0x0201, quote(do: {:integer, 1})},

    {:source_subaddress, 0x0202, quote(do: {:octet_string, {1, 23}})},

    {:dest_subaddress, 0x0203, quote(do: {:octet_string, {2, 23}})},

    {:user_message_reference, 0x0204, quote(do: {:integer, 2})},

    {:user_response_code, 0x0205, quote(do: {:integer, 1})},

    {:source_port, 0x020A, quote(do: {:integer, 2})},

    {:destination_port, 0x020B, quote(do: {:integer, 2})},

    {:sar_msg_ref_num, 0x020C, quote(do: {:integer, 2})},

    {:language_indicator, 0x020D, quote(do: {:integer, 1})},

    {:sar_total_segments, 0x020E, quote(do: {:integer, 1})},

    {:sar_segment_seqnum, 0x020F, quote(do: {:integer, 1})},

    {:sc_interface_version, 0x0210, quote(do: {:integer, 1})},

    {:callback_num_pres_ind, 0x0302, quote(do: {:integer, 1})},

    {:callback_num_atag, 0x0303, quote(do: {:c_octet_string, {:max, 65}})},

    {:number_of_messages, 0x0304, quote(do: {:integer, 1})},

    {:callback_num, 0x0381, quote(do: {:octet_string, {4, 19}})},

    {:dpf_result, 0x0420, quote(do: {:integer, 1})},

    {:set_dpf, 0x0421, quote(do: {:integer, 1})},

    {:ms_availability_status, 0x0422, quote(do: {:integer, 1})},

    {:network_error_code, 0x0423, quote(do: {:octet_string, 3})},

    {:message_payload, 0x0424, quote(do: {:octet_string, {0, 0xFFFF}})},

    {:delivery_failure_reason, 0x0425, quote(do: {:integer, 1})},

    {:more_messages_to_send, 0x0426, quote(do: {:integer, 1})},

    {:message_state, 0x0427, quote(do: {:integer, 1})},

    {:ussd_service_op, 0x0501, quote(do: {:integer, 1})},

    {:display_time, 0x1201, quote(do: {:integer, 1})},

    {:sms_signal, 0x1203, quote(do: {:integer, 2})},

    {:ms_validity, 0x1204, quote(do: {:integer, 1})},

    {:alert_on_message_delivery, 0x130C, quote(do: {:octet_string, 0})},

    {:its_reply_type, 0x1380, quote(do: {:integer, 1})},

    {:its_session_info, 0x1383, quote(do: {:octet_string, 2})}

  ]



  @spec name_by_id(integer) :: :unknown | {:ok, atom}

  @spec id_by_name(atom) :: :unknown | {:ok, non_neg_integer}

  @spec format_by_id(integer) :: :unknown | {:ok, tlv_value_spec}



  for {name, id, format} <- tlvs do

    def name_by_id(unquote(id)) do

      {:ok, unquote(name)}

    end



    def id_by_name(unquote(name)) do

      {:ok, unquote(id)}

    end



    def format_by_id(unquote(id)) do

      {:ok, unquote(format)}

    end

  end



  def name_by_id(_) do

    :unknown

  end



  def id_by_name(_) do

    :unknown

  end



  def format_by_id(_) do

    :unknown

  end

end