gcc/ada/a-ngelfu.ads

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