symdir.cpp

Go to the documentation of this file.

#include <../../nrnconf.h>
#include <stdlib.h>
#include <InterViews/resource.h>
#include <OS/list.h>
#include <OS/string.h>
#include <stdio.h>
#include "ocobserv.h"
 
#if CABLE
#include "nrnoc2iv.h"
#else
#include "oc2iv.h"
#endif
 
#if CABLE
#include "membfunc.h"
extern double* point_process_pointer(Point_process*, Symbol*, int);
#endif
#include "parse.hpp"
#include "hoclist.h"
extern Symlist* hoc_symlist;
extern Objectdata* hoc_top_level_data;
extern Symlist *hoc_built_in_symlist, *hoc_top_level_symlist;
extern int hoc_array_index(Symbol*, Objectdata*);
#include "string.h"
#include "symdir.h"
 
#include "nrnsymdiritem.h"
implementPtrList(SymbolList, SymbolItem);
 
const char* concat(const char* s1, const char* s2) {
    static char* tmp = 0;
    int l1 = strlen(s1);
    int l2 = strlen(s2);
    if (tmp) {
        delete[] tmp;
    }
    tmp = new char[l1 + l2 + 1];
    sprintf(tmp, "%s%s", s1, s2);
    return (const char*) tmp;
}
 
class SymDirectoryImpl: public Observer {
  public:
    void disconnect(Observable*);  // watching an object
    void update(Observable*);      // watching a template
  private:
    friend class SymDirectory;
#if CABLE
    Section* sec_;
#endif
    Object* obj_;
    cTemplate* t_;
 
    SymbolList symbol_list_;
    CopyString path_;
 
    void load(int type);
    void load(int type, Symlist*);
    //  void load(Symbol*);
    void load_section();
    void load_object();
    void load_aliases();
    void load_template();
    void load_sectionlist();
#if CABLE
    void load_mechanism(Prop*, int, const char*);
#endif
    void append(Symbol* sym, Objectdata* od, Object* o = NULL);
    void append(Object*);
    void un_append(Object*);
    void make_pathname(const char*, const char*, const char*, int s = '.');
    void sort();
};
 
static int compare_entries(const void* k1, const void* k2) {
    SymbolItem* e1 = *((SymbolItem**) k1);
    SymbolItem* e2 = *((SymbolItem**) k2);
    int i = strcmp(e1->name().string(), e2->name().string());
    if (i == 0) {
        if (e1->array_index() > e2->array_index()) {
            i = 1;
        } else {
            i = -1;
        }
    }
    return i;
};
 
void SymDirectoryImpl::sort() {
    long cnt, i;
    cnt = symbol_list_.count();
    SymbolItem** slist = new SymbolItem*[cnt];
    for (i = 0; i < cnt; ++i) {
        slist[i] = symbol_list_.item(i);
    }
    qsort(slist, cnt, sizeof(SymbolItem*), compare_entries);
    symbol_list_.remove_all();
    for (i = 0; i < cnt; ++i) {
        symbol_list_.append(slist[i]);
    }
    delete[] slist;
}
 
// SymDirectory
SymDirectory::SymDirectory(const String& parent_path,
                           Object* parent_obj,
                           Symbol* sym,
                           int array_index,
                           int) {
    impl_ = new SymDirectoryImpl();
#if CABLE
    impl_->sec_ = NULL;
#endif
    impl_->obj_ = NULL;
    impl_->t_ = NULL;
    Objectdata* obd;
    if (parent_obj) {
        obd = parent_obj->u.dataspace;
    } else {
        //      obd = hoc_objectdata;
        obd = hoc_top_level_data;
    }
    int suffix = '.';
    if (sym->type == TEMPLATE) {
        suffix = '_';
    }
    impl_->make_pathname(parent_path.string(),
                         sym->name,
                         hoc_araystr(sym, array_index, obd),
                         suffix);
    switch (sym->type) {
#if CABLE
    case SECTION:
        if (object_psecitm(sym, obd)[array_index]) {
            impl_->sec_ = hocSEC(object_psecitm(sym, obd)[array_index]);
            section_ref(impl_->sec_);
            impl_->load_section();
        }
        break;
#endif
    case OBJECTVAR:
        impl_->obj_ = object_pobj(sym, obd)[array_index];
        if (impl_->obj_) {
            ObjObservable::Attach(impl_->obj_, impl_);
            impl_->load_object();
        }
        break;
    case TEMPLATE:
        impl_->t_ = sym->u.ctemplate;
        ClassObservable::Attach(impl_->t_, impl_);
        impl_->load_template();
        break;
    case OBJECTALIAS:
        impl_->obj_ = sym->u.object_;
        if (impl_->obj_) {
            ObjObservable::Attach(impl_->obj_, impl_);
            impl_->load_object();
        }
        break;
    default:
        hoc_execerror("Don't know how to make a directory out of", path().string());
        break;
    }
    impl_->sort();
}
SymDirectory::SymDirectory(Object* ob) {
    impl_ = new SymDirectoryImpl();
#if CABLE
    impl_->sec_ = NULL;
#endif
    impl_->obj_ = ob;
    impl_->t_ = NULL;
    int suffix = '.';
    impl_->make_pathname("", hoc_object_name(ob), "", '.');
    ObjObservable::Attach(impl_->obj_, impl_);
    impl_->load_object();
    impl_->sort();
}
 
bool SymDirectory::is_pysec(int index) const {
    SymbolItem* si = impl_->symbol_list_.item(index);
#if CABLE
    return si->pysec_ ? true : false;
#else
    return false;
#endif
}
SymDirectory* SymDirectory::newsymdir(int index) {
    SymbolItem* si = impl_->symbol_list_.item(index);
    SymDirectory* d = new SymDirectory();
#if CABLE
    if (si->pysec_type_ == PYSECOBJ) {
        nrn_symdir_load_pysec(d->impl_->symbol_list_, si->pysec_);
    } else {
        d->impl_->sec_ = (Section*) si->pysec_;
        section_ref(d->impl_->sec_);
        d->impl_->load_section();
    }
    d->impl_->path_ = concat(path().string(), si->name().string());
    d->impl_->path_ = concat(d->impl_->path_.string(), ".");
    d->impl_->sort();
#endif
    return d;
}
 
SymDirectory::SymDirectory() {
    impl_ = new SymDirectoryImpl();
#if CABLE
    impl_->sec_ = NULL;
#endif
    impl_->obj_ = NULL;
    impl_->t_ = NULL;
}
 
SymDirectory::SymDirectory(int type) {
    ParseTopLevel ptl;
    ptl.save();
    impl_ = new SymDirectoryImpl();
#if CABLE
    impl_->sec_ = NULL;
#endif
    impl_->obj_ = NULL;
    impl_->t_ = NULL;
    impl_->path_ = "";
    impl_->load(type);
    impl_->sort();
    ptl.restore();
}
 
SymDirectory::~SymDirectory() {
    long cnt = count();
    for (long i = 0; i < cnt; ++i) {
        delete impl_->symbol_list_.item(i);
    }
    impl_->symbol_list_.remove_all();
    if (impl_->obj_) {
        ObjObservable::Detach(impl_->obj_, impl_);
    }
    if (impl_->t_) {
        ClassObservable::Detach(impl_->t_, impl_);
    }
#if CABLE
    if (impl_->sec_) {
        section_unref(impl_->sec_);
    }
#endif
    delete impl_;
}
void SymDirectoryImpl::disconnect(Observable*) {
    long cnt = symbol_list_.count();
    for (long i = 0; i < cnt; ++i) {
        delete symbol_list_.item(i);
    }
    symbol_list_.remove_all();
    obj_ = NULL;
}
 
void SymDirectoryImpl::update(Observable* obs) {
    if (t_) {  // watching a template
        ClassObservable* co = (ClassObservable*) obs;
        Object* ob = co->object();
        switch (co->message()) {
        case ClassObservable::Delete:
            un_append(ob);
            break;
        case ClassObservable::Create:
            append(ob);
            break;
        }
    }
}
double* SymDirectory::variable(int index) {
    Object* ob = object();
    Symbol* sym = symbol(index);
    // printf("::variable index=%d sym=%s ob=%s\n", index,
    // sym?sym->name:"SYM0",hoc_object_name(ob));
    if (sym)
        switch (sym->type) {
        case VAR:
            if (ob && ob->ctemplate->constructor) {
                extern double* ivoc_vector_ptr(Object*, int);
                if (is_obj_type(ob, "Vector")) {
                    return ivoc_vector_ptr(ob, index);
                } else {
                    return NULL;
                }
            } else {
                Objectdata* od;
                if (ob) {
                    od = ob->u.dataspace;
                } else if (sym->subtype == USERDOUBLE) {
                    return sym->u.pval + array_index(index);
                } else {
                    od = hoc_objectdata;
                }
                return od[sym->u.oboff].pval + array_index(index);
            }
#if CABLE
        case RANGEVAR:
            if (ob && ob->ctemplate->is_point_) {
                return point_process_pointer((Point_process*) ob->u.this_pointer,
                                             sym,
                                             array_index(index));
            }
            break;
#endif
        }
    else {
        char buf[256], *cp;
        sprintf(buf, "%s%s", path().string(), name(index).string());
        if (whole_vector(index)) {  // rangevar case for [all]
            // replace [all] with [0]
            cp = strstr(buf, "[all]");
            assert(cp);
            *(++cp) = '0';
            for (++cp; cp[2]; ++cp) {
                *cp = cp[2];
            }
            *cp = '\0';
        }
        return hoc_val_pointer(buf);
    }
    return NULL;
}
 
int SymDirectory::whole_vector(int index) {
    return impl_->symbol_list_.item(index)->whole_vector();
}
 
const String& SymDirectory::path() const {
    return impl_->path_;
}
int SymDirectory::count() const {
    return impl_->symbol_list_.count();
}
const String& SymDirectory::name(int index) const {
    return impl_->symbol_list_.item(index)->name();
}
int SymDirectory::array_index(int i) const {
    return impl_->symbol_list_.item(i)->array_index();
}
 
int SymDirectory::index(const String& name) const {
    long cnt = count();
    for (long i = 0; i < cnt; ++i) {
        if (name == impl_->symbol_list_.item(i)->name()) {
            return i;
        }
    }
    return -1;
}
void SymDirectory::whole_name(int index, CopyString& s) const {
    const String& s1 = impl_->path_;
    const String& s2 = name(index);
    //  char* tmp = new char[s1.length() + s2.length() + 1];
    //  sprintf(tmp, "%.*%s%.*%s", s1.length(), s1.string(), s2.length(), s2.string());
    //  s = tmp;
    s = concat(s1.string(), s2.string());
}
bool SymDirectory::is_directory(int index) const {
    return impl_->symbol_list_.item(index)->is_directory();
}
bool SymDirectory::match(const String&, const String&) {
    return true;
}
Symbol* SymDirectory::symbol(int index) const {
    return impl_->symbol_list_.item(index)->symbol();
}
Object* SymDirectory::object() const {
    return impl_->obj_;
}
 
Object* SymDirectory::obj(int index) {
    return impl_->symbol_list_.item(index)->object();
}
 
// SymbolItem
SymbolItem::SymbolItem(const char* n, int whole_array) {
    symbol_ = NULL;
    index_ = 0;
    ob_ = NULL;
    name_ = n;
    whole_array_ = whole_array;
#if CABLE
    pysec_type_ = 0;
    pysec_ = NULL;
#endif
}
SymbolItem::SymbolItem(Symbol* sym, Objectdata* od, int index, int whole_array) {
    symbol_ = sym;
    ob_ = NULL;
    whole_array_ = whole_array;
    if (ISARRAY(sym)) {
        if (whole_array_) {
            name_ = concat(sym->name, "[all]");
        } else {
            if (od) {
                name_ = concat(sym->name, hoc_araystr(sym, index, od));
            } else {
                char buf[50];
                sprintf(buf, "[%d]", index);
                name_ = concat(sym->name, buf);
            }
        }
    } else {
        name_ = sym->name;
    }
    index_ = index;
#if CABLE
    pysec_type_ = 0;
    pysec_ = NULL;
#endif
}
 
int SymbolItem::whole_vector() {
    return whole_array_;
}
 
SymbolItem::SymbolItem(Object* ob) {
    symbol_ = NULL;
    index_ = 0;
    ob_ = ob;
    char buf[10];
    sprintf(buf, "%d", ob->index);
    name_ = buf;
#if CABLE
    pysec_type_ = 0;
    pysec_ = NULL;
#endif
}
 
void SymbolItem::no_object() {
    ob_ = NULL;
    name_ = "Deleted";
}
 
SymbolItem::~SymbolItem() {}
 
bool SymbolItem::is_directory() const {
    if (symbol_)
        switch (symbol_->type) {
        case SECTION:
        case OBJECTVAR:
        case TEMPLATE:
        case OBJECTALIAS:
            //  case SECTIONLIST:
            //  case MECHANISM:
            return true;
        }
    if (ob_) {
        return true;
    }
#if CABLE
    if (pysec_) {
        return true;
    }
#endif
    return false;
}
 
void SymDirectoryImpl::make_pathname(const char* parent,
                                     const char* name,
                                     const char* index,
                                     int suffix) {
    char buf[200];
    sprintf(buf, "%s%s%s%c", parent, name, index, suffix);
    path_ = buf;
}
 
 
void SymDirectoryImpl::load(int type) {
    switch (type) {
    case TEMPLATE:
        load(type, hoc_built_in_symlist);
        load(type, hoc_top_level_symlist);
        break;
#if CABLE
    case RANGEVAR:
        load(type, hoc_built_in_symlist);
        break;
    case PYSEC:
        path_ = "_pysec.";
        nrn_symdir_load_pysec(symbol_list_, NULL);
        break;
#endif
    default:
        load(type, hoc_symlist);
        if (hoc_symlist != hoc_built_in_symlist) {
            Objectdata* sav = hoc_objectdata;
            hoc_objectdata = NULL;
            load(type, hoc_built_in_symlist);
            hoc_objectdata = sav;
        }
        if (hoc_symlist != hoc_top_level_symlist) {
            load(type, hoc_top_level_symlist);
        }
    }
}
 
void SymDirectoryImpl::load(int type, Symlist* sl) {
    Symbol* sym;
    for (sym = sl->first; sym; sym = sym->next) {
        if (type == -1) {
            switch (sym->type) {
            case SECTION:
            case OBJECTVAR:
            case VAR:
            case TEMPLATE:
                append(sym, hoc_objectdata);
            }
        } else if (sym->type == type) {
            append(sym, hoc_objectdata);
        }
    }
}
 
void SymDirectoryImpl::load_object() {
    Symlist* sl = obj_->ctemplate->symtable;
    Objectdata* od;
    if (obj_->ctemplate->constructor) {
        od = NULL;
    } else {
        od = obj_->u.dataspace;
    }
    if (obj_->aliases) {
        load_aliases();
    }
    if (sl)
        for (Symbol* s = sl->first; s; s = s->next) {
            if (s->cpublic) {
                append(s, od, obj_);
            }
        }
}
 
void SymDirectoryImpl::load_aliases() {
    IvocAliases* a = (IvocAliases*) obj_->aliases;
    if (!a)
        return;
    for (const auto& kv: a->symtab_) {
        Symbol* s = kv.second;
        append(s, NULL, obj_);
    }
}
 
void SymDirectoryImpl::load_template() {
    hoc_Item* q;
    ITERATE(q, t_->olist) {
        append(OBJ(q));
    }
}
 
void SymDirectoryImpl::load_section() {
#if CABLE
    char xarg[20];
    char buf[100];
    Section* sec = sec_;
    int n = sec->nnode;
 
    int i = 0;
    double x = nrn_arc_position(sec, sec->pnode[0]);
    sprintf(xarg, "( %g )", x);
    sprintf(buf, "v%s", xarg);
    symbol_list_.append(new SymbolItem(buf));
    nrn_pushsec(sec);
    Node* nd = sec->pnode[i];
    for (Prop* p = nd->prop; p; p = p->next) {
        load_mechanism(p, 0, xarg);
    }
    nrn_popsec();
#endif
}
void SymDirectoryImpl::load_sectionlist() {
#if CABLE && 0
    List* sl = od[sym->u.oboff].plist[hoc_array_index(sym, od)];
    Item* qsym;
    // ForAllSections(sec)
    ITERATE(qsec, section_list) {
        Section* sec = hocSEC(qsec);
        Prop* p = sec->prop;
        symbol_list_.append(new SymbolItem(p->dparam[0].sym, p->dparam[6].obj, prop->dparam[5].i));
    }
#endif
}
 
#if CABLE
void SymDirectoryImpl::load_mechanism(Prop* p, int type, const char* xarg) {
    NrnProperty np(p);
    if (np.is_point()) {
        return;
    }
    char buf[200];
    for (Symbol* sym = np.first_var(); np.more_var(); sym = np.next_var()) {
        if (np.var_type(sym) == type || type == 0) {
            if (ISARRAY(sym)) {
                int n = hoc_total_array_data(sym, 0);
                if (n > 5) {
                    sprintf(buf, "%s[all]%s", sym->name, xarg);
                    symbol_list_.append(new SymbolItem(buf, n));
                }
                sprintf(buf, "%s[%d]%s", sym->name, 0, xarg);
                symbol_list_.append(new SymbolItem(buf));
                sprintf(buf, "%s[%d]%s", sym->name, n - 1, xarg);
                symbol_list_.append(new SymbolItem(buf));
            } else {
                sprintf(buf, "%s%s", sym->name, xarg);
                symbol_list_.append(new SymbolItem(buf));
            }
        }
    }
}
#endif
 
void SymDirectoryImpl::append(Symbol* sym, Objectdata* od, Object* o) {
    if (ISARRAY(sym)) {
        int i, n = 1;
        if (od) {
            n = hoc_total_array_data(sym, od);
        } else {  // Vector
            if (is_obj_type(o, "Vector")) {
                extern int ivoc_vector_size(Object*);
                n = ivoc_vector_size(o);
            }
        }
        if (n > 5 && sym->type == VAR) {
            symbol_list_.append(new SymbolItem(sym, od, 0, n));
        }
        for (i = 0; i < n; ++i) {
            symbol_list_.append(new SymbolItem(sym, od, i));
            if (i > 5) {
                break;
            }
        }
        if (i < n - 1) {
            symbol_list_.append(new SymbolItem(sym, od, n - 1));
        }
    } else {
        symbol_list_.append(new SymbolItem(sym, od, 0));
    }
}
 
void SymDirectoryImpl::append(Object* ob) {
    symbol_list_.append(new SymbolItem(ob));
}
void SymDirectoryImpl::un_append(Object* ob) {
    long i, cnt = symbol_list_.count();
    for (i = 0; i < cnt; ++i) {
        if (symbol_list_.item(i)->object() == ob) {
            symbol_list_.item(i)->no_object();
            break;
        }
    }
}