Mercurial > octave

annotate libinterp/operators/op-fcn.cc @ 29358:0a5b15007766 stable

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
update Octave Project Developers copyright for the new year In files that have the "Octave Project Developers" copyright notice, update for 2021.
author John W. Eaton <jwe@octave.org>
date Wed, 10 Feb 2021 09:52:15 -0500
parents e760fef2829c
children b260322f6730
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
27923
bd51beb6205e update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents: 27919
diff changeset
1 ////////////////////////////////////////////////////////////////////////
bd51beb6205e update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents: 27919
diff changeset
2 //
29358
0a5b15007766 update Octave Project Developers copyright for the new year
John W. Eaton <jwe@octave.org>
parents: 28439
diff changeset
3 // Copyright (C) 2010-2021 The Octave Project Developers
27923
bd51beb6205e update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents: 27919
diff changeset
4 //
bd51beb6205e update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents: 27919
diff changeset
5 // See the file COPYRIGHT.md in the top-level directory of this
bd51beb6205e update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents: 27919
diff changeset
6 // distribution or <https://octave.org/copyright/>.
bd51beb6205e update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents: 27919
diff changeset
7 //
bd51beb6205e update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents: 27919
diff changeset
8 // This file is part of Octave.
bd51beb6205e update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents: 27919
diff changeset
9 //
bd51beb6205e update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents: 27919
diff changeset
10 // Octave is free software: you can redistribute it and/or modify it
bd51beb6205e update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents: 27919
diff changeset
11 // under the terms of the GNU General Public License as published by
bd51beb6205e update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents: 27919
diff changeset
12 // the Free Software Foundation, either version 3 of the License, or
bd51beb6205e update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents: 27919
diff changeset
13 // (at your option) any later version.
bd51beb6205e update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents: 27919
diff changeset
14 //
bd51beb6205e update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents: 27919
diff changeset
15 // Octave is distributed in the hope that it will be useful, but
bd51beb6205e update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents: 27919
diff changeset
16 // WITHOUT ANY WARRANTY; without even the implied warranty of
bd51beb6205e update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents: 27919
diff changeset
17 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
bd51beb6205e update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents: 27919
diff changeset
18 // GNU General Public License for more details.
bd51beb6205e update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents: 27919
diff changeset
19 //
bd51beb6205e update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents: 27919
diff changeset
20 // You should have received a copy of the GNU General Public License
bd51beb6205e update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents: 27919
diff changeset
21 // along with Octave; see the file COPYING. If not, see
bd51beb6205e update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents: 27919
diff changeset
22 // <https://www.gnu.org/licenses/>.
bd51beb6205e update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents: 27919
diff changeset
23 //
bd51beb6205e update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents: 27919
diff changeset
24 ////////////////////////////////////////////////////////////////////////
10263
07dedea2e0a4 add omitted file from 10260:14d5fee02b3b
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
25
21724
aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef"
John W. Eaton <jwe@octave.org>
parents: 21647
diff changeset
26 #if defined (HAVE_CONFIG_H)
21301
40de9f8f23a6 Use '#include "config.h"' rather than <config.h>.
Rik <rik@octave.org>
parents: 21200
diff changeset
27 # include "config.h"
10263
07dedea2e0a4 add omitted file from 10260:14d5fee02b3b
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
28 #endif
07dedea2e0a4 add omitted file from 10260:14d5fee02b3b
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
29
21100
e39e05d90788 Switch gripe_XXX to either err_XXX or warn_XXX naming scheme.
Rik <rik@octave.org>
parents: 20940
diff changeset
30 #include "errwarn.h"
20940
48b2ad5ee801 maint: Rename oct-obj.[cc|h] to ovl.[cc|h] for clarity.
Rik <rik@octave.org>
parents: 19697
diff changeset
31 #include "ovl.h"
10263
07dedea2e0a4 add omitted file from 10260:14d5fee02b3b
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
32 #include "ov.h"
07dedea2e0a4 add omitted file from 10260:14d5fee02b3b
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
33 #include "ov-fcn-handle.h"
07dedea2e0a4 add omitted file from 10260:14d5fee02b3b
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
34 #include "ov-scalar.h"
07dedea2e0a4 add omitted file from 10260:14d5fee02b3b
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
35 #include "ov-typeinfo.h"
07dedea2e0a4 add omitted file from 10260:14d5fee02b3b
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
36 #include "ops.h"
07dedea2e0a4 add omitted file from 10260:14d5fee02b3b
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
37
07dedea2e0a4 add omitted file from 10260:14d5fee02b3b
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
38 DEFBINOP (eq, fcn_handle, fcn_handle)
07dedea2e0a4 add omitted file from 10260:14d5fee02b3b
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
39 {
21647
66cae7a6dc47 eliminate some macros for operator definitions
John W. Eaton <jwe@octave.org>
parents: 21301
diff changeset
40 const octave_fcn_handle& v1 = dynamic_cast<const octave_fcn_handle&> (a1);
66cae7a6dc47 eliminate some macros for operator definitions
John W. Eaton <jwe@octave.org>
parents: 21301
diff changeset
41 const octave_fcn_handle& v2 = dynamic_cast<const octave_fcn_handle&> (a2);
10263
07dedea2e0a4 add omitted file from 10260:14d5fee02b3b
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
42
28439
e760fef2829c refactor octave_fcn_handle class
John W. Eaton <jwe@octave.org>
parents: 27923
diff changeset
43 return is_equal_to (v1, v2);
10322
21551cc88061 improve function handles comparison
Jaroslav Hajek <highegg@gmail.com>
parents: 10263
diff changeset
44 }
10263
07dedea2e0a4 add omitted file from 10260:14d5fee02b3b
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
45
10322
21551cc88061 improve function handles comparison
Jaroslav Hajek <highegg@gmail.com>
parents: 10263
diff changeset
46 DEFBINOP (ne, fcn_handle, fcn_handle)
21551cc88061 improve function handles comparison
Jaroslav Hajek <highegg@gmail.com>
parents: 10263
diff changeset
47 {
21647
66cae7a6dc47 eliminate some macros for operator definitions
John W. Eaton <jwe@octave.org>
parents: 21301
diff changeset
48 const octave_fcn_handle& v1 = dynamic_cast<const octave_fcn_handle&> (a1);
66cae7a6dc47 eliminate some macros for operator definitions
John W. Eaton <jwe@octave.org>
parents: 21301
diff changeset
49 const octave_fcn_handle& v2 = dynamic_cast<const octave_fcn_handle&> (a2);
10322
21551cc88061 improve function handles comparison
Jaroslav Hajek <highegg@gmail.com>
parents: 10263
diff changeset
50
28439
e760fef2829c refactor octave_fcn_handle class
John W. Eaton <jwe@octave.org>
parents: 27923
diff changeset
51 return ! is_equal_to (v1, v2);
10263
07dedea2e0a4 add omitted file from 10260:14d5fee02b3b
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
52 }
07dedea2e0a4 add omitted file from 10260:14d5fee02b3b
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
53
07dedea2e0a4 add omitted file from 10260:14d5fee02b3b
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
54 void
24540
46440078d73b don't use singleton for octave_value_typeinfo
John W. Eaton <jwe@octave.org>
parents: 24534
diff changeset
55 install_fcn_ops (octave::type_info& ti)
10263
07dedea2e0a4 add omitted file from 10260:14d5fee02b3b
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
56 {
24540
46440078d73b don't use singleton for octave_value_typeinfo
John W. Eaton <jwe@octave.org>
parents: 24534
diff changeset
57 INSTALL_BINOP_TI (ti, op_eq, octave_fcn_handle, octave_fcn_handle, eq);
46440078d73b don't use singleton for octave_value_typeinfo
John W. Eaton <jwe@octave.org>
parents: 24534
diff changeset
58 INSTALL_BINOP_TI (ti, op_ne, octave_fcn_handle, octave_fcn_handle, ne);
10263
07dedea2e0a4 add omitted file from 10260:14d5fee02b3b
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
59 }