diff options
Diffstat (limited to 'gcc-4.7/gcc/ada/s-dimmks.ads')
-rw-r--r-- | gcc-4.7/gcc/ada/s-dimmks.ads | 326 |
1 files changed, 0 insertions, 326 deletions
diff --git a/gcc-4.7/gcc/ada/s-dimmks.ads b/gcc-4.7/gcc/ada/s-dimmks.ads deleted file mode 100644 index 28e8563c7..000000000 --- a/gcc-4.7/gcc/ada/s-dimmks.ads +++ /dev/null @@ -1,326 +0,0 @@ ------------------------------------------------------------------------------- --- -- --- GNAT RUN-TIME COMPONENTS -- --- -- --- S Y S T E M . D I M . M K S -- --- -- --- S p e c -- --- -- --- Copyright (C) 2011-2012, Free Software Foundation, Inc. -- --- -- --- GNAT is free software; you can redistribute it and/or modify it under -- --- terms of the GNU General Public License as published by the Free Soft- -- --- ware Foundation; either version 3, or (at your option) any later ver- -- --- sion. GNAT is distributed in the hope that it will be useful, but WITH- -- --- OUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY -- --- or FITNESS FOR A PARTICULAR PURPOSE. -- --- -- --- As a special exception under Section 7 of GPL version 3, you are granted -- --- additional permissions described in the GCC Runtime Library Exception, -- --- version 3.1, as published by the Free Software Foundation. -- --- -- --- You should have received a copy of the GNU General Public License and -- --- a copy of the GCC Runtime Library Exception along with this program; -- --- see the files COPYING3 and COPYING.RUNTIME respectively. If not, see -- --- <http://www.gnu.org/licenses/>. -- --- -- --- GNAT was originally developed by the GNAT team at New York University. -- --- Extensive contributions were provided by Ada Core Technologies Inc. -- --- -- ------------------------------------------------------------------------------- - --- Defines the MKS dimension system which is the SI system of units - --- Some other prefixes of this system are defined in a child package (see --- System.Dim_Mks.Other_Prefixes) in order to avoid too many constant --- declarations in this package. - --- The dimension terminology is defined in System.Dim_IO package - -with Ada.Numerics; - -package System.Dim.Mks is - - e : constant := Ada.Numerics.e; - Pi : constant := Ada.Numerics.Pi; - - -- Dimensioned type Mks_Type - - type Mks_Type is new Long_Long_Float - with - Dimension_System => ((Meter, 'm'), - (Kilogram, "kg"), - (Second, 's'), - (Ampere, 'A'), - (Kelvin, 'K'), - (Mole, "mol"), - (Candela, "cd")); - - -- SI Base dimensioned subtype - - subtype Length is Mks_Type - with - Dimension => ('m', - Meter => 1, - others => 0); - subtype Mass is Mks_Type - with - Dimension => ("kg", - Kilogram => 1, - others => 0); - subtype Time is Mks_Type - with - Dimension => ('s', - Second => 1, - others => 0); - subtype Electric_Current is Mks_Type - with - Dimension => ('A', - Ampere => 1, - others => 0); - subtype Thermodynamic_Temperature is Mks_Type - with - Dimension => ('K', - Kelvin => 1, - others => 0); - subtype Amount_Of_Substance is Mks_Type - with - Dimension => ("mol", - Mole => 1, - others => 0); - subtype Luminous_Intensity is Mks_Type - with - Dimension => ("cd", - Candela => 1, - others => 0); - - -- SI Base units - - m : constant Length := 1.0; - kg : constant Mass := 1.0; - s : constant Time := 1.0; - A : constant Electric_Current := 1.0; - K : constant Thermodynamic_Temperature := 1.0; - mol : constant Amount_Of_Substance := 1.0; - cd : constant Luminous_Intensity := 1.0; - - -- SI Derived dimensioned subtypes - - subtype Angle is Mks_Type - with - Dimension => ("rad", - others => 0); - - subtype Solid_Angle is Mks_Type - with - Dimension => ("sr", - others => 0); - - subtype Frequency is Mks_Type - with - Dimension => ("Hz", - Second => -1, - others => 0); - subtype Force is Mks_Type - with - Dimension => ('N', - Meter => 1, - Kilogram => 1, - Second => -2, - others => 0); - subtype Pressure is Mks_Type - with - Dimension => ("Pa", - Meter => -1, - Kilogram => 1, - Second => -2, - others => 0); - subtype Energy is Mks_Type - with - Dimension => ('J', - Meter => 2, - Kilogram => 1, - Second => -2, - others => 0); - subtype Power is Mks_Type - with - Dimension => ('W', - Meter => 2, - Kilogram => 1, - Second => -3, - others => 0); - subtype Electric_Charge is Mks_Type - with - Dimension => ('C', - Second => 1, - Ampere => 1, - others => 0); - subtype Electric_Potential_Difference is Mks_Type - with - Dimension => ('V', - Meter => 2, - Kilogram => 1, - Second => -3, - Ampere => -1, - others => 0); - subtype Electric_Capacitance is Mks_Type - with - Dimension => ('F', - Meter => -2, - Kilogram => -1, - Second => 4, - Ampere => 2, - others => 0); - subtype Electric_Resistance is Mks_Type - with - Dimension => ("Ω", - Meter => 2, - Kilogram => 1, - Second => -3, - Ampere => -2, - others => 0); - subtype Electric_Conductance is Mks_Type - with - Dimension => ('S', - Meter => -2, - Kilogram => -1, - Second => 3, - Ampere => 2, - others => 0); - subtype Magnetic_Flux is Mks_Type - with - Dimension => ("Wb", - Meter => 2, - Kilogram => 1, - Second => -2, - Ampere => -1, - others => 0); - subtype Magnetic_Flux_Density is Mks_Type - with - Dimension => ('T', - Kilogram => 1, - Second => -2, - Ampere => -1, - others => 0); - subtype Inductance is Mks_Type - with - Dimension => ('H', - Meter => 2, - Kilogram => 1, - Second => -2, - Ampere => -2, - others => 0); - subtype Celsius_Temperature is Mks_Type - with - Dimension => ("°C", - Kelvin => 1, - others => 0); - subtype Luminous_Flux is Mks_Type - with - Dimension => ("lm", - Candela => 1, - others => 0); - subtype Illuminance is Mks_Type - with - Dimension => ("lx", - Meter => -2, - Candela => 1, - others => 0); - subtype Radioactivity is Mks_Type - with - Dimension => ("Bq", - Second => -1, - others => 0); - subtype Absorbed_Dose is Mks_Type - with - Dimension => ("Gy", - Meter => 2, - Second => -2, - others => 0); - subtype Equivalent_Dose is Mks_Type - with - Dimension => ("Sv", - Meter => 2, - Second => -2, - others => 0); - subtype Catalytic_Activity is Mks_Type - with - Dimension => ("kat", - Second => -1, - Mole => 1, - others => 0); - - rad : constant Angle := 1.0; - sr : constant Solid_Angle := 1.0; - Hz : constant Frequency := 1.0; - N : constant Force := 1.0; - Pa : constant Pressure := 1.0; - J : constant Energy := 1.0; - W : constant Power := 1.0; - C : constant Electric_Charge := 1.0; - V : constant Electric_Potential_Difference := 1.0; - F : constant Electric_Capacitance := 1.0; - Ohm : constant Electric_Resistance := 1.0; - Si : constant Electric_Conductance := 1.0; - Wb : constant Magnetic_Flux := 1.0; - T : constant Magnetic_Flux_Density := 1.0; - H : constant Inductance := 1.0; - dC : constant Celsius_Temperature := 273.15; - lm : constant Luminous_Flux := 1.0; - lx : constant Illuminance := 1.0; - Bq : constant Radioactivity := 1.0; - Gy : constant Absorbed_Dose := 1.0; - Sv : constant Equivalent_Dose := 1.0; - kat : constant Catalytic_Activity := 1.0; - - -- SI prefixes for Meter - - um : constant Length := 1.0E-06; -- micro (u) - mm : constant Length := 1.0E-03; -- milli - cm : constant Length := 1.0E-02; -- centi - dm : constant Length := 1.0E-01; -- deci - dam : constant Length := 1.0E+01; -- deka - hm : constant Length := 1.0E+02; -- hecto - km : constant Length := 1.0E+03; -- kilo - Mem : constant Length := 1.0E+06; -- mega - - -- SI prefixes for Kilogram - - ug : constant Mass := 1.0E-09; -- micro (u) - mg : constant Mass := 1.0E-06; -- milli - cg : constant Mass := 1.0E-05; -- centi - dg : constant Mass := 1.0E-04; -- deci - g : constant Mass := 1.0E-03; -- gram - dag : constant Mass := 1.0E-02; -- deka - hg : constant Mass := 1.0E-01; -- hecto - Meg : constant Mass := 1.0E+03; -- mega - - -- SI prefixes for Second - - us : constant Time := 1.0E-06; -- micro (u) - ms : constant Time := 1.0E-03; -- milli - cs : constant Time := 1.0E-02; -- centi - ds : constant Time := 1.0E-01; -- deci - das : constant Time := 1.0E+01; -- deka - hs : constant Time := 1.0E+02; -- hecto - ks : constant Time := 1.0E+03; -- kilo - Mes : constant Time := 1.0E+06; -- mega - - -- Other constants for Second - - min : constant Time := 60.0 * s; - hour : constant Time := 60.0 * min; - day : constant Time := 24.0 * hour; - year : constant Time := 365.25 * day; - - -- SI prefixes for Ampere - - mA : constant Electric_Current := 1.0E-03; -- milli - cA : constant Electric_Current := 1.0E-02; -- centi - dA : constant Electric_Current := 1.0E-01; -- deci - daA : constant Electric_Current := 1.0E+01; -- deka - hA : constant Electric_Current := 1.0E+02; -- hecto - kA : constant Electric_Current := 1.0E+03; -- kilo - MeA : constant Electric_Current := 1.0E+06; -- mega - -end System.Dim.Mks; |