nrncore_utils.cpp

Go to the documentation of this file.

#include "nrncore_utils.h"
#include "nrncore_write/callbacks/nrncore_callbacks.h"
 
#include "nrnconf.h"
#include "nrniv_mf.h"
#include <cstdlib>
#include "nrndae_c.h"
#include "section.h"
#include "hocdec.h"
#include "nrnsection_mapping.h"
#include "vrecitem.h"  // for nrnbbcore_vecplay_write
#include "parse.hpp"
#include <string>
#ifdef HAVE_UNISTD_H
#include <unistd.h>
#endif
#include <algorithm>
#include <cerrno>
#include <filesystem>
 
#include "nrnwrap_dlfcn.h"
 
// RTLD_NODELETE is used with dlopen
// if not defined it's safe to define as 0
#ifndef RTLD_NODELETE
#define RTLD_NODELETE 0
#endif
 
extern bool corenrn_direct;
extern const char* bbcore_write_version;
extern NrnMappingInfo mapinfo;
extern void (*nrnthread_v_transfer_)(NrnThread*);
extern short* nrn_is_artificial_;
 
 
// prerequisites for a NEURON model to be transferred to CoreNEURON.
void model_ready() {
    if (!nrndae_list_is_empty()) {
        hoc_execerror(
            "CoreNEURON cannot simulate a model that contains extra LinearMechanism or RxD "
            "equations",
            NULL);
    }
    if (nrn_threads[0]._ecell_memb_list) {
        hoc_execerror(
            "CoreNEURON cannot simulate a model that contains the extracellular mechanism", NULL);
    }
    if (corenrn_direct) {
        if (cvode_active_) {
            hoc_execerror("CoreNEURON can only use fixed step method.", NULL);
        }
    }
    if (tree_changed || v_structure_change || diam_changed) {
        hoc_execerror(
            "NEURON model internal structures for CoreNEURON are out of date. Make sure call to "
            "finitialize(...)",
            NULL);
    }
}
 
/** @brief Count number of unique elements in the array.
 *  there is a copy of the vector but we are primarily
 *  using it for small section list vectors.
 */
int count_distinct(double* data, int len) {
    if (len == 0)
        return 0;
    std::vector<double> v;
    v.assign(data, data + len);
    std::sort(v.begin(), v.end());
    return std::unique(v.begin(), v.end()) - v.begin();
}
 
 
/** @brief For BBP use case, we want to write section-segment
 *  mapping to gid_3.dat file. This information will be
 *  provided through neurodamus HOC interface with following
 *  format:
 *      gid : number of non-empty neurons in the cellgroup
 *      name : name of section list (like soma, axon, apic)
 *      nsec : number of sections
 *      sections : list of sections
 *      segments : list of segments
 *      seg_lfp_factors: list of lfp factors
 */
void nrnbbcore_register_mapping() {
    // gid of a cell
    int gid = *hoc_getarg(1);
 
    // name of section list
    std::string name = std::string(hoc_gargstr(2));
 
    // hoc vectors: sections and segments
    Vect* sec = vector_arg(3);
    Vect* seg = vector_arg(4);
    Vect* lfp = ifarg(5) ? vector_arg(5) : new Vect();
    int electrodes_per_segment = ifarg(6) ? *hoc_getarg(6) : 0;
 
    double* sections = vector_vec(sec);
    double* segments = vector_vec(seg);
    double* seg_lfp_factors = vector_vec(lfp);
 
    int nsec = vector_capacity(sec);
    int nseg = vector_capacity(seg);
    int nlfp = vector_capacity(lfp);
 
    if (nsec != nseg) {
        Printf("Error: Section and Segment mapping vectors should have same size!\n");
        abort();
    }
 
    // number of unique sections
    nsec = count_distinct(sections, nsec);
 
    SecMapping* smap = new SecMapping(nsec, name);
    smap->sections.assign(sections, sections + nseg);
    smap->segments.assign(segments, segments + nseg);
    smap->seglfp_factors.assign(seg_lfp_factors, seg_lfp_factors + nlfp);
    smap->num_electrodes = electrodes_per_segment;
 
    // store mapping information
    mapinfo.add_sec_mapping(gid, smap);
}
 
// This function is related to legacy_index2pointer in CoreNeuron to determine
// which values should be transferred from CoreNeuron. Types correspond to the
// value to be transferred based on mech_type enum or non-artificial cell
// mechanisms.
// Limited to pointers to voltage, nt.node_sav_rhs_storage() (fast_imem value) or
// data of non-artificial cell mechanisms.
// Input double* and NrnThread. Output type and index.
// type == 0 means could not determine index.
int nrn_dblpntr2nrncore(neuron::container::data_handle<double> dh,
                        NrnThread& nt,
                        int& type,
                        int& index) {
    int nnode = nt.end;
    type = 0;
    if (dh.refers_to<neuron::container::Node::field::Voltage>(neuron::model().node_data())) {
        auto const cache_token = nrn_ensure_model_data_are_sorted();
        type = voltage;
        // In the CoreNEURON world this is an offset into the voltage array part
        // of _data
        index = dh.current_row() - cache_token.thread_cache(nt.id).node_data_offset;
        return 0;
    }
    if (dh.refers_to<neuron::container::Node::field::FastIMemSavRHS>(neuron::model().node_data())) {
        auto const cache_token = nrn_ensure_model_data_are_sorted();
        type = i_membrane_;  // signifies an index into i_membrane_ array portion of _data
        index = dh.current_row() - cache_token.thread_cache(nt.id).node_data_offset;
        return 0;
    }
    auto* const pd = static_cast<double*>(dh);
    for (NrnThreadMembList* tml = nt.tml; tml; tml = tml->next) {
        if (nrn_is_artificial_[tml->index]) {
            continue;
        }
        if (auto const maybe_index = tml->ml->legacy_index(pd); maybe_index >= 0) {
            type = tml->index;
            index = maybe_index;
            break;
        }
    }
    return type == 0 ? 1 : 0;
}
 
 
#if defined(HAVE_DLFCN_H)
 
extern char* neuron_home;
 
/** Check if coreneuron is loaded into memory */
bool is_coreneuron_loaded() {
    bool is_loaded = false;
    // check if corenrn_embedded_run symbol can be found
    void* handle = dlopen(NULL, RTLD_NOW | RTLD_GLOBAL);
    if (handle) {
        void* fn = dlsym(handle, "corenrn_embedded_run");
        is_loaded = fn == NULL ? false : true;
        dlclose(handle);
    }
    return is_loaded;
}
 
 
/** Open library with given path and return dlopen handle **/
void* get_handle_for_lib(std::filesystem::path const& path) {
    // On windows path.c_str() is wchar_t*
    void* handle = dlopen(path.string().c_str(), RTLD_NOW | RTLD_GLOBAL | RTLD_NODELETE);
    if (!handle) {
        fputs(dlerror(), stderr);
        fputs("\n", stderr);
        hoc_execerror("Could not dlopen CoreNEURON mechanism library : ", path.string().c_str());
    }
    return handle;
}
 
/** Get CoreNEURON mechanism library */
void* get_coreneuron_handle() {
    // if already loaded into memory, directly return handle
    if (is_coreneuron_loaded()) {
        return dlopen(NULL, RTLD_NOW | RTLD_GLOBAL);
    }
 
    // record what we tried so we can give a helpful error message
    std::vector<std::filesystem::path> paths_tried;
    paths_tried.reserve(3);
 
    // env variable get highest preference
    const char* corenrn_lib = std::getenv("CORENEURONLIB");
    if (corenrn_lib) {
        std::filesystem::path const corenrn_lib_path{corenrn_lib};
        paths_tried.push_back(corenrn_lib_path);
        if (std::filesystem::exists(corenrn_lib_path)) {
            return get_handle_for_lib(corenrn_lib_path);
        }
    }
 
    auto const corenrn_lib_name = std::string{neuron::config::shared_library_prefix}
                                      .append("corenrnmech")
                                      .append(neuron::config::shared_library_suffix);
 
    // first check if coreneuron specific library exist in <arch>
    // note that we need to get full path especially for OSX
    {
        auto const corenrn_lib_path = std::filesystem::current_path() /
                                      neuron::config::system_processor / corenrn_lib_name;
        paths_tried.push_back(corenrn_lib_path);
        if (std::filesystem::exists(corenrn_lib_path)) {
            return get_handle_for_lib(corenrn_lib_path);
        }
    }
 
    // last fallback is minimal library with internal mechanisms
    // named libcorenrnmech_internal
    std::filesystem::path corenrn_lib_path{neuron_home};
    auto const corenrn_internal_lib_name = std::string{neuron::config::shared_library_prefix}
                                               .append("corenrnmech_internal")
                                               .append(neuron::config::shared_library_suffix);
#ifndef MINGW
    (corenrn_lib_path /= "..") /= "..";
#endif
    (corenrn_lib_path /= "lib") /= corenrn_internal_lib_name;
    paths_tried.push_back(corenrn_lib_path);
    if (std::filesystem::exists(corenrn_lib_path)) {
        return get_handle_for_lib(corenrn_lib_path);
    }
    // Nothing worked => error
    std::ostringstream oss;
    oss << "Could not find CoreNEURON library, tried:";
    for (auto const& path: paths_tried) {
        oss << ' ' << path;
    }
    throw std::runtime_error(oss.str());
}
 
/** Check if neuron & coreneuron are compatible */
void check_coreneuron_compatibility(void* handle) {
    // get handle to function in coreneuron
    void* cn_version_sym = dlsym(handle, "corenrn_version");
    if (!cn_version_sym) {
        hoc_execerror("Could not get symbol corenrn_version from CoreNEURON", NULL);
    }
    // call coreneuron function and get version string
    const char* cn_bbcore_read_version = (*(const char* (*) ()) cn_version_sym)();
 
    // make sure neuron and coreneuron version are same; otherwise throw an error
    if (strcmp(bbcore_write_version, cn_bbcore_read_version) != 0) {
        std::stringstream s_path;
        s_path << bbcore_write_version << " vs " << cn_bbcore_read_version;
        hoc_execerror("Incompatible NEURON and CoreNEURON versions :", s_path.str().c_str());
    }
}
 
#endif  //! HAVE_DLFCN_H