[PD-cvs] pd/extra/expr~ vexp.c,1.2.12.1,1.2.12.2

Guenter Geiger ggeiger at users.sourceforge.net
Thu May 6 11:37:38 CEST 2004


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





More information about the Pd-cvs mailing list