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-array-list.cc
Go to the documentation of this file.
1 /*
2 
3 Copyright (C) 2013-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 "pt-array-list.h"
31 
33 {
34  while (! empty ())
35  {
36  iterator p = begin ();
37  delete *p;
38  erase (p);
39  }
40 }
41 
42 bool
44 {
45  for (const_iterator p = begin (); p != end (); p++)
46  {
47  octave_quit ();
48 
49  tree_argument_list *elt = *p;
50 
51  if (! elt->all_elements_are_constant ())
52  return false;
53  }
54 
55  return true;
56 }
57 
58 bool
60 {
61  for (const_iterator p = begin (); p != end (); p++)
62  {
63  octave_quit ();
64 
65  tree_argument_list *elt = *p;
66 
67  if (elt && elt->has_magic_end ())
68  return true;
69  }
70 
71  return false;
72 }
73 
74 void
76 {
77  tree_expression::copy_base (array_list);
78 }
79 
80 void
84 {
85  for (const_iterator p = array_list.begin (); p != array_list.end (); p++)
86  {
87  const tree_argument_list *elt = *p;
88 
89  append (elt ? elt->dup (scope, context) : 0);
90  }
91 
92  copy_base (*this);
93 }
94 
98 {
100  return 0;
101 }
102 
103 void
105 {
106  panic_impossible ();
107 }
108 
void accept(tree_walker &tw)
bool all_elements_are_constant(void) const
Definition: pt-arg-list.cc:89
octave_base_list< tree_argument_list * >::const_iterator const_iterator
Definition: pt-array-list.h:40
virtual void copy_base(const tree_expression &e)
Definition: pt-exp.h:129
bool has_magic_end(void) const
Definition: pt-arg-list.cc:60
void append(const tree_argument_list *&s)
Definition: base-list.h:105
bool all_elements_are_constant(void) const
static llvm::LLVMContext & context
Definition: jit-typeinfo.cc:76
#define panic_impossible()
Definition: error.h:33
bool has_magic_end(void) const
void copy_base(const tree_array_list &array_list)
tree_argument_list * dup(symbol_table::scope_id scope, symbol_table::context_id context) const
Definition: pt-arg-list.cc:333
tree_expression * dup(symbol_table::scope_id scope, symbol_table::context_id context) const
octave_base_list< tree_argument_list * >::iterator iterator
Definition: pt-array-list.h:39