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
|
/*
(l) 1210:forum::für::umläute:1999
"makesymbol" is something between "symbol" and "makefilename", thus storing and creating (formatted)
symbols...
*/
#include "zexy.h"
#include <string.h>
#include <stdio.h>
#define MAXSTRINGARGS 10
#define MAXSTRINGLENG 80
/* ----------------------- makesymbol --------------------- */
static t_class *makesymbol_class;
typedef struct _makesymbol
{
t_object x_obj;
t_symbol *x_sym;
char* mask;
char* buf;
} t_makesymbol;
static void reset_mask(t_makesymbol *x, t_symbol *s)
{
if (*s->s_name) {
x->mask = s->s_name;
x->x_sym = s;
} else {
x->mask = "%s%s%s%s%s%s%s%s%s%s";
x->x_sym = gensym("");
}
}
t_symbol* list2symbol(char *masque, int argc, t_atom *argv)
{
typedef char cstring[MAXSTRINGLENG];
cstring buf[MAXSTRINGARGS];
cstring buffer;
int i;
for (i=0; i<argc; i++) {
atom_string(argv+i, buf[i], MAXSTRINGLENG);
}
sprintf(buffer,
masque,
buf[0], buf[1], buf[2], buf[3], buf[4], buf[5], buf[6], buf[7], buf[8], buf[9]);
return (gensym(buffer));
}
static void makesymbol_list(t_makesymbol *x, t_symbol *s, int argc, t_atom *argv)
{
x->x_sym = list2symbol(x->mask, argc, argv);
outlet_symbol(x->x_obj.ob_outlet, x->x_sym);
}
static void makesymbol_bang(t_makesymbol *x)
{
outlet_symbol(x->x_obj.ob_outlet, x->x_sym);
}
static void *makesymbol_new(t_symbol *s, int argc, t_atom *argv)
{
t_makesymbol *x = (t_makesymbol *)pd_new(makesymbol_class);
x->buf = (char *)getbytes(MAXSTRINGLENG * sizeof(char));
x->mask = x->buf;
if (argc) {
atom_string(argv, x->buf, MAXSTRINGLENG);
x->x_sym = gensym(x->buf);
} else {
x->mask = "%s%s%s%s%s%s%s%s%s%s";
x->x_sym = gensym("");
}
outlet_new(&x->x_obj, &s_symbol);
inlet_new(&x->x_obj, &x->x_obj.ob_pd, gensym("symbol"), gensym("sym1"));
return (x);
}
static void makesymbol_free(t_makesymbol *x)
{
freebytes(x->buf, MAXSTRINGLENG*sizeof(char));
}
static void helper(t_makesymbol *x)
{
post("\n%c makesymbol :: create a formatted symbol", HEARTSYMBOL);
post("<list of anything>\t: glue up to 10 list-elements to 1 formatted symbol\n"
"'bang'\t\t\t: re-output\n"
"'help'\t\t\t: view this"
"\ninlet2 : <format-string>: new format-string (symbol !)"
"\noutlet : <symbol>\t: formatted concatenation");
post("\ncreation:\"makesymbol [<format-string>]\": C-style format-string (%s only)", "%s");
post("\n\nmasq = %s", x->mask);
}
void z_makesymbol_setup(void)
{
makesymbol_class = class_new(gensym("makesymbol"),
(t_newmethod)makesymbol_new, (t_method)makesymbol_free,
sizeof(t_makesymbol), 0, A_GIMME, 0);
class_addlist(makesymbol_class, makesymbol_list);
class_addbang(makesymbol_class, makesymbol_bang);
class_addmethod(makesymbol_class, (t_method)reset_mask, gensym("sym1"), A_SYMBOL, 0);
class_addmethod(makesymbol_class, (t_method)helper, gensym("help"), 0);
class_sethelpsymbol(makesymbol_class, gensym("zexy/makesymbol"));
}
|
