Mercurial > octave-nkf

comparison libinterp/corefcn/debug.cc @ 19414:5db5619fe54e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
maint: Periodic merge of gui-release to default.
author John W. Eaton <jwe@octave.org>
date Thu, 04 Dec 2014 16:22:26 -0500
parents 0f9c5a15c8fa c1ce43276b86
children 03067dab10ca
comparison
equal deleted inserted replaced
19411:9ef286208da1 19414:5db5619fe54e
1544 else 1544 else
1545 print_usage (); 1545 print_usage ();
1546 1546
1547 return retval; 1547 return retval;
1548 } 1548 }
1549
1550 DEFUN (db_next_breakpoint_quiet, args, ,
1551 "-*- texinfo -*-\n\
1552 @deftypefn {Built-in Function} {} db_next_breakpoint_quiet ()\n\
1553 @deftypefnx {Built-in Function} {} db_next_breakpoint_quiet (@var{flag})\n\
1554 Disable line info printing at the next breakpoint. With a logical\n\
1555 argument, set the state on or off.\n\
1556 @end deftypefn")
1557 {
1558 octave_value retval;
1559
1560 int nargin = args.length ();
1561
1562 if (nargin == 0 || nargin == 1)
1563 {
1564 bool state = true;
1565
1566 if (nargin == 1)
1567 {
1568 state = args(0).bool_value ();
1569
1570 if (error_state)
1571 {
1572 gripe_wrong_type_arg ("db_next_breakpoint", args(0), true);
1573 return retval;
1574 }
1575 }
1576
1577 tree_evaluator::quiet_breakpoint_flag = state;
1578 }
1579 else
1580 print_usage ();
1581
1582 return retval;
1583 }