Home | History | Annotate | Download | only in include 
      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 (at) 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
     46 extern "C" {
     47 #endif
     48 
     49 #ifndef RC_INVOKED
     50 
     51 double __MINGW_ATTRIB_CONST creal (double _Complex);
     52 double __MINGW_ATTRIB_CONST cimag (double _Complex);
     53 double __MINGW_ATTRIB_CONST carg (double _Complex);
     54 double __MINGW_ATTRIB_CONST cabs (double _Complex) __MINGW_ATTRIB_DEPRECATED_MSVC2005;
     55 double _Complex __MINGW_ATTRIB_CONST conj (double _Complex);
     56 double _Complex  cacos (double _Complex);
     57 double _Complex  casin (double _Complex);
     58 double _Complex  catan (double _Complex);
     59 double _Complex  ccos (double _Complex);
     60 double _Complex  csin (double _Complex);
     61 double _Complex  ctan (double _Complex);
     62 double _Complex  cacosh (double _Complex);
     63 double _Complex  casinh (double _Complex);
     64 double _Complex  catanh (double _Complex);
     65 double _Complex  ccosh (double _Complex);
     66 double _Complex  csinh (double _Complex);
     67 double _Complex  ctanh (double _Complex);
     68 double _Complex  cexp (double _Complex);
     69 double _Complex  clog (double _Complex);
     70 double _Complex  cpow (double _Complex, double _Complex);
     71 double _Complex  csqrt (double _Complex);
     72 double _Complex __MINGW_ATTRIB_CONST cproj (double _Complex);
     73 
     74 float __MINGW_ATTRIB_CONST crealf (float _Complex);
     75 float __MINGW_ATTRIB_CONST cimagf (float _Complex);
     76 float __MINGW_ATTRIB_CONST cargf (float _Complex);
     77 float __MINGW_ATTRIB_CONST cabsf (float _Complex);
     78 float _Complex __MINGW_ATTRIB_CONST conjf (float _Complex);
     79 float _Complex  cacosf (float _Complex);
     80 float _Complex  casinf (float _Complex);
     81 float _Complex  catanf (float _Complex);
     82 float _Complex  ccosf (float _Complex);
     83 float _Complex  csinf (float _Complex);
     84 float _Complex  ctanf (float _Complex);
     85 float _Complex  cacoshf (float _Complex);
     86 float _Complex  casinhf (float _Complex);
     87 float _Complex  catanhf (float _Complex);
     88 float _Complex  ccoshf (float _Complex);
     89 float _Complex  csinhf (float _Complex);
     90 float _Complex  ctanhf (float _Complex);
     91 float _Complex  cexpf (float _Complex);
     92 float _Complex  clogf (float _Complex);
     93 float _Complex  cpowf (float _Complex, float _Complex);
     94 float _Complex  csqrtf (float _Complex);
     95 float _Complex __MINGW_ATTRIB_CONST cprojf (float _Complex);
     96 
     97 long double __MINGW_ATTRIB_CONST creall (long double _Complex);
     98 long double __MINGW_ATTRIB_CONST cimagl (long double _Complex);
     99 long double __MINGW_ATTRIB_CONST cargl (long double _Complex);
    100 long double __MINGW_ATTRIB_CONST cabsl (long double _Complex);
    101 long double _Complex __MINGW_ATTRIB_CONST conjl (long double _Complex);
    102 long double _Complex  cacosl (long double _Complex);
    103 long double _Complex  casinl (long double _Complex);
    104 long double _Complex  catanl (long double _Complex);
    105 long double _Complex  ccosl (long double _Complex);
    106 long double _Complex  csinl (long double _Complex);
    107 long double _Complex  ctanl (long double _Complex);
    108 long double _Complex  cacoshl (long double _Complex);
    109 long double _Complex  casinhl (long double _Complex);
    110 long double _Complex  catanhl (long double _Complex);
    111 long double _Complex  ccoshl (long double _Complex);
    112 long double _Complex  csinhl (long double _Complex);
    113 long double _Complex  ctanhl (long double _Complex);
    114 long double _Complex  cexpl (long double _Complex);
    115 long double _Complex  clogl (long double _Complex);
    116 long double _Complex  cpowl (long double _Complex, long double _Complex);
    117 long double _Complex  csqrtl (long double _Complex);
    118 long double _Complex __MINGW_ATTRIB_CONST cprojl (long double _Complex);
    119 
    120 #ifdef __GNUC__
    121 #if !defined (__CRT__NO_INLINE) && defined (_MATH_H_)
    122 /* double */
    123 __CRT_INLINE double __MINGW_ATTRIB_CONST creal (double _Complex _Z)
    124 {
    125   return __real__ _Z;
    126 }
    127 
    128 __CRT_INLINE double __MINGW_ATTRIB_CONST cimag (double _Complex _Z)
    129 {
    130   return __imag__ _Z;
    131 }
    132 
    133 __CRT_INLINE double _Complex __MINGW_ATTRIB_CONST conj (double _Complex _Z)
    134 {
    135   return __extension__ ~_Z;
    136 }
    137 
    138 __CRT_INLINE  double __MINGW_ATTRIB_CONST carg (double _Complex _Z)
    139 {
    140   return atan2 (__imag__ _Z, __real__ _Z);
    141 }
    142 
    143 __CRT_INLINE double __MINGW_ATTRIB_CONST cabs (double _Complex _Z)
    144 {
    145   return hypot (__real__ _Z, __imag__ _Z);
    146 }
    147 
    148 /* float */
    149 __CRT_INLINE float __MINGW_ATTRIB_CONST crealf (float _Complex _Z)
    150 {
    151   return __real__ _Z;
    152 }
    153 
    154 __CRT_INLINE float __MINGW_ATTRIB_CONST cimagf (float _Complex _Z)
    155 {
    156   return __imag__ _Z;
    157 }
    158 
    159 __CRT_INLINE float _Complex __MINGW_ATTRIB_CONST conjf (float _Complex _Z)
    160 {
    161   return __extension__ ~_Z;
    162 }
    163 
    164 __CRT_INLINE  float __MINGW_ATTRIB_CONST cargf (float _Complex _Z)
    165 {
    166   return atan2f (__imag__ _Z, __real__ _Z);
    167 }
    168 
    169 __CRT_INLINE float __MINGW_ATTRIB_CONST cabsf (float _Complex _Z)
    170 {
    171   return hypotf (__real__ _Z, __imag__ _Z);
    172 }
    173 
    174 /* long double */
    175 __CRT_INLINE long double __MINGW_ATTRIB_CONST creall (long double _Complex _Z)
    176 {
    177   return __real__ _Z;
    178 }
    179 
    180 __CRT_INLINE long double __MINGW_ATTRIB_CONST cimagl (long double _Complex _Z)
    181 {
    182   return __imag__ _Z;
    183 }
    184 
    185 __CRT_INLINE long double _Complex __MINGW_ATTRIB_CONST conjl (long double _Complex _Z)
    186 {
    187   return __extension__ ~_Z;
    188 }
    189 
    190 __CRT_INLINE  long double __MINGW_ATTRIB_CONST cargl (long double _Complex _Z)
    191 {
    192   return atan2l (__imag__ _Z, __real__ _Z);
    193 }
    194 
    195 __CRT_INLINE long double __MINGW_ATTRIB_CONST cabsl (long double _Complex _Z)
    196 {
    197   return hypotl (__real__ _Z, __imag__ _Z);
    198 }
    199 #endif /* !__CRT__NO_INLINE */
    200 #endif /* __GNUC__ */
    201 
    202 
    203 #endif /* RC_INVOKED */
    204 
    205 #ifdef __cplusplus
    206 }
    207 #endif
    208 
    209 #endif /* _COMPLEX_H */
    210