Mercurial > hg > octave-nkf

comparison src/pt-loop.cc @ 3770:bf6116ca10eb

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2001-02-02 02:21:40 by jwe]
author jwe
date Fri, 02 Feb 2001 02:21:42 +0000
parents 0689afb1d001
children 55648fc616c8
comparison
equal deleted inserted replaced
3769:7c8e3c42ed04 3770:bf6116ca10eb
32 #include "gripes.h" 32 #include "gripes.h"
33 #include "oct-map.h" 33 #include "oct-map.h"
34 #include "oct-lvalue.h" 34 #include "oct-lvalue.h"
35 #include "ov.h" 35 #include "ov.h"
36 #include "pt-arg-list.h" 36 #include "pt-arg-list.h"
37 #include "pt-bp.h"
37 #include "pt-cmd.h" 38 #include "pt-cmd.h"
38 #include "pt-exp.h" 39 #include "pt-exp.h"
39 #include "pt-jump.h" 40 #include "pt-jump.h"
40 #include "pt-loop.h" 41 #include "pt-loop.h"
41 #include "pt-stmt.h" 42 #include "pt-stmt.h"
128 if (! expr) 129 if (! expr)
129 panic_impossible (); 130 panic_impossible ();
130 131
131 for (;;) 132 for (;;)
132 { 133 {
134 MAYBE_DO_BREAKPOINT;
135
133 if (list) 136 if (list)
134 { 137 {
135 list->eval (); 138 list->eval ();
136 139
137 if (error_state) 140 if (error_state)
198 #define DO_LOOP(arg) \ 201 #define DO_LOOP(arg) \
199 do \ 202 do \
200 { \ 203 { \
201 for (int i = 0; i < steps; i++) \ 204 for (int i = 0; i < steps; i++) \
202 { \ 205 { \
206 MAYBE_DO_BREAKPOINT; \
207 \
203 octave_value val (arg); \ 208 octave_value val (arg); \
204 \ 209 \
205 bool quit = false; \ 210 bool quit = false; \
206 \ 211 \
207 do_for_loop_once (ult, val, quit); \ 212 do_for_loop_once (ult, val, quit); \
242 double b = rng.base (); 247 double b = rng.base ();
243 double increment = rng.inc (); 248 double increment = rng.inc ();
244 249
245 for (int i = 0; i < steps; i++) 250 for (int i = 0; i < steps; i++)
246 { 251 {
252 MAYBE_DO_BREAKPOINT;
253
247 double tmp_val = b + i * increment; 254 double tmp_val = b + i * increment;
248 255
249 octave_value val (tmp_val); 256 octave_value val (tmp_val);
250 257
251 bool quit = false; 258 bool quit = false;
257 } 264 }
258 } 265 }
259 else if (rhs.is_scalar_type ()) 266 else if (rhs.is_scalar_type ())
260 { 267 {
261 bool quit = false; 268 bool quit = false;
269
270 MAYBE_DO_BREAKPOINT;
262 271
263 do_for_loop_once (ult, rhs, quit); 272 do_for_loop_once (ult, rhs, quit);
264 } 273 }
265 else if (rhs.is_string ()) 274 else if (rhs.is_string ())
266 { 275 {
275 DO_LOOP (chm_tmp (0, i)); 284 DO_LOOP (chm_tmp (0, i));
276 else 285 else
277 { 286 {
278 for (int i = 0; i < steps; i++) 287 for (int i = 0; i < steps; i++)
279 { 288 {
289 MAYBE_DO_BREAKPOINT;
290
280 octave_value val (chm_tmp.extract (0, i, nr-1, i), true); 291 octave_value val (chm_tmp.extract (0, i, nr-1, i), true);
281 292
282 bool quit = false; 293 bool quit = false;
283 294
284 do_for_loop_once (ult, val, quit); 295 do_for_loop_once (ult, val, quit);
331 { 342 {
332 Octave_map tmp_val (rhs.map_value ()); 343 Octave_map tmp_val (rhs.map_value ());
333 344
334 for (Pix p = tmp_val.first (); p != 0; tmp_val.next (p)) 345 for (Pix p = tmp_val.first (); p != 0; tmp_val.next (p))
335 { 346 {
347 MAYBE_DO_BREAKPOINT;
348
336 octave_value val = tmp_val.contents (p); 349 octave_value val = tmp_val.contents (p);
337 350
338 bool quit = false; 351 bool quit = false;
339 352
340 do_for_loop_once (ult, val, quit); 353 do_for_loop_once (ult, val, quit);
433 for (p = tmp_val.first (); p != 0; tmp_val.next (p)) 446 for (p = tmp_val.first (); p != 0; tmp_val.next (p))
434 { 447 {
435 octave_value key = tmp_val.key (p); 448 octave_value key = tmp_val.key (p);
436 octave_value val = tmp_val.contents (p); 449 octave_value val = tmp_val.contents (p);
437 450
451 MAYBE_DO_BREAKPOINT;
452
438 bool quit = false; 453 bool quit = false;
439 454
440 do_for_loop_once (key_ref, val_ref, key, val, quit); 455 do_for_loop_once (key_ref, val_ref, key, val, quit);
441 456
442 if (quit) 457 if (quit)