diff options
author | Hans-Christoph Steiner <eighthave@users.sourceforge.net> | 2012-10-08 01:02:00 +0000 |
---|---|---|
committer | Hans-Christoph Steiner <eighthave@users.sourceforge.net> | 2012-10-08 01:02:00 +0000 |
commit | 3391e44d8d82a3e221888d0b8a19b0e4953cb104 (patch) | |
tree | c18df0bf668c4e1c4199f99fe8bbdf993d9fc5cb /externals/extra/0.43.2/stdout/stdout.c | |
parent | 763e311662a48b210ae720459da4728a27988e0a (diff) |
tagging extra 0.43.2
svn path=/trunk/; revision=16354
Diffstat (limited to 'externals/extra/0.43.2/stdout/stdout.c')
-rw-r--r-- | externals/extra/0.43.2/stdout/stdout.c | 50 |
1 files changed, 50 insertions, 0 deletions
diff --git a/externals/extra/0.43.2/stdout/stdout.c b/externals/extra/0.43.2/stdout/stdout.c new file mode 100644 index 00000000..5cd52f25 --- /dev/null +++ b/externals/extra/0.43.2/stdout/stdout.c @@ -0,0 +1,50 @@ +/* stdout -- write messages to standard output. + + Copyright 2008 Miller Puckette + BSD license; see README.txt in this distribution for details. +*/ + +#include "m_pd.h" +#include <stdio.h> +#include <string.h> +static t_class *stdout_class; + +typedef struct _stdout +{ + t_object x_obj; +} t_stdout; + +static void *stdout_new(t_float fnonrepeat) +{ + t_stdout *x = (t_stdout *)pd_new(stdout_class); + return (x); +} + +static void stdout_anything(t_stdout *x, t_symbol *s, int argc, t_atom *argv) +{ + char msgbuf[MAXPDSTRING], *sp, *ep = msgbuf+MAXPDSTRING; + msgbuf[0] = 0; + strncpy(msgbuf, s->s_name, MAXPDSTRING); + msgbuf[MAXPDSTRING-1] = 0; + sp = msgbuf + strlen(msgbuf); + while (argc--) + { + if (sp < ep-1) + sp[0] = ' ', sp[1] = 0, sp++; + atom_string(argv++, sp, ep-sp); + sp += strlen(sp); + } + printf("%s;\n", msgbuf); +} + +static void stdout_free(t_stdout *x) +{ + fflush(stdout); +} + +void stdout_setup(void) +{ + stdout_class = class_new(gensym("stdout"), (t_newmethod)stdout_new, + (t_method)stdout_free, sizeof(t_stdout), 0, 0); + class_addanything(stdout_class, stdout_anything); +} |