From d2eec74a4d8c21aad495ba61539486b24d7ab8dc Mon Sep 17 00:00:00 2001
From: Guenter  Geiger <ggeiger@users.sourceforge.net>
Date: Wed, 9 Oct 2002 10:19:04 +0000
Subject: moved from zexy/zexy to zexy

svn path=/trunk/externals/zexy/; revision=169
---
 src/z_makesymbol.c | 126 +++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 126 insertions(+)
 create mode 100644 src/z_makesymbol.c

(limited to 'src/z_makesymbol.c')

diff --git a/src/z_makesymbol.c b/src/z_makesymbol.c
new file mode 100644
index 0000000..89ba95f
--- /dev/null
+++ b/src/z_makesymbol.c
@@ -0,0 +1,126 @@
+/* 
+(l) 1210:forum::für::umläute:1999
+
+  "makesymbol" is something between "symbol" and "makefilename", thus storing and creating (formatted)
+  symbols...
+
+*/
+
+#include "zexy.h"
+
+#include <string.h>
+#include <stdio.h>
+
+#define MAXSTRINGARGS 10
+#define MAXSTRINGLENG 80
+
+/* ----------------------- makesymbol --------------------- */
+
+static t_class *makesymbol_class;
+
+typedef struct _makesymbol
+{
+	t_object x_obj;
+	t_symbol *x_sym;
+
+	char* mask;
+	char* buf;
+} t_makesymbol;
+
+static void reset_mask(t_makesymbol *x, t_symbol *s)
+{
+	if (*s->s_name) {
+		x->mask = s->s_name;
+		x->x_sym = s;
+	} else {
+		x->mask = "%s%s%s%s%s%s%s%s%s%s";
+		x->x_sym = gensym("");
+	}
+}
+
+t_symbol* list2symbol(char *masque, int argc, t_atom *argv)
+{
+	typedef char cstring[MAXSTRINGLENG];
+
+	cstring buf[MAXSTRINGARGS];
+	cstring buffer;
+	int i;
+
+	for (i=0; i<argc; i++) {
+		atom_string(argv+i, buf[i], MAXSTRINGLENG);
+	}
+
+	sprintf(buffer,
+		masque,
+		buf[0], buf[1], buf[2], buf[3], buf[4], buf[5], buf[6], buf[7], buf[8], buf[9]);
+
+	return (gensym(buffer));
+}
+
+static void makesymbol_list(t_makesymbol *x, t_symbol *s, int argc, t_atom *argv)
+{
+	x->x_sym = list2symbol(x->mask, argc, argv);
+	outlet_symbol(x->x_obj.ob_outlet, x->x_sym);
+}
+
+static void makesymbol_bang(t_makesymbol *x)
+{
+	outlet_symbol(x->x_obj.ob_outlet, x->x_sym);
+}
+
+
+static void *makesymbol_new(t_symbol *s, int argc, t_atom *argv)
+{
+	t_makesymbol *x = (t_makesymbol *)pd_new(makesymbol_class);
+
+	x->buf = (char *)getbytes(MAXSTRINGLENG * sizeof(char));
+
+	x->mask  = x->buf;
+
+	if (argc) {
+		atom_string(argv, x->buf, MAXSTRINGLENG);
+		x->x_sym = gensym(x->buf);
+	} else {
+		x->mask = "%s%s%s%s%s%s%s%s%s%s";
+		x->x_sym = gensym("");
+	}
+
+	outlet_new(&x->x_obj, &s_symbol);
+	inlet_new(&x->x_obj, &x->x_obj.ob_pd, gensym("symbol"), gensym("sym1"));
+
+	return (x);
+}
+
+static void makesymbol_free(t_makesymbol *x)
+{
+	freebytes(x->buf, MAXSTRINGLENG*sizeof(char));
+}
+
+
+static void helper(t_makesymbol *x)
+{
+	post("\n%c makesymbol :: create a formatted symbol", HEARTSYMBOL);
+	post("<list of anything>\t: glue up to 10 list-elements to 1 formatted symbol\n"
+		"'bang'\t\t\t: re-output\n"
+		"'help'\t\t\t: view this"
+		"\ninlet2 : <format-string>: new format-string (symbol !)"
+		"\noutlet : <symbol>\t: formatted concatenation");
+	post("\ncreation:\"makesymbol [<format-string>]\": C-style format-string (%s only)", "%s");
+
+post("\n\nmasq = %s", x->mask);
+}
+
+void z_makesymbol_setup(void)
+{
+	makesymbol_class = class_new(gensym("makesymbol"),
+	(t_newmethod)makesymbol_new, (t_method)makesymbol_free,
+		sizeof(t_makesymbol), 0, A_GIMME, 0);
+
+	class_addlist(makesymbol_class, makesymbol_list);
+	class_addbang(makesymbol_class, makesymbol_bang);
+
+	class_addmethod(makesymbol_class, (t_method)reset_mask, gensym("sym1"), A_SYMBOL, 0);
+
+	class_addmethod(makesymbol_class, (t_method)helper, gensym("help"), 0);
+	class_sethelpsymbol(makesymbol_class, gensym("zexy/makesymbol"));
+}
-- 
cgit v1.2.1