home *** CD-ROM | disk | FTP | other *** search
- #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 */
-