Subversion Repositories wimsdev

Rev

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

Rev 7673 Rev 8155
Line 369... Line 369...
369
    }
369
    }
370
    return val;
370
    return val;
371
}
371
}
372
 
372
 
373
/* Search variables with numeric subscripts, from beg to end.
373
/* Search variables with numeric subscripts, from beg to end.
374
 * Store result to pbuf. Returns number of variables found. */
374
 * Store result to pbuf. Returns number of variables found.
-
 
375
 */
375
int varsuite(char *stem, int beg, int end, char *pbuf[], int pbuflen)
376
int varsuite(char *stem, int beg, int end, char *pbuf[], int pbuflen)
376
{
377
{
377
    int i,t,l,v;
378
    int i,t,l,v;
378
    i=search_list(mainvartab,mainvarcnt,sizeof(mainvartab[0]),stem);
379
    i=search_list(mainvartab,mainvarcnt,sizeof(mainvartab[0]),stem);
379
    if(i<0) i=~i;
380
    if(i<0) i=~i;