comin_metadata.cpp

Go to the documentation of this file.

// @authors 10/2025 :: ICON Community Interface  <comin@icon-model.org>
//
// SPDX-License-Identifier: BSD-3-Clause
//
// See LICENSES for license information.
// Where software is supplied by third parties, it is indicated in the
// headers of the routines.
 
#include <limits>
 
#include "comin_keyval.hpp"
#include "comin_state.hpp"
#include "comin_variable.hpp"
 
struct t_comin_metadata_iterator {
  comin::keyval::Map::iterator it;
};
 
template <class T>
void comin_metadata_host_set(t_comin_var_descriptor descriptor, const char* key,
                             T val) {
  t_comin_var_item* var_item = comin_var_get_from_exposed(descriptor);
  if (var_item == nullptr) {
    comin_error_set(COMIN_ERROR_VAR_ITEM_NOT_ASSOCIATED);
    return;
  }
  auto it = var_item->metadata->find(key);
  if (it != var_item->metadata->end() &&
      !std::holds_alternative<T>(std::get<1>(*it))) {
    comin_error_set(COMIN_ERROR_VAR_METADATA_INCONSISTENT_TYPE);
    return;
  }
  (*var_item->metadata)[key] = val;
}
 
template <class T>
const T* comin_metadata_get(t_comin_var_descriptor descriptor,
                            const char* key) {
  t_comin_var_item* var_item = comin_var_get_from_exposed(descriptor);
  if (!comin_state_is_primary_done()) {
    comin_error_set(COMIN_ERROR_METADATA_GET_INSIDE_PRIMARYCONSTRUCTOR);
    return nullptr;
  }
  if (var_item == nullptr) {
    comin_error_set(COMIN_ERROR_VAR_ITEM_NOT_ASSOCIATED);
    return nullptr;
  }
  auto it = var_item->metadata->find(key);
  if (it == var_item->metadata->end()) {
    comin_error_set(COMIN_ERROR_METADATA_KEY_NOT_FOUND);
    return nullptr;
  }
  auto& value = std::get<1>(*it);
  if (!std::holds_alternative<T>(value)) {
    comin_error_set(COMIN_ERROR_VAR_METADATA_INCONSISTENT_TYPE);
    return nullptr;
  }
  return &std::get<T>(value);
}
 
extern "C" {
  void comin_metadata_host_set_int(t_comin_var_descriptor descriptor,
                                   const char* key, int val) {
    comin_metadata_host_set(descriptor, key, val);
  }
 
  void comin_metadata_host_set_bool(t_comin_var_descriptor descriptor,
                                    const char* key, bool val) {
    comin_metadata_host_set(descriptor, key, val);
  }
 
  void comin_metadata_host_set_double(t_comin_var_descriptor descriptor,
                                      const char* key, double val) {
    comin_metadata_host_set(descriptor, key, val);
  }
 
  void comin_metadata_host_set_string(t_comin_var_descriptor descriptor,
                                      const char* key, const char* val) {
    comin_metadata_host_set(descriptor, key, std::string(val));
  }
 
  int comin_metadata_get_int(t_comin_var_descriptor descriptor,
                             const char* key) {
    const int* ptr = comin_metadata_get<int>(descriptor, key);
    return ptr ? *ptr : 0;
  }
 
  bool comin_metadata_get_bool(t_comin_var_descriptor descriptor,
                               const char* key) {
    const bool* ptr = comin_metadata_get<bool>(descriptor, key);
    return ptr ? *ptr : 0;
  }
 
  double comin_metadata_get_double(t_comin_var_descriptor descriptor,
                                   const char* key) {
    const double* ptr = comin_metadata_get<double>(descriptor, key);
    return ptr ? *ptr : 0;
  }
 
  const char* comin_metadata_get_string(t_comin_var_descriptor descriptor,
                                        const char* key) {
    const std::string* ptr = comin_metadata_get<std::string>(descriptor, key);
    return ptr ? ptr->c_str() : 0;
  }
 
  t_comin_metadata_typeid
  comin_metadata_get_typeid(t_comin_var_descriptor var_descriptor,
                            const char* key) {
    t_comin_var_item* var_item = comin_var_get_from_exposed(var_descriptor);
    if (var_item == nullptr) {
      comin_error_set(COMIN_ERROR_VAR_ITEM_NOT_ASSOCIATED);
      return (t_comin_metadata_typeid)-2;
    }
    auto it = var_item->metadata->find(key);
    if (it == var_item->metadata->end()) {
      return (t_comin_metadata_typeid)-1;
    }
    return (t_comin_metadata_typeid)it->second.index();
  }
 
  t_comin_metadata_iterator*
  comin_metadata_get_iterator_begin(t_comin_var_descriptor var_descriptor) {
    t_comin_var_item* var_item = comin_var_get_from_exposed(var_descriptor);
    if (var_item == nullptr) {
      comin_error_set(COMIN_ERROR_VAR_ITEM_NOT_ASSOCIATED);
      return nullptr;
    }
    return new t_comin_metadata_iterator{var_item->metadata->begin()};
  }
 
  t_comin_metadata_iterator*
  comin_metadata_get_iterator_end(t_comin_var_descriptor var_descriptor) {
    t_comin_var_item* var_item = comin_var_get_from_exposed(var_descriptor);
    if (var_item == nullptr) {
      comin_error_set(COMIN_ERROR_VAR_ITEM_NOT_ASSOCIATED);
      return nullptr;
    }
    return new t_comin_metadata_iterator{var_item->metadata->end()};
  }
 
  const char* comin_metadata_iterator_get_key(t_comin_metadata_iterator* it) {
    auto& a = it->it;
    return a->first.c_str();
  }
 
  bool comin_metadata_iterator_compare(t_comin_metadata_iterator* it1,
                                       t_comin_metadata_iterator* it2) {
    return it1->it == it2->it;
  }
 
  void comin_metadata_iterator_next(t_comin_metadata_iterator* it) { it->it++; }
 
  void comin_metadata_iterator_delete(t_comin_metadata_iterator* it) {
    delete it;
  }
}