comin_variable.cpp

Go to the documentation of this file.

 
#include "comin_variable.hpp"
#include "comin.h"
#include "comin_state.hpp"
 
#include <algorithm>
#include <cstring>
 
extern inline bool operator==(const t_comin_var_descriptor& a,
                              const t_comin_var_descriptor& b);
 
extern "C" {
 
  // Check if a variable is used in any context
  bool comin_var_is_used(const t_comin_var_descriptor* descr) {
    using comin::state;
 
    auto match_descr = [&](const t_comin_var_context& i) {
      return i.var_item->descriptor == *descr;
    };
 
    // for a given (entry point, plugin_id) pair, check if any variable matches
    auto find_context = [&](const auto& v) {
      return std::any_of(v.second.begin(), v.second.end(), match_descr);
    };
 
    // loop over all (entry point, plugin_id) pairs
    return std::any_of(state.comin_var_list_context.begin(),
                       state.comin_var_list_context.end(), find_context);
  }
 
  // append variable item to context list (ie. the list of variable accesses for
  // each entry point).
  void comin_var_list_context_append(t_comin_entry_point ep, int plugin_id,
                                     t_comin_var_item* var_item,
                                     int access_flag) {
    t_comin_var_context item;
    item.var_item    = var_item;
    item.access_flag = access_flag;
 
    auto& context = comin::state.comin_var_list_context[{ep, plugin_id}];
    bool found    = std::any_of(
        context.begin(), context.end(), [&](t_comin_var_context& i) {
          return i.var_item->descriptor == item.var_item->descriptor;
        });
    if (!found)
      context.push_back(item);
  }
 
  t_comin_var_descr_list_iterator* comin_var_get_descr_list_head() {
    auto& var_list = comin::state.comin_var_list;
 
    if (var_list.empty())
      return nullptr;
 
    return new t_comin_var_descr_list_iterator{
        comin::state.comin_var_list.begin()};
  }
 
  t_comin_var_descr_list_iterator*
  comin_var_get_descr_list_next(t_comin_var_descr_list_iterator* current) {
    auto& var_list = comin::state.comin_var_list;
 
    ++current->it;
 
    if (current->it == var_list.end())
      return nullptr;
    else
      return current;
  }
 
  void
  comin_var_descr_list_iterator_delete(t_comin_var_descr_list_iterator** it) {
    delete *it;
    *it = nullptr;
  }
 
  void
  comin_var_get_descr_list_var_desc(t_comin_var_descr_list_iterator* current,
                                    t_comin_var_descriptor* var_desc) {
    *var_desc = current->it->first;
  }
 
  comin::keyval::Map* comin_construct_metadata() {
    return new comin::keyval::Map{};
  }
 
  void comin_destruct_metadata(comin::keyval::Map* metadata) {
    delete metadata;
  }
}