aboutsummaryrefslogtreecommitdiff
path: root/externals/extra/0.43.3/stdout
diff options
context:
space:
mode:
authorHans-Christoph Steiner <eighthave@users.sourceforge.net>2012-10-08 01:02:21 +0000
committerHans-Christoph Steiner <eighthave@users.sourceforge.net>2012-10-08 01:02:21 +0000
commit5aeafcb5b77b06ef6e14d140db81bd79b2f173c4 (patch)
tree3b343d232f84196c4b17d662313ffab90a079919 /externals/extra/0.43.3/stdout
parent3391e44d8d82a3e221888d0b8a19b0e4953cb104 (diff)
tagging extra 0.43.3
svn path=/trunk/; revision=16355
Diffstat (limited to 'externals/extra/0.43.3/stdout')
-rw-r--r--externals/extra/0.43.3/stdout/stdout-help.pd19
-rw-r--r--externals/extra/0.43.3/stdout/stdout.c50
2 files changed, 69 insertions, 0 deletions
diff --git a/externals/extra/0.43.3/stdout/stdout-help.pd b/externals/extra/0.43.3/stdout/stdout-help.pd
new file mode 100644
index 00000000..91edbc41
--- /dev/null
+++ b/externals/extra/0.43.3/stdout/stdout-help.pd
@@ -0,0 +1,19 @@
+#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 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/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 <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);
+}