Update of /cvsroot/pure-data/pd/extra/expr~ In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv14009/expr~
Modified Files: Tag: devel_0_37 vexp.c Log Message: aligned to millers 0.37-1
Index: vexp.c =================================================================== RCS file: /cvsroot/pure-data/pd/extra/expr~/vexp.c,v retrieving revision 1.2.12.1 retrieving revision 1.2.12.2 diff -C2 -d -r1.2.12.1 -r1.2.12.2 *** vexp.c 8 Jul 2003 09:48:56 -0000 1.2.12.1 --- vexp.c 6 May 2004 09:37:35 -0000 1.2.12.2 *************** *** 79,99 **** char *atoif(char *s, long int *value, long int *type);
! static struct ex_ex *ex_lex(struct expr *exp, long int *n); struct ex_ex *ex_match(struct ex_ex *eptr, long int op); ! struct ex_ex *ex_parse(struct expr *exp, struct ex_ex *iptr, struct ex_ex *optr, long int *argc); ! struct ex_ex *ex_eval(struct expr *exp, struct ex_ex *eptr, struct ex_ex *optr, int i);
! int expr_donew(struct expr *expr, int ac, t_atom *av); [...1572 lines suppressed...] (eptr->ex_ptr)[i] = 0; ! exp->exp_str = p; /* * we mark this as a string and later we will change this --- 1844,1858 ---- * function or a table */ ! p = --expr->exp_str; for (i = 0; name_ok(*p); i++) p++; if (!i) { ! post("expr: syntax error: %s\n", expr->exp_str); return (1); } eptr->ex_ptr = (char *)fts_malloc(i + 1); ! strncpy(eptr->ex_ptr, expr->exp_str, (int) i); (eptr->ex_ptr)[i] = 0; ! expr->exp_str = p; /* * we mark this as a string and later we will change this