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