path: root/epan/dissectors/packet-coap.c

/* packet-coap.c
 * Routines for CoAP packet disassembly
 * draft-ietf-core-coap-14.txt
 * draft-ietf-core-block-10.txt
 * draft-ietf-core-observe-16.txt
 * draft-ietf-core-link-format-06.txt
 * Shoichi Sakane <sakane@tanu.org>
 *
 * Changes for draft-ietf-core-coap-17.txt
 * Hauke Mehrtens <hauke@hauke-m.de>
 *
 * Support for CoAP over TCP, TLS and WebSockets
 * https://tools.ietf.org/html/rfc8323
 * Peter Wu <peter@lekensteyn.nl>
 *
 * Wireshark - Network traffic analyzer
 * By Gerald Combs <gerald@wireshark.org>
 * Copyright 1998 Gerald Combs
 *
 * SPDX-License-Identifier: GPL-2.0-or-later
 */

#include "config.h"


#include <epan/conversation.h>
#include <epan/packet.h>
#include <epan/reassemble.h>
#include <epan/proto_data.h>
#include <epan/expert.h>
#include <epan/wmem_scopes.h>
#include <epan/to_str.h>
#include <epan/strutil.h>
#include "packet-dtls.h"
#include "packet-coap.h"
#include "packet-http.h"
#include "packet-tcp.h"
#include "packet-tls.h"

void proto_register_coap(void);

static dissector_table_t coap_tmf_media_type_dissector_table;
static dissector_table_t media_type_dissector_table;

static int proto_coap						= -1;
/*
 * Used only to register the "CoAP for Thread Management Framework"
 * dissector, which uses the same protocol and field IDs as the
 * regular CoAP dissector, as it's just "CoAP except that we interpret
 * application/octet-stream as meaning Thread Management Framework
 * messages", because the Thread protocol, for whatever reasons (trying
 * to keep the CoAP layer of their messages as short and simple to parse
 * as possible, to save power and reduce the chances of low-power
 * transmissions being misreceived?), did not register a media type for
 * its messages and a 'cf' value for that media type.
 */
static int proto_coap_for_tmf					= -1;

static int hf_coap_length					= -1;
static int hf_coap_version					= -1;
static int hf_coap_ttype					= -1;
static int hf_coap_token_len					= -1;
static int hf_coap_token					= -1;
static int hf_coap_mid						= -1;

static int hf_coap_response_in					= -1;
static int hf_coap_response_to					= -1;
static int hf_coap_response_time				= -1;
static int hf_coap_request_resend_in				= -1;
static int hf_coap_response_resend_in				= -1;
static int hf_coap_oscore_kid					= -1;
static int hf_coap_oscore_kid_context				= -1;
static int hf_coap_oscore_piv					= -1;

static int hf_block_payload					= -1;
static int hf_block_length					= -1;

static int hf_blocks						= -1;
static int hf_block						= -1;
static int hf_block_overlap					= -1;
static int hf_block_overlap_conflicts				= -1;
static int hf_block_multiple_tails				= -1;
static int hf_block_too_long					= -1;
static int hf_block_error					= -1;
static int hf_block_count					= -1;
static int hf_block_reassembled_in				= -1;
static int hf_block_reassembled_length				= -1;

static gint ett_coap						= -1;

static gint ett_block						= -1;
static gint ett_blocks						= -1;

static expert_field ei_retransmitted				= EI_INIT;

static COAP_COMMON_LIST_T(dissect_coap_hf);

static dissector_handle_t coap_tcp_tls_handle;
static dissector_handle_t coap_other_handle;
static dissector_handle_t coap_for_tmf_handle;
static dissector_handle_t oscore_handle;

/* CoAP's IANA-assigned TCP/UDP port numbers */
#define DEFAULT_COAP_PORT					5683
#define DEFAULT_COAPS_PORT					5684

/* indicators whether those are to be showed or not */
#define DEFAULT_COAP_CTYPE_VALUE				~0U
#define DEFAULT_COAP_BLOCK_NUMBER				~0U

/* Macros specific to the OCF version options */
#define COAP_OCF_VERSION_SUB_MASK 				0x3F
#define COAP_OCF_VERSION_MINOR_MASK 				0x7C0
#define COAP_OCF_VERSION_MAJOR_MASK 				0xF800

#define COAP_OCF_VERSION_MINOR_OFFSET 				6
#define COAP_OCF_VERSION_MAJOR_OFFSET 				11

/*
 * Transaction Type
 */
#define TT_CON 0 // Confirmable
#define TT_NON 1 // Non-Confirmable
static const value_string vals_ttype[] = {
	{ 0, "Confirmable" },
	{ 1, "Non-Confirmable" },
	{ 2, "Acknowledgement" },
	{ 3, "Reset" },
	{ 0, NULL },
};
static const value_string vals_ttype_short[] = {
	{ 0, "CON" },
	{ 1, "NON" },
	{ 2, "ACK" },
	{ 3, "RST" },
	{ 0, NULL },
};

/*
 * Method Code
 * Response Code
 * "c.dd" denotes (c << 5) | dd
 */
static const value_string vals_code[] = {
	{ 0, "Empty Message" },

	/* Method Codes */
	{ 1, "GET" },
	{ 2, "POST" },
	{ 3, "PUT" },
	{ 4, "DELETE" },
	{ 5, "FETCH" },		/* RFC 8132 */
	{ 6, "PATCH" },		/* RFC 8132 */
	{ 7, "iPATCH" },	/* RFC 8132 */

	/* Response Codes */
	{  65, "2.01 Created" },
	{  66, "2.02 Deleted" },
	{  67, "2.03 Valid" },
	{  68, "2.04 Changed" },
	{  69, "2.05 Content" },
	{  95, "2.31 Continue" },
	{ 128, "4.00 Bad Request" },
	{ 129, "4.01 Unauthorized" },
	{ 130, "4.02 Bad Option" },
	{ 131, "4.03 Forbidden" },
	{ 132, "4.04 Not Found" },
	{ 133, "4.05 Method Not Allowed" },
	{ 134, "4.06 Not Acceptable" },
	{ 136, "4.08 Request Entity Incomplete" },	/* RFC 7959 */
	{ 137, "4.09 Conflict" },			/* RFC 8132 */
	{ 140, "4.12 Precondition Failed" },
	{ 141, "4.13 Request Entity Too Large" },
	{ 143, "4.15 Unsupported Content-Format" },
	{ 150, "4.22 Unprocessable Entity" },		/* RFC 8132 */
	{ 157, "4.29 Too Many Requests" },		/* RFC 8516 */
	{ 160, "5.00 Internal Server Error" },
	{ 161, "5.01 Not Implemented" },
	{ 162, "5.02 Bad Gateway" },
	{ 163, "5.03 Service Unavailable" },
	{ 164, "5.04 Gateway Timeout" },
	{ 165, "5.05 Proxying Not Supported" },
	{ 168, "5.08 Hop Limit Reached" },		/* RFC 8768 */

	/* Signalling Codes */
	{ 225, "7.01 CSM" },				/* RFC 8323 */
	{ 226, "7.02 Ping" },				/* RFC 8323 */
	{ 227, "7.03 Pong" },				/* RFC 8323 */
	{ 228, "7.04 Release" },			/* RFC 8323 */
	{ 229, "7.05 Abort" },				/* RFC 8323 */

	{ 0, NULL },
};
value_string_ext coap_vals_code_ext = VALUE_STRING_EXT_INIT(vals_code);

const value_string coap_vals_observe_options[] = {
	{ 0, "Register" },
	{ 1, "Deregister" },
	{ 0, NULL },
};

/*
 * Option Headers
 * No-Option must not be included in this structure, is handled in the function
 * of the dissector, especially.
 */
#define COAP_OPT_IF_MATCH		1
#define COAP_OPT_URI_HOST		3
#define COAP_OPT_ETAG			4
#define COAP_OPT_IF_NONE_MATCH		5
#define COAP_OPT_OBSERVE		6	/* RFC 7641 / RFC 8613 */
#define COAP_OPT_URI_PORT		7
#define COAP_OPT_LOCATION_PATH		8
#define COAP_OPT_OBJECT_SECURITY	9	/* RFC 8613 */
#define COAP_OPT_URI_PATH		11
#define COAP_OPT_CONTENT_TYPE		12
#define COAP_OPT_MAX_AGE		14
#define COAP_OPT_URI_QUERY		15
#define COAP_OPT_HOP_LIMIT		16	/* RFC 8768 */
#define COAP_OPT_ACCEPT			17
#define COAP_OPT_QBLOCK1		19	/* RFC 9177 */
#define COAP_OPT_LOCATION_QUERY		20
#define COAP_OPT_EDHOC			21	/* draft-ietf-core-oscore-edhoc*/
#define COAP_OPT_BLOCK2			23	/* RFC 7959 / RFC 8323 */
#define COAP_OPT_BLOCK1			27	/* RFC 7959 / RFC 8323 */
#define COAP_OPT_SIZE2			28	/* RFC 7959 */
#define COAP_OPT_QBLOCK2		31	/* RFC 9177 */
#define COAP_OPT_PROXY_URI		35
#define COAP_OPT_PROXY_SCHEME		39
#define COAP_OPT_SIZE1			60
#define COAP_OPT_ECHO			252	/* RFC 9175*/
#define COAP_OPT_NO_RESPONSE		258	/* RFC 7967 / RFC 8613 */
#define COAP_OPT_REQUEST_TAG		292	/* RFC 9175 */
#define COAP_OPT_OCF_ACCEPT		2049	/* OCF Core specification */
#define COAP_OPT_OCF_CONTENT		2053	/* OCF Core specification */

static const value_string vals_opt_type[] = {
	{ COAP_OPT_IF_MATCH,       "If-Match" },
	{ COAP_OPT_URI_HOST,       "Uri-Host" },
	{ COAP_OPT_ETAG,           "Etag" },
	{ COAP_OPT_IF_NONE_MATCH,  "If-None-Match" },
	{ COAP_OPT_URI_PORT,       "Uri-Port" },
	{ COAP_OPT_LOCATION_PATH,  "Location-Path" },
	{ COAP_OPT_OBJECT_SECURITY,"OSCORE" },
	{ COAP_OPT_URI_PATH,       "Uri-Path" },
	{ COAP_OPT_CONTENT_TYPE,   "Content-Format" },
	{ COAP_OPT_MAX_AGE,        "Max-age" },
	{ COAP_OPT_URI_QUERY,      "Uri-Query" },
	{ COAP_OPT_HOP_LIMIT,      "Hop-Limit" },
	{ COAP_OPT_ACCEPT,         "Accept" },
	{ COAP_OPT_QBLOCK1,        "Q-Block1" },
	{ COAP_OPT_LOCATION_QUERY, "Location-Query" },
	{ COAP_OPT_EDHOC,          "EDHOC" },
	{ COAP_OPT_PROXY_URI,      "Proxy-Uri" },
	{ COAP_OPT_PROXY_SCHEME,   "Proxy-Scheme" },
	{ COAP_OPT_SIZE1,          "Size1" },
	{ COAP_OPT_OBSERVE,        "Observe" },
	{ COAP_OPT_BLOCK2,         "Block2" },
	{ COAP_OPT_BLOCK1,         "Block1" },
	{ COAP_OPT_SIZE2,          "Size2" },
	{ COAP_OPT_QBLOCK2,        "Q-Block2" },
	{ COAP_OPT_ECHO,           "Echo" },
	{ COAP_OPT_NO_RESPONSE,    "No-Response" },
	{ COAP_OPT_REQUEST_TAG,    "Request-Tag" },
	{ COAP_OPT_OCF_ACCEPT,     "OCF-Accept-Content-Format-Version" },
	{ COAP_OPT_OCF_CONTENT,    "OCF-Content-Format-Version" },
	{ 0, NULL },
};

struct coap_option_range_t {
	guint type;
	gint min;
	gint max;
} coi[] = {
	{ COAP_OPT_IF_MATCH,        0,   8 },
	{ COAP_OPT_URI_HOST,        1, 255 },
	{ COAP_OPT_ETAG,            1,   8 },
	{ COAP_OPT_IF_NONE_MATCH,   0,   0 },
	{ COAP_OPT_URI_PORT,        0,   2 },
	{ COAP_OPT_LOCATION_PATH,   0, 255 },
	{ COAP_OPT_OBJECT_SECURITY, 0, 255 },
	{ COAP_OPT_URI_PATH,        0, 255 },
	{ COAP_OPT_CONTENT_TYPE,    0,   2 },
	{ COAP_OPT_MAX_AGE,         0,   4 },
	{ COAP_OPT_URI_QUERY,       1, 255 },
	{ COAP_OPT_HOP_LIMIT,       1,   1 },
	{ COAP_OPT_ACCEPT,          0,   2 },
	{ COAP_OPT_QBLOCK1,         0,   3 },
	{ COAP_OPT_LOCATION_QUERY,  0, 255 },
	{ COAP_OPT_EDHOC,           0,   0 },
	{ COAP_OPT_PROXY_URI,       1,1034 },
	{ COAP_OPT_PROXY_SCHEME,    1, 255 },
	{ COAP_OPT_SIZE1,           0,   4 },
	{ COAP_OPT_OBSERVE,         0,   3 },
	{ COAP_OPT_BLOCK2,          0,   3 },
	{ COAP_OPT_BLOCK1,          0,   3 },
	{ COAP_OPT_SIZE2,           0,   4 },
	{ COAP_OPT_QBLOCK2,         0,   3 },
	{ COAP_OPT_ECHO,            1,  40 },
	{ COAP_OPT_NO_RESPONSE,     0,   1 },
	{ COAP_OPT_REQUEST_TAG,     0,   8 },
	{ COAP_OPT_OCF_ACCEPT,      2,   2 },
	{ COAP_OPT_OCF_CONTENT,     2,   2 },
};

static const value_string vals_ctype[] = {
	{  0, "text/plain; charset=utf-8" },
	{ 16, "application/cose; cose-type=\"cose-encrypt0\"" },
	{ 17, "application/cose; cose-type=\"cose-mac0\"" },
	{ 18, "application/cose; cose-type=\"cose-sign1\"" },
	{ 19, "application/ace+cbor" },
	{ 21, "image/gif" },
	{ 22, "image/jpeg" },
	{ 23, "image/png" },
	{ 40, "application/link-format" },
	{ 41, "application/xml" },
	{ 42, "application/octet-stream" },
	{ 47, "application/exi" },
	{ 50, "application/json" },
	{ 51, "application/json-patch+json" },
	{ 52, "application/merge-patch+json" },
	{ 60, "application/cbor" },
	{ 61, "application/cwt" },
	{ 62, "application/multipart-core" },
	{ 63, "application/cbor-seq" },
	{ 96, "application/cose; cose-type=\"cose-encrypt\"" },
	{ 97, "application/cose; cose-type=\"cose-mac\"" },
	{ 98, "application/cose; cose-type=\"cose-sign\"" },
	{ 101, "application/cose-key" },
	{ 102, "application/cose-key-set" },
	{ 110, "application/senml+json" },
	{ 111, "application/sensml+json" },
	{ 112, "application/senml+cbor" },
	{ 113, "application/sensml+cbor" },
	{ 114, "application/senml-exi" },
	{ 115, "application/sensml-exi" },
	{ 140, "application/yang-data+cbor; id=sid" },
	{ 256, "application/coap-group+json" },
	{ 257, "application/concise-problem-details+cbor" },
	{ 258, "application/swid+cbor" },
	{ 271, "application/dots+cbor" },
	{ 272, "application/missing-blocks+cbor-seq" },
	{ 280, "application/pkcs7-mime; smime-type=server-generated-key" },
	{ 281, "application/pkcs7-mime; smime-type=certs-only" },
	{ 284, "application/pkcs8" },
	{ 285, "application/csrattrs" },
	{ 286, "application/pkcs10" },
	{ 287, "application/pkix-cert" },
	{ 290, "application/aif+cbor" },
	{ 291, "application/aif+json" },
	{ 310, "application/senml+xml" },
	{ 311, "application/sensml+xml" },
	{ 320, "application/senml-etch+json" },
	{ 322, "application/senml-etch+cbor" },
	{ 340, "application/yang-data+cbor" },
	{ 341, "application/yang-data+cbor; id=name" },
	{ 322, "application/senml-etch+cbor" },
	{ 432, "application/td+json" },
	{ 433, "application/tm+json" },
	{ 1542, "application/vnd.oma.lwm2m+tlv" },
	{ 1543, "application/vnd.oma.lwm2m+json" },
	{ 10000, "application/vnd.ocf+cbor" },
	{ 10001, "application/oscore" },
	{ 10002, "application/javascript" },
	{ 11050, "application/json (Content Coding: deflate)" },
	{ 11060, "application/cbor (Content Coding: deflate)" },
	{ 11542, "application/vnd.oma.lwm2m+tlv" },
	{ 11543, "application/vnd.oma.lwm2m+json" },
	{ 20000, "text/css" },
	{ 30000, "image/svg+xml" },
	{ 0, NULL },
};

static const char *nullstr = "(null)";

static reassembly_table coap_block_reassembly_table;

static const fragment_items coap_block_frag_items = {
	/* Fragment subtrees */
	&ett_block,
	&ett_blocks,
	/* Fragment fields */
	&hf_blocks,
	&hf_block,
	&hf_block_overlap,
	&hf_block_overlap_conflicts,
	&hf_block_multiple_tails,
	&hf_block_too_long,
	&hf_block_error,
	&hf_block_count,
	/* Reassembled in field */
	&hf_block_reassembled_in,
	/* Reassembled length field */
	&hf_block_reassembled_length,
	/* Reassembled data field */
	NULL,
	/* Tag */
	"Block fragments"
};

void proto_reg_handoff_coap(void);

static conversation_t *
find_or_create_conversation_noaddrb(packet_info *pinfo, gboolean request)
{
	conversation_t *conv=NULL;
	address *addr_a;
	address *addr_b;
	guint32 port_a;
	guint32 port_b;

	if (pinfo->ptype != PT_TCP) {
		if (request) {
			addr_a = &pinfo->src;
			addr_b = &pinfo->dst;
			port_a = pinfo->srcport;
			port_b = pinfo->destport;
		} else {
			addr_a = &pinfo->dst;
			addr_b = &pinfo->src;
			port_a = pinfo->destport;
			port_b = pinfo->srcport;
		}
		/* Have we seen this conversation before? */
		if((conv = find_conversation(pinfo->num, addr_a, addr_b,
					     conversation_pt_to_conversation_type(pinfo->ptype), port_a,
					     port_b, NO_ADDR_B|NO_PORT_B)) != NULL) {
			if (pinfo->num > conv->last_frame) {
				conv->last_frame = pinfo->num;
			}
		} else {
			/* No, this is a new conversation. */
			conv = conversation_new(pinfo->num, &pinfo->src,
						&pinfo->dst, conversation_pt_to_conversation_type(pinfo->ptype),
						pinfo->srcport, pinfo->destport, NO_ADDR2|NO_PORT2);
		}
	} else {
		/* fetch the conversation created by the TCP dissector */
		conv = find_conversation_pinfo(pinfo, 0);
		DISSECTOR_ASSERT(conv);
	}
	return conv;
}

static gint
coap_get_opt_uint(tvbuff_t *tvb, gint offset, gint length)
{
	switch (length) {
	case 0:
		return 0;
	case 1:
		return (guint)tvb_get_guint8(tvb, offset);
	case 2:
		return (guint)tvb_get_ntohs(tvb, offset);
	case 3:
		return (guint)tvb_get_ntoh24(tvb, offset);
	case 4:
		return (guint)tvb_get_ntohl(tvb, offset);
	default:
		return -1;
	}
}

static gint
coap_opt_check(packet_info *pinfo, proto_tree *subtree, guint opt_num, gint opt_length, coap_common_dissect_t *dissect_hf)
{
	int i;

	for (i = 0; i < (int)(array_length(coi)); i++) {
		if (coi[i].type == opt_num)
			break;
	}
	if (i == (int)(array_length(coi))) {
		if (opt_num >= 2048 && opt_num <= 65535) {
			/* private, vendor-specific or reserved for experiments */
			expert_add_info_format(pinfo, subtree, &dissect_hf->ei.opt_unknown_number,
					       "Unknown Option Number %u", opt_num);
		} else {
			expert_add_info_format(pinfo, subtree, &dissect_hf->ei.opt_invalid_number,
					       "Invalid Option Number %u", opt_num);
		}
		return -1;
	}
	if (opt_length < coi[i].min || opt_length > coi[i].max) {
		expert_add_info_format(pinfo, subtree, &dissect_hf->ei.opt_invalid_range,
			"Invalid Option Range: %d (%d < x < %d)", opt_length, coi[i].min, coi[i].max);
	}

	return 0;
}

static void
dissect_coap_opt_hex_string(tvbuff_t *tvb, packet_info *pinfo, proto_item *item, proto_tree *subtree, gint offset, gint opt_length, int hf)
{
	const guint8 *str;

	if (opt_length == 0)
		str = nullstr;
	else
		str = tvb_bytes_to_str_punct(pinfo->pool, tvb, offset, opt_length, ' ');

	proto_tree_add_item(subtree, hf, tvb, offset, opt_length, ENC_NA);

	/* add info to the head of the packet detail */
	proto_item_append_text(item, ": %s", str);
}

static void
dissect_coap_opt_uint(tvbuff_t *tvb, proto_item *head_item, proto_tree *subtree, gint offset, gint opt_length, int hf)
{
	guint i = 0;

	if (opt_length != 0) {
		i = coap_get_opt_uint(tvb, offset, opt_length);
	}

	proto_tree_add_uint(subtree, hf, tvb, offset, opt_length, i);

	/* add info to the head of the packet detail */
	proto_item_append_text(head_item, ": %u", i);
}

static void
dissect_coap_opt_uri_host(tvbuff_t *tvb, packet_info *pinfo, proto_item *head_item, proto_tree *subtree, gint offset, gint opt_length, coap_info *coinfo, int hf)
{
	const guint8 *str;

	proto_tree_add_item_ret_string(subtree, hf, tvb, offset, opt_length, ENC_ASCII, pinfo->pool, &str);

	/* add info to the head of the packet detail */
	proto_item_append_text(head_item, ": %s", format_text_string(pinfo->pool, str));

	/* forming a uri-string
	 *   If the 'uri host' looks an IPv6 address, assuming that the address has
	 *   to be enclosed by brackets.
	 */
	if (strchr(str, ':') == NULL) {
		wmem_strbuf_append_printf(coinfo->uri_str_strbuf, "coap://%s", str);
	} else {
		wmem_strbuf_append_printf(coinfo->uri_str_strbuf, "coap://[%s]", str);
	}
}

static void
dissect_coap_opt_uri_path(tvbuff_t *tvb, packet_info *pinfo, proto_item *head_item, proto_tree *subtree, gint offset, gint opt_length, coap_info *coinfo, int hf)
{
	const guint8 *str = NULL;

	wmem_strbuf_append_c(coinfo->uri_str_strbuf, '/');

	if (opt_length == 0) {
		str = nullstr;
	} else {
		str = tvb_get_string_enc(pinfo->pool, tvb, offset, opt_length, ENC_ASCII);
		wmem_strbuf_append(coinfo->uri_str_strbuf, str);
	}

	proto_tree_add_item(subtree, hf, tvb, offset, opt_length, ENC_ASCII);

	/* add info to the head of the packet detail */
	proto_item_append_text(head_item, ": %s", format_text_string(pinfo->pool, str));
}

static void
dissect_coap_opt_uri_query(tvbuff_t *tvb, packet_info *pinfo, proto_item *head_item, proto_tree *subtree, gint offset, gint opt_length, coap_info *coinfo, int hf)
{
	const guint8 *str = NULL;

	wmem_strbuf_append_c(coinfo->uri_query_strbuf,
			     (wmem_strbuf_get_len(coinfo->uri_query_strbuf) == 0) ? '?' : '&');

	if (opt_length == 0) {
		str = nullstr;
	} else {
		str = tvb_get_string_enc(pinfo->pool, tvb, offset, opt_length, ENC_ASCII);
		wmem_strbuf_append(coinfo->uri_query_strbuf, str);
	}

	proto_tree_add_item(subtree, hf, tvb, offset, opt_length, ENC_ASCII);

	/* add info to the head of the packet detail */
	proto_item_append_text(head_item, ": %s", format_text_string(pinfo->pool, str));
}

static void
dissect_coap_opt_location_path(tvbuff_t *tvb, packet_info *pinfo, proto_item *head_item, proto_tree *subtree, gint offset, gint opt_length, int hf)
{
	const guint8 *str = NULL;

	if (opt_length == 0) {
		str = nullstr;
	} else {
		str = tvb_get_string_enc(pinfo->pool, tvb, offset, opt_length, ENC_ASCII);
	}

	proto_tree_add_item(subtree, hf, tvb, offset, opt_length, ENC_ASCII);

	/* add info to the head of the packet detail */
	proto_item_append_text(head_item, ": %s", format_text_string(pinfo->pool, str));
}

static void
dissect_coap_opt_location_query(tvbuff_t *tvb, packet_info *pinfo, proto_item *head_item, proto_tree *subtree, gint offset, gint opt_length, int hf)
{
	const guint8 *str = NULL;

	if (opt_length == 0) {
		str = nullstr;
	} else {
		str = tvb_get_string_enc(pinfo->pool, tvb, offset, opt_length, ENC_ASCII);
	}

	proto_tree_add_item(subtree, hf, tvb, offset, opt_length, ENC_ASCII);

	/* add info to the head of the packet detail */
	proto_item_append_text(head_item, ": %s", format_text_string(pinfo->pool, str));
}

/* rfc8613 */
static void
dissect_coap_opt_object_security(tvbuff_t *tvb, proto_item *head_item, proto_tree *subtree, gint offset, gint opt_length, packet_info *pinfo, coap_info *coinfo, coap_common_dissect_t *dissect_hf, guint8 code_class)
{
	guint8 flag_byte = 0;
	gboolean reserved = FALSE;
	gboolean kid_context_present = FALSE;
	gboolean kid_present = FALSE;
	guint8 piv_len = 0;
	guint8 kid_context_len = 0;
	guint8 kid_len = 0;

	coinfo->object_security = TRUE;

	coinfo->oscore_info->piv = NULL;
	coinfo->oscore_info->piv_len = 0;
	coinfo->oscore_info->request_piv = NULL;
	coinfo->oscore_info->request_piv_len = 0;
	coinfo->oscore_info->kid_context = NULL;
	coinfo->oscore_info->kid_context_len = 0;
	coinfo->oscore_info->kid = NULL;
	coinfo->oscore_info->kid_len = 0;
	coinfo->oscore_info->response = FALSE;

	if (opt_length == 0) { /* option length is zero, means flag byte is 0x00*/
		/* add info to the head of the packet detail */
		proto_item_append_text(head_item, ": 00 (no Flag Byte)");
	} else {
		flag_byte = tvb_get_guint8(tvb, offset);

		proto_tree_add_item(subtree, dissect_hf->hf.opt_object_security_reserved, tvb, offset, 1, ENC_BIG_ENDIAN);
		reserved = flag_byte & COAP_OBJECT_SECURITY_RESERVED_MASK;

		proto_tree_add_item(subtree, dissect_hf->hf.opt_object_security_kid_context_present, tvb, offset, 1, ENC_BIG_ENDIAN);
		kid_context_present = flag_byte & COAP_OBJECT_SECURITY_KID_CONTEXT_MASK;

		proto_tree_add_item(subtree, dissect_hf->hf.opt_object_security_kid_present, tvb, offset, 1, ENC_BIG_ENDIAN);
		kid_present = flag_byte & COAP_OBJECT_SECURITY_KID_MASK;

		proto_tree_add_item(subtree, dissect_hf->hf.opt_object_security_piv_len, tvb, offset, 1, ENC_BIG_ENDIAN);
		piv_len = (flag_byte & COAP_OBJECT_SECURITY_PIVLEN_MASK) >> 0;

		/* kid_len is what remains in the option after all other fields are parsed
		we calculate kid_len by subtracting from option length as we parse individual fields */
		kid_len = opt_length;

		offset += 1;
		kid_len -= 1;

		if (reserved) {
			/* how these bits are handled is not yet specified */
			expert_add_info_format(pinfo, subtree, &dissect_hf->ei.opt_object_security_bad, "Unsupported format");
		}

		if (piv_len > 0) {
			proto_tree_add_item(subtree, dissect_hf->hf.opt_object_security_piv, tvb, offset, piv_len, ENC_NA);
			coinfo->oscore_info->piv = (guint8 *) tvb_memdup(pinfo->pool, tvb, offset, piv_len);
			coinfo->oscore_info->piv_len = piv_len;

			if (code_class == 0) {
				/* If this is a request, copy PIV to request_piv */
				coinfo->oscore_info->request_piv = (guint8 *) tvb_memdup(pinfo->pool, tvb, offset, piv_len);
				coinfo->oscore_info->request_piv_len = piv_len;
			}

			offset += piv_len;
			kid_len -= piv_len;
		}

		if (kid_context_present) {
			proto_tree_add_item(subtree, dissect_hf->hf.opt_object_security_kid_context_len, tvb, offset, 1, ENC_BIG_ENDIAN);
			kid_context_len = tvb_get_guint8(tvb, offset);

			offset += 1;
			kid_len -= 1;

			proto_tree_add_item(subtree, dissect_hf->hf.opt_object_security_kid_context, tvb, offset, kid_context_len, ENC_NA);
			coinfo->oscore_info->kid_context = (guint8 *) tvb_memdup(pinfo->pool, tvb, offset, kid_context_len);
			coinfo->oscore_info->kid_context_len = kid_context_len;

			offset += kid_context_len;
			kid_len -= kid_context_len;
		}

		if (kid_present) {
			proto_tree_add_item(subtree, dissect_hf->hf.opt_object_security_kid, tvb, offset, kid_len, ENC_NA);
			coinfo->oscore_info->kid = (guint8 *) tvb_memdup(pinfo->pool, tvb, offset, kid_len);
			coinfo->oscore_info->kid_len = kid_len;

		}

		proto_item_append_text(head_item, ": Key ID:%s, Key ID Context:%s, Partial IV:%s",
				 coinfo->oscore_info->kid == NULL ? nullstr : bytes_to_str(pinfo->pool, coinfo->oscore_info->kid, coinfo->oscore_info->kid_len),
				 coinfo->oscore_info->kid_context == NULL ? nullstr : bytes_to_str(pinfo->pool, coinfo->oscore_info->kid_context, coinfo->oscore_info->kid_context_len),
				 coinfo->oscore_info->piv == NULL ? nullstr : bytes_to_str(pinfo->pool, coinfo->oscore_info->piv, coinfo->oscore_info->piv_len));
	}
}

static void
dissect_coap_opt_proxy_uri(tvbuff_t *tvb, packet_info *pinfo, proto_item *head_item, proto_tree *subtree, gint offset, gint opt_length, int hf)
{
	const guint8 *str = NULL;

	if (opt_length == 0) {
		str = nullstr;
	} else {
		str = tvb_get_string_enc(pinfo->pool, tvb, offset, opt_length, ENC_ASCII);
	}

	proto_tree_add_item(subtree, hf, tvb, offset, opt_length, ENC_ASCII);

	/* add info to the head of the packet detail */
	proto_item_append_text(head_item, ": %s", format_text_string(pinfo->pool, str));
}

static void
dissect_coap_opt_proxy_scheme(tvbuff_t *tvb, packet_info *pinfo, proto_item *head_item, proto_tree *subtree, gint offset, gint opt_length, int hf)
{
	const guint8 *str = NULL;

	if (opt_length == 0) {
		str = nullstr;
	} else {
		str = tvb_get_string_enc(pinfo->pool, tvb, offset, opt_length, ENC_ASCII);
	}

	proto_tree_add_item(subtree, hf, tvb, offset, opt_length, ENC_ASCII);

	/* add info to the head of the packet detail */
	proto_item_append_text(head_item, ": %s", format_text_string(pinfo->pool, str));
}

static void
dissect_coap_opt_ctype(tvbuff_t *tvb, proto_item *head_item, proto_tree *subtree, gint offset, gint opt_length, int hf, coap_info *coinfo)
{
	if (opt_length == 0) {
		coinfo->ctype_value = 0;
	} else {
		coinfo->ctype_value = coap_get_opt_uint(tvb, offset, opt_length);
	}

	coinfo->ctype_str = val_to_str(coinfo->ctype_value, vals_ctype, "Unknown Type %u");

	proto_tree_add_string(subtree, hf, tvb, offset, opt_length, coinfo->ctype_str);

	/* add info to the head of the packet detail */
	proto_item_append_text(head_item, ": %s", coinfo->ctype_str);
}

static void
dissect_coap_opt_accept(tvbuff_t *tvb, proto_item *head_item, proto_tree *subtree, gint offset, gint opt_length, int hf)
{
	const guint8 *str = NULL;

	if (opt_length == 0) {
		str = nullstr;
	} else {
		guint value = coap_get_opt_uint(tvb, offset, opt_length);
		str = val_to_str(value, vals_ctype, "Unknown Type %u");
	}

	proto_tree_add_string(subtree, hf, tvb, offset, opt_length, str);

	/* add info to the head of the packet detail */
	proto_item_append_text(head_item, ": %s", str);
}

static void
dissect_coap_opt_block(tvbuff_t *tvb, proto_item *head_item, proto_tree *subtree, gint offset, gint opt_length, coap_info *coinfo, coap_common_dissect_t *dissect_hf)
{
	guint8      val = 0;
	guint       encoded_block_size;
	guint       block_esize;

	if (opt_length == 0) {
		coinfo->block_number = 0;
		val = 0;
	} else {
		coinfo->block_number = coap_get_opt_uint(tvb, offset, opt_length) >> 4;
		val = tvb_get_guint8(tvb, offset + opt_length - 1) & 0x0f;
	}

	proto_tree_add_uint(subtree, dissect_hf->hf.opt_block_number,
	    tvb, offset, opt_length, coinfo->block_number);

	/* More flag in the end of the option */
	coinfo->block_mflag = (val & COAP_BLOCK_MFLAG_MASK) >> 3;
	proto_tree_add_uint(subtree, dissect_hf->hf.opt_block_mflag,
	    tvb, offset + opt_length - 1, 1, val);

	/* block size */
	encoded_block_size = val & COAP_BLOCK_SIZE_MASK;
	block_esize = 1 << (encoded_block_size + 4);
	proto_tree_add_uint_format(subtree, dissect_hf->hf.opt_block_size,
	    tvb, offset + opt_length - 1, 1, encoded_block_size, "Block Size: %u (%u encoded)", block_esize, encoded_block_size);

	/* add info to the head of the packet detail */
	proto_item_append_text(head_item, ": NUM:%u, M:%u, SZX:%u",
	    coinfo->block_number, coinfo->block_mflag, block_esize);
}

static void
dissect_coap_opt_ocf_version(tvbuff_t *tvb, proto_item *head_item, proto_tree *subtree, gint offset, gint opt_length, int hfindex)
{
	guint option_value = coap_get_opt_uint(tvb, offset, opt_length);

	guint sub_version = option_value & COAP_OCF_VERSION_SUB_MASK;
	guint minor_version = (option_value & COAP_OCF_VERSION_MINOR_MASK) >> COAP_OCF_VERSION_MINOR_OFFSET;
	guint major_version = (option_value & COAP_OCF_VERSION_MAJOR_MASK) >> COAP_OCF_VERSION_MAJOR_OFFSET;

	proto_tree_add_uint(subtree, hfindex, tvb, offset, opt_length, option_value);

	/* add info to the head of the packet detail */
	proto_item_append_text(head_item, ": %u.%u.%u",
	    major_version, minor_version, sub_version);
}

static void
dissect_coap_opt_uri_port(tvbuff_t *tvb, proto_item *head_item, proto_tree *subtree, gint offset, gint opt_length, coap_info *coinfo, int hf)
{
	guint port = 0;

	if (opt_length != 0) {
		port = coap_get_opt_uint(tvb, offset, opt_length);
	}

	proto_tree_add_uint(subtree, hf, tvb, offset, opt_length, port);

	proto_item_append_text(head_item, ": %u", port);

	/* forming a uri-string */
	wmem_strbuf_append_printf(coinfo->uri_str_strbuf, ":%u", port);
}

/*
 * dissector for each option of CoAP.
 * return the total length of the option including the header (e.g. delta and length).
 */
static int
dissect_coap_options_main(tvbuff_t *tvb, packet_info *pinfo, proto_tree *coap_tree, gint offset, guint8 opt_count, guint *opt_num, gint offset_end, guint8 code_class, coap_info *coinfo, coap_common_dissect_t *dissect_hf)
{
	guint8      opt_jump;
	gint        opt_length, opt_length_ext, opt_delta, opt_delta_ext;
	gint        opt_length_ext_off = 0;
	gint8       opt_length_ext_len = 0;
	gint        opt_delta_ext_off  = 0;
	gint8       opt_delta_ext_len  = 0;
	gint        orig_offset	       = offset;
	proto_tree *subtree;
	proto_item *item;
	char	    strbuf[56];

	opt_jump = tvb_get_guint8(tvb, offset);
	if (0xff == opt_jump)
		return offset;
	offset += 1;

	/*
	 * section 3.1 in coap-17:
	 * Option Delta:  4-bit unsigned integer.  A value between 0 and 12
	 * indicates the Option Delta.  Three values are reserved for special
	 * constructs:
	 *
	 * 13:  An 8-bit unsigned integer follows the initial byte and
	 *      indicates the Option Delta minus 13.
	 *
	 * 14:  A 16-bit unsigned integer in network byte order follows the
	 *      initial byte and indicates the Option Delta minus 269.
	 *
	 * 15:  Reserved for the Payload Marker.  If the field is set to this
	 *      value but the entire byte is not the payload marker, this MUST
	 *      be processed as a message format error.
	 */
	switch (opt_jump & 0xf0) {
	case 0xd0:
		opt_delta_ext = tvb_get_guint8(tvb, offset);
		opt_delta_ext_off = offset;
		opt_delta_ext_len = 1;
		offset += 1;

		opt_delta = 13;
		opt_delta += opt_delta_ext;
		break;
	case 0xe0:
		opt_delta_ext = coap_get_opt_uint(tvb, offset, 2);
		opt_delta_ext_off = offset;
		opt_delta_ext_len = 2;
		offset += 2;

		opt_delta = 269;
		opt_delta += opt_delta_ext;
		break;
	case 0xf0:
		expert_add_info_format(pinfo, coap_tree, &dissect_hf->ei.opt_length_bad,
				"end-of-options marker found, but option length isn't 15");
		return -1;
	default:
		opt_delta = ((opt_jump & 0xf0) >> 4);
		break;
	}
	*opt_num += opt_delta;

	/*
	 * section 3.1 in coap-17:
	 * Option Length:  4-bit unsigned integer.  A value between 0 and 12
	 * indicates the length of the Option Value, in bytes.  Three values
	 * are reserved for special constructs:
	 *
	 * 13:  An 8-bit unsigned integer precedes the Option Value and
	 *      indicates the Option Length minus 13.
	 *
	 * 14:  A 16-bit unsigned integer in network byte order precedes the
	 *      Option Value and indicates the Option Length minus 269.
	 *
	 * 15:  Reserved for future use.  If the field is set to this value,
	 *      it MUST be processed as a message format error.
	 */
	switch (opt_jump & 0x0f) {
	case 0x0d:
		opt_length_ext = tvb_get_guint8(tvb, offset);
		opt_length_ext_off = offset;
		opt_length_ext_len = 1;
		offset += 1;

		opt_length  = 13;
		opt_length += opt_length_ext;
		break;
	case 0x0e:
		opt_length_ext = coap_get_opt_uint(tvb, offset, 2);
		opt_length_ext_off = offset;
		opt_length_ext_len = 2;
		offset += 2;

		opt_length  = 269;
		opt_length += opt_length_ext;
		break;
	case 0x0f:
		expert_add_info_format(pinfo, coap_tree, &dissect_hf->ei.opt_length_bad,
			"end-of-options marker found, but option delta isn't 15");
		return -1;
	default:
		opt_length = (opt_jump & 0x0f);
		break;
	}
	if (opt_length > offset_end - offset) {
		expert_add_info_format(pinfo, coap_tree, &dissect_hf->ei.opt_length_bad,
			"option longer than the package");
		return -1;
	}

	snprintf(strbuf, sizeof(strbuf),
	    "#%u: %s", opt_count, val_to_str(*opt_num, vals_opt_type,
	    *opt_num % 14 == 0 ? "No-Op" : "Unknown Option (%d)"));
	item = proto_tree_add_string(coap_tree, dissect_hf->hf.opt_name,
	    tvb, orig_offset, offset - orig_offset + opt_length, strbuf);
	subtree = proto_item_add_subtree(item, dissect_hf->ett.option);

	coap_opt_check(pinfo, subtree, *opt_num, opt_length, dissect_hf);

	snprintf(strbuf, sizeof(strbuf),
	    "Type %u, %s, %s%s", *opt_num,
	    (*opt_num & 1) ? "Critical" : "Elective",
	    (*opt_num & 2) ? "Unsafe" : "Safe",
	    ((*opt_num & 0x1e) == 0x1c) ? ", NoCacheKey" : "");
	proto_tree_add_string(subtree, dissect_hf->hf.opt_desc,
	    tvb, orig_offset, offset - orig_offset + opt_length, strbuf);

	proto_tree_add_item(subtree, dissect_hf->hf.opt_delta,  tvb, orig_offset, 1, ENC_BIG_ENDIAN);
	proto_tree_add_item(subtree, dissect_hf->hf.opt_length, tvb, orig_offset, 1, ENC_BIG_ENDIAN);

	if (opt_delta_ext_off && opt_delta_ext_len)
		proto_tree_add_item(subtree, dissect_hf->hf.opt_delta_ext, tvb, opt_delta_ext_off, opt_delta_ext_len, ENC_BIG_ENDIAN);

	if (opt_length_ext_off && opt_length_ext_len)
		proto_tree_add_item(subtree, dissect_hf->hf.opt_length_ext, tvb, opt_length_ext_off, opt_length_ext_len, ENC_BIG_ENDIAN);

	/* offset points the next to its option header */
	switch (*opt_num) {
	case COAP_OPT_CONTENT_TYPE:
		dissect_coap_opt_ctype(tvb, item, subtree, offset,
		    opt_length, dissect_hf->hf.opt_ctype, coinfo);
		break;
	case COAP_OPT_MAX_AGE:
		dissect_coap_opt_uint(tvb, item, subtree, offset,
		    opt_length, dissect_hf->hf.opt_max_age);
		break;
	case COAP_OPT_PROXY_URI:
		dissect_coap_opt_proxy_uri(tvb, pinfo, item, subtree, offset,
		    opt_length, dissect_hf->hf.opt_proxy_uri);
		break;
	case COAP_OPT_PROXY_SCHEME:
		dissect_coap_opt_proxy_scheme(tvb, pinfo, item, subtree, offset,
		    opt_length, dissect_hf->hf.opt_proxy_scheme);
		break;
	case COAP_OPT_SIZE1:
		dissect_coap_opt_uint(tvb, item, subtree, offset,
		    opt_length, dissect_hf->hf.opt_size1);
		break;
	case COAP_OPT_ETAG:
		dissect_coap_opt_hex_string(tvb, pinfo, item, subtree, offset,
		    opt_length, dissect_hf->hf.opt_etag);
		break;
	case COAP_OPT_URI_HOST:
		dissect_coap_opt_uri_host(tvb, pinfo, item, subtree, offset,
		    opt_length, coinfo, dissect_hf->hf.opt_uri_host);
		break;
	case COAP_OPT_LOCATION_PATH:
		dissect_coap_opt_location_path(tvb, pinfo, item, subtree, offset,
		    opt_length, dissect_hf->hf.opt_location_path);
		break;
	case COAP_OPT_URI_PORT:
		dissect_coap_opt_uri_port(tvb, item, subtree, offset,
		    opt_length, coinfo, dissect_hf->hf.opt_uri_port);
		break;
	case COAP_OPT_LOCATION_QUERY:
		dissect_coap_opt_location_query(tvb, pinfo, item, subtree, offset,
		    opt_length, dissect_hf->hf.opt_location_query);
		break;
	case COAP_OPT_OBJECT_SECURITY:
		dissect_coap_opt_object_security(tvb, item, subtree, offset,
		    opt_length, pinfo, coinfo, dissect_hf, code_class);
		break;
	case COAP_OPT_URI_PATH:
		dissect_coap_opt_uri_path(tvb, pinfo, item, subtree, offset,
		    opt_length, coinfo, dissect_hf->hf.opt_uri_path);
		break;
	case COAP_OPT_OBSERVE:
		if (code_class == 0) {
			/* Request */
			dissect_coap_opt_uint(tvb, item, subtree, offset,
			    opt_length, dissect_hf->hf.opt_observe_req);
		} else {
			/* Response */
			dissect_coap_opt_uint(tvb, item, subtree, offset,
			    opt_length, dissect_hf->hf.opt_observe_rsp);
		}
		break;
	case COAP_OPT_HOP_LIMIT:
		dissect_coap_opt_uint(tvb, item, subtree, offset,
		    opt_length, dissect_hf->hf.opt_hop_limit);
		break;
	case COAP_OPT_ACCEPT:
		dissect_coap_opt_accept(tvb, item, subtree, offset,
		    opt_length, dissect_hf->hf.opt_accept);
		break;
	case COAP_OPT_IF_MATCH:
		dissect_coap_opt_hex_string(tvb, pinfo, item, subtree, offset,
		    opt_length, dissect_hf->hf.opt_if_match);
		break;
	case COAP_OPT_URI_QUERY:
		dissect_coap_opt_uri_query(tvb, pinfo, item, subtree, offset,
		    opt_length, coinfo, dissect_hf->hf.opt_uri_query);
		break;
	case COAP_OPT_ECHO:
		dissect_coap_opt_hex_string(tvb, pinfo, item, subtree, offset,
		    opt_length, dissect_hf->hf.opt_echo);
		break;
	case COAP_OPT_REQUEST_TAG:
		dissect_coap_opt_hex_string(tvb, pinfo, item, subtree, offset,
		    opt_length, dissect_hf->hf.opt_request_tag);
		break;
	case COAP_OPT_NO_RESPONSE:
		dissect_coap_opt_uint(tvb, item, subtree, offset,
		    opt_length, dissect_hf->hf.opt_no_response);
		break;
	case COAP_OPT_BLOCK2:
		coinfo->block_option = 2;
		dissect_coap_opt_block(tvb, item, subtree, offset,
		    opt_length, coinfo, dissect_hf);
		break;
	case COAP_OPT_BLOCK1:
		coinfo->block_option = 1;
		dissect_coap_opt_block(tvb, item, subtree, offset,
		    opt_length, coinfo, dissect_hf);
		break;
	case COAP_OPT_QBLOCK2:
		coinfo->block_option = 2;
		dissect_coap_opt_block(tvb, item, subtree, offset,
		    opt_length, coinfo, dissect_hf);
		break;
	case COAP_OPT_QBLOCK1:
		coinfo->block_option = 1;
		dissect_coap_opt_block(tvb, item, subtree, offset,
		    opt_length, coinfo, dissect_hf);
		break;
	case COAP_OPT_IF_NONE_MATCH:
		break;
	case COAP_OPT_EDHOC:
		break;
	case COAP_OPT_SIZE2:
		dissect_coap_opt_uint(tvb, item, subtree, offset,
		    opt_length, dissect_hf->hf.opt_block_size);
		break;
	case COAP_OPT_OCF_CONTENT:
		dissect_coap_opt_ocf_version(tvb, item, subtree, offset,
		    opt_length, dissect_hf->hf.opt_ocf_version);
		break;
	case COAP_OPT_OCF_ACCEPT:
		dissect_coap_opt_ocf_version(tvb, item, subtree, offset,
		    opt_length, dissect_hf->hf.opt_ocf_accept_version);
		break;
	default:
		dissect_coap_opt_hex_string(tvb, pinfo, item, subtree, offset,
		    opt_length, dissect_hf->hf.opt_unknown);
		break;
	}

	return offset + opt_length;
}

/*
 * options dissector.
 * return offset pointing the next of options. (i.e. the top of the paylaod
 * or the end of the data.
 */
int
dissect_coap_options(tvbuff_t *tvb, packet_info *pinfo, proto_tree *coap_tree, gint offset, gint offset_end, guint8 code_class, coap_info *coinfo, coap_common_dissect_t *dissect_hf)
{
	guint  opt_num = 0;
	int    i;
	guint8 endmarker;

	/* loop for dissecting options */
	for (i = 1; offset < offset_end; i++) {
		offset = dissect_coap_options_main(tvb, pinfo, coap_tree,
		    offset, i, &opt_num, offset_end, code_class, coinfo, dissect_hf);
		if (offset == -1)
			return -1;
		if (offset >= offset_end)
			break;
		endmarker = tvb_get_guint8(tvb, offset);
		if (endmarker == 0xff) {
			proto_tree_add_item(coap_tree, dissect_hf->hf.opt_end_marker, tvb, offset, 1, ENC_BIG_ENDIAN);
			offset += 1;
			break;
		}
	}

	return offset;
}

/*
 * CoAP code dissector.
 * return code value and updates the offset
 * */
guint8
dissect_coap_code(tvbuff_t *tvb, proto_tree *tree, gint *offset, coap_common_dissect_t *dissect_hf, guint8 *code_class)
{
	guint8 code;

	proto_tree_add_item(tree, dissect_hf->hf.code, tvb, *offset, 1, ENC_BIG_ENDIAN);
	code = tvb_get_guint8(tvb, *offset);
	*code_class = code >> 5;
	*offset += 1;

	return code;
}

void
dissect_coap_payload(tvbuff_t *tvb, packet_info *pinfo, proto_tree *coap_tree, proto_tree *parent_tree, gint offset, gint offset_end, guint8 code_class, coap_info *coinfo, coap_common_dissect_t *dissect_hf, gboolean oscore)
{
	proto_tree *payload_tree;
	proto_item *payload_item, *length_item;
	tvbuff_t   *payload_tvb;
	guint	    payload_length = offset_end - offset;
	const char *coap_ctype_str_dis;
	http_message_info_t message_info = {0};
	char	    str_payload[80];
	int	    result = 0;

	/* coinfo->ctype_value == DEFAULT_COAP_CTYPE_VALUE: No Content-Format option present */
	if (coinfo->ctype_value == DEFAULT_COAP_CTYPE_VALUE) {
		/*
		* 5.5.2.  Diagnostic Payload
		*
		* If no Content-Format option is given, the payload of responses
		* indicating a client or server error is a brief human-readable
		* diagnostic message, explaining the error situation. This diagnostic
		* message MUST be encoded using UTF-8 [RFC3629], more specifically
		* using Net-Unicode form [RFC5198].
		*/
		if ((code_class >= 4) && (code_class <= 5)) {
			coinfo->ctype_str = "text/plain; charset=utf-8";
			coap_ctype_str_dis = "text/plain";
		} else {
			/* Assume no Content-Format is opaque octet stream */
			coinfo->ctype_str = "application/octet-stream";
			coap_ctype_str_dis = coinfo->ctype_str;
		}
	}
	/* coinfo->ctype_value == 0: Content-Format option present with length 0 */
	else if (coinfo->ctype_value == 0) {
		/* coinfo->ctype_str is already set by option parsing routine */
		coap_ctype_str_dis = "text/plain";
	} else {
		coap_ctype_str_dis = coinfo->ctype_str;
	}

	snprintf(str_payload, sizeof(str_payload),
			"Payload Content-Format: %s%s, Length: %u",
			coinfo->ctype_str, coinfo->ctype_value == DEFAULT_COAP_CTYPE_VALUE ?
			" (no Content-Format)" : "", payload_length);

	payload_item = proto_tree_add_string(coap_tree, dissect_hf->hf.payload,
					     tvb, offset, payload_length,
					     str_payload);
	payload_tree = proto_item_add_subtree(payload_item, dissect_hf->ett.payload);

	proto_tree_add_string(payload_tree, dissect_hf->hf.payload_desc, tvb, offset, 0, coinfo->ctype_str);
	length_item = proto_tree_add_uint(payload_tree, dissect_hf->hf.payload_length, tvb, offset, 0, payload_length);
	proto_item_set_generated(length_item);
	payload_tvb = tvb_new_subset_length(tvb, offset, payload_length);

	message_info.type = HTTP_OTHERS;
	message_info.media_str = wmem_strbuf_get_str(coinfo->uri_str_strbuf);
	/*
	 * The Thread protocol uses application/octet-stream for its
	 * messages, rather than having its own media type for those
	 * messages, as, for example, the Internet Printing Protocol
	 * does.
	 *
	 * Handle "application/octet-stream" specially if this is
	 * being dissected by the "CoAP for Thread Management Framework"
	 * dissector.
	 */
	if (coinfo->is_coap_for_tmf) {
		/*
		 * Try the media type dissector table for CoAP-TMF first.
		 */
		result = dissector_try_string(coap_tmf_media_type_dissector_table,
		    coap_ctype_str_dis, payload_tvb, pinfo, parent_tree,
		    &message_info);
	}
	if (result == 0) {
		/*
		 * That either failed or we didn't try it.
		 * Now try the regular media type table.
		 */
		dissector_try_string(media_type_dissector_table,
		    coap_ctype_str_dis, payload_tvb, pinfo, parent_tree,
		    &message_info);
	}
	if (coinfo->object_security && !oscore) {
		proto_item_set_text(payload_item, "Encrypted OSCORE Data");
		call_dissector_with_data(oscore_handle, payload_tvb, pinfo, parent_tree, coinfo->oscore_info);
	}
}

static guint32
coap_frame_length(tvbuff_t *tvb, guint offset, gint *size)
{
	/*
	 * Decode Len and Extended Length according to
	 * https://tools.ietf.org/html/rfc8323#page-10
	 */
	guint8 len = tvb_get_guint8(tvb, offset) >> 4;
	switch (len) {
	default:
		*size = 1;
		return len;
	case 13:
		if (tvb_reported_length_remaining(tvb, offset) < 2) {
			*size = -1;
			return 0;
		}
		*size = 2;
		return tvb_get_guint8(tvb, offset + 1) + 13;
	case 14:
		if (tvb_reported_length_remaining(tvb, offset) < 3) {
			*size = -1;
			return 0;
		}
		*size = 3;
		return tvb_get_ntohs(tvb, offset + 1) + 269;
	case 15:
		if (tvb_reported_length_remaining(tvb, offset) < 5) {
			*size = -1;
			return 0;
		}
		*size = 5;
		return tvb_get_ntohl(tvb, offset + 1) + 65805;
	}
}

static int
dissect_coap_message(tvbuff_t *tvb, packet_info *pinfo, proto_tree *parent_tree, coap_parent_protocol parent_protocol, gboolean is_coap_for_tmf)
{
	gint              offset = 0;
	proto_item       *coap_root;
	proto_item       *pi;
	proto_tree       *coap_tree;
	gint              length_size = 0;
	guint8            ttype = G_MAXUINT8;
	guint32           token_len;
	guint8            code;
	guint8            code_class;
	guint32           mid = 0;
	gint              coap_length;
	gchar            *coap_token_str;
	coap_info        *coinfo;
	conversation_t   *conversation;
	coap_conv_info   *ccinfo;
	coap_transaction *coap_trans = NULL;
	coap_request_response *coap_req_rsp = NULL;

	// TODO support TCP/WebSocket/TCP with more than one PDU per packet.
	// These probably require a unique coinfo for each.

	/* Allocate information for upper layers */
	coinfo = (coap_info *)p_get_proto_data(wmem_file_scope(), pinfo, proto_coap, 0);

	if (coinfo == NULL)
	{
		coinfo = wmem_new0(wmem_file_scope(), coap_info);
		p_add_proto_data(wmem_file_scope(), pinfo, proto_coap, 0, coinfo);
	}

//	coinfo->parent_protocol = parent_protocol;
	coinfo->is_coap_for_tmf = is_coap_for_tmf;

	/* initialize the CoAP length and the content-Format */
	/*
	 * The length of CoAP message is not specified in the CoAP header using
	 * UDP or WebSockets. The lower layers provide it. For TCP/TLS, an
	 * explicit length is present.
	 */
	coap_length = tvb_reported_length(tvb);
	if (parent_protocol == PARENT_TCP_TLS) {
		token_len = tvb_get_guint8(tvb, offset) & 0xf;
		coap_length = coap_frame_length(tvb, offset, &length_size);
		if (length_size < 0) {
			pinfo->desegment_offset = offset;
			pinfo->desegment_len = DESEGMENT_ONE_MORE_SEGMENT;
			return tvb_reported_length(tvb);
		}
		/*
		 * Length of the whole CoAP frame includes the (Extended) Length fields
		 * (1 to 4 bytes), the Code (1 byte) and token length (normally 0 to 8
		 * bytes), plus everything afterwards.
		 */
		coap_length += 1 + token_len + length_size;
		if (coap_length > tvb_reported_length_remaining(tvb, offset)) {
			pinfo->desegment_offset = offset;
			pinfo->desegment_len = coap_length - tvb_reported_length_remaining(tvb, offset);
			return tvb_reported_length(tvb);
		}
	}
	coinfo->ctype_str = "";
	coinfo->ctype_value = DEFAULT_COAP_CTYPE_VALUE;

	col_set_str(pinfo->cinfo, COL_PROTOCOL, "CoAP");
	col_clear(pinfo->cinfo, COL_INFO);

	coap_root = proto_tree_add_item(parent_tree, proto_coap, tvb, offset, -1, ENC_NA);
	coap_tree = proto_item_add_subtree(coap_root, ett_coap);

	if (parent_protocol == PARENT_OTHER) {
		proto_tree_add_item(coap_tree, hf_coap_version, tvb, offset, 1, ENC_BIG_ENDIAN);

		proto_tree_add_item(coap_tree, hf_coap_ttype, tvb, offset, 1, ENC_BIG_ENDIAN);
		ttype = (tvb_get_guint8(tvb, offset) & COAP_TYPE_MASK) >> 4;

		proto_tree_add_item_ret_uint(coap_tree, hf_coap_token_len, tvb, offset, 1, ENC_BIG_ENDIAN, &token_len);
		offset += 1;

		code = dissect_coap_code(tvb, coap_tree, &offset, &dissect_coap_hf, &code_class);

		proto_tree_add_item(coap_tree, hf_coap_mid, tvb, offset, 2, ENC_BIG_ENDIAN);
		mid = tvb_get_ntohs(tvb, offset);
		offset += 2;

		col_add_fstr(pinfo->cinfo, COL_INFO,
			     "%s, MID:%u, %s",
			     val_to_str(ttype, vals_ttype_short, "Unknown %u"),
			     mid,
			     val_to_str_ext(code, &coap_vals_code_ext, "Unknown %u"));

		/* append the header information */
		proto_item_append_text(coap_root,
				       ", %s, %s, MID:%u",
				       val_to_str(ttype, vals_ttype, "Unknown %u"),
				       val_to_str_ext(code, &coap_vals_code_ext, "Unknown %u"),
				       mid);
	} else {
		guint len = coap_length;
		if (parent_protocol == PARENT_WEBSOCKETS) {
			len = tvb_get_guint8(tvb, offset) >> 4;
			length_size = 1;
		}
		proto_tree_add_uint(coap_tree, hf_coap_length, tvb, offset, length_size, len);

		proto_tree_add_item_ret_uint(coap_tree, hf_coap_token_len, tvb, offset, 1, ENC_BIG_ENDIAN, &token_len);
		offset += length_size;

		code = dissect_coap_code(tvb, coap_tree, &offset, &dissect_coap_hf, &code_class);

		col_append_sep_str(pinfo->cinfo, COL_INFO, NULL,
				   val_to_str_ext(code, &coap_vals_code_ext, "Unknown %u"));

		/* append the header information */
		proto_item_append_text(coap_root,
				       ", %s",
				       val_to_str_ext(code, &coap_vals_code_ext, "Unknown %u"));
	}

	/* initialize the external value */
	coinfo->block_option = 0;
	coinfo->block_number = DEFAULT_COAP_BLOCK_NUMBER;
	coinfo->block_mflag  = 0;
	coinfo->uri_str_strbuf   = wmem_strbuf_create(pinfo->pool);
	coinfo->uri_query_strbuf = wmem_strbuf_create(pinfo->pool);
	 /* Allocate pointers and static elements of oscore_info_t, arrays are allocated only if object security option is found during option parsing */
	coinfo->oscore_info = wmem_new0(pinfo->pool, oscore_info_t);
	coinfo->object_security = FALSE;
	coap_token_str = NULL;

	if (token_len > 0)
	{
		/* This has to be file scope as the token string is stored in the map
		* for conversation lookup */
		coap_token_str = tvb_bytes_to_str_punct(wmem_file_scope(), tvb, offset, token_len, ' ');
		proto_tree_add_item(coap_tree, hf_coap_token,
				    tvb, offset, token_len, ENC_NA);
		offset += token_len;
	}

	/* process options */
	offset = dissect_coap_options(tvb, pinfo, coap_tree, offset, coap_length, code_class, coinfo, &dissect_coap_hf);
	if (offset == -1)
		return tvb_captured_length(tvb);

	/* Use conversations to track state for request/response */
	conversation = find_or_create_conversation_noaddrb(pinfo, (code_class == 0));

	/* Retrieve or create state structure for this conversation */
	ccinfo = (coap_conv_info *)conversation_get_proto_data(conversation, proto_coap);
	if (!ccinfo) {
		/* No state structure - create it */
		ccinfo = wmem_new(wmem_file_scope(), coap_conv_info);
		ccinfo->messages = wmem_map_new(wmem_file_scope(), g_str_hash, g_str_equal);
		conversation_add_proto_data(conversation, proto_coap, ccinfo);
	}

	/* Everything based on tokens */
	if (coap_token_str != NULL) {
		/* Process request/response in conversation */
		if (code != 0) { /* Ignore empty messages */
			/* Try and look up a matching token. If it's the first
			* sight of a request, there shouldn't be one */
			coap_trans = (coap_transaction *)wmem_map_lookup(ccinfo->messages, coap_token_str);
			if (!coap_trans) {
				if ((!PINFO_FD_VISITED(pinfo)) && (code_class == 0)) {
					/* New request - log it */
					coap_trans = wmem_new0(wmem_file_scope(), coap_transaction);
					coap_trans->req_rsp = wmem_map_new(wmem_file_scope(), g_direct_hash, g_direct_equal);
					if (coinfo->uri_str_strbuf) {
						/* Store the URI into CoAP transaction info */
						coap_trans->uri_str_strbuf = wmem_strbuf_new(wmem_file_scope(), wmem_strbuf_get_str(coinfo->uri_str_strbuf));
					}
					if (coinfo->oscore_info) {
						coap_trans->oscore_info = (oscore_info_t *) wmem_memdup(wmem_file_scope(), coinfo->oscore_info, sizeof(oscore_info_t));
						if (coinfo->oscore_info->kid) {
							coap_trans->oscore_info->kid = (guint8 *) wmem_memdup(wmem_file_scope(), coinfo->oscore_info->kid, coinfo->oscore_info->kid_len);
						}
						if (coinfo->oscore_info->kid_context) {
							coap_trans->oscore_info->kid_context = (guint8 *) wmem_memdup(wmem_file_scope(), coinfo->oscore_info->kid_context, coinfo->oscore_info->kid_context_len);
						}
						if (coinfo->oscore_info->piv) {
							coap_trans->oscore_info->request_piv = (guint8 *) wmem_memdup(wmem_file_scope(), coinfo->oscore_info->request_piv, coinfo->oscore_info->request_piv_len);
						}
					}
					wmem_map_insert(ccinfo->messages, coap_token_str, (void *)coap_trans);
				}
			} else {
				if ((code_class >= 2) && (code_class <= 5)) {
					if (coap_trans->uri_str_strbuf) {
						/* Copy the URI stored in matching transaction info into CoAP packet info */
						coinfo->uri_str_strbuf = wmem_strbuf_new(pinfo->pool, wmem_strbuf_get_str(coap_trans->uri_str_strbuf));
					}
					if (coap_trans->oscore_info) {
						/* Copy OSCORE info in matching transaction info into CoAP packet info */
						if (coap_trans->oscore_info->kid) {
							coinfo->oscore_info->kid = (guint8 *) wmem_memdup(pinfo->pool, coap_trans->oscore_info->kid, coap_trans->oscore_info->kid_len);
						}
						coinfo->oscore_info->kid_len = coap_trans->oscore_info->kid_len;

						if (coap_trans->oscore_info->kid_context) {
							coinfo->oscore_info->kid_context = (guint8 *) wmem_memdup(pinfo->pool, coap_trans->oscore_info->kid_context, coap_trans->oscore_info->kid_context_len);
						}
						coinfo->oscore_info->kid_context_len = coap_trans->oscore_info->kid_context_len;

						if (coap_trans->oscore_info->request_piv) {
							coinfo->oscore_info->request_piv = (guint8 *) wmem_memdup(pinfo->pool, coap_trans->oscore_info->request_piv, coap_trans->oscore_info->request_piv_len);
						}
						coinfo->oscore_info->request_piv_len = coap_trans->oscore_info->request_piv_len;
						coinfo->oscore_info->response = TRUE;

					}
				}
			}

			if (coap_trans) {
				coap_req_rsp = (coap_request_response *)wmem_map_lookup(coap_trans->req_rsp, GINT_TO_POINTER(mid));
				if (!PINFO_FD_VISITED(pinfo)) {
					if (!coap_req_rsp) {
						coap_req_rsp = wmem_new0(wmem_file_scope(), coap_request_response);
						wmem_map_insert(coap_trans->req_rsp, GINT_TO_POINTER(mid), (void *)coap_req_rsp);
					}
					if (code_class == 0) {
						/* This is a request */
						if (coap_req_rsp->req_frame == 0) {
							/* Log the first request frame */
							coap_req_rsp->req_frame = pinfo->num;
							coap_req_rsp->req_time = pinfo->abs_ts;
						}
					} else if ((code_class >= 2) && (code_class <= 5)) {
						/* This is a reply */
						if (coap_req_rsp->rsp_frame == 0) {
							/* Log the first matching response frame */
							coap_req_rsp->rsp_frame = pinfo->num;
						}
					}
				}
			}
		}
	}

	/* dissect the payload */
	if (coap_length > offset) {
		if (coinfo->block_number == DEFAULT_COAP_BLOCK_NUMBER) {
			dissect_coap_payload(tvb, pinfo, coap_tree, parent_tree, offset, coap_length,
					     code_class, coinfo, &dissect_coap_hf, FALSE);
		} else {
			proto_tree_add_bytes_format(coap_tree, hf_block_payload, tvb, offset,
						    coap_length - offset, NULL, "Block Payload");
			pi = proto_tree_add_uint(coap_tree, hf_block_length, tvb, offset, 0, coap_length - offset);
			proto_item_set_generated(pi);

			fragment_head *frag_msg = fragment_add_seq_check(&coap_block_reassembly_table, tvb, offset,
									 pinfo, 0, NULL, coinfo->block_number,
									 coap_length - offset, coinfo->block_mflag);
			tvbuff_t *frag_tvb = process_reassembled_data(tvb, offset, pinfo, "Reassembled CoAP blocks",
								      frag_msg, &coap_block_frag_items, NULL, coap_tree);

			if (frag_tvb) {
				dissect_coap_payload(frag_tvb, pinfo, coap_tree, parent_tree, 0, tvb_reported_length(frag_tvb),
						     code_class, coinfo, &dissect_coap_hf, FALSE);
			}
		}
	}

	/* add informations to the packet list */
	if (coap_token_str != NULL)
		col_append_fstr(pinfo->cinfo, COL_INFO, ", TKN:%s", coap_token_str);
	if (coinfo->block_number != DEFAULT_COAP_BLOCK_NUMBER) {
		/* The M bit is used in Block1 Option in a request and in Block2 Option in a response */
		gboolean mflag_is_used = (((coinfo->block_option == 1) && (code_class == 0)) ||
					  ((coinfo->block_option == 2) && (code_class >= 2) && (code_class <= 5)));
		col_append_fstr(pinfo->cinfo, COL_INFO, ", %sBlock #%u",
				(coinfo->block_mflag || !mflag_is_used) ? "" : "End of ", coinfo->block_number);
	}
	if (wmem_strbuf_get_len(coinfo->uri_str_strbuf) > 0) {
		col_append_fstr(pinfo->cinfo, COL_INFO, ", %s", format_text(pinfo->pool, wmem_strbuf_get_str(coinfo->uri_str_strbuf), wmem_strbuf_get_len(coinfo->uri_str_strbuf)));
		/* Add a generated protocol item as well */
		pi = proto_tree_add_string(coap_tree, dissect_coap_hf.hf.opt_uri_path_recon, tvb, 0, 0, wmem_strbuf_get_str(coinfo->uri_str_strbuf));
		proto_item_set_generated(pi);
	}
	if (wmem_strbuf_get_len(coinfo->uri_query_strbuf) > 0)
		col_append_str(pinfo->cinfo, COL_INFO, format_text(pinfo->pool, wmem_strbuf_get_str(coinfo->uri_query_strbuf), wmem_strbuf_get_len(coinfo->uri_query_strbuf)));

	if (coap_req_rsp != NULL) {
		/* Print state tracking in the tree */
		if (code_class == 0) {
			/* This is a request */
			if (coap_req_rsp->rsp_frame) {
				pi = proto_tree_add_uint(coap_tree, hf_coap_response_in,
							 tvb, 0, 0, coap_req_rsp->rsp_frame);
				proto_item_set_generated(pi);
			}
			if ((ttype == TT_CON || ttype == TT_NON) && (coap_req_rsp->req_frame != pinfo->num)) {
				col_append_str(pinfo->cinfo, COL_INFO, " [Retransmission]");
				pi = proto_tree_add_uint(coap_tree, hf_coap_request_resend_in,
							 tvb, 0, 0, coap_req_rsp->req_frame);
				proto_item_set_generated(pi);
				expert_add_info(pinfo, pi, &ei_retransmitted);
			}
		} else if ((code_class >= 2) && (code_class <= 5)) {
			/* This is a reply */
			if (coap_req_rsp->req_frame) {
				nstime_t ns;

				pi = proto_tree_add_uint(coap_tree, hf_coap_response_to,
							 tvb, 0, 0, coap_req_rsp->req_frame);
				proto_item_set_generated(pi);

				nstime_delta(&ns, &pinfo->abs_ts, &coap_req_rsp->req_time);
				pi = proto_tree_add_time(coap_tree, hf_coap_response_time, tvb, 0, 0, &ns);
				proto_item_set_generated(pi);
			}
			if ((ttype == TT_CON || ttype == TT_NON) && (coap_req_rsp->rsp_frame != pinfo->num)) {
				col_append_str(pinfo->cinfo, COL_INFO, " [Retransmission]");
				pi = proto_tree_add_uint(coap_tree, hf_coap_response_resend_in,
							 tvb, 0, 0, coap_req_rsp->rsp_frame);
				proto_item_set_generated(pi);
				expert_add_info(pinfo, pi, &ei_retransmitted);
			}
		}
	}

	if (coap_trans != NULL) {
		if ((code_class >= 2) && (code_class <= 5)) {
			/* This is a reply */
			if (coinfo->object_security && coap_trans->oscore_info) {
				pi = proto_tree_add_bytes(coap_tree, hf_coap_oscore_kid, tvb, 0, coap_trans->oscore_info->kid_len, coap_trans->oscore_info->kid);
				proto_item_set_generated(pi);

				pi = proto_tree_add_bytes(coap_tree, hf_coap_oscore_kid_context, tvb, 0, coap_trans->oscore_info->kid_context_len, coap_trans->oscore_info->kid_context);
				proto_item_set_generated(pi);

				if (coinfo->oscore_info->piv_len) {
					pi = proto_tree_add_bytes(coap_tree, hf_coap_oscore_piv, tvb, 0, coinfo->oscore_info->piv_len, coinfo->oscore_info->piv);
				} else {
					pi = proto_tree_add_bytes(coap_tree, hf_coap_oscore_piv, tvb, 0, coinfo->oscore_info->request_piv_len, coinfo->oscore_info->request_piv);
				}
				proto_item_set_generated(pi);
			}
		}
	}

	return coap_length;
}

static int
dissect_coap_tcp_tls(tvbuff_t *tvb, packet_info *pinfo, proto_tree *tree, void *data _U_)
{
	return dissect_coap_message(tvb, pinfo, tree, PARENT_TCP_TLS, FALSE);
}

static int
dissect_coap_websockets(tvbuff_t *tvb, packet_info *pinfo, proto_tree *tree, void *data _U_)
{
	return dissect_coap_message(tvb, pinfo, tree, PARENT_WEBSOCKETS, FALSE);
}

static int
dissect_coap_other(tvbuff_t *tvb, packet_info *pinfo, proto_tree *tree, void *data _U_)
{
	return dissect_coap_message(tvb, pinfo, tree, PARENT_OTHER, FALSE);
}

static int
dissect_coap_for_tmf(tvbuff_t *tvb, packet_info *pinfo, proto_tree *tree, void *data _U_)
{
	return dissect_coap_message(tvb, pinfo, tree, PARENT_OTHER, TRUE);
}

/*
 * Protocol initialization
 */
void
proto_register_coap(void)
{
	static hf_register_info hf[] = {
		{ &hf_coap_length,
		  { "Length", "coap.length",
		    FT_UINT32, BASE_DEC, NULL, 0,
		    "Length of the CoAP frame, combining Len and Extended Length (if any) fields", HFILL }
		},
		{ &hf_coap_version,
		  { "Version", "coap.version",
		    FT_UINT8, BASE_DEC, NULL, COAP_VERSION_MASK,
		    NULL, HFILL }
		},
		{ &hf_coap_ttype,
		  { "Type", "coap.type",
		    FT_UINT8, BASE_DEC, VALS(vals_ttype), COAP_TYPE_MASK,
		    NULL, HFILL }
		},
		{ &hf_coap_token_len,
		  { "Token Length", "coap.token_len",
		    FT_UINT8, BASE_DEC, NULL, COAP_TOKEN_LEN_MASK,
		    NULL, HFILL }
		},
		{ &hf_coap_token,
		  { "Token", "coap.token",
		    FT_BYTES, BASE_NONE, NULL, 0x0,
		    NULL, HFILL }
		},
		{ &hf_coap_mid,
		  { "Message ID", "coap.mid",
		    FT_UINT16, BASE_DEC, NULL, 0x0,
		    NULL, HFILL }
		},
		{ &hf_coap_response_in,
		  { "Response In", "coap.response_in",
		    FT_FRAMENUM, BASE_NONE, FRAMENUM_TYPE(FT_FRAMENUM_RESPONSE), 0x0,
		    "The response to this CoAP request is in this frame", HFILL }
		},
		{ &hf_coap_response_to,
		  { "Request In", "coap.response_to",
		    FT_FRAMENUM, BASE_NONE, FRAMENUM_TYPE(FT_FRAMENUM_REQUEST), 0x0,
		    "This is a response to the CoAP request in this frame", HFILL }
		},
		{ &hf_coap_response_time,
		  { "Response Time", "coap.response_time",
		    FT_RELATIVE_TIME, BASE_NONE, NULL, 0x0,
		    "The time between the Call and the Reply", HFILL }
		},
		{ &hf_coap_request_resend_in,
		  { "Retransmission of request in", "coap.request_first_in",
		    FT_FRAMENUM, BASE_NONE, NULL, 0x0,
		    "This request was first sent in this frame", HFILL }
		},
		{ &hf_coap_response_resend_in,
		  { "Retransmission of response in", "coap.response_first_in",
		    FT_FRAMENUM, BASE_NONE, NULL, 0x0,
		    "This response was first sent in this frame", HFILL }
		},
		{ &hf_coap_oscore_kid,
		  { "OSCORE Key ID", "coap.oscore_kid", FT_BYTES, BASE_NONE, NULL, 0x0,
		    "Matched OSCORE Key ID", HFILL }
		},
		{ &hf_coap_oscore_kid_context,
		  { "OSCORE Key ID Context", "coap.oscore_kid_context", FT_BYTES, BASE_NONE, NULL, 0x0,
		    "Matched OSCORE Key ID Context", HFILL }
		},
		{ &hf_coap_oscore_piv,
		  { "OSCORE Partial IV", "coap.oscore_piv", FT_BYTES, BASE_NONE, NULL, 0x0,
		    "Matched OSCORE Partial IV", HFILL }
		},
		{ &hf_block_payload,
		  { "Block Payload", "coap.block_payload",
			FT_BYTES, BASE_NONE, NULL, 0x00,
			NULL, HFILL }
		},
		{ &hf_block_length,
		  { "Block Length", "coap.block_length",
			FT_UINT32, BASE_DEC, NULL, 0x00,
			NULL, HFILL }
		},
		{ &hf_blocks,
		  { "Blocks", "coap.blocks",
			FT_NONE, BASE_NONE, NULL, 0x00,
			NULL, HFILL }
		},
		{ &hf_block,
		  { "Block", "coap.block",
			FT_FRAMENUM, BASE_NONE, NULL, 0x00,
			NULL, HFILL }
		},
		{ &hf_block_overlap,
		  { "Block overlap", "coap.block.overlap",
			FT_BOOLEAN, BASE_NONE, NULL, 0x0,
			NULL, HFILL }
		},
		{ &hf_block_overlap_conflicts,
		  { "Block overlapping with conflicting data", "coap.block.overlap.conflicts",
			FT_BOOLEAN, BASE_NONE, NULL, 0x0,
			NULL, HFILL }
		},
		{ &hf_block_multiple_tails,
		  { "Block has multiple tails", "coap.block.multiple_tails",
			FT_BOOLEAN, BASE_NONE, NULL, 0x0,
			NULL, HFILL }
		},
		{ &hf_block_too_long,
		  { "Block too long", "coap.block.too_long",
			FT_BOOLEAN, BASE_NONE, NULL, 0x0,
			NULL, HFILL }
		},
		{ &hf_block_error,
		  { "Block defragmentation error", "coap.block.error",
			FT_FRAMENUM, BASE_NONE, NULL, 0x00,
			NULL, HFILL }
		},
		{ &hf_block_count,
		  { "Block count", "coap.block.count",
			FT_UINT32, BASE_DEC, NULL, 0x00,
			NULL, HFILL }
		},
		{ &hf_block_reassembled_in,
		  { "Reassembled in", "coap.block.reassembled.in",
			FT_FRAMENUM, BASE_NONE, NULL, 0x00,
			NULL, HFILL }
		},
		{ &hf_block_reassembled_length,
		  { "Reassembled block length", "coap.block.reassembled.length",
			FT_UINT32, BASE_DEC, NULL, 0x00,
			NULL, HFILL }
		},
		COAP_COMMON_HF_LIST(dissect_coap_hf, "coap")
	};

	static gint *ett[] = {
		&ett_coap,
		&ett_block,
		&ett_blocks,
		COAP_COMMON_ETT_LIST(dissect_coap_hf)
	};

	static ei_register_info ei[] = {
		{ &ei_retransmitted,
		  { "coap.retransmitted", PI_SEQUENCE, PI_NOTE,
		    "Retransmitted", EXPFILL }
		},
		COAP_COMMON_EI_LIST(dissect_coap_hf, "coap")
	};

	expert_module_t *expert_coap;

	proto_coap = proto_register_protocol("Constrained Application Protocol", "CoAP", "coap");
	proto_register_field_array(proto_coap, hf, array_length(hf));
	proto_register_subtree_array(ett, array_length(ett));
	expert_coap = expert_register_protocol(proto_coap);
	expert_register_field_array(expert_coap, ei, array_length(ei));

	reassembly_table_register (&coap_block_reassembly_table, &addresses_reassembly_table_functions);

	coap_other_handle = register_dissector("coap", dissect_coap_other, proto_coap);
	coap_tcp_tls_handle = register_dissector("coap_tcp_tls", dissect_coap_tcp_tls, proto_coap);
	coap_for_tmf_handle = register_dissector_with_description("coap_for_tmf", "CoAP-TMF", dissect_coap_for_tmf, proto_coap_for_tmf);

	/*
	 * Set up a subdissector table for media types for CoAP-TMF.
	 */
	coap_tmf_media_type_dissector_table =
	    register_dissector_table("coap_tmf_media_type",
		"Internet media type for CoAP-TMF", proto_coap, FT_STRING, BASE_NONE);
}

void
proto_reg_handoff_coap(void)
{
	dissector_handle_t coap_websockets_handle;

	media_type_dissector_table = find_dissector_table("media_type");

	/* UDP and DTLS */
	dissector_add_uint_with_preference("udp.port", DEFAULT_COAP_PORT, coap_other_handle);
	dtls_dissector_add(DEFAULT_COAPS_PORT, coap_other_handle);

	/* TCP, TLS */
	dissector_add_uint_with_preference("tcp.port", DEFAULT_COAP_PORT, coap_tcp_tls_handle);
	ssl_dissector_add(DEFAULT_COAPS_PORT, coap_tcp_tls_handle);
	dissector_add_string("tls.alpn", "coap", coap_tcp_tls_handle);

	/* WebSockets (RFC 8323) */
	coap_websockets_handle = create_dissector_handle(dissect_coap_websockets, proto_coap);
	dissector_add_string("ws.protocol", "coap", coap_websockets_handle);

	/* CoAP for Thread Management Framework */
	dissector_add_for_decode_as("udp.port", coap_for_tmf_handle);

	oscore_handle = find_dissector("oscore");
}

/*
 * Editor modelines  -  https://www.wireshark.org/tools/modelines.html
 *
 * Local variables:
 * c-basic-offset: 8
 * tab-width: 8
 * indent-tabs-mode: t
 * End:
 *
 * vi: set shiftwidth=8 tabstop=8 noexpandtab:
 * :indentSize=8:tabSize=8:noTabs=false:
 */