• R/O
  • SSH

Ada95FL: 提交

Ada 95 foundation library


Commit MetaInfo

修订版ba93446a344d5a38b14db09e48a847fd92a8649d (tree)
时间2019-10-14 07:04:38
作者Sergey Dukov <dukov54@live...>
CommiterSergey Dukov

Log Message

#32763 Удаление временного файла

更改概述

  • delete: Unbounded/.#Ada_Magic_Forward.Wide_Wide_Characters.ads#

差异

diff -r 04bb88a17ef5 -r ba93446a344d Unbounded/.#Ada_Magic_Forward.Wide_Wide_Characters.ads#
--- a/Unbounded/.#Ada_Magic_Forward.Wide_Wide_Characters.ads# Wed Oct 09 04:12:41 2019 +0400
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -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;
Show on old repository browser