blob: 7fb6b0876ecac141fed1adca4166ee69fac8746f (
plain)
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
|
/* Copyright (c) 2003 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 "g_canvas.h"
#include "shared.h"
#include "unstable/forky.h"
//#define FORKY_DEBUG
/* To be called in a 'dsp' method -- e.g. if there are no feeders, the caller
might use an optimized version of a 'perform' routine.
LATER think about replacing 'linetraverser' calls with something faster. */
int forky_hasfeeders(t_object *x, t_glist *glist, int inno, t_symbol *outsym)
{
t_linetraverser t;
linetraverser_start(&t, glist);
while (linetraverser_next(&t))
if (t.tr_ob2 == x && t.tr_inno == inno
#ifdef PD_VERSION /* FIXME ask Miller */
&& (!outsym || outsym == outlet_getsymbol(t.tr_outlet))
#endif
)
return (1);
return (0);
}
/* Not really a forky, just found no better place to put it in.
Used in bitwise signal binops (sickle). Checked against msp2. */
t_int forky_getbitmask(int ac, t_atom *av)
{
t_int result = 0;
if (sizeof(shared_t_bitmask) >= sizeof(t_int))
{
int nbits = sizeof(t_int) * 8;
shared_t_bitmask bitmask = 1 << (nbits - 1);
if (ac > nbits)
ac = nbits;
while (ac--)
{
if (av->a_type == A_FLOAT &&
(int)av->a_w.w_float) /* CHECKED */
result |= bitmask;
/* CHECKED symbols are zero */
bitmask >>= 1;
av++;
}
/* CHECKED missing are zero */
#ifdef FORKY_DEBUG
post("mask set to %.8x", result);
#endif
}
else bug("sizeof(shared_t_bitmask)");
return (result);
}
|
