aboutsummaryrefslogtreecommitdiff
path: root/pd/extra
diff options
context:
space:
mode:
Diffstat (limited to 'pd/extra')
-rw-r--r--pd/extra/bonk~/bonk~.c4
-rw-r--r--pd/extra/pd~/pd~-help.pd95
-rw-r--r--pd/extra/pd~/pd~.c152
-rw-r--r--pd/extra/pd~/test.pd29
-rw-r--r--pd/extra/sigmund~/sigmund~.c38
-rw-r--r--pd/extra/stdout/stdout-help.pd28
-rw-r--r--pd/extra/stdout/stdout.c5
7 files changed, 190 insertions, 161 deletions
diff --git a/pd/extra/bonk~/bonk~.c b/pd/extra/bonk~/bonk~.c
index 48e6837e..ee59cb0f 100644
--- a/pd/extra/bonk~/bonk~.c
+++ b/pd/extra/bonk~/bonk~.c
@@ -1,7 +1,7 @@
/*
###########################################################################
# bonk~ - a Max/MSP external
- # by miller puckette and ted appel
+ # by miller puckette and ted apel
# http://crca.ucsd.edu/~msp/
# Max/MSP port by barry threw
# http://www.barrythrew.com
@@ -911,7 +911,7 @@ static void bonk_print(t_bonk *x, t_floatarg f)
h->h_before, h->h_countup);
}
post("filter details (frequencies are in units of %.2f-Hz. bins):",
- x->x_sr);
+ x->x_sr/x->x_npoints);
for (j = 0; j < x->x_nfilters; j++)
post("%2d cf %.2f bw %.2f nhops %d hop %d skip %d npoints %d",
j,
diff --git a/pd/extra/pd~/pd~-help.pd b/pd/extra/pd~/pd~-help.pd
index a845f453..8bc357e0 100644
--- a/pd/extra/pd~/pd~-help.pd
+++ b/pd/extra/pd~/pd~-help.pd
@@ -1,20 +1,75 @@
-#N canvas 353 325 450 300 10;
-#X msg 52 86 foo bar baz;
-#X obj 209 52 osc~ 440;
-#X obj 74 211 env~ 8192;
-#X floatatom 77 243 5 0 0 0 - - -;
-#X obj 285 204 r a;
-#X obj 281 232 print a;
-#X msg 315 81 \; pd dsp 1;
-#X obj 70 166 pd~ test.pd;
-#X msg 66 20 pd~ stop;
-#X msg 77 42 pd~ start;
-#X msg 86 61 pd~ restart;
-#X connect 0 0 7 0;
-#X connect 1 0 7 0;
-#X connect 2 0 3 0;
-#X connect 4 0 5 0;
-#X connect 7 0 2 0;
-#X connect 8 0 7 0;
-#X connect 9 0 7 0;
-#X connect 10 0 7 0;
+#N canvas 12 0 566 872 12;
+#X msg 31 406 foo bar baz;
+#X obj 189 466 osc~ 440;
+#X obj 127 645 env~ 8192;
+#X floatatom 127 694 5 0 0 0 - - -;
+#X msg 434 807 \; pd dsp 1;
+#X msg 24 332 pd~ stop;
+#X obj 127 670 i;
+#X obj 241 643 env~ 8192;
+#X floatatom 241 693 5 0 0 0 - - -;
+#X obj 241 669 i;
+#X obj 123 489 *~;
+#X obj 158 490 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
+1;
+#X obj 189 490 *~;
+#X obj 224 491 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
+1;
+#X obj 434 781 loadbang;
+#X obj 14 691 print x;
+#X msg 15 309 pd~ start pd~-subprocess.pd;
+#X obj 14 532 pd~ -ninsig 2 -noutsig 2 -fifo 20;
+#X obj 37 20 pd~;
+#X text 69 22 - run a pd sub-process;
+#X text 27 57 The pd~ object starts and manages a Pd sub-process that
+can communicate with the super-process (this one) via audio channels
+and/or Pd messages. In this way you can take advantage of multi-core
+CPUs \, and/or use Pd features from within Max (if you're using the
+Max version of pd~).;
+#X text 24 251 Sending a new "start" message will stop the sub-process
+and start a new one. If you just want to stop the sub-process \, send
+"stop".;
+#X text 33 353 Any message besides "pd~" is sent to the sub-process.
+For instance \, the message below sends "bar baz" to any object in
+the sub-process named "foo" \, such as a "receive" object.;
+#X text 43 430 Audio signals appear in adc~ objects in the sub-process.
+The sub-process doesn't open real audio devices.;
+#X text 281 473 Creation args:;
+#X text 265 490 -insig <n> sets input audio channels;
+#X text 266 508 -outsig <n> sets output channels;
+#X text 269 542 -fifo <n> sets round-trip delay in blocks;
+#X text 272 559 -pddir <s> sets Pd directory \, e.g. \,;
+#X text 299 574 .../Pd-0.42.app/Contents/Resources;
+#X text 272 590 -scheddir <s> sets scheduler dir \, e.g. \,;
+#X text 297 607 .../.../Resources/extra/pd~;
+#X text 267 524 -sr <n> sets sample rate;
+#X text 20 716 The first outlet reports messages the sub-process sends
+us via "stdout" objects. Any other outlets are signals corresponding
+to "dac~" objects in the sub-process.;
+#X text 10 784 ATTENTION: DSP must be running in this process for the
+sub-process to run. This is because its clock is slaved to audio I/O
+it gets from us!;
+#X text 359 849 Updated for Pd version 0.42.;
+#X text 24 138 Messages with "pd~" selector control the sub-process.
+"pd~ start" takes as arguments any startup arguments you wish to send
+the sub-process. For example \, specify "-nogui" to stop the sub-process's
+GUI from appearing. You don't have to specify the number of channels
+in and out \, since that's set by creation arguments below. Audio config
+arguments arguments (-audiobuf \, -audiodev \, etc.) are ignored.;
+#X connect 0 0 17 0;
+#X connect 1 0 10 0;
+#X connect 1 0 12 0;
+#X connect 2 0 6 0;
+#X connect 5 0 17 0;
+#X connect 6 0 3 0;
+#X connect 7 0 9 0;
+#X connect 9 0 8 0;
+#X connect 10 0 17 0;
+#X connect 11 0 10 1;
+#X connect 12 0 17 1;
+#X connect 13 0 12 1;
+#X connect 14 0 4 0;
+#X connect 16 0 17 0;
+#X connect 17 0 15 0;
+#X connect 17 1 2 0;
+#X connect 17 2 7 0;
diff --git a/pd/extra/pd~/pd~.c b/pd/extra/pd~/pd~.c
index 92783e8a..49b398b3 100644
--- a/pd/extra/pd~/pd~.c
+++ b/pd/extra/pd~/pd~.c
@@ -70,14 +70,13 @@ typedef struct _pd_tilde
#ifdef PD
t_object x_obj;
t_clock *x_clock;
+ t_outlet *x_outlet1; /* for messages back from subproc */
+ t_canvas *x_canvas;
#endif /* PD */
#ifdef MSP
t_pxobject x_obj;
- void *obex;
- void *x_cookedout;
+ void *x_outlet1;
void *x_clock;
- short x_vol;
-
#endif /* MSP */
FILE *x_infd;
FILE *x_outfd;
@@ -91,7 +90,6 @@ typedef struct _pd_tilde
float x_sr;
t_symbol *x_pddir;
t_symbol *x_schedlibdir;
- char *x_pdargs;
t_sample **x_insig;
t_sample **x_outsig;
} t_pd_tilde;
@@ -168,7 +166,8 @@ static void pd_tilde_readmessages(t_pd_tilde *x)
}
static void pd_tilde_donew(t_pd_tilde *x, char *pddir, char *schedlibdir,
- char *pdargs, int ninsig, int noutsig, int fifo, float samplerate)
+ char *patchdir, char *pdargs, int ninsig, int noutsig, int fifo,
+ float samplerate)
{
int i, pid, pipe1[2], pipe2[2];
char cmdbuf[MAXPDSTRING], pdexecbuf[MAXPDSTRING], schedbuf[MAXPDSTRING];
@@ -197,8 +196,9 @@ static void pd_tilde_donew(t_pd_tilde *x, char *pddir, char *schedlibdir,
goto fail1;
}
}
- snprintf(cmdbuf, MAXPDSTRING, "%s -schedlib %s/pdsched %s\n",
- pdexecbuf, schedlibdir, pdargs);
+ snprintf(cmdbuf, MAXPDSTRING,
+"%s -schedlib %s/pdsched -path %s -inchannels %d -outchannels %d -r %g %s\n",
+ pdexecbuf, schedlibdir, patchdir, ninsig, noutsig, samplerate, pdargs);
#if 0
#ifdef PD
fprintf(stderr, "%s", cmdbuf);
@@ -368,25 +368,53 @@ static void pd_tilde_dsp(t_pd_tilde *x, t_signal **sp)
static void pd_tilde_pdtilde(t_pd_tilde *x, t_symbol *s,
int argc, t_atom *argv)
{
- t_symbol *sel = ((argc > 0 && argv->a_type == A_SYMBOL) ? argv->a_w.w_symbol : gensym("?"));
+ t_symbol *sel = ((argc > 0 && argv->a_type == A_SYMBOL) ?
+ argv->a_w.w_symbol : gensym("?"));
+ char *patchdir;
if (sel == gensym("start"))
{
- if (!x->x_infd)
- pd_tilde_donew(x, x->x_pddir->s_name, x->x_schedlibdir->s_name,
- x->x_pdargs, x->x_ninsig, x->x_noutsig, x->x_fifo, x->x_sr);
- }
- else if (sel == gensym("stop"))
- {
+ char pdargstring[MAXPDSTRING];
if (x->x_infd)
pd_tilde_close(x);
+ pdargstring[0] = 0;
+ argc--; argv++;
+#ifdef PD
+ while (argc--)
+ {
+ atom_string(argv++, pdargstring + strlen(pdargstring),
+ MAXPDSTRING - strlen(pdargstring));
+ if (strlen(pdargstring) < MAXPDSTRING-1)
+ strcat(pdargstring, " ");
+ }
+ patchdir = canvas_getdir(x->x_canvas)->s_name;
+#endif
+#ifdef MAX
+ while (argc--)
+ {
+ if (argv->a_type == A_SYM)
+ strncat(pdargstring, argv->a_w.w_sym->s_name,
+ MAXPDSTRING - strlen(pdargstring)-3);
+ else if (argv->a_type == A_LONG)
+ snprintf(pdargstring+strlen(pdargstring),
+ MAXPDSTRING - strlen(pdargstring)-3, "%ld",
+ argv->a_w.w_long);
+ else if (argv->a_type == A_FLOAT)
+ snprintf(pdargstring+strlen(pdargstring),
+ MAXPDSTRING - strlen(pdargstring)-3, "%f",
+ argv->a_w.w_float);
+ strcat(pdargstring, " ");
+ argv++;
+ }
+ patchdir = ".";
+#endif
+ pd_tilde_donew(x, x->x_pddir->s_name, x->x_schedlibdir->s_name,
+ patchdir, pdargstring, x->x_ninsig, x->x_noutsig, x->x_fifo,
+ x->x_sr);
}
- else if (sel == gensym("restart"))
+ else if (sel == gensym("stop"))
{
if (x->x_infd)
pd_tilde_close(x);
- if (!x->x_infd)
- pd_tilde_donew(x, x->x_pddir->s_name, x->x_schedlibdir->s_name,
- x->x_pdargs, x->x_ninsig, x->x_noutsig, x->x_fifo, x->x_sr);
}
else ERROR "pd~: unknown control message: %s", sel->s_name);
}
@@ -398,7 +426,6 @@ static void pd_tilde_free(t_pd_tilde *x)
#endif
pd_tilde_close(x);
clock_free(x->x_clock);
- free(x->x_pdargs);
}
/* -------------------------- Pd glue ------------------------- */
@@ -420,19 +447,11 @@ static void pd_tilde_tick(t_pd_tilde *x)
{
if (vec[i].a_type == A_SEMI)
{
- if (i > messstart + 1)
- {
- t_pd *whom;
- if (vec[messstart].a_type != A_SYMBOL)
- bug("pd_tilde_tick");
- else if (!(whom = vec[messstart].a_w.w_symbol->s_thing))
- ERROR "%s: no such object",
- vec[messstart].a_w.w_symbol->s_name);
- else if (vec[messstart+1].a_type == A_SYMBOL)
- typedmess(whom, vec[messstart+1].a_w.w_symbol,
- i-messstart-2, vec+(messstart+2));
- else pd_list(whom, 0, i-messstart-1, vec+(messstart+1));
- }
+ if (i > messstart && vec[messstart].a_type == A_SYMBOL)
+ outlet_anything(x->x_outlet1, vec[messstart].a_w.w_symbol,
+ i-(messstart+1), vec+(messstart+1));
+ else if (i > messstart)
+ outlet_list(x->x_outlet1, 0, i-messstart, vec+messstart);
messstart = i+1;
}
}
@@ -468,8 +487,7 @@ static void *pd_tilde_new(t_symbol *s, int argc, t_atom *argv)
t_sample **g;
t_symbol *pddir = sys_guidir,
*scheddir = gensym(class_gethelpdir(pd_tilde_class));
- char pdargstring[MAXPDSTRING];
- fprintf(stderr, "pd %s, sched %s\n", pddir->s_name, scheddir->s_name);
+ /* fprintf(stderr, "pd %s, sched %s\n", pddir->s_name, scheddir->s_name); */
while (argc > 0)
{
t_symbol *firstarg = atom_getsymbolarg(0, argc, argv);
@@ -505,24 +523,15 @@ static void *pd_tilde_new(t_symbol *s, int argc, t_atom *argv)
}
else break;
}
-#if 0
- {
- pd_error(x,
-"usage: pd~ [-sr #] [-ninsig #] [-noutsig #] [-fifo #] [-pddir <>]");
- post(
-"... [-scheddir <>] [pd-argument...]");
- argc = 0;
- }
-#endif
-
- pdargstring[0] = 0;
- while (argc--)
+
+ if (argc)
{
- atom_string(argv++, pdargstring + strlen(pdargstring),
- MAXPDSTRING - strlen(pdargstring));
- if (strlen(pdargstring) < MAXPDSTRING-1)
- strcat(pdargstring, " ");
+ pd_error(x,
+"usage: pd~ [-sr #] [-ninsig #] [-noutsig #] [-fifo #] [-pddir <>]");
+ post(
+"... [-scheddir <>]");
}
+
x->x_clock = clock_new(x, (t_method)pd_tilde_tick);
x->x_insig = (t_sample **)getbytes(ninsig * sizeof(*x->x_insig));
x->x_outsig = (t_sample **)getbytes(noutsig * sizeof(*x->x_outsig));
@@ -532,15 +541,15 @@ static void *pd_tilde_new(t_symbol *s, int argc, t_atom *argv)
x->x_sr = sr;
x->x_pddir = pddir;
x->x_schedlibdir = scheddir;
- x->x_pdargs = malloc(strlen(pdargstring)+1);
x->x_infd = 0;
x->x_outfd = 0;
x->x_outfd = 0;
x->x_childpid = -1;
x->x_msgbuf = 0;
- strcpy(x->x_pdargs, pdargstring);
+ x->x_canvas = canvas_getcurrent();
for (j = 1, g = x->x_insig; j < ninsig; j++, g++)
inlet_new(&x->x_obj, &x->x_obj.ob_pd, &s_signal, &s_signal);
+ x->x_outlet1 = outlet_new(&x->x_obj, 0);
for (j = 0, g = x->x_outsig; j < noutsig; j++, g++)
outlet_new(&x->x_obj, &s_signal);
signal(SIGPIPE, SIG_IGN);
@@ -556,7 +565,7 @@ void pd_tilde_setup(void)
class_addmethod(pd_tilde_class, (t_method)pd_tilde_dsp, gensym("dsp"), 0);
class_addmethod(pd_tilde_class, (t_method)pd_tilde_pdtilde, gensym("pd~"), A_GIMME, 0);
class_addanything(pd_tilde_class, pd_tilde_anything);
- post("pd~ version 0.1");
+ post("pd~ version 0.2");
}
#endif
@@ -651,7 +660,8 @@ int main()
class_register(CLASS_BOX, c);
pd_tilde_class = c;
- return (0);
+ post("pd~ version 0.2");
+ return (0);
}
static void *pd_tilde_new(t_symbol *s, long ac, t_atom *av)
@@ -659,7 +669,6 @@ static void *pd_tilde_new(t_symbol *s, long ac, t_atom *av)
int ninsig = 2, noutsig = 2, fifo = 5, j;
float sr = sys_getsr();
t_symbol *pddir = gensym("."), *scheddir = gensym(".");
- char pdargstring[MAXPDSTRING];
t_pd_tilde *x;
if (x = (t_pd_tilde *)object_alloc(pd_tilde_class))
@@ -705,30 +714,17 @@ static void *pd_tilde_new(t_symbol *s, long ac, t_atom *av)
}
if (scheddir == gensym(".") && pddir != gensym("."))
{
- char *pds = pddir->s_name;
+ char *pds = pddir->s_name, scheddirstring[MAXPDSTRING];
int l = strlen(pds);
if (l >= 4 && (!strcmp(pds+l-3, "bin") || !strcmp(pds+l-4, "bin/")))
- snprintf(pdargstring, MAXPDSTRING, "%s/../extra/pd~", pds);
- else snprintf(pdargstring, MAXPDSTRING, "%s/extra/pd~", pds);
- scheddir = gensym(pdargstring);
- }
- pdargstring[0] = 0;
- while (ac--)
- {
- char buf[80];
- if (av->a_type == A_SYM)
- strncat(pdargstring, av->a_w.w_sym->s_name, MAXPDSTRING - strlen(pdargstring)-3);
- else if (av->a_type == A_LONG)
- snprintf(pdargstring+strlen(pdargstring), MAXPDSTRING - strlen(pdargstring)-3, "%ld",
- av->a_w.w_long);
- else if (av->a_type == A_FLOAT)
- snprintf(pdargstring+strlen(pdargstring), MAXPDSTRING - strlen(pdargstring)-3, "%f",
- av->a_w.w_float);
- strcat(pdargstring, " ");
- av++;
+ snprintf(scheddirstring, MAXPDSTRING, "%s/../extra/pd~", pds);
+ else snprintf(scheddirstring, MAXPDSTRING, "%s/extra/pd~", pds);
+ scheddir = gensym(scheddirstring);
}
- post("pd~: pddir %s scheddir %s args %s",
- pddir->s_name, scheddir->s_name, pdargstring);
+ if (ac)
+ post("pd~: warning: ignoring extra arguments");
+ post("pd~: pddir %s scheddir %s",
+ pddir->s_name, scheddir->s_name);
dsp_setup((t_pxobject *)x, ninsig);
for (j = 0; j < noutsig; j++)
outlet_new((t_pxobject *)x, "signal");
@@ -741,13 +737,11 @@ static void *pd_tilde_new(t_symbol *s, long ac, t_atom *av)
x->x_sr = sr;
x->x_pddir = pddir;
x->x_schedlibdir = scheddir;
- x->x_pdargs = malloc(strlen(pdargstring)+1);
x->x_infd = 0;
x->x_outfd = 0;
x->x_outfd = 0;
x->x_childpid = -1;
x->x_msgbuf = 0;
- strcpy(x->x_pdargs, pdargstring);
}
return (x);
}
diff --git a/pd/extra/pd~/test.pd b/pd/extra/pd~/test.pd
deleted file mode 100644
index ca95baec..00000000
--- a/pd/extra/pd~/test.pd
+++ /dev/null
@@ -1,29 +0,0 @@
-#N canvas 643 132 450 300 10;
-#X obj 65 58 r foo;
-#X obj 62 100 print foo;
-#X obj 244 59 adc~;
-#X obj 238 102 env~ 8192;
-#X floatatom 236 140 5 0 0 0 - - -;
-#X obj 145 130 osc~ 440;
-#X obj 287 204 stdout;
-#X msg 307 153 a b c;
-#X msg 307 42 \; pd dsp 1;
-#X floatatom 238 173 5 0 0 0 - - -;
-#X msg 149 34 a b c;
-#X obj 62 157 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
--1;
-#X obj 44 187 del 1000;
-#X obj 26 249 print bang;
-#X obj 59 219 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
--1;
-#X obj 155 234 dac~ 1 2 3 4;
-#X obj 168 189 sig~ 0.5;
-#X connect 0 0 1 0;
-#X connect 2 0 3 0;
-#X connect 3 0 4 0;
-#X connect 4 0 9 0;
-#X connect 7 0 6 0;
-#X connect 10 0 1 0;
-#X connect 11 0 12 0;
-#X connect 12 0 13 0;
-#X connect 12 0 14 0;
diff --git a/pd/extra/sigmund~/sigmund~.c b/pd/extra/sigmund~/sigmund~.c
index 03e4ab55..0f8b9283 100644
--- a/pd/extra/sigmund~/sigmund~.c
+++ b/pd/extra/sigmund~/sigmund~.c
@@ -363,7 +363,7 @@ static void sigmund_getrawpeaks(int npts, float *insamps,
#define PITCHUNCERTAINTY 0.3
#define HALFTONEINC 0.059
#define SUBHARMONICS 16
-#define DBPERHALFTONE 0.5
+#define DBPERHALFTONE 0.0
static void sigmund_getpitch(int npeak, t_peak *peakv, float *freqp,
float npts, float srate, int loud)
@@ -405,8 +405,6 @@ static void sigmund_getpitch(int npeak, t_peak *peakv, float *freqp,
for (i = 0; i < nsalient; i++)
{
t_peak *thispeak = bigpeaks[i];
- float pitchuncertainty =
- 4 * PITCHUNCERTAINTY * fperbin / (HALFTONEINC * thispeak->p_freq);
float weightindex = (48./LOG2) *
log(thispeak->p_freq/(2.*fperbin));
float loudness = sqrt(thispeak->p_amp);
@@ -415,8 +413,8 @@ static void sigmund_getpitch(int npeak, t_peak *peakv, float *freqp,
{
float subindex = weightindex -
(48./LOG2) * log(j + 1.);
- int loindex = subindex - pitchuncertainty;
- int hiindex = subindex + pitchuncertainty + 1;
+ int loindex = subindex - 0.5;
+ int hiindex = loindex+2;
if (hiindex < 0)
break;
if (hiindex >= npit)
@@ -424,7 +422,7 @@ static void sigmund_getpitch(int npeak, t_peak *peakv, float *freqp,
if (loindex < 0)
loindex = 0;
for (k = loindex; k <= hiindex; k++)
- weights[k] += loudness * 4. / (4. + j);
+ weights[k] += loudness * 6. / (6. + j);
}
sumweight += loudness;
}
@@ -441,29 +439,35 @@ static void sigmund_getpitch(int npeak, t_peak *peakv, float *freqp,
freq = 0;
goto done;
}
- for (i = bestbin+1; i < npit; i++)
+ if (bestbin > 0 && bestbin < npit-1)
{
- if (weights[i] < bestweight)
- break;
- bestbin += 0.5;
+ int ibest = bestbin;
+ bestbin += (weights[ibest+1] - weights[ibest-1]) /
+ (weights[ibest+1] + weights[ibest] + weights[ibest-1]);
}
freq = 2*fperbin * exp((LOG2/48.)*bestbin);
-
for (sumamp = sumweight = sumfreq = 0, i = 0; i < nsalient; i++)
{
t_peak *thispeak = bigpeaks[i];
- float thisloudness = sqrt(thispeak->p_amp);
+ float thisloudness = thispeak->p_amp;
float thisfreq = thispeak->p_freq;
float harmonic = thisfreq/freq;
float intpart = (int)(0.5 + harmonic);
- float inharm = freq * (harmonic - intpart);
- if (harmonic < 1)
- continue;
- if (inharm < 0.25*fperbin && inharm > -0.25*fperbin)
+ float inharm = harmonic - intpart;
+#if 0
+ if (loud)
+ post("freq %f intpart %f inharm %f", freq, intpart, inharm);
+#endif
+ if (intpart >= 1 && intpart <= 16 &&
+ inharm < 0.015 * intpart && inharm > - (0.015 * intpart))
{
float weight = thisloudness * intpart;
sumweight += weight;
sumfreq += weight*thisfreq/intpart;
+#if 0
+ if (loud)
+ post("weight %f freq %f", weight, thisfreq);
+#endif
}
}
if (sumweight > 0)
@@ -1457,7 +1461,7 @@ static void *sigmund_new(t_symbol *s, long ac, t_atom *av)
dsp_setup((t_pxobject *)x, 1);
object_obex_store(x, gensym("dumpout"), outlet_new(x, NULL));
- for (i = 0; i < ac; i++) FIXME
+ for (i = 0; i < ac; i++)
if (av[i].a_type == A_SYM)
{
char *s = av[i].a_w.w_sym->s_name;
diff --git a/pd/extra/stdout/stdout-help.pd b/pd/extra/stdout/stdout-help.pd
index b3d02489..91edbc41 100644
--- a/pd/extra/stdout/stdout-help.pd
+++ b/pd/extra/stdout/stdout-help.pd
@@ -1,13 +1,19 @@
-#N canvas 110 37 789 525 10;
-#X msg 84 147 walk the dog;
-#X msg 91 169 1;
-#X msg 90 215 flush;
-#X obj 84 240 stdout;
-#X text 472 410 updated for Pd version 0.42;
+#N canvas 121 60 488 321 12;
+#X msg 126 203 walk the dog;
+#X msg 117 156 1;
+#X obj 117 240 stdout;
+#X text 269 287 updated for Pd version 0.42;
#X obj 14 13 stdout;
#X text 67 14 - write messages to standard output;
-#X msg 96 192 1 2;
-#X connect 0 0 3 0;
-#X connect 1 0 3 0;
-#X connect 2 0 3 0;
-#X connect 7 0 3 0;
+#X msg 122 179 1 2;
+#X obj 119 291 pd~;
+#X text 44 291 see also:;
+#X text 34 39 Sends messages to Pd's standard output. This is useful
+in conjunction with the pd~ object \, which starts a pd sub-process.
+Messages sent to the sub-process standard output appear on the output
+of the pd~ object in the owning process. This might also be useful
+in other situations. Note that there's no corresponding "stdin" object
+- there seems to be no one canonical way such a thing should act.;
+#X connect 0 0 2 0;
+#X connect 1 0 2 0;
+#X connect 6 0 2 0;
diff --git a/pd/extra/stdout/stdout.c b/pd/extra/stdout/stdout.c
index 06c99308..5cd52f25 100644
--- a/pd/extra/stdout/stdout.c
+++ b/pd/extra/stdout/stdout.c
@@ -37,7 +37,7 @@ static void stdout_anything(t_stdout *x, t_symbol *s, int argc, t_atom *argv)
printf("%s;\n", msgbuf);
}
-static void stdout_flush(t_stdout *x)
+static void stdout_free(t_stdout *x)
{
fflush(stdout);
}
@@ -45,7 +45,6 @@ static void stdout_flush(t_stdout *x)
void stdout_setup(void)
{
stdout_class = class_new(gensym("stdout"), (t_newmethod)stdout_new,
- (t_method)stdout_flush, sizeof(t_stdout), 0, 0);
- class_addmethod(stdout_class, (t_method)stdout_flush, gensym("flush"), 0);
+ (t_method)stdout_free, sizeof(t_stdout), 0, 0);
class_addanything(stdout_class, stdout_anything);
}