diff src/ov-base.cc @ 8658:73c4516fae10

New evaluator and debugger derived from tree-walker class
author John W. Eaton <jwe@octave.org>
date Wed, 04 Feb 2009 00:47:53 -0500
parents 906f976d35a8
children 095ae5e0a831
line wrap: on
line diff
--- a/src/ov-base.cc	Tue Feb 03 12:47:38 2009 +0100
+++ b/src/ov-base.cc	Wed Feb 04 00:47:53 2009 -0500
@@ -57,10 +57,6 @@
 DEFINE_OV_TYPEID_FUNCTIONS_AND_DATA (octave_base_value,
 				     "<unknown type>", "unknown");
 
-// If TRUE, turn off printing of results in functions (as if a
-// semicolon has been appended to each statement).
-bool Vsilent_functions = false;
-
 // TRUE means to perform automatic sparse to real mutation if there
 // is memory to be saved
 bool Vsparse_auto_mutate = false;
@@ -357,15 +353,12 @@
 				    const std::string& name, 
 				    bool print_padding) const
 {
-  if (! (evaluating_function_body && Vsilent_functions))
-    {
-      bool pad_after = print_name_tag (output_buf, name);
+  bool pad_after = print_name_tag (output_buf, name);
 
-      print (output_buf);
+  print (output_buf);
 
-      if (print_padding && pad_after)
-	newline (output_buf);
-    }
+  if (print_padding && pad_after)
+    newline (output_buf);
 }
 
 void
@@ -1322,19 +1315,6 @@
   INSTALL_WIDENOP (octave_base_value, octave_cell, cell_conv);
 }
 
-DEFUN (silent_functions, args, nargout,
-  "-*- texinfo -*-\n\
-@deftypefn {Built-in Function} {@var{val} =} silent_functions ()\n\
-@deftypefnx {Built-in Function} {@var{old_val} =} silent_functions (@var{new_val})\n\
-Query or set the internal variable that controls whether internal\n\
-output from a function is suppressed.  If this option is disabled,\n\
-Octave will display the results produced by evaluating expressions\n\
-within a function body that are not terminated with a semicolon.\n\
-@end deftypefn")
-{
-  return SET_INTERNAL_VARIABLE (silent_functions);
-}
-
 DEFUN (sparse_auto_mutate, args, nargout,
   "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {@var{val} =} sparse_auto_mutate ()\n\