From 5aeafcb5b77b06ef6e14d140db81bd79b2f173c4 Mon Sep 17 00:00:00 2001 From: Hans-Christoph Steiner Date: Mon, 8 Oct 2012 01:02:21 +0000 Subject: tagging extra 0.43.3 svn path=/trunk/; revision=16355 --- externals/extra/0.43.3/stdout/stdout.c | 50 ++++++++++++++++++++++++++++++++++ 1 file changed, 50 insertions(+) create mode 100644 externals/extra/0.43.3/stdout/stdout.c (limited to 'externals/extra/0.43.3/stdout/stdout.c') diff --git a/externals/extra/0.43.3/stdout/stdout.c b/externals/extra/0.43.3/stdout/stdout.c new file mode 100644 index 00000000..5cd52f25 --- /dev/null +++ b/externals/extra/0.43.3/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 +#include +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); +} -- cgit v1.2.1