[PD-cvs] pd/src kernel.c,1.1.2.42,1.1.2.43

[Mathieu Bouchard]

Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv24172

Modified Files:
      Tag: desiredata
	kernel.c 
Log Message:
add support for \ at end of lines (for continuing a doublequoted symbol on next line)


Index: kernel.c
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/kernel.c,v
retrieving revision 1.1.2.42
retrieving revision 1.1.2.43
diff -C2 -d -r1.1.2.42 -r1.1.2.43
*** kernel.c	16 Jan 2007 00:56:35 -0000	1.1.2.42
--- kernel.c	28 Jun 2007 02:17:23 -0000	1.1.2.43
***************
*** 300,303 ****
--- 300,304 ----
      t_pd *x = (t_pd *)getbytes(c->size);
      x->_class = c;
+     fprintf(stderr,"object_table = %p\n",object_table);
      hash_set(object_table,x,(void*)1);
      if (c->gobj) ((t_gobj *)x)->g_adix = appendix_new((t_gobj *)x);
***************
*** 1351,1356 ****
  
  
!     /* this routine is called when a new "object" is requested whose class Pd
!     doesn't know.  Pd tries to load it as an extern, then as an abstraction. */
  void new_anything(void *dummy, t_symbol *s, int argc, t_atom *argv) {
      int fd;
--- 1352,1357 ----
  
  
! /* this routine is called when a new "object" is requested whose class Pd
!    doesn't know.  Pd tries to load it as an extern, then as an abstraction. */
  void new_anything(void *dummy, t_symbol *s, int argc, t_atom *argv) {
      int fd;
***************
*** 1677,1680 ****
--- 1678,1682 ----
  		if (c=='"') {*bufp++='\"'; continue;}
  		if (c=='\\'){*bufp++='\\'; continue;}
+ 		if (c=='\n'){continue;}
  		/* if (c=='u') ... */
  		/* if (c=='x') ... */
***************
*** 2556,2559 ****
--- 2558,2562 ----
  void pd_init() {
      object_table = hash_new(127);
+     fprintf(stderr,"object_table = %p\n",object_table);
      bindlist_class = class_new(gensym("bindlist"), 0, 0, sizeof(t_bindlist), CLASS_PD, 0);
      class_addbang(bindlist_class, (t_method)bindlist_bang);