Mercurial > hg > octave-nkf
changeset 8311:7124bffc89c7
parse.y (F__parser_debug_flag__): New function.
author | John W. Eaton <jwe@octave.org> |
---|---|
date | Tue, 11 Nov 2008 14:34:02 -0500 |
parents | 87f316e219b6 |
children | e9d29ff98f30 |
files | src/ChangeLog src/parse.y |
diffstat | 2 files changed, 19 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,7 @@ +2008-11-11 John W. Eaton <jwe@octave.org> + + * parse.y (F__parser_debug_flag__): New function. + 2008-10-31 Jaroslav Hajek <highegg@gmail.com> * xnorm.cc: New source.
--- a/src/parse.y +++ b/src/parse.y @@ -4101,6 +4101,21 @@ return retval; } +DEFUN (__parser_debug_flag__, args, nargout, + "Undocumented internal function.") +{ + octave_value retval; + + bool debug_flag = octave_debug; + + retval = set_internal_variable (debug_flag, args, nargout, + "__parser_debug_flag__"); + + octave_debug = debug_flag; + + return retval; +} + /* ;;; Local Variables: *** ;;; mode: text ***