amxp_expr_priv.h File Reference

#include <amxc/amxc_macros.h>
#include <amxp/amxp_expression.h>

Go to the source code of this file.

Data Structures
struct	_amxp_txt
struct	_amxp_expr_node

Macros
#define	__AMXO_EXPR_PRIV_H__

Typedefs
typedef struct _amxp_txt	amxp_txt_t
typedef enum _amxp_expr_node_type	amxp_expr_node_type_t
typedef enum _amxp_expr_comp	amxp_expr_comp_t

Enumerations
enum	amxp_expr_tokens_t { token_eof }
enum	_amxp_expr_node_type {   amxp_expr_compare_oper , amxp_expr_value , amxp_expr_value_func , amxp_expr_bool_func ,   amxp_expr_field , amxp_expr_not , amxp_expr_and , amxp_expr_or }
enum	_amxp_expr_comp {   amxp_expr_comp_equal , amxp_expr_comp_not_equal , amxp_expr_comp_lesser , amxp_expr_comp_bigger ,   amxp_expr_comp_lesser_equal , amxp_expr_comp_bigger_equal , amxp_expr_comp_matches , amxp_expr_comp_starts_with ,   amxp_expr_comp_in , amxp_expr_comp_contains , amxp_expr_comp_equals_ignorecase , amxp_expr_comp_ends_with }

Functions
PRIVATE void	amxp_expr_create_lex (amxp_expr_t *expr)
PRIVATE void	amxp_expr_destroy_lex (amxp_expr_t *expr)
PRIVATE void	amxp_expr_msg (amxp_expr_t *expr, const char *format,...) __attribute__((format(printf
PRIVATE void PRIVATE int	amxp_expr_printf (const char *format,...) __attribute__((format(printf
PRIVATE void PRIVATE int PRIVATE bool	amxp_expr_compare (amxp_expr_t *expr, amxc_var_t *lvalue, amxc_var_t *rvalue, amxp_expr_comp_t comperator)
PRIVATE amxp_expr_status_t	amxp_expr_call_value_func (amxp_expr_t *expr, const char *func, amxc_var_t *args, amxc_var_t *ret)
PRIVATE bool	amxp_expr_call_bool_func (amxp_expr_t *expr, const char *func, amxc_var_t *args)
PRIVATE amxp_expr_status_t	amxp_expr_get_field (amxp_expr_t *expr, amxc_var_t *var, const char *path)
PRIVATE void	amxp_expr_node_new (amxp_expr_node_t **node, amxp_expr_node_type_t type)
PRIVATE void	amxp_expr_node_delete (amxp_expr_node_t **node)
PRIVATE void	amxp_expr_node_push (amxc_lstack_t *stack, amxp_expr_node_t *node)
PRIVATE amxp_expr_node_t *	amxp_expr_node_pop (amxc_lstack_t *stack)
PRIVATE void	amxp_expr_node_set_left (amxp_expr_node_t *node, amxp_expr_node_t *left)
PRIVATE void	amxp_expr_node_set_right (amxp_expr_node_t *node, amxp_expr_node_t *right)
PRIVATE void	amxp_expr_node_set_value (amxp_expr_node_t *node, amxc_var_t *value)
PRIVATE void	amxp_expr_node_set_function (amxp_expr_node_t *node, char *func_name)
PRIVATE void	amxp_expr_node_set_field (amxp_expr_node_t *node, char *field)
PRIVATE void	amxp_expr_node_set_compop (amxp_expr_node_t *node, amxp_expr_comp_t comop)
PRIVATE void	amxp_expr_node_add_value (amxp_expr_node_t *node, amxp_expr_node_t *value)
PRIVATE amxp_expr_node_t *	amxp_expr_get_node (amxp_expr_t *expr)
PRIVATE amxc_var_t *	amxp_expr_node_get_value (amxp_expr_t *expr, amxp_expr_node_t *node)
PRIVATE bool	amxp_expr_node_eval (amxp_expr_t *expr, amxp_expr_node_t *node)
PRIVATE void	amxp_expr_node_dump (amxp_expr_t *expr, amxp_expr_node_t *node, uint32_t level, uint32_t parent_id)

Macro Definition Documentation

__AMXO_EXPR_PRIV_H__

#define __AMXO_EXPR_PRIV_H__

Definition at line 56 of file amxp_expr_priv.h.

Typedef Documentation

amxp_expr_comp_t

typedef enum _amxp_expr_comp amxp_expr_comp_t

amxp_expr_node_type_t

typedef enum _amxp_expr_node_type amxp_expr_node_type_t

amxp_txt_t

typedef struct _amxp_txt amxp_txt_t

Enumeration Type Documentation

_amxp_expr_comp

enum _amxp_expr_comp

Enumerator
amxp_expr_comp_equal
amxp_expr_comp_not_equal
amxp_expr_comp_lesser
amxp_expr_comp_bigger
amxp_expr_comp_lesser_equal
amxp_expr_comp_bigger_equal
amxp_expr_comp_matches
amxp_expr_comp_starts_with
amxp_expr_comp_in
amxp_expr_comp_contains
amxp_expr_comp_equals_ignorecase
amxp_expr_comp_ends_with

Definition at line 86 of file amxp_expr_priv.h.

                             {
    amxp_expr_comp_equal,
    amxp_expr_comp_not_equal,
    amxp_expr_comp_lesser,
    amxp_expr_comp_bigger,
    amxp_expr_comp_lesser_equal,
    amxp_expr_comp_bigger_equal,
    amxp_expr_comp_matches,
    amxp_expr_comp_starts_with,
    amxp_expr_comp_in,
    amxp_expr_comp_contains,
    amxp_expr_comp_equals_ignorecase,
    amxp_expr_comp_ends_with,
} amxp_expr_comp_t;

_amxp_expr_node_type

enum _amxp_expr_node_type

Enumerator
amxp_expr_compare_oper
amxp_expr_value
amxp_expr_value_func
amxp_expr_bool_func
amxp_expr_field
amxp_expr_not
amxp_expr_and
amxp_expr_or

Definition at line 75 of file amxp_expr_priv.h.

                                  {
    amxp_expr_compare_oper,
    amxp_expr_value,
    amxp_expr_value_func,
    amxp_expr_bool_func,
    amxp_expr_field,
    amxp_expr_not,
    amxp_expr_and,
    amxp_expr_or
} amxp_expr_node_type_t;

amxp_expr_tokens_t

enum amxp_expr_tokens_t

Enumerator
token_eof

Definition at line 66 of file amxp_expr_priv.h.

                        {
    token_eof
};

Function Documentation

amxp_expr_call_bool_func()

PRIVATE bool amxp_expr_call_bool_func	(	amxp_expr_t *	expr,
		const char *	func,
		amxc_var_t *	args
	)

Definition at line 586 of file amxp_expression_main.c.

                                                {
    int retval = false;
    amxc_htable_it_t* it = amxc_htable_get(&bool_funcs, func);
    amxp_expr_bfunc_t* fn = amxc_htable_it_get_data(it, amxp_expr_bfunc_t, hit);
 
    expr->status = amxp_expr_status_function_not_found;
    when_null(it, exit);
    expr->status = amxp_expr_status_ok;
    if(expr->verify) {
        retval = true;
    } else {
        retval = fn->fn(expr, args);
    }
 
exit:
    return retval;
}

amxp_expr_call_value_func()

PRIVATE amxp_expr_status_t amxp_expr_call_value_func	(	amxp_expr_t *	expr,
		const char *	func,
		amxc_var_t *	args,
		amxc_var_t *	ret
	)

Definition at line 567 of file amxp_expression_main.c.

                                                              {
    amxc_htable_it_t* it = amxc_htable_get(&value_funcs, func);
    amxp_expr_vfunc_t* fn = amxc_htable_it_get_data(it, amxp_expr_vfunc_t, hit);
 
    expr->status = amxp_expr_status_function_not_found;
    when_null(it, exit);
    if(expr->verify) {
        expr->status = amxp_expr_status_ok;
    } else {
        expr->status = fn->fn(expr, args, ret);
    }
 
exit:
    return expr->status;
}

amxp_expr_compare()

PRIVATE void PRIVATE int PRIVATE bool amxp_expr_compare	(	amxp_expr_t *	expr,
		amxc_var_t *	lvalue,
		amxc_var_t *	rvalue,
		amxp_expr_comp_t	comperator
	)

Definition at line 519 of file amxp_expression_main.c.

                                                    {
    int result = 0;
    bool retval = false;
 
    if((comperator != amxp_expr_comp_in) &&
       (comperator != amxp_expr_comp_starts_with) &&
       (comperator != amxp_expr_comp_ends_with) &&
       (comperator != amxp_expr_comp_contains)) {
        if(!amxp_expr_are_simple_types(lvalue, rvalue)) {
            expr->status = amxp_expr_status_invalid_value;
            goto exit;
        }
    }
 
    switch(comperator) {
    case amxp_expr_comp_matches:
        retval = amxp_expr_match_regexp(expr, lvalue, rvalue);
        break;
    case amxp_expr_comp_starts_with:
    case amxp_expr_comp_ends_with:
        retval = amxp_expr_string_head_tail_check(lvalue, rvalue, comperator);
        break;
    case amxp_expr_comp_in:
        retval = amxp_expr_in(expr, lvalue, rvalue);
        break;
    case amxp_expr_comp_contains:
        retval = amxp_expr_in(expr, rvalue, lvalue);
        break;
    case amxp_expr_comp_equals_ignorecase:
        retval = amxp_expr_equals_ignorecase(rvalue, lvalue);
        break;
    default:
        amxc_var_compare(lvalue, rvalue, &result);
        retval = amxp_expr_comperator(result, comperator);
        break;
    }
 
    if(expr->verify) {
        retval = true;
    }
 
exit:
    return retval;
}

amxp_expr_create_lex()

PRIVATE void amxp_expr_create_lex

(

amxp_expr_t *

expr

)

amxp_expr_destroy_lex()

PRIVATE void amxp_expr_destroy_lex

(

amxp_expr_t *

expr

)

amxp_expr_get_field()

PRIVATE amxp_expr_status_t amxp_expr_get_field	(	amxp_expr_t *	expr,
		amxc_var_t *	var,
		const char *	path
	)

Definition at line 606 of file amxp_expression_main.c.

                                                         {
    amxp_expr_status_t retval = amxp_expr_status_unknown_error;
    amxp_expr_get_field_t fn = expr->get_field;
 
    amxc_var_clean(value);
    if(expr->verify) {
        amxc_var_set(bool, value, true);
        retval = amxp_expr_status_ok;
        goto exit;
    }
 
    if(fn != NULL) {
        retval = fn(expr, value, path, expr->priv);
    }
 
    if(amxc_var_is_null(value)) {
        retval = amxp_expr_status_field_not_found;
        amxp_expr_msg(expr, "Field not found - %s -", path);
    }
    expr->status = retval;
 
exit:
    return retval;
}

amxp_expr_get_node()

PRIVATE amxp_expr_node_t* amxp_expr_get_node

(

amxp_expr_t *

expr

)

Definition at line 189 of file amxp_expression_node.c.

                                                        {
    amxp_expr_node_t* node = NULL;
    amxc_llist_it_t* it = amxc_llist_get_first(&expr->nodes);
    when_null(it, exit);
 
    node = amxc_container_of(it, amxp_expr_node_t, it);
 
exit:
    return node;
}

amxp_expr_msg()

PRIVATE void amxp_expr_msg	(	amxp_expr_t *	expr,
		const char *	format,
			...
	)

amxp_expr_node_add_value()

PRIVATE void amxp_expr_node_add_value	(	amxp_expr_node_t *	node,
		amxp_expr_node_t *	value
	)

Definition at line 185 of file amxp_expression_node.c.

                                                                               {
    amxc_llist_append(&node->right.args, &value->it);
}

amxp_expr_node_delete()

PRIVATE void amxp_expr_node_delete

(

amxp_expr_node_t **

node

)

Definition at line 104 of file amxp_expression_node.c.

                                                    {
    when_null(node, exit);
    when_null(*node, exit);
 
    amxc_llist_it_take(&(*node)->it);
    switch((*node)->type) {
    case amxp_expr_compare_oper:
    case amxp_expr_and:
    case amxp_expr_or:
        amxp_expr_node_delete(&(*node)->left.node);
        amxp_expr_node_delete(&(*node)->right.node);
        break;
    case amxp_expr_not:
        amxp_expr_node_delete(&(*node)->left.node);
        break;
    case amxp_expr_value:
        if((amxc_var_type_of((*node)->left.value) == AMXC_VAR_ID_LIST) ||
           ((*node)->left.value == NULL)) {
            amxc_llist_clean(&(*node)->right.args, amxp_expr_node_clean_args);
        }
        amxc_var_delete(&(*node)->left.value);
        break;
    case amxp_expr_value_func:
    case amxp_expr_bool_func:
        free((*node)->left.func_name);
        (*node)->left.func_name = NULL;
        amxc_var_delete(&(*node)->value);
        amxc_llist_clean(&(*node)->right.args, amxp_expr_node_clean_args);
        break;
    case amxp_expr_field:
        free((*node)->left.field);
        amxc_var_delete(&(*node)->value);
        break;
    }
    free(*node);
    *node = NULL;
exit:
    return;
}

amxp_expr_node_dump()

PRIVATE void amxp_expr_node_dump	(	amxp_expr_t *	expr,
		amxp_expr_node_t *	node,
		uint32_t	level,
		uint32_t	parent_id
	)

Definition at line 322 of file amxp_expression_node.c.

                                                                                                        {
    static uint32_t id = 0;
    uint32_t current_id = 0;
 
    when_null(node, exit);
 
    if(level == 0) {
        amxc_string_t expr_txt;
        amxc_string_init(&expr_txt, 0);
        amxc_string_setf(&expr_txt, "%s", expr->expression);
        amxc_string_replace(&expr_txt, "\"", "\\\"", UINT32_MAX);
        printf("digraph D {\n");
        printf("graph [ordering=\"out\"];\n");
        printf("label = \"%s\";\n", amxc_string_get(&expr_txt, 0));
        printf("labelloc = \"t\";\n");
        id = 1;
        parent_id = 0;
        amxc_string_clean(&expr_txt);
    } else {
        id++;
    }
 
    current_id = id;
 
    printf("node_%d", current_id);
    switch(node->type) {
    case amxp_expr_compare_oper:
        printf("[shape=\"record\" label=\"{COMPARE|%s}\"];\n", amxp_expr_compop2string(node->compare));
        amxp_expr_node_dump(expr, node->left.node, level + 1, current_id);
        amxp_expr_node_dump(expr, node->right.node, level + 1, current_id);
        break;
    case amxp_expr_and:
        printf("[shape=\"box\" label=\"AND\"];\n");
        amxp_expr_node_dump(expr, node->left.node, level + 1, current_id);
        amxp_expr_node_dump(expr, node->right.node, level + 1, current_id);
        break;
    case amxp_expr_or:
        printf("[shape=\"box\" label=\"OR\"];\n");
        amxp_expr_node_dump(expr, node->left.node, level + 1, current_id);
        amxp_expr_node_dump(expr, node->right.node, level + 1, current_id);
        break;
    case amxp_expr_not:
        printf("[shape=\"box\" label=\"NOT\"];\n");
        amxp_expr_node_dump(expr, node->left.node, level + 1, current_id);
        break;
    case amxp_expr_value: {
        char* value = amxc_var_dyncast(cstring_t, node->left.value);
        printf("[shape=\"record\" label=\"{VALUE|%s}\"];\n", value);
        free(value);
    }
    break;
    case amxp_expr_value_func:
        printf("[shape=\"record\" label=\"{VALUE FUNCTION|%s}\"];\n", node->left.func_name);
        break;
    case amxp_expr_bool_func:
        printf("[shape=\"record\" label=\"{BOOL FUNCTION|%s}\"];\n", node->left.func_name);
        break;
    case amxp_expr_field:
        printf("[shape=\"record\" label=\"{FIELD|%s}\"];\n", node->left.field);
        break;
    }
 
    if(parent_id != 0) {
        printf("node_%d -> node_%d;\n", parent_id, current_id);
    }
 
    if(level == 0) {
        printf("}\n");
    }
 
exit:
    return;
}

amxp_expr_node_eval()

PRIVATE bool amxp_expr_node_eval	(	amxp_expr_t *	expr,
		amxp_expr_node_t *	node
	)

Definition at line 247 of file amxp_expression_node.c.

                                                                    {
    bool result = true;
    when_null(node, exit);
 
    switch(node->type) {
    case amxp_expr_and: {
        bool right = false;
        bool left = amxp_expr_node_eval(expr, node->left.node);
        if(!left) {
            result = left;
        } else {
            right = amxp_expr_node_eval(expr, node->right.node);
            result = (left && right);
        }
    }
    break;
    case amxp_expr_or: {
        bool right = false;
        bool left = amxp_expr_node_eval(expr, node->left.node);
        if(left) {
            result = left;
        } else {
            right = amxp_expr_node_eval(expr, node->right.node);
            result = (left || right);
        }
    }
    break;
    case amxp_expr_not:
        result = !amxp_expr_node_eval(expr, node->left.node);
        break;
    case amxp_expr_compare_oper: {
        amxc_var_t* left_value = amxp_expr_node_get_value(expr, node->left.node);
        amxc_var_t* right_value = amxp_expr_node_get_value(expr, node->right.node);
        if(!amxc_var_is_null(left_value) && !amxc_var_is_null(right_value)) {
            result = amxp_expr_compare(expr, left_value, right_value, node->compare);
        } else {
            result = false;
        }
    }
    break;
    case amxp_expr_value:
        if(amxc_var_type_of(node->left.value) != AMXC_VAR_ID_BOOL) {
            expr->status = amxp_expr_status_invalid_value;
            result = false;
        } else {
            result = amxc_var_constcast(bool, node->left.value);
        }
        break;
    case amxp_expr_field:
        if(node->value == NULL) {
            amxc_var_new(&node->value);
        }
        amxp_expr_get_field(expr, node->value, node->left.field);
        if(expr->status != amxp_expr_status_ok) {
            result = false;
        } else {
            result = amxc_var_constcast(bool, node->value);
        }
        break;
    case amxp_expr_bool_func: {
        amxc_var_t args;
        amxc_var_init(&args);
        amxp_expr_node_build_args(expr, &args, &node->right.args);
        result = amxp_expr_call_bool_func(expr, node->left.func_name, &args);
        amxc_llist_clean(&args.data.vl, NULL);
    }
    break;
    default:
        break;
    }
 
exit:
    return result;
}

amxp_expr_node_get_value()

PRIVATE amxc_var_t* amxp_expr_node_get_value	(	amxp_expr_t *	expr,
		amxp_expr_node_t *	node
	)

Definition at line 200 of file amxp_expression_node.c.

                                                                                {
    amxc_var_t* value = NULL;
    switch(node->type) {
    case amxp_expr_value:
        if((node->left.value == NULL) ||
           (amxc_var_type_of(node->left.value) == AMXC_VAR_ID_LIST)) {
            if(node->left.value == NULL) {
                amxc_var_new(&node->left.value);
            }
            value = node->left.value;
            amxc_llist_clean(&value->data.vl, NULL);
            amxp_expr_node_build_args(expr, value, &node->right.args);
        } else {
            value = node->left.value;
        }
        break;
    case amxp_expr_field:
        if(node->value == NULL) {
            amxc_var_new(&node->value);
        }
        amxp_expr_get_field(expr, node->value, node->left.field);
        if(expr->status == amxp_expr_status_ok) {
            value = node->value;
        } else {
            amxc_var_set_type(node->value, AMXC_VAR_ID_NULL);
            value = node->value;
        }
        break;
    case amxp_expr_value_func: {
        amxc_var_t args;
        amxc_var_init(&args);
        amxp_expr_node_build_args(expr, &args, &node->right.args);
        if(node->value == NULL) {
            amxc_var_new(&node->value);
        }
        amxp_expr_call_value_func(expr, node->left.func_name, &args, node->value);
        amxc_llist_clean(&args.data.vl, NULL);
        value = node->value;
    }
    break;
    default:
        break;
    }
 
    return value;
}

amxp_expr_node_new()

PRIVATE void amxp_expr_node_new	(	amxp_expr_node_t **	node,
		amxp_expr_node_type_t	type
	)

Definition at line 99 of file amxp_expression_node.c.

                                                                             {
    *node = (amxp_expr_node_t*) calloc(1, sizeof(amxp_expr_node_t));
    (*node)->type = type;
}

amxp_expr_node_pop()

PRIVATE amxp_expr_node_t* amxp_expr_node_pop

(

amxc_lstack_t *

stack

)

Definition at line 148 of file amxp_expression_node.c.

                                                           {
    amxp_expr_node_t* node = NULL;
    amxc_lstack_it_t* it = amxc_lstack_pop(stack);
 
    when_null(it, exit);
    node = amxc_container_of(it, amxp_expr_node_t, it);
 
exit:
    return node;
}

amxp_expr_node_push()

PRIVATE void amxp_expr_node_push	(	amxc_lstack_t *	stack,
		amxp_expr_node_t *	node
	)

Definition at line 144 of file amxp_expression_node.c.

                                                                       {
    amxc_lstack_push(stack, &node->it);
}

amxp_expr_node_set_compop()

PRIVATE void amxp_expr_node_set_compop	(	amxp_expr_node_t *	node,
		amxp_expr_comp_t	comop
	)

Definition at line 181 of file amxp_expression_node.c.

                                                                               {
    node->compare = comop;
}

amxp_expr_node_set_field()

PRIVATE void amxp_expr_node_set_field	(	amxp_expr_node_t *	node,
		char *	field
	)

Definition at line 177 of file amxp_expression_node.c.

                                                                   {
    node->left.field = field;
}

amxp_expr_node_set_function()

PRIVATE void amxp_expr_node_set_function	(	amxp_expr_node_t *	node,
		char *	func_name
	)

Definition at line 173 of file amxp_expression_node.c.

                                                                          {
    node->left.func_name = func_name;
}

amxp_expr_node_set_left()

PRIVATE void amxp_expr_node_set_left	(	amxp_expr_node_t *	node,
		amxp_expr_node_t *	left
	)

Definition at line 159 of file amxp_expression_node.c.

                                                                             {
    node->left.node = left;
    amxc_llist_it_take(&left->it);
}

amxp_expr_node_set_right()

PRIVATE void amxp_expr_node_set_right	(	amxp_expr_node_t *	node,
		amxp_expr_node_t *	right
	)

Definition at line 164 of file amxp_expression_node.c.

                                                                               {
    node->right.node = right;
    amxc_llist_it_take(&right->it);
}

amxp_expr_node_set_value()

PRIVATE void amxp_expr_node_set_value	(	amxp_expr_node_t *	node,
		amxc_var_t *	value
	)

Definition at line 169 of file amxp_expression_node.c.

                                                                         {
    node->left.value = value;
}

amxp_expr_printf()

PRIVATE void PRIVATE int amxp_expr_printf	(	const char *	format,
			...
	)