Adding upstream version 4.2.2.upstream/4.2.2

Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>

1 files changed, 272 insertions, 0 deletions

diff --git a/epan/ftypes/ftype-double.c b/epan/ftypes/ftype-double.c
new file mode 100644
index 0000000..4bec884
--- /dev/null
+++ b/epan/ftypes/ftype-double.c
@@ -0,0 +1,272 @@
+/*
+ * Wireshark - Network traffic analyzer
+ * By Gerald Combs <gerald@wireshark.org>
+ * Copyright 2001 Gerald Combs
+ *
+ * SPDX-License-Identifier: GPL-2.0-or-later
+ */
+
+#include "config.h"
+
+#include <stdio.h>
+#include <ftypes-int.h>
+#include <math.h>
+#include <errno.h>
+#include <float.h>
+
+#include "strutil.h"
+
+static void
+double_fvalue_new(fvalue_t *fv)
+{
+	fv->value.floating = 0.0;
+}
+
+static void
+double_fvalue_set_floating(fvalue_t *fv, double value)
+{
+	fv->value.floating = value;
+}
+
+static double
+value_get_floating(fvalue_t *fv)
+{
+	return fv->value.floating;
+}
+
+static bool
+val_from_literal(fvalue_t *fv, const char *s, bool allow_partial_value _U_, char **err_msg)
+{
+	char    *endptr = NULL;
+
+	fv->value.floating = g_ascii_strtod(s, &endptr);
+
+	if (endptr == s || *endptr != '\0') {
+		/* This isn't a valid number. */
+		if (err_msg != NULL)
+			*err_msg = ws_strdup_printf("\"%s\" is not a valid floating-point number.", s);
+		return false;
+	}
+	if (errno == ERANGE) {
+		if (fv->value.floating == 0) {
+			if (err_msg != NULL)
+				*err_msg = ws_strdup_printf("\"%s\" causes floating-point underflow.", s);
+		}
+		else if (fv->value.floating == HUGE_VAL) {
+			if (err_msg != NULL)
+				*err_msg = ws_strdup_printf("\"%s\" causes floating-point overflow.", s);
+		}
+		else {
+			if (err_msg != NULL)
+				*err_msg = ws_strdup_printf("\"%s\" is not a valid floating-point number.",
+				    s);
+		}
+		return false;
+	}
+
+	return true;
+}
+
+static char *
+float_val_to_repr(wmem_allocator_t *scope, const fvalue_t *fv, ftrepr_t rtype, int field_display _U_)
+{
+	char *buf = wmem_alloc(scope, G_ASCII_DTOSTR_BUF_SIZE);
+	if (rtype == FTREPR_DFILTER)
+		g_ascii_dtostr(buf, G_ASCII_DTOSTR_BUF_SIZE, fv->value.floating);
+	else
+		g_ascii_formatd(buf, G_ASCII_DTOSTR_BUF_SIZE, "%." G_STRINGIFY(FLT_DIG) "g", fv->value.floating);
+	return buf;
+}
+
+static char *
+double_val_to_repr(wmem_allocator_t *scope, const fvalue_t *fv, ftrepr_t rtype, int field_display _U_)
+{
+	char *buf = wmem_alloc(scope, G_ASCII_DTOSTR_BUF_SIZE);
+	if (rtype == FTREPR_DFILTER)
+		g_ascii_dtostr(buf, G_ASCII_DTOSTR_BUF_SIZE, fv->value.floating);
+	else
+		g_ascii_formatd(buf, G_ASCII_DTOSTR_BUF_SIZE, "%." G_STRINGIFY(DBL_DIG) "g", fv->value.floating);
+	return buf;
+}
+
+static enum ft_result
+val_unary_minus(fvalue_t * dst, const fvalue_t *src, char **err_ptr _U_)
+{
+	dst->value.floating = -src->value.floating;
+	return FT_OK;
+}
+
+static enum ft_result
+val_add(fvalue_t * dst, const fvalue_t *a, const fvalue_t *b, char **err_ptr _U_)
+{
+	dst->value.floating = a->value.floating + b->value.floating;
+	return FT_OK;
+}
+
+static enum ft_result
+val_subtract(fvalue_t * dst, const fvalue_t *a, const fvalue_t *b, char **err_ptr _U_)
+{
+	dst->value.floating = a->value.floating - b->value.floating;
+	return FT_OK;
+}
+
+static enum ft_result
+val_multiply(fvalue_t * dst, const fvalue_t *a, const fvalue_t *b, char **err_ptr _U_)
+{
+	dst->value.floating = a->value.floating * b->value.floating;
+	return FT_OK;
+}
+
+static enum ft_result
+val_divide(fvalue_t * dst, const fvalue_t *a, const fvalue_t *b, char **err_ptr _U_)
+{
+	dst->value.floating = a->value.floating / b->value.floating;
+	return FT_OK;
+}
+
+static enum ft_result
+cmp_order(const fvalue_t *a, const fvalue_t *b, int *cmp)
+{
+	if (a->value.floating < b->value.floating)
+		*cmp = -1;
+	else if (a->value.floating > b->value.floating)
+		*cmp = 1;
+	else
+		*cmp = 0;
+	return FT_OK;
+}
+
+static bool
+val_is_zero(const fvalue_t *fv_a)
+{
+	return fv_a->value.floating == 0;
+}
+
+static bool
+val_is_negative(const fvalue_t *fv_a)
+{
+	return fv_a->value.floating < 0;
+}
+
+static unsigned
+val_hash(const fvalue_t *fv)
+{
+	return g_double_hash(&fv->value.floating);
+}
+
+void
+ftype_register_double(void)
+{
+
+	static ftype_t float_type = {
+		FT_FLOAT,			/* ftype */
+		"FT_FLOAT",			/* name */
+		"Floating point (single-precision)", /* pretty_name */
+		0,				/* wire_size */
+		double_fvalue_new,		/* new_value */
+		NULL,				/* copy_value */
+		NULL,				/* free_value */
+		val_from_literal,		/* val_from_literal */
+		NULL,				/* val_from_string */
+		NULL,				/* val_from_charconst */
+		float_val_to_repr,		/* val_to_string_repr */
+
+		NULL,				/* val_to_uinteger64 */
+		NULL,				/* val_to_sinteger64 */
+
+		{ .set_value_floating = double_fvalue_set_floating },		/* union set_value */
+		{ .get_value_floating = value_get_floating },	/* union get_value */
+
+		cmp_order,
+		NULL,				/* cmp_contains */
+		NULL,				/* cmp_matches */
+
+		val_hash,			/* hash */
+		val_is_zero,			/* is_zero */
+		val_is_negative,		/* is_negative */
+		NULL,				/* len */
+		NULL,				/* slice */
+		NULL,				/* bitwise_and */
+		val_unary_minus,		/* unary_minus */
+		val_add,			/* add */
+		val_subtract,			/* subtract */
+		val_multiply,			/* multiply */
+		val_divide,			/* divide */
+		NULL,				/* modulo */
+	};
+
+	static ftype_t double_type = {
+		FT_DOUBLE,			/* ftype */
+		"FT_DOUBLE",			/* name */
+		"Floating point (double-precision)", /* pretty_name */
+		0,				/* wire_size */
+		double_fvalue_new,		/* new_value */
+		NULL,				/* copy_value */
+		NULL,				/* free_value */
+		val_from_literal,		/* val_from_literal */
+		NULL,				/* val_from_string */
+		NULL,				/* val_from_charconst */
+		double_val_to_repr,		/* val_to_string_repr */
+
+		NULL,				/* val_to_uinteger64 */
+		NULL,				/* val_to_sinteger64 */
+
+		{ .set_value_floating = double_fvalue_set_floating },		/* union set_value */
+		{ .get_value_floating = value_get_floating },	/* union get_value */
+
+		cmp_order,
+		NULL,				/* cmp_contains */
+		NULL,				/* cmp_matches */
+
+		val_hash,			/* hash */
+		val_is_zero,			/* is_zero */
+		val_is_negative,		/* is_negative */
+		NULL,				/* len */
+		NULL,				/* slice */
+		NULL,				/* bitwise_and */
+		val_unary_minus,		/* unary_minus */
+		val_add,			/* add */
+		val_subtract,			/* subtract */
+		val_multiply,			/* multiply */
+		val_divide,			/* divide */
+		NULL,				/* modulo */
+	};
+
+	ftype_register(FT_FLOAT, &float_type);
+	ftype_register(FT_DOUBLE, &double_type);
+}
+
+void
+ftype_register_pseudofields_double(int proto)
+{
+	static int hf_ft_float;
+	static int hf_ft_double;
+
+	static hf_register_info hf_ftypes[] = {
+		{ &hf_ft_float,
+		    { "FT_FLOAT", "_ws.ftypes.float",
+			FT_FLOAT, BASE_NONE, NULL, 0x00,
+			NULL, HFILL }
+		},
+		{ &hf_ft_double,
+		    { "FT_DOUBLE", "_ws.ftypes.double",
+			FT_DOUBLE, BASE_NONE, NULL, 0x00,
+			NULL, HFILL }
+		},
+	};
+
+	proto_register_field_array(proto, hf_ftypes, array_length(hf_ftypes));
+}
+
+/*
+ * 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:
+ */