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;
}
}