diff options
Diffstat (limited to 'slist.c')
| -rw-r--r-- | slist.c | 162 |
1 files changed, 83 insertions, 79 deletions
@@ -1,5 +1,5 @@ /* -Copyright (C) 2003 Antoine Rousseau +Copyright (C) 2003 Antoine Rousseau This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public @@ -13,7 +13,7 @@ Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, write to the Free Software -Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA +Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ @@ -29,8 +29,8 @@ typedef struct _sitem t_sitem; struct _sitem { - t_sitem *next; - t_symbol *s; + t_sitem *next; + t_symbol *s; }; typedef struct scommon @@ -38,7 +38,7 @@ typedef struct scommon t_pd c_pd; t_symbol *c_sym; int c_refcount; - t_sitem *first; + t_sitem *first; } t_scommon; typedef struct _slist @@ -46,43 +46,43 @@ typedef struct _slist t_object x_obj; t_symbol *x_sym; t_scommon *x_c; - t_outlet *x_symout; - t_outlet *x_lenout; + t_outlet *x_symout; + t_outlet *x_lenout; } t_slist; static void sitem_delete(t_sitem **x) { - t_sitem *next=(*x)->next; - - //freebytes((*x)->name,strlen((*x)->name)+1); - freebytes(*x,sizeof(t_sitem)); - (*x)=next; + t_sitem *next=(*x)->next; + + //freebytes((*x)->name,strlen((*x)->name)+1); + freebytes(*x,sizeof(t_sitem)); + (*x)=next; } static void sitem_add(t_sitem **x,t_symbol *s) { - t_int l; - t_sitem *newone=getbytes(sizeof(t_sitem)); - - //newone->name=getbytes(l=(strlen(s->s_name)+1)); - //strncpy(newone->name,s->s_name,l); - newone->s=s; - newone->next=0; - - while(*x) x=&((*x)->next); - - *x=newone; + t_int l; + t_sitem *newone=getbytes(sizeof(t_sitem)); + + //newone->name=getbytes(l=(strlen(s->s_name)+1)); + //strncpy(newone->name,s->s_name,l); + newone->s=s; + newone->next=0; + + while(*x) x=&((*x)->next); + + *x=newone; } static void *scommon_new(t_symbol *s) { t_scommon *x = (t_scommon *)pd_new(scommon_class); - x->c_refcount = 0; - x->c_sym=s; - pd_bind((t_pd*)x, s); - + x->c_refcount = 0; + x->c_sym=s; + pd_bind((t_pd *)x, s); + x->first=0; return (x); @@ -90,36 +90,37 @@ static void *scommon_new(t_symbol *s) static int scommon_find(t_scommon *x, t_symbol *s) { - t_sitem *si=x->first; - t_int i=1; - - while(si) { - if(!strcmp(si->s->s_name,s->s_name)) return i; - si=si->next; - i++; - } - return 0; -} - + t_sitem *si=x->first; + t_int i=1; + + while(si) + { + if(!strcmp(si->s->s_name,s->s_name)) return i; + si=si->next; + i++; + } + return 0; +} + static void scommon_add(t_scommon *x, t_symbol *s) { - sitem_add(&x->first,s); + sitem_add(&x->first,s); } static void scommon_reset(t_scommon *x) { - while(x->first) sitem_delete(&x->first); + while(x->first) sitem_delete(&x->first); } static void scommon_ff(t_scommon *x) { - scommon_reset(x); - pd_unbind((t_pd*)x, x->c_sym); + scommon_reset(x); + pd_unbind((t_pd *)x, x->c_sym); } - /* get a pointer to a named symbol list (a "scommon" object), - which is created if necessary. */ +/* get a pointer to a named symbol list (a "scommon" object), +which is created if necessary. */ t_scommon *slist_get(t_symbol *s) { t_scommon *c = (t_scommon *)pd_findbyclass(s, scommon_class); @@ -129,14 +130,14 @@ t_scommon *slist_get(t_symbol *s) return (c); } - /* release a variable. This only frees the "scommon" resource when the - last interested party releases it. */ +/* release a variable. This only frees the "scommon" resource when the +last interested party releases it. */ void slist_release(t_scommon *c) { - if (!--c->c_refcount) scommon_ff(c); + if (!--c->c_refcount) scommon_ff(c); } - + static void *slist_new(t_symbol *s) { t_slist *x = (t_slist *)pd_new(slist_class); @@ -155,69 +156,72 @@ static void slist_ff(t_slist *x) static void slist_print(t_slist *x) { - t_sitem *t=x->x_c->first; - int i=0; - - while(t){ - post("item %d: %s",++i,t->s->s_name); - t=t->next; - } + t_sitem *t=x->x_c->first; + int i=0; + + while(t) + { + post("item %d: %s",++i,t->s->s_name); + t=t->next; + } } static void slist_reset(t_slist *x) { - scommon_reset(x->x_c); + scommon_reset(x->x_c); } static void slist_add(t_slist *x,t_symbol *s) { - scommon_add(x->x_c,s); + scommon_add(x->x_c,s); } static void slist_find(t_slist *x,t_symbol *s) { - outlet_float(x->x_obj.ob_outlet,scommon_find(x->x_c,s)); + outlet_float(x->x_obj.ob_outlet,scommon_find(x->x_c,s)); } static void slist_setlist(t_slist *x,t_symbol *s) { - slist_release(x->x_c); - x->x_c = slist_get(s); + slist_release(x->x_c); + x->x_c = slist_get(s); } static void slist_float(t_slist *x, t_float f) { - t_sitem *t=x->x_c->first; - int i=0; + t_sitem *t=x->x_c->first; + int i=0; + + if(!f) return; - if(!f) return; - - while(t&&((++i)!=f)){ - t=t->next; - } + while(t&&((++i)!=f)) + { + t=t->next; + } - if(t) outlet_symbol(x->x_symout,t->s); + if(t) outlet_symbol(x->x_symout,t->s); } static void slist_len(t_slist *x) { - t_sitem *t=x->x_c->first; - int i=0; + t_sitem *t=x->x_c->first; + int i=0; - while(t){ - t=t->next; - i++; - } + while(t) + { + t=t->next; + i++; + } - outlet_float(x->x_lenout,i); + outlet_float(x->x_lenout,i); } void slist_setup(void) { slist_class = class_new(gensym("slist"), (t_newmethod)slist_new, - (t_method)slist_ff, - sizeof(t_slist), 0, A_DEFSYM, 0); + (t_method)slist_ff, + sizeof(t_slist), 0, A_DEFSYM, 0); //class_addbang(slist_class, slist_bang); class_addfloat(slist_class, slist_float); @@ -227,7 +231,7 @@ void slist_setup(void) class_addmethod(slist_class,(t_method)slist_reset, gensym("reset"),0); class_addmethod(slist_class,(t_method)slist_print, gensym("print"),0); class_addmethod(slist_class,(t_method)slist_len, gensym("len"),0); - scommon_class = class_new(gensym("slist"), 0, 0, - sizeof(t_scommon), CLASS_PD, 0); + scommon_class = class_new(gensym("slist"), 0, 0, + sizeof(t_scommon), CLASS_PD, 0); } |