contrib/libstdc++/std/ldcomplex.h

   1 // The -*- C++ -*- long_double_complex class.
   2 // Copyright (C) 1994 Free Software Foundation
   3
   4 // This file is part of the GNU ANSI C++ Library.  This library is free
   5 // software; you can redistribute it and/or modify it under the
   6 // terms of the GNU General Public License as published by the
   7 // Free Software Foundation; either version 2, or (at your option)
   8 // any later version.
   9
  10 // This library is distributed in the hope that it will be useful,
  11 // but WITHOUT ANY WARRANTY; without even the implied warranty of
  12 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  13 // GNU General Public License for more details.
  14
  15 // You should have received a copy of the GNU General Public License
  16 // along with this library; see the file COPYING.  If not, write to the Free
  17 // Software Foundation, 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
  18
  19 // As a special exception, if you link this library with files
  20 // compiled with a GNU compiler to produce an executable, this does not cause
  21 // the resulting executable to be covered by the GNU General Public License.
  22 // This exception does not however invalidate any other reasons why
  23 // the executable file might be covered by the GNU General Public License.
  24
  25 // Written by Jason Merrill based upon the specification in the 27 May 1994
  26 // C++ working paper, ANSI document X3J16/94-0098.
  27
  28 #ifndef __LDCOMPLEX__
  29 #define __LDCOMPLEX__
  30
  31 #ifdef __GNUG__
  32 #pragma interface "ldcomplex"
  33 #endif
  34
  35 extern "C++" {
  36 class complex<long double>
  37 {
  38 public:
  39   complex (long double r = 0, long double i = 0): re (r), im (i) { }
  40   complex (const complex<float>& r): re (r.real ()), im (r.imag ()) { }
  41   complex (const complex<double>& r): re (r.real ()), im (r.imag ()) { }
  42
  43   complex& operator+= (const complex& r) { return __doapl (this, r); }
  44   complex& operator-= (const complex& r) { return __doami (this, r); }
  45   complex& operator*= (const complex& r) { return __doaml (this, r); }
  46   complex& operator/= (const complex& r) { return __doadv (this, r); }
  47
  48   long double real () const { return re; }
  49   long double imag () const { return im; }
  50 private:
  51   long double re, im;
  52
  53   friend complex& __doapl<> (complex *, const complex&);
  54   friend complex& __doami<> (complex *, const complex&);
  55   friend complex& __doaml<> (complex *, const complex&);
  56   friend complex& __doadv<> (complex *, const complex&);
  57
  58 #ifndef __STRICT_ANSI__
  59   friend inline complex operator + (const complex& x, long double y)
  60     { return operator+<> (x, y); }
  61   friend inline complex operator + (long double x, const complex& y)
  62     { return operator+<> (x, y); }
  63   friend inline complex operator - (const complex& x, long double y)
  64     { return operator-<> (x, y); }
  65   friend inline complex operator - (long double x, const complex& y)
  66     { return operator-<> (x, y); }
  67   friend inline complex operator * (const complex& x, long double y)
  68     { return operator*<> (x, y); }
  69   friend inline complex operator * (long double x, const complex& y)
  70     { return operator*<> (x, y); }
  71   friend inline complex operator / (const complex& x, long double y)
  72     { return operator/<> (x, y); }
  73   friend inline complex operator / (long double x, const complex& y)
  74     { return operator/<> (x, y); }
  75   friend inline bool operator == (const complex& x, long double y)
  76     { return operator==<> (x, y); }
  77   friend inline bool operator == (long double x, const complex& y)
  78     { return operator==<> (x, y); }
  79   friend inline bool operator != (const complex& x, long double y)
  80     { return operator!=<> (x, y); }
  81   friend inline bool operator != (long double x, const complex& y)
  82     { return operator!=<> (x, y); }
  83 #endif /* __STRICT_ANSI__ */
  84 };
  85
  86 inline complex<float>::complex (const complex<long double>& r)
  87 : re (r.real ()), im (r.imag ())
  88 { }
  89
  90 inline complex<double>::complex (const complex<long double>& r)
  91 : re (r.real ()), im (r.imag ())
  92 { }
  93 } // extern "C++"
  94
  95 #endif