forked from osmocom/wireshark
406 lines
6.6 KiB
C
406 lines
6.6 KiB
C
/*
|
|
* Wireshark - Network traffic analyzer
|
|
* By Gerald Combs <gerald@wireshark.org>
|
|
* Copyright 2001 Gerald Combs
|
|
*
|
|
*
|
|
* SPDX-License-Identifier: GPL-2.0-or-later
|
|
*/
|
|
|
|
#include "syntax-tree.h"
|
|
#include "sttype-test.h"
|
|
|
|
typedef struct {
|
|
guint32 magic;
|
|
test_op_t op;
|
|
stnode_t *val1;
|
|
stnode_t *val2;
|
|
} test_t;
|
|
|
|
#define TEST_MAGIC 0xab9009ba
|
|
|
|
static gpointer
|
|
test_new(gpointer junk)
|
|
{
|
|
test_t *test;
|
|
|
|
ws_assert(junk == NULL);
|
|
|
|
test = g_new(test_t, 1);
|
|
|
|
test->magic = TEST_MAGIC;
|
|
test->op = TEST_OP_UNINITIALIZED;
|
|
test->val1 = NULL;
|
|
test->val2 = NULL;
|
|
|
|
return test;
|
|
}
|
|
|
|
static gpointer
|
|
test_dup(gconstpointer data)
|
|
{
|
|
const test_t *org = data;
|
|
test_t *test;
|
|
|
|
test = test_new(NULL);
|
|
test->op = org->op;
|
|
test->val1 = stnode_dup(org->val1);
|
|
test->val2 = stnode_dup(org->val1);
|
|
|
|
return test;
|
|
}
|
|
|
|
static void
|
|
test_free(gpointer value)
|
|
{
|
|
test_t *test = value;
|
|
ws_assert_magic(test, TEST_MAGIC);
|
|
|
|
if (test->val1)
|
|
stnode_free(test->val1);
|
|
if (test->val2)
|
|
stnode_free(test->val2);
|
|
|
|
g_free(test);
|
|
}
|
|
|
|
static const char *
|
|
test_todisplay(test_op_t op)
|
|
{
|
|
const char *s = "<notset>";
|
|
|
|
switch(op) {
|
|
case TEST_OP_EXISTS:
|
|
s = "<exists>";
|
|
break;
|
|
case TEST_OP_NOT:
|
|
s = "!";
|
|
break;
|
|
case TEST_OP_AND:
|
|
s = "&&";
|
|
break;
|
|
case TEST_OP_OR:
|
|
s = "||";
|
|
break;
|
|
case TEST_OP_ALL_EQ:
|
|
s = "===";
|
|
break;
|
|
case TEST_OP_ANY_EQ:
|
|
s = "==";
|
|
break;
|
|
case TEST_OP_ALL_NE:
|
|
s = "!=";
|
|
break;
|
|
case TEST_OP_ANY_NE:
|
|
s = "~=";
|
|
break;
|
|
case TEST_OP_GT:
|
|
s = ">";
|
|
break;
|
|
case TEST_OP_GE:
|
|
s = ">=";
|
|
break;
|
|
case TEST_OP_LT:
|
|
s = "<";
|
|
break;
|
|
case TEST_OP_LE:
|
|
s = "<=";
|
|
break;
|
|
case OP_BITWISE_AND:
|
|
s = "&";
|
|
break;
|
|
case OP_ADD:
|
|
s = "+";
|
|
break;
|
|
case OP_UNARY_MINUS:
|
|
case OP_SUBTRACT:
|
|
s = "-";
|
|
break;
|
|
case OP_MULTIPLY:
|
|
s = "*";
|
|
break;
|
|
case OP_DIVIDE:
|
|
s = "/";
|
|
break;
|
|
case OP_MODULO:
|
|
s = "%";
|
|
break;
|
|
case TEST_OP_NOTZERO:
|
|
s = "<notzero>";
|
|
break;
|
|
case TEST_OP_CONTAINS:
|
|
s = "contains";
|
|
break;
|
|
case TEST_OP_MATCHES:
|
|
s = "matches";
|
|
break;
|
|
case TEST_OP_IN:
|
|
s = "in";
|
|
break;
|
|
case TEST_OP_UNINITIALIZED:
|
|
s = "<uninitialized>";
|
|
break;
|
|
}
|
|
return s;
|
|
}
|
|
|
|
static const char *
|
|
test_todebug(test_op_t op)
|
|
{
|
|
const char *s = "<notset>";
|
|
|
|
switch(op) {
|
|
case TEST_OP_EXISTS:
|
|
s = "TEST_EXISTS";
|
|
break;
|
|
case TEST_OP_NOT:
|
|
s = "TEST_NOT";
|
|
break;
|
|
case TEST_OP_AND:
|
|
s = "TEST_AND";
|
|
break;
|
|
case TEST_OP_OR:
|
|
s = "TEST_OR";
|
|
break;
|
|
case TEST_OP_ALL_EQ:
|
|
s = "TEST_ALL_EQ";
|
|
break;
|
|
case TEST_OP_ANY_EQ:
|
|
s = "TEST_ANY_EQ";
|
|
break;
|
|
case TEST_OP_ALL_NE:
|
|
s = "TEST_ALL_NE";
|
|
break;
|
|
case TEST_OP_ANY_NE:
|
|
s = "TEST_ANY_NE";
|
|
break;
|
|
case TEST_OP_GT:
|
|
s = "TEST_GT";
|
|
break;
|
|
case TEST_OP_GE:
|
|
s = "TEST_GE";
|
|
break;
|
|
case TEST_OP_LT:
|
|
s = "TEST_LT";
|
|
break;
|
|
case TEST_OP_LE:
|
|
s = "TEST_LE";
|
|
break;
|
|
case OP_BITWISE_AND:
|
|
s = "OP_BITWISE_AND";
|
|
break;
|
|
case OP_UNARY_MINUS:
|
|
s = "OP_UNARY_MINUS";
|
|
break;
|
|
case OP_ADD:
|
|
s = "OP_ADD";
|
|
break;
|
|
case OP_SUBTRACT:
|
|
s = "OP_SUBTRACT";
|
|
break;
|
|
case OP_MULTIPLY:
|
|
s = "OP_MULTIPLY";
|
|
break;
|
|
case OP_DIVIDE:
|
|
s = "OP_DIVIDE";
|
|
break;
|
|
case OP_MODULO:
|
|
s = "OP_MODULO";
|
|
break;
|
|
case TEST_OP_NOTZERO:
|
|
s = "TEST_NOTZERO";
|
|
break;
|
|
case TEST_OP_CONTAINS:
|
|
s = "TEST_CONTAINS";
|
|
break;
|
|
case TEST_OP_MATCHES:
|
|
s = "TEST_MATCHES";
|
|
break;
|
|
case TEST_OP_IN:
|
|
s = "TEST_IN";
|
|
break;
|
|
case TEST_OP_UNINITIALIZED:
|
|
s = "<uninitialized>";
|
|
break;
|
|
}
|
|
return s;
|
|
}
|
|
|
|
static char *
|
|
test_tostr(const void *value, gboolean pretty)
|
|
{
|
|
const test_t *test = value;
|
|
ws_assert_magic(test, TEST_MAGIC);
|
|
const char *s;
|
|
|
|
if (pretty)
|
|
s = test_todisplay(test->op);
|
|
else
|
|
s = test_todebug(test->op);
|
|
return g_strdup(s);
|
|
}
|
|
|
|
static int
|
|
num_operands(test_op_t op)
|
|
{
|
|
switch(op) {
|
|
case TEST_OP_UNINITIALIZED:
|
|
break;
|
|
case TEST_OP_EXISTS:
|
|
case TEST_OP_NOT:
|
|
case TEST_OP_NOTZERO:
|
|
case OP_UNARY_MINUS:
|
|
return 1;
|
|
case TEST_OP_AND:
|
|
case TEST_OP_OR:
|
|
case TEST_OP_ALL_EQ:
|
|
case TEST_OP_ANY_EQ:
|
|
case TEST_OP_ALL_NE:
|
|
case TEST_OP_ANY_NE:
|
|
case TEST_OP_GT:
|
|
case TEST_OP_GE:
|
|
case TEST_OP_LT:
|
|
case TEST_OP_LE:
|
|
case OP_BITWISE_AND:
|
|
case OP_ADD:
|
|
case OP_SUBTRACT:
|
|
case OP_MULTIPLY:
|
|
case OP_DIVIDE:
|
|
case OP_MODULO:
|
|
case TEST_OP_CONTAINS:
|
|
case TEST_OP_MATCHES:
|
|
case TEST_OP_IN:
|
|
return 2;
|
|
}
|
|
ws_assert_not_reached();
|
|
return -1;
|
|
}
|
|
|
|
|
|
void
|
|
sttype_test_set1(stnode_t *node, test_op_t op, stnode_t *val1)
|
|
{
|
|
test_t *test = stnode_data(node);
|
|
ws_assert_magic(test, TEST_MAGIC);
|
|
|
|
ws_assert(num_operands(op) == 1);
|
|
test->op = op;
|
|
test->val1 = val1;
|
|
test->val2 = NULL;
|
|
}
|
|
|
|
void
|
|
sttype_test_set2(stnode_t *node, test_op_t op, stnode_t *val1, stnode_t *val2)
|
|
{
|
|
test_t *test = stnode_data(node);
|
|
ws_assert_magic(test, TEST_MAGIC);
|
|
|
|
ws_assert(num_operands(op) == 2);
|
|
test->op = op;
|
|
test->val1 = val1;
|
|
test->val2 = val2;
|
|
}
|
|
|
|
void
|
|
sttype_test_set1_args(stnode_t *node, stnode_t *val1)
|
|
{
|
|
test_t *test;
|
|
|
|
test = (test_t*)stnode_data(node);
|
|
ws_assert_magic(test, TEST_MAGIC);
|
|
|
|
ws_assert(num_operands(test->op) == 1);
|
|
test->val1 = val1;
|
|
test->val2 = NULL;
|
|
}
|
|
|
|
void
|
|
sttype_test_set2_args(stnode_t *node, stnode_t *val1, stnode_t *val2)
|
|
{
|
|
test_t *test;
|
|
|
|
test = (test_t*)stnode_data(node);
|
|
ws_assert_magic(test, TEST_MAGIC);
|
|
|
|
ws_assert(num_operands(test->op) == 2);
|
|
test->val1 = val1;
|
|
test->val2 = val2;
|
|
}
|
|
|
|
void
|
|
sttype_test_set_op(stnode_t *node, test_op_t op)
|
|
{
|
|
test_t *test = stnode_data(node);
|
|
ws_assert_magic(test, TEST_MAGIC);
|
|
ws_assert(test->op == TEST_OP_UNINITIALIZED);
|
|
test->op = op;
|
|
}
|
|
|
|
test_op_t
|
|
sttype_test_get_op(stnode_t *node)
|
|
{
|
|
ws_assert_magic(node, TEST_MAGIC);
|
|
return ((test_t *)node)->op;
|
|
}
|
|
|
|
void
|
|
sttype_test_get(stnode_t *node, test_op_t *p_op, stnode_t **p_val1, stnode_t **p_val2)
|
|
{
|
|
test_t *test = stnode_data(node);
|
|
ws_assert_magic(test, TEST_MAGIC);
|
|
|
|
if (p_op)
|
|
*p_op = test->op;
|
|
if (p_val1)
|
|
*p_val1 = test->val1;
|
|
if (p_val2)
|
|
*p_val2 = test->val2;
|
|
}
|
|
|
|
void
|
|
sttype_register_test(void)
|
|
{
|
|
static sttype_t test_type = {
|
|
STTYPE_TEST,
|
|
"TEST",
|
|
test_new,
|
|
test_free,
|
|
test_dup,
|
|
test_tostr
|
|
};
|
|
/* XXX Bitwise ops are not "tests". */
|
|
static sttype_t bitwise_type = {
|
|
STTYPE_BITWISE,
|
|
"BITWISE",
|
|
test_new,
|
|
test_free,
|
|
test_dup,
|
|
test_tostr
|
|
};
|
|
static sttype_t arithmetic_type = {
|
|
STTYPE_ARITHMETIC,
|
|
"ARITHMETIC",
|
|
test_new,
|
|
test_free,
|
|
test_dup,
|
|
test_tostr
|
|
};
|
|
|
|
sttype_register(&test_type);
|
|
sttype_register(&bitwise_type);
|
|
sttype_register(&arithmetic_type);
|
|
}
|
|
|
|
/*
|
|
* 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:
|
|
*/
|