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
pt-const.cc
Go to the documentation of this file.
1 /*
2 
3 Copyright (C) 1993-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 <iostream>
28 
29 #include "error.h"
30 #include "oct-obj.h"
31 #include "pager.h"
32 #include "pt-const.h"
33 #include "pt-walk.h"
34 
35 // We are likely to have a lot of tree_constant objects to allocate,
36 // so make the grow_size large.
37 
38 void
39 tree_constant::print (std::ostream& os, bool pr_as_read_syntax,
40  bool pr_orig_text)
41 {
42  if (pr_orig_text && ! orig_text.empty ())
43  os << orig_text;
44  else
45  val.print (os, pr_as_read_syntax);
46 }
47 
48 void
49 tree_constant::print_raw (std::ostream& os, bool pr_as_read_syntax,
50  bool pr_orig_text)
51 {
52  if (pr_orig_text && ! orig_text.empty ())
53  os << orig_text;
54  else
55  val.print_raw (os, pr_as_read_syntax);
56 }
57 
59 tree_constant::rvalue (int nargout)
60 {
61  octave_value_list retval;
62 
63  if (nargout > 1)
64  error ("invalid number of output arguments for constant expression");
65  else
66  retval = rvalue1 (nargout);
67 
68  return retval;
69 }
70 
74 {
75  tree_constant *new_tc
76  = new tree_constant (val, orig_text, line (), column ());
77 
78  new_tc->copy_base (*this);
79 
80  return new_tc;
81 }
82 
83 void
85 {
86  tw.visit_constant (*this);
87 }
void accept(tree_walker &tw)
Definition: pt-const.cc:84
octave_value rvalue1(int=1)
Definition: pt-const.h:71
octave_value val
Definition: pt-const.h:90
tree_constant(int l=-1, int c=-1)
Definition: pt-const.h:43
void error(const char *fmt,...)
Definition: error.cc:476
octave_value_list rvalue(int nargout)
Definition: pt-const.cc:59
virtual void copy_base(const tree_expression &e)
Definition: pt-exp.h:129
tree_expression * dup(symbol_table::scope_id scope, symbol_table::context_id context) const
Definition: pt-const.cc:72
virtual void visit_constant(tree_constant &)=0
void print(std::ostream &os, bool pr_as_read_syntax=false)
Definition: ov.h:1031
std::string orig_text
Definition: pt-const.h:93
void print(std::ostream &os, bool pr_as_read_syntax=false, bool pr_orig_txt=true)
Definition: pt-const.cc:39
void print_raw(std::ostream &os, bool pr_as_read_syntax=false) const
Definition: ov.h:1034
void print_raw(std::ostream &os, bool pr_as_read_syntax=false, bool pr_orig_txt=true)
Definition: pt-const.cc:49
virtual int column(void) const
Definition: pt.h:47