Beispiel #1
0
Datei: fmt.c Projekt: Sciumo/f2c
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);
}
Beispiel #2
0
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);
}