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
|
/* Copyright (c) 2002 Damien HENRY.
* For information on usage and redistribution, and for a DISCLAIMER OF ALL
* WARRANTIES, see the file, "LICENSE.txt," in this distribution. */
/* code for a2s pd class */
#include "m_pd.h"
#include <string.h>
typedef struct s_pd_obj_a2s
{
t_object x_obj;
} t_pd_obj_a2s;
void a2s_help(t_pd_obj_a2s *x)
{
post(" ");
post("a2s v001");
post("+ selector list :");
post("++ help : this help !!!");
post("++ symbol : will return the canvas & the obj");
post(" ");
}
void a2s_list(t_pd_obj_a2s *x, t_symbol *s, int argc, t_atom *argv)
{
char buffer[MAXPDSTRING] ;
char *a_string ;
int a_string_l ;
t_binbuf *bbuf ;
int i,l=0,k=0 ;
bbuf = binbuf_new() ;
for (i=0;i<argc;i++)
{
binbuf_clear(bbuf);
binbuf_add(bbuf, 1, argv++);
binbuf_gettext(bbuf, &a_string, &a_string_l);
memcpy(&buffer[k],a_string,a_string_l) ;
freebytes(a_string,a_string_l);
k+=a_string_l ;
}
buffer[k]=0;
outlet_symbol(x->x_obj.ob_outlet,gensym(&buffer[0]));
binbuf_free(bbuf);
}
void a2s_free(void) { }
t_class *a2s_class;
void *a2s_new(void)
{
t_pd_obj_a2s *x = (t_pd_obj_a2s *)pd_new(a2s_class);
outlet_new(&x->x_obj, &s_float);
return (void *)x;
}
void a2s_setup(void)
{
a2s_class = class_new(gensym("a2s"), (t_newmethod)a2s_new,(t_method)a2s_free, sizeof( t_pd_obj_a2s), 0,A_DEFSYMBOL, 0);
class_addlist(a2s_class, (t_method)a2s_list);
class_addmethod(a2s_class, (t_method)a2s_help, gensym("help"), 0);
class_sethelpsymbol(a2s_class, gensym("xgui/help_a2s"));
}
|
