diff src/pt-const.h @ 506:0f388340e607

[project @ 1994-07-09 06:10:34 by jwe]
author jwe
date Sat, 09 Jul 1994 06:10:34 +0000
parents be155b3d5a2f
children 7013424771d4
line wrap: on
line diff
--- a/src/pt-const.h
+++ b/src/pt-const.h
@@ -172,8 +172,7 @@
 	return rep->make_numeric ();
     }
 
-  tree_constant assign (tree_constant& rhs, const Octave_object& args,
-			int nargs)
+  tree_constant assign (tree_constant& rhs, const Octave_object& args)
     {
       if (rep->count > 1)
 	{
@@ -181,7 +180,7 @@
 	  rep = new tree_constant_rep (*rep);
 	  rep->count = 1;
 	}
-      rep->assign (rhs, args, nargs);
+      rep->assign (rhs, args);
       return *this;
     }
 
@@ -267,13 +266,14 @@
       return *this;
     }
 
-  Octave_object eval (int print, int nargout, const Octave_object& args,
-		      int nargin)
+  Octave_object eval (int print, int nargout, const Octave_object& args)
     {
       Octave_object retval (1);
 
-      if (args.length () > 0 && nargin > 0)
-	retval(0) = rep->do_index (args, nargin);
+// XXX FIXME XXX -- make it safe to call do_index() with
+// args.length () == 0
+      if (args.length () > 0)
+	retval(0) = rep->do_index (args);
       else
 	retval(0) = *this;
 
@@ -308,24 +308,18 @@
 extern Octave_object matrix_log (const tree_constant& a);
 extern Octave_object matrix_sqrt (const tree_constant& a);
 
-extern Octave_object column_max (const Octave_object& args, int nargin,
-				 int nargout);
-
-extern Octave_object column_min (const Octave_object& args, int nargin,
-				 int nargout);
+extern Octave_object column_max (const Octave_object& args, int nargout);
+extern Octave_object column_min (const Octave_object& args, int nargout);
   
-extern Octave_object sort (const Octave_object& args, int nargin,
-			   int nargout);
+extern Octave_object sort (const Octave_object& args, int nargout);
  
-extern Octave_object feval (const Octave_object& args, int nargin,
-			    int nargout);
+extern Octave_object feval (const Octave_object& args, int nargout);
 
 extern tree_constant eval_string (const tree_constant& arg, int&
 				  parse_status);
 
 extern tree_constant get_user_input (const Octave_object& args,
-				     int nargin, int nargout,
-				     int debug = 0);
+				     int nargout, int debug = 0);
 
 #endif