Return to var.c CVS log

Up to [Plan 9 NeXT] / lucent / sys / src / cmd / rc

Annotation of lucent/sys/src/cmd/rc/var.c, revision 1.1.1.1

1.1       root        1: #include "rc.h"
                      2: #include "exec.h"
                      3: #include "fns.h"
                      4: int hash(char *s, int n)
                      5: {
                      6:        register int h=0, i=1;
                      7:        while(*s) h+=*s++*i++;
                      8:        h%=n;
                      9:        return h<0?h+n:h;
                     10: }
                     11: #define        NKW     30
                     12: struct kw{
                     13:        char *name;
                     14:        int type;
                     15:        struct kw *next;
                     16: }*kw[NKW];
                     17: void kenter(int type, char *name)
                     18: {
                     19:        register int h=hash(name, NKW);
                     20:        register struct kw *p=new(struct kw);
                     21:        p->type=type;
                     22:        p->name=name;
                     23:        p->next=kw[h];
                     24:        kw[h]=p;
                     25: }
                     26: void kinit(void){
                     27:        kenter(FOR, "for");
                     28:        kenter(IN, "in");
                     29:        kenter(WHILE, "while");
                     30:        kenter(IF, "if");
                     31:        kenter(NOT, "not");
                     32:        kenter(TWIDDLE, "~");
                     33:        kenter(BANG, "!");
                     34:        kenter(SUBSHELL, "@");
                     35:        kenter(SWITCH, "switch");
                     36:        kenter(FN, "fn");
                     37: }
                     38: tree *klook(char *name)
                     39: {
                     40:        struct kw *p;
                     41:        tree *t=token(name, WORD);
                     42:        for(p=kw[hash(name, NKW)];p;p=p->next)
                     43:                if(strcmp(p->name, name)==0){
                     44:                        t->type=p->type;
                     45:                        t->iskw=1;
                     46:                        break;
                     47:                }
                     48:        return t;
                     49: }
                     50: var *gvlook(char *name)
                     51: {
                     52:        int h=hash(name, NVAR);
                     53:        var *v;
                     54:        for(v=gvar[h];v;v=v->next) if(strcmp(v->name, name)==0) return v;
                     55:        return gvar[h]=newvar(strdup(name), gvar[h]);
                     56: }
                     57: var *vlook(char *name)
                     58: {
                     59:        var *v;
                     60:        if(runq)
                     61:                for(v=runq->local;v;v=v->next)
                     62:                        if(strcmp(v->name, name)==0) return v;
                     63:        return gvlook(name);
                     64: }
                     65: void setvar(char *name, word *val)
                     66: {
                     67:        register struct var *v=vlook(name);
                     68:        freewords(v->val);
                     69:        v->val=val;
                     70:        v->changed=1;
                     71: }

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.