Mercurial > octave-nkf
diff src/pt-mvr.cc @ 2086:bfb775fb6fe8
[project @ 1996-04-25 05:55:19 by jwe]
author | jwe |
---|---|
date | Thu, 25 Apr 1996 05:55:19 +0000 |
parents | 003570e69c7b |
children | 36903d507b0e |
line wrap: on
line diff
--- a/src/pt-mvr.cc Thu Apr 25 05:55:19 1996 +0000 +++ b/src/pt-mvr.cc Thu Apr 25 05:55:19 1996 +0000 @@ -46,7 +46,7 @@ // Make sure that all arguments have values. static bool -all_args_defined (const Octave_object& args) +all_args_defined (const octave_value_list& args) { int nargin = args.length (); @@ -59,15 +59,15 @@ // Used internally. -tree_constant +octave_value tree_oct_obj::eval (bool /* print */) { return values(0); } -Octave_object +octave_value_list tree_oct_obj::eval (bool /* print */, int /* nargout */, - const Octave_object& /* args */) + const octave_value_list& /* args */) { return values; } @@ -109,10 +109,10 @@ id->mark_for_possible_ans_assign (); } -tree_constant +octave_value tree_index_expression::eval (bool print) { - tree_constant retval; + octave_value retval; if (error_state) return retval; @@ -122,7 +122,7 @@ // Extract the arguments into a simple vector. Don't pass null // args. - Octave_object args = list->convert_to_const_vector (); + octave_value_list args = list->convert_to_const_vector (); if (error_state) eval_error (); @@ -134,7 +134,7 @@ { if (all_args_defined (args)) { - Octave_object tmp = id->eval (print, 1, args); + octave_value_list tmp = id->eval (print, 1, args); if (error_state) eval_error (); @@ -160,11 +160,11 @@ return retval; } -Octave_object +octave_value_list tree_index_expression::eval (bool print, int nargout, - const Octave_object& /* args */) + const octave_value_list& /* args */) { - Octave_object retval; + octave_value_list retval; if (error_state) return retval; @@ -174,7 +174,7 @@ // Extract the arguments into a simple vector. Don't pass null // args. - Octave_object tmp_args = list->convert_to_const_vector (); + octave_value_list tmp_args = list->convert_to_const_vector (); if (error_state) eval_error (); @@ -201,7 +201,7 @@ } else { - Octave_object tmp_args; + octave_value_list tmp_args; retval = id->eval (print, nargout, tmp_args); @@ -271,16 +271,16 @@ delete rhs; } -tree_constant +octave_value tree_multi_assignment_expression::eval (bool print) { - tree_constant retval; + octave_value retval; if (error_state) return retval; - Octave_object tmp_args; - Octave_object result = eval (print, 1, tmp_args); + octave_value_list tmp_args; + octave_value_list result = eval (print, 1, tmp_args); if (result.length () > 0) retval = result(0); @@ -288,18 +288,18 @@ return retval; } -Octave_object +octave_value_list tree_multi_assignment_expression::eval (bool print, int nargout, - const Octave_object& /* args */) + const octave_value_list& /* args */) { assert (etype == tree_expression::multi_assignment); if (error_state || ! rhs) - return Octave_object (); + return octave_value_list (); nargout = lhs->length (); - Octave_object tmp_args; - Octave_object results = rhs->eval (0, nargout, tmp_args); + octave_value_list tmp_args; + octave_value_list results = rhs->eval (0, nargout, tmp_args); if (error_state) eval_error (); @@ -323,7 +323,7 @@ // works, but maybe we should have the option of // skipping the assignment instead. - tree_constant *tmp = 0; + octave_value *tmp = 0; if (results(i).is_undefined ()) { error ("element number %d undefined in return list", i+1); @@ -331,7 +331,7 @@ break; } else - tmp = new tree_constant (results(i)); + tmp = new octave_value (results(i)); tree_simple_assignment_expression tmp_expr (lhs_expr, tmp, 1, 0, ma_line, ma_column);