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