Mercurial > hg > octave-nkf
diff src/pt-const.cc @ 2971:f2be17e6f1ea
[project @ 1997-05-15 18:55:44 by jwe]
author | jwe |
---|---|
date | Thu, 15 May 1997 18:55:47 +0000 |
parents | 194b50e4725b |
children | d14c483b3c12 |
line wrap: on
line diff
--- a/src/pt-const.cc +++ b/src/pt-const.cc @@ -30,6 +30,7 @@ #include <iostream.h> +#include "error.h" #include "oct-obj.h" #include "pager.h" #include "pt-const.h" @@ -59,19 +60,17 @@ val.print_raw (os, pr_as_read_syntax); } -octave_value -tree_constant::eval (bool print_result) +octave_value_list +tree_constant::rvalue (int nargout) { - if (print_result) - val.print (octave_stdout); + octave_value_list retval; - return val; -} + if (nargout > 1) + error ("invalid number of output arguments for constant expression"); + else + retval = rvalue (); -octave_value_list -tree_constant::eval (bool, int, const octave_value_list& idx) -{ - return (idx.length () > 0) ? val.do_index_op (idx) : val; + return retval; } void