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
|
static t_class *paramRoute_class;
typedef struct _paramRoute
{
t_object x_obj;
t_symbol* path;
t_outlet* x_outlet;
t_symbol* s_save;
t_symbol* s_load;
t_symbol* s_empty;
t_canvas* canvas;
t_symbol* root;
t_symbol* previousSymbol;
t_symbol* target;
} t_paramRoute;
static void paramRoute_anything(t_paramRoute *x, t_symbol *s, int ac, t_atom *av) {
#ifndef USEBINDINGS
t_param* p = get_param_list(x->root);
#endif
if (ac == 0) {
// Its a bang?
ac = 1;
t_atom a;
SETSYMBOL(&a,&s_bang);
av = &a;
}
if ( s->s_name[0] == '/' && strlen(s->s_name) > 1) {
if (x->previousSymbol != s) {
param_buf_temp_a[0] = '\0';
#ifdef LOCAL
strcpy(param_buf_temp_a, x->root->s_name);
strcat(param_buf_temp_a, x->path->s_name);
strcat(param_buf_temp_b, s->s_name+1);
//strcat(param_buf_temp_a, param_buf_temp_b);
x->target = gensym(param_buf_temp_a);
#else
strcpy(param_buf_temp_a, x->path->s_name);
strcat(param_buf_temp_a, s->s_name+1);
x->target = gensym(param_buf_temp_a);
#endif
x->previousSymbol = s;
}
#ifdef USEBINDINGS
if (x->target->s_thing) {
pd_forwardmess(x->target->s_thing, ac, av);
#else
while (p && p->path != x->target) p=p->next;
if (p) {
pd_forwardmess(p->x, ac, av);
#endif
} else {
outlet_anything(x->x_outlet,s,ac,av);
}
} else {
outlet_anything(x->x_outlet,s,ac,av);
}
}
// DECONSTRUCTOR
static void paramRoute_free(t_paramRoute*x)
{
}
// CONSTRUCTOR
static void *paramRoute_new(t_symbol *s, int ac, t_atom *av) {
t_paramRoute *x = (t_paramRoute *)pd_new(paramRoute_class);
x->s_save = gensym("save");
x->s_load = gensym("load");
x->s_empty = gensym("");
x->target = NULL;
x->previousSymbol = NULL;
// GET THE CURRENT CANVAS
t_canvas *canvas=tof_get_canvas();
// Get the root canvas
x->canvas = tof_get_root_canvas(canvas);
x->root = tof_get_dollarzero(x->canvas);
x->path = param_get_path(canvas,NULL);
// INLETS AND OUTLETS
x->x_outlet = outlet_new(&x->x_obj, &s_list);
return (x);
}
void paramRoute_setup(void) {
paramRoute_class = class_new(gensym("param route"),
(t_newmethod)paramRoute_new, (t_method)paramRoute_free,
sizeof(t_paramRoute), 0, A_GIMME, 0);
class_addanything(paramRoute_class, paramRoute_anything);
class_sethelpsymbol(paramRoute_class, gensym("param"));
}
|
