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 (TableIterator(SymbolTable) i(*a->symtab_); i.more(); i.next()) {
        Symbol* s = i.cur_value();
        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)
        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;
        }
    }
}