Return to standard_integer_numbers.ads CVS log

Up to [local] / OpenXM_contrib / PHC / Ada / Math_Lib / Numbers

Annotation of OpenXM_contrib/PHC/Ada/Math_Lib/Numbers/standard_integer_numbers.ads, Revision 1.1

1.1     ! maekawa     1: package Standard_Integer_Numbers is
        !             2:
        !             3: -- DESCRIPTION :
        !             4: --   With the operations in this package the Standard_Integer_Ring is build.
        !             5:
        !             6:   function Create ( n : natural ) return integer;              -- n is integer
        !             7:
        !             8:   function Equal ( a,b : integer ) return boolean;             -- a = b
        !             9:   procedure Copy ( a : in integer; b : in out integer );       -- b := a
        !            10:
        !            11:   procedure Add ( a : in out integer; b : in integer );        -- a := a+b
        !            12:   procedure Sub ( a : in out integer; b : in integer );        -- a := a-b
        !            13:   procedure Min ( a : in out integer );                        -- a := -a
        !            14:   procedure Mul ( a : in out integer; b : in integer );        -- a := a*b
        !            15:
        !            16:   function  Rmd ( a,b : integer ) return integer;              -- a mod b
        !            17:   procedure Rmd ( a : in out integer; b : in integer );        -- a := a mod b
        !            18:
        !            19:   procedure Div ( a : in out integer; b : in integer );        -- a := a/b
        !            20:   procedure Div ( a,b : in integer;                            -- a = b*q+r
        !            21:                   q : out integer; r : out integer );          -- q := a/b
        !            22:   procedure Div ( a : in out integer; b : in integer;          -- a := a/b
        !            23:                   r : out integer );                           -- r := a mod b
        !            24:
        !            25:   procedure Clear ( a : in out integer );                      -- deallocation
        !            26:
        !            27: end Standard_Integer_Numbers;