Mercurial > octave-nkf

comparison src/pt-assign.cc @ 10832:1b2fcd122c6a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
allow user detect ignored outputs in m-functions
author Jaroslav Hajek <highegg@gmail.com>
date Thu, 29 Jul 2010 12:45:23 +0200
parents 57a59eae83cc
children fd0a3ac60b0e
comparison
equal deleted inserted replaced
10831:1646bd8e3735 10832:1b2fcd122c6a
352 std::list<octave_lvalue> lvalue_list = lhs->lvalue_list (); 352 std::list<octave_lvalue> lvalue_list = lhs->lvalue_list ();
353 353
354 if (error_state) 354 if (error_state)
355 return retval; 355 return retval;
356 356
357 int n_out = 0; 357 octave_idx_type n_out = 0;
358 358
359 for (std::list<octave_lvalue>::const_iterator p = lvalue_list.begin (); 359 for (std::list<octave_lvalue>::const_iterator p = lvalue_list.begin ();
360 p != lvalue_list.end (); 360 p != lvalue_list.end ();
361 p++) 361 p++)
362 n_out += p->numel (); 362 n_out += p->numel ();
363 363
364 // The following trick is used to keep rhs_val constant. 364 // The following trick is used to keep rhs_val constant.
365 const octave_value_list rhs_val1 = rhs->rvalue (n_out); 365 const octave_value_list rhs_val1 = rhs->rvalue (n_out, &lvalue_list);
366 const octave_value_list rhs_val = (rhs_val1.length () == 1 && rhs_val1(0).is_cs_list () 366 const octave_value_list rhs_val = (rhs_val1.length () == 1 && rhs_val1(0).is_cs_list ()
367 ? rhs_val1(0).list_value () : rhs_val1); 367 ? rhs_val1(0).list_value () : rhs_val1);
368 368
369 if (error_state) 369 if (error_state)
370 return retval; 370 return retval;