Mercurial > octave
annotate src/pt-mat.h @ 8920:eb63fbe60fab
update copyright notices
| author | John W. Eaton <jwe@octave.org> |
|---|---|
| date | Sat, 07 Mar 2009 10:41:27 -0500 |
| parents | 35cd375d4bb3 |
| children | d865363208d6 |
| rev | line source |
|---|---|
| 1739 | 1 /* |
| 2 | |
| 7017 | 3 Copyright (C) 1996, 1997, 2000, 2001, 2002, 2003, 2004, 2005, 2006, |
| 8920 | 4 2007, 2008, 2009 John W. Eaton |
| 1739 | 5 |
| 6 This file is part of Octave. | |
| 7 | |
| 8 Octave is free software; you can redistribute it and/or modify it | |
| 9 under the terms of the GNU General Public License as published by the | |
| 7016 | 10 Free Software Foundation; either version 3 of the License, or (at your |
| 11 option) any later version. | |
| 1739 | 12 |
| 13 Octave is distributed in the hope that it will be useful, but WITHOUT | |
| 14 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or | |
| 15 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License | |
| 16 for more details. | |
| 17 | |
| 18 You should have received a copy of the GNU General Public License | |
| 7016 | 19 along with Octave; see the file COPYING. If not, see |
| 20 <http://www.gnu.org/licenses/>. | |
| 1739 | 21 |
| 22 */ | |
| 23 | |
| 24 #if !defined (octave_tree_mat_h) | |
| 25 #define octave_tree_mat_h 1 | |
| 26 | |
| 3523 | 27 #include <iostream> |
| 1739 | 28 |
| 2086 | 29 class octave_value; |
| 2982 | 30 class octave_value_list; |
| 31 class tree_argument_list; | |
| 1739 | 32 |
| 2124 | 33 class tree_walker; |
| 34 | |
| 4219 | 35 #include "base-list.h" |
| 1739 | 36 #include "pt-exp.h" |
| 7336 | 37 #include "symtab.h" |
| 1739 | 38 |
| 39 // General matrices. This allows us to construct matrices from | |
| 40 // other matrices, variables, and functions. | |
| 41 | |
| 42 class | |
| 4219 | 43 tree_matrix : public tree_expression, |
| 44 public octave_base_list<tree_argument_list *> | |
| 1739 | 45 { |
| 46 public: | |
| 47 | |
| 4587 | 48 tree_matrix (tree_argument_list *row = 0, int l = -1, int c = -1) |
| 49 : tree_expression (l, c) | |
| 2990 | 50 { |
| 51 if (row) | |
| 4219 | 52 append (row); |
| 2990 | 53 } |
| 1827 | 54 |
| 2990 | 55 ~tree_matrix (void); |
| 1827 | 56 |
| 4267 | 57 bool has_magic_end (void) const; |
| 58 | |
| 2529 | 59 bool all_elements_are_constant (void) const; |
| 1827 | 60 |
| 3933 | 61 bool rvalue_ok (void) const { return true; } |
| 2971 | 62 |
|
8658
73c4516fae10
New evaluator and debugger derived from tree-walker class
John W. Eaton <jwe@octave.org>
parents:
8113
diff
changeset
|
63 octave_value rvalue1 (int nargout = 1); |
| 2971 | 64 |
| 65 octave_value_list rvalue (int nargout); | |
| 1739 | 66 |
|
7767
71f068b22fcc
scope and context fixes for function handles
John W. Eaton <jwe@octave.org>
parents:
7336
diff
changeset
|
67 tree_expression *dup (symbol_table::scope_id scope, |
|
8913
35cd375d4bb3
make tree::dup functions const
John W. Eaton <jwe@octave.org>
parents:
8658
diff
changeset
|
68 symbol_table::context_id context) const; |
| 5861 | 69 |
| 2124 | 70 void accept (tree_walker& tw); |
| 2988 | 71 |
| 72 private: | |
| 73 | |
| 74 // No copying! | |
| 75 | |
| 76 tree_matrix (const tree_matrix&); | |
| 77 | |
| 78 tree_matrix& operator = (const tree_matrix&); | |
| 1739 | 79 }; |
| 80 | |
| 3836 | 81 // The character to fill with when creating string arrays. |
| 82 extern char Vstring_fill_char; | |
| 83 | |
|
8107
8655dc0906e6
Special case single type conacation in Fcat. Rework cell2mat to take advantage
David Bateman <dbateman@free.fr>
parents:
7767
diff
changeset
|
84 extern std::string |
|
8655dc0906e6
Special case single type conacation in Fcat. Rework cell2mat to take advantage
David Bateman <dbateman@free.fr>
parents:
7767
diff
changeset
|
85 get_concat_class (const std::string& c1, const std::string& c2); |
|
8655dc0906e6
Special case single type conacation in Fcat. Rework cell2mat to take advantage
David Bateman <dbateman@free.fr>
parents:
7767
diff
changeset
|
86 |
|
8655dc0906e6
Special case single type conacation in Fcat. Rework cell2mat to take advantage
David Bateman <dbateman@free.fr>
parents:
7767
diff
changeset
|
87 extern void |
|
8655dc0906e6
Special case single type conacation in Fcat. Rework cell2mat to take advantage
David Bateman <dbateman@free.fr>
parents:
7767
diff
changeset
|
88 maybe_warn_string_concat (bool all_dq_strings_p, bool all_sq_strings_p); |
|
8655dc0906e6
Special case single type conacation in Fcat. Rework cell2mat to take advantage
David Bateman <dbateman@free.fr>
parents:
7767
diff
changeset
|
89 |
|
8113
38a797766a2a
Special case single type conacation in Fcat. Rework cell2mat to take advantage
David Bateman <dbateman@free.fr>
parents:
8107
diff
changeset
|
90 extern std::string |
|
38a797766a2a
Special case single type conacation in Fcat. Rework cell2mat to take advantage
David Bateman <dbateman@free.fr>
parents:
8107
diff
changeset
|
91 get_concat_class (const std::string& c1, const std::string& c2); |
|
38a797766a2a
Special case single type conacation in Fcat. Rework cell2mat to take advantage
David Bateman <dbateman@free.fr>
parents:
8107
diff
changeset
|
92 |
|
38a797766a2a
Special case single type conacation in Fcat. Rework cell2mat to take advantage
David Bateman <dbateman@free.fr>
parents:
8107
diff
changeset
|
93 extern void |
|
38a797766a2a
Special case single type conacation in Fcat. Rework cell2mat to take advantage
David Bateman <dbateman@free.fr>
parents:
8107
diff
changeset
|
94 maybe_warn_string_concat (bool all_dq_strings_p, bool all_sq_strings_p); |
|
38a797766a2a
Special case single type conacation in Fcat. Rework cell2mat to take advantage
David Bateman <dbateman@free.fr>
parents:
8107
diff
changeset
|
95 |
| 1739 | 96 #endif |
| 97 | |
| 98 /* | |
| 99 ;;; Local Variables: *** | |
| 100 ;;; mode: C++ *** | |
| 101 ;;; End: *** | |
| 102 */ |