Mercurial > hg > octave-nkf

annotate src/oct-obj.h @ 10809:85cbd239fce2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
try a better status bar for fltk backend
author Shai Ayal <shaiay@users.sourceforge.net>
date Tue, 20 Jul 2010 19:31:17 +0300
parents 8baff2aceabc
children fd0a3ac60b0e
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
498
2e1353465468 [project @ 1994-07-08 02:08:49 by jwe]
jwe
parents:
diff changeset
1 /*
2e1353465468 [project @ 1994-07-08 02:08:49 by jwe]
jwe
parents:
diff changeset
2
7017
a1dbe9d80eee [project @ 2007-10-12 21:27:11 by jwe]
jwe
parents: 7016
diff changeset
3 Copyright (C) 1994, 1995, 1996, 1997, 1998, 2000, 2002, 2003, 2004,
8920
eb63fbe60fab update copyright notices
John W. Eaton <jwe@octave.org>
parents: 8580
diff changeset
4 2005, 2006, 2007, 2008 John W. Eaton
8580
188d38a553c7 further indexing optimization touches
Jaroslav Hajek <highegg@gmail.com>
parents: 8579
diff changeset
5 Copyright (C) 2009 VZLU Prague
498
2e1353465468 [project @ 1994-07-08 02:08:49 by jwe]
jwe
parents:
diff changeset
6
2e1353465468 [project @ 1994-07-08 02:08:49 by jwe]
jwe
parents:
diff changeset
7 This file is part of Octave.
2e1353465468 [project @ 1994-07-08 02:08:49 by jwe]
jwe
parents:
diff changeset
8
2e1353465468 [project @ 1994-07-08 02:08:49 by jwe]
jwe
parents:
diff changeset
9 Octave is free software; you can redistribute it and/or modify it
2e1353465468 [project @ 1994-07-08 02:08:49 by jwe]
jwe
parents:
diff changeset
10 under the terms of the GNU General Public License as published by the
7016
93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe]
jwe
parents: 6335
diff changeset
11 Free Software Foundation; either version 3 of the License, or (at your
93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe]
jwe
parents: 6335
diff changeset
12 option) any later version.
498
2e1353465468 [project @ 1994-07-08 02:08:49 by jwe]
jwe
parents:
diff changeset
13
2e1353465468 [project @ 1994-07-08 02:08:49 by jwe]
jwe
parents:
diff changeset
14 Octave is distributed in the hope that it will be useful, but WITHOUT
2e1353465468 [project @ 1994-07-08 02:08:49 by jwe]
jwe
parents:
diff changeset
15 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
2e1353465468 [project @ 1994-07-08 02:08:49 by jwe]
jwe
parents:
diff changeset
16 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
2e1353465468 [project @ 1994-07-08 02:08:49 by jwe]
jwe
parents:
diff changeset
17 for more details.
2e1353465468 [project @ 1994-07-08 02:08:49 by jwe]
jwe
parents:
diff changeset
18
2e1353465468 [project @ 1994-07-08 02:08:49 by jwe]
jwe
parents:
diff changeset
19 You should have received a copy of the GNU General Public License
7016
93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe]
jwe
parents: 6335
diff changeset
20 along with Octave; see the file COPYING. If not, see
93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe]
jwe
parents: 6335
diff changeset
21 <http://www.gnu.org/licenses/>.
498
2e1353465468 [project @ 1994-07-08 02:08:49 by jwe]
jwe
parents:
diff changeset
22
2e1353465468 [project @ 1994-07-08 02:08:49 by jwe]
jwe
parents:
diff changeset
23 */
2e1353465468 [project @ 1994-07-08 02:08:49 by jwe]
jwe
parents:
diff changeset
24
504
be155b3d5a2f [project @ 1994-07-08 23:45:33 by jwe]
jwe
parents: 498
diff changeset
25 #if !defined (octave_oct_obj_h)
be155b3d5a2f [project @ 1994-07-08 23:45:33 by jwe]
jwe
parents: 498
diff changeset
26 #define octave_oct_obj_h 1
be155b3d5a2f [project @ 1994-07-08 23:45:33 by jwe]
jwe
parents: 498
diff changeset
27
1968
a2e206524aa0 [project @ 1996-02-17 02:54:24 by jwe]
jwe
parents: 1884
diff changeset
28 #include <string>
4591
2c9de1be042a [project @ 2003-11-11 00:23:35 by jwe]
jwe
parents: 4548
diff changeset
29 #include <vector>
1968
a2e206524aa0 [project @ 1996-02-17 02:54:24 by jwe]
jwe
parents: 1884
diff changeset
30
2970
b9e64477f703 [project @ 1997-05-15 18:04:21 by jwe]
jwe
parents: 2951
diff changeset
31 #include "oct-alloc.h"
2943
e6dfc3ea6299 [project @ 1997-05-08 02:31:59 by jwe]
jwe
parents: 2877
diff changeset
32 #include "str-vec.h"
8579
7e0f36dfefbe implement octave_value_list using Array
Jaroslav Hajek <highegg@gmail.com>
parents: 8546
diff changeset
33 #include "Array.h"
498
2e1353465468 [project @ 1994-07-08 02:08:49 by jwe]
jwe
parents:
diff changeset
34
2369
5ece30fb2af6 [project @ 1996-10-11 23:47:45 by jwe]
jwe
parents: 2086
diff changeset
35 #include "ov.h"
8579
7e0f36dfefbe implement octave_value_list using Array
Jaroslav Hajek <highegg@gmail.com>
parents: 8546
diff changeset
36 #include "Cell.h"
498
2e1353465468 [project @ 1994-07-08 02:08:49 by jwe]
jwe
parents:
diff changeset
37
737
5eb0d9359485 [project @ 1994-09-25 18:35:49 by jwe]
jwe
parents: 574
diff changeset
38 class
6109
c68896f193e3 [project @ 2006-10-27 02:16:18 by jwe]
jwe
parents: 5846
diff changeset
39 OCTINTERP_API
2872
6285237ed3b9 [project @ 1997-04-19 01:30:58 by jwe]
jwe
parents: 2847
diff changeset
40 octave_value_list
508
ef71e51a2280 [project @ 1994-07-10 02:06:07 by jwe]
jwe
parents: 504
diff changeset
41 {
ef71e51a2280 [project @ 1994-07-10 02:06:07 by jwe]
jwe
parents: 504
diff changeset
42 public:
ef71e51a2280 [project @ 1994-07-10 02:06:07 by jwe]
jwe
parents: 504
diff changeset
43
2086
bfb775fb6fe8 [project @ 1996-04-25 05:55:19 by jwe]
jwe
parents: 1996
diff changeset
44 octave_value_list (void)
2872
6285237ed3b9 [project @ 1997-04-19 01:30:58 by jwe]
jwe
parents: 2847
diff changeset
45 : data () { }
1968
a2e206524aa0 [project @ 1996-02-17 02:54:24 by jwe]
jwe
parents: 1884
diff changeset
46
9545
8670e55078fd allow constructing octave_value_list from size
Jaroslav Hajek <highegg@gmail.com>
parents: 8920
diff changeset
47 explicit octave_value_list (octave_idx_type n)
8670e55078fd allow constructing octave_value_list from size
Jaroslav Hajek <highegg@gmail.com>
parents: 8920
diff changeset
48 : data (dim_vector (1, n)) { }
8670e55078fd allow constructing octave_value_list from size
Jaroslav Hajek <highegg@gmail.com>
parents: 8920
diff changeset
49
5275
23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe]
jwe
parents: 5105
diff changeset
50 octave_value_list (octave_idx_type n, const octave_value& val)
8579
7e0f36dfefbe implement octave_value_list using Array
Jaroslav Hajek <highegg@gmail.com>
parents: 8546
diff changeset
51 : data (dim_vector (1, n), val) { }
511
08a3f07adc78 [project @ 1994-07-12 17:58:03 by jwe]
jwe
parents: 508
diff changeset
52
2086
bfb775fb6fe8 [project @ 1996-04-25 05:55:19 by jwe]
jwe
parents: 1996
diff changeset
53 octave_value_list (const octave_value& tc)
10350
12884915a8e4 merge MArray classes & improve Array interface
Jaroslav Hajek <highegg@gmail.com>
parents: 10313
diff changeset
54 : data (1, 1, tc) { }
1968
a2e206524aa0 [project @ 1996-02-17 02:54:24 by jwe]
jwe
parents: 1884
diff changeset
55
8579
7e0f36dfefbe implement octave_value_list using Array
Jaroslav Hajek <highegg@gmail.com>
parents: 8546
diff changeset
56 octave_value_list (const Array<octave_value>& d)
10350
12884915a8e4 merge MArray classes & improve Array interface
Jaroslav Hajek <highegg@gmail.com>
parents: 10313
diff changeset
57 : data (d.as_row ()) { }
8579
7e0f36dfefbe implement octave_value_list using Array
Jaroslav Hajek <highegg@gmail.com>
parents: 8546
diff changeset
58
7e0f36dfefbe implement octave_value_list using Array
Jaroslav Hajek <highegg@gmail.com>
parents: 8546
diff changeset
59 octave_value_list (const Cell& tc)
10350
12884915a8e4 merge MArray classes & improve Array interface
Jaroslav Hajek <highegg@gmail.com>
parents: 10313
diff changeset
60 : data (tc.as_row ()) { }
8546
3d8a914c580e improve parser indexed assigment code
Jaroslav Hajek <highegg@gmail.com>
parents: 8523
diff changeset
61
2086
bfb775fb6fe8 [project @ 1996-04-25 05:55:19 by jwe]
jwe
parents: 1996
diff changeset
62 octave_value_list (const octave_value_list& obj)
4150
0d411821682c [project @ 2002-11-04 22:03:05 by jwe]
jwe
parents: 4066
diff changeset
63 : data (obj.data), names (obj.names) { }
508
ef71e51a2280 [project @ 1994-07-10 02:06:07 by jwe]
jwe
parents: 504
diff changeset
64
8580
188d38a553c7 further indexing optimization touches
Jaroslav Hajek <highegg@gmail.com>
parents: 8579
diff changeset
65 // Concatenation constructor.
188d38a553c7 further indexing optimization touches
Jaroslav Hajek <highegg@gmail.com>
parents: 8579
diff changeset
66 octave_value_list (const std::list<octave_value_list>&);
188d38a553c7 further indexing optimization touches
Jaroslav Hajek <highegg@gmail.com>
parents: 8579
diff changeset
67
4189
047d21dd1890 [project @ 2002-11-19 21:08:57 by jwe]
jwe
parents: 4150
diff changeset
68 ~octave_value_list (void) { }
047d21dd1890 [project @ 2002-11-19 21:08:57 by jwe]
jwe
parents: 4150
diff changeset
69
2970
b9e64477f703 [project @ 1997-05-15 18:04:21 by jwe]
jwe
parents: 2951
diff changeset
70 void *operator new (size_t size)
b9e64477f703 [project @ 1997-05-15 18:04:21 by jwe]
jwe
parents: 2951
diff changeset
71 { return allocator.alloc (size); }
b9e64477f703 [project @ 1997-05-15 18:04:21 by jwe]
jwe
parents: 2951
diff changeset
72
4280
3dc0815a2954 [project @ 2003-01-04 03:11:42 by jwe]
jwe
parents: 4233
diff changeset
73 void operator delete (void *p, size_t size)
3dc0815a2954 [project @ 2003-01-04 03:11:42 by jwe]
jwe
parents: 4233
diff changeset
74 { allocator.free (p, size); }
3dc0815a2954 [project @ 2003-01-04 03:11:42 by jwe]
jwe
parents: 4233
diff changeset
75
5775
ace8d8d26933 [project @ 2006-04-24 19:13:06 by jwe]
jwe
parents: 5307
diff changeset
76 // FIXME -- without this, I have errors with the stack of
4214
b9317f3973ec [project @ 2002-12-04 04:57:01 by jwe]
jwe
parents: 4192
diff changeset
77 // octave_value_list objects in ov-usr-fcn.h. Why?
b9317f3973ec [project @ 2002-12-04 04:57:01 by jwe]
jwe
parents: 4192
diff changeset
78 void *operator new (size_t size, void *p)
b9317f3973ec [project @ 2002-12-04 04:57:01 by jwe]
jwe
parents: 4192
diff changeset
79 { return ::operator new (size, p); }
b9317f3973ec [project @ 2002-12-04 04:57:01 by jwe]
jwe
parents: 4192
diff changeset
80
4280
3dc0815a2954 [project @ 2003-01-04 03:11:42 by jwe]
jwe
parents: 4233
diff changeset
81 void operator delete (void *p, void *)
4352
80b83de0aa2a [project @ 2003-02-21 20:01:38 by jwe]
jwe
parents: 4281
diff changeset
82 {
80b83de0aa2a [project @ 2003-02-21 20:01:38 by jwe]
jwe
parents: 4281
diff changeset
83 #if defined (HAVE_PLACEMENT_DELETE)
80b83de0aa2a [project @ 2003-02-21 20:01:38 by jwe]
jwe
parents: 4281
diff changeset
84 ::operator delete (p, static_cast<void *> (0));
80b83de0aa2a [project @ 2003-02-21 20:01:38 by jwe]
jwe
parents: 4281
diff changeset
85 #else
80b83de0aa2a [project @ 2003-02-21 20:01:38 by jwe]
jwe
parents: 4281
diff changeset
86 ::operator delete (p);
80b83de0aa2a [project @ 2003-02-21 20:01:38 by jwe]
jwe
parents: 4281
diff changeset
87 #endif
80b83de0aa2a [project @ 2003-02-21 20:01:38 by jwe]
jwe
parents: 4281
diff changeset
88 }
2970
b9e64477f703 [project @ 1997-05-15 18:04:21 by jwe]
jwe
parents: 2951
diff changeset
89
2086
bfb775fb6fe8 [project @ 1996-04-25 05:55:19 by jwe]
jwe
parents: 1996
diff changeset
90 octave_value_list& operator = (const octave_value_list& obj)
508
ef71e51a2280 [project @ 1994-07-10 02:06:07 by jwe]
jwe
parents: 504
diff changeset
91 {
1968
a2e206524aa0 [project @ 1996-02-17 02:54:24 by jwe]
jwe
parents: 1884
diff changeset
92 if (this != &obj)
10313
f3b65e1ae355 untabify src header files
John W. Eaton <jwe@octave.org>
parents: 10181
diff changeset
93 {
f3b65e1ae355 untabify src header files
John W. Eaton <jwe@octave.org>
parents: 10181
diff changeset
94 data = obj.data;
f3b65e1ae355 untabify src header files
John W. Eaton <jwe@octave.org>
parents: 10181
diff changeset
95 names = obj.names;
f3b65e1ae355 untabify src header files
John W. Eaton <jwe@octave.org>
parents: 10181
diff changeset
96 }
1968
a2e206524aa0 [project @ 1996-02-17 02:54:24 by jwe]
jwe
parents: 1884
diff changeset
97
508
ef71e51a2280 [project @ 1994-07-10 02:06:07 by jwe]
jwe
parents: 504
diff changeset
98 return *this;
ef71e51a2280 [project @ 1994-07-10 02:06:07 by jwe]
jwe
parents: 504
diff changeset
99 }
ef71e51a2280 [project @ 1994-07-10 02:06:07 by jwe]
jwe
parents: 504
diff changeset
100
8579
7e0f36dfefbe implement octave_value_list using Array
Jaroslav Hajek <highegg@gmail.com>
parents: 8546
diff changeset
101 Array<octave_value> array_value (void) const { return data; }
7e0f36dfefbe implement octave_value_list using Array
Jaroslav Hajek <highegg@gmail.com>
parents: 8546
diff changeset
102
7e0f36dfefbe implement octave_value_list using Array
Jaroslav Hajek <highegg@gmail.com>
parents: 8546
diff changeset
103 Cell cell_value (void) const { return array_value (); }
7e0f36dfefbe implement octave_value_list using Array
Jaroslav Hajek <highegg@gmail.com>
parents: 8546
diff changeset
104
2872
6285237ed3b9 [project @ 1997-04-19 01:30:58 by jwe]
jwe
parents: 2847
diff changeset
105 // Assignment will resize on range errors.
508
ef71e51a2280 [project @ 1994-07-10 02:06:07 by jwe]
jwe
parents: 504
diff changeset
106
5275
23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe]
jwe
parents: 5105
diff changeset
107 octave_value& operator () (octave_idx_type n) { return elem (n); }
1968
a2e206524aa0 [project @ 1996-02-17 02:54:24 by jwe]
jwe
parents: 1884
diff changeset
108
10075
84b0725f4b09 return class types by reference in const Array element access functions
Jaroslav Hajek <highegg@gmail.com>
parents: 9545
diff changeset
109 const octave_value& operator () (octave_idx_type n) const { return elem (n); }
526
a01a9db8ab69 [project @ 1994-07-20 18:46:24 by jwe]
jwe
parents: 511
diff changeset
110
8579
7e0f36dfefbe implement octave_value_list using Array
Jaroslav Hajek <highegg@gmail.com>
parents: 8546
diff changeset
111 octave_idx_type length (void) const { return data.length (); }
2872
6285237ed3b9 [project @ 1997-04-19 01:30:58 by jwe]
jwe
parents: 2847
diff changeset
112
2951
ab9673e3bb5d [project @ 1997-05-09 14:46:19 by jwe]
jwe
parents: 2943
diff changeset
113 bool empty (void) const { return length () == 0; }
ab9673e3bb5d [project @ 1997-05-09 14:46:19 by jwe]
jwe
parents: 2943
diff changeset
114
10350
12884915a8e4 merge MArray classes & improve Array interface
Jaroslav Hajek <highegg@gmail.com>
parents: 10313
diff changeset
115 void resize (octave_idx_type n, const octave_value& rfv
12884915a8e4 merge MArray classes & improve Array interface
Jaroslav Hajek <highegg@gmail.com>
parents: 10313
diff changeset
116 = Array<octave_value>::resize_fill_value ())
12884915a8e4 merge MArray classes & improve Array interface
Jaroslav Hajek <highegg@gmail.com>
parents: 10313
diff changeset
117 { data.resize (1, n, rfv); }
2872
6285237ed3b9 [project @ 1997-04-19 01:30:58 by jwe]
jwe
parents: 2847
diff changeset
118
6285237ed3b9 [project @ 1997-04-19 01:30:58 by jwe]
jwe
parents: 2847
diff changeset
119 octave_value_list& prepend (const octave_value& val);
6285237ed3b9 [project @ 1997-04-19 01:30:58 by jwe]
jwe
parents: 2847
diff changeset
120
6285237ed3b9 [project @ 1997-04-19 01:30:58 by jwe]
jwe
parents: 2847
diff changeset
121 octave_value_list& append (const octave_value& val);
6285237ed3b9 [project @ 1997-04-19 01:30:58 by jwe]
jwe
parents: 2847
diff changeset
122
6285237ed3b9 [project @ 1997-04-19 01:30:58 by jwe]
jwe
parents: 2847
diff changeset
123 octave_value_list& append (const octave_value_list& lst);
6285237ed3b9 [project @ 1997-04-19 01:30:58 by jwe]
jwe
parents: 2847
diff changeset
124
6285237ed3b9 [project @ 1997-04-19 01:30:58 by jwe]
jwe
parents: 2847
diff changeset
125 octave_value_list& reverse (void);
6285237ed3b9 [project @ 1997-04-19 01:30:58 by jwe]
jwe
parents: 2847
diff changeset
126
6335
de4ae354c831 [project @ 2007-02-21 18:19:07 by jwe]
jwe
parents: 6109
diff changeset
127 octave_value_list
10659
8baff2aceabc fix slicing value lists with name tags (bug #29960)
Jaroslav Hajek <highegg@gmail.com>
parents: 10350
diff changeset
128 slice (octave_idx_type offset, octave_idx_type len, bool tags = false) const
8baff2aceabc fix slicing value lists with name tags (bug #29960)
Jaroslav Hajek <highegg@gmail.com>
parents: 10350
diff changeset
129 {
8baff2aceabc fix slicing value lists with name tags (bug #29960)
Jaroslav Hajek <highegg@gmail.com>
parents: 10350
diff changeset
130 octave_value_list retval (data.linear_slice (offset, offset + len));
8baff2aceabc fix slicing value lists with name tags (bug #29960)
Jaroslav Hajek <highegg@gmail.com>
parents: 10350
diff changeset
131 if (tags && len > 0 && names.length () > 0)
8baff2aceabc fix slicing value lists with name tags (bug #29960)
Jaroslav Hajek <highegg@gmail.com>
parents: 10350
diff changeset
132 retval.names = names.linear_slice (offset, std::min (len, names.length ()));
8baff2aceabc fix slicing value lists with name tags (bug #29960)
Jaroslav Hajek <highegg@gmail.com>
parents: 10350
diff changeset
133
8baff2aceabc fix slicing value lists with name tags (bug #29960)
Jaroslav Hajek <highegg@gmail.com>
parents: 10350
diff changeset
134 return retval;
8baff2aceabc fix slicing value lists with name tags (bug #29960)
Jaroslav Hajek <highegg@gmail.com>
parents: 10350
diff changeset
135 }
8579
7e0f36dfefbe implement octave_value_list using Array
Jaroslav Hajek <highegg@gmail.com>
parents: 8546
diff changeset
136
7e0f36dfefbe implement octave_value_list using Array
Jaroslav Hajek <highegg@gmail.com>
parents: 8546
diff changeset
137 octave_value_list
6335
de4ae354c831 [project @ 2007-02-21 18:19:07 by jwe]
jwe
parents: 6109
diff changeset
138 splice (octave_idx_type offset, octave_idx_type len,
10313
f3b65e1ae355 untabify src header files
John W. Eaton <jwe@octave.org>
parents: 10181
diff changeset
139 const octave_value_list& lst = octave_value_list ()) const;
3195
7a5a5da64756 [project @ 1998-10-28 22:54:04 by jwe]
jwe
parents: 2970
diff changeset
140
2872
6285237ed3b9 [project @ 1997-04-19 01:30:58 by jwe]
jwe
parents: 2847
diff changeset
141 bool all_strings_p (void) const;
1968
a2e206524aa0 [project @ 1996-02-17 02:54:24 by jwe]
jwe
parents: 1884
diff changeset
142
8455
fd11a08a9b31 disallow invalid {}-indexed assigments
Jaroslav Hajek <highegg@gmail.com>
parents: 8437
diff changeset
143 bool all_scalars (void) const;
fd11a08a9b31 disallow invalid {}-indexed assigments
Jaroslav Hajek <highegg@gmail.com>
parents: 8437
diff changeset
144
10086
76df75b10c80 allow more cells in strfind/strrep + supply a general mechanism
Jaroslav Hajek <highegg@gmail.com>
parents: 10075
diff changeset
145 bool any_cell (void) const;
76df75b10c80 allow more cells in strfind/strrep + supply a general mechanism
Jaroslav Hajek <highegg@gmail.com>
parents: 10075
diff changeset
146
5846
db0598f94c0f [project @ 2006-06-07 18:16:16 by jwe]
jwe
parents: 5775
diff changeset
147 bool has_magic_colon (void) const;
db0598f94c0f [project @ 2006-06-07 18:16:16 by jwe]
jwe
parents: 5775
diff changeset
148
8034
f61bd8e0d682 fix default_save_options parsing and allow mixing options with other arguments.
Jaroslav Hajek <highegg@gmail.com>
parents: 7017
diff changeset
149 string_vector make_argv (const std::string& = std::string()) const;
526
a01a9db8ab69 [project @ 1994-07-20 18:46:24 by jwe]
jwe
parents: 511
diff changeset
150
2943
e6dfc3ea6299 [project @ 1997-05-08 02:31:59 by jwe]
jwe
parents: 2877
diff changeset
151 void stash_name_tags (const string_vector& nm) { names = nm; }
e6dfc3ea6299 [project @ 1997-05-08 02:31:59 by jwe]
jwe
parents: 2877
diff changeset
152
e6dfc3ea6299 [project @ 1997-05-08 02:31:59 by jwe]
jwe
parents: 2877
diff changeset
153 string_vector name_tags (void) const { return names; }
e6dfc3ea6299 [project @ 1997-05-08 02:31:59 by jwe]
jwe
parents: 2877
diff changeset
154
8523
ad3afaaa19c1 implement non-copying contiguous range indexing
Jaroslav Hajek <highegg@gmail.com>
parents: 8455
diff changeset
155 void make_storable_values (void);
8150
283989f2da9b make null assignment matlab compatible
Jaroslav Hajek <highegg@gmail.com>
parents: 8034
diff changeset
156
10181
a668fbd32e34 improve cellfun & avoid undefined values from builtins
Jaroslav Hajek <highegg@gmail.com>
parents: 10160
diff changeset
157 octave_value& xelem (octave_idx_type i)
a668fbd32e34 improve cellfun & avoid undefined values from builtins
Jaroslav Hajek <highegg@gmail.com>
parents: 10160
diff changeset
158 {
a668fbd32e34 improve cellfun & avoid undefined values from builtins
Jaroslav Hajek <highegg@gmail.com>
parents: 10160
diff changeset
159 return data.xelem (i);
a668fbd32e34 improve cellfun & avoid undefined values from builtins
Jaroslav Hajek <highegg@gmail.com>
parents: 10160
diff changeset
160 }
a668fbd32e34 improve cellfun & avoid undefined values from builtins
Jaroslav Hajek <highegg@gmail.com>
parents: 10160
diff changeset
161
a668fbd32e34 improve cellfun & avoid undefined values from builtins
Jaroslav Hajek <highegg@gmail.com>
parents: 10160
diff changeset
162 void clear (void)
a668fbd32e34 improve cellfun & avoid undefined values from builtins
Jaroslav Hajek <highegg@gmail.com>
parents: 10160
diff changeset
163 {
a668fbd32e34 improve cellfun & avoid undefined values from builtins
Jaroslav Hajek <highegg@gmail.com>
parents: 10160
diff changeset
164 data.clear ();
a668fbd32e34 improve cellfun & avoid undefined values from builtins
Jaroslav Hajek <highegg@gmail.com>
parents: 10160
diff changeset
165 }
a668fbd32e34 improve cellfun & avoid undefined values from builtins
Jaroslav Hajek <highegg@gmail.com>
parents: 10160
diff changeset
166
526
a01a9db8ab69 [project @ 1994-07-20 18:46:24 by jwe]
jwe
parents: 511
diff changeset
167 private:
508
ef71e51a2280 [project @ 1994-07-10 02:06:07 by jwe]
jwe
parents: 504
diff changeset
168
2970
b9e64477f703 [project @ 1997-05-15 18:04:21 by jwe]
jwe
parents: 2951
diff changeset
169 static octave_allocator allocator;
b9e64477f703 [project @ 1997-05-15 18:04:21 by jwe]
jwe
parents: 2951
diff changeset
170
8579
7e0f36dfefbe implement octave_value_list using Array
Jaroslav Hajek <highegg@gmail.com>
parents: 8546
diff changeset
171 Array<octave_value> data;
2872
6285237ed3b9 [project @ 1997-04-19 01:30:58 by jwe]
jwe
parents: 2847
diff changeset
172
2943
e6dfc3ea6299 [project @ 1997-05-08 02:31:59 by jwe]
jwe
parents: 2877
diff changeset
173 // This list of strings can be used to tag each element of data with
e6dfc3ea6299 [project @ 1997-05-08 02:31:59 by jwe]
jwe
parents: 2877
diff changeset
174 // a name. By default, it is empty.
e6dfc3ea6299 [project @ 1997-05-08 02:31:59 by jwe]
jwe
parents: 2877
diff changeset
175 string_vector names;
e6dfc3ea6299 [project @ 1997-05-08 02:31:59 by jwe]
jwe
parents: 2877
diff changeset
176
5275
23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe]
jwe
parents: 5105
diff changeset
177 octave_value& elem (octave_idx_type n)
1968
a2e206524aa0 [project @ 1996-02-17 02:54:24 by jwe]
jwe
parents: 1884
diff changeset
178 {
8579
7e0f36dfefbe implement octave_value_list using Array
Jaroslav Hajek <highegg@gmail.com>
parents: 8546
diff changeset
179 if (n >= length ())
10313
f3b65e1ae355 untabify src header files
John W. Eaton <jwe@octave.org>
parents: 10181
diff changeset
180 resize (n + 1);
4591
2c9de1be042a [project @ 2003-11-11 00:23:35 by jwe]
jwe
parents: 4548
diff changeset
181
8579
7e0f36dfefbe implement octave_value_list using Array
Jaroslav Hajek <highegg@gmail.com>
parents: 8546
diff changeset
182 return data(n);
1968
a2e206524aa0 [project @ 1996-02-17 02:54:24 by jwe]
jwe
parents: 1884
diff changeset
183 }
a2e206524aa0 [project @ 1996-02-17 02:54:24 by jwe]
jwe
parents: 1884
diff changeset
184
10075
84b0725f4b09 return class types by reference in const Array element access functions
Jaroslav Hajek <highegg@gmail.com>
parents: 9545
diff changeset
185 const octave_value& elem (octave_idx_type n) const
8579
7e0f36dfefbe implement octave_value_list using Array
Jaroslav Hajek <highegg@gmail.com>
parents: 8546
diff changeset
186 { return data(n); }
508
ef71e51a2280 [project @ 1994-07-10 02:06:07 by jwe]
jwe
parents: 504
diff changeset
187 };
498
2e1353465468 [project @ 1994-07-08 02:08:49 by jwe]
jwe
parents:
diff changeset
188
504
be155b3d5a2f [project @ 1994-07-08 23:45:33 by jwe]
jwe
parents: 498
diff changeset
189 #endif