Mercurial > hg > CbC > CbC_gcc
comparison gcc/ada/libgnat/s-dmotpr.ads @ 111:04ced10e8804
gcc 7
author | kono |
---|---|
date | Fri, 27 Oct 2017 22:46:09 +0900 |
parents | |
children | 84e7813d76e9 |
comparison
equal
deleted
inserted
replaced
68:561a7518be6b | 111:04ced10e8804 |
---|---|
1 ------------------------------------------------------------------------------ | |
2 -- -- | |
3 -- GNAT RUN-TIME COMPONENTS -- | |
4 -- -- | |
5 -- S Y S T E M . D I M . M K S . O T H E R _ P R E F I X E S -- | |
6 -- -- | |
7 -- S p e c -- | |
8 -- -- | |
9 -- Copyright (C) 2011-2017, Free Software Foundation, Inc. -- | |
10 -- -- | |
11 -- GNAT is free software; you can redistribute it and/or modify it under -- | |
12 -- terms of the GNU General Public License as published by the Free Soft- -- | |
13 -- ware Foundation; either version 3, or (at your option) any later ver- -- | |
14 -- sion. GNAT is distributed in the hope that it will be useful, but WITH- -- | |
15 -- OUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY -- | |
16 -- or FITNESS FOR A PARTICULAR PURPOSE. -- | |
17 -- -- | |
18 -- As a special exception under Section 7 of GPL version 3, you are granted -- | |
19 -- additional permissions described in the GCC Runtime Library Exception, -- | |
20 -- version 3.1, as published by the Free Software Foundation. -- | |
21 -- -- | |
22 -- You should have received a copy of the GNU General Public License and -- | |
23 -- a copy of the GCC Runtime Library Exception along with this program; -- | |
24 -- see the files COPYING3 and COPYING.RUNTIME respectively. If not, see -- | |
25 -- <http://www.gnu.org/licenses/>. -- | |
26 -- -- | |
27 -- GNAT was originally developed by the GNAT team at New York University. -- | |
28 -- Extensive contributions were provided by Ada Core Technologies Inc. -- | |
29 -- -- | |
30 ------------------------------------------------------------------------------ | |
31 | |
32 -- Package that defines some other prefixes for the MKS base unit system. | |
33 | |
34 -- These prefixes have been defined in a child package in order to avoid too | |
35 -- many constant declarations in System.Dim_Mks. | |
36 | |
37 package System.Dim.Mks.Other_Prefixes is | |
38 | |
39 -- SI prefixes for Meter | |
40 | |
41 pragma Warnings (Off); | |
42 -- Turn off the all the dimension warnings | |
43 | |
44 ym : constant Length := 1.0E-24; -- yocto | |
45 zm : constant Length := 1.0E-21; -- zepto | |
46 am : constant Length := 1.0E-18; -- atto | |
47 fm : constant Length := 1.0E-15; -- femto | |
48 pm : constant Length := 1.0E-12; -- pico | |
49 nm : constant Length := 1.0E-09; -- nano | |
50 Gm : constant Length := 1.0E+09; -- giga | |
51 Tm : constant Length := 1.0E+12; -- tera | |
52 Pem : constant Length := 1.0E+15; -- peta | |
53 Em : constant Length := 1.0E+18; -- exa | |
54 Zem : constant Length := 1.0E+21; -- zetta | |
55 Yom : constant Length := 1.0E+24; -- yotta | |
56 | |
57 -- SI prefixes for Kilogram | |
58 | |
59 yg : constant Mass := 1.0E-27; -- yocto | |
60 zg : constant Mass := 1.0E-24; -- zepto | |
61 ag : constant Mass := 1.0E-21; -- atto | |
62 fg : constant Mass := 1.0E-18; -- femto | |
63 pg : constant Mass := 1.0E-15; -- pico | |
64 ng : constant Mass := 1.0E-12; -- nano | |
65 Gg : constant Mass := 1.0E+06; -- giga | |
66 Tg : constant Mass := 1.0E+09; -- tera | |
67 Peg : constant Mass := 1.0E+13; -- peta | |
68 Eg : constant Mass := 1.0E+15; -- exa | |
69 Zeg : constant Mass := 1.0E+18; -- zetta | |
70 Yog : constant Mass := 1.0E+21; -- yotta | |
71 | |
72 -- SI prefixes for Second | |
73 | |
74 ys : constant Time := 1.0E-24; -- yocto | |
75 zs : constant Time := 1.0E-21; -- zepto | |
76 as : constant Time := 1.0E-18; -- atto | |
77 fs : constant Time := 1.0E-15; -- femto | |
78 ps : constant Time := 1.0E-12; -- pico | |
79 ns : constant Time := 1.0E-09; -- nano | |
80 Gs : constant Time := 1.0E+09; -- giga | |
81 Ts : constant Time := 1.0E+12; -- tera | |
82 Pes : constant Time := 1.0E+15; -- peta | |
83 Es : constant Time := 1.0E+18; -- exa | |
84 Zes : constant Time := 1.0E+21; -- zetta | |
85 Yos : constant Time := 1.0E+24; -- yotta | |
86 | |
87 -- SI prefixes for Ampere | |
88 | |
89 yA : constant Electric_Current := 1.0E-24; -- yocto | |
90 zA : constant Electric_Current := 1.0E-21; -- zepto | |
91 aA : constant Electric_Current := 1.0E-18; -- atto | |
92 fA : constant Electric_Current := 1.0E-15; -- femto | |
93 nA : constant Electric_Current := 1.0E-09; -- nano | |
94 uA : constant Electric_Current := 1.0E-06; -- micro (u) | |
95 GA : constant Electric_Current := 1.0E+09; -- giga | |
96 TA : constant Electric_Current := 1.0E+12; -- tera | |
97 PeA : constant Electric_Current := 1.0E+15; -- peta | |
98 EA : constant Electric_Current := 1.0E+18; -- exa | |
99 ZeA : constant Electric_Current := 1.0E+21; -- zetta | |
100 YoA : constant Electric_Current := 1.0E+24; -- yotta | |
101 | |
102 -- SI prefixes for Kelvin | |
103 | |
104 yK : constant Thermodynamic_Temperature := 1.0E-24; -- yocto | |
105 zK : constant Thermodynamic_Temperature := 1.0E-21; -- zepto | |
106 aK : constant Thermodynamic_Temperature := 1.0E-18; -- atto | |
107 fK : constant Thermodynamic_Temperature := 1.0E-15; -- femto | |
108 pK : constant Thermodynamic_Temperature := 1.0E-12; -- pico | |
109 nK : constant Thermodynamic_Temperature := 1.0E-09; -- nano | |
110 uK : constant Thermodynamic_Temperature := 1.0E-06; -- micro (u) | |
111 mK : constant Thermodynamic_Temperature := 1.0E-03; -- milli | |
112 cK : constant Thermodynamic_Temperature := 1.0E-02; -- centi | |
113 dK : constant Thermodynamic_Temperature := 1.0E-01; -- deci | |
114 daK : constant Thermodynamic_Temperature := 1.0E+01; -- deka | |
115 hK : constant Thermodynamic_Temperature := 1.0E+02; -- hecto | |
116 kK : constant Thermodynamic_Temperature := 1.0E+03; -- kilo | |
117 MeK : constant Thermodynamic_Temperature := 1.0E+06; -- mega | |
118 GK : constant Thermodynamic_Temperature := 1.0E+09; -- giga | |
119 TK : constant Thermodynamic_Temperature := 1.0E+12; -- tera | |
120 PeK : constant Thermodynamic_Temperature := 1.0E+15; -- peta | |
121 EK : constant Thermodynamic_Temperature := 1.0E+18; -- exa | |
122 ZeK : constant Thermodynamic_Temperature := 1.0E+21; -- zetta | |
123 YoK : constant Thermodynamic_Temperature := 1.0E+24; -- yotta | |
124 | |
125 -- SI prefixes for Mole | |
126 | |
127 ymol : constant Amount_Of_Substance := 1.0E-24; -- yocto | |
128 zmol : constant Amount_Of_Substance := 1.0E-21; -- zepto | |
129 amol : constant Amount_Of_Substance := 1.0E-18; -- atto | |
130 fmol : constant Amount_Of_Substance := 1.0E-15; -- femto | |
131 pmol : constant Amount_Of_Substance := 1.0E-12; -- pico | |
132 nmol : constant Amount_Of_Substance := 1.0E-09; -- nano | |
133 umol : constant Amount_Of_Substance := 1.0E-06; -- micro (u) | |
134 mmol : constant Amount_Of_Substance := 1.0E-03; -- milli | |
135 cmol : constant Amount_Of_Substance := 1.0E-02; -- centi | |
136 dmol : constant Amount_Of_Substance := 1.0E-01; -- deci | |
137 damol : constant Amount_Of_Substance := 1.0E+01; -- deka | |
138 hmol : constant Amount_Of_Substance := 1.0E+02; -- hecto | |
139 kmol : constant Amount_Of_Substance := 1.0E+03; -- kilo | |
140 Memol : constant Amount_Of_Substance := 1.0E+06; -- mega | |
141 Gmol : constant Amount_Of_Substance := 1.0E+09; -- giga | |
142 Tmol : constant Amount_Of_Substance := 1.0E+12; -- tera | |
143 Pemol : constant Amount_Of_Substance := 1.0E+15; -- peta | |
144 Emol : constant Amount_Of_Substance := 1.0E+18; -- exa | |
145 Zemol : constant Amount_Of_Substance := 1.0E+21; -- zetta | |
146 Yomol : constant Amount_Of_Substance := 1.0E+24; -- yotta | |
147 | |
148 -- SI prefixes for Candela | |
149 | |
150 ycd : constant Luminous_Intensity := 1.0E-24; -- yocto | |
151 zcd : constant Luminous_Intensity := 1.0E-21; -- zepto | |
152 acd : constant Luminous_Intensity := 1.0E-18; -- atto | |
153 fcd : constant Luminous_Intensity := 1.0E-15; -- femto | |
154 pcd : constant Luminous_Intensity := 1.0E-12; -- pico | |
155 ncd : constant Luminous_Intensity := 1.0E-09; -- nano | |
156 ucd : constant Luminous_Intensity := 1.0E-06; -- micro (u) | |
157 mcd : constant Luminous_Intensity := 1.0E-03; -- milli | |
158 ccd : constant Luminous_Intensity := 1.0E-02; -- centi | |
159 dcd : constant Luminous_Intensity := 1.0E-01; -- deci | |
160 dacd : constant Luminous_Intensity := 1.0E+01; -- deka | |
161 hcd : constant Luminous_Intensity := 1.0E+02; -- hecto | |
162 kcd : constant Luminous_Intensity := 1.0E+03; -- kilo | |
163 Mecd : constant Luminous_Intensity := 1.0E+06; -- mega | |
164 Gcd : constant Luminous_Intensity := 1.0E+09; -- giga | |
165 Tcd : constant Luminous_Intensity := 1.0E+12; -- tera | |
166 Pecd : constant Luminous_Intensity := 1.0E+15; -- peta | |
167 Ecd : constant Luminous_Intensity := 1.0E+18; -- exa | |
168 Zecd : constant Luminous_Intensity := 1.0E+21; -- zetta | |
169 Yocd : constant Luminous_Intensity := 1.0E+24; -- yotta | |
170 | |
171 pragma Warnings (On); | |
172 end System.Dim.Mks.Other_Prefixes; |