diff src/toplev.cc @ 2086:bfb775fb6fe8

[project @ 1996-04-25 05:55:19 by jwe]
author jwe
date Thu, 25 Apr 1996 05:55:19 +0000
parents 30c55a47d6ae
children 36903d507b0e
line wrap: on
line diff
--- a/src/toplev.cc
+++ b/src/toplev.cc
@@ -271,7 +271,7 @@
 Parse and execute the contents of FILE.  Like executing commands in a\n\
 script file but without requiring the file to be named `FILE.m'.")
 {
-  Octave_object retval;
+  octave_value_list retval;
 
   int nargin = args.length ();
 
@@ -331,7 +331,7 @@
 DEFUN_TEXT (casesen, args, ,
   "casesen [on|off]")
 {
-  Octave_object retval;
+  octave_value_list retval;
 
   int argc = args.length () + 1;
 
@@ -355,7 +355,7 @@
 \n\
 Have Octave ask the system, \"What kind of computer are you?\"")
 {
-  Octave_object retval;
+  octave_value_list retval;
 
   int nargin = args.length ();
 
@@ -390,7 +390,7 @@
 \n\
 STATUS should be an integer value.  If STATUS is missing, 0 is assumed.")
 {
-  Octave_object retval;
+  octave_value_list retval;
 
   int exit_status = 0;
 
@@ -418,7 +418,7 @@
 DEFUN (warranty, , ,
   "warranty (): describe copying conditions")
 {
-  Octave_object retval;
+  octave_value_list retval;
 
   ostrstream output_buf;
   output_buf << "\n" OCTAVE_NAME_VERSION_AND_COPYRIGHT "\n\n\
@@ -445,16 +445,16 @@
 
 // XXX FIXME XXX -- this may not be the best place for these...
 
-Octave_object
-feval (const Octave_object& args, int nargout)
+octave_value_list
+feval (const octave_value_list& args, int nargout)
 {
-  Octave_object retval;
+  octave_value_list retval;
 
   tree_fvc *fcn = is_valid_function (args(0), "feval", 1);
   if (fcn)
     {
       int tmp_nargin = args.length () - 1;
-      Octave_object tmp_args;
+      octave_value_list tmp_args;
       tmp_args.resize (tmp_nargin);
       for (int i = 0; i < tmp_nargin; i++)
 	tmp_args(i) = args(i+1);
@@ -469,7 +469,7 @@
 \n\
 evaluate NAME as a function, passing ARGS as its arguments")
 {
-  Octave_object retval;
+  octave_value_list retval;
 
   int nargin = args.length ();
 
@@ -481,7 +481,7 @@
   return retval;
 }
 
-static Octave_object
+static octave_value_list
 eval_string (const string& s, int print, int& parse_status,
 	     int nargout) 
 {
@@ -518,7 +518,7 @@
 
   run_unwind_frame ("eval_string");
 
-  Octave_object retval;
+  octave_value_list retval;
 
   if (parse_status == 0 && command)
     {
@@ -529,20 +529,20 @@
   return retval;
 }
 
-tree_constant
+octave_value
 eval_string (const string& s, int print, int& parse_status)
 {
-  tree_constant retval;
+  octave_value retval;
 
-  Octave_object tmp = eval_string (s, print, parse_status, 1);
+  octave_value_list tmp = eval_string (s, print, parse_status, 1);
 
   retval = tmp(0);
 
   return retval;
 }
 
-static Octave_object
-eval_string (const tree_constant& arg, int& parse_status, int nargout)
+static octave_value_list
+eval_string (const octave_value& arg, int& parse_status, int nargout)
 {
   string s = arg.string_value ();
 
@@ -563,7 +563,7 @@
 Evaluate the string TRY as octave code.  If that fails, evaluate the\n\
 string CATCH.")
 {
-  Octave_object retval;
+  octave_value_list retval;
 
   int nargin = args.length ();
 
@@ -594,7 +594,7 @@
 
 	  eval_string (args(1), parse_status, nargout);
 
-	  retval = Octave_object ();
+	  retval = octave_value_list ();
 	}
 
       run_unwind_frame ("Feval");
@@ -613,10 +613,10 @@
   delete (iprocstream *) p;
 }
 
-static Octave_object
+static octave_value_list
 do_system (const string& cmd_str, bool return_output)
 {
-  Octave_object retval;
+  octave_value_list retval;
 
   iprocstream *cmd = new iprocstream (cmd_str.c_str ());
 
@@ -685,7 +685,7 @@
 sent to Octave's standard output (possibly being passed through the\n\
 pager).")
 {
-  Octave_object retval;
+  octave_value_list retval;
 
   int nargin = args.length ();
 
@@ -757,7 +757,7 @@
 {
   while (! octave_atexit_functions.empty ())
     {
-      Octave_object fcn = octave_atexit_functions.pop ();
+      octave_value_list fcn = octave_atexit_functions.pop ();
 
       feval (fcn, 0);
     }
@@ -769,7 +769,7 @@
 Functions are called with no arguments in the reverse of the order in
 which they were registered with atexit()")
 {
-  Octave_object retval;
+  octave_value_list retval;
 
 #if defined (HAVE_ATEXIT) || defined (HAVE_ON_EXIT)
   int nargin = args.length ();