Code

store_json: Base the memstore emitter on the store-writer API.
[sysdb.git] / src / core / store_lookup.c
index 94f95cc5188f4c03d146bd1b7157adab3f62f76f..06151a81d4fdb04bb49143dd794ee60c30a00618 100644 (file)
@@ -153,14 +153,6 @@ match_regex_value(int op, sdb_data_t *v, sdb_data_t *re)
        return status;
 } /* match_regex_value */
 
-static int
-match_value(int op, sdb_data_t *v1, sdb_data_t *v2, bool strcmp_fallback)
-{
-       if ((op == MATCHER_REGEX) || (op == MATCHER_NREGEX))
-               return match_regex_value(op, v1, v2);
-       return match_cmp_value(op, v1, v2, strcmp_fallback);
-} /* match_value */
-
 static int
 match_logical(sdb_store_matcher_t *m, sdb_store_obj_t *obj,
                sdb_store_matcher_t *filter)
@@ -182,113 +174,45 @@ match_logical(sdb_store_matcher_t *m, sdb_store_obj_t *obj,
 } /* match_logical */
 
 static int
-match_unary(sdb_store_matcher_t *m, sdb_store_obj_t *obj,
+match_uop(sdb_store_matcher_t *m, sdb_store_obj_t *obj,
                sdb_store_matcher_t *filter)
 {
        assert(m->type == MATCHER_NOT);
        assert(UOP_M(m)->op);
 
        return !sdb_store_matcher_matches(UOP_M(m)->op, obj, filter);
-} /* match_unary */
-
-/* iterate arrays: ANY/ALL <array> <cmp> <value> */
-static int
-match_iter_array(sdb_store_matcher_t *m, sdb_store_obj_t *obj,
-               sdb_store_matcher_t *filter)
-{
-       sdb_store_expr_t *e1, *e2;
-       sdb_data_t v1 = SDB_DATA_INIT;
-       sdb_data_t v2 = SDB_DATA_INIT;
-
-       int status;
-
-       assert(CMP_M(m)->left && CMP_M(m)->right);
-
-       if ((ITER_M(m)->m->type < MATCHER_LT)
-                       || (MATCHER_NREGEX < ITER_M(m)->m->type))
-               return 0;
-
-       e1 = CMP_M(ITER_M(m)->m)->left;
-       e2 = CMP_M(ITER_M(m)->m)->right;
-
-       if (expr_eval2(e1, &v1, e2, &v2, obj, filter))
-               return 0;
-
-       if ((! (v1.type & SDB_TYPE_ARRAY)) || (v2.type & SDB_TYPE_ARRAY))
-               status = 0;
-       else if (sdb_data_isnull(&v1) || (sdb_data_isnull(&v2)))
-               status = 0;
-       else {
-               size_t i;
-               int all = (int)(m->type == MATCHER_ALL);
-
-               status = all;
-               for (i = 0; i < v1.data.array.length; ++i) {
-                       sdb_data_t v = SDB_DATA_INIT;
-                       if (sdb_data_array_get(&v1, i, &v)) {
-                               status = 0;
-                               break;
-                       }
-
-                       if (match_value(ITER_M(m)->m->type, &v, &v2,
-                                               (e1->data_type) < 0 || (e2->data_type < 0))) {
-                               if (! all) {
-                                       status = 1;
-                                       break;
-                               }
-                       }
-                       else if (all) {
-                               status = 0;
-                               break;
-                       }
-               }
-       }
-
-       expr_free_datum2(e1, &v1, e2, &v2);
-       return status;
-} /* match_iter_array */
+} /* match_uop */
 
+/* iterate: ANY/ALL <iter> <cmp> <value> */
 static int
 match_iter(sdb_store_matcher_t *m, sdb_store_obj_t *obj,
                sdb_store_matcher_t *filter)
 {
-       sdb_avltree_iter_t *iter = NULL;
-       int type, status;
+       sdb_store_expr_iter_t *iter = NULL;
+       int status;
        int all = (int)(m->type == MATCHER_ALL);
 
        assert((m->type == MATCHER_ANY) || (m->type == MATCHER_ALL));
+       assert((! CMP_M(ITER_M(m)->m)->left) && CMP_M(ITER_M(m)->m)->right);
 
-       if (ITER_M(m)->iter->type == FIELD_VALUE) {
-               if (ITER_M(m)->iter->data.data.integer != SDB_FIELD_BACKEND)
-                       return 0;
-               return match_iter_array(m, obj, filter);
-       }
-
-       assert(ITER_M(m)->iter->type == TYPED_EXPR);
-
-       type = (int)ITER_M(m)->iter->data.data.integer;
-       if (obj->type == SDB_HOST) {
-               if (type == SDB_SERVICE)
-                       iter = sdb_avltree_get_iter(HOST(obj)->services);
-               else if (type == SDB_METRIC)
-                       iter = sdb_avltree_get_iter(HOST(obj)->metrics);
-               else if (type == SDB_ATTRIBUTE)
-                       iter = sdb_avltree_get_iter(HOST(obj)->attributes);
-       } else if (obj->type == SDB_SERVICE) {
-               if (type == SDB_ATTRIBUTE)
-                       iter = sdb_avltree_get_iter(SVC(obj)->attributes);
-       } else if (obj->type == SDB_METRIC) {
-               if (type == SDB_ATTRIBUTE)
-                       iter = sdb_avltree_get_iter(METRIC(obj)->attributes);
+       iter = sdb_store_expr_iter(ITER_M(m)->iter, obj, filter);
+       if (! iter) {
+               sdb_log(SDB_LOG_WARNING, "store: Invalid iterator");
+               return 0;
        }
 
        status = all;
-       while (sdb_avltree_iter_has_next(iter)) {
-               sdb_store_obj_t *child = STORE_OBJ(sdb_avltree_iter_get_next(iter));
-               if (filter && (! sdb_store_matcher_matches(filter, child, NULL)))
-                       continue;
+       while (sdb_store_expr_iter_has_next(iter)) {
+               sdb_data_t v = sdb_store_expr_iter_get_next(iter);
+               sdb_store_expr_t expr = CONST_EXPR(v);
+               bool matches;
+
+               CMP_M(ITER_M(m)->m)->left = &expr;
+               matches = sdb_store_matcher_matches(ITER_M(m)->m, obj, filter);
+               CMP_M(ITER_M(m)->m)->left = NULL;
+               sdb_data_free_datum(&v);
 
-               if (sdb_store_matcher_matches(ITER_M(m)->m, child, filter)) {
+               if (matches) {
                        if (! all) {
                                status = 1;
                                break;
@@ -298,7 +222,7 @@ match_iter(sdb_store_matcher_t *m, sdb_store_obj_t *obj,
                        break;
                }
        }
-       sdb_avltree_iter_destroy(iter);
+       sdb_store_expr_iter_destroy(iter);
        return status;
 } /* match_iter */
 
@@ -336,7 +260,7 @@ match_in(sdb_store_matcher_t *m, sdb_store_obj_t *obj,
        sdb_data_t value = SDB_DATA_INIT, array = SDB_DATA_INIT;
        int status = 1;
 
-       assert((m->type == MATCHER_IN) || (m->type == MATCHER_NIN));
+       assert(m->type == MATCHER_IN);
        assert(CMP_M(m)->left && CMP_M(m)->right);
 
        if (expr_eval2(CMP_M(m)->left, &value,
@@ -347,8 +271,6 @@ match_in(sdb_store_matcher_t *m, sdb_store_obj_t *obj,
                status = sdb_data_inarray(&value, &array);
 
        expr_free_datum2(CMP_M(m)->left, &value, CMP_M(m)->right, &array);
-       if (m->type == MATCHER_NIN)
-               return !status;
        return status;
 } /* match_in */
 
@@ -373,34 +295,39 @@ match_regex(sdb_store_matcher_t *m, sdb_store_obj_t *obj,
 } /* match_regex */
 
 static int
-match_isnull(sdb_store_matcher_t *m, sdb_store_obj_t *obj,
+match_unary(sdb_store_matcher_t *m, sdb_store_obj_t *obj,
                sdb_store_matcher_t *filter)
 {
        sdb_data_t v = SDB_DATA_INIT;
        int status;
 
-       assert((m->type == MATCHER_ISNULL) || (m->type == MATCHER_ISNNULL));
+       assert((m->type == MATCHER_ISNULL)
+                       || (m->type == MATCHER_ISTRUE)
+                       || (m->type == MATCHER_ISFALSE));
 
-       if (ISNULL_M(m)->expr->type) {
+       if (UNARY_M(m)->expr->type) {
                /* TODO: this might hide real errors;
                 * improve error reporting and propagation */
-               if (sdb_store_expr_eval(ISNULL_M(m)->expr, obj, &v, filter))
+               if (sdb_store_expr_eval(UNARY_M(m)->expr, obj, &v, filter))
                        return 1;
        }
        else
-               v = ISNULL_M(m)->expr->data;
-
-       if (sdb_data_isnull(&v))
-               status = 1;
-       else
-               status = 0;
+               v = UNARY_M(m)->expr->data;
+
+       if (m->type == MATCHER_ISNULL)
+               status = sdb_data_isnull(&v) ? 1 : 0;
+       else { /* ISTRUE or ISFALSE */
+               if ((v.type == SDB_TYPE_BOOLEAN)
+                               && (v.data.boolean == (m->type == MATCHER_ISTRUE)))
+                       status = 1;
+               else
+                       status = 0;
+       }
 
-       if (ISNULL_M(m)->expr->type)
+       if (UNARY_M(m)->expr->type)
                sdb_data_free_datum(&v);
-       if (m->type == MATCHER_ISNNULL)
-               return !status;
        return status;
-} /* match_isnull */
+} /* match_unary */
 
 typedef int (*matcher_cb)(sdb_store_matcher_t *, sdb_store_obj_t *,
                sdb_store_matcher_t *);
@@ -411,15 +338,15 @@ static matcher_cb
 matchers[] = {
        match_logical,
        match_logical,
-       match_unary,
+       match_uop,
        match_iter,
        match_iter,
        match_in,
-       match_in,
 
        /* unary operators */
-       match_isnull,
-       match_isnull,
+       match_unary,
+       match_unary,
+       match_unary,
 
        /* ary operators */
        match_cmp,
@@ -430,6 +357,8 @@ matchers[] = {
        match_cmp,
        match_regex,
        match_regex,
+
+       NULL, /* QUERY */
 };
 
 /*
@@ -529,23 +458,25 @@ uop_matcher_destroy(sdb_object_t *obj)
 } /* uop_matcher_destroy */
 
 static int
-isnull_matcher_init(sdb_object_t *obj, va_list ap)
+unary_matcher_init(sdb_object_t *obj, va_list ap)
 {
        M(obj)->type = va_arg(ap, int);
-       if ((M(obj)->type != MATCHER_ISNULL) && (M(obj)->type != MATCHER_ISNNULL))
+       if ((M(obj)->type != MATCHER_ISNULL)
+                       && (M(obj)->type != MATCHER_ISTRUE)
+                       && (M(obj)->type != MATCHER_ISFALSE))
                return -1;
 
-       ISNULL_M(obj)->expr = va_arg(ap, sdb_store_expr_t *);
-       sdb_object_ref(SDB_OBJ(ISNULL_M(obj)->expr));
+       UNARY_M(obj)->expr = va_arg(ap, sdb_store_expr_t *);
+       sdb_object_ref(SDB_OBJ(UNARY_M(obj)->expr));
        return 0;
-} /* isnull_matcher_init */
+} /* unary_matcher_init */
 
 static void
-isnull_matcher_destroy(sdb_object_t *obj)
+unary_matcher_destroy(sdb_object_t *obj)
 {
-       sdb_object_deref(SDB_OBJ(ISNULL_M(obj)->expr));
-       ISNULL_M(obj)->expr = NULL;
-} /* isnull_matcher_destroy */
+       sdb_object_deref(SDB_OBJ(UNARY_M(obj)->expr));
+       UNARY_M(obj)->expr = NULL;
+} /* unary_matcher_destroy */
 
 static sdb_type_t op_type = {
        /* size = */ sizeof(op_matcher_t),
@@ -571,10 +502,10 @@ static sdb_type_t cmp_type = {
        /* destroy = */ cmp_matcher_destroy,
 };
 
-static sdb_type_t isnull_type = {
-       /* size = */ sizeof(isnull_matcher_t),
-       /* init = */ isnull_matcher_init,
-       /* destroy = */ isnull_matcher_destroy,
+static sdb_type_t unary_type = {
+       /* size = */ sizeof(unary_matcher_t),
+       /* init = */ unary_matcher_init,
+       /* destroy = */ unary_matcher_destroy,
 };
 
 /*
@@ -589,6 +520,14 @@ sdb_store_any_matcher(sdb_store_expr_t *iter, sdb_store_matcher_t *m)
                                "(invalid operator)", MATCHER_SYM(m->type));
                return NULL;
        }
+       if (CMP_M(m)->left) {
+               sdb_log(SDB_LOG_ERR, "store: Invalid ANY %s %s %s matcher "
+                               "(invalid left operand)",
+                               SDB_TYPE_TO_STRING(CMP_M(m)->left->data_type),
+                               MATCHER_SYM(m->type),
+                               SDB_TYPE_TO_STRING(CMP_M(m)->right->data_type));
+               return NULL;
+       }
        return M(sdb_object_create("any-matcher", iter_type,
                                MATCHER_ANY, iter, m));
 } /* sdb_store_any_matcher */
@@ -601,6 +540,14 @@ sdb_store_all_matcher(sdb_store_expr_t *iter, sdb_store_matcher_t *m)
                                "(invalid operator)", MATCHER_SYM(m->type));
                return NULL;
        }
+       if (CMP_M(m)->left) {
+               sdb_log(SDB_LOG_ERR, "store: Invalid ALL %s %s %s matcher "
+                               "(invalid left operand)",
+                               SDB_TYPE_TO_STRING(CMP_M(m)->left->data_type),
+                               MATCHER_SYM(m->type),
+                               SDB_TYPE_TO_STRING(CMP_M(m)->right->data_type));
+               return NULL;
+       }
        return M(sdb_object_create("all-matcher", iter_type,
                                MATCHER_ALL, iter, m));
 } /* sdb_store_all_matcher */
@@ -654,13 +601,6 @@ sdb_store_in_matcher(sdb_store_expr_t *left, sdb_store_expr_t *right)
                                MATCHER_IN, left, right));
 } /* sdb_store_in_matcher */
 
-sdb_store_matcher_t *
-sdb_store_nin_matcher(sdb_store_expr_t *left, sdb_store_expr_t *right)
-{
-       return M(sdb_object_create("not-in-matcher", cmp_type,
-                               MATCHER_NIN, left, right));
-} /* sdb_store_in_matcher */
-
 sdb_store_matcher_t *
 sdb_store_regex_matcher(sdb_store_expr_t *left, sdb_store_expr_t *right)
 {
@@ -693,82 +633,23 @@ sdb_store_nregex_matcher(sdb_store_expr_t *left, sdb_store_expr_t *right)
 sdb_store_matcher_t *
 sdb_store_isnull_matcher(sdb_store_expr_t *expr)
 {
-       return M(sdb_object_create("isnull-matcher", isnull_type,
+       return M(sdb_object_create("isnull-matcher", unary_type,
                                MATCHER_ISNULL, expr));
 } /* sdb_store_isnull_matcher */
 
 sdb_store_matcher_t *
-sdb_store_isnnull_matcher(sdb_store_expr_t *expr)
-{
-       return M(sdb_object_create("isnull-matcher", isnull_type,
-                               MATCHER_ISNNULL, expr));
-} /* sdb_store_isnnull_matcher */
-
-sdb_store_matcher_op_cb
-sdb_store_parse_matcher_op(const char *op)
-{
-       if (! strcasecmp(op, "<"))
-               return sdb_store_lt_matcher;
-       else if (! strcasecmp(op, "<="))
-               return sdb_store_le_matcher;
-       else if (! strcasecmp(op, "="))
-               return sdb_store_eq_matcher;
-       else if (! strcasecmp(op, "!="))
-               return sdb_store_ne_matcher;
-       else if (! strcasecmp(op, ">="))
-               return sdb_store_ge_matcher;
-       else if (! strcasecmp(op, ">"))
-               return sdb_store_gt_matcher;
-       else if (! strcasecmp(op, "=~"))
-               return sdb_store_regex_matcher;
-       else if (! strcasecmp(op, "!~"))
-               return sdb_store_nregex_matcher;
-       return NULL;
-} /* sdb_store_parse_matcher_op */
-
-int
-sdb_store_parse_object_type(const char *name)
-{
-       if (! strcasecmp(name, "host"))
-               return SDB_HOST;
-       else if (! strcasecmp(name, "service"))
-               return SDB_SERVICE;
-       else if (! strcasecmp(name, "metric"))
-               return SDB_METRIC;
-       else if (! strcasecmp(name, "attribute"))
-               return SDB_ATTRIBUTE;
-       return -1;
-} /* sdb_store_parse_object_type */
-
-int
-sdb_store_parse_object_type_plural(const char *name)
-{
-       if (! strcasecmp(name, "hosts"))
-               return SDB_HOST;
-       else if (! strcasecmp(name, "services"))
-               return SDB_SERVICE;
-       else if (! strcasecmp(name, "metrics"))
-               return SDB_METRIC;
-       else if (! strcasecmp(name, "attributes"))
-               return SDB_ATTRIBUTE;
-       return -1;
-} /* sdb_store_parse_object_type_plural */
+sdb_store_istrue_matcher(sdb_store_expr_t *expr)
+{
+       return M(sdb_object_create("istrue-matcher", unary_type,
+                               MATCHER_ISTRUE, expr));
+} /* sdb_store_istrue_matcher */
 
-int
-sdb_store_parse_field_name(const char *name)
-{
-       if (! strcasecmp(name, "name"))
-               return SDB_FIELD_NAME;
-       else if (! strcasecmp(name, "last_update"))
-               return SDB_FIELD_LAST_UPDATE;
-       else if (! strcasecmp(name, "age"))
-               return SDB_FIELD_AGE;
-       else if (! strcasecmp(name, "interval"))
-               return SDB_FIELD_INTERVAL;
-       else if (! strcasecmp(name, "backend"))
-               return SDB_FIELD_BACKEND;
-       return -1;
-} /* sdb_store_parse_field_name */
+sdb_store_matcher_t *
+sdb_store_isfalse_matcher(sdb_store_expr_t *expr)
+{
+       return M(sdb_object_create("isfalse-matcher", unary_type,
+                               MATCHER_ISFALSE, expr));
+} /* sdb_store_isfalse_matcher */
 
 sdb_store_matcher_t *
 sdb_store_dis_matcher(sdb_store_matcher_t *left, sdb_store_matcher_t *right)
@@ -804,6 +685,8 @@ sdb_store_matcher_matches(sdb_store_matcher_t *m, sdb_store_obj_t *obj,
        if ((m->type < 0) || ((size_t)m->type >= SDB_STATIC_ARRAY_LEN(matchers)))
                return 0;
 
+       if (! matchers[m->type])
+               return 0;
        return matchers[m->type](m, obj, filter);
 } /* sdb_store_matcher_matches */