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
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
|
/* Copyright (c) 2003-2005 krzYszcz and others.
* For information on usage and redistribution, and for a DISCLAIMER OF ALL
* WARRANTIES, see the file, "LICENSE.txt," in this distribution. */
#include "m_pd.h"
#include "common/loud.h"
#include "toxy/plusbob.h"
#include "plustot.h"
typedef struct _plusproxy_ar
{
t_pd pp_pd;
t_plustob *pp_tob;
} t_plusproxy_ar;
typedef struct _plustot_ar
{
t_plusobject x_plusobject;
t_glist *x_glist;
t_plustob *x_tob;
t_plusproxy_ar *x_proxy;
} t_plustot_ar;
static t_class *plusproxy_ar_class;
static t_class *plustot_ar_class;
static t_plusproxy_ar *plusproxy_ar_new(t_pd *master)
{
t_plusproxy_ar *pp = (t_plusproxy_ar *)pd_new(plusproxy_ar_class);
pp->pp_tob = ((t_plustot_ar *)master)->x_tob;
return (pp);
}
static void plusproxy_ar_float(t_plusproxy_ar *pp, t_float f)
{
plustob_setfloat(pp->pp_tob, f);
}
static void plusproxy_ar_symbol(t_plusproxy_ar *pp, t_symbol *s)
{
plustob_setsymbol(pp->pp_tob, s);
}
static void plusproxy_ar_list(t_plusproxy_ar *pp,
t_symbol *s, int ac, t_atom *av)
{
plustob_setlist(pp->pp_tob, ac, av);
}
static void plustot_ar_bang(t_plustot_ar *x)
{
if (plustob_getvalue(x->x_tob))
outlet_plusbob(((t_object *)x)->ob_outlet, (t_plusbob *)x->x_tob);
}
static void plustot_ar_float(t_plustot_ar *x, t_float f)
{
if (plustob_setfloat(x->x_tob, f))
outlet_plusbob(((t_object *)x)->ob_outlet, (t_plusbob *)x->x_tob);
}
static void plustot_ar_symbol(t_plustot_ar *x, t_symbol *s)
{
if (plustob_setsymbol(x->x_tob, s))
outlet_plusbob(((t_object *)x)->ob_outlet, (t_plusbob *)x->x_tob);
}
static void plustot_ar_list(t_plustot_ar *x, t_symbol *s, int ac, t_atom *av)
{
if (plustob_setlist(x->x_tob, ac, av))
outlet_plusbob(((t_object *)x)->ob_outlet, (t_plusbob *)x->x_tob);
}
static void plustot_ar_free(t_plustot_ar *x)
{
plusbob_release((t_plusbob *)x->x_tob);
if (x->x_proxy) pd_free((t_pd *)x->x_proxy);
plusobject_free(&x->x_plusobject);
}
void *plustot_ar_new(t_symbol *s, int ac, t_atom *av)
{
t_plustot_ar *x = 0;
t_glist *glist = canvas_getcurrent();
t_plustin *tin = 0;
t_plustob *tob = 0;
if ((tin = plustin_glistprovide(glist, PLUSTIN_GLIST_ANY, 0)) &&
(tob = plustob_new(tin, 0)))
{
x = (t_plustot_ar *)plusobject_new(plustot_ar_class, s, ac, av, 0);
plusbob_preserve((t_plusbob *)tob);
plusbob_setowner((t_plusbob *)tob, (t_pd *)x);
plustob_setlist(tob, ac, av);
x->x_glist = glist;
x->x_tob = tob;
x->x_proxy = plusproxy_ar_new((t_pd *)x);
plusinlet_new(&x->x_plusobject, (t_pd *)x->x_proxy, 0, 0);
plusoutlet_new(&x->x_plusobject, &s_symbol);
}
else
{
loud_error(0, "+ar: cannot initialize");
if (tin)
{
plusbob_preserve((t_plusbob *)tin);
plusbob_release((t_plusbob *)tin);
}
}
return (x);
}
void plustot_ar_setup(void)
{
plustot_ar_class = class_new(gensym("+ar"), 0,
(t_method)plustot_ar_free,
sizeof(t_plustot_ar), 0, 0);
plusclass_inherit(plustot_ar_class, gensym("+ar"));
class_addbang(plustot_ar_class, plustot_ar_bang);
class_addfloat(plustot_ar_class, plustot_ar_float);
class_addsymbol(plustot_ar_class, plustot_ar_symbol);
class_addlist(plustot_ar_class, plustot_ar_list);
plusproxy_ar_class = class_new(gensym("+ar proxy"), 0, 0,
sizeof(t_plusproxy_ar), CLASS_PD, 0);
class_addfloat(plusproxy_ar_class, plusproxy_ar_float);
class_addsymbol(plusproxy_ar_class, plusproxy_ar_symbol);
class_addlist(plusproxy_ar_class, plusproxy_ar_list);
}
|
