amxd_object_search_priv.c File Reference

#include <stdlib.h>
#include <stdio.h>
#include <string.h>
#include <ctype.h>
#include <amxc/amxc.h>
#include <amxp/amxp.h>
#include <amxd/amxd_types.h>
#include <amxd/amxd_object.h>
#include <amxd/amxd_object_expression.h>
#include <amxd/amxd_dm.h>
#include <amxd/amxd_dm_functions.h>
#include "amxd_priv.h"
#include "amxd_dm_priv.h"
#include "amxd_object_priv.h"
#include "amxd_assert.h"

Go to the source code of this file.

Macros
#define	_GNU_SOURCE

Functions
static amxd_status_t	amxd_object_resolve_next (amxd_object_t *const object, bool *key_path, amxc_llist_t *paths, amxc_llist_it_t *part)
static amxd_object_t *	amxd_template_find (amxd_object_t *const object, bool *key_path, const char *const path, amxd_status_t *status)
static amxd_object_t *	amxd_object_find (amxd_object_t *const object, bool *key_path, const char *path, amxd_status_t *status)
static amxd_object_t *	amxd_template_find_instance (amxd_object_t *templ, bool *key_path, char *str_part, amxd_status_t *status)
static amxd_status_t	amxd_resolve_add_path_or_continue (amxd_object_t *object, bool *key_path, amxc_llist_t *paths, amxc_llist_it_t *next)
static amxd_status_t	amxd_template_add_all_instances (amxd_object_t *object, bool *key_path, amxc_llist_t *paths, amxc_llist_it_t *part)
static amxd_status_t	amxd_template_add_matching_instances (amxd_object_t *object, bool *key_path, amxc_llist_t *paths, amxc_llist_it_t *part)
static amxd_status_t	amxd_object_resolve_instances (amxd_object_t *const object, bool *key_path, amxc_llist_t *paths, amxc_llist_it_t *part)
amxd_object_t *	amxd_object_find_internal (amxd_object_t *const object, bool *key_path, amxd_path_t *path, amxd_status_t *status)
amxd_status_t	amxd_object_resolve_internal (amxd_object_t *const object, bool *key_path, amxc_llist_t *paths, amxd_path_t *path)

Macro Definition Documentation

_GNU_SOURCE

#define _GNU_SOURCE

Definition at line 56 of file amxd_object_search_priv.c.

Function Documentation

amxd_object_find()

static amxd_object_t* amxd_object_find ( amxd_object_t *const  object, bool *  key_path, const char *  path, amxd_status_t *  status  )

static

Definition at line 128 of file amxd_object_search_priv.c.

                                                       {
    amxd_object_t* result = object;
    amxd_object_t* child = NULL;
    size_t length = strlen(path);
    when_true(length == 0, exit);
 
    child = amxd_object_get_child(result, path);
    if(child != NULL) {
        result = child;
    } else {
        result = amxd_template_find(object, key_path, path, status);
    }
 
exit:
    if(result == NULL) {
        *status = amxd_status_object_not_found;
    }
    return result;
}

amxd_object_find_internal()

amxd_object_t* amxd_object_find_internal	(	amxd_object_t *const	object,
		bool *	key_path,
		amxd_path_t *	path,
		amxd_status_t *	status
	)

Definition at line 364 of file amxd_object_search_priv.c.

                                                                {
    amxd_object_t* result = object;
    char* str_part = NULL;
 
    amxc_var_for_each(var, (&path->parts)) {
        str_part = amxc_var_take(cstring_t, var);
        switch(str_part[0]) {
        case '*':
            *status = amxd_status_invalid_path;
            result = NULL;
            break;
        case '{':
            if(amxd_object_get_type(result) != amxd_object_template) {
                *status = amxd_status_invalid_path;
                result = NULL;
            }
            break;
        case '[':
            if(amxd_object_get_type(result) != amxd_object_template) {
                *status = amxd_status_invalid_path;
                result = NULL;
            } else {
                result = amxd_template_find_instance(result, key_path, str_part, status);
            }
            break;
        case '.':
            break;
        case '^':
            result = amxd_object_get_parent(result);
            break;
        default:
            result = amxd_object_find(result, key_path, str_part, status);
            break;
        }
        amxc_var_push(cstring_t, var, str_part);
 
        when_null(result, exit);
    }
 
exit:
    return result;
}

amxd_object_resolve_instances()

static amxd_status_t amxd_object_resolve_instances ( amxd_object_t *const  object, bool *  key_path, amxc_llist_t *  paths, amxc_llist_it_t *  part  )

static

Definition at line 299 of file amxd_object_search_priv.c.

                                                                   {
    amxd_status_t status = amxd_status_ok;
    amxc_var_t* var_part = amxc_var_from_llist_it(part);
    const char* str_part = amxc_var_constcast(cstring_t, var_part);
 
    if(str_part[0] == '*') {
        status = amxd_template_add_all_instances(object, key_path, paths, part);
    } else {
        status = amxd_template_add_matching_instances(object, key_path, paths, part);
    }
 
    return status;
}

amxd_object_resolve_internal()

amxd_status_t amxd_object_resolve_internal	(	amxd_object_t *const	object,
		bool *	key_path,
		amxc_llist_t *	paths,
		amxd_path_t *	path
	)

Definition at line 410 of file amxd_object_search_priv.c.

                                                              {
    amxd_status_t status = amxd_status_ok;
    amxc_llist_it_t* path_part_it = NULL;
    const amxc_llist_t* lparts = NULL;
 
    lparts = amxc_var_constcast(amxc_llist_t, &path->parts);
    path_part_it = amxc_llist_get_first(lparts);
    if(path_part_it != NULL) {
        status = amxd_object_resolve_next(object, key_path, paths, path_part_it);
    } else {
        status = amxd_resolve_add_path_or_continue(object, key_path, paths, NULL);
    }
    when_failed(status, exit);
 
exit:
    if(status != amxd_status_ok) {
        amxc_llist_clean(paths, amxc_string_list_it_free);
    }
    return status;
}

amxd_object_resolve_next()

static amxd_status_t amxd_object_resolve_next ( amxd_object_t *const  object, bool *  key_path, amxc_llist_t *  paths, amxc_llist_it_t *  part  )

static

Definition at line 317 of file amxd_object_search_priv.c.

                                                              {
    amxd_status_t status = amxd_status_ok;
    amxd_object_t* result = object;
    amxc_var_t* var_part = NULL;
    const char* str_part = NULL;
 
    var_part = amxc_var_from_llist_it(part);
    str_part = amxc_var_constcast(cstring_t, var_part);
 
    switch(str_part[0]) {
    case '[':
    case '*':
        if(amxd_object_get_type(object) != amxd_object_template) {
            status = amxd_status_invalid_path;
            goto exit;
        }
        status = amxd_object_resolve_instances(object, key_path, paths, part);
        break;
    case '.':
        status = amxd_resolve_add_path_or_continue(result, key_path, paths, part->next);
        break;
    case '^':
        result = amxd_object_get_parent(result);
        status = amxd_resolve_add_path_or_continue(result, key_path, paths, part->next);
        break;
    default:
        if(amxd_object_get_type(result) == amxd_object_template) {
            result = amxd_object_find(result, key_path, str_part, &status);
            if(result == NULL) {
                status = amxd_status_ok;
            }
        } else {
            result = amxd_object_find(result, key_path, str_part, &status);
        }
        if(result != NULL) {
            status = amxd_resolve_add_path_or_continue(result, key_path, paths, part->next);
        }
        break;
    }
 
exit:
    return status;
}

amxd_resolve_add_path_or_continue()

static amxd_status_t amxd_resolve_add_path_or_continue ( amxd_object_t *  object, bool *  key_path, amxc_llist_t *  paths, amxc_llist_it_t *  next  )

static

Definition at line 210 of file amxd_object_search_priv.c.

                                                                       {
    amxd_status_t status = amxd_status_ok;
    if(next == NULL) {
        amxc_string_t* obj_path = NULL;
        char* path = amxd_object_get_path(object, AMXD_OBJECT_INDEXED | AMXD_OBJECT_TERMINATE);
        if(path == NULL) {
            status = amxd_status_invalid_path;
            goto exit;
        }
        amxc_string_new(&obj_path, 0);
        amxc_string_push_buffer(obj_path, path, strlen(path) + 1);
        amxc_llist_append(paths, &obj_path->it);
    } else {
        status = amxd_object_resolve_next(object, key_path, paths, next);
    }
 
exit:
    return status;
}

amxd_template_add_all_instances()

static amxd_status_t amxd_template_add_all_instances ( amxd_object_t *  object, bool *  key_path, amxc_llist_t *  paths, amxc_llist_it_t *  part  )

static

Definition at line 234 of file amxd_object_search_priv.c.

                                                                     {
    amxd_status_t status = amxd_status_object_not_found;
    uint32_t count = 0;
    amxd_object_for_each(instance, it, object) {
        amxd_object_t* instance = amxc_container_of(it, amxd_object_t, it);
        status = amxd_resolve_add_path_or_continue(instance, key_path, paths, part->next);
        if(status == amxd_status_ok) {
            count++;
        }
    }
 
    status = (count > 0 || amxc_llist_is_empty(&object->instances)) ?
        amxd_status_ok:amxd_status_object_not_found;
 
    return status;
}

amxd_template_add_matching_instances()

static amxd_status_t amxd_template_add_matching_instances ( amxd_object_t *  object, bool *  key_path, amxc_llist_t *  paths, amxc_llist_it_t *  part  )

static

Definition at line 255 of file amxd_object_search_priv.c.

                                                                          {
    amxd_status_t status = amxd_status_ok;
    amxc_var_t* var_part = amxc_var_from_llist_it(part);
    char* txt_part = amxc_var_dyncast(cstring_t, var_part);
    amxd_object_t* tmp = NULL;
    amxp_expr_t expr;
    int length = strlen(txt_part);
 
    tmp = amxd_template_find(object, key_path, txt_part, &status);
    if(tmp != NULL) {
        status = amxd_resolve_add_path_or_continue(tmp, key_path, paths, part->next);
        goto exit;
    }
 
    if(status != amxd_status_object_not_found) {
        goto exit;
    }
 
    txt_part[length - 1] = 0;
    if(amxp_expr_init(&expr, txt_part + 1) != 0) {
        status = amxd_status_invalid_path;
        goto exit;
    }
 
    status = amxd_status_ok;
    object = amxd_object_find_instance(object, &expr);
 
    while(object != NULL) {
        status = amxd_resolve_add_path_or_continue(object, key_path, paths, part->next);
        when_failed_status(status, exit, amxp_expr_clean(&expr));
        object = amxd_object_find_next_instance(object, &expr);
    }
 
    amxp_expr_clean(&expr);
 
exit:
    free(txt_part);
    return status;
}

amxd_template_find()

static amxd_object_t* amxd_template_find ( amxd_object_t *const  object, bool *  key_path, const char *const  path, amxd_status_t *  status  )

static

Definition at line 84 of file amxd_object_search_priv.c.

                                                         {
    amxd_object_t* result = NULL;
    size_t length = strlen(path);
    int64_t index = 0;
    int offset = 0;
    char* endptr = NULL;
 
    if(path[length - 1] == '.') {
        length--;
    }
    if(path[0] == '[') {
        offset = 1;
        length -= 2;
    }
 
    when_true_status(length == 0,
                     exit,
                     *status = amxd_status_invalid_path);
 
    index = strtoll(path + offset, &endptr, 0);
 
    if((endptr != path) && ((*endptr == '.') || (*endptr == '\0') || (*endptr == ']'))) {
        result = amxd_object_get_instance(object, NULL, index);
    } else {
        char* copy_path = strdup(path + offset);
        copy_path[length] = 0;
        result = amxd_object_get_instance(object, copy_path, 0);
        if(result != NULL) {
            *key_path = true;
        }
        free(copy_path);
    }
    if(result == NULL) {
        *status = amxd_status_object_not_found;
    }
 
exit:
    return result;
}

amxd_template_find_instance()

static amxd_object_t* amxd_template_find_instance ( amxd_object_t *  templ, bool *  key_path, char *  str_part, amxd_status_t *  status  )

static

Definition at line 152 of file amxd_object_search_priv.c.

                                                                  {
    amxd_object_t* result = NULL;
    amxd_object_t* tmp = NULL;
    amxp_expr_t expr;
    int length = 0;
    int offset = 0;
 
    length = strlen(str_part);
    tmp = amxd_template_find(templ, key_path, str_part, status);
    if(tmp != NULL) {
        result = tmp;
        goto exit;
    }
 
    when_true(*status != amxd_status_object_not_found, exit);
 
    if(str_part[0] == '[') {
        length = strlen(str_part);
        offset = 1;
        str_part[length - 1] = 0;
    }
 
    if(amxp_expr_init(&expr, str_part + offset) != 0) {
        *status = amxd_status_invalid_path;
        goto exit;
    }
 
    result = amxd_object_find_instance(templ, &expr);
    if(result == NULL) {
        if(expr.status != amxp_expr_status_ok) {
            *status = amxd_status_invalid_path;
        } else {
            *status = amxd_status_ok;
        }
        amxp_expr_clean(&expr);
        goto exit;
    }
 
    tmp = amxd_object_find_next_instance(result, &expr);
    if(tmp != NULL) {
        *status = amxd_status_duplicate;
        result = NULL;
    }
 
    amxp_expr_clean(&expr);
 
exit:
    if(str_part[0] == '[') {
        str_part[length - 1] = ']';
    }
 
    return result;
}