]>
Commit | Line | Data |
---|---|---|
725dc051 BK |
1 | // The template and inlines for the -*- C++ -*- internal _Meta class. |
2 | ||
a945c346 | 3 | // Copyright (C) 1997-2024 Free Software Foundation, Inc. |
725dc051 BK |
4 | // |
5 | // This file is part of the GNU ISO C++ Library. This library is free | |
6 | // software; you can redistribute it and/or modify it under the | |
7 | // terms of the GNU General Public License as published by the | |
748086b7 | 8 | // Free Software Foundation; either version 3, or (at your option) |
725dc051 BK |
9 | // any later version. |
10 | ||
11 | // This library is distributed in the hope that it will be useful, | |
12 | // but WITHOUT ANY WARRANTY; without even the implied warranty of | |
13 | // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
14 | // GNU General Public License for more details. | |
15 | ||
748086b7 JJ |
16 | // Under Section 7 of GPL version 3, you are granted additional |
17 | // permissions described in the GCC Runtime Library Exception, version | |
18 | // 3.1, as published by the Free Software Foundation. | |
725dc051 | 19 | |
748086b7 JJ |
20 | // You should have received a copy of the GNU General Public License and |
21 | // a copy of the GCC Runtime Library Exception along with this program; | |
22 | // see the files COPYING3 and COPYING.RUNTIME respectively. If not, see | |
23 | // <http://www.gnu.org/licenses/>. | |
725dc051 | 24 | |
f910786b | 25 | /** @file bits/valarray_after.h |
729e3d3f | 26 | * This is an internal header file, included by other library headers. |
f910786b | 27 | * Do not attempt to use it directly. @headername{valarray} |
729e3d3f PE |
28 | */ |
29 | ||
143c27b0 BK |
30 | // Written by Gabriel Dos Reis <Gabriel.Dos-Reis@cmla.ens-cachan.fr> |
31 | ||
3d7c150e BK |
32 | #ifndef _VALARRAY_AFTER_H |
33 | #define _VALARRAY_AFTER_H 1 | |
725dc051 | 34 | |
b0a85b86 GDR |
35 | #pragma GCC system_header |
36 | ||
12ffa228 BK |
37 | namespace std _GLIBCXX_VISIBILITY(default) |
38 | { | |
39 | _GLIBCXX_BEGIN_NAMESPACE_VERSION | |
3cbc7af0 | 40 | |
1b749ae9 JW |
41 | namespace __detail |
42 | { | |
b714a419 PC |
43 | // |
44 | // gslice_array closure. | |
45 | // | |
46 | template<class _Dom> | |
47 | class _GBase | |
48 | { | |
725dc051 | 49 | public: |
b714a419 PC |
50 | typedef typename _Dom::value_type value_type; |
51 | ||
52 | _GBase (const _Dom& __e, const valarray<size_t>& __i) | |
53 | : _M_expr (__e), _M_index(__i) {} | |
54 | ||
55 | value_type | |
56 | operator[] (size_t __i) const | |
57 | { return _M_expr[_M_index[__i]]; } | |
58 | ||
59 | size_t | |
60 | size () const | |
61 | { return _M_index.size(); } | |
ed6814f7 | 62 | |
725dc051 | 63 | private: |
1b749ae9 JW |
64 | typename _ValArrayRef<_Dom>::__type _M_expr; |
65 | const valarray<size_t>& _M_index; | |
725dc051 | 66 | }; |
ed6814f7 | 67 | |
b714a419 PC |
68 | template<typename _Tp> |
69 | class _GBase<_Array<_Tp> > | |
70 | { | |
725dc051 | 71 | public: |
b714a419 PC |
72 | typedef _Tp value_type; |
73 | ||
74 | _GBase (_Array<_Tp> __a, const valarray<size_t>& __i) | |
75 | : _M_array (__a), _M_index(__i) {} | |
76 | ||
77 | value_type | |
78 | operator[] (size_t __i) const | |
79 | { return _M_array._M_data[_M_index[__i]]; } | |
80 | ||
81 | size_t | |
82 | size () const | |
83 | { return _M_index.size(); } | |
ed6814f7 | 84 | |
725dc051 | 85 | private: |
b714a419 PC |
86 | const _Array<_Tp> _M_array; |
87 | const valarray<size_t>& _M_index; | |
725dc051 BK |
88 | }; |
89 | ||
b714a419 PC |
90 | template<class _Dom> |
91 | struct _GClos<_Expr, _Dom> | |
92 | : _GBase<_Dom> | |
93 | { | |
94 | typedef _GBase<_Dom> _Base; | |
95 | typedef typename _Base::value_type value_type; | |
96 | ||
97 | _GClos (const _Dom& __e, const valarray<size_t>& __i) | |
98 | : _Base (__e, __i) {} | |
725dc051 BK |
99 | }; |
100 | ||
b714a419 PC |
101 | template<typename _Tp> |
102 | struct _GClos<_ValArray, _Tp> | |
103 | : _GBase<_Array<_Tp> > | |
104 | { | |
105 | typedef _GBase<_Array<_Tp> > _Base; | |
106 | typedef typename _Base::value_type value_type; | |
107 | ||
108 | _GClos (_Array<_Tp> __a, const valarray<size_t>& __i) | |
109 | : _Base (__a, __i) {} | |
725dc051 BK |
110 | }; |
111 | ||
b714a419 PC |
112 | // |
113 | // indirect_array closure | |
114 | // | |
115 | template<class _Dom> | |
116 | class _IBase | |
117 | { | |
725dc051 | 118 | public: |
b714a419 | 119 | typedef typename _Dom::value_type value_type; |
725dc051 | 120 | |
b714a419 PC |
121 | _IBase (const _Dom& __e, const valarray<size_t>& __i) |
122 | : _M_expr (__e), _M_index (__i) {} | |
123 | ||
124 | value_type | |
125 | operator[] (size_t __i) const | |
126 | { return _M_expr[_M_index[__i]]; } | |
127 | ||
82cb2574 PC |
128 | size_t |
129 | size() const | |
130 | { return _M_index.size(); } | |
ed6814f7 | 131 | |
725dc051 | 132 | private: |
1b749ae9 JW |
133 | typename _ValArrayRef<_Dom>::__type _M_expr; |
134 | const valarray<size_t>& _M_index; | |
725dc051 BK |
135 | }; |
136 | ||
b714a419 PC |
137 | template<class _Dom> |
138 | struct _IClos<_Expr, _Dom> | |
139 | : _IBase<_Dom> | |
140 | { | |
141 | typedef _IBase<_Dom> _Base; | |
142 | typedef typename _Base::value_type value_type; | |
143 | ||
144 | _IClos (const _Dom& __e, const valarray<size_t>& __i) | |
145 | : _Base (__e, __i) {} | |
725dc051 BK |
146 | }; |
147 | ||
b714a419 PC |
148 | template<typename _Tp> |
149 | struct _IClos<_ValArray, _Tp> | |
150 | : _IBase<valarray<_Tp> > | |
151 | { | |
152 | typedef _IBase<valarray<_Tp> > _Base; | |
153 | typedef _Tp value_type; | |
154 | ||
155 | _IClos (const valarray<_Tp>& __a, const valarray<size_t>& __i) | |
156 | : _Base (__a, __i) {} | |
725dc051 | 157 | }; |
1b749ae9 | 158 | } // namespace __detail |
b714a419 | 159 | |
74d6b8ca GDR |
160 | // |
161 | // class _Expr | |
ed6814f7 BI |
162 | // |
163 | template<class _Clos, typename _Tp> | |
74d6b8ca GDR |
164 | class _Expr |
165 | { | |
725dc051 | 166 | public: |
74d6b8ca | 167 | typedef _Tp value_type; |
ed6814f7 | 168 | |
74d6b8ca | 169 | _Expr(const _Clos&); |
ed6814f7 | 170 | |
74d6b8ca | 171 | const _Clos& operator()() const; |
ed6814f7 | 172 | |
74d6b8ca GDR |
173 | value_type operator[](size_t) const; |
174 | valarray<value_type> operator[](slice) const; | |
175 | valarray<value_type> operator[](const gslice&) const; | |
176 | valarray<value_type> operator[](const valarray<bool>&) const; | |
177 | valarray<value_type> operator[](const valarray<size_t>&) const; | |
ed6814f7 | 178 | |
b714a419 PC |
179 | _Expr<_UnClos<__unary_plus, std::_Expr, _Clos>, value_type> |
180 | operator+() const; | |
725dc051 | 181 | |
b714a419 PC |
182 | _Expr<_UnClos<__negate, std::_Expr, _Clos>, value_type> |
183 | operator-() const; | |
725dc051 | 184 | |
b714a419 PC |
185 | _Expr<_UnClos<__bitwise_not, std::_Expr, _Clos>, value_type> |
186 | operator~() const; | |
725dc051 | 187 | |
b714a419 PC |
188 | _Expr<_UnClos<__logical_not, std::_Expr, _Clos>, bool> |
189 | operator!() const; | |
725dc051 | 190 | |
74d6b8ca GDR |
191 | size_t size() const; |
192 | value_type sum() const; | |
ed6814f7 | 193 | |
74d6b8ca GDR |
194 | valarray<value_type> shift(int) const; |
195 | valarray<value_type> cshift(int) const; | |
725dc051 BK |
196 | |
197 | value_type min() const; | |
198 | value_type max() const; | |
199 | ||
74d6b8ca GDR |
200 | valarray<value_type> apply(value_type (*)(const value_type&)) const; |
201 | valarray<value_type> apply(value_type (*)(value_type)) const; | |
ed6814f7 | 202 | |
725dc051 | 203 | private: |
74d6b8ca | 204 | const _Clos _M_closure; |
725dc051 | 205 | }; |
ed6814f7 | 206 | |
74d6b8ca | 207 | template<class _Clos, typename _Tp> |
725dc051 | 208 | inline |
b714a419 | 209 | _Expr<_Clos, _Tp>::_Expr(const _Clos& __c) : _M_closure(__c) {} |
ed6814f7 | 210 | |
74d6b8ca | 211 | template<class _Clos, typename _Tp> |
725dc051 | 212 | inline const _Clos& |
b714a419 | 213 | _Expr<_Clos, _Tp>::operator()() const |
725dc051 BK |
214 | { return _M_closure; } |
215 | ||
74d6b8ca | 216 | template<class _Clos, typename _Tp> |
725dc051 | 217 | inline _Tp |
b714a419 | 218 | _Expr<_Clos, _Tp>::operator[](size_t __i) const |
725dc051 BK |
219 | { return _M_closure[__i]; } |
220 | ||
74d6b8ca | 221 | template<class _Clos, typename _Tp> |
725dc051 | 222 | inline valarray<_Tp> |
b714a419 | 223 | _Expr<_Clos, _Tp>::operator[](slice __s) const |
ad816b52 GDR |
224 | { |
225 | valarray<_Tp> __v = valarray<_Tp>(*this)[__s]; | |
226 | return __v; | |
227 | } | |
ed6814f7 | 228 | |
74d6b8ca | 229 | template<class _Clos, typename _Tp> |
725dc051 | 230 | inline valarray<_Tp> |
b714a419 | 231 | _Expr<_Clos, _Tp>::operator[](const gslice& __gs) const |
ad816b52 GDR |
232 | { |
233 | valarray<_Tp> __v = valarray<_Tp>(*this)[__gs]; | |
234 | return __v; | |
235 | } | |
ed6814f7 | 236 | |
74d6b8ca | 237 | template<class _Clos, typename _Tp> |
725dc051 | 238 | inline valarray<_Tp> |
b714a419 | 239 | _Expr<_Clos, _Tp>::operator[](const valarray<bool>& __m) const |
ad816b52 GDR |
240 | { |
241 | valarray<_Tp> __v = valarray<_Tp>(*this)[__m]; | |
242 | return __v; | |
243 | } | |
ed6814f7 | 244 | |
74d6b8ca | 245 | template<class _Clos, typename _Tp> |
725dc051 | 246 | inline valarray<_Tp> |
b714a419 | 247 | _Expr<_Clos, _Tp>::operator[](const valarray<size_t>& __i) const |
ad816b52 GDR |
248 | { |
249 | valarray<_Tp> __v = valarray<_Tp>(*this)[__i]; | |
250 | return __v; | |
251 | } | |
ed6814f7 | 252 | |
74d6b8ca | 253 | template<class _Clos, typename _Tp> |
725dc051 | 254 | inline size_t |
b714a419 | 255 | _Expr<_Clos, _Tp>::size() const |
ad816b52 | 256 | { return _M_closure.size(); } |
725dc051 BK |
257 | |
258 | template<class _Clos, typename _Tp> | |
74d6b8ca GDR |
259 | inline valarray<_Tp> |
260 | _Expr<_Clos, _Tp>::shift(int __n) const | |
ad816b52 GDR |
261 | { |
262 | valarray<_Tp> __v = valarray<_Tp>(*this).shift(__n); | |
263 | return __v; | |
264 | } | |
725dc051 BK |
265 | |
266 | template<class _Clos, typename _Tp> | |
74d6b8ca GDR |
267 | inline valarray<_Tp> |
268 | _Expr<_Clos, _Tp>::cshift(int __n) const | |
ad816b52 GDR |
269 | { |
270 | valarray<_Tp> __v = valarray<_Tp>(*this).cshift(__n); | |
271 | return __v; | |
272 | } | |
725dc051 BK |
273 | |
274 | template<class _Clos, typename _Tp> | |
74d6b8ca GDR |
275 | inline valarray<_Tp> |
276 | _Expr<_Clos, _Tp>::apply(_Tp __f(const _Tp&)) const | |
ad816b52 GDR |
277 | { |
278 | valarray<_Tp> __v = valarray<_Tp>(*this).apply(__f); | |
279 | return __v; | |
280 | } | |
ed6814f7 | 281 | |
725dc051 | 282 | template<class _Clos, typename _Tp> |
74d6b8ca GDR |
283 | inline valarray<_Tp> |
284 | _Expr<_Clos, _Tp>::apply(_Tp __f(_Tp)) const | |
ad816b52 GDR |
285 | { |
286 | valarray<_Tp> __v = valarray<_Tp>(*this).apply(__f); | |
287 | return __v; | |
288 | } | |
725dc051 | 289 | |
74d6b8ca GDR |
290 | // XXX: replace this with a more robust summation algorithm. |
291 | template<class _Clos, typename _Tp> | |
725dc051 | 292 | inline _Tp |
b714a419 | 293 | _Expr<_Clos, _Tp>::sum() const |
725dc051 | 294 | { |
74d6b8ca | 295 | size_t __n = _M_closure.size(); |
ed6814f7 | 296 | if (__n == 0) |
74d6b8ca | 297 | return _Tp(); |
ed6814f7 | 298 | else |
74d6b8ca GDR |
299 | { |
300 | _Tp __s = _M_closure[--__n]; | |
301 | while (__n != 0) | |
302 | __s += _M_closure[--__n]; | |
303 | return __s; | |
725dc051 BK |
304 | } |
305 | } | |
306 | ||
307 | template<class _Clos, typename _Tp> | |
74d6b8ca GDR |
308 | inline _Tp |
309 | _Expr<_Clos, _Tp>::min() const | |
310 | { return __valarray_min(_M_closure); } | |
725dc051 BK |
311 | |
312 | template<class _Clos, typename _Tp> | |
74d6b8ca GDR |
313 | inline _Tp |
314 | _Expr<_Clos, _Tp>::max() const | |
315 | { return __valarray_max(_M_closure); } | |
ed6814f7 | 316 | |
74d6b8ca | 317 | template<class _Dom, typename _Tp> |
b714a419 PC |
318 | inline _Expr<_UnClos<__logical_not, _Expr, _Dom>, bool> |
319 | _Expr<_Dom, _Tp>::operator!() const | |
725dc051 | 320 | { |
b714a419 | 321 | typedef _UnClos<__logical_not, std::_Expr, _Dom> _Closure; |
23862bec | 322 | return _Expr<_Closure, bool>(_Closure(this->_M_closure)); |
725dc051 BK |
323 | } |
324 | ||
971cfc6f GDR |
325 | #define _DEFINE_EXPR_UNARY_OPERATOR(_Op, _Name) \ |
326 | template<class _Dom, typename _Tp> \ | |
b714a419 PC |
327 | inline _Expr<_UnClos<_Name, std::_Expr, _Dom>, _Tp> \ |
328 | _Expr<_Dom, _Tp>::operator _Op() const \ | |
971cfc6f | 329 | { \ |
b714a419 PC |
330 | typedef _UnClos<_Name, std::_Expr, _Dom> _Closure; \ |
331 | return _Expr<_Closure, _Tp>(_Closure(this->_M_closure)); \ | |
971cfc6f | 332 | } |
725dc051 | 333 | |
72a87d82 JW |
334 | _DEFINE_EXPR_UNARY_OPERATOR(+, struct std::__unary_plus) |
335 | _DEFINE_EXPR_UNARY_OPERATOR(-, struct std::__negate) | |
336 | _DEFINE_EXPR_UNARY_OPERATOR(~, struct std::__bitwise_not) | |
725dc051 BK |
337 | |
338 | #undef _DEFINE_EXPR_UNARY_OPERATOR | |
339 | ||
725dc051 | 340 | #define _DEFINE_EXPR_BINARY_OPERATOR(_Op, _Name) \ |
971cfc6f | 341 | template<class _Dom1, class _Dom2> \ |
b714a419 PC |
342 | inline _Expr<_BinClos<_Name, _Expr, _Expr, _Dom1, _Dom2>, \ |
343 | typename __fun<_Name, typename _Dom1::value_type>::result_type> \ | |
344 | operator _Op(const _Expr<_Dom1, typename _Dom1::value_type>& __v, \ | |
345 | const _Expr<_Dom2, typename _Dom2::value_type>& __w) \ | |
346 | { \ | |
347 | typedef typename _Dom1::value_type _Arg; \ | |
348 | typedef typename __fun<_Name, _Arg>::result_type _Value; \ | |
349 | typedef _BinClos<_Name, _Expr, _Expr, _Dom1, _Dom2> _Closure; \ | |
350 | return _Expr<_Closure, _Value>(_Closure(__v(), __w())); \ | |
351 | } \ | |
725dc051 | 352 | \ |
b714a419 PC |
353 | template<class _Dom> \ |
354 | inline _Expr<_BinClos<_Name, _Expr, _Constant, _Dom, \ | |
355 | typename _Dom::value_type>, \ | |
356 | typename __fun<_Name, typename _Dom::value_type>::result_type> \ | |
357 | operator _Op(const _Expr<_Dom, typename _Dom::value_type>& __v, \ | |
358 | const typename _Dom::value_type& __t) \ | |
359 | { \ | |
360 | typedef typename _Dom::value_type _Arg; \ | |
361 | typedef typename __fun<_Name, _Arg>::result_type _Value; \ | |
362 | typedef _BinClos<_Name, _Expr, _Constant, _Dom, _Arg> _Closure; \ | |
363 | return _Expr<_Closure, _Value>(_Closure(__v(), __t)); \ | |
364 | } \ | |
725dc051 | 365 | \ |
b714a419 PC |
366 | template<class _Dom> \ |
367 | inline _Expr<_BinClos<_Name, _Constant, _Expr, \ | |
368 | typename _Dom::value_type, _Dom>, \ | |
369 | typename __fun<_Name, typename _Dom::value_type>::result_type> \ | |
370 | operator _Op(const typename _Dom::value_type& __t, \ | |
371 | const _Expr<_Dom, typename _Dom::value_type>& __v) \ | |
372 | { \ | |
373 | typedef typename _Dom::value_type _Arg; \ | |
374 | typedef typename __fun<_Name, _Arg>::result_type _Value; \ | |
375 | typedef _BinClos<_Name, _Constant, _Expr, _Arg, _Dom> _Closure; \ | |
376 | return _Expr<_Closure, _Value>(_Closure(__t, __v())); \ | |
377 | } \ | |
725dc051 | 378 | \ |
b714a419 PC |
379 | template<class _Dom> \ |
380 | inline _Expr<_BinClos<_Name, _Expr, _ValArray, \ | |
381 | _Dom, typename _Dom::value_type>, \ | |
382 | typename __fun<_Name, typename _Dom::value_type>::result_type> \ | |
383 | operator _Op(const _Expr<_Dom,typename _Dom::value_type>& __e, \ | |
384 | const valarray<typename _Dom::value_type>& __v) \ | |
385 | { \ | |
386 | typedef typename _Dom::value_type _Arg; \ | |
387 | typedef typename __fun<_Name, _Arg>::result_type _Value; \ | |
388 | typedef _BinClos<_Name, _Expr, _ValArray, _Dom, _Arg> _Closure; \ | |
389 | return _Expr<_Closure, _Value>(_Closure(__e(), __v)); \ | |
390 | } \ | |
725dc051 | 391 | \ |
b714a419 PC |
392 | template<class _Dom> \ |
393 | inline _Expr<_BinClos<_Name, _ValArray, _Expr, \ | |
394 | typename _Dom::value_type, _Dom>, \ | |
395 | typename __fun<_Name, typename _Dom::value_type>::result_type> \ | |
396 | operator _Op(const valarray<typename _Dom::value_type>& __v, \ | |
397 | const _Expr<_Dom, typename _Dom::value_type>& __e) \ | |
398 | { \ | |
399 | typedef typename _Dom::value_type _Tp; \ | |
400 | typedef typename __fun<_Name, _Tp>::result_type _Value; \ | |
401 | typedef _BinClos<_Name, _ValArray, _Expr, _Tp, _Dom> _Closure; \ | |
402 | return _Expr<_Closure, _Value>(_Closure(__v, __e ())); \ | |
403 | } | |
725dc051 | 404 | |
72a87d82 JW |
405 | _DEFINE_EXPR_BINARY_OPERATOR(+, struct std::__plus) |
406 | _DEFINE_EXPR_BINARY_OPERATOR(-, struct std::__minus) | |
407 | _DEFINE_EXPR_BINARY_OPERATOR(*, struct std::__multiplies) | |
408 | _DEFINE_EXPR_BINARY_OPERATOR(/, struct std::__divides) | |
409 | _DEFINE_EXPR_BINARY_OPERATOR(%, struct std::__modulus) | |
410 | _DEFINE_EXPR_BINARY_OPERATOR(^, struct std::__bitwise_xor) | |
411 | _DEFINE_EXPR_BINARY_OPERATOR(&, struct std::__bitwise_and) | |
412 | _DEFINE_EXPR_BINARY_OPERATOR(|, struct std::__bitwise_or) | |
413 | _DEFINE_EXPR_BINARY_OPERATOR(<<, struct std::__shift_left) | |
414 | _DEFINE_EXPR_BINARY_OPERATOR(>>, struct std::__shift_right) | |
415 | _DEFINE_EXPR_BINARY_OPERATOR(&&, struct std::__logical_and) | |
416 | _DEFINE_EXPR_BINARY_OPERATOR(||, struct std::__logical_or) | |
417 | _DEFINE_EXPR_BINARY_OPERATOR(==, struct std::__equal_to) | |
418 | _DEFINE_EXPR_BINARY_OPERATOR(!=, struct std::__not_equal_to) | |
419 | _DEFINE_EXPR_BINARY_OPERATOR(<, struct std::__less) | |
420 | _DEFINE_EXPR_BINARY_OPERATOR(>, struct std::__greater) | |
421 | _DEFINE_EXPR_BINARY_OPERATOR(<=, struct std::__less_equal) | |
422 | _DEFINE_EXPR_BINARY_OPERATOR(>=, struct std::__greater_equal) | |
725dc051 BK |
423 | |
424 | #undef _DEFINE_EXPR_BINARY_OPERATOR | |
725dc051 | 425 | |
54f38225 | 426 | #define _DEFINE_EXPR_UNARY_FUNCTION(_Name, _UName) \ |
971cfc6f | 427 | template<class _Dom> \ |
54f38225 | 428 | inline _Expr<_UnClos<_UName, _Expr, _Dom>, \ |
b714a419 PC |
429 | typename _Dom::value_type> \ |
430 | _Name(const _Expr<_Dom, typename _Dom::value_type>& __e) \ | |
971cfc6f GDR |
431 | { \ |
432 | typedef typename _Dom::value_type _Tp; \ | |
54f38225 | 433 | typedef _UnClos<_UName, _Expr, _Dom> _Closure; \ |
b714a419 | 434 | return _Expr<_Closure, _Tp>(_Closure(__e())); \ |
971cfc6f GDR |
435 | } \ |
436 | \ | |
437 | template<typename _Tp> \ | |
54f38225 | 438 | inline _Expr<_UnClos<_UName, _ValArray, _Tp>, _Tp> \ |
971cfc6f GDR |
439 | _Name(const valarray<_Tp>& __v) \ |
440 | { \ | |
54f38225 | 441 | typedef _UnClos<_UName, _ValArray, _Tp> _Closure; \ |
b714a419 | 442 | return _Expr<_Closure, _Tp>(_Closure(__v)); \ |
971cfc6f | 443 | } |
725dc051 | 444 | |
72a87d82 JW |
445 | _DEFINE_EXPR_UNARY_FUNCTION(abs, struct std::_Abs) |
446 | _DEFINE_EXPR_UNARY_FUNCTION(cos, struct std::_Cos) | |
447 | _DEFINE_EXPR_UNARY_FUNCTION(acos, struct std::_Acos) | |
448 | _DEFINE_EXPR_UNARY_FUNCTION(cosh, struct std::_Cosh) | |
449 | _DEFINE_EXPR_UNARY_FUNCTION(sin, struct std::_Sin) | |
450 | _DEFINE_EXPR_UNARY_FUNCTION(asin, struct std::_Asin) | |
451 | _DEFINE_EXPR_UNARY_FUNCTION(sinh, struct std::_Sinh) | |
452 | _DEFINE_EXPR_UNARY_FUNCTION(tan, struct std::_Tan) | |
453 | _DEFINE_EXPR_UNARY_FUNCTION(tanh, struct std::_Tanh) | |
454 | _DEFINE_EXPR_UNARY_FUNCTION(atan, struct std::_Atan) | |
455 | _DEFINE_EXPR_UNARY_FUNCTION(exp, struct std::_Exp) | |
456 | _DEFINE_EXPR_UNARY_FUNCTION(log, struct std::_Log) | |
457 | _DEFINE_EXPR_UNARY_FUNCTION(log10, struct std::_Log10) | |
458 | _DEFINE_EXPR_UNARY_FUNCTION(sqrt, struct std::_Sqrt) | |
725dc051 BK |
459 | |
460 | #undef _DEFINE_EXPR_UNARY_FUNCTION | |
461 | ||
54f38225 | 462 | #define _DEFINE_EXPR_BINARY_FUNCTION(_Fun, _UFun) \ |
971cfc6f | 463 | template<class _Dom1, class _Dom2> \ |
54f38225 | 464 | inline _Expr<_BinClos<_UFun, _Expr, _Expr, _Dom1, _Dom2>, \ |
971cfc6f | 465 | typename _Dom1::value_type> \ |
b714a419 | 466 | _Fun(const _Expr<_Dom1, typename _Dom1::value_type>& __e1, \ |
54f38225 | 467 | const _Expr<_Dom2, typename _Dom2::value_type>& __e2) \ |
971cfc6f GDR |
468 | { \ |
469 | typedef typename _Dom1::value_type _Tp; \ | |
54f38225 | 470 | typedef _BinClos<_UFun, _Expr, _Expr, _Dom1, _Dom2> _Closure; \ |
b714a419 | 471 | return _Expr<_Closure, _Tp>(_Closure(__e1(), __e2())); \ |
971cfc6f GDR |
472 | } \ |
473 | \ | |
474 | template<class _Dom> \ | |
54f38225 | 475 | inline _Expr<_BinClos<_UFun, _Expr, _ValArray, _Dom, \ |
971cfc6f GDR |
476 | typename _Dom::value_type>, \ |
477 | typename _Dom::value_type> \ | |
b714a419 | 478 | _Fun(const _Expr<_Dom, typename _Dom::value_type>& __e, \ |
971cfc6f GDR |
479 | const valarray<typename _Dom::value_type>& __v) \ |
480 | { \ | |
481 | typedef typename _Dom::value_type _Tp; \ | |
54f38225 | 482 | typedef _BinClos<_UFun, _Expr, _ValArray, _Dom, _Tp> _Closure; \ |
b714a419 | 483 | return _Expr<_Closure, _Tp>(_Closure(__e(), __v)); \ |
971cfc6f GDR |
484 | } \ |
485 | \ | |
486 | template<class _Dom> \ | |
54f38225 | 487 | inline _Expr<_BinClos<_UFun, _ValArray, _Expr, \ |
b714a419 | 488 | typename _Dom::value_type, _Dom>, \ |
971cfc6f GDR |
489 | typename _Dom::value_type> \ |
490 | _Fun(const valarray<typename _Dom::valarray>& __v, \ | |
b714a419 | 491 | const _Expr<_Dom, typename _Dom::value_type>& __e) \ |
971cfc6f GDR |
492 | { \ |
493 | typedef typename _Dom::value_type _Tp; \ | |
54f38225 | 494 | typedef _BinClos<_UFun, _ValArray, _Expr, _Tp, _Dom> _Closure; \ |
b714a419 | 495 | return _Expr<_Closure, _Tp>(_Closure(__v, __e())); \ |
971cfc6f GDR |
496 | } \ |
497 | \ | |
498 | template<class _Dom> \ | |
54f38225 | 499 | inline _Expr<_BinClos<_UFun, _Expr, _Constant, _Dom, \ |
971cfc6f GDR |
500 | typename _Dom::value_type>, \ |
501 | typename _Dom::value_type> \ | |
502 | _Fun(const _Expr<_Dom, typename _Dom::value_type>& __e, \ | |
503 | const typename _Dom::value_type& __t) \ | |
504 | { \ | |
505 | typedef typename _Dom::value_type _Tp; \ | |
54f38225 | 506 | typedef _BinClos<_UFun, _Expr, _Constant, _Dom, _Tp> _Closure; \ |
b714a419 | 507 | return _Expr<_Closure, _Tp>(_Closure(__e(), __t)); \ |
971cfc6f GDR |
508 | } \ |
509 | \ | |
510 | template<class _Dom> \ | |
54f38225 | 511 | inline _Expr<_BinClos<_UFun, _Constant, _Expr, \ |
b714a419 | 512 | typename _Dom::value_type, _Dom>, \ |
971cfc6f GDR |
513 | typename _Dom::value_type> \ |
514 | _Fun(const typename _Dom::value_type& __t, \ | |
b714a419 | 515 | const _Expr<_Dom, typename _Dom::value_type>& __e) \ |
971cfc6f GDR |
516 | { \ |
517 | typedef typename _Dom::value_type _Tp; \ | |
54f38225 | 518 | typedef _BinClos<_UFun, _Constant, _Expr, _Tp, _Dom> _Closure; \ |
b714a419 | 519 | return _Expr<_Closure, _Tp>(_Closure(__t, __e())); \ |
971cfc6f GDR |
520 | } \ |
521 | \ | |
522 | template<typename _Tp> \ | |
54f38225 | 523 | inline _Expr<_BinClos<_UFun, _ValArray, _ValArray, _Tp, _Tp>, _Tp> \ |
971cfc6f GDR |
524 | _Fun(const valarray<_Tp>& __v, const valarray<_Tp>& __w) \ |
525 | { \ | |
54f38225 | 526 | typedef _BinClos<_UFun, _ValArray, _ValArray, _Tp, _Tp> _Closure;\ |
b714a419 | 527 | return _Expr<_Closure, _Tp>(_Closure(__v, __w)); \ |
971cfc6f GDR |
528 | } \ |
529 | \ | |
530 | template<typename _Tp> \ | |
54f38225 | 531 | inline _Expr<_BinClos<_UFun, _ValArray, _Constant, _Tp, _Tp>, _Tp> \ |
db5ab3aa JW |
532 | _Fun(const valarray<_Tp>& __v, \ |
533 | const typename valarray<_Tp>::value_type& __t) \ | |
971cfc6f | 534 | { \ |
54f38225 | 535 | typedef _BinClos<_UFun, _ValArray, _Constant, _Tp, _Tp> _Closure;\ |
b714a419 | 536 | return _Expr<_Closure, _Tp>(_Closure(__v, __t)); \ |
971cfc6f GDR |
537 | } \ |
538 | \ | |
539 | template<typename _Tp> \ | |
54f38225 | 540 | inline _Expr<_BinClos<_UFun, _Constant, _ValArray, _Tp, _Tp>, _Tp> \ |
db5ab3aa JW |
541 | _Fun(const typename valarray<_Tp>::value_type& __t, \ |
542 | const valarray<_Tp>& __v) \ | |
971cfc6f | 543 | { \ |
54f38225 | 544 | typedef _BinClos<_UFun, _Constant, _ValArray, _Tp, _Tp> _Closure;\ |
b714a419 | 545 | return _Expr<_Closure, _Tp>(_Closure(__t, __v)); \ |
971cfc6f | 546 | } |
725dc051 | 547 | |
72a87d82 JW |
548 | _DEFINE_EXPR_BINARY_FUNCTION(atan2, struct std::_Atan2) |
549 | _DEFINE_EXPR_BINARY_FUNCTION(pow, struct std::_Pow) | |
725dc051 BK |
550 | |
551 | #undef _DEFINE_EXPR_BINARY_FUNCTION | |
552 | ||
12ffa228 BK |
553 | _GLIBCXX_END_NAMESPACE_VERSION |
554 | } // namespace | |
725dc051 | 555 | |
c13bea50 | 556 | #endif /* _CPP_VALARRAY_AFTER_H */ |