Mercurial > octave-nkf
view liboctave/util/sparse-sort.cc @ 20611:40ed9b46a800
new octave_value::string_value method with optional error message
* ov.h (octave_value::string_vector): New method.
ov-base.cc, ov-base.h (octave_base_value::string_vector):
New default method.
ov-str-mat.cc, ov-str-mat.h (octave_char_matrix_str::string_value):
New method.
author | John W. Eaton <jwe@octave.org> |
---|---|
date | Thu, 08 Oct 2015 16:43:22 -0400 |
parents | 4197fc428c7d |
children |
line wrap: on
line source
/* Copyright (C) 2004-2015 David Bateman Copyright (C) 1998-2004 Andy Adler This file is part of Octave. Octave is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 3 of the License, or (at your option) any later version. Octave is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with Octave; see the file COPYING. If not, see <http://www.gnu.org/licenses/>. */ #ifdef HAVE_CONFIG_H #include <config.h> #endif #include <cassert> #include <cstring> #include "oct-sort.cc" #include "quit.h" #include "sparse-sort.h" // A simple class and instantiation of the octave merge sort class // to sort sparse data before matrix creation. This is significantly // faster than using octave_qsort. bool octave_sparse_sidxl_comp (octave_sparse_sort_idxl* i, octave_sparse_sort_idxl* j) { octave_idx_type tmp = i->c - j->c; if (tmp < 0) return true; else if (tmp > 0) return false; return (i->r < j->r); } template class octave_sort<octave_sparse_sort_idxl *>; // Need to know the original order of the sorted indexes in // sparse assignments, and this class does that bool octave_idx_vector_comp (octave_idx_vector_sort* i, octave_idx_vector_sort* j) { return (i->i < j->i); } template class octave_sort<octave_idx_vector_sort *>;