aboutsummaryrefslogtreecommitdiff
path: root/underscore/underscore.c
diff options
context:
space:
mode:
Diffstat (limited to 'underscore/underscore.c')
-rw-r--r--underscore/underscore.c1
1 files changed, 0 insertions, 1 deletions
diff --git a/underscore/underscore.c b/underscore/underscore.c
deleted file mode 100644
index c95e6e2..0000000
--- a/underscore/underscore.c
+++ /dev/null
@@ -1 +0,0 @@
-/*__________________________________________________________________________ _ á (underscore) prepend setter Copyright © 2002-2006 jan schacher 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 revision history: 20040303 rebuilt release 20060516 PD-port ____________________________________________________________________________*/ #include "m_pd.h" #define MAXSIZE 1024 #define MIN(a,b) ((a)<(b)?(a):(b)) typedef struct underscore { t_object ob; t_atom p_at[MAXSIZE*2]; int p_headlength, p_bodylength; void *p_outlet; } t_underscore; void *underscore_class; void *underscore_new(t_symbol *s, short ac, t_atom *av); void underscore_bang(t_underscore *x); void underscore_float(t_underscore *x, double f); void underscore_anything(t_underscore *x, t_symbol *s, short ac, t_atom *av); void underscore_set(t_underscore *x, t_symbol *s, short ac, t_atom *av); void underscore_list(t_underscore *x, t_symbol *s, short ac, t_atom *av); void underscore_output(t_underscore *x); t_symbol *ps_bang; t_symbol *ps_set; void __setup(void) { underscore_class = class_new(gensym("_"), (t_newmethod)underscore_new, 0L, sizeof(t_underscore), 0, A_GIMME, 0); class_addbang(underscore_class, (t_method)underscore_bang); class_addfloat(underscore_class, (t_method)underscore_float); class_addmethod(underscore_class, (t_method)underscore_list, gensym("list"), A_GIMME, 0); class_addanything(underscore_class, (t_method)underscore_anything); class_addmethod(underscore_class, (t_method)underscore_set, gensym("set"), A_GIMME, 0); post(". _ . jasch . "__DATE__" ",0); ps_bang = gensym("bang"); ps_set = gensym("set"); } void *underscore_new(t_symbol *s, short ac, t_atom *av) { t_underscore *x; int i; t_atom *at; x = (t_underscore *)pd_new(underscore_class); x->p_outlet = outlet_new(&x->ob,0); at = x->p_at; x->p_headlength = 1; x->p_bodylength = 0; at[0].a_type = A_SYMBOL; at[0].a_w.w_symbol = ps_set; if(ac != 0){ ac = MIN(MAXSIZE, ac); x->p_headlength = ac; for (i=0; i<ac; ++i) *at++ = *av++; } return x; } void underscore_bang(t_underscore *x) { t_atom *at; at = x->p_at; x->p_bodylength = 1; x->p_at[x->p_headlength].a_type = A_SYMBOL; x->p_at[x->p_headlength].a_w.w_symbol = ps_bang; underscore_output(x) ; } void underscore_float(t_underscore *x, double f) { t_atom *at; at = x->p_at; x->p_bodylength = 1; SETFLOAT(at+(x->p_headlength), f); underscore_output(x) ; } void underscore_list(t_underscore *x, t_symbol *s, short ac, t_atom *av) { t_atom *at; int i, temp; ac = MIN(MAXSIZE, ac); x->p_bodylength = ac; // indicates input list length temp = x->p_headlength; at = x->p_at; at = at + temp; ac = MIN(MAXSIZE, ac); for (i=0; i<ac; i++) *at++ = *av++; underscore_output(x) ; } void underscore_anything(t_underscore *x, t_symbol *s, short ac, t_atom *av) { int i, temp; t_atom *at; temp = x->p_headlength; at = x->p_at; ac = MIN(MAXSIZE-1, ac); x->p_bodylength = ac+1; at = x->p_at; at = at + temp+1; x->p_at[temp].a_type = A_SYMBOL; x->p_at[temp].a_w.w_symbol = s; for (i=(temp+1); i<(ac+temp+1); i++) *at++ = *av++; underscore_output(x) ; } void underscore_set(t_underscore *x, t_symbol *s, short ac, t_atom *av) { t_atom *at; int i, temp; at = x->p_at; x->p_headlength = ac; // indicates input list length ac = MIN(MAXSIZE, ac); for (i=0; i<ac; i++) *at++ = *av++; } void underscore_output(t_underscore *x) { t_atom *at; t_atom atoms[MAXSIZE*2]; int i, outlength; t_symbol *s; at = x->p_at; outlength = MIN(MAXSIZE, (x->p_headlength+x->p_bodylength)); if(x->p_at[0].a_type != A_SYMBOL){ outlet_list(x->p_outlet, 0L, outlength, at); }else{ at ++; s = x->p_at[0].a_w.w_symbol; outlet_anything(x->p_outlet, s, outlength-1, at); } } \ No newline at end of file