From d0f6986345970955d6390a6953c35babf587c262 Mon Sep 17 00:00:00 2001
From: "N.N." <krzyszcz@users.sourceforge.net>
Date: Thu, 19 Feb 2004 22:23:18 +0000
Subject: many small improvements in toxy, plustot added

svn path=/trunk/externals/miXed/; revision=1321
---
 toxy/plustot.print.c | 90 ++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 90 insertions(+)
 create mode 100644 toxy/plustot.print.c

(limited to 'toxy/plustot.print.c')

diff --git a/toxy/plustot.print.c b/toxy/plustot.print.c
new file mode 100644
index 0000000..42ef385
--- /dev/null
+++ b/toxy/plustot.print.c
@@ -0,0 +1,90 @@
+/* Copyright (c) 2003 krzYszcz and others.
+ * For information on usage and redistribution, and for a DISCLAIMER OF ALL
+ * WARRANTIES, see the file, "LICENSE.txt," in this distribution.  */
+
+#include "m_pd.h"
+#include "common/loud.h"
+#include "toxy/plusbob.h"
+#include "plustot.h"
+
+typedef struct _plustot_print
+{
+    t_object   x_ob;
+    t_symbol  *x_label;
+    t_binbuf  *x_bb;
+} t_plustot_print;
+
+static t_class *plustot_print_class;
+
+static void plustot_print_symbol(t_plustot_print *x, t_symbol *s)
+{
+    Tcl_Obj *ob = plustag_tobvalue(s, (t_pd *)x);
+    if (ob)
+    {
+	int len;
+	char *ptr;
+	Tcl_IncrRefCount(ob);
+	ptr = Tcl_GetStringFromObj(ob, &len);
+	if (ptr && len)
+	{
+	    int ac;
+	    binbuf_text(x->x_bb, ptr, len);
+	    if (ac = binbuf_getnatom(x->x_bb))
+	    {
+		t_plustin *tin = plustag_tobtin(s, (t_pd *)x);
+		t_symbol *glname = (tin ? plustin_getglistname(tin) : 0);
+		t_atom *av = binbuf_getvec(x->x_bb);
+		if (av->a_type == A_SYMBOL || av->a_type == A_FLOAT)
+		{
+		    char *lstring =
+			(x->x_label ? x->x_label->s_name :
+			 loud_symbolname(plustag_typename(s, 1, (t_pd *)x),
+					 "???"));
+		    if (glname)
+			startpost("%s (%s):", lstring, glname->s_name);
+		    else
+			startpost("%s:", lstring);
+		}
+		/* FIXME {1.0, 1.0}, etc. */
+		if (av->a_type == A_SYMBOL)
+		{
+		    startpost(" %s", av->a_w.w_symbol->s_name);
+		    postatom(ac - 1, av + 1);
+		    endpost();
+		}
+		else if (av->a_type == A_FLOAT)
+		{
+		    if (ac > 1)
+		    {
+			postatom(ac, av);
+			endpost();
+		    }
+		    else post(" %g", av->a_w.w_float);
+		}
+	    }
+	    /* LATER consider printing empty list as 'bang' */
+	}
+	Tcl_DecrRefCount(ob);
+    }
+}
+
+static void plustot_print_free(t_plustot_print *x)
+{
+    binbuf_free(x->x_bb);
+}
+
+void *plustot_print_new(t_symbol *s, int ac, t_atom *av)
+{
+    t_plustot_print *x = (t_plustot_print *)pd_new(plustot_print_class);
+    x->x_label = (ac && av->a_type == A_SYMBOL ? av->a_w.w_symbol : 0);
+    x->x_bb = binbuf_new();
+    return (x);
+}
+
+void plustot_print_setup(void)
+{
+    plustot_print_class = class_new(gensym("+print"), 0,
+				    (t_method)plustot_print_free,
+				    sizeof(t_plustot_print), 0, 0);
+    class_addsymbol(plustot_print_class, plustot_print_symbol);
+}
-- 
cgit v1.2.1