diff options
author | Hans-Christoph Steiner <eighthave@users.sourceforge.net> | 2011-01-10 06:03:02 +0000 |
---|---|---|
committer | Hans-Christoph Steiner <eighthave@users.sourceforge.net> | 2011-01-10 06:03:02 +0000 |
commit | 5af7081222ef801b23857fb904c78d0798f5d0df (patch) | |
tree | 68ac177c010b99c8eb837ea323c69cb541497148 /externals/extra/stdout/stdout.c | |
parent | b77e38f5d194fb2ed72563d8ed20815d02a88efc (diff) |
build Pd's extra as a libdir
svn path=/trunk/; revision=14694
Diffstat (limited to 'externals/extra/stdout/stdout.c')
-rw-r--r-- | externals/extra/stdout/stdout.c | 50 |
1 files changed, 50 insertions, 0 deletions
diff --git a/externals/extra/stdout/stdout.c b/externals/extra/stdout/stdout.c new file mode 100644 index 00000000..5cd52f25 --- /dev/null +++ b/externals/extra/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); +} |