amxp_expression_node.c File Reference

#include <stdio.h>
#include <stdlib.h>
#include <amxc/amxc.h>
#include "amxp_expr_priv.h"

Go to the source code of this file.

Macros
#define	_GNU_SOURCE

Functions
static void	amxp_expr_node_clean_args (amxc_llist_it_t *it)
static void	amxp_expr_node_build_args (amxp_expr_t *expr, amxc_var_t *value, amxc_llist_t *args)
static const char *	amxp_expr_compop2string (amxp_expr_comp_t op)
void	amxp_expr_node_new (amxp_expr_node_t **node, amxp_expr_node_type_t type)
void	amxp_expr_node_delete (amxp_expr_node_t **node)
void	amxp_expr_node_push (amxc_lstack_t *stack, amxp_expr_node_t *node)
amxp_expr_node_t *	amxp_expr_node_pop (amxc_lstack_t *stack)
void	amxp_expr_node_set_left (amxp_expr_node_t *node, amxp_expr_node_t *left)
void	amxp_expr_node_set_right (amxp_expr_node_t *node, amxp_expr_node_t *right)
void	amxp_expr_node_set_value (amxp_expr_node_t *node, amxc_var_t *value)
void	amxp_expr_node_set_function (amxp_expr_node_t *node, char *func_name)
void	amxp_expr_node_set_field (amxp_expr_node_t *node, char *field)
void	amxp_expr_node_set_compop (amxp_expr_node_t *node, amxp_expr_comp_t comop)
void	amxp_expr_node_add_value (amxp_expr_node_t *node, amxp_expr_node_t *value)
amxp_expr_node_t *	amxp_expr_get_node (amxp_expr_t *expr)
amxc_var_t *	amxp_expr_node_get_value (amxp_expr_t *expr, amxp_expr_node_t *node)
bool	amxp_expr_node_eval (amxp_expr_t *expr, amxp_expr_node_t *node)
void	amxp_expr_node_dump (amxp_expr_t *expr, amxp_expr_node_t *node, uint32_t level, uint32_t parent_id)

Macro Definition Documentation

_GNU_SOURCE

#define _GNU_SOURCE

Definition at line 56 of file amxp_expression_node.c.

Function Documentation

amxp_expr_compop2string()

static const char* amxp_expr_compop2string ( amxp_expr_comp_t  op )

static

Definition at line 80 of file amxp_expression_node.c.

                                                                {
    const char* string[] = {
        "==",
        "!=",
        "\\<",
        "\\>",
        "\\<=",
        "\\>=",
        "matches",
        "starts with",
        "in",
        "~=",
        "^=",
        "ends with"
    };
 
    return string[op];
}

amxp_expr_get_node()

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_node_add_value()

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_build_args()

static void amxp_expr_node_build_args ( amxp_expr_t *  expr, amxc_var_t *  value, amxc_llist_t *  args  )

static

Definition at line 70 of file amxp_expression_node.c.

                                                                                                {
    amxc_var_set_type(value, AMXC_VAR_ID_LIST);
    amxc_llist_for_each(it, args) {
        amxp_expr_node_t* value_node = amxc_container_of(it, amxp_expr_node_t, it);
        amxc_var_t* v = amxp_expr_node_get_value(expr, value_node);
        amxc_var_set_index(value, -1, v, AMXC_VAR_FLAG_DEFAULT);
        expr->status = amxp_expr_status_ok;
    }
}

amxp_expr_node_clean_args()

static void amxp_expr_node_clean_args ( amxc_llist_it_t *  it )

static

Definition at line 65 of file amxp_expression_node.c.

                                                           {
    amxp_expr_node_t* node = amxc_container_of(it, amxp_expr_node_t, it);
    amxp_expr_node_delete(&node);
}

amxp_expr_node_delete()

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()

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()

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()

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()

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()

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()

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()

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()

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()

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()

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()

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()

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;
}