Mercurial > octave-nkf
annotate src/pt-idx.cc @ 9125:8ab1e6f63cdc
gripe on magic end query for undefined variable
| author | Jaroslav Hajek <highegg@gmail.com> |
|---|---|
| date | Thu, 16 Apr 2009 09:25:22 +0200 |
| parents | eb63fbe60fab |
| children | 67fc970dad7d c663c1a78c4a |
| rev | line source |
|---|---|
| 2980 | 1 /* |
| 2 | |
| 7017 | 3 Copyright (C) 1996, 1997, 1998, 2000, 2002, 2003, 2004, 2005, 2006, |
| 8920 | 4 2007, 2008, 2009 John W. Eaton |
| 2980 | 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. | |
| 2980 | 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/>. | |
| 2980 | 21 |
| 22 */ | |
| 23 | |
| 24 #ifdef HAVE_CONFIG_H | |
| 25 #include <config.h> | |
| 26 #endif | |
| 27 | |
| 3933 | 28 #include "Cell.h" |
| 2980 | 29 #include "error.h" |
| 3930 | 30 #include "oct-map.h" |
| 2980 | 31 #include "oct-obj.h" |
| 32 #include "oct-lvalue.h" | |
| 33 #include "ov.h" | |
| 3930 | 34 #include "pager.h" |
| 2982 | 35 #include "pt-arg-list.h" |
| 3930 | 36 #include "pt-bp.h" |
| 7336 | 37 #include "pt-id.h" |
| 2980 | 38 #include "pt-idx.h" |
| 39 #include "pt-walk.h" | |
| 3930 | 40 #include "utils.h" |
| 41 #include "variables.h" | |
|
8579
7e0f36dfefbe
implement octave_value_list using Array
Jaroslav Hajek <highegg@gmail.com>
parents:
8564
diff
changeset
|
42 #include "gripes.h" |
| 2980 | 43 |
| 44 // Index expressions. | |
| 45 | |
| 5861 | 46 tree_index_expression::tree_index_expression (int l, int c) |
|
7791
975e9540be2c
pt-idx.cc: initialize fields in constructors
John W. Eaton <jwe@octave.org>
parents:
7790
diff
changeset
|
47 : tree_expression (l, c), expr (0), args (0), type (), |
| 5861 | 48 arg_nm (), dyn_field () { } |
| 49 | |
| 3546 | 50 tree_index_expression::tree_index_expression (tree_expression *e, |
| 51 tree_argument_list *lst, | |
| 3933 | 52 int l, int c, char t) |
|
7791
975e9540be2c
pt-idx.cc: initialize fields in constructors
John W. Eaton <jwe@octave.org>
parents:
7790
diff
changeset
|
53 : tree_expression (l, c), expr (e), args (0), type (), |
| 4131 | 54 arg_nm (), dyn_field () |
| 3933 | 55 { |
| 56 append (lst, t); | |
| 57 } | |
| 3215 | 58 |
| 3930 | 59 tree_index_expression::tree_index_expression (tree_expression *e, |
| 60 const std::string& n, | |
| 3944 | 61 int l, int c) |
|
7791
975e9540be2c
pt-idx.cc: initialize fields in constructors
John W. Eaton <jwe@octave.org>
parents:
7790
diff
changeset
|
62 : tree_expression (l, c), expr (e), args (0), type (), |
| 4131 | 63 arg_nm (), dyn_field () |
| 3933 | 64 { |
| 65 append (n); | |
| 66 } | |
| 67 | |
| 4131 | 68 tree_index_expression::tree_index_expression (tree_expression *e, |
| 69 tree_expression *df, | |
| 70 int l, int c) | |
|
7791
975e9540be2c
pt-idx.cc: initialize fields in constructors
John W. Eaton <jwe@octave.org>
parents:
7790
diff
changeset
|
71 : tree_expression (l, c), expr (e), args (0), type (), |
| 4131 | 72 arg_nm (), dyn_field () |
| 73 { | |
| 74 append (df); | |
| 75 } | |
| 76 | |
| 3933 | 77 void |
| 78 tree_index_expression::append (tree_argument_list *lst, char t) | |
| 79 { | |
| 4219 | 80 args.push_back (lst); |
| 3933 | 81 type.append (1, t); |
| 4219 | 82 arg_nm.push_back (lst ? lst->get_arg_names () : string_vector ()); |
| 83 dyn_field.push_back (static_cast<tree_expression *> (0)); | |
| 3933 | 84 } |
| 85 | |
| 86 void | |
| 87 tree_index_expression::append (const std::string& n) | |
| 88 { | |
| 4219 | 89 args.push_back (static_cast<tree_argument_list *> (0)); |
| 3933 | 90 type.append ("."); |
| 4219 | 91 arg_nm.push_back (n); |
| 92 dyn_field.push_back (static_cast<tree_expression *> (0)); | |
| 4131 | 93 } |
| 94 | |
| 95 void | |
| 96 tree_index_expression::append (tree_expression *df) | |
| 97 { | |
| 4219 | 98 args.push_back (static_cast<tree_argument_list *> (0)); |
| 4131 | 99 type.append ("."); |
| 4219 | 100 arg_nm.push_back (""); |
| 101 dyn_field.push_back (df); | |
| 3933 | 102 } |
| 3930 | 103 |
| 2980 | 104 tree_index_expression::~tree_index_expression (void) |
| 105 { | |
| 106 delete expr; | |
| 3933 | 107 |
| 108 while (! args.empty ()) | |
| 109 { | |
| 4219 | 110 std::list<tree_argument_list *>::iterator p = args.begin (); |
| 111 delete *p; | |
| 112 args.erase (p); | |
| 3933 | 113 } |
| 2980 | 114 } |
| 115 | |
| 5099 | 116 bool |
| 117 tree_index_expression::has_magic_end (void) const | |
| 118 { | |
| 119 for (std::list<tree_argument_list *>::const_iterator p = args.begin (); | |
| 120 p != args.end (); | |
| 121 p++) | |
| 122 { | |
| 123 tree_argument_list *elt = *p; | |
| 124 | |
| 125 if (elt && elt->has_magic_end ()) | |
| 126 return true; | |
| 127 } | |
| 128 | |
| 129 return false; | |
| 130 } | |
| 131 | |
| 2991 | 132 // This is useful for printing the name of the variable in an indexed |
| 133 // assignment. | |
| 134 | |
| 3536 | 135 std::string |
| 2991 | 136 tree_index_expression::name (void) const |
| 137 { | |
| 4131 | 138 return expr->name (); |
| 3933 | 139 } |
| 140 | |
| 141 static Cell | |
| 142 make_subs_cell (tree_argument_list *args, const string_vector& arg_nm) | |
| 143 { | |
| 144 Cell retval; | |
| 145 | |
| 146 octave_value_list arg_values; | |
| 147 | |
| 148 if (args) | |
| 149 arg_values = args->convert_to_const_vector (); | |
| 150 | |
| 151 if (! error_state) | |
| 152 { | |
| 153 int n = arg_values.length (); | |
| 154 | |
| 155 if (n > 0) | |
| 156 { | |
| 157 arg_values.stash_name_tags (arg_nm); | |
| 158 | |
| 4548 | 159 retval.resize (dim_vector (1, n)); |
| 3933 | 160 |
| 161 for (int i = 0; i < n; i++) | |
| 162 retval(0,i) = arg_values(i); | |
| 163 } | |
| 164 } | |
| 165 | |
| 166 return retval; | |
| 167 } | |
| 168 | |
| 169 static inline octave_value_list | |
| 4234 | 170 make_value_list (tree_argument_list *args, const string_vector& arg_nm, |
| 171 const octave_value *object) | |
| 3933 | 172 { |
| 173 octave_value_list retval; | |
| 174 | |
| 175 if (args) | |
|
9125
8ab1e6f63cdc
gripe on magic end query for undefined variable
Jaroslav Hajek <highegg@gmail.com>
parents:
8920
diff
changeset
|
176 { |
|
8ab1e6f63cdc
gripe on magic end query for undefined variable
Jaroslav Hajek <highegg@gmail.com>
parents:
8920
diff
changeset
|
177 if (object && args->has_magic_end () && object->is_undefined ()) |
|
8ab1e6f63cdc
gripe on magic end query for undefined variable
Jaroslav Hajek <highegg@gmail.com>
parents:
8920
diff
changeset
|
178 gripe_invalid_inquiry_subscript (); |
|
8ab1e6f63cdc
gripe on magic end query for undefined variable
Jaroslav Hajek <highegg@gmail.com>
parents:
8920
diff
changeset
|
179 else |
|
8ab1e6f63cdc
gripe on magic end query for undefined variable
Jaroslav Hajek <highegg@gmail.com>
parents:
8920
diff
changeset
|
180 retval = args->convert_to_const_vector (object); |
|
8ab1e6f63cdc
gripe on magic end query for undefined variable
Jaroslav Hajek <highegg@gmail.com>
parents:
8920
diff
changeset
|
181 } |
| 3933 | 182 |
| 183 if (! error_state) | |
| 184 { | |
| 185 int n = retval.length (); | |
| 186 | |
| 187 if (n > 0) | |
| 188 retval.stash_name_tags (arg_nm); | |
| 189 } | |
| 190 | |
| 191 return retval; | |
| 192 } | |
| 193 | |
| 4131 | 194 std::string |
| 4219 | 195 tree_index_expression::get_struct_index |
| 196 (std::list<string_vector>::const_iterator p_arg_nm, | |
| 197 std::list<tree_expression *>::const_iterator p_dyn_field) const | |
| 4131 | 198 { |
| 4219 | 199 std::string fn = (*p_arg_nm)(0); |
| 4131 | 200 |
| 201 if (fn.empty ()) | |
| 202 { | |
| 4219 | 203 tree_expression *df = *p_dyn_field; |
| 4131 | 204 |
| 205 if (df) | |
| 206 { | |
|
8658
73c4516fae10
New evaluator and debugger derived from tree-walker class
John W. Eaton <jwe@octave.org>
parents:
8580
diff
changeset
|
207 octave_value t = df->rvalue1 (); |
| 4131 | 208 |
| 209 if (! error_state) | |
| 4143 | 210 { |
| 211 fn = t.string_value (); | |
| 212 | |
| 213 if (! valid_identifier (fn)) | |
| 6811 | 214 ::error ("invalid structure field name `%s'", fn.c_str ()); |
| 4143 | 215 } |
| 4131 | 216 } |
| 217 else | |
| 218 panic_impossible (); | |
| 219 } | |
| 220 | |
| 221 return fn; | |
| 222 } | |
| 223 | |
| 3933 | 224 Octave_map |
| 225 tree_index_expression::make_arg_struct (void) const | |
| 226 { | |
| 4219 | 227 int n = args.size (); |
| 3933 | 228 |
| 7336 | 229 Cell type_field (n, 1); |
| 230 Cell subs_field (n, 1); | |
| 3933 | 231 |
| 4219 | 232 std::list<tree_argument_list *>::const_iterator p_args = args.begin (); |
| 233 std::list<string_vector>::const_iterator p_arg_nm = arg_nm.begin (); | |
| 234 std::list<tree_expression *>::const_iterator p_dyn_field = dyn_field.begin (); | |
| 3933 | 235 |
| 236 Octave_map m; | |
| 237 | |
| 238 for (int i = 0; i < n; i++) | |
| 239 { | |
| 240 switch (type[i]) | |
| 241 { | |
| 242 case '(': | |
| 7336 | 243 subs_field(i) = make_subs_cell (*p_args, *p_arg_nm); |
| 3933 | 244 break; |
| 245 | |
| 246 case '{': | |
| 7336 | 247 subs_field(i) = make_subs_cell (*p_args, *p_arg_nm); |
| 3933 | 248 break; |
| 249 | |
| 250 case '.': | |
|
8011
3100283874d7
improve backtrace error messages
John W. Eaton <jwe@octave.org>
parents:
7791
diff
changeset
|
251 subs_field(i) = get_struct_index (p_arg_nm, p_dyn_field); |
| 3933 | 252 break; |
| 253 | |
| 254 default: | |
| 255 panic_impossible (); | |
| 256 } | |
| 257 | |
| 258 if (error_state) | |
| 259 return m; | |
| 260 | |
| 4219 | 261 p_args++; |
| 262 p_arg_nm++; | |
| 263 p_dyn_field++; | |
| 3933 | 264 } |
| 265 | |
| 7336 | 266 m.assign ("type", type_field); |
| 267 m.assign ("subs", subs_field); | |
| 3933 | 268 |
| 269 return m; | |
| 2991 | 270 } |
| 271 | |
| 2980 | 272 octave_value_list |
| 273 tree_index_expression::rvalue (int nargout) | |
| 274 { | |
| 275 octave_value_list retval; | |
| 276 | |
| 277 if (error_state) | |
| 278 return retval; | |
| 279 | |
| 7336 | 280 octave_value first_expr_val; |
| 281 | |
| 282 octave_value_list first_args; | |
| 283 | |
| 284 bool have_args = false; | |
| 285 | |
| 286 if (expr->is_identifier () && type[0] == '(') | |
| 287 { | |
| 288 tree_identifier *id = dynamic_cast<tree_identifier *> (expr); | |
| 289 | |
| 290 if (! (id->is_variable () || args.empty ())) | |
| 291 { | |
| 292 tree_argument_list *al = *(args.begin ()); | |
| 293 | |
| 294 size_t n = al ? al->length () : 0; | |
| 295 | |
| 296 if (n > 0) | |
| 297 { | |
| 298 string_vector anm = *(arg_nm.begin ()); | |
| 299 | |
| 300 first_expr_val = id->do_lookup (al, anm, first_args, have_args); | |
| 301 } | |
| 302 } | |
| 303 } | |
| 2980 | 304 |
| 305 if (! error_state) | |
| 306 { | |
| 7336 | 307 if (first_expr_val.is_undefined ()) |
|
8658
73c4516fae10
New evaluator and debugger derived from tree-walker class
John W. Eaton <jwe@octave.org>
parents:
8580
diff
changeset
|
308 first_expr_val = expr->rvalue1 (); |
| 7336 | 309 |
| 310 octave_value tmp = first_expr_val; | |
|
8551
906f976d35a8
further improve struct&cell indexing & indexed assignment
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
311 octave_idx_type tmpi = 0; |
| 7336 | 312 |
| 4219 | 313 std::list<octave_value_list> idx; |
| 3930 | 314 |
| 4219 | 315 int n = args.size (); |
| 3933 | 316 |
| 4219 | 317 std::list<tree_argument_list *>::iterator p_args = args.begin (); |
| 318 std::list<string_vector>::iterator p_arg_nm = arg_nm.begin (); | |
| 319 std::list<tree_expression *>::iterator p_dyn_field = dyn_field.begin (); | |
| 3930 | 320 |
| 3933 | 321 for (int i = 0; i < n; i++) |
| 322 { | |
| 4432 | 323 if (i > 0) |
| 324 { | |
| 325 tree_argument_list *al = *p_args; | |
| 326 | |
| 327 if (al && al->has_magic_end ()) | |
| 328 { | |
| 329 // We have an expression like | |
| 330 // | |
| 331 // x{end}.a(end) | |
| 332 // | |
| 333 // and we are looking at the argument list that | |
| 334 // contains the second (or third, etc.) "end" token, | |
| 335 // so we must evaluate everything up to the point of | |
| 7336 | 336 // that argument list so we can pass the appropriate |
| 4432 | 337 // value to the built-in __end__ function. |
| 338 | |
|
8580
188d38a553c7
further indexing optimization touches
Jaroslav Hajek <highegg@gmail.com>
parents:
8579
diff
changeset
|
339 const octave_value_list tmp_list |
|
8551
906f976d35a8
further improve struct&cell indexing & indexed assignment
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
340 = tmp.subsref (type.substr (tmpi, i - tmpi), idx, nargout); |
| 4432 | 341 |
| 342 tmp = tmp_list(0); | |
|
8551
906f976d35a8
further improve struct&cell indexing & indexed assignment
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
343 tmpi = i; |
|
906f976d35a8
further improve struct&cell indexing & indexed assignment
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
344 idx.clear (); |
|
906f976d35a8
further improve struct&cell indexing & indexed assignment
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
345 |
|
906f976d35a8
further improve struct&cell indexing & indexed assignment
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
346 if (tmp.is_cs_list ()) |
|
906f976d35a8
further improve struct&cell indexing & indexed assignment
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
347 gripe_indexed_cs_list (); |
| 4432 | 348 |
| 349 if (error_state) | |
| 350 break; | |
| 351 } | |
| 352 } | |
| 353 | |
| 3933 | 354 switch (type[i]) |
| 355 { | |
| 356 case '(': | |
| 7336 | 357 if (have_args) |
| 358 { | |
| 359 idx.push_back (first_args); | |
| 360 have_args = false; | |
| 361 } | |
| 362 else | |
| 363 idx.push_back (make_value_list (*p_args, *p_arg_nm, &tmp)); | |
| 3933 | 364 break; |
| 3930 | 365 |
| 3933 | 366 case '{': |
| 4234 | 367 idx.push_back (make_value_list (*p_args, *p_arg_nm, &tmp)); |
| 3933 | 368 break; |
| 2980 | 369 |
| 3933 | 370 case '.': |
|
8011
3100283874d7
improve backtrace error messages
John W. Eaton <jwe@octave.org>
parents:
7791
diff
changeset
|
371 idx.push_back (octave_value (get_struct_index (p_arg_nm, p_dyn_field))); |
| 3933 | 372 break; |
| 3930 | 373 |
| 3933 | 374 default: |
| 375 panic_impossible (); | |
| 376 } | |
| 3930 | 377 |
| 3933 | 378 if (error_state) |
| 379 break; | |
| 380 | |
| 4219 | 381 p_args++; |
| 382 p_arg_nm++; | |
| 383 p_dyn_field++; | |
| 2980 | 384 } |
| 3933 | 385 |
| 386 if (! error_state) | |
|
8551
906f976d35a8
further improve struct&cell indexing & indexed assignment
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
387 retval = tmp.subsref (type.substr (tmpi, n - tmpi), idx, nargout); |
| 2980 | 388 } |
| 389 | |
| 390 return retval; | |
| 391 } | |
| 392 | |
| 393 octave_value | |
|
8658
73c4516fae10
New evaluator and debugger derived from tree-walker class
John W. Eaton <jwe@octave.org>
parents:
8580
diff
changeset
|
394 tree_index_expression::rvalue1 (int nargout) |
| 2980 | 395 { |
| 396 octave_value retval; | |
| 397 | |
|
8658
73c4516fae10
New evaluator and debugger derived from tree-walker class
John W. Eaton <jwe@octave.org>
parents:
8580
diff
changeset
|
398 const octave_value_list tmp = rvalue (nargout); |
| 2980 | 399 |
| 400 if (! tmp.empty ()) | |
| 401 retval = tmp(0); | |
| 402 | |
| 403 return retval; | |
| 404 } | |
| 405 | |
| 406 octave_lvalue | |
| 407 tree_index_expression::lvalue (void) | |
| 408 { | |
| 409 octave_lvalue retval; | |
| 410 | |
| 4219 | 411 std::list<octave_value_list> idx; |
| 3933 | 412 |
| 4219 | 413 int n = args.size (); |
| 3933 | 414 |
| 4219 | 415 std::list<tree_argument_list *>::iterator p_args = args.begin (); |
| 416 std::list<string_vector>::iterator p_arg_nm = arg_nm.begin (); | |
| 417 std::list<tree_expression *>::iterator p_dyn_field = dyn_field.begin (); | |
| 3933 | 418 |
| 4234 | 419 retval = expr->lvalue (); |
| 3933 | 420 |
| 2980 | 421 if (! error_state) |
| 422 { | |
| 4432 | 423 // I think it is OK to have a copy here. |
| 424 | |
| 425 const octave_value *tro = retval.object (); | |
| 426 | |
| 427 octave_value first_retval_object; | |
| 428 | |
| 429 if (tro) | |
| 430 first_retval_object = *tro; | |
| 431 | |
| 432 octave_value tmp = first_retval_object; | |
|
8551
906f976d35a8
further improve struct&cell indexing & indexed assignment
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
433 octave_idx_type tmpi = 0; |
|
906f976d35a8
further improve struct&cell indexing & indexed assignment
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
434 std::list<octave_value_list> tmpidx; |
| 4234 | 435 |
| 436 for (int i = 0; i < n; i++) | |
| 437 { | |
|
8551
906f976d35a8
further improve struct&cell indexing & indexed assignment
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
438 if (retval.numel () != 1) |
|
906f976d35a8
further improve struct&cell indexing & indexed assignment
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
439 gripe_indexed_cs_list (); |
|
906f976d35a8
further improve struct&cell indexing & indexed assignment
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
440 |
|
906f976d35a8
further improve struct&cell indexing & indexed assignment
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
441 if (i > 0) |
|
906f976d35a8
further improve struct&cell indexing & indexed assignment
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
442 { |
|
906f976d35a8
further improve struct&cell indexing & indexed assignment
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
443 tree_argument_list *al = *p_args; |
| 4432 | 444 |
|
8551
906f976d35a8
further improve struct&cell indexing & indexed assignment
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
445 if (al && al->has_magic_end ()) |
|
906f976d35a8
further improve struct&cell indexing & indexed assignment
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
446 { |
|
906f976d35a8
further improve struct&cell indexing & indexed assignment
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
447 // We have an expression like |
|
906f976d35a8
further improve struct&cell indexing & indexed assignment
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
448 // |
|
906f976d35a8
further improve struct&cell indexing & indexed assignment
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
449 // x{end}.a(end) |
|
906f976d35a8
further improve struct&cell indexing & indexed assignment
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
450 // |
|
906f976d35a8
further improve struct&cell indexing & indexed assignment
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
451 // and we are looking at the argument list that |
|
906f976d35a8
further improve struct&cell indexing & indexed assignment
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
452 // contains the second (or third, etc.) "end" token, |
|
906f976d35a8
further improve struct&cell indexing & indexed assignment
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
453 // so we must evaluate everything up to the point of |
|
906f976d35a8
further improve struct&cell indexing & indexed assignment
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
454 // that argument list so we pass the appropriate |
|
906f976d35a8
further improve struct&cell indexing & indexed assignment
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
455 // value to the built-in __end__ function. |
| 4432 | 456 |
|
8551
906f976d35a8
further improve struct&cell indexing & indexed assignment
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
457 if (tmp.is_defined ()) |
|
8546
3d8a914c580e
improve parser indexed assigment code
Jaroslav Hajek <highegg@gmail.com>
parents:
8011
diff
changeset
|
458 { |
|
8551
906f976d35a8
further improve struct&cell indexing & indexed assignment
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
459 if (tmpi < i) |
|
906f976d35a8
further improve struct&cell indexing & indexed assignment
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
460 { |
|
906f976d35a8
further improve struct&cell indexing & indexed assignment
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
461 tmp = tmp.subsref (type.substr (tmpi, i - tmpi), tmpidx, true); |
| 4432 | 462 |
|
8551
906f976d35a8
further improve struct&cell indexing & indexed assignment
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
463 tmpi = i; |
|
906f976d35a8
further improve struct&cell indexing & indexed assignment
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
464 tmpidx.clear (); |
|
906f976d35a8
further improve struct&cell indexing & indexed assignment
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
465 } |
|
8546
3d8a914c580e
improve parser indexed assigment code
Jaroslav Hajek <highegg@gmail.com>
parents:
8011
diff
changeset
|
466 } |
|
3d8a914c580e
improve parser indexed assigment code
Jaroslav Hajek <highegg@gmail.com>
parents:
8011
diff
changeset
|
467 else |
|
3d8a914c580e
improve parser indexed assigment code
Jaroslav Hajek <highegg@gmail.com>
parents:
8011
diff
changeset
|
468 gripe_invalid_inquiry_subscript (); |
| 4432 | 469 |
|
8551
906f976d35a8
further improve struct&cell indexing & indexed assignment
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
470 if (tmp.is_undefined ()) |
|
906f976d35a8
further improve struct&cell indexing & indexed assignment
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
471 gripe_invalid_inquiry_subscript (); |
|
906f976d35a8
further improve struct&cell indexing & indexed assignment
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
472 else if (tmp.is_cs_list ()) |
|
906f976d35a8
further improve struct&cell indexing & indexed assignment
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
473 gripe_indexed_cs_list (); |
|
906f976d35a8
further improve struct&cell indexing & indexed assignment
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
474 |
|
906f976d35a8
further improve struct&cell indexing & indexed assignment
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
475 if (error_state) |
|
906f976d35a8
further improve struct&cell indexing & indexed assignment
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
476 break; |
|
906f976d35a8
further improve struct&cell indexing & indexed assignment
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
477 } |
|
906f976d35a8
further improve struct&cell indexing & indexed assignment
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
478 } |
| 4432 | 479 |
| 4234 | 480 switch (type[i]) |
| 481 { | |
| 482 case '(': | |
|
8551
906f976d35a8
further improve struct&cell indexing & indexed assignment
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
483 { |
|
906f976d35a8
further improve struct&cell indexing & indexed assignment
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
484 octave_value_list tidx |
|
906f976d35a8
further improve struct&cell indexing & indexed assignment
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
485 = make_value_list (*p_args, *p_arg_nm, &tmp); |
|
906f976d35a8
further improve struct&cell indexing & indexed assignment
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
486 idx.push_back (tidx); |
|
906f976d35a8
further improve struct&cell indexing & indexed assignment
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
487 tmpidx.push_back (tidx); |
|
906f976d35a8
further improve struct&cell indexing & indexed assignment
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
488 } |
|
906f976d35a8
further improve struct&cell indexing & indexed assignment
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
489 break; |
| 4234 | 490 |
| 491 case '{': | |
| 5846 | 492 { |
| 493 octave_value_list tidx | |
| 494 = make_value_list (*p_args, *p_arg_nm, &tmp); | |
| 495 | |
|
8551
906f976d35a8
further improve struct&cell indexing & indexed assignment
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
496 if (! tidx.all_scalars ()) |
|
906f976d35a8
further improve struct&cell indexing & indexed assignment
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
497 { |
|
906f976d35a8
further improve struct&cell indexing & indexed assignment
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
498 octave_idx_type nel = 1; |
| 5846 | 499 |
|
8551
906f976d35a8
further improve struct&cell indexing & indexed assignment
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
500 octave_idx_type nidx = tidx.length (); |
|
906f976d35a8
further improve struct&cell indexing & indexed assignment
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
501 |
|
8546
3d8a914c580e
improve parser indexed assigment code
Jaroslav Hajek <highegg@gmail.com>
parents:
8011
diff
changeset
|
502 // Possible cs-list. |
|
8551
906f976d35a8
further improve struct&cell indexing & indexed assignment
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
503 bool has_magic_colon = tidx.has_magic_colon (); |
|
906f976d35a8
further improve struct&cell indexing & indexed assignment
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
504 dim_vector dims; |
| 5846 | 505 |
|
8551
906f976d35a8
further improve struct&cell indexing & indexed assignment
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
506 if (has_magic_colon) |
| 5846 | 507 { |
|
8551
906f976d35a8
further improve struct&cell indexing & indexed assignment
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
508 if (tmp.is_defined ()) |
|
8546
3d8a914c580e
improve parser indexed assigment code
Jaroslav Hajek <highegg@gmail.com>
parents:
8011
diff
changeset
|
509 { |
|
8551
906f976d35a8
further improve struct&cell indexing & indexed assignment
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
510 if (tmpi < i) |
|
8546
3d8a914c580e
improve parser indexed assigment code
Jaroslav Hajek <highegg@gmail.com>
parents:
8011
diff
changeset
|
511 { |
|
8551
906f976d35a8
further improve struct&cell indexing & indexed assignment
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
512 tmp = tmp.subsref (type.substr (tmpi, i - tmpi), tmpidx, true); |
|
906f976d35a8
further improve struct&cell indexing & indexed assignment
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
513 tmpi = i; |
|
906f976d35a8
further improve struct&cell indexing & indexed assignment
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
514 tmpidx.clear (); |
|
906f976d35a8
further improve struct&cell indexing & indexed assignment
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
515 } |
| 5846 | 516 |
|
8551
906f976d35a8
further improve struct&cell indexing & indexed assignment
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
517 if (tmp.is_undefined ()) |
|
906f976d35a8
further improve struct&cell indexing & indexed assignment
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
518 gripe_invalid_inquiry_subscript (); |
|
906f976d35a8
further improve struct&cell indexing & indexed assignment
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
519 else if (tmp.is_cs_list ()) |
|
906f976d35a8
further improve struct&cell indexing & indexed assignment
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
520 gripe_indexed_cs_list (); |
|
906f976d35a8
further improve struct&cell indexing & indexed assignment
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
521 |
|
906f976d35a8
further improve struct&cell indexing & indexed assignment
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
522 dims = (nidx == 1) ? dim_vector (tmp.numel (), 1) : tmp.dims (); |
|
8546
3d8a914c580e
improve parser indexed assigment code
Jaroslav Hajek <highegg@gmail.com>
parents:
8011
diff
changeset
|
523 } |
|
3d8a914c580e
improve parser indexed assigment code
Jaroslav Hajek <highegg@gmail.com>
parents:
8011
diff
changeset
|
524 else |
|
3d8a914c580e
improve parser indexed assigment code
Jaroslav Hajek <highegg@gmail.com>
parents:
8011
diff
changeset
|
525 gripe_invalid_inquiry_subscript (); |
| 5846 | 526 |
|
8551
906f976d35a8
further improve struct&cell indexing & indexed assignment
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
527 if (error_state) |
|
906f976d35a8
further improve struct&cell indexing & indexed assignment
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
528 break; |
|
906f976d35a8
further improve struct&cell indexing & indexed assignment
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
529 } |
|
906f976d35a8
further improve struct&cell indexing & indexed assignment
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
530 |
|
906f976d35a8
further improve struct&cell indexing & indexed assignment
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
531 for (octave_idx_type j = 0; j < nidx; j++) |
|
906f976d35a8
further improve struct&cell indexing & indexed assignment
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
532 { |
|
906f976d35a8
further improve struct&cell indexing & indexed assignment
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
533 octave_value val = tidx(j); |
| 5846 | 534 |
|
8551
906f976d35a8
further improve struct&cell indexing & indexed assignment
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
535 if (val.is_magic_colon ()) |
|
906f976d35a8
further improve struct&cell indexing & indexed assignment
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
536 nel *= dims (j); |
|
906f976d35a8
further improve struct&cell indexing & indexed assignment
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
537 else |
|
906f976d35a8
further improve struct&cell indexing & indexed assignment
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
538 nel *= val.numel (); |
|
906f976d35a8
further improve struct&cell indexing & indexed assignment
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
539 } |
| 5846 | 540 |
|
8551
906f976d35a8
further improve struct&cell indexing & indexed assignment
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
541 retval.numel (nel); |
|
906f976d35a8
further improve struct&cell indexing & indexed assignment
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
542 } |
| 5846 | 543 |
|
8551
906f976d35a8
further improve struct&cell indexing & indexed assignment
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
544 if (error_state) |
|
906f976d35a8
further improve struct&cell indexing & indexed assignment
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
545 break; |
|
906f976d35a8
further improve struct&cell indexing & indexed assignment
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
546 |
|
906f976d35a8
further improve struct&cell indexing & indexed assignment
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
547 idx.push_back (tidx); |
|
906f976d35a8
further improve struct&cell indexing & indexed assignment
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
548 tmpidx.push_back (tidx); |
|
906f976d35a8
further improve struct&cell indexing & indexed assignment
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
549 |
| 5846 | 550 } |
| 4234 | 551 break; |
| 552 | |
| 553 case '.': | |
| 554 { | |
| 6833 | 555 octave_value tidx = get_struct_index (p_arg_nm, p_dyn_field); |
|
8546
3d8a914c580e
improve parser indexed assigment code
Jaroslav Hajek <highegg@gmail.com>
parents:
8011
diff
changeset
|
556 if (error_state) |
|
3d8a914c580e
improve parser indexed assigment code
Jaroslav Hajek <highegg@gmail.com>
parents:
8011
diff
changeset
|
557 break; |
| 6833 | 558 |
|
8551
906f976d35a8
further improve struct&cell indexing & indexed assignment
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
559 if (i > 0 && type [i-1] == '(') |
|
8546
3d8a914c580e
improve parser indexed assigment code
Jaroslav Hajek <highegg@gmail.com>
parents:
8011
diff
changeset
|
560 { |
|
3d8a914c580e
improve parser indexed assigment code
Jaroslav Hajek <highegg@gmail.com>
parents:
8011
diff
changeset
|
561 // Possible cs-list. |
|
3d8a914c580e
improve parser indexed assigment code
Jaroslav Hajek <highegg@gmail.com>
parents:
8011
diff
changeset
|
562 |
|
3d8a914c580e
improve parser indexed assigment code
Jaroslav Hajek <highegg@gmail.com>
parents:
8011
diff
changeset
|
563 octave_value_list xidx = idx.back (); |
| 7099 | 564 |
|
8551
906f976d35a8
further improve struct&cell indexing & indexed assignment
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
565 if (! xidx.all_scalars ()) |
|
8546
3d8a914c580e
improve parser indexed assigment code
Jaroslav Hajek <highegg@gmail.com>
parents:
8011
diff
changeset
|
566 { |
|
3d8a914c580e
improve parser indexed assigment code
Jaroslav Hajek <highegg@gmail.com>
parents:
8011
diff
changeset
|
567 octave_idx_type nel = 1; |
| 7099 | 568 |
|
8546
3d8a914c580e
improve parser indexed assigment code
Jaroslav Hajek <highegg@gmail.com>
parents:
8011
diff
changeset
|
569 octave_idx_type nidx = xidx.length (); |
| 7099 | 570 |
|
8551
906f976d35a8
further improve struct&cell indexing & indexed assignment
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
571 // Possible cs-list. |
|
906f976d35a8
further improve struct&cell indexing & indexed assignment
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
572 bool has_magic_colon = xidx.has_magic_colon (); |
|
906f976d35a8
further improve struct&cell indexing & indexed assignment
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
573 dim_vector dims; |
|
906f976d35a8
further improve struct&cell indexing & indexed assignment
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
574 |
|
906f976d35a8
further improve struct&cell indexing & indexed assignment
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
575 if (has_magic_colon) |
|
906f976d35a8
further improve struct&cell indexing & indexed assignment
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
576 { |
|
906f976d35a8
further improve struct&cell indexing & indexed assignment
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
577 // Evaluate everything up to the point preceding the last paren. |
|
906f976d35a8
further improve struct&cell indexing & indexed assignment
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
578 if (tmp.is_defined ()) |
|
906f976d35a8
further improve struct&cell indexing & indexed assignment
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
579 { |
|
906f976d35a8
further improve struct&cell indexing & indexed assignment
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
580 if (tmpi < i-1) |
|
906f976d35a8
further improve struct&cell indexing & indexed assignment
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
581 { |
|
906f976d35a8
further improve struct&cell indexing & indexed assignment
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
582 tmpidx.pop_back (); |
|
906f976d35a8
further improve struct&cell indexing & indexed assignment
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
583 tmp = tmp.subsref (type.substr (tmpi, i-1 - tmpi), tmpidx, true); |
|
906f976d35a8
further improve struct&cell indexing & indexed assignment
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
584 tmpi = i - 1; |
|
906f976d35a8
further improve struct&cell indexing & indexed assignment
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
585 tmpidx.clear (); |
|
906f976d35a8
further improve struct&cell indexing & indexed assignment
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
586 tmpidx.push_back (xidx); |
|
906f976d35a8
further improve struct&cell indexing & indexed assignment
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
587 } |
|
906f976d35a8
further improve struct&cell indexing & indexed assignment
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
588 |
|
906f976d35a8
further improve struct&cell indexing & indexed assignment
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
589 if (tmp.is_undefined ()) |
|
906f976d35a8
further improve struct&cell indexing & indexed assignment
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
590 gripe_invalid_inquiry_subscript (); |
|
906f976d35a8
further improve struct&cell indexing & indexed assignment
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
591 else if (tmp.is_cs_list ()) |
|
906f976d35a8
further improve struct&cell indexing & indexed assignment
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
592 gripe_indexed_cs_list (); |
|
906f976d35a8
further improve struct&cell indexing & indexed assignment
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
593 |
|
906f976d35a8
further improve struct&cell indexing & indexed assignment
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
594 dims = (nidx == 1) ? dim_vector (tmp.numel (), 1) : tmp.dims (); |
|
906f976d35a8
further improve struct&cell indexing & indexed assignment
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
595 } |
|
906f976d35a8
further improve struct&cell indexing & indexed assignment
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
596 else |
|
906f976d35a8
further improve struct&cell indexing & indexed assignment
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
597 gripe_invalid_inquiry_subscript (); |
|
906f976d35a8
further improve struct&cell indexing & indexed assignment
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
598 |
|
906f976d35a8
further improve struct&cell indexing & indexed assignment
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
599 if (error_state) |
|
906f976d35a8
further improve struct&cell indexing & indexed assignment
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
600 break; |
|
906f976d35a8
further improve struct&cell indexing & indexed assignment
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
601 } |
|
906f976d35a8
further improve struct&cell indexing & indexed assignment
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
602 |
|
8546
3d8a914c580e
improve parser indexed assigment code
Jaroslav Hajek <highegg@gmail.com>
parents:
8011
diff
changeset
|
603 for (octave_idx_type j = 0; j < nidx; j++) |
|
3d8a914c580e
improve parser indexed assigment code
Jaroslav Hajek <highegg@gmail.com>
parents:
8011
diff
changeset
|
604 { |
|
3d8a914c580e
improve parser indexed assigment code
Jaroslav Hajek <highegg@gmail.com>
parents:
8011
diff
changeset
|
605 octave_value val = xidx(j); |
|
3d8a914c580e
improve parser indexed assigment code
Jaroslav Hajek <highegg@gmail.com>
parents:
8011
diff
changeset
|
606 |
|
8551
906f976d35a8
further improve struct&cell indexing & indexed assignment
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
607 if (val.is_magic_colon ()) |
|
906f976d35a8
further improve struct&cell indexing & indexed assignment
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
608 nel *= dims (j); |
|
906f976d35a8
further improve struct&cell indexing & indexed assignment
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
609 else |
|
906f976d35a8
further improve struct&cell indexing & indexed assignment
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
610 nel *= val.numel (); |
|
8546
3d8a914c580e
improve parser indexed assigment code
Jaroslav Hajek <highegg@gmail.com>
parents:
8011
diff
changeset
|
611 } |
| 7099 | 612 |
|
8546
3d8a914c580e
improve parser indexed assigment code
Jaroslav Hajek <highegg@gmail.com>
parents:
8011
diff
changeset
|
613 retval.numel (nel); |
|
3d8a914c580e
improve parser indexed assigment code
Jaroslav Hajek <highegg@gmail.com>
parents:
8011
diff
changeset
|
614 } |
|
3d8a914c580e
improve parser indexed assigment code
Jaroslav Hajek <highegg@gmail.com>
parents:
8011
diff
changeset
|
615 } |
|
8551
906f976d35a8
further improve struct&cell indexing & indexed assignment
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
616 else |
|
8546
3d8a914c580e
improve parser indexed assigment code
Jaroslav Hajek <highegg@gmail.com>
parents:
8011
diff
changeset
|
617 { |
|
8551
906f976d35a8
further improve struct&cell indexing & indexed assignment
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
618 // A plain struct component can also yield a list reference. |
|
906f976d35a8
further improve struct&cell indexing & indexed assignment
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
619 if (tmp.is_defined () && tmpi < i) |
|
906f976d35a8
further improve struct&cell indexing & indexed assignment
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
620 tmp = tmp.subsref (type.substr (tmpi, i - tmpi), tmpidx, true); |
| 7057 | 621 |
| 8564 | 622 tmpi = i; |
| 623 tmpidx.clear (); | |
| 7099 | 624 |
|
8551
906f976d35a8
further improve struct&cell indexing & indexed assignment
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
625 if (tmp.is_cs_list ()) |
|
906f976d35a8
further improve struct&cell indexing & indexed assignment
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
626 gripe_indexed_cs_list (); |
|
906f976d35a8
further improve struct&cell indexing & indexed assignment
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
627 else if (tmp.is_map ()) |
|
906f976d35a8
further improve struct&cell indexing & indexed assignment
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
628 retval.numel (tmp.numel ()); |
|
906f976d35a8
further improve struct&cell indexing & indexed assignment
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
629 else |
|
906f976d35a8
further improve struct&cell indexing & indexed assignment
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
630 tmp = Octave_map (); |
| 7100 | 631 |
|
8551
906f976d35a8
further improve struct&cell indexing & indexed assignment
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
632 if (error_state) |
|
906f976d35a8
further improve struct&cell indexing & indexed assignment
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
633 break; |
| 7099 | 634 |
|
8546
3d8a914c580e
improve parser indexed assigment code
Jaroslav Hajek <highegg@gmail.com>
parents:
8011
diff
changeset
|
635 } |
| 7057 | 636 |
|
8551
906f976d35a8
further improve struct&cell indexing & indexed assignment
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
637 if (error_state) |
|
8546
3d8a914c580e
improve parser indexed assigment code
Jaroslav Hajek <highegg@gmail.com>
parents:
8011
diff
changeset
|
638 break; |
|
3d8a914c580e
improve parser indexed assigment code
Jaroslav Hajek <highegg@gmail.com>
parents:
8011
diff
changeset
|
639 |
|
8551
906f976d35a8
further improve struct&cell indexing & indexed assignment
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
640 idx.push_back (tidx); |
|
906f976d35a8
further improve struct&cell indexing & indexed assignment
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
641 tmpidx.push_back (tidx); |
|
906f976d35a8
further improve struct&cell indexing & indexed assignment
Jaroslav Hajek <highegg@gmail.com>
parents:
8546
diff
changeset
|
642 |
| 4234 | 643 } |
| 644 break; | |
| 645 | |
| 646 default: | |
| 647 panic_impossible (); | |
| 648 } | |
| 649 | |
| 650 if (error_state) | |
| 651 break; | |
| 652 | |
| 653 p_args++; | |
| 654 p_arg_nm++; | |
| 655 p_dyn_field++; | |
| 656 } | |
| 3930 | 657 |
| 3933 | 658 if (! error_state) |
| 659 retval.set_index (type, idx); | |
|
8546
3d8a914c580e
improve parser indexed assigment code
Jaroslav Hajek <highegg@gmail.com>
parents:
8011
diff
changeset
|
660 |
| 2980 | 661 } |
| 662 | |
| 663 return retval; | |
| 664 } | |
| 665 | |
| 7099 | 666 /* |
| 667 %!test | |
| 668 %! x = {1, 2, 3}; | |
| 669 %! [x{:}] = deal (4, 5, 6); | |
| 670 %! assert (x, {4, 5, 6}); | |
| 671 | |
| 672 %!test | |
| 673 %! [x.a, x.b.c] = deal (1, 2); | |
| 674 %! assert (x.a == 1 && x.b.c == 2); | |
| 675 | |
| 676 %!test | |
| 677 %! [x.a, x(2).b] = deal (1, 2); | |
| 678 %! assert (x(1).a == 1 && isempty (x(2).a) && isempty (x(1).b) && x(2).b == 2); | |
| 679 | |
| 680 %!test | |
| 681 %! x = struct (zeros (0, 1), {"a", "b"}); | |
| 682 %! x(2).b = 1; | |
| 683 %! assert (x(2).b == 1); | |
| 684 | |
| 685 %!test | |
| 686 %! x = struct (zeros (0, 1), {"a", "b"}); | |
| 687 %! x(2).b = 1; | |
| 688 %! assert (x(2).b == 1); | |
| 689 */ | |
| 690 | |
| 5861 | 691 tree_index_expression * |
|
7767
71f068b22fcc
scope and context fixes for function handles
John W. Eaton <jwe@octave.org>
parents:
7336
diff
changeset
|
692 tree_index_expression::dup (symbol_table::scope_id scope, |
|
8913
35cd375d4bb3
make tree::dup functions const
John W. Eaton <jwe@octave.org>
parents:
8658
diff
changeset
|
693 symbol_table::context_id context) const |
| 5861 | 694 { |
| 695 tree_index_expression *new_idx_expr | |
| 696 = new tree_index_expression (line (), column ()); | |
| 697 | |
|
7767
71f068b22fcc
scope and context fixes for function handles
John W. Eaton <jwe@octave.org>
parents:
7336
diff
changeset
|
698 new_idx_expr->expr = expr ? expr->dup (scope, context) : 0; |
| 5861 | 699 |
| 700 std::list<tree_argument_list *> new_args; | |
| 701 | |
|
8913
35cd375d4bb3
make tree::dup functions const
John W. Eaton <jwe@octave.org>
parents:
8658
diff
changeset
|
702 for (std::list<tree_argument_list *>::const_iterator p = args.begin (); |
| 5861 | 703 p != args.end (); |
| 704 p++) | |
| 705 { | |
|
8913
35cd375d4bb3
make tree::dup functions const
John W. Eaton <jwe@octave.org>
parents:
8658
diff
changeset
|
706 const tree_argument_list *elt = *p; |
| 5861 | 707 |
|
7767
71f068b22fcc
scope and context fixes for function handles
John W. Eaton <jwe@octave.org>
parents:
7336
diff
changeset
|
708 new_args.push_back (elt ? elt->dup (scope, context) : 0); |
| 5861 | 709 } |
| 710 | |
| 711 new_idx_expr->args = new_args; | |
| 712 | |
| 713 new_idx_expr->type = type; | |
| 714 | |
| 715 new_idx_expr->arg_nm = arg_nm; | |
| 716 | |
| 717 std::list<tree_expression *> new_dyn_field; | |
| 718 | |
|
8913
35cd375d4bb3
make tree::dup functions const
John W. Eaton <jwe@octave.org>
parents:
8658
diff
changeset
|
719 for (std::list<tree_expression *>::const_iterator p = dyn_field.begin (); |
| 5861 | 720 p != dyn_field.end (); |
| 721 p++) | |
| 722 { | |
|
8913
35cd375d4bb3
make tree::dup functions const
John W. Eaton <jwe@octave.org>
parents:
8658
diff
changeset
|
723 const tree_expression *elt = *p; |
| 5861 | 724 |
|
7767
71f068b22fcc
scope and context fixes for function handles
John W. Eaton <jwe@octave.org>
parents:
7336
diff
changeset
|
725 new_dyn_field.push_back (elt ? elt->dup (scope, context) : 0); |
| 5861 | 726 } |
| 727 | |
| 728 new_idx_expr->dyn_field = new_dyn_field; | |
| 729 | |
| 730 new_idx_expr->copy_base (*this); | |
| 731 | |
| 732 return new_idx_expr; | |
| 733 } | |
| 734 | |
| 2980 | 735 void |
| 736 tree_index_expression::accept (tree_walker& tw) | |
| 737 { | |
| 738 tw.visit_index_expression (*this); | |
| 739 } | |
| 740 | |
| 741 /* | |
| 742 ;;; Local Variables: *** | |
| 743 ;;; mode: C++ *** | |
| 744 ;;; End: *** | |
| 745 */ |