Mercurial > octave
annotate liboctave/util/functor.h @ 23084:ef4d915df748
maint: Merge stable to default.
author | John W. Eaton <jwe@octave.org> |
---|---|
date | Mon, 23 Jan 2017 14:27:48 -0500 |
parents | 3a2b891d0b33 e9a0469dedd9 |
children | 092078913d54 |
rev | line source |
---|---|
7503
8c32f95c2639
convert mapper functions to new format
David Bateman <dbateman@free.fr>
parents:
diff
changeset
|
1 /* |
8c32f95c2639
convert mapper functions to new format
David Bateman <dbateman@free.fr>
parents:
diff
changeset
|
2 |
22323
bac0d6f07a3e
maint: Update copyright notices for 2016.
John W. Eaton <jwe@octave.org>
parents:
21244
diff
changeset
|
3 Copyright (C) 2008-2016 John W. Eaton |
7503
8c32f95c2639
convert mapper functions to new format
David Bateman <dbateman@free.fr>
parents:
diff
changeset
|
4 |
8c32f95c2639
convert mapper functions to new format
David Bateman <dbateman@free.fr>
parents:
diff
changeset
|
5 This file is part of Octave. |
8c32f95c2639
convert mapper functions to new format
David Bateman <dbateman@free.fr>
parents:
diff
changeset
|
6 |
8c32f95c2639
convert mapper functions to new format
David Bateman <dbateman@free.fr>
parents:
diff
changeset
|
7 Octave is free software; you can redistribute it and/or modify it |
22755
3a2b891d0b33
maint: Standardize Copyright formatting.
Rik <rik@octave.org>
parents:
22402
diff
changeset
|
8 under the terms of the GNU General Public License as published by |
3a2b891d0b33
maint: Standardize Copyright formatting.
Rik <rik@octave.org>
parents:
22402
diff
changeset
|
9 the Free Software Foundation; either version 3 of the License, or |
3a2b891d0b33
maint: Standardize Copyright formatting.
Rik <rik@octave.org>
parents:
22402
diff
changeset
|
10 (at your option) any later version. |
7503
8c32f95c2639
convert mapper functions to new format
David Bateman <dbateman@free.fr>
parents:
diff
changeset
|
11 |
22755
3a2b891d0b33
maint: Standardize Copyright formatting.
Rik <rik@octave.org>
parents:
22402
diff
changeset
|
12 Octave is distributed in the hope that it will be useful, but |
3a2b891d0b33
maint: Standardize Copyright formatting.
Rik <rik@octave.org>
parents:
22402
diff
changeset
|
13 WITHOUT ANY WARRANTY; without even the implied warranty of |
3a2b891d0b33
maint: Standardize Copyright formatting.
Rik <rik@octave.org>
parents:
22402
diff
changeset
|
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
3a2b891d0b33
maint: Standardize Copyright formatting.
Rik <rik@octave.org>
parents:
22402
diff
changeset
|
15 GNU General Public License for more details. |
7503
8c32f95c2639
convert mapper functions to new format
David Bateman <dbateman@free.fr>
parents:
diff
changeset
|
16 |
8c32f95c2639
convert mapper functions to new format
David Bateman <dbateman@free.fr>
parents:
diff
changeset
|
17 You should have received a copy of the GNU General Public License |
8c32f95c2639
convert mapper functions to new format
David Bateman <dbateman@free.fr>
parents:
diff
changeset
|
18 along with Octave; see the file COPYING. If not, see |
8c32f95c2639
convert mapper functions to new format
David Bateman <dbateman@free.fr>
parents:
diff
changeset
|
19 <http://www.gnu.org/licenses/>. |
8c32f95c2639
convert mapper functions to new format
David Bateman <dbateman@free.fr>
parents:
diff
changeset
|
20 |
8c32f95c2639
convert mapper functions to new format
David Bateman <dbateman@free.fr>
parents:
diff
changeset
|
21 */ |
8c32f95c2639
convert mapper functions to new format
David Bateman <dbateman@free.fr>
parents:
diff
changeset
|
22 |
20791
f7084eae3318
maint: Use Octave coding conventions for #if statements.
Rik <rik@octave.org>
parents:
19697
diff
changeset
|
23 #if ! defined (octave_functor_h) |
7503
8c32f95c2639
convert mapper functions to new format
David Bateman <dbateman@free.fr>
parents:
diff
changeset
|
24 #define octave_functor_h 1 |
8c32f95c2639
convert mapper functions to new format
David Bateman <dbateman@free.fr>
parents:
diff
changeset
|
25 |
21244
1473547f50f5
include octave-config.h in public header files
John W. Eaton <jwe@octave.org>
parents:
20791
diff
changeset
|
26 #include "octave-config.h" |
1473547f50f5
include octave-config.h in public header files
John W. Eaton <jwe@octave.org>
parents:
20791
diff
changeset
|
27 |
7503
8c32f95c2639
convert mapper functions to new format
David Bateman <dbateman@free.fr>
parents:
diff
changeset
|
28 template <typename RT, typename PT> |
8c32f95c2639
convert mapper functions to new format
David Bateman <dbateman@free.fr>
parents:
diff
changeset
|
29 class fcn_ptr |
8c32f95c2639
convert mapper functions to new format
David Bateman <dbateman@free.fr>
parents:
diff
changeset
|
30 { |
8c32f95c2639
convert mapper functions to new format
David Bateman <dbateman@free.fr>
parents:
diff
changeset
|
31 public: |
8c32f95c2639
convert mapper functions to new format
David Bateman <dbateman@free.fr>
parents:
diff
changeset
|
32 typedef RT (*TYPE) (PT); |
8c32f95c2639
convert mapper functions to new format
David Bateman <dbateman@free.fr>
parents:
diff
changeset
|
33 }; |
8c32f95c2639
convert mapper functions to new format
David Bateman <dbateman@free.fr>
parents:
diff
changeset
|
34 |
8c32f95c2639
convert mapper functions to new format
David Bateman <dbateman@free.fr>
parents:
diff
changeset
|
35 template <typename RT, typename PT> |
8c32f95c2639
convert mapper functions to new format
David Bateman <dbateman@free.fr>
parents:
diff
changeset
|
36 class functor |
8c32f95c2639
convert mapper functions to new format
David Bateman <dbateman@free.fr>
parents:
diff
changeset
|
37 { |
8c32f95c2639
convert mapper functions to new format
David Bateman <dbateman@free.fr>
parents:
diff
changeset
|
38 private: |
8c32f95c2639
convert mapper functions to new format
David Bateman <dbateman@free.fr>
parents:
diff
changeset
|
39 typedef typename fcn_ptr<RT, PT>::TYPE fcn_ptr_type; |
8c32f95c2639
convert mapper functions to new format
David Bateman <dbateman@free.fr>
parents:
diff
changeset
|
40 fcn_ptr_type fptr; |
8c32f95c2639
convert mapper functions to new format
David Bateman <dbateman@free.fr>
parents:
diff
changeset
|
41 |
8c32f95c2639
convert mapper functions to new format
David Bateman <dbateman@free.fr>
parents:
diff
changeset
|
42 public: |
8c32f95c2639
convert mapper functions to new format
David Bateman <dbateman@free.fr>
parents:
diff
changeset
|
43 |
8c32f95c2639
convert mapper functions to new format
David Bateman <dbateman@free.fr>
parents:
diff
changeset
|
44 functor (fcn_ptr_type p) : fptr (p) { } |
8c32f95c2639
convert mapper functions to new format
David Bateman <dbateman@free.fr>
parents:
diff
changeset
|
45 |
8c32f95c2639
convert mapper functions to new format
David Bateman <dbateman@free.fr>
parents:
diff
changeset
|
46 RT operator () (PT arg) { return fptr (arg); } |
8c32f95c2639
convert mapper functions to new format
David Bateman <dbateman@free.fr>
parents:
diff
changeset
|
47 }; |
8c32f95c2639
convert mapper functions to new format
David Bateman <dbateman@free.fr>
parents:
diff
changeset
|
48 |
8c32f95c2639
convert mapper functions to new format
David Bateman <dbateman@free.fr>
parents:
diff
changeset
|
49 template <typename CT, typename RT, typename PT> |
8c32f95c2639
convert mapper functions to new format
David Bateman <dbateman@free.fr>
parents:
diff
changeset
|
50 class functor_with_conversion |
8c32f95c2639
convert mapper functions to new format
David Bateman <dbateman@free.fr>
parents:
diff
changeset
|
51 { |
8c32f95c2639
convert mapper functions to new format
David Bateman <dbateman@free.fr>
parents:
diff
changeset
|
52 private: |
8c32f95c2639
convert mapper functions to new format
David Bateman <dbateman@free.fr>
parents:
diff
changeset
|
53 typedef typename fcn_ptr<RT, PT>::TYPE fcn_ptr_type; |
8c32f95c2639
convert mapper functions to new format
David Bateman <dbateman@free.fr>
parents:
diff
changeset
|
54 fcn_ptr_type fptr; |
8c32f95c2639
convert mapper functions to new format
David Bateman <dbateman@free.fr>
parents:
diff
changeset
|
55 |
8c32f95c2639
convert mapper functions to new format
David Bateman <dbateman@free.fr>
parents:
diff
changeset
|
56 public: |
8c32f95c2639
convert mapper functions to new format
David Bateman <dbateman@free.fr>
parents:
diff
changeset
|
57 |
8c32f95c2639
convert mapper functions to new format
David Bateman <dbateman@free.fr>
parents:
diff
changeset
|
58 functor_with_conversion (fcn_ptr_type p) : fptr (p) { } |
8c32f95c2639
convert mapper functions to new format
David Bateman <dbateman@free.fr>
parents:
diff
changeset
|
59 |
8c32f95c2639
convert mapper functions to new format
David Bateman <dbateman@free.fr>
parents:
diff
changeset
|
60 CT operator () (PT arg) { return CT (fptr (arg)); } |
8c32f95c2639
convert mapper functions to new format
David Bateman <dbateman@free.fr>
parents:
diff
changeset
|
61 }; |
8c32f95c2639
convert mapper functions to new format
David Bateman <dbateman@free.fr>
parents:
diff
changeset
|
62 |
8c32f95c2639
convert mapper functions to new format
David Bateman <dbateman@free.fr>
parents:
diff
changeset
|
63 template <typename RT, typename PT> |
8c32f95c2639
convert mapper functions to new format
David Bateman <dbateman@free.fr>
parents:
diff
changeset
|
64 functor<RT, PT> |
8c32f95c2639
convert mapper functions to new format
David Bateman <dbateman@free.fr>
parents:
diff
changeset
|
65 func_ptr (RT (*f) (PT)) |
8c32f95c2639
convert mapper functions to new format
David Bateman <dbateman@free.fr>
parents:
diff
changeset
|
66 { |
8c32f95c2639
convert mapper functions to new format
David Bateman <dbateman@free.fr>
parents:
diff
changeset
|
67 return functor<RT, PT> (f); |
8c32f95c2639
convert mapper functions to new format
David Bateman <dbateman@free.fr>
parents:
diff
changeset
|
68 } |
8c32f95c2639
convert mapper functions to new format
David Bateman <dbateman@free.fr>
parents:
diff
changeset
|
69 |
8c32f95c2639
convert mapper functions to new format
David Bateman <dbateman@free.fr>
parents:
diff
changeset
|
70 template <typename CT, typename RT, typename PT> |
8c32f95c2639
convert mapper functions to new format
David Bateman <dbateman@free.fr>
parents:
diff
changeset
|
71 functor_with_conversion<CT, RT, PT> |
8c32f95c2639
convert mapper functions to new format
David Bateman <dbateman@free.fr>
parents:
diff
changeset
|
72 func_ptr_with_conversion (RT (*f) (PT)) |
8c32f95c2639
convert mapper functions to new format
David Bateman <dbateman@free.fr>
parents:
diff
changeset
|
73 { |
8c32f95c2639
convert mapper functions to new format
David Bateman <dbateman@free.fr>
parents:
diff
changeset
|
74 return functor_with_conversion<CT, RT, PT> (f); |
8c32f95c2639
convert mapper functions to new format
David Bateman <dbateman@free.fr>
parents:
diff
changeset
|
75 } |
8c32f95c2639
convert mapper functions to new format
David Bateman <dbateman@free.fr>
parents:
diff
changeset
|
76 |
8c32f95c2639
convert mapper functions to new format
David Bateman <dbateman@free.fr>
parents:
diff
changeset
|
77 #endif |