Rev 3813 | Rev 8136 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
| Rev 3813 | Rev 3840 | ||
|---|---|---|---|
| Line 53... | Line 53... | ||
| 53 | if(dist>0 && (nonesting || nopart)) return; |
53 | if(dist>0 && (nonesting || nopart)) return; |
| 54 | commacnt=0; |
54 | commacnt=0; |
| 55 | if(expl1<=0) got=1; else got=0; |
55 | if(expl1<=0) got=1; else got=0; |
| 56 | for(p1=find_word_start(p), p2=p1; *p2; p2=find_word_start(p3)) { |
56 | for(p1=find_word_start(p), p2=p1; *p2; p2=find_word_start(p3)) { |
| 57 | if(*p2=='.' || isdigit(*p2)) { |
57 | if(*p2=='.' || isdigit(*p2)) { |
| 58 | strtod(p2,&p3); continue; |
58 | (void)strtod(p2,&p3); continue; |
| 59 | } |
59 | } |
| 60 | if(*p2=='(') { |
60 | if(*p2=='(') { |
| 61 | p3=find_matching(p2+1,')'); lt=exp_paren; |
61 | p3=find_matching(p2+1,')'); lt=exp_paren; |
| 62 | paren: if(p3==NULL) error("Unmatched parentheses."); |
62 | paren: if(p3==NULL) error("Unmatched parentheses."); |
| 63 | p2++; memmove(buf,p2,p3-p2); buf[p3-p2]=0; |
63 | p2++; memmove(buf,p2,p3-p2); buf[p3-p2]=0; |