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