Mercurial > octave-nkf
annotate src/oct-obj.h @ 8579:7e0f36dfefbe
implement octave_value_list using Array
| author | Jaroslav Hajek <highegg@gmail.com> |
|---|---|
| date | Fri, 23 Jan 2009 09:57:19 +0100 |
| parents | 3d8a914c580e |
| children | 188d38a553c7 |
| rev | line source |
|---|---|
| 498 | 1 /* |
| 2 | |
| 7017 | 3 Copyright (C) 1994, 1995, 1996, 1997, 1998, 2000, 2002, 2003, 2004, |
| 4 2005, 2006, 2007 John W. Eaton | |
| 498 | 5 |
| 6 This file is part of Octave. | |
| 7 | |
| 8 Octave is free software; you can redistribute it and/or modify it | |
| 9 under the terms of the GNU General Public License as published by the | |
| 7016 | 10 Free Software Foundation; either version 3 of the License, or (at your |
| 11 option) any later version. | |
| 498 | 12 |
| 13 Octave is distributed in the hope that it will be useful, but WITHOUT | |
| 14 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or | |
| 15 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License | |
| 16 for more details. | |
| 17 | |
| 18 You should have received a copy of the GNU General Public License | |
| 7016 | 19 along with Octave; see the file COPYING. If not, see |
| 20 <http://www.gnu.org/licenses/>. | |
| 498 | 21 |
| 22 */ | |
| 23 | |
| 504 | 24 #if !defined (octave_oct_obj_h) |
| 25 #define octave_oct_obj_h 1 | |
| 26 | |
| 1968 | 27 #include <string> |
| 4591 | 28 #include <vector> |
| 1968 | 29 |
| 2970 | 30 #include "oct-alloc.h" |
| 2943 | 31 #include "str-vec.h" |
|
8579
7e0f36dfefbe
implement octave_value_list using Array
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
32 #include "Array.h" |
| 498 | 33 |
| 2369 | 34 #include "ov.h" |
|
8579
7e0f36dfefbe
implement octave_value_list using Array
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
35 #include "Cell.h" |
| 498 | 36 |
| 737 | 37 class |
| 6109 | 38 OCTINTERP_API |
| 2872 | 39 octave_value_list |
| 508 | 40 { |
| 41 public: | |
| 42 | |
| 2086 | 43 octave_value_list (void) |
| 2872 | 44 : data () { } |
| 1968 | 45 |
| 5275 | 46 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
|
47 : data (dim_vector (1, n), val) { } |
| 511 | 48 |
| 2086 | 49 octave_value_list (const octave_value& tc) |
| 2872 | 50 : data (1, tc) { } |
| 1968 | 51 |
|
8579
7e0f36dfefbe
implement octave_value_list using Array
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
52 octave_value_list (const Array<octave_value>& d) |
|
7e0f36dfefbe
implement octave_value_list using Array
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
53 : data (d.reshape (dim_vector (1, d.numel ()))) { } |
|
7e0f36dfefbe
implement octave_value_list using Array
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
54 |
|
7e0f36dfefbe
implement octave_value_list using Array
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
55 octave_value_list (const Cell& tc) |
|
7e0f36dfefbe
implement octave_value_list using Array
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
56 : data (tc.reshape (dim_vector (1, tc.numel ()))) { } |
|
8546
3d8a914c580e
improve parser indexed assigment code
Jaroslav Hajek <highegg@gmail.com>
parents:
8523
diff
changeset
|
57 |
| 2086 | 58 octave_value_list (const octave_value_list& obj) |
| 4150 | 59 : data (obj.data), names (obj.names) { } |
| 508 | 60 |
| 4189 | 61 ~octave_value_list (void) { } |
| 62 | |
| 2970 | 63 void *operator new (size_t size) |
| 64 { return allocator.alloc (size); } | |
| 65 | |
| 4280 | 66 void operator delete (void *p, size_t size) |
| 67 { allocator.free (p, size); } | |
| 68 | |
| 5775 | 69 // FIXME -- without this, I have errors with the stack of |
| 4214 | 70 // octave_value_list objects in ov-usr-fcn.h. Why? |
| 71 void *operator new (size_t size, void *p) | |
| 72 { return ::operator new (size, p); } | |
| 73 | |
| 4280 | 74 void operator delete (void *p, void *) |
| 4352 | 75 { |
| 76 #if defined (HAVE_PLACEMENT_DELETE) | |
| 77 ::operator delete (p, static_cast<void *> (0)); | |
| 78 #else | |
| 79 ::operator delete (p); | |
| 80 #endif | |
| 81 } | |
| 2970 | 82 |
| 2086 | 83 octave_value_list& operator = (const octave_value_list& obj) |
| 508 | 84 { |
| 1968 | 85 if (this != &obj) |
| 4150 | 86 { |
| 87 data = obj.data; | |
| 88 names = obj.names; | |
| 89 } | |
| 1968 | 90 |
| 508 | 91 return *this; |
| 92 } | |
| 93 | |
|
8579
7e0f36dfefbe
implement octave_value_list using Array
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
94 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
|
95 |
|
7e0f36dfefbe
implement octave_value_list using Array
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
96 Cell cell_value (void) const { return array_value (); } |
|
7e0f36dfefbe
implement octave_value_list using Array
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
97 |
| 2872 | 98 // Assignment will resize on range errors. |
| 508 | 99 |
| 5275 | 100 octave_value& operator () (octave_idx_type n) { return elem (n); } |
| 1968 | 101 |
| 5275 | 102 octave_value operator () (octave_idx_type n) const { return elem (n); } |
| 526 | 103 |
|
8579
7e0f36dfefbe
implement octave_value_list using Array
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
104 octave_idx_type length (void) const { return data.length (); } |
| 2872 | 105 |
| 2951 | 106 bool empty (void) const { return length () == 0; } |
| 107 | |
| 5275 | 108 void resize (octave_idx_type n) { data.resize (n); } |
| 2872 | 109 |
|
8579
7e0f36dfefbe
implement octave_value_list using Array
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
110 void resize (octave_idx_type n, const octave_value& val) |
|
7e0f36dfefbe
implement octave_value_list using Array
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
111 { data.resize (n, val); } |
| 2872 | 112 |
| 113 octave_value_list& prepend (const octave_value& val); | |
| 114 | |
| 115 octave_value_list& append (const octave_value& val); | |
| 116 | |
| 117 octave_value_list& append (const octave_value_list& lst); | |
| 118 | |
| 119 octave_value_list& reverse (void); | |
| 120 | |
| 6335 | 121 octave_value_list |
|
8579
7e0f36dfefbe
implement octave_value_list using Array
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
122 slice (octave_idx_type offset, octave_idx_type len) const |
|
7e0f36dfefbe
implement octave_value_list using Array
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
123 { return data.index (idx_vector (offset, offset + len)); } |
|
7e0f36dfefbe
implement octave_value_list using Array
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
124 |
|
7e0f36dfefbe
implement octave_value_list using Array
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
125 octave_value_list |
| 6335 | 126 splice (octave_idx_type offset, octave_idx_type len, |
| 127 const octave_value_list& lst = octave_value_list ()) const; | |
| 3195 | 128 |
| 2872 | 129 bool all_strings_p (void) const; |
| 1968 | 130 |
|
8455
fd11a08a9b31
disallow invalid {}-indexed assigments
Jaroslav Hajek <highegg@gmail.com>
parents:
8437
diff
changeset
|
131 bool all_scalars (void) const; |
|
fd11a08a9b31
disallow invalid {}-indexed assigments
Jaroslav Hajek <highegg@gmail.com>
parents:
8437
diff
changeset
|
132 |
| 5846 | 133 bool has_magic_colon (void) const; |
| 134 | |
|
8034
f61bd8e0d682
fix default_save_options parsing and allow mixing options with other arguments.
Jaroslav Hajek <highegg@gmail.com>
parents:
7017
diff
changeset
|
135 string_vector make_argv (const std::string& = std::string()) const; |
| 526 | 136 |
| 2943 | 137 void stash_name_tags (const string_vector& nm) { names = nm; } |
| 138 | |
| 139 string_vector name_tags (void) const { return names; } | |
| 140 | |
|
8523
ad3afaaa19c1
implement non-copying contiguous range indexing
Jaroslav Hajek <highegg@gmail.com>
parents:
8455
diff
changeset
|
141 void make_storable_values (void); |
|
8150
283989f2da9b
make null assignment matlab compatible
Jaroslav Hajek <highegg@gmail.com>
parents:
8034
diff
changeset
|
142 |
| 526 | 143 private: |
| 508 | 144 |
| 2970 | 145 static octave_allocator allocator; |
| 146 | |
|
8579
7e0f36dfefbe
implement octave_value_list using Array
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
147 Array<octave_value> data; |
| 2872 | 148 |
| 2943 | 149 // This list of strings can be used to tag each element of data with |
| 150 // a name. By default, it is empty. | |
| 151 string_vector names; | |
| 152 | |
| 2872 | 153 // This constructor is private with no definition to keep statements |
| 154 // like | |
| 155 // | |
| 156 // octave_value_list foo = 5; | |
| 157 // octave_value_list foo = 5.0; | |
| 158 // | |
| 159 // from doing different things. Instead, you have to use the | |
| 160 // constructor | |
| 161 // | |
| 162 // octave_value_list (n, val); | |
| 163 // | |
| 164 // and supply a default value to create a vector-valued | |
| 165 // octave_value_list. | |
| 565 | 166 |
| 5275 | 167 octave_value_list (octave_idx_type n); |
| 565 | 168 |
| 5275 | 169 octave_value& elem (octave_idx_type n) |
| 1968 | 170 { |
|
8579
7e0f36dfefbe
implement octave_value_list using Array
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
171 if (n >= length ()) |
|
7e0f36dfefbe
implement octave_value_list using Array
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
172 resize (n + 1); |
| 4591 | 173 |
|
8579
7e0f36dfefbe
implement octave_value_list using Array
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
174 return data(n); |
| 1968 | 175 } |
| 176 | |
| 5275 | 177 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
|
178 { return data(n); } |
| 508 | 179 }; |
| 498 | 180 |
| 504 | 181 #endif |
| 182 | |
| 498 | 183 /* |
| 184 ;;; Local Variables: *** | |
| 185 ;;; mode: C++ *** | |
| 186 ;;; End: *** | |
| 187 */ |