initial cvs importsvn2git-root

svn path=/trunk/externals/moocow/pdstring/; revision=4536

1 files changed, 210 insertions, 0 deletions

diff --git a/src/any2string.c b/src/any2string.c
new file mode 100644
index 0000000..3bcaa3a
--- /dev/null
+++ b/src/any2string.c
@@ -0,0 +1,210 @@
+/* -*- Mode: C -*- */
+/*=============================================================================*\
+ * File: any2string.c
+ * Author: Bryan Jurish <moocow@ling.uni-potsdam.de>
+ * Description: convert pd messages to strings
+ *
+ * Copyright (c) 2004 Bryan Jurish.
+ *
+ * For information on usage and redistribution, and for a DISCLAIMER OF ALL
+ * WARRANTIES, see the file "COPYING", in this distribution.
+ *
+ * This program is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU General Public License
+ * as published by the Free Software Foundation; either version 2
+ * of the License, or (at your option) any later version.
+ *
+ * This program is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with this program; if not, write to the Free Software
+ * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
+ *=============================================================================*/
+
+#include <string.h>
+
+#include <m_pd.h>
+
+/* black magic */
+#ifdef NT
+#pragma warning( disable : 4244 )
+#pragma warning( disable : 4305 )
+#endif
+
+/*--------------------------------------------------------------------
+ * DEBUG
+ *--------------------------------------------------------------------*/
+//#define ANY2STRING_DEBUG 1
+
+#ifdef ANY2STRING_DEBUG
+# define A2SDEBUG(x) x
+#else
+# define A2SDEBUG(x)
+#endif
+
+#define ANY2STRING_INITIAL_BUFLEN 32
+
+
+/*=====================================================================
+ * Structures and Types: any2string
+ *=====================================================================*/
+static t_class *any2string_class;
+
+typedef struct _any2string
+{
+  t_object       x_obj;
+  int            x_alloc;
+  int            x_argc;
+  t_atom        *x_argv;
+  t_binbuf      *x_binbuf;
+  t_outlet      *x_outlet;
+} t_any2string;
+
+
+/*=====================================================================
+ * Constants
+ *=====================================================================*/
+
+/*=====================================================================
+ * Methods
+ *=====================================================================*/
+
+/*--------------------------------------------------------------------
+ * anything
+ */
+static void any2string_anything(t_any2string *x, t_symbol *sel, int argc, t_atom *argv)
+{
+  t_atom *a;
+  char *text, *s;
+  int len;
+
+  A2SDEBUG(post("-------any2string_anything()---------"));
+
+  /*-- set up binbuf --*/
+  A2SDEBUG(post("any2string: binbuf_clear()"));
+  binbuf_clear(x->x_binbuf);
+  A2SDEBUG(post("any2string: binbuf_add()"));
+  binbuf_add(x->x_binbuf, argc, argv);
+  A2SDEBUG(binbuf_print(x->x_binbuf));
+
+  A2SDEBUG(post("any2string: binbuf_gettext()"));
+  binbuf_gettext(x->x_binbuf, &text, &len);
+  A2SDEBUG(post("any2string: binbuf_gettext() = \"%s\" ; len=%d", text, len));
+  text[len] = 0;
+
+  /*-- get string length --*/
+  x->x_argc = len+1;
+  if (sel != &s_float && sel != &s_list && sel != &s_) {
+    x->x_argc += strlen(sel->s_name);
+    if (argc > 0) x->x_argc++;
+  }
+  A2SDEBUG(post("any2string: argc=%d", x->x_argc));
+
+  /*-- (re-)allocate --*/
+  if (x->x_alloc < x->x_argc) {
+    A2SDEBUG(post("any2string: reallocate(%d->%d)", x->x_alloc, x->x_argc));
+    freebytes(x->x_argv, x->x_alloc * sizeof(t_atom));
+    x->x_argv = (t_atom *)getbytes(x->x_argc * sizeof(t_atom));
+    x->x_alloc = x->x_argc;
+  }
+
+  /*-- add selector --*/
+  a=x->x_argv;
+  if (sel != &s_float && sel != &s_list && sel != &s_) {
+    A2SDEBUG(post("any2string: for {...} //sel"));
+    for (s=sel->s_name; *s; s++, a++) {
+      A2SDEBUG(post("any2string: for: SETFLOAT(a,'%c'=%d) //sel", *s, *s));
+      SETFLOAT(a,*s);
+    }
+    A2SDEBUG(post("any2string: /for {...} //sel"));
+
+    if (argc > 0) {
+      SETFLOAT(a,' ');
+      a++;
+    }
+  }
+
+  /*-- add binbuf text --*/
+  A2SDEBUG(post("any2string: for {...}"));
+  for (s=text; *s; s++, a++) {
+    A2SDEBUG(post("any2string: for: //SETFLOAT(a,'%c'=%d)", *s, *s));
+    SETFLOAT(a,*s);
+  }
+  A2SDEBUG(post("any2string: /for {...}"));
+
+  /*-- add terminating NUL --*/
+  SETFLOAT(a,0);
+
+  A2SDEBUG(post("any2string: freebytes()"));
+  freebytes(text, strlen(text));
+
+  /*
+    A2SDEBUG(post("any2string: binbuf_free()"));
+    binbuf_free(x->x_binbuf);
+  */
+
+  A2SDEBUG(post("any2string: outlet_list(..., %d, ...)", x->x_argc));
+  outlet_list(x->x_outlet, &s_list, x->x_argc, x->x_argv);
+}
+
+
+/*--------------------------------------------------------------------
+ * new
+ */
+static void *any2string_new(void)
+{
+    t_any2string *x = (t_any2string *)pd_new(any2string_class);
+
+    //-- defaults
+    x->x_alloc = ANY2STRING_INITIAL_BUFLEN;
+    x->x_argc = 0;
+    x->x_argv = (t_atom *)getbytes(x->x_alloc * sizeof(t_atom));
+    x->x_binbuf = binbuf_new();
+
+    //-- outlets
+    x->x_outlet = outlet_new(&x->x_obj, &s_list);
+
+    return (void *)x;
+}
+
+/*--------------------------------------------------------------------
+ * free
+ */
+static void any2string_free(t_any2string *x)
+{
+  if (x->x_argv) {
+    freebytes(x->x_argv, x->x_alloc * sizeof(t_atom));
+    x->x_argv = NULL;
+  }
+  binbuf_free(x->x_binbuf);
+  outlet_free(x->x_outlet);
+  return;
+}
+
+/*--------------------------------------------------------------------
+ * setup
+ */
+void any2string_setup(void)
+{
+  //-- class
+  any2string_class = class_new(gensym("any2string"),
+			    (t_newmethod)any2string_new,
+			    (t_method)any2string_free,
+			    sizeof(t_any2string),
+			    CLASS_DEFAULT,
+			    0);
+  
+  //-- methods
+  /*class_addmethod(any2string_class, (t_method)any2string_symbol, &s_symbol,
+		  A_DEFSYMBOL, 0);
+  */
+  class_addanything(any2string_class,
+		    (t_method)any2string_anything);
+
+  
+  //-- help symbol
+  class_sethelpsymbol(any2string_class, gensym("pdstring-help.pd"));
+}