예제 #1
0
파일: fmt.c 프로젝트: Sciumo/f2c
static const char *i_tem(const char *s)
{	const char *t;
	int n,curloc;
	if(*s==')') return(s);
	if(ne_d(s,&t)) return(t);
	if(e_d(s,&t)) return(t);
	s=gt_num(s,&n,1);
	if((curloc=op_gen(STACK,n,0,0))<0) return(NULL);
	return(f_s(s,curloc));
}
예제 #2
0
파일: fmt.c 프로젝트: radarsat1/siconos
char *i_tem(char *s)
#endif
{
  char *t;
  int n, curloc;
  if (*s == ')') return(s);
  if (ne_d(s, &t)) return(t);
  if (e_d(s, &t)) return(t);
  s = gt_num(s, &n);
  if ((curloc = op_gen(STACK, n, 0, 0)) < 0) return(NULL);
  return(f_s(s, curloc));
}
예제 #3
0
파일: fmt.c 프로젝트: xyuan/Path64
static char *
i_tem(unit *ftnunit, char *s)
{
   char           *t;
   int             n, curloc;

   if (*s == ')')
      return (s);
   if (ne_d (ftnunit, s, &t))
      return (t);
   if (e_d (ftnunit, s, &t))
      return (t);
   s = gt_num (ftnunit, s, &n);
   if ((curloc = op_gen (ftnunit, STACK, n, 0, 0)) < 0)
      return (NULL);
   return (f_s (ftnunit, s, curloc));
}
예제 #4
0
파일: fmt.c 프로젝트: troore/scale
const char *
i_tem(const char *s)
{
  const char *t;
  int n;
  int curloc;

  if (*s == ')')
    return s;
  if (ne_d(s, &t))
    return t;
  if (e_d(s, &t))
    return t;

  s = gt_num(s, &n);

  if ((curloc = op_gen(STACK, n, 0, 0)) < 0)
    return NULL;

  return f_s(s, curloc);
}