23 #if defined (HAVE_CONFIG_H)
51 :
tree_expression (l, c), lhs (le), rhs (re), preserve (plhs), etype (t)
66 error (
"invalid number of output arguments for expression X = RHS");
81 error (
"value on right hand side of assignment is undefined");
88 error (
"invalid number of elements on RHS of assignment");
97 if (ult.
numel () != 1)
105 retval = ult.
value ();
165 bool plhs,
int l,
int c)
204 for (std::list<octave_lvalue>::const_iterator
p = lvalue_list.begin ();
205 p != lvalue_list.end ();
207 n_out +=
p->numel ();
212 && rhs_val1(0).is_cs_list ()
213 ? rhs_val1(0).list_value ()
222 std::list<octave_value_list> retval_list;
226 for (std::list<octave_lvalue>::iterator
p = lvalue_list.begin ();
227 p != lvalue_list.end ();
247 if (lvalue_list.size () == 1 && nel == 0 && n > 0
260 std::list<octave_value_list> idx;
266 error (
"some elements undefined in return list");
274 retval_list.push_back (ovl);
291 retval_list.push_back (rhs_val(k));
314 error (
"element number %d undefined in return list", k+1);
338 retval = retval_list;
std::list< octave_lvalue > lvalue_list(void)
tree_multi_assignment(bool plhs=false, int l=-1, int c=-1)
octave_value rvalue1(int nargout=1)
tree_simple_assignment(bool plhs=false, int l=-1, int c=-1, octave_value::assign_op t=octave_value::op_asn_eq)
~tree_simple_assignment(void)
void err_nonbraced_cs_list_assignment(void)
octave_value_list slice(octave_idx_type offset, octave_idx_type len, bool tags=false) const
OCTAVE_EXPORT octave_value_list isa nd deftypefn *return ovl(args(0).is_integer_type())
octave_value::assign_op etype
~tree_multi_assignment(void)
octave_idx_type length(void) const
tree_expression * dup(symbol_table::scope_id scope, symbol_table::context_id context) const
octave_value_list rvalue(int nargout)
virtual tree_expression * dup(symbol_table::scope_id, symbol_table::context_id context) const =0
void error(const char *fmt,...)
std::list< tree_expression * >::iterator iterator
static std::string assign_op_as_string(assign_op)
OCTAVE_EXPORT octave_value_list return the number of command line arguments passed to Octave If called with the optional argument the function t
static bool statement_printing_enabled(void)
virtual void copy_base(const tree_expression &e)
void accept(tree_walker &tw)
virtual std::string message(void) const
bool index_is_empty(void) const
void set_var(const std::string &var_arg="")
virtual void visit_simple_assignment(tree_simple_assignment &)=0
void define(const octave_value &v)
octave_value value(void) const
bool print_result(void) const
OCTAVE_EXPORT octave_value_list return the number of command line arguments passed to Octave If called with the optional argument the function xample nargout(@histc)
bool is_black_hole(void) const
virtual const char * err_id(void) const =0
std::string oper(void) const
octave_value rvalue1(int nargout=1)
static llvm::LLVMContext & context
void error_with_id(const char *id, const char *fmt,...)
octave_value::assign_op op_type(void) const
void set_index(const std::string &t, const std::list< octave_value_list > &i)
void numel(octave_idx_type n)
the sparsity preserving column transformation such that that defines the pivoting threshold can be given in which case it defines the c
std::string oper(void) const
virtual std::string name(void) const
virtual octave_value rvalue1(int nargout=1)
tree_argument_list * dup(symbol_table::scope_id scope, symbol_table::context_id context) const
void assign(octave_value::assign_op, const octave_value &)
virtual void visit_multi_assignment(tree_multi_assignment &)=0
bool is_cs_list(void) const
std::string index_type(void) const
void print_with_name(std::ostream &os, const std::string &name) const
virtual octave_lvalue lvalue(void)
virtual octave_value_list rvalue(int nargout)
bool is_undefined(void) const
octave_value_list list_value(void) const
bool is_undefined(void) const
void accept(tree_walker &tw)
tree_expression * dup(symbol_table::scope_id scope, symbol_table::context_id context) const
If this string is the system will ring the terminal sometimes it is useful to be able to print the original representation of the string
octave_value_list rvalue(int nargout)