Mercurial > hg > octave-lyh

changeset 15399:66e17621f99a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* 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
+++ b/libinterp/interpfcn/variables.cc
@@ -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
+++ b/libinterp/interpfcn/variables.h
@@ -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