| 修订版 | ba93446a344d5a38b14db09e48a847fd92a8649d (tree) |
|---|---|
| 时间 | 2019-10-14 07:04:38 |
| 作者 |  Sergey Dukov <dukov54@live...> |
| Commiter | Sergey Dukov |
#32763 Удаление временного файла
Unbounded/.#Ada_Magic_Forward.Wide_Wide_Characters.ads#| @@ -1,69 +0,0 @@ | ||
| 1 | ------------------------------------------------------------------------------- | |
| 2 | --- Copyright 2019 Levashev Ivan Aleksandrovich -- | |
| 3 | --- -- | |
| 4 | --- Licensed under the Apache License, Version 2.0 (the "License"); -- | |
| 5 | --- you may not use this file except in compliance with the License. -- | |
| 6 | --- You may obtain a copy of the License at -- | |
| 7 | --- -- | |
| 8 | --- http://www.apache.org/licenses/LICENSE-2.0 -- | |
| 9 | --- -- | |
| 10 | --- Unless required by applicable law or agreed to in writing, software -- | |
| 11 | --- distributed under the License is distributed on an "AS IS" BASIS, -- | |
| 12 | --- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. -- | |
| 13 | --- See the License for the specific language governing permissions and -- | |
| 14 | --- limitations under the License. -- | |
| 15 | ------------------------------------------------------------------------------- | |
| 16 | - | |
| 17 | --- Character_32 and Wide_Wide_String backported to AdaMagic | |
| 18 | --- | |
| 19 | --- GNAT version of this package is supposed to be empty. This is to make | |
| 20 | --- possible to "use" this package and expect that the right thing will be | |
| 21 | --- found in both GNAT and AdaMagic. | |
| 22 | --- | |
| 23 | --- "Use"-ability of this package is in conflict with qualified referencing. | |
| 24 | --- Ada_Magic_Forward.Standard_Forward complements this package to fill this | |
| 25 | --- gap. I.e. Ada_Magic_Forward.Standard_Forward.Character_32 or | |
| 26 | --- Ada_Magic_Forward.Standard_Forward."<" are defined in both GNAT and | |
| 27 | --- AdaMagic. | |
| 28 | - | |
| 29 | -with System; use System; | |
| 30 | -with System.Storage_Elements; | |
| 31 | -with Interfaces; | |
| 32 | - | |
| 33 | -package Ada_Magic_Forward.Character_32s is | |
| 34 | - pragma Preelaborate; | |
| 35 | - | |
| 36 | - -- The declaration of type Character_32 is based on the full | |
| 37 | - -- ISO/IEC 10646:2011 character set. The first 65536 positions have the | |
| 38 | - -- same contents as type Wide_Character. See 3.5.2. | |
| 39 | - | |
| 40 | - type Character_32 is | |
| 41 | - new Interfaces.Unsigned_32 range 0 .. 16#10FFFF#; | |
| 42 | - for Character_32'Size use 32; | |
| 43 | - -- Enumerable nature of Character_32 had to be shown somehow. | |
| 44 | - -- Public inheritance from Interfaces.Integer_32 achieves this. | |
| 45 | - -- | |
| 46 | - -- Integer origins are cleaned, functions "+", "-" and so on are | |
| 47 | - -- removed. However, it is still possible to create Character_32 | |
| 48 | - -- from universal integral literal. It virtually cannot be fixed. | |
| 49 | - -- | |
| 50 | - -- Reminder: use Character_32'Val (...) for portable creation of | |
| 51 | - -- character values. | |
| 52 | - | |
| 53 | - type String_32 is array (Positive range <>) of Character_32; | |
| 54 | - pragma Pack (String_32); | |
| 55 | - | |
| 56 | - Null_String_32 : String_32(2 .. 1); | |
| 57 | - | |
| 58 | - type Byte_Type is new System.Storage_Elements.Storage_Element; | |
| 59 | - type Byte_Access is access all Byte_Type; | |
| 60 | - | |
| 61 | - type Array_Of_Byte_Type is array | |
| 62 | - (Positive range <>) of aliased Byte_Type; | |
| 63 | - for Array_Of_Byte_Type'Alignment use 4; | |
| 64 | - type Array_Of_Byte_Access is access all Array_Of_Byte_Type; | |
| 65 | - Null_Array : Array_Of_Byte_Type(2 .. 1); | |
| 66 | - | |
| 67 | - | |
| 68 | - | |
| 69 | -end Ada_Magic_Forward.Character_32s; |
Fork