mirror of
https://github.com/ENSL/NS.git
synced 2025-02-28 22:51:47 +00:00
19b458f8bc
git-svn-id: https://unknownworlds.svn.cloudforge.com/ns1@141 67975925-1194-0748-b3d5-c16f83f1a3a1
144 lines
3.4 KiB
C++
144 lines
3.4 KiB
C++
/*
|
|
* 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.
|
|
*
|
|
*/
|
|
|
|
# include "stlport_prefix.h"
|
|
// #include <iterator>
|
|
#include "complex_impl.h"
|
|
#include <istream>
|
|
|
|
_STLP_BEGIN_NAMESPACE
|
|
|
|
# if ! (defined (_STLP_MSVC) && _STLP_MSVC < 1200)
|
|
|
|
// Specializations for narrow characters; lets us avoid the nuisance of
|
|
// widening.
|
|
_STLP_OPERATOR_SPEC
|
|
basic_ostream<char, char_traits<char> >& _STLP_CALL
|
|
operator<< (basic_ostream<char, char_traits<char> >& __os, const complex<float>& __z)
|
|
{
|
|
return __os << '(' << (double)__z.real() << ',' << (double)__z.imag() << ')';
|
|
}
|
|
|
|
_STLP_OPERATOR_SPEC
|
|
basic_ostream<char, char_traits<char> >& _STLP_CALL
|
|
operator<< (basic_ostream<char, char_traits<char> >& __os, const complex<double>& __z)
|
|
{
|
|
return __os << '(' << __z.real() << ',' << __z.imag() << ')';
|
|
}
|
|
|
|
#ifndef _STLP_NO_LONG_DOUBLE
|
|
_STLP_OPERATOR_SPEC
|
|
basic_ostream<char, char_traits<char> >& _STLP_CALL
|
|
operator<< (basic_ostream<char, char_traits<char> >& __os, const complex<long double>& __z)
|
|
{
|
|
return __os << '(' << __z.real() << ',' << __z.imag() << ')';
|
|
}
|
|
#endif
|
|
|
|
// Specialization for narrow characters; lets us avoid widen.
|
|
_STLP_OPERATOR_SPEC
|
|
basic_istream<char, char_traits<char> >& _STLP_CALL
|
|
operator>>(basic_istream<char, char_traits<char> >& __is, complex<float>& __z)
|
|
{
|
|
float __re = 0;
|
|
float __im = 0;
|
|
|
|
char __c;
|
|
|
|
__is >> __c;
|
|
if (__c == '(') {
|
|
__is >> __re >> __c;
|
|
if (__c == ',')
|
|
__is >> __im >> __c;
|
|
if (__c != ')')
|
|
__is.setstate(ios_base::failbit);
|
|
}
|
|
else {
|
|
__is.putback(__c);
|
|
__is >> __re;
|
|
}
|
|
|
|
if (__is)
|
|
__z = complex<float>(__re, __im);
|
|
return __is;
|
|
}
|
|
|
|
_STLP_OPERATOR_SPEC
|
|
basic_istream<char, char_traits<char> >& _STLP_CALL
|
|
operator>>(basic_istream<char, char_traits<char> >& __is, complex<double>& __z)
|
|
{
|
|
double __re = 0;
|
|
double __im = 0;
|
|
|
|
char __c;
|
|
|
|
__is >> __c;
|
|
if (__c == '(') {
|
|
__is >> __re >> __c;
|
|
if (__c == ',')
|
|
__is >> __im >> __c;
|
|
if (__c != ')')
|
|
__is.setstate(ios_base::failbit);
|
|
}
|
|
else {
|
|
__is.putback(__c);
|
|
__is >> __re;
|
|
}
|
|
|
|
if (__is)
|
|
__z = complex<double>(__re, __im);
|
|
return __is;
|
|
}
|
|
|
|
# ifndef _STLP_NO_LONG_DOUBLE
|
|
_STLP_OPERATOR_SPEC
|
|
basic_istream<char, char_traits<char> >& _STLP_CALL
|
|
operator>>(basic_istream<char, char_traits<char> >& __is, complex<long double>& __z) {
|
|
long double __re = 0;
|
|
long double __im = 0;
|
|
|
|
char __c;
|
|
|
|
__is >> __c;
|
|
if (__c == '(') {
|
|
__is >> __re >> __c;
|
|
if (__c == ',')
|
|
__is >> __im >> __c;
|
|
if (__c != ')')
|
|
__is.setstate(ios_base::failbit);
|
|
}
|
|
else {
|
|
__is.putback(__c);
|
|
__is >> __re;
|
|
}
|
|
|
|
if (__is)
|
|
__z = complex<long double>(__re, __im);
|
|
return __is;
|
|
}
|
|
# endif
|
|
|
|
# endif /* MSVC */
|
|
|
|
_STLP_END_NAMESPACE
|
|
|
|
|
|
// Local Variables:
|
|
// mode:C++
|
|
// End:
|
|
|