Mercurial > octave-antonio
diff src/ov-cell.cc @ 4582:db5a24d54915
[project @ 2003-10-31 15:11:45 by jwe]
author | jwe |
---|---|
date | Fri, 31 Oct 2003 15:11:45 +0000 |
parents | 742993a501b9 |
children | 7b957b442818 |
line wrap: on
line diff
--- a/src/ov-cell.cc Fri Oct 31 14:42:07 2003 +0000 +++ b/src/ov-cell.cc Fri Oct 31 15:11:45 2003 +0000 @@ -67,23 +67,26 @@ { octave_value tmp = do_index_op (idx.front ()); - Cell tcell = tmp.cell_value (); - - if (tcell.length () == 1) - retval = tcell(0,0); - else + if (! error_state) { - int nr = tcell.rows (); - int nc = tcell.columns (); - octave_value_list lst (nr * nc, octave_value ()); - int k = 0; - for (int j = 0; j < nc; j++) - for (int i = 0; i < nr; i++) - { - OCTAVE_QUIT; - lst(k++) = tcell(i,j); - } - retval = octave_value (lst, true); + Cell tcell = tmp.cell_value (); + + if (tcell.length () == 1) + retval = tcell(0,0); + else + { + int nr = tcell.rows (); + int nc = tcell.columns (); + octave_value_list lst (nr * nc, octave_value ()); + int k = 0; + for (int j = 0; j < nc; j++) + for (int i = 0; i < nr; i++) + { + OCTAVE_QUIT; + lst(k++) = tcell(i,j); + } + retval = octave_value (lst, true); + } } } break;