diff -r 2fe1408b6811 -r e1b950c65cb4 epoc32/include/stdapis/stlport/stl/_complex.h --- a/epoc32/include/stdapis/stlport/stl/_complex.h Tue Mar 16 16:12:26 2010 +0000 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,1013 +0,0 @@ -/* - * Copyright (c) 1999 - * Silicon Graphics Computer Systems, Inc. - * - * Copyright (c) 1999 - * Boris Fomitchev - * - * This material is provided "as is", with absolutely no warranty expressed - * or implied. Any use is at your own risk. - * - * Permission to use or copy this software for any purpose is hereby granted - * without fee, provided the above notices are retained on all copies. - * Permission to modify the code and to distribute modified code is granted, - * provided the above notices are retained, and a notice that the code was - * modified is included with the above copyright notice. - * - */ -#ifndef _STLP_internal_complex_h -#define _STLP_internal_complex_h - -// This header declares the template class complex, as described in -// in the draft C++ standard. Single-precision complex numbers -// are complex, double-precision are complex, and -// quad precision are complex. - -// Note that the template class complex is declared within namespace -// std, as called for by the draft C++ standard. - -#include -#include - -_STLP_BEGIN_NAMESPACE - -#if !defined(_STLP_NO_COMPLEX_SPECIALIZATIONS) //*TY 02/25/2000 - added for MPW compiler workaround - -template struct complex; - -_STLP_TEMPLATE_NULL struct _STLP_CLASS_DECLSPEC complex; -_STLP_TEMPLATE_NULL struct _STLP_CLASS_DECLSPEC complex; -# ifndef _STLP_NO_LONG_DOUBLE -_STLP_TEMPLATE_NULL struct _STLP_CLASS_DECLSPEC complex; -# endif -# endif - -template -struct complex { - typedef _Tp value_type; - typedef complex<_Tp> _Self; - - // Constructors, destructor, assignment operator. - complex() : _M_re(0), _M_im(0) {} - complex(const value_type& __x) - : _M_re(__x), _M_im(0) {} - complex(const value_type& __x, const value_type& __y) - : _M_re(__x), _M_im(__y) {} - complex(const _Self& __z) - : _M_re(__z._M_re), _M_im(__z._M_im) {} - - _Self& operator=(const _Self& __z) { - _M_re = __z._M_re; - _M_im = __z._M_im; - return *this; - } - -#if defined (_STLP_MEMBER_TEMPLATES) && ( defined (_STLP_FUNCTION_TMPL_PARTIAL_ORDER) || defined(_STLP_NO_COMPLEX_SPECIALIZATIONS)) - template - explicit complex(const complex<_Tp2>& __z) - : _M_re(__z._M_re), _M_im(__z._M_im) {} - - template - _Self& operator=(const complex<_Tp2>& __z) { - _M_re = __z._M_re; - _M_im = __z._M_im; - return *this; - } -#endif /* _STLP_MEMBER_TEMPLATES */ - - // Element access. - value_type real() const { return _M_re; } - value_type imag() const { return _M_im; } - - // Arithmetic op= operations involving one real argument. - - _Self& operator= (const value_type& __x) { - _M_re = __x; - _M_im = 0; - return *this; - } - _Self& operator+= (const value_type& __x) { - _M_re += __x; - return *this; - } - _Self& operator-= (const value_type& __x) { - _M_re -= __x; - return *this; - } - _Self& operator*= (const value_type& __x) { - _M_re *= __x; - _M_im *= __x; - return *this; - } - _Self& operator/= (const value_type& __x) { - _M_re /= __x; - _M_im /= __x; - return *this; - } - - // Arithmetic op= operations involving two complex arguments. - - static void _STLP_CALL _div(const value_type& __z1_r, const value_type& __z1_i, - const value_type& __z2_r, const value_type& __z2_i, - value_type& __res_r, value_type& __res_i); - - static void _STLP_CALL _div(const value_type& __z1_r, - const value_type& __z2_r, const value_type& __z2_i, - value_type& __res_r, value_type& __res_i); - -#if defined ( _STLP_MEMBER_TEMPLATES ) // && defined (_STLP_FUNCTION_TMPL_PARTIAL_ORDER) - - template _Self& operator+= (const complex<_Tp2>& __z) { - _M_re += __z._M_re; - _M_im += __z._M_im; - return *this; - } - - template _Self& operator-= (const complex<_Tp2>& __z) { - _M_re -= __z._M_re; - _M_im -= __z._M_im; - return *this; - } - - template _Self& operator*= (const complex<_Tp2>& __z) { - value_type __r = _M_re * __z._M_re - _M_im * __z._M_im; - value_type __i = _M_re * __z._M_im + _M_im * __z._M_re; - _M_re = __r; - _M_im = __i; - return *this; - } - - template _Self& operator/= (const complex<_Tp2>& __z) { - value_type __r; - value_type __i; - _div(_M_re, _M_im, __z._M_re, __z._M_im, __r, __i); - _M_re = __r; - _M_im = __i; - return *this; - } - -#endif /* _STLP_MEMBER_TEMPLATES */ - - _Self& operator+= (const _Self& __z) { - _M_re += __z._M_re; - _M_im += __z._M_im; - return *this; - } - - _Self& operator-= (const _Self& __z) { - _M_re -= __z._M_re; - _M_im -= __z._M_im; - return *this; - } - - _Self& operator*= (const _Self& __z) { - value_type __r = _M_re * __z._M_re - _M_im * __z._M_im; - value_type __i = _M_re * __z._M_im + _M_im * __z._M_re; - _M_re = __r; - _M_im = __i; - return *this; - } - - _Self& operator/= (const _Self& __z) { - value_type __r; - value_type __i; - _div(_M_re, _M_im, __z._M_re, __z._M_im, __r, __i); - _M_re = __r; - _M_im = __i; - return *this; - } - - // Data members. - value_type _M_re; - value_type _M_im; -}; - -#if !defined(_STLP_NO_COMPLEX_SPECIALIZATIONS) //*TY 02/25/2000 - added for MPW compiler workaround -// Explicit specializations for float, double, long double. The only -// reason for these specializations is to enable automatic conversions -// from complex to complex, and complex to -// complex. - - -_STLP_TEMPLATE_NULL -struct _STLP_CLASS_DECLSPEC complex { - typedef float value_type; - typedef complex _Self; - // Constructors, destructor, assignment operator. - - complex(value_type __x = 0.0, value_type __y = 0.0) - : _M_re(__x), _M_im(__y) {} - - complex(const complex& __z) : _M_re(__z._M_re), _M_im(__z._M_im) {} - - inline explicit complex(const complex& __z); -# ifndef _STLP_NO_LONG_DOUBLE - inline explicit complex(const complex& __z); -# endif - // Element access. - value_type real() const { return _M_re; } - value_type imag() const { return _M_im; } - - // Arithmetic op= operations involving one real argument. - - _Self& operator= (value_type __x) { - _M_re = __x; - _M_im = 0; - return *this; - } - _Self& operator+= (value_type __x) { - _M_re += __x; - return *this; - } - _Self& operator-= (value_type __x) { - _M_re -= __x; - return *this; - } - _Self& operator*= (value_type __x) { - _M_re *= __x; - _M_im *= __x; - return *this; - } - _Self& operator/= (value_type __x) { - _M_re /= __x; - _M_im /= __x; - return *this; - } - - // Arithmetic op= operations involving two complex arguments. - - _STLP_DECLSPEC static void _STLP_CALL _div(const float& __z1_r, const float& __z1_i, - const float& __z2_r, const float& __z2_i, - float& __res_r, float& __res_i); - - _STLP_DECLSPEC static void _STLP_CALL _div(const float& __z1_r, - const float& __z2_r, const float& __z2_i, - float& __res_r, float& __res_i); - -#if defined (_STLP_MEMBER_TEMPLATES) - - template - complex& operator=(const complex<_Tp2>& __z) { - _M_re = __z._M_re; - _M_im = __z._M_im; - return *this; - } - - template - complex& operator+= (const complex<_Tp2>& __z) { - _M_re += __z._M_re; - _M_im += __z._M_im; - return *this; - } - - template - complex& operator-= (const complex<_Tp2>& __z) { - _M_re -= __z._M_re; - _M_im -= __z._M_im; - return *this; - } - - template - complex& operator*= (const complex<_Tp2>& __z) { - float __r = _M_re * __z._M_re - _M_im * __z._M_im; - float __i = _M_re * __z._M_im + _M_im * __z._M_re; - _M_re = __r; - _M_im = __i; - return *this; - } - - template - complex& operator/= (const complex<_Tp2>& __z) { - float __r; - float __i; - _div(_M_re, _M_im, __z._M_re, __z._M_im, __r, __i); - _M_re = __r; - _M_im = __i; - return *this; - } - -#endif /* _STLP_MEMBER_TEMPLATES */ - - _Self& operator=(const _Self& __z) { - _M_re = __z._M_re; - _M_im = __z._M_im; - return *this; - } - - _Self& operator+= (const _Self& __z) { - _M_re += __z._M_re; - _M_im += __z._M_im; - return *this; - } - - _Self& operator-= (const _Self& __z) { - _M_re -= __z._M_re; - _M_im -= __z._M_im; - return *this; - } - - _Self& operator*= (const _Self& __z) { - value_type __r = _M_re * __z._M_re - _M_im * __z._M_im; - value_type __i = _M_re * __z._M_im + _M_im * __z._M_re; - _M_re = __r; - _M_im = __i; - return *this; - } - - _Self& operator/= (const _Self& __z) { - value_type __r; - value_type __i; - _div(_M_re, _M_im, __z._M_re, __z._M_im, __r, __i); - _M_re = __r; - _M_im = __i; - return *this; - } - - // Data members. - value_type _M_re; - value_type _M_im; -}; - -_STLP_TEMPLATE_NULL struct _STLP_CLASS_DECLSPEC complex { - typedef double value_type; - typedef complex _Self; - - // Constructors, destructor, assignment operator. - - complex(value_type __x = 0.0, value_type __y = 0.0) - : _M_re(__x), _M_im(__y) {} - - complex(const complex& __z) - : _M_re(__z._M_re), _M_im(__z._M_im) {} - inline complex(const complex& __z); -# ifndef _STLP_NO_LONG_DOUBLE - explicit inline complex(const complex& __z); -# endif - // Element access. - value_type real() const { return _M_re; } - value_type imag() const { return _M_im; } - - // Arithmetic op= operations involving one real argument. - - _Self& operator= (value_type __x) { - _M_re = __x; - _M_im = 0; - return *this; - } - _Self& operator+= (value_type __x) { - _M_re += __x; - return *this; - } - _Self& operator-= (value_type __x) { - _M_re -= __x; - return *this; - } - _Self& operator*= (value_type __x) { - _M_re *= __x; - _M_im *= __x; - return *this; - } - _Self& operator/= (value_type __x) { - _M_re /= __x; - _M_im /= __x; - return *this; - } - - // Arithmetic op= operations involving two complex arguments. - - _STLP_DECLSPEC static void _STLP_CALL _div(const double& __z1_r, const double& __z1_i, - const double& __z2_r, const double& __z2_i, - double& __res_r, double& __res_i); - _STLP_DECLSPEC static void _STLP_CALL _div(const double& __z1_r, - const double& __z2_r, const double& __z2_i, - double& __res_r, double& __res_i); - -#if defined (_STLP_MEMBER_TEMPLATES) && defined (_STLP_FUNCTION_TMPL_PARTIAL_ORDER) - - template - complex& operator=(const complex<_Tp2>& __z) { - _M_re = __z._M_re; - _M_im = __z._M_im; - return *this; - } - - template - complex& operator+= (const complex<_Tp2>& __z) { - _M_re += __z._M_re; - _M_im += __z._M_im; - return *this; - } - - template - complex& operator-= (const complex<_Tp2>& __z) { - _M_re -= __z._M_re; - _M_im -= __z._M_im; - return *this; - } - - template - complex& operator*= (const complex<_Tp2>& __z) { - double __r = _M_re * __z._M_re - _M_im * __z._M_im; - double __i = _M_re * __z._M_im + _M_im * __z._M_re; - _M_re = __r; - _M_im = __i; - return *this; - } - - template - complex& operator/= (const complex<_Tp2>& __z) { - double __r; - double __i; - _div(_M_re, _M_im, __z._M_re, __z._M_im, __r, __i); - _M_re = __r; - _M_im = __i; - return *this; - } - -#endif /* _STLP_MEMBER_TEMPLATES */ - - _Self& operator=(const _Self& __z) { - _M_re = __z._M_re; - _M_im = __z._M_im; - return *this; - } - - _Self& operator+= (const _Self& __z) { - _M_re += __z._M_re; - _M_im += __z._M_im; - return *this; - } - - _Self& operator-= (const _Self& __z) { - _M_re -= __z._M_re; - _M_im -= __z._M_im; - return *this; - } - - _Self& operator*= (const _Self& __z) { - value_type __r = _M_re * __z._M_re - _M_im * __z._M_im; - value_type __i = _M_re * __z._M_im + _M_im * __z._M_re; - _M_re = __r; - _M_im = __i; - return *this; - } - - _Self& operator/= (const _Self& __z) { - value_type __r; - value_type __i; - _div(_M_re, _M_im, __z._M_re, __z._M_im, __r, __i); - _M_re = __r; - _M_im = __i; - return *this; - } - - // Data members. - value_type _M_re; - value_type _M_im; -}; - -# ifndef _STLP_NO_LONG_DOUBLE - -_STLP_TEMPLATE_NULL struct _STLP_CLASS_DECLSPEC complex { - typedef long double value_type; - typedef complex _Self; - - // Constructors, destructor, assignment operator. - complex(value_type __x = 0.0, value_type __y = 0.0) - : _M_re(__x), _M_im(__y) {} - - complex(const complex& __z) - : _M_re(__z._M_re), _M_im(__z._M_im) {} - inline complex(const complex& __z); - inline complex(const complex& __z); - - // Element access. - value_type real() const { return _M_re; } - value_type imag() const { return _M_im; } - - // Arithmetic op= operations involving one real argument. - - _Self& operator= (value_type __x) { - _M_re = __x; - _M_im = 0; - return *this; - } - _Self& operator+= (value_type __x) { - _M_re += __x; - return *this; - } - _Self& operator-= (value_type __x) { - _M_re -= __x; - return *this; - } - _Self& operator*= (value_type __x) { - _M_re *= __x; - _M_im *= __x; - return *this; - } - _Self& operator/= (value_type __x) { - _M_re /= __x; - _M_im /= __x; - return *this; - } - - // Arithmetic op= operations involving two complex arguments. - - _STLP_DECLSPEC static void _STLP_CALL _div(const long double& __z1_r, const long double& __z1_i, - const long double& __z2_r, const long double& __z2_i, - long double& __res_r, long double& __res_i); - - _STLP_DECLSPEC static void _STLP_CALL _div(const long double& __z1_r, - const long double& __z2_r, const long double& __z2_i, - long double& __res_r, long double& __res_i); - -#if defined (_STLP_MEMBER_TEMPLATES) && defined (_STLP_FUNCTION_TMPL_PARTIAL_ORDER) - - template - complex& operator=(const complex<_Tp2>& __z) { - _M_re = __z._M_re; - _M_im = __z._M_im; - return *this; - } - - template - complex& operator+= (const complex<_Tp2>& __z) { - _M_re += __z._M_re; - _M_im += __z._M_im; - return *this; - } - - template - complex& operator-= (const complex<_Tp2>& __z) { - _M_re -= __z._M_re; - _M_im -= __z._M_im; - return *this; - } - - template - complex& operator*= (const complex<_Tp2>& __z) { - long double __r = _M_re * __z._M_re - _M_im * __z._M_im; - long double __i = _M_re * __z._M_im + _M_im * __z._M_re; - _M_re = __r; - _M_im = __i; - return *this; - } - - template - complex& operator/= (const complex<_Tp2>& __z) { - long double __r; - long double __i; - _div(_M_re, _M_im, __z._M_re, __z._M_im, __r, __i); - _M_re = __r; - _M_im = __i; - return *this; - } - -#endif /* _STLP_MEMBER_TEMPLATES */ - - _Self& operator=(const _Self& __z) { - _M_re = __z._M_re; - _M_im = __z._M_im; - return *this; - } - - _Self& operator+= (const _Self& __z) { - _M_re += __z._M_re; - _M_im += __z._M_im; - return *this; - } - - _Self& operator-= (const _Self& __z) { - _M_re -= __z._M_re; - _M_im -= __z._M_im; - return *this; - } - - _Self& operator*= (const _Self& __z) { - value_type __r = _M_re * __z._M_re - _M_im * __z._M_im; - value_type __i = _M_re * __z._M_im + _M_im * __z._M_re; - _M_re = __r; - _M_im = __i; - return *this; - } - - _Self& operator/= (const _Self& __z) { - value_type __r; - value_type __i; - _div(_M_re, _M_im, __z._M_re, __z._M_im, __r, __i); - _M_re = __r; - _M_im = __i; - return *this; - } - - // Data members. - value_type _M_re; - value_type _M_im; -}; - -# endif /* _STLP_NO_LONG_DOUBLE */ - -// Converting constructors from one of these three specialized types -// to another. - -inline complex::complex(const complex& __z) - : _M_re(__z._M_re), _M_im(__z._M_im) {} -inline complex::complex(const complex& __z) - : _M_re(__z._M_re), _M_im(__z._M_im) {} -# ifndef _STLP_NO_LONG_DOUBLE -inline complex::complex(const complex& __z) - : _M_re(__z._M_re), _M_im(__z._M_im) {} -inline complex::complex(const complex& __z) - : _M_re(__z._M_re), _M_im(__z._M_im) {} -inline complex::complex(const complex& __z) - : _M_re(__z._M_re), _M_im(__z._M_im) {} -inline complex::complex(const complex& __z) - : _M_re(__z._M_re), _M_im(__z._M_im) {} -# endif - -# endif /* SPECIALIZATIONS */ - -// Unary non-member arithmetic operators. - -template -inline complex<_Tp> _STLP_CALL operator+(const complex<_Tp>& __z) { - return __z; -} - -template -inline complex<_Tp> _STLP_CALL operator-(const complex<_Tp>& __z) { - return complex<_Tp>(-__z._M_re, -__z._M_im); -} - -// Non-member arithmetic operations involving one real argument. - -template -inline complex<_Tp> _STLP_CALL operator+(const _Tp& __x, const complex<_Tp>& __z) { - return complex<_Tp>(__x + __z._M_re, __z._M_im); -} - -template -inline complex<_Tp> _STLP_CALL operator+(const complex<_Tp>& __z, const _Tp& __x) { - return complex<_Tp>(__z._M_re + __x, __z._M_im); -} - -template -inline complex<_Tp> _STLP_CALL operator-(const _Tp& __x, const complex<_Tp>& __z) { - return complex<_Tp>(__x - __z._M_re, -__z._M_im); -} - -template -inline complex<_Tp> _STLP_CALL operator-(const complex<_Tp>& __z, const _Tp& __x) { - return complex<_Tp>(__z._M_re - __x, __z._M_im); -} - -template -inline complex<_Tp> _STLP_CALL operator*(const _Tp& __x, const complex<_Tp>& __z) { - return complex<_Tp>(__x * __z._M_re, __x * __z._M_im); -} - -template -inline complex<_Tp> _STLP_CALL operator*(const complex<_Tp>& __z, const _Tp& __x) { - return complex<_Tp>(__z._M_re * __x, __z._M_im * __x); -} - -template -inline complex<_Tp> _STLP_CALL operator/(const _Tp& __x, const complex<_Tp>& __z) { - complex<_Tp> __result; - complex<_Tp>::_div(__x, - __z._M_re, __z._M_im, - __result._M_re, __result._M_im); - return __result; -} - -template -inline complex<_Tp> _STLP_CALL operator/(const complex<_Tp>& __z, const _Tp& __x) { - return complex<_Tp>(__z._M_re / __x, __z._M_im / __x); -} - -// Non-member arithmetic operations involving two complex arguments - -template -inline complex<_Tp> _STLP_CALL -operator+(const complex<_Tp>& __z1, const complex<_Tp>& __z2) { - return complex<_Tp>(__z1._M_re + __z2._M_re, __z1._M_im + __z2._M_im); -} - -template -inline complex<_Tp> _STLP_CALL -operator-(const complex<_Tp>& __z1, const complex<_Tp>& __z2) { - return complex<_Tp>(__z1._M_re - __z2._M_re, __z1._M_im - __z2._M_im); -} - -template -inline complex<_Tp> _STLP_CALL -operator*(const complex<_Tp>& __z1, const complex<_Tp>& __z2) { - return complex<_Tp>(__z1._M_re * __z2._M_re - __z1._M_im * __z2._M_im, - __z1._M_re * __z2._M_im + __z1._M_im * __z2._M_re); -} - -template -inline complex<_Tp> _STLP_CALL -operator/(const complex<_Tp>& __z1, const complex<_Tp>& __z2) { - complex<_Tp> __result; - complex<_Tp>::_div(__z1._M_re, __z1._M_im, - __z2._M_re, __z2._M_im, - __result._M_re, __result._M_im); - return __result; -} - -// Comparison operators. - -template -inline bool _STLP_CALL operator==(const complex<_Tp>& __z1, const complex<_Tp>& __z2) { - return __z1._M_re == __z2._M_re && __z1._M_im == __z2._M_im; -} - -template -inline bool _STLP_CALL operator==(const complex<_Tp>& __z, const _Tp& __x) { - return __z._M_re == __x && __z._M_im == 0; -} - -template -inline bool _STLP_CALL operator==(const _Tp& __x, const complex<_Tp>& __z) { - return __x == __z._M_re && 0 == __z._M_im; -} - -#ifdef _STLP_FUNCTION_TMPL_PARTIAL_ORDER - -template -inline bool _STLP_CALL operator!=(const complex<_Tp>& __z1, const complex<_Tp>& __z2) { - return __z1._M_re != __z2._M_re || __z1._M_im != __z2._M_im; -} - -#endif /* _STLP_FUNCTION_TMPL_PARTIAL_ORDER */ - -template -inline bool _STLP_CALL operator!=(const complex<_Tp>& __z, const _Tp& __x) { - return __z._M_re != __x || __z._M_im != 0; -} - -template -inline bool _STLP_CALL operator!=(const _Tp& __x, const complex<_Tp>& __z) { - return __x != __z._M_re || 0 != __z._M_im; -} - -// Other basic arithmetic operations - -template -inline _Tp _STLP_CALL real(const complex<_Tp>& __z) { - return __z._M_re; -} - -template -inline _Tp _STLP_CALL imag(const complex<_Tp>& __z) { - return __z._M_im; -} - -#ifdef __SYMBIAN32__ -template -#ifdef __WINSCW__ -_STLP_DECLSPEC -#endif -_Tp _STLP_CALL abs_tp(const complex<_Tp>&); - -template -#ifdef __WINSCW__ -_STLP_DECLSPEC -#endif -_Tp _STLP_CALL arg_tp(const complex<_Tp>&); - -template -#ifdef __WINSCW__ -_STLP_DECLSPEC -#endif -complex<_Tp> _STLP_CALL polar_tp(const _Tp& __rho, const _Tp& __phi); - -template -_Tp _STLP_CALL abs(const complex<_Tp>& __z) - { - return abs_tp(__z); - } - -template -_Tp _STLP_CALL arg(const complex<_Tp>& __z) - { - return arg_tp(__z); - } - -template -complex<_Tp> _STLP_CALL polar(const _Tp& __rho, const _Tp& __phi) { - return polar_tp(__rho, __phi); -} - -#else -template -_Tp _STLP_CALL abs(const complex<_Tp>& __z) { - return _Tp(abs(complex(double(__z.real()), double(__z.imag())))); -} - -template -_Tp _STLP_CALL arg(const complex<_Tp>& __z) { - return _Tp(arg(complex(double(__z.real()), double(__z.imag())))); -} - -#endif - - -template -inline _Tp _STLP_CALL norm(const complex<_Tp>& __z) { - return __z._M_re * __z._M_re + __z._M_im * __z._M_im; -} - -template -inline complex<_Tp> _STLP_CALL conj(const complex<_Tp>& __z) { - return complex<_Tp>(__z._M_re, -__z._M_im); -} - -template -complex<_Tp> _STLP_CALL polar(const _Tp& __rho) { - return complex<_Tp>(__rho, 0); -} - -#ifndef __SYMBIAN32__ -template -complex<_Tp> _STLP_CALL polar(const _Tp& __rho, const _Tp& __phi) { - complex __tmp = polar(double(__rho), double(__phi)); - return complex<_Tp>(_Tp(__tmp.real()), _Tp(__tmp.imag())); -} - - -_STLP_TEMPLATE_NULL -_STLP_DECLSPEC float _STLP_CALL abs(const complex&); -#ifndef _STLP_COMPLEX_SPECIALIZATION_BUG -_STLP_TEMPLATE_NULL -_STLP_DECLSPEC double _STLP_CALL abs(const complex&); -_STLP_TEMPLATE_NULL -_STLP_DECLSPEC double _STLP_CALL arg(const complex&); -_STLP_TEMPLATE_NULL -_STLP_DECLSPEC complex _STLP_CALL polar(const double& __rho, const double& __phi); -#endif -_STLP_TEMPLATE_NULL -_STLP_DECLSPEC float _STLP_CALL arg(const complex&); -_STLP_TEMPLATE_NULL -_STLP_DECLSPEC complex _STLP_CALL polar(const float& __rho, const float& __phi); - - -# ifndef _STLP_NO_LONG_DOUBLE -_STLP_TEMPLATE_NULL -_STLP_DECLSPEC long double _STLP_CALL arg(const complex&); -_STLP_TEMPLATE_NULL -_STLP_DECLSPEC long double _STLP_CALL abs(const complex&); -_STLP_TEMPLATE_NULL -_STLP_DECLSPEC complex _STLP_CALL polar(const long double&, const long double&); -# endif -#endif - - -#ifdef _STLP_USE_NEW_IOSTREAMS - -// Complex output, in the form (re,im). We use a two-step process -// involving stringstream so that we get the padding right. -template -basic_ostream<_CharT, _Traits>& _STLP_CALL -operator<<(basic_ostream<_CharT, _Traits>& __os, const complex<_Tp>& __z); - -template -basic_istream<_CharT, _Traits>& _STLP_CALL -operator>>(basic_istream<_CharT, _Traits>& __is, complex<_Tp>& __z); - -// Specializations for narrow characters; lets us avoid widen. - -_STLP_OPERATOR_TEMPLATE -_STLP_DECLSPEC basic_istream >& _STLP_CALL -operator>>(basic_istream >& __is, complex& __z); - -_STLP_OPERATOR_TEMPLATE -_STLP_DECLSPEC basic_istream >& _STLP_CALL -operator>>(basic_istream >& __is, complex& __z); - - -_STLP_OPERATOR_TEMPLATE -_STLP_DECLSPEC basic_ostream >& _STLP_CALL -operator<<(basic_ostream >& __is, const complex& __z); - -_STLP_OPERATOR_TEMPLATE -_STLP_DECLSPEC basic_ostream >& _STLP_CALL -operator<<(basic_ostream >& __is, const complex& __z); - -# if ! defined (_STLP_NO_LONG_DOUBLE) -_STLP_OPERATOR_TEMPLATE -_STLP_DECLSPEC basic_istream >& _STLP_CALL -operator>>(basic_istream >& __is, complex& __z); - -_STLP_OPERATOR_TEMPLATE -_STLP_DECLSPEC basic_ostream >& _STLP_CALL -operator<<(basic_ostream >& __is, const complex& __z); - -# endif - -# if defined (_STLP_USE_TEMPLATE_EXPORT) && ! defined (_STLP_NO_WCHAR_T) - -_STLP_EXPORT_TEMPLATE basic_istream >& _STLP_CALL operator>>( - basic_istream >&, complex&); -_STLP_EXPORT_TEMPLATE basic_ostream >& _STLP_CALL operator<<( - basic_ostream >&, const complex&); -_STLP_EXPORT_TEMPLATE basic_istream >& _STLP_CALL operator>>( - basic_istream >&, complex&); -_STLP_EXPORT_TEMPLATE basic_ostream >& _STLP_CALL operator<<( - basic_ostream >&, const complex&); - -# ifndef _STLP_NO_LONG_DOUBLE -_STLP_EXPORT_TEMPLATE basic_istream >& _STLP_CALL operator>>( - basic_istream >&, complex&); -_STLP_EXPORT_TEMPLATE basic_ostream >& _STLP_CALL operator<<( - basic_ostream >&, const complex&); -# endif - -# endif /* USE_TEMPLATE_EXPORT */ - -#else /* _STLP_USE_NEW_IOSTREAMS */ - -template -ostream& _STLP_CALL operator<<(ostream& s, const complex<_Tp>& __z); - -template -istream& _STLP_CALL operator>>(istream& s, complex<_Tp>& a); - -#endif /* _STLP_USE_NEW_IOSTREAMS */ - - -// Transcendental functions. These are defined only for float, -// double, and long double. (Sqrt isn't transcendental, of course, -// but it's included in this section anyway.) - -_STLP_DECLSPEC complex _STLP_CALL sqrt(const complex&); - -_STLP_DECLSPEC complex _STLP_CALL exp(const complex&); -_STLP_DECLSPEC complex _STLP_CALL log(const complex&); -_STLP_DECLSPEC complex _STLP_CALL log10(const complex&); - -_STLP_DECLSPEC complex _STLP_CALL pow(const complex&, int); -_STLP_DECLSPEC complex _STLP_CALL pow(const complex&, const float&); -_STLP_DECLSPEC complex _STLP_CALL pow(const float&, const complex&); -_STLP_DECLSPEC complex _STLP_CALL pow(const complex&, const complex&); - -_STLP_DECLSPEC complex _STLP_CALL sin(const complex&); -_STLP_DECLSPEC complex _STLP_CALL cos(const complex&); -_STLP_DECLSPEC complex _STLP_CALL tan(const complex&); - -_STLP_DECLSPEC complex _STLP_CALL sinh(const complex&); -_STLP_DECLSPEC complex _STLP_CALL cosh(const complex&); -_STLP_DECLSPEC complex _STLP_CALL tanh(const complex&); - -_STLP_DECLSPEC complex _STLP_CALL sqrt(const complex&); - -_STLP_DECLSPEC complex _STLP_CALL exp(const complex&); -_STLP_DECLSPEC complex _STLP_CALL log(const complex&); -_STLP_DECLSPEC complex _STLP_CALL log10(const complex&); - -_STLP_DECLSPEC complex _STLP_CALL pow(const complex&, int); -_STLP_DECLSPEC complex _STLP_CALL pow(const complex&, const double&); -_STLP_DECLSPEC complex _STLP_CALL pow(const double&, const complex&); -_STLP_DECLSPEC complex _STLP_CALL pow(const complex&, const complex&); - -_STLP_DECLSPEC complex _STLP_CALL sin(const complex&); -_STLP_DECLSPEC complex _STLP_CALL cos(const complex&); -_STLP_DECLSPEC complex _STLP_CALL tan(const complex&); - -_STLP_DECLSPEC complex _STLP_CALL sinh(const complex&); -_STLP_DECLSPEC complex _STLP_CALL cosh(const complex&); -_STLP_DECLSPEC complex _STLP_CALL tanh(const complex&); - -# ifndef _STLP_NO_LONG_DOUBLE -_STLP_DECLSPEC complex _STLP_CALL sqrt(const complex&); -_STLP_DECLSPEC complex _STLP_CALL exp(const complex&); -_STLP_DECLSPEC complex _STLP_CALL log(const complex&); -_STLP_DECLSPEC complex _STLP_CALL log10(const complex&); - -_STLP_DECLSPEC complex _STLP_CALL pow(const complex&, int); -_STLP_DECLSPEC complex _STLP_CALL pow(const complex&, const long double&); -_STLP_DECLSPEC complex _STLP_CALL pow(const long double&, const complex&); -_STLP_DECLSPEC complex _STLP_CALL pow(const complex&, - const complex&); - -_STLP_DECLSPEC complex _STLP_CALL sin(const complex&); -_STLP_DECLSPEC complex _STLP_CALL cos(const complex&); -_STLP_DECLSPEC complex _STLP_CALL tan(const complex&); - -_STLP_DECLSPEC complex _STLP_CALL sinh(const complex&); -_STLP_DECLSPEC complex _STLP_CALL cosh(const complex&); -_STLP_DECLSPEC complex _STLP_CALL tanh(const complex&); -# endif - -_STLP_END_NAMESPACE - -# ifndef _STLP_LINK_TIME_INSTANTIATION -# include -# endif - -#endif /* _STLP_template_complex */ - -// Local Variables: -// mode:C++ -// End: