ViewVC Help
View File | Revision Log | View Changeset | Root Listing
root/Oni2/Daodan/MinGW/include/complex.h
Revision: 1046
Committed: Mon Aug 29 13:19:38 2016 UTC (9 years, 2 months ago) by alloc
Content type: text/x-chdr
File size: 6309 byte(s)
Log Message: 
Daodan: Added Windows MinGW and build batch file

File Contents

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