1/**
  2 * This file has no copyright assigned and is placed in the Public Domain.
  3 * This file is part of the mingw-w64 runtime package.
  4 * No warranty is given; refer to the file DISCLAIMER.PD within this package.
  5 */
  6/*
  7 * complex.h
  8 *
  9 * This file is part of the Mingw32 package.
 10 *
 11 * Contributors:
 12 *  Created by Danny Smith <dannysmith@users.sourceforge.net>
 13 *
 14 *  THIS SOFTWARE IS NOT COPYRIGHTED
 15 *
 16 *  This source code is offered for use in the public domain. You may
 17 *  use, modify or distribute it freely.
 18 *
 19 *  This code is distributed in the hope that it will be useful but
 20 *  WITHOUT ANY WARRANTY. ALL WARRANTIES, EXPRESS OR IMPLIED ARE HEREBY
 21 *  DISCLAIMED. This includes but is not limited to warranties of
 22 *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
 23 *
 24 */
 25
 26#ifndef _COMPLEX_H_
 27#define _COMPLEX_H_
 28
 29/* All the headers include this file. */
 30#include <crtdefs.h>
 31
 32/* These macros are specified by C99 standard */
 33
 34#ifndef __cplusplus
 35#define complex _Complex
 36#endif
 37
 38#define _Complex_I  (__extension__  1.0iF)
 39
 40/* GCC doesn't support _Imaginary type yet, so we don't
 41   define _Imaginary_I */
 42
 43#define I _Complex_I
 44
 45#ifdef __cplusplus
 46extern "C" {
 47#endif
 48
 49#ifndef RC_INVOKED
 50
 51double __MINGW_ATTRIB_CONST creal (double _Complex);
 52double __MINGW_ATTRIB_CONST cimag (double _Complex);
 53double __MINGW_ATTRIB_CONST carg (double _Complex);
 54double __MINGW_ATTRIB_CONST cabs (double _Complex) __MINGW_ATTRIB_DEPRECATED_MSVC2005;
 55double _Complex __MINGW_ATTRIB_CONST conj (double _Complex);
 56double _Complex  cacos (double _Complex);
 57double _Complex  casin (double _Complex);
 58double _Complex  catan (double _Complex);
 59double _Complex  ccos (double _Complex);
 60double _Complex  csin (double _Complex);
 61double _Complex  ctan (double _Complex);
 62double _Complex  cacosh (double _Complex);
 63double _Complex  casinh (double _Complex);
 64double _Complex  catanh (double _Complex);
 65double _Complex  ccosh (double _Complex);
 66double _Complex  csinh (double _Complex);
 67double _Complex  ctanh (double _Complex);
 68double _Complex  cexp (double _Complex);
 69double _Complex  clog (double _Complex);
 70#ifdef _GNU_SOURCE
 71double _Complex  clog10(double _Complex);
 72#endif  /* _GNU_SOURCE */
 73double _Complex  cpow (double _Complex, double _Complex);
 74double _Complex  csqrt (double _Complex);
 75double _Complex __MINGW_ATTRIB_CONST cproj (double _Complex);
 76
 77float __MINGW_ATTRIB_CONST crealf (float _Complex);
 78float __MINGW_ATTRIB_CONST cimagf (float _Complex);
 79float __MINGW_ATTRIB_CONST cargf (float _Complex);
 80float __MINGW_ATTRIB_CONST cabsf (float _Complex);
 81float _Complex __MINGW_ATTRIB_CONST conjf (float _Complex);
 82float _Complex  cacosf (float _Complex);
 83float _Complex  casinf (float _Complex);
 84float _Complex  catanf (float _Complex);
 85float _Complex  ccosf (float _Complex);
 86float _Complex  csinf (float _Complex);
 87float _Complex  ctanf (float _Complex);
 88float _Complex  cacoshf (float _Complex);
 89float _Complex  casinhf (float _Complex);
 90float _Complex  catanhf (float _Complex);
 91float _Complex  ccoshf (float _Complex);
 92float _Complex  csinhf (float _Complex);
 93float _Complex  ctanhf (float _Complex);
 94float _Complex  cexpf (float _Complex);
 95float _Complex  clogf (float _Complex);
 96#ifdef _GNU_SOURCE
 97float _Complex  clog10f(float _Complex);
 98#endif  /* _GNU_SOURCE */
 99float _Complex  cpowf (float _Complex, float _Complex);
100float _Complex  csqrtf (float _Complex);
101float _Complex __MINGW_ATTRIB_CONST cprojf (float _Complex);
102
103long double __MINGW_ATTRIB_CONST creall (long double _Complex);
104long double __MINGW_ATTRIB_CONST cimagl (long double _Complex);
105long double __MINGW_ATTRIB_CONST cargl (long double _Complex);
106long double __MINGW_ATTRIB_CONST cabsl (long double _Complex);
107long double _Complex __MINGW_ATTRIB_CONST conjl (long double _Complex);
108long double _Complex  cacosl (long double _Complex);
109long double _Complex  casinl (long double _Complex);
110long double _Complex  catanl (long double _Complex);
111long double _Complex  ccosl (long double _Complex);
112long double _Complex  csinl (long double _Complex);
113long double _Complex  ctanl (long double _Complex);
114long double _Complex  cacoshl (long double _Complex);
115long double _Complex  casinhl (long double _Complex);
116long double _Complex  catanhl (long double _Complex);
117long double _Complex  ccoshl (long double _Complex);
118long double _Complex  csinhl (long double _Complex);
119long double _Complex  ctanhl (long double _Complex);
120long double _Complex  cexpl (long double _Complex);
121long double _Complex  clogl (long double _Complex);
122#ifdef _GNU_SOURCE
123long double _Complex  clog10l(long double _Complex);
124#endif  /* _GNU_SOURCE */
125long double _Complex  cpowl (long double _Complex, long double _Complex);
126long double _Complex  csqrtl (long double _Complex);
127long double _Complex __MINGW_ATTRIB_CONST cprojl (long double _Complex);
128
129#ifdef __GNUC__
130#if !defined (__CRT__NO_INLINE) && defined (_MATH_H_)
131/* double */
132__CRT_INLINE double __MINGW_ATTRIB_CONST creal (double _Complex _Z)
133{
134  return __real__ _Z;
135}
136
137__CRT_INLINE double __MINGW_ATTRIB_CONST cimag (double _Complex _Z)
138{
139  return __imag__ _Z;
140}
141
142__CRT_INLINE double _Complex __MINGW_ATTRIB_CONST conj (double _Complex _Z)
143{
144  return __extension__ ~_Z;
145}
146
147__CRT_INLINE  double __MINGW_ATTRIB_CONST carg (double _Complex _Z)
148{
149  return atan2 (__imag__ _Z, __real__ _Z);
150}
151
152__CRT_INLINE double __MINGW_ATTRIB_CONST cabs (double _Complex _Z)
153{
154  return hypot (__real__ _Z, __imag__ _Z);
155}
156
157/* float */
158__CRT_INLINE float __MINGW_ATTRIB_CONST crealf (float _Complex _Z)
159{
160  return __real__ _Z;
161}
162
163__CRT_INLINE float __MINGW_ATTRIB_CONST cimagf (float _Complex _Z)
164{
165  return __imag__ _Z;
166}
167
168__CRT_INLINE float _Complex __MINGW_ATTRIB_CONST conjf (float _Complex _Z)
169{
170  return __extension__ ~_Z;
171}
172
173__CRT_INLINE  float __MINGW_ATTRIB_CONST cargf (float _Complex _Z)
174{
175  return atan2f (__imag__ _Z, __real__ _Z);
176}
177
178__CRT_INLINE float __MINGW_ATTRIB_CONST cabsf (float _Complex _Z)
179{
180  return hypotf (__real__ _Z, __imag__ _Z);
181}
182
183/* long double */
184__CRT_INLINE long double __MINGW_ATTRIB_CONST creall (long double _Complex _Z)
185{
186  return __real__ _Z;
187}
188
189__CRT_INLINE long double __MINGW_ATTRIB_CONST cimagl (long double _Complex _Z)
190{
191  return __imag__ _Z;
192}
193
194__CRT_INLINE long double _Complex __MINGW_ATTRIB_CONST conjl (long double _Complex _Z)
195{
196  return __extension__ ~_Z;
197}
198
199__CRT_INLINE  long double __MINGW_ATTRIB_CONST cargl (long double _Complex _Z)
200{
201  return atan2l (__imag__ _Z, __real__ _Z);
202}
203
204__CRT_INLINE long double __MINGW_ATTRIB_CONST cabsl (long double _Complex _Z)
205{
206  return hypotl (__real__ _Z, __imag__ _Z);
207}
208#endif /* !__CRT__NO_INLINE */
209#endif /* __GNUC__ */
210
211
212#endif /* RC_INVOKED */
213
214#ifdef __cplusplus
215}
216#endif
217
218#endif /* _COMPLEX_H */