Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv17815
Modified Files: Tag: devel_0_39 g_readwrite.c Log Message: cut canvas_saveto in two funcs as required by impd/desire.
Index: g_readwrite.c =================================================================== RCS file: /cvsroot/pure-data/pd/src/g_readwrite.c,v retrieving revision 1.3.8.3 retrieving revision 1.3.8.4 diff -C2 -d -r1.3.8.3 -r1.3.8.4 *** g_readwrite.c 25 Jul 2005 18:21:28 -0000 1.3.8.3 --- g_readwrite.c 8 Sep 2005 08:13:35 -0000 1.3.8.4 *************** *** 20,24 **** int *p_next) { ! int i, j; int indexwas = *p_next; *p_indexout = indexwas; --- 20,24 ---- int *p_next) { ! int i; int indexwas = *p_next; *p_indexout = indexwas; *************** *** 50,54 **** int *p_nextmsg, t_symbol *templatesym, t_word *w, int argc, t_atom *argv) { ! int message, nline, n, i;
t_template *template = template_findbyname(templatesym); --- 50,54 ---- int *p_nextmsg, t_symbol *templatesym, t_word *w, int argc, t_atom *argv) { ! int message, n, i;
t_template *template = template_findbyname(templatesym); *************** *** 559,567 **** /* save to a binbuf, called recursively; cf. canvas_savetofile() which saves the document, and is only called on root canvases. */ ! static void canvas_saveto(t_canvas *x, t_binbuf *b) ! { ! t_gobj *y; ! t_linetraverser t; ! t_outconnect *oc; /* subpatch */ if (x->gl_owner && !x->gl_env) --- 559,564 ---- /* save to a binbuf, called recursively; cf. canvas_savetofile() which saves the document, and is only called on root canvases. */ ! void canvas_savecontainerto(t_canvas *x, t_binbuf *b) ! { /* subpatch */ if (x->gl_owner && !x->gl_env) *************** *** 583,586 **** --- 580,590 ---- (int)x->gl_font);
+ + } + static void canvas_saveto(t_canvas *x, t_binbuf *b) { + t_gobj *y; + t_linetraverser t; + t_outconnect *oc; + canvas_savecontainerto(x,b); for (y = x->gl_list; y; y = y->g_next) gobj_save(y, b);