octave: liboctave/array/idx-vector.h annotate

annotate liboctave/array/idx-vector.h @ 30564:796f54d4ddbf stable

update Octave Project Developers copyright for the new year In files that have the "Octave Project Developers" copyright notice, update for 2021. In all .txi and .texi files except gpl.txi and gpl.texi in the doc/liboctave and doc/interpreter directories, change the copyright to "Octave Project Developers", the same as used for other source files. Update copyright notices for 2022 (not done since 2019). For gpl.txi and gpl.texi, change the copyright notice to be "Free Software Foundation, Inc." and leave the date at 2007 only because this file only contains the text of the GPL, not anything created by the Octave Project Developers. Add Paul Thomas to contributors.in.

author	John W. Eaton <jwe@octave.org>
date	Tue, 28 Dec 2021 18:22:40 -0500
parents	bd67d0045e21
children	a81fad5c9fef

rev	line source
27923 bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	1 ////////////////////////////////////////////////////////////////////////
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	2 //
30564 796f54d4ddbf update Octave Project Developers copyright for the new year John W. Eaton <jwe@octave.org> parents: 30489 diff changeset	3 // Copyright (C) 1993-2022 The Octave Project Developers
27923 bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	4 //
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	5 // See the file COPYRIGHT.md in the top-level directory of this
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	6 // distribution or <https://octave.org/copyright/>.
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	7 //
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	8 // This file is part of Octave.
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	9 //
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	10 // Octave is free software: you can redistribute it and/or modify it
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	11 // under the terms of the GNU General Public License as published by
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	12 // the Free Software Foundation, either version 3 of the License, or
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	13 // (at your option) any later version.
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	14 //
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	15 // Octave is distributed in the hope that it will be useful, but
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	16 // WITHOUT ANY WARRANTY; without even the implied warranty of
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	17 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	18 // GNU General Public License for more details.
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	19 //
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	20 // You should have received a copy of the GNU General Public License
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	21 // along with Octave; see the file COPYING. If not, see
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	22 // <https://www.gnu.org/licenses/>.
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	23 //
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	24 ////////////////////////////////////////////////////////////////////////
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	25
20791 f7084eae3318 maint: Use Octave coding conventions for #if statements. Rik <rik@octave.org> parents: 19697 diff changeset	26 #if ! defined (octave_idx_vector_h)
383 0b52c68ec81f [project @ 1994-03-09 21:19:44 by jwe] jwe parents: 240 diff changeset	27 #define octave_idx_vector_h 1
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	28
21244 1473547f50f5 include octave-config.h in public header files John W. Eaton <jwe@octave.org> parents: 21229 diff changeset	29 #include "octave-config.h"
1473547f50f5 include octave-config.h in public header files John W. Eaton <jwe@octave.org> parents: 21229 diff changeset	30
8950 d865363208d6 include <iosfwd> instead of <iostream> in header files John W. Eaton <jwe@octave.org> parents: 8934 diff changeset	31 #include <cassert>
19381 af41e41ad28e replace oct-mem.h inline indirections by standard function calls. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: 18084 diff changeset	32 #include <cstring>
8950 d865363208d6 include <iosfwd> instead of <iostream> in header files John W. Eaton <jwe@octave.org> parents: 8934 diff changeset	33
8290 7cbe01c21986 improve dense array indexing Jaroslav Hajek <highegg@gmail.com> parents: 7573 diff changeset	34 #include <algorithm>
8950 d865363208d6 include <iosfwd> instead of <iostream> in header files John W. Eaton <jwe@octave.org> parents: 8934 diff changeset	35 #include <iosfwd>
13735 2cd903770748 Fix broken gcc compilation due to changeset d13b6086aea9. Michael Goffioul <michael.goffioul@gmail.com> parents: 13729 diff changeset	36 #include <memory>
3503 d14c483b3c12 [project @ 2000-02-01 04:06:07 by jwe] jwe parents: 3145 diff changeset	37
30429 e38202d3628d provide header file for forward declaration of Array<T> template John W. Eaton <jwe@octave.org> parents: 30394 diff changeset	38 #include "Array-fwd.h"
4653 14ab7b05a572 [project @ 2003-11-24 05:02:46 by jwe] jwe parents: 4650 diff changeset	39 #include "dim-vector.h"
30435 1f0a2689cab2 Use forward declarations for octave_int<T> where possible (bug #59820). Markus Mützel <markus.muetzel@gmx.de> parents: 30433 diff changeset	40 #include "oct-inttypes.h"
12125 a21a3875ca83 implement a common class for reference counts Jaroslav Hajek <highegg@gmail.com> parents: 11586 diff changeset	41 #include "oct-refcount.h"
30433 c6cd2f582254 Provide header file for forward declaration of Sparse<T> template (bug #59820). Markus Mützel <markus.muetzel@gmx.de> parents: 30429 diff changeset	42 #include "Sparse-fwd.h"
30489 bd67d0045e21 use separate files for MArray, intNDArray, and range template forward decls John W. Eaton <jwe@octave.org> parents: 30435 diff changeset	43 #include "range-fwd.h"
28638 98192ec1621f replace Range with range<double> John W. Eaton <jwe@octave.org> parents: 27923 diff changeset	44
98192ec1621f replace Range with range<double> John W. Eaton <jwe@octave.org> parents: 27923 diff changeset	45 namespace octave
98192ec1621f replace Range with range<double> John W. Eaton <jwe@octave.org> parents: 27923 diff changeset	46 {
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	47 // Design rationale:
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	48 //
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	49 // idx_vector is a reference-counting, polymorphic pointer, that can
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	50 // contain 4 types of index objects: a magic colon, a range, a scalar,
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	51 // or an index vector.
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	52 //
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	53 // Polymorphic methods for single element access are provided, as well
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	54 // as templates implementing "early dispatch", i.e., hoisting the checks
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	55 // for index type out of loops.
22869 f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22868 diff changeset	56
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	57 class
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	58 OCTAVE_API
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	59 idx_vector
8290 7cbe01c21986 improve dense array indexing Jaroslav Hajek <highegg@gmail.com> parents: 7573 diff changeset	60 {
7cbe01c21986 improve dense array indexing Jaroslav Hajek <highegg@gmail.com> parents: 7573 diff changeset	61 public:
23401 e0c20a22da7e eliminate some errors exposed by -fsanitize=undefined John W. Eaton <jwe@octave.org> parents: 23220 diff changeset	62
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	63 enum idx_class_type
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	64 {
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	65 class_invalid = -1,
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	66 class_colon = 0,
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	67 class_range,
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	68 class_scalar,
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	69 class_vector,
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	70 class_mask
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	71 };
22869 f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22868 diff changeset	72
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	73 template <typename T, typename D> friend class std::unique_ptr;
22869 f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22868 diff changeset	74
30394 f3f3e3793fb5 maint: style check C++ files in liboctave/ ahead of 7.1 release. Rik <rik@octave.org> parents: 29689 diff changeset	75 private:
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	76
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	77 class OCTAVE_API idx_base_rep
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	78 {
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	79 public:
22869 f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22868 diff changeset	80
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	81 idx_base_rep (void) : m_count (1) { }
8290 7cbe01c21986 improve dense array indexing Jaroslav Hajek <highegg@gmail.com> parents: 7573 diff changeset	82
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	83 // No copying!
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	84
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	85 idx_base_rep (const idx_base_rep&) = delete;
8290 7cbe01c21986 improve dense array indexing Jaroslav Hajek <highegg@gmail.com> parents: 7573 diff changeset	86
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	87 idx_base_rep& operator = (const idx_base_rep&) = delete;
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	88
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	89 virtual ~idx_base_rep (void) = default;
8290 7cbe01c21986 improve dense array indexing Jaroslav Hajek <highegg@gmail.com> parents: 7573 diff changeset	90
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	91 // Non-range-checking element query.
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	92 virtual octave_idx_type xelem (octave_idx_type i) const = 0;
8290 7cbe01c21986 improve dense array indexing Jaroslav Hajek <highegg@gmail.com> parents: 7573 diff changeset	93
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	94 // Range-checking element query.
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	95 virtual octave_idx_type checkelem (octave_idx_type i) const = 0;
8290 7cbe01c21986 improve dense array indexing Jaroslav Hajek <highegg@gmail.com> parents: 7573 diff changeset	96
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	97 // Length of the index vector.
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	98 virtual octave_idx_type length (octave_idx_type n) const = 0;
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	99
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	100 // The maximum index + 1. The actual dimension is passed in.
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	101 virtual octave_idx_type extent (octave_idx_type n) const = 0;
8290 7cbe01c21986 improve dense array indexing Jaroslav Hajek <highegg@gmail.com> parents: 7573 diff changeset	102
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	103 // Index class.
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	104 virtual idx_class_type idx_class (void) const { return class_invalid; }
8290 7cbe01c21986 improve dense array indexing Jaroslav Hajek <highegg@gmail.com> parents: 7573 diff changeset	105
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	106 // Sorts, maybe uniqifies, and returns a clone object pointer.
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	107 virtual idx_base_rep * sort_uniq_clone (bool uniq = false) = 0;
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	108 // Sorts, and returns a sorting permutation (aka Array::sort).
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	109 virtual idx_base_rep * sort_idx (Array<octave_idx_type>&) = 0;
8290 7cbe01c21986 improve dense array indexing Jaroslav Hajek <highegg@gmail.com> parents: 7573 diff changeset	110
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	111 // Checks whether the index is colon or a range equivalent to colon.
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	112 virtual bool is_colon_equiv (octave_idx_type) const { return false; }
8290 7cbe01c21986 improve dense array indexing Jaroslav Hajek <highegg@gmail.com> parents: 7573 diff changeset	113
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	114 // The original dimensions of object (used when subscribing by matrices).
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	115 virtual dim_vector orig_dimensions (void) const { return dim_vector (); }
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	116
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	117 // i/o
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	118 virtual std::ostream& print (std::ostream& os) const = 0;
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	119
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	120 virtual Array<octave_idx_type> as_array (void);
10273 3a8c13b71612 implement special-case optimization for sort of index vectors Jaroslav Hajek <highegg@gmail.com> parents: 10158 diff changeset	121
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	122 refcount<octave_idx_type> m_count;
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	123 };
8290 7cbe01c21986 improve dense array indexing Jaroslav Hajek <highegg@gmail.com> parents: 7573 diff changeset	124
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	125 // The magic colon index.
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	126 class OCTAVE_API idx_colon_rep : public idx_base_rep
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	127 {
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	128 public:
8290 7cbe01c21986 improve dense array indexing Jaroslav Hajek <highegg@gmail.com> parents: 7573 diff changeset	129
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	130 idx_colon_rep (void) = default;
8290 7cbe01c21986 improve dense array indexing Jaroslav Hajek <highegg@gmail.com> parents: 7573 diff changeset	131
29646 3e8bc8bee8e9 liboctave/array: Add visibility flags to functions declared in headers (bug #60567). Markus Mützel <markus.muetzel@gmx.de> parents: 29569 diff changeset	132 OCTAVE_API idx_colon_rep (char c);
8290 7cbe01c21986 improve dense array indexing Jaroslav Hajek <highegg@gmail.com> parents: 7573 diff changeset	133
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	134 // No copying!
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	135
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	136 idx_colon_rep (const idx_colon_rep& idx) = delete;
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	137
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	138 idx_colon_rep& operator = (const idx_colon_rep& idx) = delete;
9894 83bd7f34f9da improve idx_vector->octave_value conversion Jaroslav Hajek <highegg@gmail.com> parents: 9886 diff changeset	139
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	140 octave_idx_type xelem (octave_idx_type i) const { return i; }
10339 de2d43bcb083 optimize some lazy index operations Jaroslav Hajek <highegg@gmail.com> parents: 10312 diff changeset	141
29646 3e8bc8bee8e9 liboctave/array: Add visibility flags to functions declared in headers (bug #60567). Markus Mützel <markus.muetzel@gmx.de> parents: 29569 diff changeset	142 OCTAVE_API octave_idx_type checkelem (octave_idx_type i) const;
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	143
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	144 octave_idx_type length (octave_idx_type n) const { return n; }
8290 7cbe01c21986 improve dense array indexing Jaroslav Hajek <highegg@gmail.com> parents: 7573 diff changeset	145
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	146 octave_idx_type extent (octave_idx_type n) const { return n; }
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	147
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	148 idx_class_type idx_class (void) const { return class_colon; }
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	149
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	150 idx_base_rep * sort_uniq_clone (bool = false)
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	151 { m_count++; return this; }
4504 f6a61399bc5c [project @ 2003-09-09 17:48:00 by jwe] jwe parents: 4461 diff changeset	152
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	153 OCTAVE_NORETURN idx_base_rep * sort_idx (Array<octave_idx_type>&);
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	154
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	155 bool is_colon_equiv (octave_idx_type) const { return true; }
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	156
29646 3e8bc8bee8e9 liboctave/array: Add visibility flags to functions declared in headers (bug #60567). Markus Mützel <markus.muetzel@gmx.de> parents: 29569 diff changeset	157 OCTAVE_API std::ostream& print (std::ostream& os) const;
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	158 };
23401 e0c20a22da7e eliminate some errors exposed by -fsanitize=undefined John W. Eaton <jwe@octave.org> parents: 23220 diff changeset	159
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	160 // To distinguish the "direct" constructors that blindly trust the data.
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	161 enum direct { DIRECT };
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	162
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	163 // The integer range index.
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	164 class OCTAVE_API idx_range_rep : public idx_base_rep
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	165 {
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	166 public:
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	167
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	168 idx_range_rep (void) = delete;
22869 f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22868 diff changeset	169
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	170 idx_range_rep (octave_idx_type start, octave_idx_type len,
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	171 octave_idx_type step, direct)
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	172 : idx_base_rep (), m_start (start), m_len (len), m_step (step) { }
8290 7cbe01c21986 improve dense array indexing Jaroslav Hajek <highegg@gmail.com> parents: 7573 diff changeset	173
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	174 // Zero-based constructor.
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	175 idx_range_rep (octave_idx_type start, octave_idx_type limit,
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	176 octave_idx_type step);
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	177
29646 3e8bc8bee8e9 liboctave/array: Add visibility flags to functions declared in headers (bug #60567). Markus Mützel <markus.muetzel@gmx.de> parents: 29569 diff changeset	178 OCTAVE_API idx_range_rep (const range<double>&);
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	179
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	180 // No copying!
8290 7cbe01c21986 improve dense array indexing Jaroslav Hajek <highegg@gmail.com> parents: 7573 diff changeset	181
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	182 idx_range_rep (const idx_range_rep& idx) = delete;
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	183
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	184 idx_range_rep& operator = (const idx_range_rep& idx) = delete;
10285 22a7913bbeb5 optimize return values of find and sort Jaroslav Hajek <highegg@gmail.com> parents: 10273 diff changeset	185
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	186 octave_idx_type xelem (octave_idx_type i) const
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	187 { return m_start + i * m_step; }
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	188
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	189 octave_idx_type checkelem (octave_idx_type i) const;
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	190
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	191 octave_idx_type length (octave_idx_type) const { return m_len; }
8290 7cbe01c21986 improve dense array indexing Jaroslav Hajek <highegg@gmail.com> parents: 7573 diff changeset	192
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	193 octave_idx_type extent (octave_idx_type n) const
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	194 {
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	195 return m_len ? std::max (n, m_start + 1 + (m_step < 0 ? 0 : m_step * (m_len - 1))) : n;
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	196 }
8290 7cbe01c21986 improve dense array indexing Jaroslav Hajek <highegg@gmail.com> parents: 7573 diff changeset	197
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	198 idx_class_type idx_class (void) const { return class_range; }
8290 7cbe01c21986 improve dense array indexing Jaroslav Hajek <highegg@gmail.com> parents: 7573 diff changeset	199
29646 3e8bc8bee8e9 liboctave/array: Add visibility flags to functions declared in headers (bug #60567). Markus Mützel <markus.muetzel@gmx.de> parents: 29569 diff changeset	200 OCTAVE_API idx_base_rep * sort_uniq_clone (bool uniq = false);
8384 a99b9113c58c optimize sparse bool indexing Jaroslav Hajek <highegg@gmail.com> parents: 8367 diff changeset	201
29646 3e8bc8bee8e9 liboctave/array: Add visibility flags to functions declared in headers (bug #60567). Markus Mützel <markus.muetzel@gmx.de> parents: 29569 diff changeset	202 OCTAVE_API idx_base_rep * sort_idx (Array<octave_idx_type>&);
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	203
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	204 bool is_colon_equiv (octave_idx_type n) const
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	205 { return m_start == 0 && m_step == 1 && m_len == n; }
22869 f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22868 diff changeset	206
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	207 dim_vector orig_dimensions (void) const
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	208 { return dim_vector (1, m_len); }
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	209
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	210 octave_idx_type get_start (void) const { return m_start; }
22869 f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22868 diff changeset	211
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	212 octave_idx_type get_step (void) const { return m_step; }
22869 f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22868 diff changeset	213
29646 3e8bc8bee8e9 liboctave/array: Add visibility flags to functions declared in headers (bug #60567). Markus Mützel <markus.muetzel@gmx.de> parents: 29569 diff changeset	214 OCTAVE_API std::ostream& print (std::ostream& os) const;
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	215
29646 3e8bc8bee8e9 liboctave/array: Add visibility flags to functions declared in headers (bug #60567). Markus Mützel <markus.muetzel@gmx.de> parents: 29569 diff changeset	216 OCTAVE_API range<double> unconvert (void) const;
8290 7cbe01c21986 improve dense array indexing Jaroslav Hajek <highegg@gmail.com> parents: 7573 diff changeset	217
29646 3e8bc8bee8e9 liboctave/array: Add visibility flags to functions declared in headers (bug #60567). Markus Mützel <markus.muetzel@gmx.de> parents: 29569 diff changeset	218 OCTAVE_API Array<octave_idx_type> as_array (void);
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	219
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	220 private:
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	221
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	222 octave_idx_type m_start, m_len, m_step;
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	223 };
8290 7cbe01c21986 improve dense array indexing Jaroslav Hajek <highegg@gmail.com> parents: 7573 diff changeset	224
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	225 // The integer scalar index.
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	226 class OCTAVE_API idx_scalar_rep : public idx_base_rep
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	227 {
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	228 public:
4653 14ab7b05a572 [project @ 2003-11-24 05:02:46 by jwe] jwe parents: 4650 diff changeset	229
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	230 idx_scalar_rep (void) = delete;
8290 7cbe01c21986 improve dense array indexing Jaroslav Hajek <highegg@gmail.com> parents: 7573 diff changeset	231
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	232 idx_scalar_rep (octave_idx_type i, direct) : idx_base_rep (), m_data (i) { }
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	233
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	234 // No copying!
8290 7cbe01c21986 improve dense array indexing Jaroslav Hajek <highegg@gmail.com> parents: 7573 diff changeset	235
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	236 idx_scalar_rep (const idx_scalar_rep& idx) = delete;
8290 7cbe01c21986 improve dense array indexing Jaroslav Hajek <highegg@gmail.com> parents: 7573 diff changeset	237
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	238 idx_scalar_rep& operator = (const idx_scalar_rep& idx) = delete;
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	239
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	240 // Zero-based constructor.
29646 3e8bc8bee8e9 liboctave/array: Add visibility flags to functions declared in headers (bug #60567). Markus Mützel <markus.muetzel@gmx.de> parents: 29569 diff changeset	241 OCTAVE_API idx_scalar_rep (octave_idx_type i);
8290 7cbe01c21986 improve dense array indexing Jaroslav Hajek <highegg@gmail.com> parents: 7573 diff changeset	242
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	243 template <typename T>
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	244 idx_scalar_rep (T x);
10273 3a8c13b71612 implement special-case optimization for sort of index vectors Jaroslav Hajek <highegg@gmail.com> parents: 10158 diff changeset	245
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	246 octave_idx_type xelem (octave_idx_type) const { return m_data; }
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	247
29646 3e8bc8bee8e9 liboctave/array: Add visibility flags to functions declared in headers (bug #60567). Markus Mützel <markus.muetzel@gmx.de> parents: 29569 diff changeset	248 OCTAVE_API octave_idx_type checkelem (octave_idx_type i) const;
8290 7cbe01c21986 improve dense array indexing Jaroslav Hajek <highegg@gmail.com> parents: 7573 diff changeset	249
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	250 octave_idx_type length (octave_idx_type) const { return 1; }
8290 7cbe01c21986 improve dense array indexing Jaroslav Hajek <highegg@gmail.com> parents: 7573 diff changeset	251
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	252 octave_idx_type extent (octave_idx_type n) const
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	253 { return std::max (n, m_data + 1); }
8290 7cbe01c21986 improve dense array indexing Jaroslav Hajek <highegg@gmail.com> parents: 7573 diff changeset	254
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	255 idx_class_type idx_class (void) const { return class_scalar; }
9894 83bd7f34f9da improve idx_vector->octave_value conversion Jaroslav Hajek <highegg@gmail.com> parents: 9886 diff changeset	256
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	257 idx_base_rep * sort_uniq_clone (bool = false)
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	258 { m_count++; return this; }
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	259
29646 3e8bc8bee8e9 liboctave/array: Add visibility flags to functions declared in headers (bug #60567). Markus Mützel <markus.muetzel@gmx.de> parents: 29569 diff changeset	260 OCTAVE_API idx_base_rep * sort_idx (Array<octave_idx_type>&);
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	261
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	262 bool is_colon_equiv (octave_idx_type n) const
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	263 { return n == 1 && m_data == 0; }
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	264
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	265 dim_vector orig_dimensions (void) const { return dim_vector (1, 1); }
8290 7cbe01c21986 improve dense array indexing Jaroslav Hajek <highegg@gmail.com> parents: 7573 diff changeset	266
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	267 octave_idx_type get_data (void) const { return m_data; }
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	268
29646 3e8bc8bee8e9 liboctave/array: Add visibility flags to functions declared in headers (bug #60567). Markus Mützel <markus.muetzel@gmx.de> parents: 29569 diff changeset	269 OCTAVE_API std::ostream& print (std::ostream& os) const;
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	270
29646 3e8bc8bee8e9 liboctave/array: Add visibility flags to functions declared in headers (bug #60567). Markus Mützel <markus.muetzel@gmx.de> parents: 29569 diff changeset	271 OCTAVE_API double unconvert (void) const;
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	272
29646 3e8bc8bee8e9 liboctave/array: Add visibility flags to functions declared in headers (bug #60567). Markus Mützel <markus.muetzel@gmx.de> parents: 29569 diff changeset	273 OCTAVE_API Array<octave_idx_type> as_array (void);
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	274
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	275 private:
8290 7cbe01c21986 improve dense array indexing Jaroslav Hajek <highegg@gmail.com> parents: 7573 diff changeset	276
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	277 octave_idx_type m_data;
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	278 };
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	279
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	280 // The integer vector index.
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	281 class OCTAVE_API idx_vector_rep : public idx_base_rep
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	282 {
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	283 public:
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	284
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	285 idx_vector_rep (void)
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	286 : m_data (nullptr), m_len (0), m_ext (0), m_aowner (nullptr), m_orig_dims () { }
1560 27a03373de41 [project @ 1995-10-12 07:22:26 by jwe] jwe parents: 1553 diff changeset	287
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	288 // Direct constructor.
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	289 idx_vector_rep (octave_idx_type *data, octave_idx_type len,
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	290 octave_idx_type ext, const dim_vector& od, direct)
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	291 : idx_base_rep (), m_data (data), m_len (len), m_ext (ext),
30394 f3f3e3793fb5 maint: style check C++ files in liboctave/ ahead of 7.1 release. Rik <rik@octave.org> parents: 29689 diff changeset	292 m_aowner (nullptr), m_orig_dims (od)
f3f3e3793fb5 maint: style check C++ files in liboctave/ ahead of 7.1 release. Rik <rik@octave.org> parents: 29689 diff changeset	293 { }
8290 7cbe01c21986 improve dense array indexing Jaroslav Hajek <highegg@gmail.com> parents: 7573 diff changeset	294
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	295 // Zero-based constructor.
29646 3e8bc8bee8e9 liboctave/array: Add visibility flags to functions declared in headers (bug #60567). Markus Mützel <markus.muetzel@gmx.de> parents: 29569 diff changeset	296 OCTAVE_API idx_vector_rep (const Array<octave_idx_type>& inda);
23401 e0c20a22da7e eliminate some errors exposed by -fsanitize=undefined John W. Eaton <jwe@octave.org> parents: 23220 diff changeset	297
29646 3e8bc8bee8e9 liboctave/array: Add visibility flags to functions declared in headers (bug #60567). Markus Mützel <markus.muetzel@gmx.de> parents: 29569 diff changeset	298 OCTAVE_API idx_vector_rep (const Array<octave_idx_type>& inda,
3e8bc8bee8e9 liboctave/array: Add visibility flags to functions declared in headers (bug #60567). Markus Mützel <markus.muetzel@gmx.de> parents: 29569 diff changeset	299 octave_idx_type ext, direct);
22869 f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22868 diff changeset	300
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	301 template <typename T>
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	302 idx_vector_rep (const Array<T>&);
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	303
29646 3e8bc8bee8e9 liboctave/array: Add visibility flags to functions declared in headers (bug #60567). Markus Mützel <markus.muetzel@gmx.de> parents: 29569 diff changeset	304 OCTAVE_API idx_vector_rep (bool);
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	305
29646 3e8bc8bee8e9 liboctave/array: Add visibility flags to functions declared in headers (bug #60567). Markus Mützel <markus.muetzel@gmx.de> parents: 29569 diff changeset	306 OCTAVE_API idx_vector_rep (const Array<bool>&, octave_idx_type = -1);
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	307
29646 3e8bc8bee8e9 liboctave/array: Add visibility flags to functions declared in headers (bug #60567). Markus Mützel <markus.muetzel@gmx.de> parents: 29569 diff changeset	308 OCTAVE_API idx_vector_rep (const Sparse<bool>&);
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	309
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	310 // No copying!
9879 034677ab6865 smarter treatment of mask indexing Jaroslav Hajek <highegg@gmail.com> parents: 9780 diff changeset	311
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	312 idx_vector_rep (const idx_vector_rep& idx) = delete;
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	313
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	314 idx_vector_rep& operator = (const idx_vector_rep& idx) = delete;
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	315
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	316 ~idx_vector_rep (void);
9879 034677ab6865 smarter treatment of mask indexing Jaroslav Hajek <highegg@gmail.com> parents: 9780 diff changeset	317
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	318 octave_idx_type xelem (octave_idx_type i) const { return m_data[i]; }
9879 034677ab6865 smarter treatment of mask indexing Jaroslav Hajek <highegg@gmail.com> parents: 9780 diff changeset	319
29646 3e8bc8bee8e9 liboctave/array: Add visibility flags to functions declared in headers (bug #60567). Markus Mützel <markus.muetzel@gmx.de> parents: 29569 diff changeset	320 OCTAVE_API octave_idx_type checkelem (octave_idx_type i) const;
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	321
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	322 octave_idx_type length (octave_idx_type) const { return m_len; }
22869 f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22868 diff changeset	323
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	324 octave_idx_type extent (octave_idx_type n) const
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	325 { return std::max (n, m_ext); }
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	326
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	327 idx_class_type idx_class (void) const { return class_vector; }
22869 f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22868 diff changeset	328
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	329 idx_base_rep * sort_uniq_clone (bool uniq = false);
22869 f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22868 diff changeset	330
29646 3e8bc8bee8e9 liboctave/array: Add visibility flags to functions declared in headers (bug #60567). Markus Mützel <markus.muetzel@gmx.de> parents: 29569 diff changeset	331 OCTAVE_API idx_base_rep * sort_idx (Array<octave_idx_type>&);
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	332
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	333 dim_vector orig_dimensions (void) const { return m_orig_dims; }
9879 034677ab6865 smarter treatment of mask indexing Jaroslav Hajek <highegg@gmail.com> parents: 9780 diff changeset	334
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	335 const octave_idx_type * get_data (void) const { return m_data; }
9879 034677ab6865 smarter treatment of mask indexing Jaroslav Hajek <highegg@gmail.com> parents: 9780 diff changeset	336
29646 3e8bc8bee8e9 liboctave/array: Add visibility flags to functions declared in headers (bug #60567). Markus Mützel <markus.muetzel@gmx.de> parents: 29569 diff changeset	337 OCTAVE_API std::ostream& print (std::ostream& os) const;
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	338
29646 3e8bc8bee8e9 liboctave/array: Add visibility flags to functions declared in headers (bug #60567). Markus Mützel <markus.muetzel@gmx.de> parents: 29569 diff changeset	339 OCTAVE_API Array<double> unconvert (void) const;
9879 034677ab6865 smarter treatment of mask indexing Jaroslav Hajek <highegg@gmail.com> parents: 9780 diff changeset	340
29646 3e8bc8bee8e9 liboctave/array: Add visibility flags to functions declared in headers (bug #60567). Markus Mützel <markus.muetzel@gmx.de> parents: 29569 diff changeset	341 OCTAVE_API Array<octave_idx_type> as_array (void);
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	342
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	343 private:
9879 034677ab6865 smarter treatment of mask indexing Jaroslav Hajek <highegg@gmail.com> parents: 9780 diff changeset	344
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	345 const octave_idx_type *m_data;
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	346 octave_idx_type m_len;
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	347 octave_idx_type m_ext;
9879 034677ab6865 smarter treatment of mask indexing Jaroslav Hajek <highegg@gmail.com> parents: 9780 diff changeset	348
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	349 // This is a trick to allow user-given zero-based arrays to be used
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	350 // as indices without copying. If the following pointer is nonzero,
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	351 // we do not own the data, but rather have an Array<octave_idx_type>
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	352 // object that provides us the data. Note that we need a pointer
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	353 // because we deferred the Array<T> declaration and we do not want
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	354 // it yet to be defined.
9879 034677ab6865 smarter treatment of mask indexing Jaroslav Hajek <highegg@gmail.com> parents: 9780 diff changeset	355
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	356 Array<octave_idx_type> *m_aowner;
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	357
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	358 dim_vector m_orig_dims;
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	359 };
9879 034677ab6865 smarter treatment of mask indexing Jaroslav Hajek <highegg@gmail.com> parents: 9780 diff changeset	360
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	361 // The logical mask index.
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	362 class OCTAVE_API idx_mask_rep : public idx_base_rep
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	363 {
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	364 public:
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	365
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	366 idx_mask_rep (void) = delete;
10273 3a8c13b71612 implement special-case optimization for sort of index vectors Jaroslav Hajek <highegg@gmail.com> parents: 10158 diff changeset	367
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	368 // Direct constructor.
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	369 idx_mask_rep (bool *data, octave_idx_type len,
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	370 octave_idx_type ext, const dim_vector& od, direct)
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	371 : idx_base_rep (), m_data (data), m_len (len), m_ext (ext),
30394 f3f3e3793fb5 maint: style check C++ files in liboctave/ ahead of 7.1 release. Rik <rik@octave.org> parents: 29689 diff changeset	372 m_lsti (-1), m_lste (-1), m_aowner (nullptr), m_orig_dims (od)
f3f3e3793fb5 maint: style check C++ files in liboctave/ ahead of 7.1 release. Rik <rik@octave.org> parents: 29689 diff changeset	373 { }
9879 034677ab6865 smarter treatment of mask indexing Jaroslav Hajek <highegg@gmail.com> parents: 9780 diff changeset	374
29646 3e8bc8bee8e9 liboctave/array: Add visibility flags to functions declared in headers (bug #60567). Markus Mützel <markus.muetzel@gmx.de> parents: 29569 diff changeset	375 OCTAVE_API idx_mask_rep (bool);
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	376
29646 3e8bc8bee8e9 liboctave/array: Add visibility flags to functions declared in headers (bug #60567). Markus Mützel <markus.muetzel@gmx.de> parents: 29569 diff changeset	377 OCTAVE_API idx_mask_rep (const Array<bool>&, octave_idx_type = -1);
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	378
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	379 // No copying!
9879 034677ab6865 smarter treatment of mask indexing Jaroslav Hajek <highegg@gmail.com> parents: 9780 diff changeset	380
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	381 idx_mask_rep (const idx_mask_rep& idx) = delete;
9879 034677ab6865 smarter treatment of mask indexing Jaroslav Hajek <highegg@gmail.com> parents: 9780 diff changeset	382
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	383 idx_mask_rep& operator = (const idx_mask_rep& idx) = delete;
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	384
29646 3e8bc8bee8e9 liboctave/array: Add visibility flags to functions declared in headers (bug #60567). Markus Mützel <markus.muetzel@gmx.de> parents: 29569 diff changeset	385 OCTAVE_API ~idx_mask_rep (void);
9894 83bd7f34f9da improve idx_vector->octave_value conversion Jaroslav Hajek <highegg@gmail.com> parents: 9886 diff changeset	386
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	387 octave_idx_type xelem (octave_idx_type i) const;
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	388
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	389 octave_idx_type checkelem (octave_idx_type i) const;
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	390
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	391 octave_idx_type length (octave_idx_type) const { return m_len; }
9879 034677ab6865 smarter treatment of mask indexing Jaroslav Hajek <highegg@gmail.com> parents: 9780 diff changeset	392
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	393 octave_idx_type extent (octave_idx_type n) const
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	394 { return std::max (n, m_ext); }
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	395
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	396 idx_class_type idx_class (void) const { return class_mask; }
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	397
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	398 idx_base_rep * sort_uniq_clone (bool = false)
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	399 { m_count++; return this; }
9879 034677ab6865 smarter treatment of mask indexing Jaroslav Hajek <highegg@gmail.com> parents: 9780 diff changeset	400
29646 3e8bc8bee8e9 liboctave/array: Add visibility flags to functions declared in headers (bug #60567). Markus Mützel <markus.muetzel@gmx.de> parents: 29569 diff changeset	401 OCTAVE_API idx_base_rep * sort_idx (Array<octave_idx_type>&);
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	402
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	403 dim_vector orig_dimensions (void) const { return m_orig_dims; }
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	404
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	405 bool is_colon_equiv (octave_idx_type n) const
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	406 { return m_len == n && m_ext == n; }
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	407
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	408 const bool * get_data (void) const { return m_data; }
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	409
29646 3e8bc8bee8e9 liboctave/array: Add visibility flags to functions declared in headers (bug #60567). Markus Mützel <markus.muetzel@gmx.de> parents: 29569 diff changeset	410 OCTAVE_API std::ostream& print (std::ostream& os) const;
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	411
29646 3e8bc8bee8e9 liboctave/array: Add visibility flags to functions declared in headers (bug #60567). Markus Mützel <markus.muetzel@gmx.de> parents: 29569 diff changeset	412 OCTAVE_API Array<bool> unconvert (void) const;
9879 034677ab6865 smarter treatment of mask indexing Jaroslav Hajek <highegg@gmail.com> parents: 9780 diff changeset	413
29646 3e8bc8bee8e9 liboctave/array: Add visibility flags to functions declared in headers (bug #60567). Markus Mützel <markus.muetzel@gmx.de> parents: 29569 diff changeset	414 OCTAVE_API Array<octave_idx_type> as_array (void);
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	415
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	416 private:
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	417
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	418 const bool *m_data;
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	419 octave_idx_type m_len;
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	420 octave_idx_type m_ext;
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	421
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	422 // FIXME: I'm not sure if this is a good design. Maybe it would be
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	423 // better to employ some sort of generalized iteration scheme.
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	424 mutable octave_idx_type m_lsti;
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	425 mutable octave_idx_type m_lste;
9879 034677ab6865 smarter treatment of mask indexing Jaroslav Hajek <highegg@gmail.com> parents: 9780 diff changeset	426
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	427 // This is a trick to allow user-given mask arrays to be used as
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	428 // indices without copying. If the following pointer is nonzero, we
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	429 // do not own the data, but rather have an Array<bool> object that
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	430 // provides us the data. Note that we need a pointer because we
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	431 // deferred the Array<T> declaration and we do not want it yet to be
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	432 // defined.
8290 7cbe01c21986 improve dense array indexing Jaroslav Hajek <highegg@gmail.com> parents: 7573 diff changeset	433
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	434 Array<bool> *m_aowner;
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	435
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	436 dim_vector m_orig_dims;
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	437 };
1560 27a03373de41 [project @ 1995-10-12 07:22:26 by jwe] jwe parents: 1553 diff changeset	438
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	439 idx_vector (idx_base_rep *r) : m_rep (r) { }
4938 703d97b89507 [project @ 2004-08-09 20:21:59 by jwe] jwe parents: 4653 diff changeset	440
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	441 // The shared empty vector representation (for fast default
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	442 // constructor).
30394 f3f3e3793fb5 maint: style check C++ files in liboctave/ ahead of 7.1 release. Rik <rik@octave.org> parents: 29689 diff changeset	443 static OCTAVE_API idx_vector_rep * nil_rep (void);
1551 8f63ee44726c [project @ 1995-10-08 23:19:55 by jwe] jwe parents: 1315 diff changeset	444
30394 f3f3e3793fb5 maint: style check C++ files in liboctave/ ahead of 7.1 release. Rik <rik@octave.org> parents: 29689 diff changeset	445 public:
1560 27a03373de41 [project @ 1995-10-12 07:22:26 by jwe] jwe parents: 1553 diff changeset	446
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	447 // Fast empty constructor.
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	448 idx_vector (void) : m_rep (nil_rep ()) { m_rep->m_count++; }
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	449
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	450 // Zero-based constructors (for use from C++).
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	451 idx_vector (octave_idx_type i) : m_rep (new idx_scalar_rep (i)) { }
8290 7cbe01c21986 improve dense array indexing Jaroslav Hajek <highegg@gmail.com> parents: 7573 diff changeset	452
29689 26ad902a6749 Fix typo in b36e83cdbf05 (bug #60531). Markus Mützel <markus.muetzel@gmx.de> parents: 29688 diff changeset	453 #if OCTAVE_SIZEOF_INT != OCTAVE_SIZEOF_IDX_TYPE
29688 b36e83cdbf05 ensure idx_vector(int) constructor is defined (bug #60531) John W. Eaton <jwe@octave.org> parents: 29646 diff changeset	454 idx_vector (int i)
b36e83cdbf05 ensure idx_vector(int) constructor is defined (bug #60531) John W. Eaton <jwe@octave.org> parents: 29646 diff changeset	455 : m_rep (new idx_scalar_rep (static_cast<octave_idx_type> (i))) { }
b36e83cdbf05 ensure idx_vector(int) constructor is defined (bug #60531) John W. Eaton <jwe@octave.org> parents: 29646 diff changeset	456 #endif
b36e83cdbf05 ensure idx_vector(int) constructor is defined (bug #60531) John W. Eaton <jwe@octave.org> parents: 29646 diff changeset	457
b36e83cdbf05 ensure idx_vector(int) constructor is defined (bug #60531) John W. Eaton <jwe@octave.org> parents: 29646 diff changeset	458 #if (OCTAVE_SIZEOF_F77_INT_TYPE != OCTAVE_SIZEOF_IDX_TYPE \
b36e83cdbf05 ensure idx_vector(int) constructor is defined (bug #60531) John W. Eaton <jwe@octave.org> parents: 29646 diff changeset	459 && OCTAVE_SIZEOF_F77_INT_TYPE != OCTAVE_SIZEOF_INT)
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	460 idx_vector (octave_f77_int_type i)
29688 b36e83cdbf05 ensure idx_vector(int) constructor is defined (bug #60531) John W. Eaton <jwe@octave.org> parents: 29646 diff changeset	461 : m_rep (new idx_scalar_rep (static_cast<octave_idx_type> (i))) { }
23015 198fbbf6934a new idx_vector (F77_INT) constructor John W. Eaton <jwe@octave.org> parents: 23012 diff changeset	462 #endif
198fbbf6934a new idx_vector (F77_INT) constructor John W. Eaton <jwe@octave.org> parents: 23012 diff changeset	463
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	464 idx_vector (octave_idx_type start, octave_idx_type limit,
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	465 octave_idx_type step = 1)
30394 f3f3e3793fb5 maint: style check C++ files in liboctave/ ahead of 7.1 release. Rik <rik@octave.org> parents: 29689 diff changeset	466 : m_rep (new idx_range_rep (start, limit, step)) { }
1560 27a03373de41 [project @ 1995-10-12 07:22:26 by jwe] jwe parents: 1553 diff changeset	467
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	468 static idx_vector
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	469 make_range (octave_idx_type start, octave_idx_type step,
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	470 octave_idx_type len)
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	471 {
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	472 return idx_vector (new idx_range_rep (start, len, step, DIRECT));
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	473 }
9479 d9716e3ee0dd supply optimized compiled sub2ind & ind2sub Jaroslav Hajek <highegg@gmail.com> parents: 8972 diff changeset	474
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	475 idx_vector (const Array<octave_idx_type>& inda)
30394 f3f3e3793fb5 maint: style check C++ files in liboctave/ ahead of 7.1 release. Rik <rik@octave.org> parents: 29689 diff changeset	476 : m_rep (new idx_vector_rep (inda)) { }
1560 27a03373de41 [project @ 1995-10-12 07:22:26 by jwe] jwe parents: 1553 diff changeset	477
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	478 // Directly pass extent, no checking.
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	479 idx_vector (const Array<octave_idx_type>& inda, octave_idx_type ext)
30394 f3f3e3793fb5 maint: style check C++ files in liboctave/ ahead of 7.1 release. Rik <rik@octave.org> parents: 29689 diff changeset	480 : m_rep (new idx_vector_rep (inda, ext, DIRECT)) { }
10285 22a7913bbeb5 optimize return values of find and sort Jaroslav Hajek <highegg@gmail.com> parents: 10273 diff changeset	481
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	482 // Colon is best constructed by simply copying (or referencing) this member.
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	483 static const idx_vector colon;
4938 703d97b89507 [project @ 2004-08-09 20:21:59 by jwe] jwe parents: 4653 diff changeset	484
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	485 // or passing ':' here
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	486 idx_vector (char c) : m_rep (new idx_colon_rep (c)) { }
8290 7cbe01c21986 improve dense array indexing Jaroslav Hajek <highegg@gmail.com> parents: 7573 diff changeset	487
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	488 // Conversion constructors (used by interpreter).
1560 27a03373de41 [project @ 1995-10-12 07:22:26 by jwe] jwe parents: 1553 diff changeset	489
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	490 template <typename T>
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	491 idx_vector (octave_int<T> x) : m_rep (new idx_scalar_rep (x)) { }
8290 7cbe01c21986 improve dense array indexing Jaroslav Hajek <highegg@gmail.com> parents: 7573 diff changeset	492
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	493 idx_vector (double x) : m_rep (new idx_scalar_rep (x)) { }
2386 4fc9fd1424a9 [project @ 1996-10-12 18:31:34 by jwe] jwe parents: 2356 diff changeset	494
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	495 idx_vector (float x) : m_rep (new idx_scalar_rep (x)) { }
3928 e8627dc4bdf2 [project @ 2002-05-03 19:56:01 by jwe] jwe parents: 3504 diff changeset	496
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	497 // A scalar bool does not necessarily map to scalar index.
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	498 idx_vector (bool x) : m_rep (new idx_mask_rep (x)) { }
1560 27a03373de41 [project @ 1995-10-12 07:22:26 by jwe] jwe parents: 1553 diff changeset	499
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	500 template <typename T>
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	501 idx_vector (const Array<octave_int<T>>& nda)
30394 f3f3e3793fb5 maint: style check C++ files in liboctave/ ahead of 7.1 release. Rik <rik@octave.org> parents: 29689 diff changeset	502 : m_rep (new idx_vector_rep (nda)) { }
8290 7cbe01c21986 improve dense array indexing Jaroslav Hajek <highegg@gmail.com> parents: 7573 diff changeset	503
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	504 idx_vector (const Array<double>& nda) : m_rep (new idx_vector_rep (nda)) { }
2828 92826d6e8bd9 [project @ 1997-03-25 23:41:41 by jwe] jwe parents: 2802 diff changeset	505
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	506 idx_vector (const Array<float>& nda) : m_rep (new idx_vector_rep (nda)) { }
4938 703d97b89507 [project @ 2004-08-09 20:21:59 by jwe] jwe parents: 4653 diff changeset	507
29646 3e8bc8bee8e9 liboctave/array: Add visibility flags to functions declared in headers (bug #60567). Markus Mützel <markus.muetzel@gmx.de> parents: 29569 diff changeset	508 OCTAVE_API idx_vector (const Array<bool>& nda);
8290 7cbe01c21986 improve dense array indexing Jaroslav Hajek <highegg@gmail.com> parents: 7573 diff changeset	509
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	510 idx_vector (const range<double>& r) : m_rep (new idx_range_rep (r)) { }
2828 92826d6e8bd9 [project @ 1997-03-25 23:41:41 by jwe] jwe parents: 2802 diff changeset	511
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	512 idx_vector (const Sparse<bool>& nda) : m_rep (new idx_vector_rep (nda)) { }
8384 a99b9113c58c optimize sparse bool indexing Jaroslav Hajek <highegg@gmail.com> parents: 8367 diff changeset	513
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	514 idx_vector (const idx_vector& a) : m_rep (a.m_rep) { m_rep->m_count++; }
1551 8f63ee44726c [project @ 1995-10-08 23:19:55 by jwe] jwe parents: 1315 diff changeset	515
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	516 ~idx_vector (void)
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	517 {
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	518 if (--m_rep->m_count == 0 && m_rep != nil_rep ())
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	519 delete m_rep;
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	520 }
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	521
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	522 idx_vector& operator = (const idx_vector& a)
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	523 {
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	524 if (this != &a)
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	525 {
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	526 if (--m_rep->m_count == 0 && m_rep != nil_rep ())
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	527 delete m_rep;
1551 8f63ee44726c [project @ 1995-10-08 23:19:55 by jwe] jwe parents: 1315 diff changeset	528
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	529 m_rep = a.m_rep;
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	530 m_rep->m_count++;
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	531 }
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	532 return *this;
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	533 }
191 b6b4d8c513fe [project @ 1993-10-29 23:41:39 by jwe] jwe parents: 164 diff changeset	534
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	535 idx_class_type idx_class (void) const { return m_rep->idx_class (); }
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	536
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	537 octave_idx_type length (octave_idx_type n = 0) const
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	538 { return m_rep->length (n); }
1551 8f63ee44726c [project @ 1995-10-08 23:19:55 by jwe] jwe parents: 1315 diff changeset	539
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	540 octave_idx_type extent (octave_idx_type n) const
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	541 { return m_rep->extent (n); }
8290 7cbe01c21986 improve dense array indexing Jaroslav Hajek <highegg@gmail.com> parents: 7573 diff changeset	542
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	543 octave_idx_type xelem (octave_idx_type n) const
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	544 { return m_rep->xelem (n); }
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	545
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	546 octave_idx_type checkelem (octave_idx_type n) const
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	547 { return m_rep->xelem (n); }
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	548
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	549 octave_idx_type operator () (octave_idx_type n) const
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	550 { return m_rep->xelem (n); }
9479 d9716e3ee0dd supply optimized compiled sub2ind & ind2sub Jaroslav Hajek <highegg@gmail.com> parents: 8972 diff changeset	551
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	552 // FIXME: idx_vector objects are either created successfully or an
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	553 // error is thrown, so this method no longer makes sense.
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	554 operator bool (void) const { return true; }
3079 eb827eb9b8ff [project @ 1997-08-03 20:44:07 by jwe] jwe parents: 2847 diff changeset	555
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	556 bool is_colon (void) const
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	557 { return m_rep->idx_class () == class_colon; }
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	558
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	559 bool is_scalar (void) const
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	560 { return m_rep->idx_class () == class_scalar; }
208 380cb9ccc889 [project @ 1993-11-12 10:35:05 by jwe] jwe parents: 191 diff changeset	561
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	562 bool is_range (void) const
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	563 { return m_rep->idx_class () == class_range; }
10273 3a8c13b71612 implement special-case optimization for sort of index vectors Jaroslav Hajek <highegg@gmail.com> parents: 10158 diff changeset	564
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	565 bool is_colon_equiv (octave_idx_type n) const
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	566 { return m_rep->is_colon_equiv (n); }
8290 7cbe01c21986 improve dense array indexing Jaroslav Hajek <highegg@gmail.com> parents: 7573 diff changeset	567
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	568 idx_vector sorted (bool uniq = false) const
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	569 { return idx_vector (m_rep->sort_uniq_clone (uniq)); }
8290 7cbe01c21986 improve dense array indexing Jaroslav Hajek <highegg@gmail.com> parents: 7573 diff changeset	570
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	571 idx_vector sorted (Array<octave_idx_type>& sidx) const
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	572 { return idx_vector (m_rep->sort_idx (sidx)); }
2663 00b2eff19bf5 [project @ 1997-02-08 21:58:49 by jwe] jwe parents: 2386 diff changeset	573
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	574 dim_vector orig_dimensions (void) const { return m_rep->orig_dimensions (); }
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	575
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	576 octave_idx_type orig_rows (void) const
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	577 { return orig_dimensions () (0); }
1560 27a03373de41 [project @ 1995-10-12 07:22:26 by jwe] jwe parents: 1553 diff changeset	578
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	579 octave_idx_type orig_columns (void) const
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	580 { return orig_dimensions () (1); }
1560 27a03373de41 [project @ 1995-10-12 07:22:26 by jwe] jwe parents: 1553 diff changeset	581
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	582 int orig_empty (void) const
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	583 { return (! is_colon () && orig_dimensions ().any_zero ()); }
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	584
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	585 // i/o
10487 942386d6d1a5 style fixes John W. Eaton <jwe@octave.org> parents: 10486 diff changeset	586
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	587 std::ostream& print (std::ostream& os) const { return m_rep->print (os); }
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	588
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	589 friend std::ostream& operator << (std::ostream& os, const idx_vector& a)
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	590 { return a.print (os); }
10487 942386d6d1a5 style fixes John W. Eaton <jwe@octave.org> parents: 10486 diff changeset	591
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	592 // Slice with specializations. No checking of bounds!
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	593 //
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	594 // This is equivalent to the following loop (but much faster):
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	595 //
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	596 // for (octave_idx_type i = 0; i < idx->length (n); i++)
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	597 // dest[i] = src[idx(i)];
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	598 // return i;
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	599 //
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	600 template <typename T>
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	601 octave_idx_type
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	602 index (const T src, octave_idx_type n, T dest) const
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	603 {
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	604 octave_idx_type len = m_rep->length (n);
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	605
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	606 switch (m_rep->idx_class ())
17769 49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/ Rik <rik@octave.org> parents: 17744 diff changeset	607 {
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	608 case class_colon:
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	609 std::copy_n (src, len, dest);
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	610 break;
10487 942386d6d1a5 style fixes John W. Eaton <jwe@octave.org> parents: 10486 diff changeset	611
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	612 case class_range:
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	613 {
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	614 idx_range_rep r = dynamic_cast<idx_range_rep > (m_rep);
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	615 octave_idx_type start = r->get_start ();
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	616 octave_idx_type step = r->get_step ();
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	617 const T *ssrc = src + start;
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	618 if (step == 1)
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	619 std::copy_n (ssrc, len, dest);
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	620 else if (step == -1)
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	621 std::reverse_copy (ssrc - len + 1, ssrc + 1, dest);
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	622 else if (step == 0)
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	623 std::fill_n (dest, len, *ssrc);
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	624 else
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	625 {
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	626 for (octave_idx_type i = 0, j = 0; i < len; i++, j += step)
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	627 dest[i] = ssrc[j];
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	628 }
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	629 }
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	630 break;
10487 942386d6d1a5 style fixes John W. Eaton <jwe@octave.org> parents: 10486 diff changeset	631
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	632 case class_scalar:
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	633 {
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	634 idx_scalar_rep r = dynamic_cast<idx_scalar_rep > (m_rep);
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	635 dest[0] = src[r->get_data ()];
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	636 }
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	637 break;
10487 942386d6d1a5 style fixes John W. Eaton <jwe@octave.org> parents: 10486 diff changeset	638
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	639 case class_vector:
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	640 {
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	641 idx_vector_rep r = dynamic_cast<idx_vector_rep > (m_rep);
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	642 const octave_idx_type *data = r->get_data ();
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	643 for (octave_idx_type i = 0; i < len; i++)
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	644 dest[i] = src[data[i]];
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	645 }
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	646 break;
8290 7cbe01c21986 improve dense array indexing Jaroslav Hajek <highegg@gmail.com> parents: 7573 diff changeset	647
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	648 case class_mask:
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	649 {
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	650 idx_mask_rep r = dynamic_cast<idx_mask_rep > (m_rep);
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	651 const bool *data = r->get_data ();
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	652 octave_idx_type ext = r->extent (0);
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	653 for (octave_idx_type i = 0; i < ext; i++)
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	654 if (data[i]) *dest++ = src[i];
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	655 }
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	656 break;
8290 7cbe01c21986 improve dense array indexing Jaroslav Hajek <highegg@gmail.com> parents: 7573 diff changeset	657
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	658 default:
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	659 assert (false);
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	660 break;
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	661 }
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	662
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	663 return len;
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	664 }
10487 942386d6d1a5 style fixes John W. Eaton <jwe@octave.org> parents: 10486 diff changeset	665
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	666 // Slice assignment with specializations. No checking of bounds!
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	667 //
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	668 // This is equivalent to the following loop (but much faster):
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	669 //
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	670 // for (octave_idx_type i = 0; i < idx->length (n); i++)
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	671 // dest[idx(i)] = src[i];
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	672 // return i;
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	673 //
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	674 template <typename T>
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	675 octave_idx_type
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	676 assign (const T src, octave_idx_type n, T dest) const
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	677 {
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	678 octave_idx_type len = m_rep->length (n);
10487 942386d6d1a5 style fixes John W. Eaton <jwe@octave.org> parents: 10486 diff changeset	679
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	680 switch (m_rep->idx_class ())
17769 49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/ Rik <rik@octave.org> parents: 17744 diff changeset	681 {
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	682 case class_colon:
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	683 std::copy_n (src, len, dest);
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	684 break;
10487 942386d6d1a5 style fixes John W. Eaton <jwe@octave.org> parents: 10486 diff changeset	685
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	686 case class_range:
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	687 {
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	688 idx_range_rep r = dynamic_cast<idx_range_rep > (m_rep);
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	689 octave_idx_type start = r->get_start ();
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	690 octave_idx_type step = r->get_step ();
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	691 T *sdest = dest + start;
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	692 if (step == 1)
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	693 std::copy_n (src, len, sdest);
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	694 else if (step == -1)
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	695 std::reverse_copy (src, src + len, sdest - len + 1);
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	696 else
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	697 {
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	698 for (octave_idx_type i = 0, j = 0; i < len; i++, j += step)
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	699 sdest[j] = src[i];
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	700 }
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	701 }
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	702 break;
10487 942386d6d1a5 style fixes John W. Eaton <jwe@octave.org> parents: 10486 diff changeset	703
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	704 case class_scalar:
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	705 {
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	706 idx_scalar_rep r = dynamic_cast<idx_scalar_rep > (m_rep);
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	707 dest[r->get_data ()] = src[0];
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	708 }
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	709 break;
10487 942386d6d1a5 style fixes John W. Eaton <jwe@octave.org> parents: 10486 diff changeset	710
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	711 case class_vector:
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	712 {
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	713 idx_vector_rep r = dynamic_cast<idx_vector_rep > (m_rep);
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	714 const octave_idx_type *data = r->get_data ();
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	715 for (octave_idx_type i = 0; i < len; i++)
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	716 dest[data[i]] = src[i];
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	717 }
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	718 break;
10487 942386d6d1a5 style fixes John W. Eaton <jwe@octave.org> parents: 10486 diff changeset	719
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	720 case class_mask:
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	721 {
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	722 idx_mask_rep r = dynamic_cast<idx_mask_rep > (m_rep);
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	723 const bool *data = r->get_data ();
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	724 octave_idx_type ext = r->extent (0);
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	725 for (octave_idx_type i = 0; i < ext; i++)
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	726 if (data[i]) dest[i] = *src++;
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	727 }
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	728 break;
8290 7cbe01c21986 improve dense array indexing Jaroslav Hajek <highegg@gmail.com> parents: 7573 diff changeset	729
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	730 default:
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	731 assert (false);
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	732 break;
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	733 }
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	734
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	735 return len;
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	736 }
10487 942386d6d1a5 style fixes John W. Eaton <jwe@octave.org> parents: 10486 diff changeset	737
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	738 // Slice fill with specializations. No checking of bounds!
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	739 //
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	740 // This is equivalent to the following loop (but much faster):
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	741 //
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	742 // for (octave_idx_type i = 0; i < idx->length (n); i++)
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	743 // dest[idx(i)] = val;
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	744 // return i;
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	745 //
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	746 template <typename T>
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	747 octave_idx_type
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	748 fill (const T& val, octave_idx_type n, T *dest) const
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	749 {
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	750 octave_idx_type len = m_rep->length (n);
10487 942386d6d1a5 style fixes John W. Eaton <jwe@octave.org> parents: 10486 diff changeset	751
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	752 switch (m_rep->idx_class ())
17769 49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/ Rik <rik@octave.org> parents: 17744 diff changeset	753 {
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	754 case class_colon:
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	755 std::fill_n (dest, len, val);
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	756 break;
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	757
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	758 case class_range:
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	759 {
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	760 idx_range_rep r = dynamic_cast<idx_range_rep > (m_rep);
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	761 octave_idx_type start = r->get_start ();
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	762 octave_idx_type step = r->get_step ();
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	763 T *sdest = dest + start;
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	764 if (step == 1)
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	765 std::fill_n (sdest, len, val);
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	766 else if (step == -1)
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	767 std::fill (sdest - len + 1, sdest + 1, val);
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	768 else
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	769 {
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	770 for (octave_idx_type i = 0, j = 0; i < len; i++, j += step)
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	771 sdest[j] = val;
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	772 }
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	773 }
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	774 break;
10487 942386d6d1a5 style fixes John W. Eaton <jwe@octave.org> parents: 10486 diff changeset	775
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	776 case class_scalar:
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	777 {
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	778 idx_scalar_rep r = dynamic_cast<idx_scalar_rep > (m_rep);
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	779 dest[r->get_data ()] = val;
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	780 }
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	781 break;
10487 942386d6d1a5 style fixes John W. Eaton <jwe@octave.org> parents: 10486 diff changeset	782
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	783 case class_vector:
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	784 {
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	785 idx_vector_rep r = dynamic_cast<idx_vector_rep > (m_rep);
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	786 const octave_idx_type *data = r->get_data ();
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	787 for (octave_idx_type i = 0; i < len; i++)
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	788 dest[data[i]] = val;
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	789 }
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	790 break;
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	791
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	792 case class_mask:
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	793 {
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	794 idx_mask_rep r = dynamic_cast<idx_mask_rep > (m_rep);
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	795 const bool *data = r->get_data ();
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	796 octave_idx_type ext = r->extent (0);
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	797 for (octave_idx_type i = 0; i < ext; i++)
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	798 if (data[i]) dest[i] = val;
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	799 }
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	800 break;
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	801
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	802 default:
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	803 assert (false);
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	804 break;
17769 49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/ Rik <rik@octave.org> parents: 17744 diff changeset	805 }
10487 942386d6d1a5 style fixes John W. Eaton <jwe@octave.org> parents: 10486 diff changeset	806
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	807 return len;
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	808 }
10487 942386d6d1a5 style fixes John W. Eaton <jwe@octave.org> parents: 10486 diff changeset	809
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	810 // Generic non-breakable indexed loop. The loop body should be
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	811 // encapsulated in a single functor body. This is equivalent to the
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	812 // following loop (but faster, at least for simple inlined bodies):
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	813 //
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	814 // for (octave_idx_type i = 0; i < idx->length (n); i++) body (idx(i));
8290 7cbe01c21986 improve dense array indexing Jaroslav Hajek <highegg@gmail.com> parents: 7573 diff changeset	815
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	816 template <typename Functor>
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	817 void
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	818 loop (octave_idx_type n, Functor body) const
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	819 {
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	820 octave_idx_type len = m_rep->length (n);
10487 942386d6d1a5 style fixes John W. Eaton <jwe@octave.org> parents: 10486 diff changeset	821
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	822 switch (m_rep->idx_class ())
17769 49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/ Rik <rik@octave.org> parents: 17744 diff changeset	823 {
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	824 case class_colon:
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	825 for (octave_idx_type i = 0; i < len; i++) body (i);
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	826 break;
10487 942386d6d1a5 style fixes John W. Eaton <jwe@octave.org> parents: 10486 diff changeset	827
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	828 case class_range:
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	829 {
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	830 idx_range_rep r = dynamic_cast<idx_range_rep > (m_rep);
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	831 octave_idx_type start = r->get_start ();
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	832 octave_idx_type step = r->get_step ();
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	833 octave_idx_type i, j;
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	834 if (step == 1)
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	835 for (i = start, j = start + len; i < j; i++) body (i);
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	836 else if (step == -1)
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	837 for (i = start, j = start - len; i > j; i--) body (i);
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	838 else
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	839 for (i = 0, j = start; i < len; i++, j += step) body (j);
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	840 }
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	841 break;
10487 942386d6d1a5 style fixes John W. Eaton <jwe@octave.org> parents: 10486 diff changeset	842
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	843 case class_scalar:
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	844 {
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	845 idx_scalar_rep r = dynamic_cast<idx_scalar_rep > (m_rep);
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	846 body (r->get_data ());
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	847 }
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	848 break;
10487 942386d6d1a5 style fixes John W. Eaton <jwe@octave.org> parents: 10486 diff changeset	849
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	850 case class_vector:
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	851 {
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	852 idx_vector_rep r = dynamic_cast<idx_vector_rep > (m_rep);
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	853 const octave_idx_type *data = r->get_data ();
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	854 for (octave_idx_type i = 0; i < len; i++) body (data[i]);
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	855 }
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	856 break;
10487 942386d6d1a5 style fixes John W. Eaton <jwe@octave.org> parents: 10486 diff changeset	857
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	858 case class_mask:
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	859 {
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	860 idx_mask_rep r = dynamic_cast<idx_mask_rep > (m_rep);
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	861 const bool *data = r->get_data ();
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	862 octave_idx_type ext = r->extent (0);
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	863 for (octave_idx_type i = 0; i < ext; i++)
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	864 if (data[i]) body (i);
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	865 }
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	866 break;
8934 c2099a4d12ea partially optimize accumarray Jaroslav Hajek <highegg@gmail.com> parents: 8920 diff changeset	867
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	868 default:
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	869 assert (false);
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	870 break;
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	871 }
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	872
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	873 }
8290 7cbe01c21986 improve dense array indexing Jaroslav Hajek <highegg@gmail.com> parents: 7573 diff changeset	874
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	875 // Generic breakable indexed loop. The loop body should be
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	876 // encapsulated in a single functor body. This is equivalent to the
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	877 // following loop (but faster, at least for simple inlined bodies):
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	878 //
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	879 // for (octave_idx_type i = 0; i < idx->length (n); i++)
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	880 // if (body (idx(i))) break;
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	881 // return i;
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	882 //
10487 942386d6d1a5 style fixes John W. Eaton <jwe@octave.org> parents: 10486 diff changeset	883
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	884 template <typename Functor>
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	885 octave_idx_type
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	886 bloop (octave_idx_type n, Functor body) const
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	887 {
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	888 octave_idx_type len = m_rep->length (n), ret;
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	889
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	890 switch (m_rep->idx_class ())
8290 7cbe01c21986 improve dense array indexing Jaroslav Hajek <highegg@gmail.com> parents: 7573 diff changeset	891 {
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	892 case class_colon:
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	893 {
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	894 octave_idx_type i;
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	895 for (i = 0; i < len && body (i); i++) ;
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	896 ret = i;
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	897 }
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	898 break;
10487 942386d6d1a5 style fixes John W. Eaton <jwe@octave.org> parents: 10486 diff changeset	899
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	900 case class_range:
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	901 {
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	902 idx_range_rep r = dynamic_cast<idx_range_rep > (m_rep);
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	903 octave_idx_type start = r->get_start ();
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	904 octave_idx_type step = r->get_step ();
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	905 octave_idx_type i, j;
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	906 if (step == 1)
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	907 for (i = start, j = start + len; i < j && body (i); i++) ;
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	908 else if (step == -1)
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	909 for (i = start, j = start - len; i > j && body (i); i--) ;
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	910 else
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	911 for (i = 0, j = start; i < len && body (j); i++, j += step) ;
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	912 ret = i;
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	913 }
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	914 break;
10487 942386d6d1a5 style fixes John W. Eaton <jwe@octave.org> parents: 10486 diff changeset	915
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	916 case class_scalar:
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	917 {
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	918 idx_scalar_rep r = dynamic_cast<idx_scalar_rep > (m_rep);
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	919 ret = (body (r->get_data ()) ? 1 : 0);
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	920 }
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	921 break;
10487 942386d6d1a5 style fixes John W. Eaton <jwe@octave.org> parents: 10486 diff changeset	922
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	923 case class_vector:
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	924 {
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	925 idx_vector_rep r = dynamic_cast<idx_vector_rep > (m_rep);
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	926 const octave_idx_type *data = r->get_data ();
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	927 octave_idx_type i;
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	928 for (i = 0; i < len && body (data[i]); i++) ;
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	929 ret = i;
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	930 }
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	931 break;
10487 942386d6d1a5 style fixes John W. Eaton <jwe@octave.org> parents: 10486 diff changeset	932
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	933 case class_mask:
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	934 {
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	935 idx_mask_rep r = dynamic_cast<idx_mask_rep > (m_rep);
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	936 const bool *data = r->get_data ();
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	937 octave_idx_type ext = r->extent (0);
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	938 octave_idx_type j = 0;
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	939 for (octave_idx_type i = 0; i < ext; i++)
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	940 {
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	941 if (data[i])
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	942 {
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	943 if (body (i))
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	944 break;
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	945 else
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	946 j++;
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	947 }
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	948 }
9985 43a29eeda994 fix idx_vector::loop for masks Jaroslav Hajek <highegg@gmail.com> parents: 9894 diff changeset	949
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	950 ret = j;
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	951 }
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	952 break;
10487 942386d6d1a5 style fixes John W. Eaton <jwe@octave.org> parents: 10486 diff changeset	953
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	954 default:
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	955 assert (false);
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	956 break;
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	957 }
8290 7cbe01c21986 improve dense array indexing Jaroslav Hajek <highegg@gmail.com> parents: 7573 diff changeset	958
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	959 return ret;
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	960 }
8290 7cbe01c21986 improve dense array indexing Jaroslav Hajek <highegg@gmail.com> parents: 7573 diff changeset	961
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	962 // Rationale:
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	963 // This method is the key to "smart indexing". When indexing cartesian
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	964 // arrays, sometimes consecutive index vectors can be reduced into a
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	965 // single index. If rows (A) = k and i.maybe_reduce (j) gives k, then
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	966 // A(i,j)(:) is equal to A(k)(:).
8290 7cbe01c21986 improve dense array indexing Jaroslav Hajek <highegg@gmail.com> parents: 7573 diff changeset	967
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	968 // If the next index can be reduced, returns true and updates this.
29646 3e8bc8bee8e9 liboctave/array: Add visibility flags to functions declared in headers (bug #60567). Markus Mützel <markus.muetzel@gmx.de> parents: 29569 diff changeset	969 OCTAVE_API bool
3e8bc8bee8e9 liboctave/array: Add visibility flags to functions declared in headers (bug #60567). Markus Mützel <markus.muetzel@gmx.de> parents: 29569 diff changeset	970 maybe_reduce (octave_idx_type n, const idx_vector& j, octave_idx_type nj);
8290 7cbe01c21986 improve dense array indexing Jaroslav Hajek <highegg@gmail.com> parents: 7573 diff changeset	971
29646 3e8bc8bee8e9 liboctave/array: Add visibility flags to functions declared in headers (bug #60567). Markus Mützel <markus.muetzel@gmx.de> parents: 29569 diff changeset	972 OCTAVE_API bool
3e8bc8bee8e9 liboctave/array: Add visibility flags to functions declared in headers (bug #60567). Markus Mützel <markus.muetzel@gmx.de> parents: 29569 diff changeset	973 is_cont_range (octave_idx_type n, octave_idx_type& l,
3e8bc8bee8e9 liboctave/array: Add visibility flags to functions declared in headers (bug #60567). Markus Mützel <markus.muetzel@gmx.de> parents: 29569 diff changeset	974 octave_idx_type& u) const;
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	975
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	976 // Returns the increment for ranges and colon, 0 for scalars and empty
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	977 // vectors, 1st difference otherwise.
29646 3e8bc8bee8e9 liboctave/array: Add visibility flags to functions declared in headers (bug #60567). Markus Mützel <markus.muetzel@gmx.de> parents: 29569 diff changeset	978 OCTAVE_API octave_idx_type increment (void) const;
8290 7cbe01c21986 improve dense array indexing Jaroslav Hajek <highegg@gmail.com> parents: 7573 diff changeset	979
29646 3e8bc8bee8e9 liboctave/array: Add visibility flags to functions declared in headers (bug #60567). Markus Mützel <markus.muetzel@gmx.de> parents: 29569 diff changeset	980 OCTAVE_API idx_vector
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	981 complement (octave_idx_type n) const;
9725 aea3a3a950e1 implement nth_element Jaroslav Hajek <highegg@gmail.com> parents: 9601 diff changeset	982
29646 3e8bc8bee8e9 liboctave/array: Add visibility flags to functions declared in headers (bug #60567). Markus Mützel <markus.muetzel@gmx.de> parents: 29569 diff changeset	983 OCTAVE_API bool is_permutation (octave_idx_type n) const;
8290 7cbe01c21986 improve dense array indexing Jaroslav Hajek <highegg@gmail.com> parents: 7573 diff changeset	984
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	985 // Returns the inverse permutation. If this is not a permutation on 1:n, the
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	986 // result is undefined (but no error unless extent () != n).
29646 3e8bc8bee8e9 liboctave/array: Add visibility flags to functions declared in headers (bug #60567). Markus Mützel <markus.muetzel@gmx.de> parents: 29569 diff changeset	987 OCTAVE_API idx_vector inverse_permutation (octave_idx_type n) const;
8367 445d27d79f4e support permutation matrix objects Jaroslav Hajek <highegg@gmail.com> parents: 8333 diff changeset	988
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	989 // Copies all the indices to a given array. Not allowed for colons.
29646 3e8bc8bee8e9 liboctave/array: Add visibility flags to functions declared in headers (bug #60567). Markus Mützel <markus.muetzel@gmx.de> parents: 29569 diff changeset	990 OCTAVE_API void copy_data (octave_idx_type *data) const;
10512 aac9f4265048 rewrite sparse indexed assignment Jaroslav Hajek <highegg@gmail.com> parents: 10489 diff changeset	991
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	992 // If the index is a mask, convert it to index vector.
29646 3e8bc8bee8e9 liboctave/array: Add visibility flags to functions declared in headers (bug #60567). Markus Mützel <markus.muetzel@gmx.de> parents: 29569 diff changeset	993 OCTAVE_API idx_vector unmask (void) const;
9479 d9716e3ee0dd supply optimized compiled sub2ind & ind2sub Jaroslav Hajek <highegg@gmail.com> parents: 8972 diff changeset	994
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	995 // Unconverts the index to a scalar, Range, double array or a mask.
29646 3e8bc8bee8e9 liboctave/array: Add visibility flags to functions declared in headers (bug #60567). Markus Mützel <markus.muetzel@gmx.de> parents: 29569 diff changeset	996 OCTAVE_API void
3e8bc8bee8e9 liboctave/array: Add visibility flags to functions declared in headers (bug #60567). Markus Mützel <markus.muetzel@gmx.de> parents: 29569 diff changeset	997 unconvert (idx_class_type& iclass, double& scalar, range<double>& range,
3e8bc8bee8e9 liboctave/array: Add visibility flags to functions declared in headers (bug #60567). Markus Mützel <markus.muetzel@gmx.de> parents: 29569 diff changeset	998 Array<double>& array, Array<bool>& mask) const;
9879 034677ab6865 smarter treatment of mask indexing Jaroslav Hajek <highegg@gmail.com> parents: 9780 diff changeset	999
29646 3e8bc8bee8e9 liboctave/array: Add visibility flags to functions declared in headers (bug #60567). Markus Mützel <markus.muetzel@gmx.de> parents: 29569 diff changeset	1000 OCTAVE_API Array<octave_idx_type> as_array (void) const;
10339 de2d43bcb083 optimize some lazy index operations Jaroslav Hajek <highegg@gmail.com> parents: 10312 diff changeset	1001
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	1002 // Raw pointer to index array. This is non-const because it may be
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	1003 // necessary to mutate the index.
29646 3e8bc8bee8e9 liboctave/array: Add visibility flags to functions declared in headers (bug #60567). Markus Mützel <markus.muetzel@gmx.de> parents: 29569 diff changeset	1004 const OCTAVE_API octave_idx_type * raw (void);
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	1005
29646 3e8bc8bee8e9 liboctave/array: Add visibility flags to functions declared in headers (bug #60567). Markus Mützel <markus.muetzel@gmx.de> parents: 29569 diff changeset	1006 OCTAVE_API bool isvector (void) const;
10475 739109ef88ee helper idx_vector methods Jaroslav Hajek <highegg@gmail.com> parents: 10425 diff changeset	1007
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	1008 // FIXME: these are here for compatibility. They should be removed
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	1009 // when no longer in use.
23592 80e3bfb7bd5a maint: Deprecate is_vector and replace with isvector. Rik <rik@octave.org> parents: 23534 diff changeset	1010
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	1011 octave_idx_type elem (octave_idx_type n) const
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	1012 { return (*this) (n); }
8290 7cbe01c21986 improve dense array indexing Jaroslav Hajek <highegg@gmail.com> parents: 7573 diff changeset	1013
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	1014 bool is_colon_equiv (octave_idx_type n, int) const
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	1015 { return is_colon_equiv (n); }
8290 7cbe01c21986 improve dense array indexing Jaroslav Hajek <highegg@gmail.com> parents: 7573 diff changeset	1016
29646 3e8bc8bee8e9 liboctave/array: Add visibility flags to functions declared in headers (bug #60567). Markus Mützel <markus.muetzel@gmx.de> parents: 29569 diff changeset	1017 OCTAVE_API octave_idx_type
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	1018 freeze (octave_idx_type z_len, const char *tag, bool resize_ok = false);
8290 7cbe01c21986 improve dense array indexing Jaroslav Hajek <highegg@gmail.com> parents: 7573 diff changeset	1019
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	1020 void sort (bool uniq = false)
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	1021 { *this = sorted (uniq); }
8290 7cbe01c21986 improve dense array indexing Jaroslav Hajek <highegg@gmail.com> parents: 7573 diff changeset	1022
29646 3e8bc8bee8e9 liboctave/array: Add visibility flags to functions declared in headers (bug #60567). Markus Mützel <markus.muetzel@gmx.de> parents: 29569 diff changeset	1023 OCTAVE_API octave_idx_type ones_count (void) const;
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	1024
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	1025 octave_idx_type max (void) const { return extent (1) - 1; }
8290 7cbe01c21986 improve dense array indexing Jaroslav Hajek <highegg@gmail.com> parents: 7573 diff changeset	1026
30394 f3f3e3793fb5 maint: style check C++ files in liboctave/ ahead of 7.1 release. Rik <rik@octave.org> parents: 29689 diff changeset	1027 private:
8290 7cbe01c21986 improve dense array indexing Jaroslav Hajek <highegg@gmail.com> parents: 7573 diff changeset	1028
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	1029 idx_base_rep *m_rep;
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	1030
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	1031 };
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	1032 }
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	1033
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	1034 // Provide the following typedef for backward compatibility. Don't
29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	1035 // deprecate (yet) because it is used extensively.
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	1036
29569 29a1f8fd8ee6 move idx_vector classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 29568 diff changeset	1037 typedef octave::idx_vector idx_vector;
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	1038
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	1039 #endif

Mercurial > octave

annotate liboctave/array/idx-vector.h @ 30564:796f54d4ddbf stable