gcc/ada/a-ngcefu.ads

   1 ------------------------------------------------------------------------------
   2 --                                                                          --
   3 --                         GNAT RUNTIME COMPONENTS                          --
   4 --                                                                          --
   5 --            ADA.NUMERICS.GENERIC_COMPLEX_ELEMENTARY_FUNCTIONS             --
   6 --                                                                          --
   7 --                                 S p e c                                  --
   8 --                                                                          --
   9 --                                                                          --
  10 -- This specification is adapted from the Ada Reference Manual for use with --
  11 -- GNAT.  In accordance with the copyright of that document, you can freely --
  12 -- copy and modify this specification,  provided that if you redistribute a --
  13 -- modified version,  any changes that you have made are clearly indicated. --
  14 --                                                                          --
  15 ------------------------------------------------------------------------------
  16
  17 with Ada.Numerics.Generic_Complex_Types;
  18 generic
  19    with package Complex_Types is new Ada.Numerics.Generic_Complex_Types (<>);
  20    use Complex_Types;
  21
  22 package Ada.Numerics.Generic_Complex_Elementary_Functions is
  23    pragma Pure (Ada.Numerics.Generic_Complex_Elementary_Functions);
  24
  25    function Sqrt (X : Complex)   return Complex;
  26
  27    function Log  (X : Complex)   return Complex;
  28
  29    function Exp  (X : Complex)   return Complex;
  30    function Exp  (X : Imaginary) return Complex;
  31
  32    function "**" (Left : Complex;   Right : Complex)   return Complex;
  33    function "**" (Left : Complex;   Right : Real'Base) return Complex;
  34    function "**" (Left : Real'Base; Right : Complex)   return Complex;
  35
  36    function Sin (X : Complex) return Complex;
  37    function Cos (X : Complex) return Complex;
  38    function Tan (X : Complex) return Complex;
  39    function Cot (X : Complex) return Complex;
  40
  41    function Arcsin (X : Complex) return Complex;
  42    function Arccos (X : Complex) return Complex;
  43    function Arctan (X : Complex) return Complex;
  44    function Arccot (X : Complex) return Complex;
  45
  46    function Sinh (X : Complex) return Complex;
  47    function Cosh (X : Complex) return Complex;
  48    function Tanh (X : Complex) return Complex;
  49    function Coth (X : Complex) return Complex;
  50
  51    function Arcsinh (X : Complex) return Complex;
  52    function Arccosh (X : Complex) return Complex;
  53    function Arctanh (X : Complex) return Complex;
  54    function Arccoth (X : Complex) return Complex;
  55
  56 end Ada.Numerics.Generic_Complex_Elementary_Functions;