Subversion Repositories wimsdev

Rev

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

Rev 10 Rev 3840
Line 48... Line 48...
48 
 
 48 
 
49 
    lvl=-1; *commacnt=0;
 49 
    lvl=-1; *commacnt=0;
50 
    for(p1=find_word_start(p), p2=p1; *p2; p2=find_word_start(p3)) {
 50 
    for(p1=find_word_start(p), p2=p1; *p2; p2=find_word_start(p3)) {
51 
        if(*p2=='.' || isdigit(*p2)) {
 51 
        if(*p2=='.' || isdigit(*p2)) {
52 
            if(lvl<exp_number) lvl=exp_number;
 52 
            if(lvl<exp_number) lvl=exp_number;
53 
            strtod(p2,&p3); continue;
 53 
            (void)strtod(p2,&p3); continue;
54 
        }
 54 
        }
55 
        if(*p2=='(') {
 55 
        if(*p2=='(') {
56 
            p3=find_matching(p2+1,')');
 56 
            p3=find_matching(p2+1,')');
57 
            if(lvl<exp_paren) lvl=exp_paren;
 57 
            if(lvl<exp_paren) lvl=exp_paren;
58 
            paren:
 58 
            paren: