blob: af3fc0f1861e7550562d087a332bd647a470c729 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
|
/*
* complex.h
*
* This file is part of the Mingw32 package.
*
* Contributors:
* Created by Danny Smith <dannysmith@users.sourceforge.net>
*
* THIS SOFTWARE IS NOT COPYRIGHTED
*
* This source code is offered for use in the public domain. You may
* use, modify or distribute it freely.
*
* This code is distributed in the hope that it will be useful but
* WITHOUT ANY WARRANTY. ALL WARRANTIES, EXPRESS OR IMPLIED ARE HEREBY
* DISCLAIMED. This includes but is not limited to warranties of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
*
*/
#ifndef _COMPLEX_H_
#define _COMPLEX_H_
/* All the headers include this file. */
#include <_mingw.h>
#if (defined (__STDC_VERSION__) && __STDC_VERSION__ >= 199901L) \
|| !defined __STRICT_ANSI__
/* These macros are specified by C99 standard */
#ifndef __cplusplus
#define complex _Complex
#endif
#define _Complex_I (0.0F + 1.0iF)
/* GCC doesn't support _Imaginary type yet, so we don't
define _Imaginary_I */
#define I _Complex_I
#ifdef __cplusplus
extern "C" {
#endif
#ifndef RC_INVOKED
/* TODO: float and long double versions */
double __attribute__ ((const)) creal (double _Complex);
double __attribute__ ((const)) cimag (double _Complex);
double __attribute__ ((const)) carg (double _Complex);
double __attribute__ ((const)) cabs (double _Complex);
double _Complex __attribute__ ((const)) cconj (double _Complex);
double _Complex __attribute__ ((const)) cacos (double _Complex);
double _Complex __attribute__ ((const)) casin (double _Complex);
double _Complex __attribute__ ((const)) catan (double _Complex);
double _Complex __attribute__ ((const)) ccos (double _Complex);
double _Complex __attribute__ ((const)) csin (double _Complex);
double _Complex __attribute__ ((const)) ctan (double _Complex);
double _Complex __attribute__ ((const)) cacosh (double _Complex);
double _Complex __attribute__ ((const)) casinh (double _Complex);
double _Complex __attribute__ ((const)) catanh (double _Complex);
double _Complex __attribute__ ((const)) ccosh (double _Complex);
double _Complex __attribute__ ((const)) csinh (double _Complex);
double _Complex __attribute__ ((const)) ctanh (double _Complex);
double _Complex __attribute__ ((const)) cexp (double _Complex);
double _Complex __attribute__ ((const)) clog (double _Complex);
double _Complex __attribute__ ((const)) cpow (double _Complex, double _Complex);
double _Complex __attribute__ ((const)) csqrt (double _Complex);
double _Complex __attribute__ ((const)) cproj (double _Complex);
#ifdef __GNUC__
__CRT_INLINE double __attribute__ ((const)) creal (double _Complex _Z)
{
return __real__ _Z;
}
__CRT_INLINE double __attribute__ ((const)) cimag (double _Complex _Z)
{
return __imag__ _Z;
}
__CRT_INLINE double _Complex __attribute__ ((const)) conj (double _Complex _Z)
{
return __extension__ ~_Z;
}
__CRT_INLINE double __attribute__ ((const)) carg (double _Complex _Z)
{
double res;
__asm__ ("fpatan;"
: "=t" (res) : "0" (__real__ _Z), "u" (__imag__ _Z) : "st(1)");
return res;
}
#endif /* __GNUC__ */
#endif /* RC_INVOKED */
#ifdef __cplusplus
}
#endif
#endif /* __STDC_VERSION__ >= 199901L */
#endif /* _COMPLEX_H */
|
