From 2577ad67d045941cd41cbd42efb94b78f9d25f74 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?IOhannes=20m=20zm=C3=B6lnig?=
<zmoelnig@users.sourceforge.net>
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(-)
(limited to 'src')
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