Mercurial > octave-nkf
changeset 8114:cbbea37b95e8
debug.cc (Fisdebugmode): New function.
author | Krzesimir Nowak <qdlacz@gmail.com> |
---|---|
date | Thu, 18 Sep 2008 10:42:26 -0400 |
parents | 38a797766a2a |
children | 37c1bdb9805c |
files | doc/interpreter/contributors.in src/ChangeLog src/debug.cc |
diffstat | 3 files changed, 21 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/doc/interpreter/contributors.in Wed Sep 17 17:31:24 2008 -0400 +++ b/doc/interpreter/contributors.in Thu Sep 18 10:42:26 2008 -0400 @@ -135,6 +135,7 @@ Rick Niles Takuji Nishimura Eric Norum +Krzesimir Nowak Michael O'Brien Thorsten Ohl Arno Onken
--- a/src/ChangeLog Wed Sep 17 17:31:24 2008 -0400 +++ b/src/ChangeLog Thu Sep 18 10:42:26 2008 -0400 @@ -1,3 +1,7 @@ +2008-09-17 Krzesimir Nowak <qdlacz@gmail.com> + + * debug.cc (Fisdebugmode): New function. + 2008-09-17 David Bateman <dbateman@free.fr> * data.cc (do_cat): Chopping trailing singleton dimensions.
--- a/src/debug.cc Wed Sep 17 17:31:24 2008 -0400 +++ b/src/debug.cc Thu Sep 18 10:42:26 2008 -0400 @@ -994,6 +994,22 @@ return octave_value_list (); } +DEFCMD (isdebugmode, args, , + "-*- texinfo -*-\n\ +@deftypefn {Command} {} isdebugmode ()\n\ +Return true if debug mode is on, otherwise false.\n\ +@seealso{dbstack, dbclear, dbstop, dbstatus}\n\ +@end deftypefn") +{ + octave_value retval; + + if (args.length() == 0) + retval = Vdebugging; + else + print_usage (); + + return retval; +} /* ;;; Local Variables: ***