Initial revision

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@14877 138bc75d-0d04-0410-961f-82ee72b054a4

1 files changed, 98 insertions, 0 deletions

diff --git a/libstdc++/std/ldcomplex.h b/libstdc++/std/ldcomplex.h
new file mode 100644
index 00000000000..9feb30326bd
--- /dev/null
+++ b/libstdc++/std/ldcomplex.h
@@ -0,0 +1,98 @@
+// The -*- C++ -*- long_double_complex class.
+// Copyright (C) 1994 Free Software Foundation
+
+// This file is part of the GNU ANSI C++ Library.  This library is free
+// software; you can redistribute it and/or modify it under the
+// terms of the GNU General Public License as published by the
+// Free Software Foundation; either version 2, or (at your option)
+// any later version.
+
+// This library is distributed in the hope that it will be useful,
+// but WITHOUT ANY WARRANTY; without even the implied warranty of
+// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+// GNU General Public License for more details.
+
+// You should have received a copy of the GNU General Public License
+// along with this library; see the file COPYING.  If not, write to the Free
+// Software Foundation, 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
+
+// As a special exception, if you link this library with files
+// compiled with a GNU compiler to produce an executable, this does not cause
+// the resulting executable to be covered by the GNU General Public License.
+// This exception does not however invalidate any other reasons why
+// the executable file might be covered by the GNU General Public License.
+
+// Written by Jason Merrill based upon the specification in the 27 May 1994
+// C++ working paper, ANSI document X3J16/94-0098.
+
+#ifndef __LDCOMPLEX__
+#define __LDCOMPLEX__
+
+#ifdef __GNUG__
+#pragma interface "ldcomplex"
+#endif
+
+extern "C++" {
+class complex<long double>
+{
+public:
+  complex (long double r = 0, long double i = 0): re (r), im (i) { }
+  complex (const complex<float>& r): re (r.real ()), im (r.imag ()) { }
+  complex (const complex<double>& r): re (r.real ()), im (r.imag ()) { }
+
+  complex& operator+= (const complex& r) { return __doapl (this, r); }
+  complex& operator-= (const complex& r) { return __doami (this, r); }
+  complex& operator*= (const complex& r) { return __doaml (this, r); }
+  complex& operator/= (const complex& r) { return __doadv (this, r); }
+
+  long double real () const { return re; }
+  long double imag () const { return im; }
+private:
+  long double re, im;
+
+  friend complex& __doapl (complex *, const complex&);
+  friend complex& __doami (complex *, const complex&);
+  friend complex& __doaml (complex *, const complex&);
+  friend complex& __doadv (complex *, const complex&);
+
+  // These functions are specified as friends for purposes of name injection;
+  // they do not actually reference private members.
+  friend long double real (const complex& x) { return x.real (); }
+  friend long double imag (const complex& x) { return x.imag (); }
+  friend complex operator + (const complex&, const complex&) __attribute__ ((const));
+  friend complex operator + (const complex&, long double) __attribute__ ((const));
+  friend complex operator + (long double, const complex&) __attribute__ ((const));
+  friend complex operator - (const complex&, const complex&) __attribute__ ((const));
+  friend complex operator - (const complex&, long double) __attribute__ ((const));
+  friend complex operator - (long double, const complex&) __attribute__ ((const));
+  friend complex operator * (const complex&, const complex&) __attribute__ ((const));
+  friend complex operator * (const complex&, long double) __attribute__ ((const));
+  friend complex operator * (long double, const complex&) __attribute__ ((const));
+  friend complex operator / (const complex&, const complex&) __attribute__ ((const));
+  friend complex operator / (const complex&, long double) __attribute__ ((const));
+  friend complex operator / (long double, const complex&) __attribute__ ((const));
+  friend bool operator == (const complex&, const complex&) __attribute__ ((const));
+  friend bool operator == (const complex&, long double) __attribute__ ((const));
+  friend bool operator == (long double, const complex&) __attribute__ ((const));
+  friend bool operator != (const complex&, const complex&) __attribute__ ((const));
+  friend bool operator != (const complex&, long double) __attribute__ ((const));
+  friend bool operator != (long double, const complex&) __attribute__ ((const));
+  friend complex polar (long double, long double) __attribute__ ((const));
+  friend complex pow (const complex&, const complex&) __attribute__ ((const));
+  friend complex pow (const complex&, long double) __attribute__ ((const));
+  friend complex pow (const complex&, int) __attribute__ ((const));
+  friend complex pow (long double, const complex&) __attribute__ ((const));
+  friend istream& operator>> (istream&, complex&);
+  friend ostream& operator<< (ostream&, const complex&);
+};
+
+inline complex<float>::complex (const complex<long double>& r)
+: re (r.real ()), im (r.imag ())
+{ }
+
+inline complex<double>::complex (const complex<long double>& r)
+: re (r.real ()), im (r.imag ())
+{ }
+} // extern "C++"
+
+#endif