octave: libinterp/parse-tree/pt-mat.cc annotate

annotate libinterp/parse-tree/pt-mat.cc @ 27919:1891570abac8

update Octave Project Developers copyright for the new year In files that have the "Octave Project Developers" copyright notice, update for 2020.

author	John W. Eaton <jwe@octave.org>
date	Mon, 06 Jan 2020 22:29:51 -0500
parents	b442ec6dda5c
children	bd51beb6205e

rev	line source
1741 6ec1465f60f0 [project @ 1996-01-12 11:09:39 by jwe] jwe parents: diff changeset	1 /*
6ec1465f60f0 [project @ 1996-01-12 11:09:39 by jwe] jwe parents: diff changeset	2
27919 1891570abac8 update Octave Project Developers copyright for the new year John W. Eaton <jwe@octave.org> parents: 27918 diff changeset	3 Copyright (C) 1996-2020 The Octave Project Developers
27918 b442ec6dda5c use centralized file for copyright info for individual contributors John W. Eaton <jwe@octave.org> parents: 27371 diff changeset	4
b442ec6dda5c use centralized file for copyright info for individual contributors John W. Eaton <jwe@octave.org> parents: 27371 diff changeset	5 See the file COPYRIGHT.md in the top-level directory of this distribution
b442ec6dda5c use centralized file for copyright info for individual contributors John W. Eaton <jwe@octave.org> parents: 27371 diff changeset	6 or <https://octave.org/COPYRIGHT.html/>.
b442ec6dda5c use centralized file for copyright info for individual contributors John W. Eaton <jwe@octave.org> parents: 27371 diff changeset	7
1741 6ec1465f60f0 [project @ 1996-01-12 11:09:39 by jwe] jwe parents: diff changeset	8
6ec1465f60f0 [project @ 1996-01-12 11:09:39 by jwe] jwe parents: diff changeset	9 This file is part of Octave.
6ec1465f60f0 [project @ 1996-01-12 11:09:39 by jwe] jwe parents: diff changeset	10
24534 194eb4bd202b maint: Update punctuation for GPL v3 license text. Rik <rik@octave.org> parents: 24339 diff changeset	11 Octave is free software: you can redistribute it and/or modify it
22755 3a2b891d0b33 maint: Standardize Copyright formatting. Rik <rik@octave.org> parents: 22407 diff changeset	12 under the terms of the GNU General Public License as published by
24534 194eb4bd202b maint: Update punctuation for GPL v3 license text. Rik <rik@octave.org> parents: 24339 diff changeset	13 the Free Software Foundation, either version 3 of the License, or
22755 3a2b891d0b33 maint: Standardize Copyright formatting. Rik <rik@octave.org> parents: 22407 diff changeset	14 (at your option) any later version.
1741 6ec1465f60f0 [project @ 1996-01-12 11:09:39 by jwe] jwe parents: diff changeset	15
22755 3a2b891d0b33 maint: Standardize Copyright formatting. Rik <rik@octave.org> parents: 22407 diff changeset	16 Octave is distributed in the hope that it will be useful, but
3a2b891d0b33 maint: Standardize Copyright formatting. Rik <rik@octave.org> parents: 22407 diff changeset	17 WITHOUT ANY WARRANTY; without even the implied warranty of
3a2b891d0b33 maint: Standardize Copyright formatting. Rik <rik@octave.org> parents: 22407 diff changeset	18 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
3a2b891d0b33 maint: Standardize Copyright formatting. Rik <rik@octave.org> parents: 22407 diff changeset	19 GNU General Public License for more details.
1741 6ec1465f60f0 [project @ 1996-01-12 11:09:39 by jwe] jwe parents: diff changeset	20
6ec1465f60f0 [project @ 1996-01-12 11:09:39 by jwe] jwe parents: diff changeset	21 You should have received a copy of the GNU General Public License
7016 93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 6867 diff changeset	22 along with Octave; see the file COPYING. If not, see
24534 194eb4bd202b maint: Update punctuation for GPL v3 license text. Rik <rik@octave.org> parents: 24339 diff changeset	23 <https://www.gnu.org/licenses/>.
1741 6ec1465f60f0 [project @ 1996-01-12 11:09:39 by jwe] jwe parents: diff changeset	24
6ec1465f60f0 [project @ 1996-01-12 11:09:39 by jwe] jwe parents: diff changeset	25 */
6ec1465f60f0 [project @ 1996-01-12 11:09:39 by jwe] jwe parents: diff changeset	26
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21660 diff changeset	27 #if defined (HAVE_CONFIG_H)
21301 40de9f8f23a6 Use '#include "config.h"' rather than <config.h>. Rik <rik@octave.org> parents: 21261 diff changeset	28 # include "config.h"
1741 6ec1465f60f0 [project @ 1996-01-12 11:09:39 by jwe] jwe parents: diff changeset	29 #endif
6ec1465f60f0 [project @ 1996-01-12 11:09:39 by jwe] jwe parents: diff changeset	30
2172 0de32e614930 [project @ 1996-05-13 15:00:42 by jwe] jwe parents: 2124 diff changeset	31 #include "defun.h"
27371 fcaecdbc8d8a don't use visitor pattern for expression evaluation (bug #56752) John W. Eaton <jwe@octave.org> parents: 26402 diff changeset	32 #include "ov.h"
20940 48b2ad5ee801 maint: Rename oct-obj.[cc\|h] to ovl.[cc\|h] for clarity. Rik <rik@octave.org> parents: 20853 diff changeset	33 #include "ovl.h"
2982 20f5cec4f11c [project @ 1997-05-16 03:29:26 by jwe] jwe parents: 2971 diff changeset	34 #include "pt-arg-list.h"
27371 fcaecdbc8d8a don't use visitor pattern for expression evaluation (bug #56752) John W. Eaton <jwe@octave.org> parents: 26402 diff changeset	35 #include "pt-eval.h"
1741 6ec1465f60f0 [project @ 1996-01-12 11:09:39 by jwe] jwe parents: diff changeset	36 #include "pt-exp.h"
6ec1465f60f0 [project @ 1996-01-12 11:09:39 by jwe] jwe parents: diff changeset	37 #include "pt-mat.h"
27371 fcaecdbc8d8a don't use visitor pattern for expression evaluation (bug #56752) John W. Eaton <jwe@octave.org> parents: 26402 diff changeset	38 #include "pt-tm-const.h"
2371 dd29ab8af9e7 [project @ 1996-10-12 00:09:55 by jwe] jwe parents: 2254 diff changeset	39 #include "variables.h"
1741 6ec1465f60f0 [project @ 1996-01-12 11:09:39 by jwe] jwe parents: diff changeset	40
9460 1fddcf651559 avoid complex -> real conversion when constructing arrays with [] John W. Eaton <jwe@octave.org> parents: 9389 diff changeset	41 #include "ov-cx-mat.h"
1fddcf651559 avoid complex -> real conversion when constructing arrays with [] John W. Eaton <jwe@octave.org> parents: 9389 diff changeset	42 #include "ov-flt-cx-mat.h"
5630 512d0d11ae39 [project @ 2006-02-20 22:05:30 by dbateman] dbateman parents: 5533 diff changeset	43 #include "ov-re-sparse.h"
512d0d11ae39 [project @ 2006-02-20 22:05:30 by dbateman] dbateman parents: 5533 diff changeset	44 #include "ov-cx-sparse.h"
512d0d11ae39 [project @ 2006-02-20 22:05:30 by dbateman] dbateman parents: 5533 diff changeset	45
23075 4e3d47dc7e25 move parse tree classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 23012 diff changeset	46 namespace octave
1741 6ec1465f60f0 [project @ 1996-01-12 11:09:39 by jwe] jwe parents: diff changeset	47 {
27371 fcaecdbc8d8a don't use visitor pattern for expression evaluation (bug #56752) John W. Eaton <jwe@octave.org> parents: 26402 diff changeset	48 octave_value
fcaecdbc8d8a don't use visitor pattern for expression evaluation (bug #56752) John W. Eaton <jwe@octave.org> parents: 26402 diff changeset	49 tree_matrix::evaluate (tree_evaluator& tw, int)
fcaecdbc8d8a don't use visitor pattern for expression evaluation (bug #56752) John W. Eaton <jwe@octave.org> parents: 26402 diff changeset	50 {
fcaecdbc8d8a don't use visitor pattern for expression evaluation (bug #56752) John W. Eaton <jwe@octave.org> parents: 26402 diff changeset	51 tm_const tmp (*this, tw);
fcaecdbc8d8a don't use visitor pattern for expression evaluation (bug #56752) John W. Eaton <jwe@octave.org> parents: 26402 diff changeset	52
fcaecdbc8d8a don't use visitor pattern for expression evaluation (bug #56752) John W. Eaton <jwe@octave.org> parents: 26402 diff changeset	53 return tmp.concat (tw.string_fill_char ());
fcaecdbc8d8a don't use visitor pattern for expression evaluation (bug #56752) John W. Eaton <jwe@octave.org> parents: 26402 diff changeset	54 }
fcaecdbc8d8a don't use visitor pattern for expression evaluation (bug #56752) John W. Eaton <jwe@octave.org> parents: 26402 diff changeset	55
23075 4e3d47dc7e25 move parse tree classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 23012 diff changeset	56 std::string
4e3d47dc7e25 move parse tree classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 23012 diff changeset	57 get_concat_class (const std::string& c1, const std::string& c2)
1827 effa9400766f [project @ 1996-02-02 14:07:51 by jwe] jwe parents: 1742 diff changeset	58 {
23075 4e3d47dc7e25 move parse tree classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 23012 diff changeset	59 std::string retval = octave_base_value::static_class_name ();
1827 effa9400766f [project @ 1996-02-02 14:07:51 by jwe] jwe parents: 1742 diff changeset	60
23075 4e3d47dc7e25 move parse tree classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 23012 diff changeset	61 if (c1 == c2)
4e3d47dc7e25 move parse tree classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 23012 diff changeset	62 retval = c1;
4e3d47dc7e25 move parse tree classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 23012 diff changeset	63 else if (c1.empty ())
4e3d47dc7e25 move parse tree classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 23012 diff changeset	64 retval = c2;
4e3d47dc7e25 move parse tree classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 23012 diff changeset	65 else if (c2.empty ())
4e3d47dc7e25 move parse tree classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 23012 diff changeset	66 retval = c1;
4e3d47dc7e25 move parse tree classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 23012 diff changeset	67 else if (c1 == "class" \|\| c2 == "class")
4e3d47dc7e25 move parse tree classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 23012 diff changeset	68 retval = "class";
4e3d47dc7e25 move parse tree classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 23012 diff changeset	69 else
4e3d47dc7e25 move parse tree classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 23012 diff changeset	70 {
4e3d47dc7e25 move parse tree classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 23012 diff changeset	71 bool c1_is_int = (c1 == "int8" \|\| c1 == "uint8"
4e3d47dc7e25 move parse tree classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 23012 diff changeset	72 \|\| c1 == "int16" \|\| c1 == "uint16"
4e3d47dc7e25 move parse tree classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 23012 diff changeset	73 \|\| c1 == "int32" \|\| c1 == "uint32"
4e3d47dc7e25 move parse tree classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 23012 diff changeset	74 \|\| c1 == "int64" \|\| c1 == "uint64");
4e3d47dc7e25 move parse tree classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 23012 diff changeset	75 bool c2_is_int = (c2 == "int8" \|\| c2 == "uint8"
4e3d47dc7e25 move parse tree classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 23012 diff changeset	76 \|\| c2 == "int16" \|\| c2 == "uint16"
4e3d47dc7e25 move parse tree classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 23012 diff changeset	77 \|\| c2 == "int32" \|\| c2 == "uint32"
4e3d47dc7e25 move parse tree classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 23012 diff changeset	78 \|\| c2 == "int64" \|\| c2 == "uint64");
1827 effa9400766f [project @ 1996-02-02 14:07:51 by jwe] jwe parents: 1742 diff changeset	79
23075 4e3d47dc7e25 move parse tree classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 23012 diff changeset	80 bool c1_is_char = (c1 == "char");
4e3d47dc7e25 move parse tree classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 23012 diff changeset	81 bool c2_is_char = (c2 == "char");
1827 effa9400766f [project @ 1996-02-02 14:07:51 by jwe] jwe parents: 1742 diff changeset	82
23075 4e3d47dc7e25 move parse tree classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 23012 diff changeset	83 bool c1_is_double = (c1 == "double");
4e3d47dc7e25 move parse tree classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 23012 diff changeset	84 bool c2_is_double = (c2 == "double");
1827 effa9400766f [project @ 1996-02-02 14:07:51 by jwe] jwe parents: 1742 diff changeset	85
23075 4e3d47dc7e25 move parse tree classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 23012 diff changeset	86 bool c1_is_single = (c1 == "single");
4e3d47dc7e25 move parse tree classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 23012 diff changeset	87 bool c2_is_single = (c2 == "single");
1741 6ec1465f60f0 [project @ 1996-01-12 11:09:39 by jwe] jwe parents: diff changeset	88
23075 4e3d47dc7e25 move parse tree classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 23012 diff changeset	89 bool c1_is_logical = (c1 == "logical");
4e3d47dc7e25 move parse tree classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 23012 diff changeset	90 bool c2_is_logical = (c2 == "logical");
1827 effa9400766f [project @ 1996-02-02 14:07:51 by jwe] jwe parents: 1742 diff changeset	91
23075 4e3d47dc7e25 move parse tree classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 23012 diff changeset	92 bool c1_is_built_in_type
4e3d47dc7e25 move parse tree classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 23012 diff changeset	93 = (c1_is_int \|\| c1_is_char \|\| c1_is_double \|\| c1_is_single
4e3d47dc7e25 move parse tree classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 23012 diff changeset	94 \|\| c1_is_logical);
1827 effa9400766f [project @ 1996-02-02 14:07:51 by jwe] jwe parents: 1742 diff changeset	95
23075 4e3d47dc7e25 move parse tree classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 23012 diff changeset	96 bool c2_is_built_in_type
4e3d47dc7e25 move parse tree classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 23012 diff changeset	97 = (c2_is_int \|\| c2_is_char \|\| c2_is_double \|\| c2_is_single
4e3d47dc7e25 move parse tree classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 23012 diff changeset	98 \|\| c2_is_logical);
1827 effa9400766f [project @ 1996-02-02 14:07:51 by jwe] jwe parents: 1742 diff changeset	99
23075 4e3d47dc7e25 move parse tree classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 23012 diff changeset	100 // Order is important here...
2419 015cbef2b75f [project @ 1996-10-16 17:46:12 by jwe] jwe parents: 2371 diff changeset	101
26402 bb8d66018bd7 pt-mat.cc: Fix static analyzer detected issues (bug #55347). Rik <rik@octave.org> parents: 26376 diff changeset	102 if (c1 == "cell" \|\| c2 == "cell")
23075 4e3d47dc7e25 move parse tree classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 23012 diff changeset	103 retval = "cell";
4e3d47dc7e25 move parse tree classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 23012 diff changeset	104 else if (c1_is_char && c2_is_built_in_type)
4e3d47dc7e25 move parse tree classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 23012 diff changeset	105 retval = c1;
4e3d47dc7e25 move parse tree classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 23012 diff changeset	106 else if (c2_is_char && c1_is_built_in_type)
4e3d47dc7e25 move parse tree classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 23012 diff changeset	107 retval = c2;
4e3d47dc7e25 move parse tree classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 23012 diff changeset	108 else if (c1_is_int && c2_is_built_in_type)
4e3d47dc7e25 move parse tree classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 23012 diff changeset	109 retval = c1;
4e3d47dc7e25 move parse tree classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 23012 diff changeset	110 else if (c2_is_int && c1_is_built_in_type)
4e3d47dc7e25 move parse tree classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 23012 diff changeset	111 retval = c2;
4e3d47dc7e25 move parse tree classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 23012 diff changeset	112 else if (c1_is_single && c2_is_built_in_type)
4e3d47dc7e25 move parse tree classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 23012 diff changeset	113 retval = c1;
4e3d47dc7e25 move parse tree classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 23012 diff changeset	114 else if (c2_is_single && c1_is_built_in_type)
4e3d47dc7e25 move parse tree classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 23012 diff changeset	115 retval = c2;
4e3d47dc7e25 move parse tree classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 23012 diff changeset	116 else if (c1_is_double && c2_is_built_in_type)
4e3d47dc7e25 move parse tree classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 23012 diff changeset	117 retval = c1;
4e3d47dc7e25 move parse tree classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 23012 diff changeset	118 else if (c2_is_double && c1_is_built_in_type)
4e3d47dc7e25 move parse tree classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 23012 diff changeset	119 retval = c2;
4e3d47dc7e25 move parse tree classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 23012 diff changeset	120 else if (c1_is_logical && c2_is_logical)
4e3d47dc7e25 move parse tree classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 23012 diff changeset	121 retval = c1;
2990 35bd1b05cfbe [project @ 1997-05-16 09:19:11 by jwe] jwe parents: 2982 diff changeset	122 }
1741 6ec1465f60f0 [project @ 1996-01-12 11:09:39 by jwe] jwe parents: diff changeset	123
23075 4e3d47dc7e25 move parse tree classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 23012 diff changeset	124 return retval;
2990 35bd1b05cfbe [project @ 1997-05-16 09:19:11 by jwe] jwe parents: 2982 diff changeset	125 }
1741 6ec1465f60f0 [project @ 1996-01-12 11:09:39 by jwe] jwe parents: diff changeset	126
23075 4e3d47dc7e25 move parse tree classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 23012 diff changeset	127 void
4e3d47dc7e25 move parse tree classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 23012 diff changeset	128 maybe_warn_string_concat (bool all_dq_strings_p, bool all_sq_strings_p)
4e3d47dc7e25 move parse tree classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 23012 diff changeset	129 {
4e3d47dc7e25 move parse tree classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 23012 diff changeset	130 if (! (all_dq_strings_p \|\| all_sq_strings_p))
4e3d47dc7e25 move parse tree classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 23012 diff changeset	131 warning_with_id ("Octave:mixed-string-concat",
4e3d47dc7e25 move parse tree classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 23012 diff changeset	132 "concatenation of different character string types may have unintended consequences");
4e3d47dc7e25 move parse tree classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 23012 diff changeset	133 }
4501 693ad5220d1e [project @ 2003-09-05 20:55:40 by jwe] jwe parents: 4460 diff changeset	134
23075 4e3d47dc7e25 move parse tree classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 23012 diff changeset	135 tree_expression *
24270 bc3819b7cca1 don't use symbol_table:: nesting for symbol_record, symbol_scope, or fcn_info John W. Eaton <jwe@octave.org> parents: 23795 diff changeset	136 tree_matrix::dup (symbol_scope& scope) const
23075 4e3d47dc7e25 move parse tree classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 23012 diff changeset	137 {
23795 980f39c3ab90 Use C++11 nullptr rather than 0 in code (bug #51565). Rik <rik@octave.org> parents: 23706 diff changeset	138 tree_matrix *new_matrix = new tree_matrix (nullptr, line (), column ());
13142 d803d2702a39 improve compatibility of concatenation (bug #33966) John W. Eaton <jwe@octave.org> parents: 13140 diff changeset	139
23602 214cb58ccc1c use pointer to scope instead of scope id John W. Eaton <jwe@octave.org> parents: 23573 diff changeset	140 new_matrix->copy_base (*this, scope);
13144 c99f24c10ca3 fix vertical concatenation involving cell arrays John W. Eaton <jwe@octave.org> parents: 13142 diff changeset	141
23075 4e3d47dc7e25 move parse tree classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 23012 diff changeset	142 return new_matrix;
4e3d47dc7e25 move parse tree classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 23012 diff changeset	143 }
13144 c99f24c10ca3 fix vertical concatenation involving cell arrays John W. Eaton <jwe@octave.org> parents: 13142 diff changeset	144 }

Mercurial > octave

annotate libinterp/parse-tree/pt-mat.cc @ 27919:1891570abac8