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 */