aboutsummaryrefslogtreecommitdiff
path: root/shared/unstable/fringe.c
blob: cf29ec62b367bd3cbf1a3eb668c9d3250ef17090 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
/* Copyright (c) 1997-2003 Miller Puckette, krzYszcz, and others.
 * For information on usage and redistribution, and for a DISCLAIMER OF ALL
 * WARRANTIES, see the file, "LICENSE.txt," in this distribution.  */

/* Put here calls which are likely to (and should) make into Pd API some day. */

#include "m_pd.h"
#include "g_canvas.h"
#include "unstable/forky.h"
#include "unstable/fringe.h"

static int gobj_getindex(t_glist *gl, t_gobj *ob)
{
    t_gobj *ob1;
    int ndx;
    for (ob1 = gl->gl_list, ndx = 0; ob1 && ob1 != ob; ob1 = ob1->g_next)
    	ndx++;
    return (ndx);
}

static void gobj_totail(t_glist *gl, t_gobj *ob)
{
    if (ob->g_next)
    {
	t_gobj *ob1;
	if (ob == gl->gl_list) ob1 = gl->gl_list = ob->g_next;
	else
	{
	    for (ob1 = gl->gl_list; ob1; ob1 = ob1->g_next)
		if (ob1->g_next == ob)
		    break;
	    if (!ob1)
	    {
		bug("gobj_totail");
		return;
	    }
	    ob1->g_next = ob->g_next;
	    ob1 = ob1->g_next;
	}
	while (ob1->g_next) ob1 = ob1->g_next;
	ob1->g_next = ob;
	ob->g_next = 0;
    }
}

static void gobj_stowconnections(t_glist *gl, t_gobj *ob, t_binbuf *bb)
{
    t_linetraverser lt;
    t_outconnect *oc;
    binbuf_clear(bb);
    linetraverser_start(&lt, gl);
    while (oc = linetraverser_next(&lt))
    {
	if ((t_gobj *)lt.tr_ob == ob || (t_gobj *)lt.tr_ob2 == ob)
	    binbuf_addv(bb, "ssiiii;",
			gensym("#X"), gensym("connect"),
			gobj_getindex(gl, (t_gobj *)lt.tr_ob), lt.tr_outno,
			gobj_getindex(gl, (t_gobj *)lt.tr_ob2), lt.tr_inno);
    }
#if 0
    post("packed connections:");
    binbuf_print(bb);
#endif
}

static void gobj_restoreconnections(t_glist *gl, t_binbuf *bb)
{
    pd_bind((t_pd *)gl, gensym("#X"));
    binbuf_eval(bb, 0, 0, 0);
    pd_unbind((t_pd *)gl, gensym("#X"));
}

void gobj_recreate(t_glist *gl, t_gobj *ob, t_binbuf *bb)
{
    /* LATER revisit all gobj calls, and sort out the gop case */
    t_text *newt;
    int xpix = ((t_text *)ob)->te_xpix, ypix = ((t_text *)ob)->te_ypix;
    t_binbuf *bb1 = binbuf_new();
    int ac = binbuf_getnatom(bb);
    t_atom *av = binbuf_getvec(bb);
    canvas_setcurrent(gl);
    gobj_totail(gl, ob);
    gobj_stowconnections(gl, ob, bb1);
    glist_delete(gl, ob);
    if (newt = (t_text *)forky_newobject(av->a_w.w_symbol, ac - 1, av + 1))
    {
	newt->te_binbuf = bb;
	newt->te_xpix = xpix;
	newt->te_ypix = ypix;
	newt->te_width = 0;
	newt->te_type = T_OBJECT;
	glist_add(gl, (t_gobj *)newt);
	gobj_restoreconnections(gl, bb1);
    }
    else bug("gobj_recreate");
    binbuf_free(bb1);
    canvas_unsetcurrent(gl);
}