Mercurial > octave-nkf
comparison 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 |
comparison
equal
deleted
inserted
replaced
| 8310:87f316e219b6 | 8311:7124bffc89c7 |
|---|---|
| 4099 print_usage (); | 4099 print_usage (); |
| 4100 | 4100 |
| 4101 return retval; | 4101 return retval; |
| 4102 } | 4102 } |
| 4103 | 4103 |
| 4104 DEFUN (__parser_debug_flag__, args, nargout, | |
| 4105 "Undocumented internal function.") | |
| 4106 { | |
| 4107 octave_value retval; | |
| 4108 | |
| 4109 bool debug_flag = octave_debug; | |
| 4110 | |
| 4111 retval = set_internal_variable (debug_flag, args, nargout, | |
| 4112 "__parser_debug_flag__"); | |
| 4113 | |
| 4114 octave_debug = debug_flag; | |
| 4115 | |
| 4116 return retval; | |
| 4117 } | |
| 4118 | |
| 4104 /* | 4119 /* |
| 4105 ;;; Local Variables: *** | 4120 ;;; Local Variables: *** |
| 4106 ;;; mode: text *** | 4121 ;;; mode: text *** |
| 4107 ;;; End: *** | 4122 ;;; End: *** |
| 4108 */ | 4123 */ |