Subversion Repositories wimsdev

Rev

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

Rev 8149 Rev 8171
Line 127... Line 127...
127 
    for(t=0; t<n; t++,p=p1) {
 127 
    for(t=0; t<n; t++,p=p1) {
128 
      p1=find_item_end(p); if(*p1) *p1++=0;
 128 
      p1=find_item_end(p); if(*p1) *p1++=0;
129 
      p=find_word_start(p);
 129 
      p=find_word_start(p);
130 
      if(*p==0) break;
 130 
      if(*p==0) break;
131 
      v[t]=strevalue(p);
 131 
      v[t]=strevalue(p);
132 
      if(!finite(v[t])) exit(-1);
 132 
      if(!isfinite(v[t])) exit(-1);
133 
    }
 133 
    }
134 
    return t;
 134 
    return t;
135 
}
 135 
}
136 
 
 136 
 
137 
/* test one condition. Returns 1 if met. */
 137 
/* test one condition. Returns 1 if met. */