Mercurial > octave-dspies
changeset 15399:66e17621f99a
* variables.h, variables.cc (clear_current_scope): New function.
author | John W. Eaton <jwe@octave.org> |
---|---|
date | Mon, 17 Sep 2012 22:35:43 -0400 |
parents | 2e5ba861898f |
children | 2b8d9eac2c2e |
files | libinterp/interpfcn/variables.cc libinterp/interpfcn/variables.h |
diffstat | 2 files changed, 11 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/libinterp/interpfcn/variables.cc Mon Sep 17 22:35:38 2012 -0400 +++ b/libinterp/interpfcn/variables.cc Mon Sep 17 22:35:43 2012 -0400 @@ -2340,8 +2340,8 @@ { if (argc == 1) { - do_clear_globals (argv, argc, 1); - do_clear_variables (argv, argc, 1); + do_clear_globals (argv, argc, true); + do_clear_variables (argv, argc, true); } else { @@ -2460,6 +2460,12 @@ return retval; } +void +clear_current_scope (void) +{ + Fclear (); +} + DEFUN (whos_line_format, args, nargout, "-*- texinfo -*-\n\ @deftypefn {Built-in Function} {@var{val} =} whos_line_format ()\n\
--- a/libinterp/interpfcn/variables.h Mon Sep 17 22:35:38 2012 -0400 +++ b/libinterp/interpfcn/variables.h Mon Sep 17 22:35:43 2012 -0400 @@ -148,4 +148,7 @@ extern OCTINTERP_API void maybe_missing_function_hook (const std::string& name); +// Equivalent to Fclear without any arguments. +extern OCTINTERP_API void clear_current_scope (void); + #endif