Mercurial > hg > octave-nkf
diff liboctave/Sparse-d.cc @ 8752:06b9903a029b
fix & clean up complex & sparse sorting
author | Jaroslav Hajek <highegg@gmail.com> |
---|---|
date | Mon, 16 Feb 2009 10:15:43 +0100 |
parents | ada435261879 |
children | eb63fbe60fab |
line wrap: on
line diff
--- a/liboctave/Sparse-d.cc +++ b/liboctave/Sparse-d.cc @@ -30,36 +30,21 @@ #include "lo-mappers.h" #include "Sparse.h" #include "Sparse.cc" -#include "oct-sort.cc" template <> bool -sparse_ascending_compare (double a, double b) +sparse_ascending_compare<double> (double a, double b) { return (xisnan (b) || (a < b)); } template <> bool -sparse_ascending_compare (vec_index<double> *a, vec_index<double> *b) -{ - return (xisnan (b->vec) || (a->vec < b->vec)); -} - -template <> -bool -sparse_descending_compare (double a, double b) +sparse_descending_compare<double> (double a, double b) { return (xisnan (a) || (a > b)); } -template <> -bool -sparse_descending_compare (vec_index<double> *a, vec_index<double> *b) -{ - return (xisnan (b->vec) || (a->vec > b->vec)); -} - INSTANTIATE_SPARSE_AND_ASSIGN (double, OCTAVE_API); #if 0