octave-lyh: src/pt-arg-list.cc comparison

[project @ 2006-06-07 18:16:16 by jwe]

comparison

equal deleted inserted replaced

-:8b4a99ae3b5e
+:db0598f94c0f
 #include "str-vec.h"
 #include "defun.h"
 #include "error.h"
+#include "oct-lvalue.h"
 #include "oct-obj.h"
 #include "ov.h"
 #include "ov-usr-fcn.h"
 #include "pt-arg-list.h"
 #include "pt-exp.h"
 {
 octave_base_list<tree_expression *>::append (s);
 if (! list_includes_magic_end && s && s->has_magic_end ())
 list_includes_magic_end = true;
-}
-int
-tree_argument_list::nargout_count (void) const
-{
-int retval = 0;
-for (const_iterator p = begin (); p != end (); p++)
-{
-tree_expression *elt = *p;
-// FIXME -- need to be able to determine whether elt is
-// an expression that could evaluate to a cs-list object, and if
-// so, how many elements are in that list.  Ugly!
-retval++;
-}
-return retval;
 }
 bool
 tree_argument_list::all_elements_are_constant (void) const
 {
 unwind_protect::run_frame ("convert_to_const_vector");
 return args;
 }
+std::list<octave_lvalue>
+tree_argument_list::lvalue_list (void)
+{
+std::list<octave_lvalue> retval;
+for (tree_argument_list::iterator p = begin ();
+p != end ();
+p++)
+{
+tree_expression *elt = *p;
+retval.push_back (elt->lvalue ());
+}
+return retval;
+}
 string_vector
 tree_argument_list::get_arg_names (void) const
 {
 int len = length ();

Mercurial > hg > octave-lyh