Update of /cvsroot/pure-data/externals/iem/iemmatrix/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv25093

Modified Files: mtx_binop_generic.h mtx_concat.c mtx_cumsum.c mtx_diff.c mtx_fill.c mtx_find.c mtx_index.c mtx_mul.c mtx_reverse.c mtx_rowrfft.c mtx_rowrifft.c mtx_slice.c Log Message: removed the helpsymbol ugliness

Index: mtx_concat.c =================================================================== RCS file: /cvsroot/pure-data/externals/iem/iemmatrix/src/mtx_concat.c,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** mtx_concat.c 19 Jul 2006 21:14:14 -0000 1.4 --- mtx_concat.c 25 Jul 2006 14:15:22 -0000 1.5 *************** *** 185,189 **** class_addmethod (mtx_concat_class, (t_method) mTXConcatMatrix2, gensym(""), A_GIMME,0); class_addmethod (mtx_concat_class, (t_method) mTXSetConcatMode, gensym("mode"), A_DEFSYMBOL,0); - class_sethelpsymbol (mtx_concat_class, gensym("mtx_concat-help"));

row_sym = gensym("row"); --- 185,188 ----

Index: mtx_index.c =================================================================== RCS file: /cvsroot/pure-data/externals/iem/iemmatrix/src/mtx_index.c,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** mtx_index.c 19 Jul 2006 21:14:14 -0000 1.4 --- mtx_index.c 25 Jul 2006 14:15:22 -0000 1.5 *************** *** 209,214 **** class_addmethod (mtx_index_class, (t_method) mTXIndexMatrix, gensym("matrix"), A_GIMME,0); class_addmethod (mtx_index_class, (t_method) mTXIndexRightMatrix, gensym(""), A_GIMME,0); - class_sethelpsymbol (mtx_index_class, gensym("mtx_index-help")); - }

--- 209,212 ----

Index: mtx_rowrfft.c =================================================================== RCS file: /cvsroot/pure-data/externals/iem/iemmatrix/src/mtx_rowrfft.c,v retrieving revision 1.6 retrieving revision 1.7 diff -C2 -d -r1.6 -r1.7 *** mtx_rowrfft.c 19 Jul 2006 21:14:14 -0000 1.6 --- mtx_rowrfft.c 25 Jul 2006 14:15:22 -0000 1.7 *************** *** 183,188 **** class_addbang (mtx_rowrfft_class, (t_method) mTXrowrfftBang); class_addmethod (mtx_rowrfft_class, (t_method) mTXrowrfftMatrix, gensym("matrix"), A_GIMME,0); - class_sethelpsymbol (mtx_rowrfft_class, gensym("mtx_rowrfft-help")); - }

--- 183,186 ----

Index: mtx_find.c =================================================================== RCS file: /cvsroot/pure-data/externals/iem/iemmatrix/src/mtx_find.c,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** mtx_find.c 19 Jul 2006 21:14:14 -0000 1.5 --- mtx_find.c 25 Jul 2006 14:15:22 -0000 1.6 *************** *** 343,347 **** class_addmethod (mtx_find_class, (t_method) mTXSetFindMode, gensym("mode"), A_DEFSYMBOL,0); class_addmethod (mtx_find_class, (t_method) mTXSetFindDirection, gensym("direction"), A_DEFFLOAT,0); - class_sethelpsymbol (mtx_find_class, gensym("mtx_find-help"));

row_sym = gensym("row"); --- 343,346 ----

Index: mtx_mul.c =================================================================== RCS file: /cvsroot/pure-data/externals/iem/iemmatrix/src/mtx_mul.c,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** mtx_mul.c 29 Mar 2006 11:59:42 -0000 1.4 --- mtx_mul.c 25 Jul 2006 14:15:22 -0000 1.5 *************** *** 211,214 **** --- 211,215 ---- class_addfloat (mtx_mulelement_class, mtx_mul_float); class_addbang (mtx_mulelement_class, mtx_binmtx_bang); + class_sethelpsymbol(mtx_mulelement_class, gensym("mtx_mul-help"));

mtx_mulscalar_class = class_new(gensym("mtx_mul"), 0, (t_method)mtx_binscalar_free, *************** *** 219,225 **** class_addlist (mtx_mulscalar_class, mtx_mulscalar_list); class_addbang (mtx_mulscalar_class, mtx_binscalar_bang); - - class_sethelpsymbol(mtx_mulelement_class, gensym("mtx_mul-help")); - class_sethelpsymbol(mtx_mulscalar_class, gensym("mtx_mul-help")); }

--- 220,223 ----

Index: mtx_fill.c =================================================================== RCS file: /cvsroot/pure-data/externals/iem/iemmatrix/src/mtx_fill.c,v retrieving revision 1.6 retrieving revision 1.7 diff -C2 -d -r1.6 -r1.7 *** mtx_fill.c 19 Jul 2006 21:14:14 -0000 1.6 --- mtx_fill.c 25 Jul 2006 14:15:22 -0000 1.7 *************** *** 350,355 **** class_addmethod (mtx_fill_class, (t_method) mTXFillIndexMatrix, gensym("index"), A_GIMME,0); class_addfloat (mtx_fill_class, (t_method) mTXFillScalar); - class_sethelpsymbol (mtx_fill_class, gensym("mtx_fill-help")); - }

--- 350,353 ----

Index: mtx_diff.c =================================================================== RCS file: /cvsroot/pure-data/externals/iem/iemmatrix/src/mtx_diff.c,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** mtx_diff.c 19 Jul 2006 21:14:14 -0000 1.5 --- mtx_diff.c 25 Jul 2006 14:15:22 -0000 1.6 *************** *** 253,257 **** class_addmethod (mtx_diff_class, (t_method) mTXSetdiffMode, gensym("mode"), A_DEFSYMBOL,0); class_addmethod (mtx_diff_class, (t_method) mTXSetdiffDirection, gensym("direction"), A_DEFFLOAT,0); - class_sethelpsymbol (mtx_diff_class, gensym("mtx_diff-help"));

row_sym = gensym("row"); --- 253,256 ----

Index: mtx_slice.c =================================================================== RCS file: /cvsroot/pure-data/externals/iem/iemmatrix/src/mtx_slice.c,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** mtx_slice.c 19 Jul 2006 21:14:15 -0000 1.4 --- mtx_slice.c 25 Jul 2006 14:15:22 -0000 1.5 *************** *** 207,212 **** class_addmethod (mtx_slice_class, (t_method) mTXSliceMatrix, gensym("matrix"), A_GIMME,0); class_addmethod (mtx_slice_class, (t_method) mTXSliceIndexList, gensym(""), A_GIMME,0); - class_sethelpsymbol (mtx_slice_class, gensym("mtx_slice-help")); - }

--- 207,210 ----

Index: mtx_binop_generic.h =================================================================== RCS file: /cvsroot/pure-data/externals/iem/iemmatrix/src/mtx_binop_generic.h,v retrieving revision 1.6 retrieving revision 1.7 diff -C2 -d -r1.6 -r1.7 *** mtx_binop_generic.h 23 Oct 2005 19:51:29 -0000 1.6 --- mtx_binop_generic.h 25 Jul 2006 14:15:22 -0000 1.7 *************** *** 27,31 **** #define MTXBIN_SHORTNAME MTXBIN_SHORTNAME2 (MTXBIN_GENERIC__OPERATOR)

! #define MTXBIN_HELPNAME2(s1) MTXBIN_STRINGNAME("iemmatrix/",s1) #ifdef MTXBIN_HELPNAME # define MTXBIN_REALHELPNAME MTXBIN_HELPNAME2(MTXBIN_HELPNAME) --- 27,31 ---- #define MTXBIN_SHORTNAME MTXBIN_SHORTNAME2 (MTXBIN_GENERIC__OPERATOR)

! #define MTXBIN_HELPNAME2(s1) MTXBIN_STRINGNAME("",s1) #ifdef MTXBIN_HELPNAME # define MTXBIN_REALHELPNAME MTXBIN_HELPNAME2(MTXBIN_HELPNAME)

Index: mtx_rowrifft.c =================================================================== RCS file: /cvsroot/pure-data/externals/iem/iemmatrix/src/mtx_rowrifft.c,v retrieving revision 1.6 retrieving revision 1.7 diff -C2 -d -r1.6 -r1.7 *** mtx_rowrifft.c 19 Jul 2006 21:14:15 -0000 1.6 --- mtx_rowrifft.c 25 Jul 2006 14:15:22 -0000 1.7 *************** *** 218,223 **** class_addmethod (mtx_rowrifft_class, (t_method) mTXrowrifftMatrixHot, gensym("matrix"), A_GIMME,0); class_addmethod (mtx_rowrifft_class, (t_method) mTXrowrifftMatrixCold, gensym(""), A_GIMME,0); - class_sethelpsymbol (mtx_rowrifft_class, gensym("mtx_rowrifft-help")); - }

--- 218,221 ----

Index: mtx_cumsum.c =================================================================== RCS file: /cvsroot/pure-data/externals/iem/iemmatrix/src/mtx_cumsum.c,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** mtx_cumsum.c 19 Jul 2006 21:14:14 -0000 1.5 --- mtx_cumsum.c 25 Jul 2006 14:15:22 -0000 1.6 *************** *** 261,265 **** class_addmethod (mtx_cumsum_class, (t_method) mTXSetCumsumMode, gensym("mode"), A_DEFSYMBOL,0); class_addmethod (mtx_cumsum_class, (t_method) mTXSetCumsumDirection, gensym("direction"), A_DEFFLOAT,0); - class_sethelpsymbol (mtx_cumsum_class, gensym("mtx_cumsum-help"));

row_sym = gensym("row"); --- 261,264 ----

Index: mtx_reverse.c =================================================================== RCS file: /cvsroot/pure-data/externals/iem/iemmatrix/src/mtx_reverse.c,v retrieving revision 1.6 retrieving revision 1.7 diff -C2 -d -r1.6 -r1.7 *** mtx_reverse.c 29 Mar 2006 12:39:24 -0000 1.6 --- mtx_reverse.c 25 Jul 2006 14:15:22 -0000 1.7 *************** *** 81,92 **** static void reverseList (int n, t_atom *y) { ! t_atom *read = y; t_atom tmp; - y += n-1; n >>= 1; ! for (;n--;) { tmp = *y; ! *y-- = *read; ! *read++ = tmp; } } --- 81,91 ---- static void reverseList (int n, t_atom *y) { ! t_atom *read = y+n-1; t_atom tmp; n >>= 1; ! while(n-->0) { tmp = *y; ! *y++ = *read; ! *read-- = tmp; } }