symbol.cpp

Go to the documentation of this file.

#include <../../nmodlconf.h>

#include "modl.h"
#include "parse1.hpp"
#include "symbol.h"

List    *symlist[128];  /* symbol table: linked list
                first char gives which list to use,but*/

List *symlistlist;   /* for a stack of local symbol lists */

void symbol_init() {
    int i;
    symlistlist = newlist();
    for (i=0; i<128; i++) { /* more than we need */
        symlist[i] = newlist();
    }
}

Symbol *lookup(char* s) /* find s in symbol table */
{
    Item *sp;

    ITERATE(sp, symlist[s[0]]) {
        if (strcmp(SYM(sp)->name, s) == 0) {
            return SYM(sp);
        }
    }
    return SYM0;    /* 0 ==> not found */
}

Symbol *checklocal(Symbol* sym)
{
    Item *sp;
    List *sl;
    char *s;

    s = sym->name;
    /* look in local lists */
    ITERATE(sl, symlistlist)
    ITERATE(sp, LST(sl)) {
        if (strcmp(SYM(sp)->name+2, s) == 0) { /*get past _l*/
            return SYM(sp);
        }
    }
    return sym;
}
    
Symbol *install(char* s, int t) /* install s in the list symbol table with type t*/
{
    Symbol *sp;
    List *sl;

    if (t == STRING) {
        sl = symlist[0];
    }else if (t == -1) {    /*install on top local list see below*/
        t = NAME;
        assert(symlistlist->next != symlistlist);
        sl = LST(symlistlist->next);
    }else{
        sl = symlist[s[0]];
    }
    sp = (Symbol *) emalloc(sizeof(Symbol));
    sp->name = stralloc(s, (char *)0);
    sp->type = t;
    sp->subtype = 0;
#if NMODL
    sp->nrntype = 0;
    sp->assigned_to_ = 0;
    sp->no_threadargs = 0;
#if CVODE
    sp->slist_info_ = (int*)0;
#endif
#endif
    sp->u.str = (char *)0;
    sp->used = 0;
    sp->usage = 0;
    sp->araydim = 0;
    sp->discdim = 0;
    sp->level = 100;    /* larger than any reasonable submodel level */
    Linsertsym(sl, sp); /*insert at head of list*/
    return sp;
}

void pushlocal()
{
    Item * q;
    q = linsertsym(symlistlist, SYM0); /*the type is irrelevant*/
    LST(q) = newlist();
}

void poplocal() /* a lot of storage leakage here for symbols we are guaranteed
    not to need */
{
    List *sl;
    Item *i, *j;

    assert(symlistlist->next != symlistlist);
    sl = LST(symlistlist->next);
    for (i = sl->next; i != sl; i = j) {
        j = i->next;
        remove(i);
    }
    remove(symlistlist->next);
}

Symbol *copylocal(Symbol* s)
{
    if (s->name[0] == '_') {
        Sprintf(buf, "%s", s->name);
    }else{
        Sprintf(buf, "_l%s", s->name);
    }
    return install(buf, -1);
}