Subversion Repositories wimsdev

Rev

Rev 8195 | Rev 8896 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 8195 Rev 8878
Line 35... Line 35...
35
      buf[i]=c;
35
      buf[i]=c;
36
    }
36
    }
37
    buf[i]=0;
37
    buf[i]=0;
38
    if(linecnt!=-100000) linecnt++;
38
    if(linecnt!=-100000) linecnt++;
39
    return c;
39
    return c;
40
}
-
 
41
 
-
 
42
double getvar(char *p)
-
 
43
{
-
 
44
    int i;
-
 
45
    for(i=0;i<varcnt && strcmp(p,vartab[i].name)!=0;i++);
-
 
46
    if(i<varcnt) return vartab[i].value;
-
 
47
    else return 0;
-
 
48
}
40
}
49
 
41
 
50
void setvar(char *p, double v)
42
void setvar(char *p, double v)
51
{
43
{
52
    int i;
44
    int i;