GNU Octave  4.0.0
A high-level interpreted language, primarily intended for numerical computations, mostly compatible with Matlab
 All Classes Namespaces Files Functions Variables Typedefs Enumerations Enumerator Properties Friends Macros Pages
oct-lvalue.cc
Go to the documentation of this file.
1 /*
2 
3 Copyright (C) 1996-2015 John W. Eaton
4 
5 This file is part of Octave.
6 
7 Octave is free software; you can redistribute it and/or modify it
8 under the terms of the GNU General Public License as published by the
9 Free Software Foundation; either version 3 of the License, or (at your
10 option) any later version.
11 
12 Octave is distributed in the hope that it will be useful, but WITHOUT
13 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
14 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
15 for more details.
16 
17 You should have received a copy of the GNU General Public License
18 along with Octave; see the file COPYING. If not, see
19 <http://www.gnu.org/licenses/>.
20 
21 */
22 
23 #ifdef HAVE_CONFIG_H
24 #include <config.h>
25 #endif
26 
27 #include "error.h"
28 #include "oct-obj.h"
29 #include "oct-lvalue.h"
30 #include "ov.h"
31 
32 void
34 {
35  if (! is_black_hole ())
36  {
37  if (idx.empty ())
38  sym->assign (op, rhs);
39  else
40  sym->assign (op, type, idx, rhs);
41  }
42 }
43 
44 void
45 octave_lvalue::set_index (const std::string& t,
46  const std::list<octave_value_list>& i)
47 {
48  if (idx.empty ())
49  {
50  type = t;
51  idx = i;
52  }
53  else
54  error ("invalid index expression in assignment");
55 }
56 
57 void
59 {
60  if (! is_black_hole ())
61  {
62  if (idx.empty ())
64  else
66  }
67 }
68 
71 {
72  octave_value retval;
73 
74  if (! is_black_hole ())
75  {
76  octave_value val = sym->varval ();
77 
78  if (idx.empty ())
79  retval = val;
80  else
81  {
82  if (val.is_constant ())
83  retval = val.subsref (type, idx);
84  else
85  {
86  octave_value_list t = val.subsref (type, idx, 1);
87  if (t.length () > 0)
88  retval = t(0);
89  }
90  }
91  }
92 
93  return retval;
94 }
assign_op
Definition: ov.h:131
octave_value subsref(const std::string &type, const std::list< octave_value_list > &idx)
Definition: ov.h:401
octave_idx_type length(void) const
Definition: oct-obj.h:89
void error(const char *fmt,...)
Definition: error.cc:476
octave_value varval(context_id context=xdefault_context) const
Definition: symtab.h:574
symbol_table::symbol_reference sym
Definition: oct-lvalue.h:99
void do_unary_op(octave_value::unary_op op)
Definition: oct-lvalue.cc:58
std::string type
Definition: oct-lvalue.h:101
octave_value value(void) const
Definition: oct-lvalue.cc:70
bool is_black_hole(void) const
Definition: oct-lvalue.h:64
void set_index(const std::string &t, const std::list< octave_value_list > &i)
Definition: oct-lvalue.cc:45
void do_non_const_unary_op(octave_value::unary_op op)
Definition: symtab.h:556
void assign(const octave_value &value, context_id context=xdefault_context)
Definition: symtab.h:535
void assign(octave_value::assign_op, const octave_value &)
Definition: oct-lvalue.cc:33
std::list< octave_value_list > idx
Definition: oct-lvalue.h:103
bool is_constant(void) const
Definition: ov.h:683
unary_op
Definition: ov.h:74