23 #if defined (HAVE_CONFIG_H)
159 if (! indexed_object)
160 error (
"invalid use of end");
167 args(1) = index_position + 1;
179 int ndims = dv.
ndims ();
181 if (num_indices < ndims)
183 for (
int i = num_indices;
i < ndims;
i++)
184 dv(num_indices-1) *=
dv(
i);
186 if (num_indices == 1)
199 if (index_position < ndims)
200 retval =
dv(index_position);
215 && ! (
object->is_function ()
216 ||
object->is_function_handle ()));
229 std::list<octave_value_list>
args;
232 for (
int k = 0;
k < len;
k++)
252 args.push_back (tmp);
264 std::list<octave_lvalue>
267 std::list<octave_lvalue>
retval;
275 retval.push_back (elt->
lvalue ());
300 std::list<std::string>
303 std::list<std::string>
retval;
313 retval.push_back (id->
name ());
320 retval.push_back (idx_expr->
name ());
340 new_list->
append (elt ? elt->
dup (scope, context) : 0);
std::list< octave_lvalue > lvalue_list(void)
bool is_object(void) const
virtual bool has_magic_end(void) const =0
virtual bool is_constant(void) const
static octave_value find_method(const std::string &name, const std::string &dispatch_type)
bool all_elements_are_constant(void) const
octave_value_list convert_to_const_vector(const octave_value *object=0)
bool is_defined(void) const
bool list_includes_magic_tilde
void resize(int n, int fill_value=0)
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 int index_position
iterator erase(iterator pos)
std::string name(void) const
bool has_magic_end(void) const
string_vector get_arg_names(void) const
bool list_includes_magic_end
static llvm::LLVMContext & context
void append(const element_type &s)
std::string name(void) const
virtual bool is_index_expression(void) const
virtual void visit_argument_list(tree_argument_list &)=0
#define DEFCONSTFUN(name, args_name, nargout_name, doc)
bool is_valid_lvalue_list(void) const
dim_vector dims(void) const
octave_function * function_value(bool silent=false) const
void accept(tree_walker &tw)
octave::unwind_protect frame
static const octave_value * indexed_object
std::string str_print_code(void)
virtual octave_value rvalue1(int nargout=1)
std::list< tree_expression * >::const_iterator const_iterator
tree_argument_list * dup(symbol_table::scope_id scope, symbol_table::context_id context) const
=val(i)}if ode{val(i)}occurs in table i
std::list< std::string > variable_names(void) const
bool is_cs_list(void) const
size_t length(void) const
virtual octave_lvalue lvalue(void)
octave_idx_type ndims(void) const
Number of dimensions.
std::string class_name(void) const
ots The first example below creates an uninitialized object
octave_value_list list_value(void) const
void append(const elt_type &s)
~tree_argument_list(void)
Vector representing the dimensions (size) of an Array.
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
virtual bool is_identifier(void) const