Mercurial > 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 Mon Nov 10 10:43:00 2008 -0500 +++ b/src/ChangeLog Tue Nov 11 14:34:02 2008 -0500 @@ -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 Mon Nov 10 10:43:00 2008 -0500 +++ b/src/parse.y Tue Nov 11 14:34:02 2008 -0500 @@ -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 ***