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)); }
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)); }
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)); }
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); }