From 2577ad67d045941cd41cbd42efb94b78f9d25f74 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?IOhannes=20m=20zm=C3=B6lnig?= Date: Tue, 25 Jul 2006 14:15:22 +0000 Subject: removed the helpsymbol ugliness svn path=/trunk/externals/iem/iemmatrix/; revision=5408 --- src/mtx_binop_generic.h | 2 +- src/mtx_concat.c | 1 - src/mtx_cumsum.c | 1 - src/mtx_diff.c | 1 - src/mtx_fill.c | 2 -- src/mtx_find.c | 1 - src/mtx_index.c | 2 -- src/mtx_mul.c | 4 +--- src/mtx_reverse.c | 9 ++++----- src/mtx_rowrfft.c | 2 -- src/mtx_rowrifft.c | 2 -- src/mtx_slice.c | 2 -- 12 files changed, 6 insertions(+), 23 deletions(-) diff --git a/src/mtx_binop_generic.h b/src/mtx_binop_generic.h index 70e1838..6a91f85 100644 --- a/src/mtx_binop_generic.h +++ b/src/mtx_binop_generic.h @@ -26,7 +26,7 @@ #define MTXBIN_SHORTNAME2(s1) MTXBIN_STRINGNAME ("mtx_",s1) #define MTXBIN_SHORTNAME MTXBIN_SHORTNAME2 (MTXBIN_GENERIC__OPERATOR) -#define MTXBIN_HELPNAME2(s1) MTXBIN_STRINGNAME("iemmatrix/",s1) +#define MTXBIN_HELPNAME2(s1) MTXBIN_STRINGNAME("",s1) #ifdef MTXBIN_HELPNAME # define MTXBIN_REALHELPNAME MTXBIN_HELPNAME2(MTXBIN_HELPNAME) #else diff --git a/src/mtx_concat.c b/src/mtx_concat.c index 3ab6b29..8e353e5 100644 --- a/src/mtx_concat.c +++ b/src/mtx_concat.c @@ -184,7 +184,6 @@ void mtx_concat_setup (void) class_addmethod (mtx_concat_class, (t_method) mTXConcatMatrix, gensym("matrix"), A_GIMME,0); 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"); } diff --git a/src/mtx_cumsum.c b/src/mtx_cumsum.c index 8938765..8e98052 100644 --- a/src/mtx_cumsum.c +++ b/src/mtx_cumsum.c @@ -260,7 +260,6 @@ void mtx_cumsum_setup (void) class_addmethod (mtx_cumsum_class, (t_method) mTXCumsumMatrix, gensym("matrix"), A_GIMME,0); 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"); col_sym = gensym("col"); diff --git a/src/mtx_diff.c b/src/mtx_diff.c index f06e78a..cdc743c 100644 --- a/src/mtx_diff.c +++ b/src/mtx_diff.c @@ -252,7 +252,6 @@ void mtx_diff_setup (void) class_addmethod (mtx_diff_class, (t_method) mTXdiffMatrix, gensym("matrix"), A_GIMME,0); 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"); col_sym = gensym("col"); diff --git a/src/mtx_fill.c b/src/mtx_fill.c index cc0b972..84a022e 100644 --- a/src/mtx_fill.c +++ b/src/mtx_fill.c @@ -349,8 +349,6 @@ void mtx_fill_setup (void) class_addmethod (mtx_fill_class, (t_method) mTXBigMatrix, gensym("fill_mtx"), A_GIMME,0); 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")); - } void iemtx_fill_setup(void){ diff --git a/src/mtx_find.c b/src/mtx_find.c index ebd6af5..8ff2796 100644 --- a/src/mtx_find.c +++ b/src/mtx_find.c @@ -342,7 +342,6 @@ void mtx_find_setup (void) // class_addmethod (mtx_find_class, (t_method) mTXSetFindDimension, gensym("dimension"), A_DEFFLOAT,0); 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"); col_sym = gensym("col"); diff --git a/src/mtx_index.c b/src/mtx_index.c index c91652e..dfa226a 100644 --- a/src/mtx_index.c +++ b/src/mtx_index.c @@ -208,8 +208,6 @@ void mtx_index_setup (void) class_addbang (mtx_index_class, (t_method) mTXIndexBang); 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")); - } void iemtx_index_setup(void){ diff --git a/src/mtx_mul.c b/src/mtx_mul.c index 42fd406..bd6aace 100644 --- a/src/mtx_mul.c +++ b/src/mtx_mul.c @@ -210,6 +210,7 @@ void mtx_mul_setup(void) class_addmethod(mtx_mulelement_class, (t_method)mtx_bin_matrix2, gensym(""), A_GIMME, 0); 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, sizeof(t_mtx_binscalar), 0, 0); @@ -218,9 +219,6 @@ void mtx_mul_setup(void) class_addmethod(mtx_mulscalar_class, (t_method)mtx_mulscalar_matrix, gensym("matrix"), A_GIMME, 0); 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")); } diff --git a/src/mtx_reverse.c b/src/mtx_reverse.c index bc7d8ec..816bec6 100644 --- a/src/mtx_reverse.c +++ b/src/mtx_reverse.c @@ -80,14 +80,13 @@ static void copyList (int n, t_atom *x, t_atom *y) } static void reverseList (int n, t_atom *y) { - t_atom *read = y; + t_atom *read = y+n-1; t_atom tmp; - y += n-1; n >>= 1; - for (;n--;) { + while(n-->0) { tmp = *y; - *y-- = *read; - *read++ = tmp; + *y++ = *read; + *read-- = tmp; } } static void reverseListStep (int n, int step, t_atom *y) diff --git a/src/mtx_rowrfft.c b/src/mtx_rowrfft.c index 807129b..daa1f3f 100644 --- a/src/mtx_rowrfft.c +++ b/src/mtx_rowrfft.c @@ -182,8 +182,6 @@ void mtx_rowrfft_setup (void) CLASS_DEFAULT, A_GIMME, 0); 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")); - } void iemtx_rowrfft_setup(void){ diff --git a/src/mtx_rowrifft.c b/src/mtx_rowrifft.c index 54577ef..ea803da 100644 --- a/src/mtx_rowrifft.c +++ b/src/mtx_rowrifft.c @@ -217,8 +217,6 @@ static void mtx_rowrifft_setup (void) class_addbang (mtx_rowrifft_class, (t_method) mTXrowrifftBang); 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")); - } void iemtx_rowrifft_setup(void){ diff --git a/src/mtx_slice.c b/src/mtx_slice.c index 2fbfc6f..3adfe5c 100644 --- a/src/mtx_slice.c +++ b/src/mtx_slice.c @@ -206,8 +206,6 @@ void mtx_slice_setup (void) class_addbang (mtx_slice_class, (t_method) mTXSliceBang); 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")); - } void iemtx_slice_setup(void){ -- cgit v1.2.1