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