+/*
+ * 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
+
+double __MINGW_ATTRIB_CONST creal (double _Complex);
+double __MINGW_ATTRIB_CONST cimag (double _Complex);
+double __MINGW_ATTRIB_CONST carg (double _Complex);
+double __MINGW_ATTRIB_CONST cabs (double _Complex);
+double _Complex __MINGW_ATTRIB_CONST conj (double _Complex);
+double _Complex cacos (double _Complex);
+double _Complex casin (double _Complex);
+double _Complex catan (double _Complex);
+double _Complex ccos (double _Complex);
+double _Complex csin (double _Complex);
+double _Complex ctan (double _Complex);
+double _Complex cacosh (double _Complex);
+double _Complex casinh (double _Complex);
+double _Complex catanh (double _Complex);
+double _Complex ccosh (double _Complex);
+double _Complex csinh (double _Complex);
+double _Complex ctanh (double _Complex);
+double _Complex cexp (double _Complex);
+double _Complex clog (double _Complex);
+double _Complex cpow (double _Complex, double _Complex);
+double _Complex csqrt (double _Complex);
+double _Complex __MINGW_ATTRIB_CONST cproj (double _Complex);
+
+float __MINGW_ATTRIB_CONST crealf (float _Complex);
+float __MINGW_ATTRIB_CONST cimagf (float _Complex);
+float __MINGW_ATTRIB_CONST cargf (float _Complex);
+float __MINGW_ATTRIB_CONST cabsf (float _Complex);
+float _Complex __MINGW_ATTRIB_CONST conjf (float _Complex);
+float _Complex cacosf (float _Complex);
+float _Complex casinf (float _Complex);
+float _Complex catanf (float _Complex);
+float _Complex ccosf (float _Complex);
+float _Complex csinf (float _Complex);
+float _Complex ctanf (float _Complex);
+float _Complex cacoshf (float _Complex);
+float _Complex casinhf (float _Complex);
+float _Complex catanhf (float _Complex);
+float _Complex ccoshf (float _Complex);
+float _Complex csinhf (float _Complex);
+float _Complex ctanhf (float _Complex);
+float _Complex cexpf (float _Complex);
+float _Complex clogf (float _Complex);
+float _Complex cpowf (float _Complex, float _Complex);
+float _Complex csqrtf (float _Complex);
+float _Complex __MINGW_ATTRIB_CONST cprojf (float _Complex);
+
+long double __MINGW_ATTRIB_CONST creall (long double _Complex);
+long double __MINGW_ATTRIB_CONST cimagl (long double _Complex);
+long double __MINGW_ATTRIB_CONST cargl (long double _Complex);
+long double __MINGW_ATTRIB_CONST cabsl (long double _Complex);
+long double _Complex __MINGW_ATTRIB_CONST conjl (long double _Complex);
+long double _Complex cacosl (long double _Complex);
+long double _Complex casinl (long double _Complex);
+long double _Complex catanl (long double _Complex);
+long double _Complex ccosl (long double _Complex);
+long double _Complex csinl (long double _Complex);
+long double _Complex ctanl (long double _Complex);
+long double _Complex cacoshl (long double _Complex);
+long double _Complex casinhl (long double _Complex);
+long double _Complex catanhl (long double _Complex);
+long double _Complex ccoshl (long double _Complex);
+long double _Complex csinhl (long double _Complex);
+long double _Complex ctanhl (long double _Complex);
+long double _Complex cexpl (long double _Complex);
+long double _Complex clogl (long double _Complex);
+long double _Complex cpowl (long double _Complex, long double _Complex);
+long double _Complex csqrtl (long double _Complex);
+long double _Complex __MINGW_ATTRIB_CONST cprojl (long double _Complex);
+
+#ifdef __GNUC__
+
+/* double */
+__CRT_INLINE double __MINGW_ATTRIB_CONST creal (double _Complex _Z)
+{
+ return __real__ _Z;
+}
+
+__CRT_INLINE double __MINGW_ATTRIB_CONST cimag (double _Complex _Z)
+{
+ return __imag__ _Z;
+}
+
+__CRT_INLINE double _Complex __MINGW_ATTRIB_CONST conj (double _Complex _Z)
+{
+ return __extension__ ~_Z;
+}
+
+__CRT_INLINE double __MINGW_ATTRIB_CONST carg (double _Complex _Z)
+{
+ double res;
+ __asm__ ("fpatan;"
+ : "=t" (res) : "0" (__real__ _Z), "u" (__imag__ _Z) : "st(1)");
+ return res;
+}
+
+
+/* float */
+__CRT_INLINE float __MINGW_ATTRIB_CONST crealf (float _Complex _Z)
+{
+ return __real__ _Z;
+}
+
+__CRT_INLINE float __MINGW_ATTRIB_CONST cimagf (float _Complex _Z)
+{
+ return __imag__ _Z;
+}
+
+__CRT_INLINE float _Complex __MINGW_ATTRIB_CONST conjf (float _Complex _Z)
+{
+ return __extension__ ~_Z;
+}
+
+__CRT_INLINE float __MINGW_ATTRIB_CONST cargf (float _Complex _Z)
+{
+ float res;
+ __asm__ ("fpatan;"
+ : "=t" (res) : "0" (__real__ _Z), "u" (__imag__ _Z) : "st(1)");
+ return res;
+}
+
+/* long double */
+__CRT_INLINE long double __MINGW_ATTRIB_CONST creall (long double _Complex _Z)
+{
+ return __real__ _Z;
+}
+
+__CRT_INLINE long double __MINGW_ATTRIB_CONST cimagl (long double _Complex _Z)
+{
+ return __imag__ _Z;
+}
+
+__CRT_INLINE long double _Complex __MINGW_ATTRIB_CONST conjl (long double _Complex _Z)
+{
+ return __extension__ ~_Z;
+}
+
+__CRT_INLINE long double __MINGW_ATTRIB_CONST cargl (long double _Complex _Z)
+{
+ long 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 */
projects / reactos.git / commitdiff