all code except of pst_function & pst_handler rewritten on C language.

Logger nad Allocator decided to be a global for all library

framework/dwarf_expression.cpp

@@ -0,0 +1,174 @@
+/*
+ * dwarf_expression.cpp
+ *
+ *  Created on: Feb 1, 2020
+ *      Author: nnosov
+ */
+
+#include <stdarg.h>
+
+#include "dwarf_expression.h"
+#include "common.h"
+
+//
+// DWARF operation
+//
+void pst_dwarf_op_init(pst_dwarf_op* dwop, uint8_t op, uint64_t a1, uint64_t a2)
+{
+    //pst_assert(dwop);
+
+    list_node_init(&dwop->node);
+    dwop->operation = op;
+    dwop->arg1 = a1;
+    dwop->arg2 = a2;
+    dwop->allocated = false;
+}
+
+pst_dwarf_op* pst_dwarf_op_new(pst_allocator* alloc, uint8_t op, uint64_t a1, uint64_t a2)
+{
+    pst_assert(alloc);
+
+    pst_dwarf_op* nop = (pst_dwarf_op*)alloc->alloc(alloc, sizeof(pst_dwarf_op));
+    if(nop) {
+        pst_dwarf_op_init(nop, op, a1, a2);
+        nop->allocated = true;
+    }
+
+    return nop;
+}
+
+void pst_dwarf_op_fini(pst_dwarf_op* dwop)
+{
+    assert(dwop);
+
+    if(dwop->allocated) {
+        allocator.free(dwop);
+    } else {
+        dwop->operation = 0;
+        dwop->arg1 = 0;
+        dwop->arg2 = 0;
+    }
+}
+
+//
+// pst_dwarf_expr
+//
+bool expr_is_equal(pst_dwarf_expr* lhs, pst_dwarf_expr* rhs)
+{
+    if(list_count(&lhs->operations) != list_count(&rhs->operations)) {
+        return false;
+    }
+
+    pst_dwarf_op* lop = lhs->next_op(NULL);
+    pst_dwarf_op* rop = rhs->next_op(NULL);
+    while(lop && rop) {
+        if(lop->operation == rop->operation && lop->arg1 == rop->arg1 && lop->arg2 == rop->arg2) {
+            return true;
+        }
+        lop = lhs->next_op(lop);
+        rop = rhs->next_op(rop);
+    }
+
+    return false;
+}
+
+pst_dwarf_op* expr_add_op(pst_dwarf_expr* expr, uint8_t operation, uint64_t arg1, uint64_t arg2)
+{
+    pst_alloc(pst_dwarf_op, op, operation, arg1, arg2);
+    list_add_bottom(&expr->operations, &op->node);
+
+    return op;
+}
+
+pst_dwarf_op* expr_next_op(pst_dwarf_expr* expr, pst_dwarf_op* op)
+{
+    struct list_node* n = (op == NULL) ? list_first(&expr->operations) : list_next(&op->node);
+
+    pst_dwarf_op* ret = NULL;
+    if(n) {
+        ret = list_entry(n, pst_dwarf_op, node);
+    }
+
+    return ret;
+}
+
+bool expr_print_op(pst_dwarf_expr* expr, const char* fmt, ...)
+{
+    bool nret = true;
+
+    va_list args;
+    va_start(args, fmt);
+    int size = sizeof(expr->buff) - expr->offset;
+    int ret = vsnprintf(expr->buff + expr->offset, size, fmt, args);
+    if(ret >= size || ret < 0) {
+        nret = false;
+    }
+    expr->offset += ret;
+    va_end(args);
+
+    return nret;
+}
+
+void expr_set_value(pst_dwarf_expr* expr, uint64_t v)
+{
+    expr->has_value = true;
+    expr->value = v;
+}
+
+void expr_clean(pst_dwarf_expr* expr)
+{
+    pst_dwarf_op* op = NULL;
+    struct list_node  *pos, *tn;
+    list_for_each_entry_safe(op, pos, tn, &expr->operations, node) {
+        list_del(&op->node);
+        pst_dwarf_op_fini(op);
+    }
+}
+
+void expr_setup(pst_dwarf_expr* expr, Dwarf_Op* exprs, size_t exprlen)
+{
+    expr->clean();
+    for(size_t i = 0; i < exprlen; ++i) {
+        expr->add_op(expr, exprs[i].atom, exprs[i].number, exprs[i].number2);
+    }
+}
+
+void pst_dwarf_expr_init(pst_dwarf_expr* expr)
+{
+    // methods
+    expr->is_equal = expr_is_equal;
+    expr->add_op = expr_add_op;
+    expr->next_op = expr_next_op;
+    expr->clean = expr_clean;
+    expr->setup = expr_setup;
+    expr->set_value = expr_set_value;
+    expr->print_op = expr_print_op;
+
+    // fields
+    list_head_init(&expr->operations);
+    expr->has_value = false;
+    expr->value = 0;
+
+    expr->buff[0] = 0;
+    expr->offset = 0;
+    expr->allocated = false;
+}
+
+pst_dwarf_expr* pst_dwarf_expr_new()
+{
+    pst_dwarf_expr* ne = allocator.alloc(sizeof(pst_dwarf_expr));
+    if(ne) {
+        pst_dwarf_expr_init(ne);
+        ne->allocated = true;
+    }
+
+    return ne;
+}
+
+void pst_dwarf_expr_fini(pst_dwarf_expr* expr)
+{
+    expr->clean();
+    if(expr->allocated) {
+        allocator.free(expr);
+    }
+}