Mercurial > hg > octave-nkf

comparison src/ov-struct.cc @ 4197:40f76ce7a051

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2002-11-21 18:56:25 by jwe]
author jwe
date Thu, 21 Nov 2002 18:56:25 +0000
parents 5719210fff4c
children 23d06c9e1edd
comparison
equal deleted inserted replaced
4196:f874c6c68845 4197:40f76ce7a051
329 } 329 }
330 else 330 else
331 gripe_failed_assignment (); 331 gripe_failed_assignment ();
332 } 332 }
333 else 333 else
334 gripe_invalid_index_for_assignment (); 334 {
335 octave_value_list t_idx = idx.front ();
336
337 if (t_idx.length () == 1)
338 {
339 idx_vector i = t_idx(0).index_vector ();
340
341 Octave_map rhs_map = t_rhs.map_value ();
342
343 if (! error_state)
344 {
345 map.assign (i, rhs_map);
346
347 if (! error_state)
348 retval = octave_value (this, count + 1);
349 else
350 gripe_failed_assignment ();
351 }
352 else
353 error ("invalid structure assignment");
354 }
355 }
335 } 356 }
336 break; 357 break;
337 358
338 case '.': 359 case '.':
339 { 360 {