Mercurial > octave-nkf
diff src/parse.y @ 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 | 54c25dc5b17d |
children | adab48231a03 |
line wrap: on
line diff
--- 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 ***