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
129
130
131
132
133
134
135
136
137
138
139
140
|
/******************************************************
*
* canvasname - implementation file
*
* copyleft (c) IOhannes m zm-bölnig-A
*
* 2007:forum::f-bür::umläute:2007-A
*
* institute of electronic music and acoustics (iem)
*
******************************************************
*
* license: GNU General Public License v.2
*
******************************************************/
/*
* this object provides a way to manipulate the parent-patches arguments (and name!)
* usage:
* + put this object into an abstraction
* + put the abstraction in a patch
* + send the object a _list_ of arguments
* + the next time the patch (wherein the abstraction that holds this object lives)
* is saved, it will be saved with the new arguments instead of the old ones!
* - example: "list 2 3 4" will save the object as [<absname> 2 3 4]
* + you can also change the abstraction name itself by using a selector other than "list"
* - example: "bonkers 8 9" will save the object as [bonkers 8 9] regardless of it's original name
* - use with care!
*
* nice, eh?
*/
#include "m_pd.h"
#include "g_canvas.h"
/* ------------------------- canvasname ---------------------------- */
static t_class *canvasname_class;
typedef struct _canvasname
{
t_object x_obj;
t_canvas *x_canvas;
t_outlet*x_nameout;
t_outlet*x_displaynameout;
t_inlet*x_displaynamein;
} t_canvasname;
static void canvasname_bang(t_canvasname *x)
{
t_canvas*c=x->x_canvas;
t_binbuf*b=0;
t_atom name[1];
if(!c) return;
if(c->gl_name)
outlet_symbol(x->x_displaynameout, c->gl_name);
b=c->gl_obj.te_binbuf;
if(b) {
/* get the binbufs atomlist */
t_atom*ap=binbuf_getvec(b);
t_symbol*s=atom_getsymbol(ap);
if(s)
outlet_symbol(x->x_nameout, s);
} else {
#if 0
post("empty binbuf for %x", x->x_canvas);
#endif
}
}
static void canvasname_symbol(t_canvasname *x, t_symbol*s)
{
t_canvas*c=x->x_canvas;
t_binbuf*b=0;
t_atom name[1];
if(!x->x_canvas) return;
b=x->x_canvas->gl_obj.te_binbuf;
if(b) {
/* get the binbufs atomlist */
t_atom*ap=binbuf_getvec(b);
SETSYMBOL(ap, s);
return;
}
}
static void canvasname_displayname(t_canvasname *x, t_symbol*s)
{
t_canvas*c=x->x_canvas;
if(!c) return;
c->gl_name = s;
}
static void canvasname_free(t_canvasname *x)
{
if(x->x_nameout )outlet_free(x->x_nameout );x->x_nameout=NULL ;
if(x->x_displaynameout)outlet_free(x->x_displaynameout);x->x_displaynameout=NULL;
if(x->x_displaynamein )inlet_free (x->x_displaynamein );x->x_displaynamein=NULL;
}
static void *canvasname_new(t_floatarg f)
{
t_canvasname *x = (t_canvasname *)pd_new(canvasname_class);
t_glist *glist=(t_glist *)canvas_getcurrent();
t_canvas *canvas=(t_canvas*)glist_getcanvas(glist);
int depth=(int)f;
if(depth<0)depth=0;
while(depth && canvas) {
canvas=canvas->gl_owner;
depth--;
}
x->x_canvas = canvas;
x->x_displaynamein=inlet_new(&x->x_obj, &x->x_obj.ob_pd, gensym("symbol"), gensym("display"));
x->x_nameout=outlet_new(&x->x_obj, &s_symbol);
x->x_displaynameout=outlet_new(&x->x_obj, &s_symbol);
return (x);
}
void canvasname_setup(void)
{
canvasname_class = class_new(gensym("canvasname"), (t_newmethod)canvasname_new,
(t_method)canvasname_free, sizeof(t_canvasname), 0, A_DEFFLOAT, 0);
class_addsymbol(canvasname_class, (t_method)canvasname_symbol);
class_addmethod(canvasname_class, (t_method)canvasname_displayname, gensym("display"), A_SYMBOL, 0);
class_addbang (canvasname_class, (t_method)canvasname_bang);
}
|
