include/complex.h

   1 #ifndef _COMPLEX_H
   2 #define _COMPLEX_H
   3
   4 #ifdef __cplusplus
   5 extern "C" {
   6 #endif
   7
   8 #define complex _Complex
   9 #ifdef __GNUC__
  10 #define _Complex_I (__extension__ (0.0f+1.0fi))
  11 #else
  12 #define _Complex_I (0.0f+1.0fi)
  13 #endif
  14 #define I _Complex_I
  15
  16 double complex cacos(double complex);
  17 float complex cacosf(float complex);
  18 long double complex cacosl(long double complex);
  19
  20 double complex casin(double complex);
  21 float complex casinf(float complex);
  22 long double complex casinl(long double complex);
  23
  24 double complex catan(double complex);
  25 float complex catanf(float complex);
  26 long double complex catanl(long double complex);
  27
  28 double complex ccos(double complex);
  29 float complex ccosf(float complex);
  30 long double complex ccosl(long double complex);
  31
  32 double complex csin(double complex);
  33 float complex csinf(float complex);
  34 long double complex csinl(long double complex);
  35
  36 double complex ctan(double complex);
  37 float complex ctanf(float complex);
  38 long double complex ctanl(long double complex);
  39
  40 double complex cacosh(double complex);
  41 float complex cacoshf(float complex);
  42 long double complex cacoshl(long double complex);
  43
  44 double complex casinh(double complex);
  45 float complex casinhf(float complex);
  46 long double complex casinhl(long double complex);
  47
  48 double complex catanh(double complex);
  49 float complex catanhf(float complex);
  50 long double complex catanhl(long double complex);
  51
  52 double complex ccosh(double complex);
  53 float complex ccoshf(float complex);
  54 long double complex ccoshl(long double complex);
  55
  56 double complex csinh(double complex);
  57 float complex csinhf(float complex);
  58 long double complex csinhl(long double complex);
  59
  60 double complex ctanh(double complex);
  61 float complex ctanhf(float complex);
  62 long double complex ctanhl(long double complex);
  63
  64 double complex cexp(double complex);
  65 float complex cexpf(float complex);
  66 long double complex cexpl(long double complex);
  67
  68 double complex clog(double complex);
  69 float complex clogf(float complex);
  70 long double complex clogl(long double complex);
  71
  72 double cabs(double complex);
  73 float cabsf(float complex);
  74 long double cabsl(long double complex);
  75
  76 double complex cpow(double complex, double complex);
  77 float complex cpowf(float complex, float complex);
  78 long double complex cpowl(long double complex, long double complex);
  79
  80 double complex csqrt(double complex);
  81 float complex csqrtf(float complex);
  82 long double complex csqrtl(long double complex);
  83
  84 double carg(double complex);
  85 float cargf(float complex);
  86 long double cargl(long double complex);
  87
  88 double cimag(double complex);
  89 float cimagf(float complex);
  90 long double cimagl(long double complex);
  91
  92 double complex conj(double complex);
  93 float complex conjf(float complex);
  94 long double complex conjl(long double complex);
  95
  96 double complex cproj(double complex);
  97 float complex cprojf(float complex);
  98 long double complex cprojl(long double complex);
  99
 100 double creal(double complex);
 101 float crealf(float complex);
 102 long double creall(long double complex);
 103
 104 #ifndef __cplusplus
 105 #define __CIMAG(x, t) \
 106         (+(union { _Complex t __z; t __xy[2]; }){(_Complex t)(x)}.__xy[1])
 107
 108 #define creal(x) ((double)(x))
 109 #define crealf(x) ((float)(x))
 110 #define creall(x) ((long double)(x))
 111
 112 #define cimag(x) __CIMAG(x, double)
 113 #define cimagf(x) __CIMAG(x, float)
 114 #define cimagl(x) __CIMAG(x, long double)
 115 #endif
 116
 117 #if __STDC_VERSION__ >= 201112L
 118 #if defined(_Imaginary_I)
 119 #define __CMPLX(x, y, t) ((t)(x) + _Imaginary_I*(t)(y))
 120 #elif defined(__clang__)
 121 #define __CMPLX(x, y, t) (+(_Complex t){ (t)(x), (t)(y) })
 122 #else
 123 #define __CMPLX(x, y, t) (__builtin_complex((t)(x), (t)(y)))
 124 #endif
 125 #define CMPLX(x, y) __CMPLX(x, y, double)
 126 #define CMPLXF(x, y) __CMPLX(x, y, float)
 127 #define CMPLXL(x, y) __CMPLX(x, y, long double)
 128 #endif
 129
 130 #ifdef __cplusplus
 131 }
 132 #endif
 133 #endif