static const char *f_list(const char *s) { for(;*s!=0;) { skip(s); if((s=i_tem(s))==NULL) return(NULL); skip(s); if(*s==',') s++; else if(*s==')') { if(--f__parenlvl==0) { (void) op_gen(REVERT,f__revloc,0,0); return(++s); } (void) op_gen(GOTO,0,0,0); return(++s); } } return(NULL); }
static char * f_list(unit *ftnunit, char *s) { for (; *s != 0;) { skip (s); if ((s = i_tem (ftnunit, s)) == NULL) return (NULL); skip (s); if (*s == ',') s++; else if (*s == ')') { if (--ftnunit->parenlvl == 0) { (void) op_gen (ftnunit, REVERT, ftnunit->revloc, 0, 0); return (++s); } (void) op_gen (ftnunit, GOTO, 0, 0, 0); return (++s); } } return (NULL); }