compiler/mlib/complex.h

   1 #ifndef _COMPLEX_H_
   2 #define _COMPLEX_H_
   3 /*
   4     Copyright © 1995-2002, The AROS Development Team. All rights reserved.
   5     $Id$
   6
   7     Standard C Library: C99 complex.h
   8 */
   9
  10 #include <aros/system.h>
  11
  12 /* GNU C provides an implementation of the complex type */
  13 #ifdef __GNUC__
  14 #   define  _Complex    __complex__
  15 #   define  _Complex_I  1.0fi
  16 #else
  17 #error Unsupported compiler in complex.h
  18 #endif
  19
  20 #define complex         _Complex
  21 #define I               _Complex_I
  22
  23 __BEGIN_DECLS
  24
  25 //NOT IMPL double complex cacos(double complex z);
  26 //NOT IMPL float complex cacosf(float complex z);
  27 //NOT IMPL long double complex cacosl(long double complex z);
  28 //NOT IMPL double complex casin(double complex z);
  29 //NOT IMPL float complex casinf(float complex z);
  30 //NOT IMPL long double complex casinl(long double complex z);
  31 //NOT IMPL double complex catan(double complex z);
  32 //NOT IMPL float complex catanf(float complex z);
  33 //NOT IMPL long double complex catanl(long double complex z);
  34 //NOT IMPL double complex ccos(double complex z);
  35 //NOT IMPL float complex ccosf(float complex z);
  36 //NOT IMPL long double complex ccosl(long double complex z);
  37 //NOT IMPL double complex csin(double complex z);
  38 //NOT IMPL float complex csinf(float complex z);
  39 //NOT IMPL long double complex csinl(long double complex z);
  40 //NOT IMPL double complex ctan(double complex z);
  41 //NOT IMPL float complex ctanf(float complex z);
  42 //NOT IMPL long double complex ctanl(long double complex z);
  43 //NOT IMPL double complex cacosh(double complex z);
  44 //NOT IMPL float complex cacoshf(float complex z);
  45 //NOT IMPL long double complex cacoshl(long double complex z);
  46 //NOT IMPL double complex casinh(double complex z);
  47 //NOT IMPL float complex casinhf(float complex z);
  48 //NOT IMPL long double complex casinhl(long double complex z);
  49 //NOT IMPL double complex catanh(double complex z);
  50 //NOT IMPL float complex catanhf(float complex z);
  51 //NOT IMPL long double complex catanhl(long double complex z);
  52 //NOT IMPL double complex ccosh(double complex z);
  53 //NOT IMPL float complex ccoshf(float complex z);
  54 //NOT IMPL long double complex ccoshl(long double complex z);
  55 //NOT IMPL double complex csinh(double complex z);
  56 //NOT IMPL float complex csinhf(float complex z);
  57 //NOT IMPL long double complex csinhl(long double complex z);
  58 //NOT IMPL double complex ctanh(double complex z);
  59 //NOT IMPL float complex ctanhf(float complex z);
  60 //NOT IMPL long double complex ctanhl(long double complex z);
  61 //NOT IMPL double complex cexp(double complex z);
  62 //NOT IMPL float complex cexpf(float complex z);
  63 //NOT IMPL long double complex cexpl(long double complex z);
  64 //NOT IMPL double complex clog(double complex z);
  65 //NOT IMPL float complex clogf(float complex z);
  66 //NOT IMPL long double complex clogl(long double complex z);
  67 double cabs(double complex z);
  68 float cabsf(float complex z);
  69 //NOT IMPL long double cabsl(long double complex z);
  70 //NOT IMPL double complex cpow(double complex x, double complex y);
  71 //NOT IMPL float complex cpowf(float complex x, float complex y);
  72 //NOT IMPL long double complex cpowl(long double complex x, long double complex y);
  73 //NOT IMPL double complex csqrt(double complex z);
  74 //NOT IMPL float complex csqrtf(float complex z);
  75 //NOT IMPL long double complex csqrtl(long double complex z);
  76 //NOT IMPL double carg(double complex z);
  77 //NOT IMPL float cargf(float complex z);
  78 //NOT IMPL long double cargl(long double complex z);
  79 double cimag(double complex z);
  80 float cimagf(float complex z);
  81 long double cimagl(long double complex z);
  82 double complex conj(double complex z);
  83 float complex conjf(float complex z);
  84 long double complex conjl(long double complex z);
  85 //NOT IMPL double complex cproj(double complex z);
  86 //NOT IMPL float complex cprojf(float complex z);
  87 //NOT IMPL long double complex cprojl(long double complex z);
  88 double creal(double complex z);
  89 float crealf(float complex z);
  90 long double creall(long double complex z);
  91
  92 __END_DECLS
  93
  94 #ifdef __GNUC__
  95 #define cimag(z)        (__imag__ (z))
  96 #define cimagf(z)       (__imag__ (z))
  97 #define cimagl(z)       (__imag__ (z))
  98
  99 #define creal(z)        (__real__ (z))
 100 #define crealf(z)       (__real__ (z))
 101 #define creall(z)       (__real__ (z))
 102 #endif
 103
 104 #endif /* _COMPLEX_H_ */