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