This repository has been archived on 2024-12-16. You can view files and clone it, but cannot push or open issues or pull requests.
CodeBlocksPortable/Borland/BCC55/Include/complex.cc

123 lines
3.4 KiB
C++
Raw Permalink Blame History

This file contains ambiguous Unicode characters

This file contains Unicode characters that might be confused with other characters. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

#ifndef __COMPLEX_CC
#define __COMPLEX_CC
#pragma option push -b -a8 -pc -Vx- -Ve- -w-inl -w-aus -w-sig
/***************************************************************************
*
* complex - Declaration for the Standard Library complex class
*
***************************************************************************
*
* Copyright (c) 1994-1999 Rogue Wave Software, Inc. All Rights Reserved.
*
* This computer software is owned by Rogue Wave Software, Inc. and is
* protected by U.S. copyright laws and other laws and by international
* treaties. This computer software is furnished by Rogue Wave Software,
* Inc. pursuant to a written license agreement and may be used, copied,
* transmitted, and stored only in accordance with the terms of such
* license and with the inclusion of the above copyright notice. This
* computer software or any other copies thereof may not be provided or
* otherwise made available to any other person.
*
* U.S. Government Restricted Rights. This computer software is provided
* with Restricted Rights. Use, duplication, or disclosure by the
* Government is subject to restrictions as set forth in subparagraph (c)
* (1) (ii) of The Rights in Technical Data and Computer Software clause
* at DFARS 252.227-7013 or subparagraphs (c) (1) and (2) of the
* Commercial Computer Software Restricted Rights at 48 CFR 52.227-19,
* as applicable. Manufacturer is Rogue Wave Software, Inc., 5500
* Flatiron Parkway, Boulder, Colorado 80301 USA.
*
**************************************************************************/
#include <stdcomp.h>
#ifdef _RW_STD_IOSTREAM
#include <sstream>
#endif
#ifndef _RWSTD_NO_NAMESPACE
namespace std {
#endif
template <class T>
complex<T> log10 (const complex<T>& a)
{
#ifndef _RWSTD_MULTI_THREAD
static
#endif
const T log10e = _RWSTD_C_SCOPE_LOG10(_RWSTD_C_SCOPE_EXP(T(1)));
return log10e * log(a);
}
#ifdef _RW_STD_IOSTREAM
template <class T,class charT, class traits>
basic_istream<charT, traits >&
_RWSTDExportTemplate operator>> (basic_istream<charT, traits >& is,complex<T>& x)
#else
template <class T>
istream& _RWSTDExportTemplate operator>> (istream& is, complex<T>& x)
#endif
{
//
// operator >> reads a complex number x in the form
// u
// (u)
// (u, v)
//
T u = 0, v = 0;
char c;
is >> c;
if (c == '(')
{
is >> u >> c;
if (c == ',') { is >> v >> c;}
if (c != ')' )
{
#ifdef _RW_STD_IOSTREAM
is.setstate(ios::failbit);
#else
is.clear(ios::failbit);
#endif
}
}
else
{
is.putback(c);
is >> u;
}
if (is)
x = complex<T>(u,v);
return is;
}
#ifdef _RW_STD_IOSTREAM
#include <sstream>
template <class T,class charT,class traits>
basic_ostream<charT,traits >& _RWSTDExportTemplate operator<< (basic_ostream<charT, traits >& os,const complex<T>& x)
{
basic_ostringstream<charT, traits, allocator<charT> > s;
s.flags(os.flags());
s.imbue(os.getloc());
s.precision(os.precision());
s << '(' << x.real() << "," << x.imag() << ')';
return os << s.str();
}
#else
template <class T>
ostream& _RWSTDExportTemplate operator<< (ostream& os, const complex<T>& x)
{
os << '(' << x.real() << "," << x.imag() << ')';
return os;
}
#endif
#ifndef _RWSTD_NO_NAMESPACE
}
#endif
#pragma option pop
#endif /* __COMPLEX_CC */