]> git.ipfire.org Git - thirdparty/gcc.git/blame - libstdc++-v3/include/bits/valarray_after.h
projects / thirdparty / gcc.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD
Update copyright years.
[thirdparty/gcc.git] / libstdc++-v3 / include / bits / valarray_after.h
CommitLineData
725dc051
BK		 1// The template and inlines for the -*- C++ -*- internal _Meta class.
2
8d9254fc 3// Copyright (C) 1997-2020 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		 37namespace std _GLIBCXX_VISIBILITY(default)
38{
39_GLIBCXX_BEGIN_NAMESPACE_VERSION
3cbc7af0 40
1b749ae9
JW		 41namespace __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
74d6b8ca
GDR		 334 _DEFINE_EXPR_UNARY_OPERATOR(+, __unary_plus)
335 _DEFINE_EXPR_UNARY_OPERATOR(-, __negate)
336 _DEFINE_EXPR_UNARY_OPERATOR(~, __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
971cfc6f
GDR		 405 _DEFINE_EXPR_BINARY_OPERATOR(+, __plus)
406 _DEFINE_EXPR_BINARY_OPERATOR(-, __minus)
407 _DEFINE_EXPR_BINARY_OPERATOR(*, __multiplies)
408 _DEFINE_EXPR_BINARY_OPERATOR(/, __divides)
409 _DEFINE_EXPR_BINARY_OPERATOR(%, __modulus)
410 _DEFINE_EXPR_BINARY_OPERATOR(^, __bitwise_xor)
411 _DEFINE_EXPR_BINARY_OPERATOR(&, __bitwise_and)
412 _DEFINE_EXPR_BINARY_OPERATOR(|, __bitwise_or)
413 _DEFINE_EXPR_BINARY_OPERATOR(<<, __shift_left)
414 _DEFINE_EXPR_BINARY_OPERATOR(>>, __shift_right)
415 _DEFINE_EXPR_BINARY_OPERATOR(&&, __logical_and)
416 _DEFINE_EXPR_BINARY_OPERATOR(||, __logical_or)
417 _DEFINE_EXPR_BINARY_OPERATOR(==, __equal_to)
418 _DEFINE_EXPR_BINARY_OPERATOR(!=, __not_equal_to)
419 _DEFINE_EXPR_BINARY_OPERATOR(<, __less)
420 _DEFINE_EXPR_BINARY_OPERATOR(>, __greater)
421 _DEFINE_EXPR_BINARY_OPERATOR(<=, __less_equal)
422 _DEFINE_EXPR_BINARY_OPERATOR(>=, __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
54f38225
PC		 445 _DEFINE_EXPR_UNARY_FUNCTION(abs, _Abs)
446 _DEFINE_EXPR_UNARY_FUNCTION(cos, _Cos)
447 _DEFINE_EXPR_UNARY_FUNCTION(acos, _Acos)
448 _DEFINE_EXPR_UNARY_FUNCTION(cosh, _Cosh)
449 _DEFINE_EXPR_UNARY_FUNCTION(sin, _Sin)
450 _DEFINE_EXPR_UNARY_FUNCTION(asin, _Asin)
451 _DEFINE_EXPR_UNARY_FUNCTION(sinh, _Sinh)
452 _DEFINE_EXPR_UNARY_FUNCTION(tan, _Tan)
453 _DEFINE_EXPR_UNARY_FUNCTION(tanh, _Tanh)
454 _DEFINE_EXPR_UNARY_FUNCTION(atan, _Atan)
455 _DEFINE_EXPR_UNARY_FUNCTION(exp, _Exp)
456 _DEFINE_EXPR_UNARY_FUNCTION(log, _Log)
457 _DEFINE_EXPR_UNARY_FUNCTION(log10, _Log10)
458 _DEFINE_EXPR_UNARY_FUNCTION(sqrt, _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
54f38225
PC		 548_DEFINE_EXPR_BINARY_FUNCTION(atan2, _Atan2)
549_DEFINE_EXPR_BINARY_FUNCTION(pow, _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 */
Mirror of https://gcc.gnu.org/git/gcc.git