Mercurial > hg > octave-nkf

comparison src/ov-cell.cc @ 4153:6b96ce9f5743

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2002-11-06 20:38:49 by jwe]
author jwe
date Wed, 06 Nov 2002 20:38:50 +0000
parents 47d3baea432d
children 5719210fff4c
comparison
equal deleted inserted replaced
4152:f14251d33b01 4153:6b96ce9f5743
30 30
31 #include <iostream> 31 #include <iostream>
32 32
33 #include "lo-sstream.h" 33 #include "lo-sstream.h"
34 #include "lo-utils.h" 34 #include "lo-utils.h"
35 #include "quit.h"
35 36
36 #include "defun.h" 37 #include "defun.h"
37 #include "error.h" 38 #include "error.h"
38 #include "ov-cell.h" 39 #include "ov-cell.h"
39 #include "oct-obj.h" 40 #include "oct-obj.h"
76 int nc = tcell.columns (); 77 int nc = tcell.columns ();
77 octave_value_list lst (nr * nc, octave_value ()); 78 octave_value_list lst (nr * nc, octave_value ());
78 int k = 0; 79 int k = 0;
79 for (int j = 0; j < nc; j++) 80 for (int j = 0; j < nc; j++)
80 for (int i = 0; i < nr; i++) 81 for (int i = 0; i < nr; i++)
81 lst(k++) = tcell(i,j); 82 {
83 OCTAVE_QUIT;
84 lst(k++) = tcell(i,j);
85 }
82 retval = octave_value (lst, true); 86 retval = octave_value (lst, true);
83 } 87 }
84 } 88 }
85 break; 89 break;
86 90
266 270
267 for (int j = 0; j < nc; j++) 271 for (int j = 0; j < nc; j++)
268 { 272 {
269 for (int i = 0; i < nr; i++) 273 for (int i = 0; i < nr; i++)
270 { 274 {
275 OCTAVE_QUIT;
276
271 OSSTREAM buf; 277 OSSTREAM buf;
272 buf << "[" << i+1 << "," << j+1 << "]" << OSSTREAM_ENDS; 278 buf << "[" << i+1 << "," << j+1 << "]" << OSSTREAM_ENDS;
273 279
274 octave_value val = matrix(i,j); 280 octave_value val = matrix(i,j);
275 281