Mercurial > hg > octave-nkf
diff src/input.cc @ 3772:e44ffad3d06c
[project @ 2001-02-03 06:23:38 by jwe]
| author | jwe |
|---|---|
| date | Sat, 03 Feb 2001 06:23:38 +0000 |
| parents | b65077dfa1b1 |
| children | 4073be5aefa1 |
line wrap: on
line diff
--- a/src/input.cc +++ b/src/input.cc @@ -58,6 +58,7 @@ #include "pager.h" #include "parse.h" #include "pathlen.h" +#include "pt.h" #include "pt-const.h" #include "sighandlers.h" #include "symtab.h" @@ -540,14 +541,23 @@ } } - if (debug - && (match_sans_spaces ("exit", input_buf) + if (debug) + { + if (match_sans_spaces ("exit", input_buf) || match_sans_spaces ("quit", input_buf) - || match_sans_spaces ("return", input_buf))) - { - return retval; + || match_sans_spaces ("return", input_buf) + || match_sans_spaces ("dbg_cont", input_buf)) + { + return retval; + } + else if (match_sans_spaces ("dbg_step", input_buf)) + { + tree::break_next = true; + return retval; + } } - else if (read_as_string) + + if (read_as_string) { // XXX FIXME XXX -- fix gnu_readline and octave_gets instead! if (input_buf.length () == 1 && input_buf[0] == '\n')