Mercurial > octave-nkf
annotate src/oct-obj.cc @ 8523:ad3afaaa19c1
implement non-copying contiguous range indexing
| author | Jaroslav Hajek <highegg@gmail.com> |
|---|---|
| date | Thu, 15 Jan 2009 07:22:24 +0100 |
| parents | fd11a08a9b31 |
| children | 3d8a914c580e |
| rev | line source |
|---|---|
| 517 | 1 /* |
| 2 | |
| 7017 | 3 Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2002, 2003, |
| 4 2004, 2005, 2006, 2007 John W. Eaton | |
| 517 | 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. | |
| 517 | 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/>. | |
| 517 | 21 |
| 22 */ | |
| 23 | |
| 24 #ifdef HAVE_CONFIG_H | |
| 1192 | 25 #include <config.h> |
| 517 | 26 #endif |
| 27 | |
| 1968 | 28 #include "error.h" |
| 1742 | 29 #include "oct-obj.h" |
| 517 | 30 |
| 2970 | 31 octave_allocator |
| 32 octave_value_list::allocator (sizeof (octave_value_list)); | |
| 33 | |
| 4591 | 34 void |
| 5275 | 35 octave_value_list::resize (octave_idx_type n, const octave_value& val) |
| 4591 | 36 { |
| 5275 | 37 octave_idx_type len = length (); |
| 4591 | 38 |
| 39 if (n > len) | |
| 40 { | |
| 41 data.resize (n); | |
| 42 | |
| 5275 | 43 for (octave_idx_type i = len; i < n; i++) |
| 4591 | 44 data[i] = val; |
| 45 } | |
| 46 else if (n < len) | |
| 47 data.resize (n); | |
| 48 } | |
| 49 | |
| 2872 | 50 octave_value_list& |
| 51 octave_value_list::prepend (const octave_value& val) | |
| 52 { | |
| 5275 | 53 octave_idx_type n = length (); |
| 2872 | 54 |
| 55 resize (n + 1); | |
| 56 | |
| 57 while (n > 0) | |
| 58 { | |
| 59 elem (n) = elem (n - 1); | |
| 60 n--; | |
| 61 } | |
| 62 | |
| 63 elem (0) = val; | |
| 64 | |
| 65 return *this; | |
| 66 } | |
| 67 | |
| 68 octave_value_list& | |
| 69 octave_value_list::append (const octave_value& val) | |
| 70 { | |
| 5275 | 71 octave_idx_type n = length (); |
| 2872 | 72 |
| 73 resize (n + 1); | |
| 74 | |
| 75 elem (n) = val; | |
| 76 | |
| 77 return *this; | |
| 78 } | |
| 79 | |
| 80 octave_value_list& | |
| 81 octave_value_list::append (const octave_value_list& lst) | |
| 82 { | |
| 5275 | 83 octave_idx_type len = length (); |
| 84 octave_idx_type lst_len = lst.length (); | |
| 2872 | 85 |
| 86 resize (len + lst_len); | |
| 87 | |
| 5275 | 88 for (octave_idx_type i = 0; i < lst_len; i++) |
| 2872 | 89 elem (len + i) = lst (i); |
| 90 | |
| 91 return *this; | |
| 92 } | |
| 93 | |
| 94 octave_value_list& | |
| 95 octave_value_list::reverse (void) | |
| 96 { | |
| 5275 | 97 octave_idx_type n = length (); |
| 2872 | 98 |
| 5275 | 99 for (octave_idx_type i = 0; i < n / 2; i++) |
| 2872 | 100 { |
| 101 octave_value tmp = elem (i); | |
| 102 elem (i) = elem (n - i - 1); | |
| 103 elem (n - i - 1) = tmp; | |
| 104 } | |
| 105 | |
| 106 return *this; | |
| 107 } | |
| 108 | |
| 3195 | 109 octave_value_list |
| 5275 | 110 octave_value_list::splice (octave_idx_type offset, octave_idx_type rep_length, |
| 3195 | 111 const octave_value_list& lst) const |
| 112 { | |
| 113 octave_value_list retval; | |
| 114 | |
| 5275 | 115 octave_idx_type len = length (); |
| 3195 | 116 |
| 117 if (offset < 0 || offset >= len) | |
| 118 { | |
| 3219 | 119 if (! (rep_length == 0 && offset == len)) |
| 120 { | |
| 121 error ("octave_value_list::splice: invalid OFFSET"); | |
| 122 return retval; | |
| 123 } | |
| 3195 | 124 } |
| 125 | |
| 126 if (rep_length < 0 || rep_length + offset > len) | |
| 127 { | |
| 128 error ("octave_value_list::splice: invalid LENGTH"); | |
| 129 return retval; | |
| 130 } | |
| 131 | |
| 5275 | 132 octave_idx_type lst_len = lst.length (); |
| 3195 | 133 |
| 5275 | 134 octave_idx_type new_len = len - rep_length + lst_len; |
| 3195 | 135 |
| 136 retval.resize (new_len); | |
| 137 | |
| 5275 | 138 octave_idx_type k = 0; |
| 3195 | 139 |
| 5275 | 140 for (octave_idx_type i = 0; i < offset; i++) |
| 3195 | 141 retval(k++) = elem (i); |
| 142 | |
| 5275 | 143 for (octave_idx_type i = 0; i < lst_len; i++) |
| 3195 | 144 retval(k++) = lst(i); |
| 145 | |
| 5275 | 146 for (octave_idx_type i = offset + rep_length; i < len; i++) |
| 3195 | 147 retval(k++) = elem (i); |
| 148 | |
| 149 return retval; | |
| 150 } | |
| 151 | |
| 2872 | 152 bool |
| 153 octave_value_list::all_strings_p (void) const | |
| 1968 | 154 { |
| 5275 | 155 octave_idx_type n = length (); |
| 517 | 156 |
| 5275 | 157 for (octave_idx_type i = 0; i < n; i++) |
| 1968 | 158 if (! elem(i).is_string ()) |
| 5846 | 159 return false; |
| 160 | |
| 161 return true; | |
| 162 } | |
| 1746 | 163 |
| 5846 | 164 bool |
|
8455
fd11a08a9b31
disallow invalid {}-indexed assigments
Jaroslav Hajek <highegg@gmail.com>
parents:
8437
diff
changeset
|
165 octave_value_list::all_scalars (void) const |
|
fd11a08a9b31
disallow invalid {}-indexed assigments
Jaroslav Hajek <highegg@gmail.com>
parents:
8437
diff
changeset
|
166 { |
|
fd11a08a9b31
disallow invalid {}-indexed assigments
Jaroslav Hajek <highegg@gmail.com>
parents:
8437
diff
changeset
|
167 octave_idx_type n = length (), i; |
|
fd11a08a9b31
disallow invalid {}-indexed assigments
Jaroslav Hajek <highegg@gmail.com>
parents:
8437
diff
changeset
|
168 |
|
fd11a08a9b31
disallow invalid {}-indexed assigments
Jaroslav Hajek <highegg@gmail.com>
parents:
8437
diff
changeset
|
169 for (i = 0; i < n && elem (i).is_string (); i++) ; |
|
fd11a08a9b31
disallow invalid {}-indexed assigments
Jaroslav Hajek <highegg@gmail.com>
parents:
8437
diff
changeset
|
170 |
|
fd11a08a9b31
disallow invalid {}-indexed assigments
Jaroslav Hajek <highegg@gmail.com>
parents:
8437
diff
changeset
|
171 return i == n; |
|
fd11a08a9b31
disallow invalid {}-indexed assigments
Jaroslav Hajek <highegg@gmail.com>
parents:
8437
diff
changeset
|
172 } |
|
fd11a08a9b31
disallow invalid {}-indexed assigments
Jaroslav Hajek <highegg@gmail.com>
parents:
8437
diff
changeset
|
173 |
|
fd11a08a9b31
disallow invalid {}-indexed assigments
Jaroslav Hajek <highegg@gmail.com>
parents:
8437
diff
changeset
|
174 bool |
| 5846 | 175 octave_value_list::has_magic_colon (void) const |
| 176 { | |
| 177 octave_idx_type n = length (); | |
| 178 | |
| 179 for (octave_idx_type i = 0; i < n; i++) | |
| 180 if (elem(i).is_magic_colon ()) | |
| 181 return true; | |
| 182 | |
| 183 return false; | |
| 517 | 184 } |
| 185 | |
| 1968 | 186 string_vector |
| 3523 | 187 octave_value_list::make_argv (const std::string& fcn_name) const |
| 517 | 188 { |
| 1968 | 189 string_vector argv; |
| 190 | |
| 2872 | 191 if (all_strings_p ()) |
| 1968 | 192 { |
| 5275 | 193 octave_idx_type len = length (); |
| 3180 | 194 |
| 5275 | 195 octave_idx_type total_nr = 0; |
| 3180 | 196 |
| 5275 | 197 for (octave_idx_type i = 0; i < len; i++) |
| 3264 | 198 { |
| 3523 | 199 // An empty std::string ("") has zero columns and zero rows (a |
| 3264 | 200 // change that was made for Matlab contemptibility. |
| 201 | |
| 5275 | 202 octave_idx_type n = elem(i).rows (); |
| 3264 | 203 |
| 204 total_nr += n ? n : 1; | |
| 205 } | |
| 3180 | 206 |
|
8034
f61bd8e0d682
fix default_save_options parsing and allow mixing options with other arguments.
Jaroslav Hajek <highegg@gmail.com>
parents:
7017
diff
changeset
|
207 octave_idx_type k = 0; |
|
f61bd8e0d682
fix default_save_options parsing and allow mixing options with other arguments.
Jaroslav Hajek <highegg@gmail.com>
parents:
7017
diff
changeset
|
208 if (! fcn_name.empty ()) |
|
f61bd8e0d682
fix default_save_options parsing and allow mixing options with other arguments.
Jaroslav Hajek <highegg@gmail.com>
parents:
7017
diff
changeset
|
209 { |
|
f61bd8e0d682
fix default_save_options parsing and allow mixing options with other arguments.
Jaroslav Hajek <highegg@gmail.com>
parents:
7017
diff
changeset
|
210 argv.resize (total_nr+1); |
|
f61bd8e0d682
fix default_save_options parsing and allow mixing options with other arguments.
Jaroslav Hajek <highegg@gmail.com>
parents:
7017
diff
changeset
|
211 argv[0] = fcn_name; |
|
f61bd8e0d682
fix default_save_options parsing and allow mixing options with other arguments.
Jaroslav Hajek <highegg@gmail.com>
parents:
7017
diff
changeset
|
212 k = 1; |
|
f61bd8e0d682
fix default_save_options parsing and allow mixing options with other arguments.
Jaroslav Hajek <highegg@gmail.com>
parents:
7017
diff
changeset
|
213 } |
|
f61bd8e0d682
fix default_save_options parsing and allow mixing options with other arguments.
Jaroslav Hajek <highegg@gmail.com>
parents:
7017
diff
changeset
|
214 else |
|
f61bd8e0d682
fix default_save_options parsing and allow mixing options with other arguments.
Jaroslav Hajek <highegg@gmail.com>
parents:
7017
diff
changeset
|
215 argv.resize (total_nr); |
| 3180 | 216 |
| 5275 | 217 for (octave_idx_type i = 0; i < len; i++) |
| 3180 | 218 { |
| 5275 | 219 octave_idx_type nr = elem(i).rows (); |
| 3180 | 220 |
| 3264 | 221 if (nr < 2) |
| 3180 | 222 argv[k++] = elem(i).string_value (); |
| 223 else | |
| 224 { | |
| 225 string_vector tmp = elem(i).all_strings (); | |
| 226 | |
| 5275 | 227 for (octave_idx_type j = 0; j < nr; j++) |
| 3180 | 228 argv[k++] = tmp[j]; |
| 229 } | |
| 230 } | |
| 1968 | 231 } |
| 232 else | |
| 233 error ("%s: expecting all arguments to be strings", fcn_name.c_str ()); | |
| 517 | 234 |
| 1968 | 235 return argv; |
| 517 | 236 } |
| 237 | |
|
8150
283989f2da9b
make null assignment matlab compatible
Jaroslav Hajek <highegg@gmail.com>
parents:
8034
diff
changeset
|
238 void |
|
8523
ad3afaaa19c1
implement non-copying contiguous range indexing
Jaroslav Hajek <highegg@gmail.com>
parents:
8455
diff
changeset
|
239 octave_value_list::make_storable_values (void) |
|
8150
283989f2da9b
make null assignment matlab compatible
Jaroslav Hajek <highegg@gmail.com>
parents:
8034
diff
changeset
|
240 { |
|
283989f2da9b
make null assignment matlab compatible
Jaroslav Hajek <highegg@gmail.com>
parents:
8034
diff
changeset
|
241 octave_idx_type len = length (); |
|
283989f2da9b
make null assignment matlab compatible
Jaroslav Hajek <highegg@gmail.com>
parents:
8034
diff
changeset
|
242 for (octave_idx_type i = 0; i < len; i++) |
|
8523
ad3afaaa19c1
implement non-copying contiguous range indexing
Jaroslav Hajek <highegg@gmail.com>
parents:
8455
diff
changeset
|
243 data[i].make_storable_value (); |
|
8150
283989f2da9b
make null assignment matlab compatible
Jaroslav Hajek <highegg@gmail.com>
parents:
8034
diff
changeset
|
244 } |
|
283989f2da9b
make null assignment matlab compatible
Jaroslav Hajek <highegg@gmail.com>
parents:
8034
diff
changeset
|
245 |
| 517 | 246 /* |
| 247 ;;; Local Variables: *** | |
| 248 ;;; mode: C++ *** | |
| 249 ;;; End: *** | |
| 250 */ |