Pd-cvs January 2006

pd-cvs@lists.iem.at

13 participants
285 discussions

abstractions/pureunity/generics/locale english.tcl, NONE, 1.1
by Mathieu Bouchard 04 Jan '06

04 Jan '06

Update of /cvsroot/pure-data/abstractions/pureunity/generics/locale In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv9952 Added Files: english.tcl Log Message: upcoming locale for PureUnity --- NEW FILE: english.tcl --- say_namespace summary { foreach {x y} { f "floating-point" ~ "signal" \# "grid" } { say_category basic<$x> say ~.do "" say ~.norm "" say ~.packunpack3 "" say ~ "" say ~.swap "" say ~.taa "" } say_category interfaces proc pu_say {} { } pu_say antireflexive {t } "" pu_say antisymmetric {t } "" pu_say associative {t } "" pu_say commutative {t } "" pu_say distributive {t } "" pu_say equivalence {t } "" pu_say invertible {t } "" pu_say partialorder {t } "" pu_say partialordereq {t } "" pu_say reflexive {t } "" pu_say totalorder {t } "" pu_say totalordereq {t } "" pu_say transitive {t } "" pu_say trichotomy {t } "" pu_say operator1 {t } "" pu_say operator2 {t } "" say_category cancellators say associator "" say commutator "ab-ba" say distributor "" say invertor "" say_category misc say twice "" say 3times "" say 4times "" say ^ "" say error "" say protocols-tree "" say tree "" }

1 0

abstractions/pureunity/generics/locale - New directory
by Mathieu Bouchard 04 Jan '06

04 Jan '06

Update of /cvsroot/pure-data/abstractions/pureunity/generics/locale In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv9914/locale Log Message: Directory /cvsroot/pure-data/abstractions/pureunity/generics/locale added to the repository

1 0

externals/iemlib/iemhelp help-splitfilename.pd,1.5,1.6
by musil 04 Jan '06

04 Jan '06

Update of /cvsroot/pure-data/externals/iemlib/iemhelp In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv467/iemlib/iemhelp Modified Files: help-splitfilename.pd Log Message: no change Index: help-splitfilename.pd =================================================================== RCS file: /cvsroot/pure-data/externals/iemlib/iemhelp/help-splitfilename.pd,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** help-splitfilename.pd 2 Jun 2005 18:35:03 -0000 1.5 --- help-splitfilename.pd 4 Jan 2006 01:15:19 -0000 1.6 *************** *** 1,3 **** ! #N canvas 150 53 677 566 10; #X text 9 1 splitfilename: split into path and filename; #X obj 53 391 print path; --- 1,3 ---- ! #N canvas 235 44 685 574 10; #X text 9 1 splitfilename: split into path and filename; #X obj 53 391 print path; *************** *** 43,46 **** --- 43,63 ---- #X text 50 435 (c) Thomas Musil 2000 - 2005; #X text 98 468 Graz \, Austria; + #X floatatom 273 196 5 0 255 0 - - -; + #N canvas 191 208 354 235 ASCII_separator 0; + #X obj 138 55 inlet; + #X obj 138 143 outlet; + #X obj 138 76 clip 0 255; + #X obj 138 98 - 32; + #X msg 138 121 separator \$1; + #X obj 37 121 makefilename %c; + #X obj 37 143 outlet; + #X connect 0 0 2 0; + #X connect 2 0 3 0; + #X connect 2 0 5 0; + #X connect 3 0 4 0; + #X connect 4 0 1 0; + #X connect 5 0 6 0; + #X restore 273 216 pd ASCII_separator; + #X symbolatom 273 240 0 0 0 0 - - -; #X connect 3 0 9 0; #X connect 4 0 9 0; *************** *** 68,69 **** --- 85,89 ---- #X connect 27 0 1 0; #X connect 27 1 2 0; + #X connect 34 0 35 0; + #X connect 35 0 36 0; + #X connect 35 1 9 0;

1 0

externals/iemlib/iemhelp help-mergefilename.pd,1.5,1.6
by musil 04 Jan '06

04 Jan '06

Update of /cvsroot/pure-data/externals/iemlib/iemhelp In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv305/iemlib/iemhelp Modified Files: help-mergefilename.pd Log Message: no change Index: help-mergefilename.pd =================================================================== RCS file: /cvsroot/pure-data/externals/iemlib/iemhelp/help-mergefilename.pd,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** help-mergefilename.pd 2 Jun 2005 18:35:03 -0000 1.5 --- help-mergefilename.pd 4 Jan 2006 01:14:55 -0000 1.6 *************** *** 1,3 **** ! #N canvas 82 111 626 448 10; #X msg 389 153 separator $; #X msg 389 88 separator @; --- 1,3 ---- ! #N canvas 82 111 634 456 10; #X msg 389 153 separator $; #X msg 389 88 separator @;

1 0

externals/iemlib LICENCE.txt,1.4,1.5
by musil 04 Jan '06

04 Jan '06

Update of /cvsroot/pure-data/externals/iemlib In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv32504/iemlib Modified Files: LICENCE.txt Log Message: better licence Index: LICENCE.txt =================================================================== RCS file: /cvsroot/pure-data/externals/iemlib/LICENCE.txt,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** LICENCE.txt 2 Jun 2005 18:37:10 -0000 1.4 --- LICENCE.txt 4 Jan 2006 01:13:52 -0000 1.5 *************** *** 1,52 **** ! iemlib containing iemlib1, iemlib2, iem_t3_lib, iem_mp3 iemabs and iemhelp ! ! Copyright (C) Thomas MUSIL [musil_at_iem.at] ! ! This library is free software; you can redistribute it and/or ! modify it under the terms of the GNU Lesser General Public ! License as published by the Free Software Foundation; either ! version 2.1 of the License, or (at your option) any later version. ! ! This library 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 ! Lesser General Public License for more details (see GnuLGPL.txt). ! (e.g. http://www.gnu.org/copyleft/lesser.html) ! ! 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 ! ! IEM - Institute of Electronic Music and Acoustics, Graz ! Inffeldgasse 10/3, 8010 Graz, Austria ! http://iem.at ! ! ! <one line to give the library's name and a brief idea of what it does.> ! Copyright (C) <year> <name of author> ! ! This library is free software; you can redistribute it and/or ! modify it under the terms of the GNU Lesser General Public ! License as published by the Free Software Foundation; either ! version 2.1 of the License, or (at your option) any later version. ! ! This library 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 ! 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 ! ! Also add information on how to contact you by electronic and paper mail. ! ! You should also get your employer (if you work as a programmer) or your ! school, if any, to sign a "copyright disclaimer" for the library, if ! necessary. Here is a sample; alter the names: ! ! Yoyodyne, Inc., hereby disclaims all copyright interest in the ! library `Frob' (a library for tweaking knobs) written by James Random Hacker. ! ! <signature of Ty Coon>, 1 April 1990 ! Ty Coon, President of Vice \ No newline at end of file --- 1,28 ---- ! Iemlib contains 4 dlls and 2 directories: ! iemlib1, iemlib2, iem_t3_lib, iem_mp3 and iemabs, iemhelp. ! ! This library extends the performance of miller puckette's pure data (pd). ! ! Copyright (C) 2000-2005 Thomas MUSIL [musil_at_iem.at] ! ! IEM - Institute of Electronic Music and Acoustics, Graz ! Inffeldgasse 10/3, 8010 Graz, Austria ! http://iem.at ! ! This library is free software; you can redistribute it and/or ! modify it under the terms of the GNU Lesser General Public ! License as published by the Free Software Foundation; either ! version 2.1 of the License, or (at your option) any later version. ! ! This library 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 ! Lesser General Public License for more details ( GnuLGPL.txt ). ! (e.g. http://www.gnu.org/copyleft/lesser.html) ! ! 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 ! ! Graz, 15 June 2005 ! Thomas Musil

1 0

externals/iemlib/src/iemlib2 splitfilename.c,1.6,1.7
by musil 04 Jan '06

04 Jan '06

Update of /cvsroot/pure-data/externals/iemlib/src/iemlib2 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv30386/iemlib/src/iemlib2 Modified Files: splitfilename.c Log Message: new malloc Index: splitfilename.c =================================================================== RCS file: /cvsroot/pure-data/externals/iemlib/src/iemlib2/splitfilename.c,v retrieving revision 1.6 retrieving revision 1.7 diff -C2 -d -r1.6 -r1.7 *** splitfilename.c 3 Sep 2005 08:28:41 -0000 1.6 --- splitfilename.c 4 Jan 2006 01:05:17 -0000 1.7 *************** *** 25,154 **** typedef struct _splitfilename { ! t_object x_obj; ! char x_sep[2]; ! void *x_outpath; ! void *x_outfile; } t_splitfilename; static void splitfilename_separator(t_splitfilename *x, t_symbol *s, int ac, t_atom *av) { ! if(ac > 0) ! { ! if(IS_A_SYMBOL(av, 0)) ! { ! if(strlen(av->a_w.w_symbol->s_name) == 1) ! x->x_sep[0] = av->a_w.w_symbol->s_name[0]; ! else if(!strcmp(av->a_w.w_symbol->s_name, "backslash")) ! x->x_sep[0] = '\\'; ! else if(!strcmp(av->a_w.w_symbol->s_name, "slash")) ! x->x_sep[0] = '/'; ! else if(!strcmp(av->a_w.w_symbol->s_name, "blank")) ! x->x_sep[0] = ' '; ! else if(!strcmp(av->a_w.w_symbol->s_name, "space")) ! x->x_sep[0] = ' '; ! else if(!strcmp(av->a_w.w_symbol->s_name, "dollar")) ! x->x_sep[0] = '$'; ! else if(!strcmp(av->a_w.w_symbol->s_name, "comma")) ! x->x_sep[0] = ','; ! else if(!strcmp(av->a_w.w_symbol->s_name, "semi")) ! x->x_sep[0] = ';'; ! else if(!strcmp(av->a_w.w_symbol->s_name, "leftbrace")) ! x->x_sep[0] = '{'; ! else if(!strcmp(av->a_w.w_symbol->s_name, "rightbrace")) ! x->x_sep[0] = '}'; ! else ! x->x_sep[0] = '/'; ! } ! else if(IS_A_FLOAT(av, 0)) ! { ! int i; ! float f=fabs(av->a_w.w_float); ! ! while(f >= 10.0) ! f *= 0.1; ! i = (int)f; ! x->x_sep[0] = (char)i + '0'; ! } ! } ! else ! x->x_sep[0] = 0; } static void splitfilename_symbol(t_splitfilename *x, t_symbol *s) { ! int len = strlen(s->s_name); ! ! if(len) ! { ! if(x->x_sep[0] != 0) ! { ! char *str_path = (char *)getbytes(len*sizeof(char)); ! char *str_file = (char *)getbytes(len*sizeof(char)); ! char *cpp, *cpf; ! ! strcpy(str_path, s->s_name); ! strcpy(str_file, s->s_name); ! cpp = strrchr(str_path, x->x_sep[0]); ! cpf = strrchr(str_file, x->x_sep[0]); ! if(!cpp) /* JMZ: 20050701 */ ! { ! outlet_symbol(x->x_outfile, gensym(str_file)); ! outlet_symbol(x->x_outpath, &s_); ! } ! else if (!cpf) /* JMZ: 20050701 */ ! { ! outlet_symbol(x->x_outfile, &s_); ! outlet_symbol(x->x_outpath, gensym(str_path)); ! } ! else if((cpp - str_path) < 0) /* JMZ:removed typecast (char*) to (int); this is not portable */ ! { ! outlet_symbol(x->x_outfile, gensym(str_file)); ! outlet_symbol(x->x_outpath, &s_); ! } ! else if((cpp - str_path) >= len) /* JMZ: removed typecast (char*) to (int) */ ! { ! outlet_symbol(x->x_outfile, &s_); ! outlet_symbol(x->x_outpath, gensym(str_path)); ! } ! else ! { ! *cpp = 0; ! cpf++; ! outlet_symbol(x->x_outfile, gensym(cpf)); ! outlet_symbol(x->x_outpath, gensym(str_path)); ! } ! freebytes(str_file, len*sizeof(char)); ! freebytes(str_path, len*sizeof(char)); ! } ! else ! { ! outlet_symbol(x->x_outfile, &s_); ! outlet_symbol(x->x_outpath, s); ! } ! } } static void *splitfilename_new(t_symbol *s, int ac, t_atom *av) { ! t_splitfilename *x = (t_splitfilename *)pd_new(splitfilename_class); ! ! x->x_sep[0] = 0; ! x->x_sep[1] = 0; ! if(ac == 0) ! x->x_sep[0] = '/'; ! else ! splitfilename_separator(x, s, ac, av); ! x->x_outpath = outlet_new(&x->x_obj, &s_symbol); ! x->x_outfile = outlet_new(&x->x_obj, &s_symbol); ! return (x); } void splitfilename_setup(void) { ! splitfilename_class = class_new(gensym("splitfilename"), (t_newmethod)splitfilename_new, ! 0, sizeof(t_splitfilename), 0, A_GIMME, 0); ! class_addsymbol(splitfilename_class, splitfilename_symbol); ! class_addmethod(splitfilename_class, (t_method)splitfilename_separator, gensym("separator"), A_GIMME, 0); ! class_addmethod(splitfilename_class, (t_method)splitfilename_separator, gensym("sep"), A_GIMME, 0); ! class_sethelpsymbol(splitfilename_class, gensym("iemhelp/help-splitfilename")); } --- 25,145 ---- typedef struct _splitfilename { ! t_object x_obj; ! char x_sep[2]; ! char *x_mem; ! t_int x_size; ! t_outlet *x_outpath; ! t_outlet *x_outfile; } t_splitfilename; static void splitfilename_separator(t_splitfilename *x, t_symbol *s, int ac, t_atom *av) { ! if(ac > 0) ! { ! if(IS_A_SYMBOL(av, 0)) ! { ! char *name=av->a_w.w_symbol->s_name; ! ! if(strlen(name) == 1) ! x->x_sep[0] = name[0]; ! else if(!strcmp(name, "backslash")) ! x->x_sep[0] = '\\'; ! else if(!strcmp(name, "slash")) ! x->x_sep[0] = '/'; ! else if(!strcmp(name, "blank")) ! x->x_sep[0] = ' '; ! else if(!strcmp(name, "space")) ! x->x_sep[0] = ' '; ! else if(!strcmp(name, "dollar")) ! x->x_sep[0] = '$'; ! else if(!strcmp(name, "comma")) ! x->x_sep[0] = ','; ! else if(!strcmp(name, "semi")) ! x->x_sep[0] = ';'; ! else if(!strcmp(name, "leftbrace")) ! x->x_sep[0] = '{'; ! else if(!strcmp(name, "rightbrace")) ! x->x_sep[0] = '}'; ! else ! x->x_sep[0] = '/'; ! } ! else if(IS_A_FLOAT(av, 0)) ! { ! t_int i=atom_getintarg(0, ac, av); ! ! x->x_sep[0] = (char)i + '0';/* you can set any separator-char by setting a number between -32 ... 223 */ ! } ! } ! else ! x->x_sep[0] = 0; } static void splitfilename_symbol(t_splitfilename *x, t_symbol *s) { ! t_int length = strlen(s->s_name); ! ! if(length) ! { ! if(x->x_sep[0]) ! { ! char *sep_ptr=x->x_mem; ! ! if(length > x->x_size) ! { ! x->x_mem = (char *)resizebytes(x->x_mem, x->x_size*sizeof(char), (length+100)*sizeof(char)); ! x->x_size = length + 100; ! } ! strcpy(x->x_mem, s->s_name); ! sep_ptr = strrchr(x->x_mem, x->x_sep[0]);/* points to the leftest separator-char-index of string */ ! if((!sep_ptr) || ((sep_ptr - x->x_mem) < 0) || ((sep_ptr - x->x_mem) >= length)) ! { /* JMZ: 20050701 : removed typecast (char*) to (int); this is not portable */ ! outlet_symbol(x->x_outfile, &s_); ! outlet_symbol(x->x_outpath, gensym(x->x_mem)); ! } ! else ! { ! *sep_ptr = 0; ! sep_ptr++; ! outlet_symbol(x->x_outfile, gensym(sep_ptr)); ! outlet_symbol(x->x_outpath, gensym(x->x_mem)); ! } ! } ! else ! { ! outlet_symbol(x->x_outfile, &s_); ! outlet_symbol(x->x_outpath, s); ! } ! } ! } ! ! static void splitfilename_free(t_splitfilename *x) ! { ! freebytes(x->x_mem, x->x_size*sizeof(char)); } static void *splitfilename_new(t_symbol *s, int ac, t_atom *av) { ! t_splitfilename *x = (t_splitfilename *)pd_new(splitfilename_class); ! ! x->x_sep[0] = 0; ! x->x_sep[1] = 0; ! if(ac == 0) ! x->x_sep[0] = '/'; ! else ! splitfilename_separator(x, s, ac, av); ! x->x_size = 400; ! x->x_mem = (char *)getbytes(x->x_size*sizeof(char)); ! x->x_outpath = (t_outlet *)outlet_new(&x->x_obj, &s_symbol); ! x->x_outfile = (t_outlet *)outlet_new(&x->x_obj, &s_symbol); ! return (x); } void splitfilename_setup(void) { ! splitfilename_class = class_new(gensym("splitfilename"), (t_newmethod)splitfilename_new, ! 0, sizeof(t_splitfilename), 0, A_GIMME, 0); ! class_addsymbol(splitfilename_class, splitfilename_symbol); ! class_addmethod(splitfilename_class, (t_method)splitfilename_separator, gensym("separator"), A_GIMME, 0); ! class_addmethod(splitfilename_class, (t_method)splitfilename_separator, gensym("sep"), A_GIMME, 0); ! class_sethelpsymbol(splitfilename_class, gensym("iemhelp/help-splitfilename")); }

1 0

externals/iemlib/src/iemlib2 mergefilename.c,1.3,1.4
by musil 04 Jan '06

04 Jan '06

Update of /cvsroot/pure-data/externals/iemlib/src/iemlib2 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv30211/iemlib/src/iemlib2 Modified Files: mergefilename.c Log Message: new malloc Index: mergefilename.c =================================================================== RCS file: /cvsroot/pure-data/externals/iemlib/src/iemlib2/mergefilename.c,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** mergefilename.c 8 Jul 2005 02:04:25 -0000 1.3 --- mergefilename.c 4 Jan 2006 01:04:46 -0000 1.4 *************** *** 26,29 **** --- 26,31 ---- t_object x_obj; char x_sep[2]; + char *x_mem; + t_int x_size; } t_mergefilename; *************** *** 34,56 **** if(IS_A_SYMBOL(av, 0)) { ! if(strlen(av->a_w.w_symbol->s_name) == 1) ! x->x_sep[0] = av->a_w.w_symbol->s_name[0]; ! else if(!strcmp(av->a_w.w_symbol->s_name, "backslash")) x->x_sep[0] = '\\'; ! else if(!strcmp(av->a_w.w_symbol->s_name, "slash")) x->x_sep[0] = '/'; ! else if(!strcmp(av->a_w.w_symbol->s_name, "blank")) x->x_sep[0] = ' '; ! else if(!strcmp(av->a_w.w_symbol->s_name, "space")) x->x_sep[0] = ' '; ! else if(!strcmp(av->a_w.w_symbol->s_name, "dollar")) x->x_sep[0] = '$'; ! else if(!strcmp(av->a_w.w_symbol->s_name, "comma")) x->x_sep[0] = ','; ! else if(!strcmp(av->a_w.w_symbol->s_name, "semi")) x->x_sep[0] = ';'; ! else if(!strcmp(av->a_w.w_symbol->s_name, "leftbrace")) x->x_sep[0] = '{'; ! else if(!strcmp(av->a_w.w_symbol->s_name, "rightbrace")) x->x_sep[0] = '}'; else --- 36,60 ---- if(IS_A_SYMBOL(av, 0)) { ! char *name=av->a_w.w_symbol->s_name; ! ! if(strlen(name) == 1) ! x->x_sep[0] = name[0]; ! else if(!strcmp(name, "backslash")) x->x_sep[0] = '\\'; ! else if(!strcmp(name, "slash")) x->x_sep[0] = '/'; ! else if(!strcmp(name, "blank")) x->x_sep[0] = ' '; ! else if(!strcmp(name, "space")) x->x_sep[0] = ' '; ! else if(!strcmp(name, "dollar")) x->x_sep[0] = '$'; ! else if(!strcmp(name, "comma")) x->x_sep[0] = ','; ! else if(!strcmp(name, "semi")) x->x_sep[0] = ';'; ! else if(!strcmp(name, "leftbrace")) x->x_sep[0] = '{'; ! else if(!strcmp(name, "rightbrace")) x->x_sep[0] = '}'; else *************** *** 59,68 **** else if(IS_A_FLOAT(av, 0)) { ! int i; ! float f=fabs(av->a_w.w_float); - while(f >= 10.0) - f *= 0.1; - i = (int)f; x->x_sep[0] = (char)i + '0'; } --- 63,68 ---- else if(IS_A_FLOAT(av, 0)) { ! t_int i=atom_getintarg(0, ac, av); x->x_sep[0] = (char)i + '0'; } *************** *** 74,82 **** static void mergefilename_float(t_mergefilename *x, t_floatarg f) { ! char fbuf[30]; ! fbuf[0] = 0; ! sprintf(fbuf, "%g", f); ! outlet_symbol(x->x_obj.ob_outlet, gensym(fbuf)); } --- 74,82 ---- static void mergefilename_float(t_mergefilename *x, t_floatarg f) { ! char flt_buf[30]; ! flt_buf[0] = 0; ! sprintf(flt_buf, "%g", f); ! outlet_symbol(x->x_obj.ob_outlet, gensym(flt_buf)); } *************** *** 88,120 **** static void mergefilename_list(t_mergefilename *x, t_symbol *s, int ac, t_atom *av) { ! char *cbeg, fbuf[30]; ! int size=400, i, len, cursize=0; ! cbeg = (char *)getbytes(size * sizeof(char)); ! cbeg[0] = 0; if(ac > 0) { if(IS_A_SYMBOL(av, 0)) { ! len = strlen(av->a_w.w_symbol->s_name); ! if((len + cursize) >= (size-1)) { ! cbeg = (char *)resizebytes(cbeg, size*sizeof(char), 2*(len + cursize)*sizeof(char)); ! size = 2*(len + cursize); } ! strcat(cbeg, av->a_w.w_symbol->s_name); ! cursize += len; } else if(IS_A_FLOAT(av, 0)) { ! sprintf(fbuf, "%g", av->a_w.w_float); ! len = strlen(fbuf); ! if((len + cursize) >= (size-1)) { ! cbeg = (char *)resizebytes(cbeg, size*sizeof(char), 2*(len + cursize)*sizeof(char)); ! size = 2*(len + cursize); } ! strcat(cbeg, fbuf); ! cursize += len; } } --- 88,119 ---- static void mergefilename_list(t_mergefilename *x, t_symbol *s, int ac, t_atom *av) { ! char flt_buf[30]; ! t_int i, length, accu_size=0; ! x->x_mem[0] = 0; if(ac > 0) { if(IS_A_SYMBOL(av, 0)) { ! length = strlen(av->a_w.w_symbol->s_name); ! if((length + accu_size) >= (x->x_size-2)) { ! x->x_mem = (char *)resizebytes(x->x_mem, x->x_size*sizeof(char), 2*(length + accu_size)*sizeof(char)); ! x->x_size = 2*(length + accu_size); } ! strcat(x->x_mem, av->a_w.w_symbol->s_name); ! accu_size += length; } else if(IS_A_FLOAT(av, 0)) { ! sprintf(flt_buf, "%g", av->a_w.w_float); ! length = strlen(flt_buf); ! if((length + accu_size) >= (x->x_size-2)) { ! x->x_mem = (char *)resizebytes(x->x_mem, x->x_size*sizeof(char), 2*(length + accu_size)*sizeof(char)); ! x->x_size = 2*(length + accu_size); } ! strcat(x->x_mem, flt_buf); ! accu_size += length; } } *************** *** 125,206 **** { av++; ! strcat(cbeg, x->x_sep); if(IS_A_SYMBOL(av, 0)) { ! len = strlen(av->a_w.w_symbol->s_name); ! if((len + cursize) >= (size-1)) { ! cbeg = (char *)resizebytes(cbeg, size*sizeof(char), 2*(len + cursize)*sizeof(char)); ! size = 2*(len + cursize); } ! strcat(cbeg, av->a_w.w_symbol->s_name); ! cursize += len; } else if(IS_A_FLOAT(av, 0)) { ! sprintf(fbuf, "%g", av->a_w.w_float); ! len = strlen(fbuf); ! if((len + cursize) >= (size-1)) { ! cbeg = (char *)resizebytes(cbeg, size*sizeof(char), 2*(len + cursize)*sizeof(char)); ! size = 2*(len + cursize); } ! strcat(cbeg, fbuf); ! cursize += len; } } } ! outlet_symbol(x->x_obj.ob_outlet, gensym(cbeg)); ! freebytes(cbeg, size * sizeof(char)); } static void mergefilename_anything(t_mergefilename *x, t_symbol *s, int ac, t_atom *av) { ! char *cbeg, fbuf[30]; ! int size=400, i, len, cursize=0; ! cbeg = (char *)getbytes(size * sizeof(char)); ! cbeg[0] = 0; ! len = strlen(s->s_name); ! if((len + cursize) >= (size-1)) { ! cbeg = (char *)resizebytes(cbeg, size*sizeof(char), 2*(len + cursize)*sizeof(char)); ! size = 2*(len + cursize); } ! strcat(cbeg, s->s_name); ! cursize += len; if(ac > 0) { for(i=0; i<ac; i++) { ! strcat(cbeg, x->x_sep); if(IS_A_SYMBOL(av, 0)) { ! len = strlen(av->a_w.w_symbol->s_name); ! if((len + cursize) >= (size-1)) { ! cbeg = (char *)resizebytes(cbeg, size*sizeof(char), 2*(len + cursize)*sizeof(char)); ! size = 2*(len + cursize); } ! strcat(cbeg, av->a_w.w_symbol->s_name); ! cursize += len; } else if(IS_A_FLOAT(av, 0)) { ! sprintf(fbuf, "%g", av->a_w.w_float); ! len = strlen(fbuf); ! if((len + cursize) >= (size-1)) { ! cbeg = (char *)resizebytes(cbeg, size*sizeof(char), 2*(len + cursize)*sizeof(char)); ! size = 2*(len + cursize); } ! strcat(cbeg, fbuf); ! cursize += len; } av++; } } ! outlet_symbol(x->x_obj.ob_outlet, gensym(cbeg)); ! freebytes(cbeg, size * sizeof(char)); } --- 124,207 ---- { av++; ! strcat(x->x_mem, x->x_sep); if(IS_A_SYMBOL(av, 0)) { ! length = strlen(av->a_w.w_symbol->s_name); ! if((length + accu_size) >= (x->x_size-2)) { ! x->x_mem = (char *)resizebytes(x->x_mem, x->x_size*sizeof(char), 2*(length + accu_size)*sizeof(char)); ! x->x_size = 2*(length + accu_size); } ! strcat(x->x_mem, av->a_w.w_symbol->s_name); ! accu_size += length; } else if(IS_A_FLOAT(av, 0)) { ! sprintf(flt_buf, "%g", av->a_w.w_float); ! length = strlen(flt_buf); ! if((length + accu_size) >= (x->x_size-2)) { ! x->x_mem = (char *)resizebytes(x->x_mem, x->x_size*sizeof(char), 2*(length + accu_size)*sizeof(char)); ! x->x_size = 2*(length + accu_size); } ! strcat(x->x_mem, flt_buf); ! accu_size += length; } } } ! outlet_symbol(x->x_obj.ob_outlet, gensym(x->x_mem)); } static void mergefilename_anything(t_mergefilename *x, t_symbol *s, int ac, t_atom *av) { ! char flt_buf[30]; ! t_int i, length, accu_size=0; ! x->x_mem[0] = 0; ! length = strlen(s->s_name); ! if((length + accu_size) >= (x->x_size-2)) { ! x->x_mem = (char *)resizebytes(x->x_mem, x->x_size*sizeof(char), 2*(length + accu_size)*sizeof(char)); ! x->x_size = 2*(length + accu_size); } ! strcat(x->x_mem, s->s_name); ! accu_size += length; if(ac > 0) { for(i=0; i<ac; i++) { ! strcat(x->x_mem, x->x_sep); if(IS_A_SYMBOL(av, 0)) { ! length = strlen(av->a_w.w_symbol->s_name); ! if((length + accu_size) >= (x->x_size-2)) { ! x->x_mem = (char *)resizebytes(x->x_mem, x->x_size*sizeof(char), 2*(length + accu_size)*sizeof(char)); ! x->x_size = 2*(length + accu_size); } ! strcat(x->x_mem, av->a_w.w_symbol->s_name); ! accu_size += length; } else if(IS_A_FLOAT(av, 0)) { ! sprintf(flt_buf, "%g", av->a_w.w_float); ! length = strlen(flt_buf); ! if((length + accu_size) >= (x->x_size-2)) { ! x->x_mem = (char *)resizebytes(x->x_mem, x->x_size*sizeof(char), 2*(length + accu_size)*sizeof(char)); ! x->x_size = 2*(length + accu_size); } ! strcat(x->x_mem, flt_buf); ! accu_size += length; } av++; } } ! outlet_symbol(x->x_obj.ob_outlet, gensym(x->x_mem)); ! } ! ! static void mergefilename_free(t_mergefilename *x) ! { ! freebytes(x->x_mem, x->x_size*sizeof(char)); } *************** *** 213,216 **** --- 214,219 ---- if(ac > 0) mergefilename_separator(x, s, ac, av); + x->x_size = 400; + x->x_mem = (char *)getbytes(x->x_size*sizeof(char)); outlet_new(&x->x_obj, &s_symbol); return (x);

1 0

abstractions/pureunity/generics tree.pd, NONE, 1.1 protocols-tree.pd, NONE, 1.1
by Mathieu Bouchard 04 Jan '06

04 Jan '06

Update of /cvsroot/pure-data/abstractions/pureunity/generics In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv11092 Added Files: tree.pd protocols-tree.pd Log Message: self-awareness --- NEW FILE: protocols-tree.pd --- #N canvas 436 170 813 546 10; #X obj 19 43 inlet; #X obj 19 152 r \$0-out; #X obj 79 100 symbol \$0-out; #X obj 19 171 outlet; #X text 20 15 the direction of flow indicates "inherits from"; #X obj 192 146 tree \$0 commutative; #X obj 19 100 pack s s; #X obj 79 81 loadbang; #X obj 19 62 makefilename \$0-%s; #X obj 86 222 print; #X obj 423 157 tree \$0 reflexive; #X obj 594 157 tree \$0 antireflexive; #X obj 423 135 tree \$0 partialorder; #X obj 594 135 tree \$0 partialordereq; #X obj 423 90 tree \$0 totalorder; #X obj 594 91 tree \$0 totalordereq; #X obj 380 54 tree \$0 equivalence; #X obj 458 455 tree \$0 associative; #X obj 486 355 tree \$0 distributive; #X obj 474 409 tree \$0 invertible; #X obj 512 115 tree \$0 trichotomy; #X obj 385 220 tree \$0 transitive; #X obj 458 436 tree \$0 semigroup ?; #X obj 458 381 tree \$0 group ?; #X obj 622 184 tree \$0 antisymmetric2 ?; #X obj 480 330 tree \$0 ring ?; #X obj 432 185 tree \$0 antisymmetric ?; #X obj 192 166 tree \$0 anticommutative; #X obj 480 310 tree \$0 field ?; #X obj 423 276 tree \$0 relation; #X msg 19 119 \; \$1 symbol \$2; #X connect 0 0 8 0; #X connect 0 0 9 0; #X connect 1 0 3 0; #X connect 2 0 6 1; #X connect 6 0 30 0; #X connect 7 0 2 0; #X connect 8 0 6 0; #X connect 10 0 29 0; #X connect 11 0 24 0; #X connect 11 0 29 0; #X connect 12 0 10 0; #X connect 12 0 21 0; #X connect 12 0 26 0; #X connect 13 0 11 0; #X connect 13 0 21 0; #X connect 14 0 12 0; #X connect 14 0 20 0; #X connect 15 0 13 0; #X connect 15 0 20 0; #X connect 16 0 5 0; #X connect 16 0 10 0; #X connect 16 0 21 0; #X connect 21 0 29 0; #X connect 22 0 17 0; #X connect 23 0 19 0; #X connect 23 0 22 0; #X connect 25 0 18 0; #X connect 25 0 23 0; #X connect 28 0 25 0; --- NEW FILE: tree.pd --- #N canvas 165 73 474 293 10; #X obj 19 4 inlet; #X obj 41 93 outlet; #X obj 19 53 t s s s; #X obj 128 15 loadbang; #X obj 63 72 pack s s s; #X obj 95 53 symbol begin; #X obj 19 132 pack s s s; #X obj 51 113 symbol end; #X msg 64 184 \; \$1 \$2 \$3; #X obj 128 34 symbol \$2; #X obj 206 51 loadbang; #X obj 206 89 makefilename \$1-%s; #X obj 206 70 symbol \$2; #N canvas 0 0 450 300 1370-bitch 0; #X obj 16 75 outlet; #X obj 282 12 namecanvas \$0-bitch; #X restore 30 24 pd \$0-bitch; #X obj 206 157 s \$0-bitch; #X msg 206 138 obj 0 0 r \$1 \, connect 2 0 0 0; #X connect 0 0 2 0; #X connect 2 0 6 0; #X connect 2 1 1 0; #X connect 2 2 4 0; #X connect 3 0 5 0; #X connect 3 0 7 0; #X connect 3 0 9 0; #X connect 4 0 8 0; #X connect 5 0 4 1; #X connect 6 0 8 0; #X connect 7 0 6 1; #X connect 9 0 4 2; #X connect 9 0 6 2; #X connect 10 0 12 0; #X connect 11 0 15 0; #X connect 12 0 11 0; #X connect 13 0 2 0; #X connect 15 0 14 0;

1 0

abstractions/pureunity/generics #.do.pd, NONE, 1.1 #.norm.pd, NONE, 1.1 #.taa.pd, NONE, 1.1
by Mathieu Bouchard 02 Jan '06

02 Jan '06

Update of /cvsroot/pure-data/abstractions/pureunity/generics In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv5372 Added Files: #.do.pd #.norm.pd #.taa.pd Log Message: . --- NEW FILE: #.do.pd --- #N canvas 385 252 450 129 10; #X obj 21 34 inlet; #X obj 61 34 inlet; #X obj 21 82 outlet; #X obj 21 59 # \$1 \$2; #X connect 0 0 3 0; #X connect 1 0 3 1; #X connect 3 0 2 0; --- NEW FILE: #.norm.pd --- #N canvas 0 0 450 300 10; #X obj 21 24 inlet; #X obj 20 50 # sq; #X obj 20 80 #ravel; #X obj 21 111 #fold +; #X obj 21 139 #export; #X obj 22 170 sqrt; #X obj 22 201 outlet; --- NEW FILE: #.taa.pd --- #N canvas 353 249 367 122 10; #X obj 19 14 inlet; #X obj 19 71 outlet; #X obj 19 33 t a a; #X obj 49 52 outlet; #X connect 0 0 2 0; #X connect 2 0 1 0; #X connect 2 1 3 0;

1 0

[PD-cvs] abstractions/pureunity Makefile, 1.4, 1.5 pureunity.c, 1.2, 1.3
by Mathieu Bouchard 02 Jan '06

02 Jan '06

Update of /cvsroot/pure-data/abstractions/pureunity In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv4986 Modified Files: Makefile pureunity.c Log Message: added aliases [#.inlet] [#.outlet] Index: Makefile =================================================================== RCS file: /cvsroot/pure-data/abstractions/pureunity/Makefile,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** Makefile 2 Jan 2006 07:20:49 -0000 1.4 --- Makefile 2 Jan 2006 17:03:11 -0000 1.5 *************** *** 2,5 **** --- 2,6 ---- #PD = pd PDFLAGS = -lib pureunity -noaudio -path generics -path specifics + # PDFLAGS += -lib gridflow CFLAGS = -Wall Index: pureunity.c =================================================================== RCS file: /cvsroot/pure-data/abstractions/pureunity/pureunity.c,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** pureunity.c 2 Jan 2006 07:20:47 -0000 1.2 --- pureunity.c 2 Jan 2006 17:03:11 -0000 1.3 *************** *** 30,35 **** --- 30,37 ---- t_pd *m = &pd_objectmaker; ALIAS( "f.inlet","inlet" ); + ALIAS( "#.inlet","inlet" ); ALIAS( "~.inlet","inlet~" ); ALIAS("f.outlet","outlet" ); + ALIAS("#.outlet","outlet" ); ALIAS("~.outlet","outlet~"); ALIAS( "f.swap","swap" );

1 0

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

2003

Pd-cvs January 2006