mirror of
git://gcc.gnu.org/git/gcc.git
synced 2025-04-02 11:00:37 +08:00
Fix header.
From-SVN: r161278
This commit is contained in:
Arnaud Charlet
parent
6e1ee5c3d2
commit
e487f350e4
@ -1,3 +1,30 @@
|
||||
2010-06-23 Thomas Quinot <quinot@adacore.com>
|
||||
|
||||
* exp_attr.adb (Expand_Access_To_Protected_Op): When rewriting a
|
||||
reference to a protected subprogram outside of the protected's scope,
|
||||
ensure the corresponding external subprogram is frozen before the
|
||||
reference.
|
||||
|
||||
2010-06-23 Ed Schonberg <schonberg@adacore.com>
|
||||
|
||||
* sem_prag.adb: Fix typo in error message.
|
||||
* sem.adb: Refine previous change.
|
||||
|
||||
2010-06-23 Robert Dewar <dewar@adacore.com>
|
||||
|
||||
* impunit.adb, a-suewen.adb, a-suewen.ads, a-suenco.adb, a-suenco.ads,
|
||||
a-suezen.adb, a-suezen.ads, a-stuten.adb, a-stuten.ads, Makefile.rtl:
|
||||
Implement Ada 2012 string encoding packages.
|
||||
|
||||
2010-06-23 Arnaud Charlet <charlet@adacore.com>
|
||||
|
||||
* a-stwiun-shared.adb, a-stwiun-shared.ads, a-stzunb-shared.adb,
|
||||
a-stzunb-shared.ads, a-swunau-shared.adb, a-swuwti-shared.adb,
|
||||
a-szunau-shared.adb, a-szuzti-shared.adb, a-strunb-shared.adb,
|
||||
a-strunb-shared.ads, a-stunau-shared.adb, a-suteio-shared.adb: New
|
||||
files.
|
||||
* gcc-interface/Makefile.in: Enable use of above files.
|
||||
|
||||
2010-06-23 Ed Schonberg <schonberg@adacore.com>
|
||||
|
||||
* sem_ch13.adb (Check_Constant_Address_Clauses): Do not check legality
|
||||
|
||||
2086
gcc/ada/a-strunb-shared.adb
Normal file
2086
gcc/ada/a-strunb-shared.adb
Normal file
File diff suppressed because it is too large
Load Diff
481
gcc/ada/a-strunb-shared.ads
Normal file
481
gcc/ada/a-strunb-shared.ads
Normal file
@ -0,0 +1,481 @@
|
||||
------------------------------------------------------------------------------
|
||||
-- --
|
||||
-- GNAT RUN-TIME COMPONENTS --
|
||||
-- --
|
||||
-- A D A . S T R I N G S . U N B O U N D E D --
|
||||
-- --
|
||||
-- S p e c --
|
||||
-- --
|
||||
-- Copyright (C) 1992-2010, Free Software Foundation, Inc. --
|
||||
-- --
|
||||
-- This specification is derived from the Ada Reference Manual for use with --
|
||||
-- GNAT. The copyright notice above, and the license provisions that follow --
|
||||
-- apply solely to the contents of the part following the private keyword. --
|
||||
-- --
|
||||
-- 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 2, 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. See the GNU General Public License --
|
||||
-- for more details. You should have received a copy of the GNU General --
|
||||
-- Public License distributed with GNAT; see file COPYING. If not, write --
|
||||
-- to the Free Software Foundation, 51 Franklin Street, Fifth Floor, --
|
||||
-- Boston, MA 02110-1301, USA. --
|
||||
-- --
|
||||
-- As a special exception, if other files instantiate generics from this --
|
||||
-- unit, or you link this unit with other files to produce an executable, --
|
||||
-- this unit does not by itself cause the resulting executable to be --
|
||||
-- covered by the GNU General Public License. This exception does not --
|
||||
-- however invalidate any other reasons why the executable file might be --
|
||||
-- covered by the GNU Public License. --
|
||||
-- --
|
||||
-- GNAT was originally developed by the GNAT team at New York University. --
|
||||
-- Extensive contributions were provided by Ada Core Technologies Inc. --
|
||||
-- --
|
||||
------------------------------------------------------------------------------
|
||||
|
||||
-- This package provides an implementation of Ada.Strings.Unbounded that uses
|
||||
-- reference counts to implement copy on modification (rather than copy on
|
||||
-- assignment). This is significantly more efficient on many targets.
|
||||
|
||||
-- This version is supported on:
|
||||
-- - all Alpha platforms
|
||||
-- - all ia64 platforms
|
||||
-- - all PowerPC platforms
|
||||
-- - all SPARC V9 platforms
|
||||
-- - all x86_64 platforms
|
||||
|
||||
-- This package uses several techniques to increase speed:
|
||||
|
||||
-- - Implicit sharing or copy-on-write. An Unbounded_String contains only
|
||||
-- the reference to the data which is shared between several instances.
|
||||
-- The shared data is reallocated only when its value is changed and
|
||||
-- the object mutation can't be used or it is unefficient to use it.
|
||||
|
||||
-- - Object mutation. Shared data object can be reused without memory
|
||||
-- reallocation when all of the following requirements are met:
|
||||
-- - shared data object is no longer used by anyone else.
|
||||
-- - the size is sufficient to store new value.
|
||||
-- - the gap after reuse is less then a defined threashold.
|
||||
|
||||
-- - Memory preallocation. Most of used memory allocation algorithms
|
||||
-- allign allocated segments on the some boundary, thus some amount of
|
||||
-- additional memory can be preallocated without any impact. Such
|
||||
-- preallocated memory can used later by Append/Insert operations
|
||||
-- without reallocation.
|
||||
|
||||
-- Reference counting uses GCC builtin atomic operations, which allows to
|
||||
-- safely share internal data between Ada tasks. Nevertheless, this not
|
||||
-- make objects of Unbounded_String thread-safe, so each instance can't be
|
||||
-- accessed by several tasks simulatenously.
|
||||
|
||||
with Ada.Strings.Maps;
|
||||
private with Ada.Finalization;
|
||||
private with Interfaces;
|
||||
|
||||
package Ada.Strings.Unbounded is
|
||||
pragma Preelaborate;
|
||||
|
||||
type Unbounded_String is private;
|
||||
pragma Preelaborable_Initialization (Unbounded_String);
|
||||
|
||||
Null_Unbounded_String : constant Unbounded_String;
|
||||
|
||||
function Length (Source : Unbounded_String) return Natural;
|
||||
|
||||
type String_Access is access all String;
|
||||
|
||||
procedure Free (X : in out String_Access);
|
||||
|
||||
--------------------------------------------------------
|
||||
-- Conversion, Concatenation, and Selection Functions --
|
||||
--------------------------------------------------------
|
||||
|
||||
function To_Unbounded_String
|
||||
(Source : String) return Unbounded_String;
|
||||
|
||||
function To_Unbounded_String
|
||||
(Length : Natural) return Unbounded_String;
|
||||
|
||||
function To_String (Source : Unbounded_String) return String;
|
||||
|
||||
procedure Set_Unbounded_String
|
||||
(Target : out Unbounded_String;
|
||||
Source : String);
|
||||
pragma Ada_05 (Set_Unbounded_String);
|
||||
|
||||
procedure Append
|
||||
(Source : in out Unbounded_String;
|
||||
New_Item : Unbounded_String);
|
||||
|
||||
procedure Append
|
||||
(Source : in out Unbounded_String;
|
||||
New_Item : String);
|
||||
|
||||
procedure Append
|
||||
(Source : in out Unbounded_String;
|
||||
New_Item : Character);
|
||||
|
||||
function "&"
|
||||
(Left : Unbounded_String;
|
||||
Right : Unbounded_String) return Unbounded_String;
|
||||
|
||||
function "&"
|
||||
(Left : Unbounded_String;
|
||||
Right : String) return Unbounded_String;
|
||||
|
||||
function "&"
|
||||
(Left : String;
|
||||
Right : Unbounded_String) return Unbounded_String;
|
||||
|
||||
function "&"
|
||||
(Left : Unbounded_String;
|
||||
Right : Character) return Unbounded_String;
|
||||
|
||||
function "&"
|
||||
(Left : Character;
|
||||
Right : Unbounded_String) return Unbounded_String;
|
||||
|
||||
function Element
|
||||
(Source : Unbounded_String;
|
||||
Index : Positive) return Character;
|
||||
|
||||
procedure Replace_Element
|
||||
(Source : in out Unbounded_String;
|
||||
Index : Positive;
|
||||
By : Character);
|
||||
|
||||
function Slice
|
||||
(Source : Unbounded_String;
|
||||
Low : Positive;
|
||||
High : Natural) return String;
|
||||
|
||||
function Unbounded_Slice
|
||||
(Source : Unbounded_String;
|
||||
Low : Positive;
|
||||
High : Natural) return Unbounded_String;
|
||||
pragma Ada_05 (Unbounded_Slice);
|
||||
|
||||
procedure Unbounded_Slice
|
||||
(Source : Unbounded_String;
|
||||
Target : out Unbounded_String;
|
||||
Low : Positive;
|
||||
High : Natural);
|
||||
pragma Ada_05 (Unbounded_Slice);
|
||||
|
||||
function "="
|
||||
(Left : Unbounded_String;
|
||||
Right : Unbounded_String) return Boolean;
|
||||
|
||||
function "="
|
||||
(Left : Unbounded_String;
|
||||
Right : String) return Boolean;
|
||||
|
||||
function "="
|
||||
(Left : String;
|
||||
Right : Unbounded_String) return Boolean;
|
||||
|
||||
function "<"
|
||||
(Left : Unbounded_String;
|
||||
Right : Unbounded_String) return Boolean;
|
||||
|
||||
function "<"
|
||||
(Left : Unbounded_String;
|
||||
Right : String) return Boolean;
|
||||
|
||||
function "<"
|
||||
(Left : String;
|
||||
Right : Unbounded_String) return Boolean;
|
||||
|
||||
function "<="
|
||||
(Left : Unbounded_String;
|
||||
Right : Unbounded_String) return Boolean;
|
||||
|
||||
function "<="
|
||||
(Left : Unbounded_String;
|
||||
Right : String) return Boolean;
|
||||
|
||||
function "<="
|
||||
(Left : String;
|
||||
Right : Unbounded_String) return Boolean;
|
||||
|
||||
function ">"
|
||||
(Left : Unbounded_String;
|
||||
Right : Unbounded_String) return Boolean;
|
||||
|
||||
function ">"
|
||||
(Left : Unbounded_String;
|
||||
Right : String) return Boolean;
|
||||
|
||||
function ">"
|
||||
(Left : String;
|
||||
Right : Unbounded_String) return Boolean;
|
||||
|
||||
function ">="
|
||||
(Left : Unbounded_String;
|
||||
Right : Unbounded_String) return Boolean;
|
||||
|
||||
function ">="
|
||||
(Left : Unbounded_String;
|
||||
Right : String) return Boolean;
|
||||
|
||||
function ">="
|
||||
(Left : String;
|
||||
Right : Unbounded_String) return Boolean;
|
||||
|
||||
------------------------
|
||||
-- Search Subprograms --
|
||||
------------------------
|
||||
|
||||
function Index
|
||||
(Source : Unbounded_String;
|
||||
Pattern : String;
|
||||
Going : Direction := Forward;
|
||||
Mapping : Maps.Character_Mapping := Maps.Identity) return Natural;
|
||||
|
||||
function Index
|
||||
(Source : Unbounded_String;
|
||||
Pattern : String;
|
||||
Going : Direction := Forward;
|
||||
Mapping : Maps.Character_Mapping_Function) return Natural;
|
||||
|
||||
function Index
|
||||
(Source : Unbounded_String;
|
||||
Set : Maps.Character_Set;
|
||||
Test : Membership := Inside;
|
||||
Going : Direction := Forward) return Natural;
|
||||
|
||||
function Index
|
||||
(Source : Unbounded_String;
|
||||
Pattern : String;
|
||||
From : Positive;
|
||||
Going : Direction := Forward;
|
||||
Mapping : Maps.Character_Mapping := Maps.Identity) return Natural;
|
||||
pragma Ada_05 (Index);
|
||||
|
||||
function Index
|
||||
(Source : Unbounded_String;
|
||||
Pattern : String;
|
||||
From : Positive;
|
||||
Going : Direction := Forward;
|
||||
Mapping : Maps.Character_Mapping_Function) return Natural;
|
||||
pragma Ada_05 (Index);
|
||||
|
||||
function Index
|
||||
(Source : Unbounded_String;
|
||||
Set : Maps.Character_Set;
|
||||
From : Positive;
|
||||
Test : Membership := Inside;
|
||||
Going : Direction := Forward) return Natural;
|
||||
pragma Ada_05 (Index);
|
||||
|
||||
function Index_Non_Blank
|
||||
(Source : Unbounded_String;
|
||||
Going : Direction := Forward) return Natural;
|
||||
|
||||
function Index_Non_Blank
|
||||
(Source : Unbounded_String;
|
||||
From : Positive;
|
||||
Going : Direction := Forward) return Natural;
|
||||
pragma Ada_05 (Index_Non_Blank);
|
||||
|
||||
function Count
|
||||
(Source : Unbounded_String;
|
||||
Pattern : String;
|
||||
Mapping : Maps.Character_Mapping := Maps.Identity) return Natural;
|
||||
|
||||
function Count
|
||||
(Source : Unbounded_String;
|
||||
Pattern : String;
|
||||
Mapping : Maps.Character_Mapping_Function) return Natural;
|
||||
|
||||
function Count
|
||||
(Source : Unbounded_String;
|
||||
Set : Maps.Character_Set) return Natural;
|
||||
|
||||
procedure Find_Token
|
||||
(Source : Unbounded_String;
|
||||
Set : Maps.Character_Set;
|
||||
Test : Membership;
|
||||
First : out Positive;
|
||||
Last : out Natural);
|
||||
|
||||
------------------------------------
|
||||
-- String Translation Subprograms --
|
||||
------------------------------------
|
||||
|
||||
function Translate
|
||||
(Source : Unbounded_String;
|
||||
Mapping : Maps.Character_Mapping) return Unbounded_String;
|
||||
|
||||
procedure Translate
|
||||
(Source : in out Unbounded_String;
|
||||
Mapping : Maps.Character_Mapping);
|
||||
|
||||
function Translate
|
||||
(Source : Unbounded_String;
|
||||
Mapping : Maps.Character_Mapping_Function) return Unbounded_String;
|
||||
|
||||
procedure Translate
|
||||
(Source : in out Unbounded_String;
|
||||
Mapping : Maps.Character_Mapping_Function);
|
||||
|
||||
---------------------------------------
|
||||
-- String Transformation Subprograms --
|
||||
---------------------------------------
|
||||
|
||||
function Replace_Slice
|
||||
(Source : Unbounded_String;
|
||||
Low : Positive;
|
||||
High : Natural;
|
||||
By : String) return Unbounded_String;
|
||||
|
||||
procedure Replace_Slice
|
||||
(Source : in out Unbounded_String;
|
||||
Low : Positive;
|
||||
High : Natural;
|
||||
By : String);
|
||||
|
||||
function Insert
|
||||
(Source : Unbounded_String;
|
||||
Before : Positive;
|
||||
New_Item : String) return Unbounded_String;
|
||||
|
||||
procedure Insert
|
||||
(Source : in out Unbounded_String;
|
||||
Before : Positive;
|
||||
New_Item : String);
|
||||
|
||||
function Overwrite
|
||||
(Source : Unbounded_String;
|
||||
Position : Positive;
|
||||
New_Item : String) return Unbounded_String;
|
||||
|
||||
procedure Overwrite
|
||||
(Source : in out Unbounded_String;
|
||||
Position : Positive;
|
||||
New_Item : String);
|
||||
|
||||
function Delete
|
||||
(Source : Unbounded_String;
|
||||
From : Positive;
|
||||
Through : Natural) return Unbounded_String;
|
||||
|
||||
procedure Delete
|
||||
(Source : in out Unbounded_String;
|
||||
From : Positive;
|
||||
Through : Natural);
|
||||
|
||||
function Trim
|
||||
(Source : Unbounded_String;
|
||||
Side : Trim_End) return Unbounded_String;
|
||||
|
||||
procedure Trim
|
||||
(Source : in out Unbounded_String;
|
||||
Side : Trim_End);
|
||||
|
||||
function Trim
|
||||
(Source : Unbounded_String;
|
||||
Left : Maps.Character_Set;
|
||||
Right : Maps.Character_Set) return Unbounded_String;
|
||||
|
||||
procedure Trim
|
||||
(Source : in out Unbounded_String;
|
||||
Left : Maps.Character_Set;
|
||||
Right : Maps.Character_Set);
|
||||
|
||||
function Head
|
||||
(Source : Unbounded_String;
|
||||
Count : Natural;
|
||||
Pad : Character := Space) return Unbounded_String;
|
||||
|
||||
procedure Head
|
||||
(Source : in out Unbounded_String;
|
||||
Count : Natural;
|
||||
Pad : Character := Space);
|
||||
|
||||
function Tail
|
||||
(Source : Unbounded_String;
|
||||
Count : Natural;
|
||||
Pad : Character := Space) return Unbounded_String;
|
||||
|
||||
procedure Tail
|
||||
(Source : in out Unbounded_String;
|
||||
Count : Natural;
|
||||
Pad : Character := Space);
|
||||
|
||||
function "*"
|
||||
(Left : Natural;
|
||||
Right : Character) return Unbounded_String;
|
||||
|
||||
function "*"
|
||||
(Left : Natural;
|
||||
Right : String) return Unbounded_String;
|
||||
|
||||
function "*"
|
||||
(Left : Natural;
|
||||
Right : Unbounded_String) return Unbounded_String;
|
||||
|
||||
private
|
||||
pragma Inline (Length);
|
||||
|
||||
package AF renames Ada.Finalization;
|
||||
|
||||
type Shared_String (Max_Length : Natural) is limited record
|
||||
Counter : aliased Interfaces.Unsigned_32 := 1;
|
||||
-- Reference counter
|
||||
|
||||
Last : Natural := 0;
|
||||
Data : String (1 .. Max_Length);
|
||||
-- Last is the index of last significant element of the Data. All
|
||||
-- elements with larger indexes are currently insignificant.
|
||||
end record;
|
||||
|
||||
type Shared_String_Access is access all Shared_String;
|
||||
|
||||
procedure Reference (Item : not null Shared_String_Access);
|
||||
-- Increment reference counter
|
||||
|
||||
procedure Unreference (Item : not null Shared_String_Access);
|
||||
-- Decrement reference counter, deallocate Item when counter goes to zero
|
||||
|
||||
function Can_Be_Reused
|
||||
(Item : Shared_String_Access;
|
||||
Length : Natural) return Boolean;
|
||||
-- Returns True if Shared_String can be reused. There are two criteria when
|
||||
-- Shared_String can be reused: its reference counter must be one (thus
|
||||
-- Shared_String is owned exclusively) and its size is sufficient to
|
||||
-- store string with specified length effectively.
|
||||
|
||||
function Allocate (Max_Length : Natural) return Shared_String_Access;
|
||||
-- Allocates new Shared_String with at least specified maximum length.
|
||||
-- Actual maximum length of the allocated Shared_String can be sligtly
|
||||
-- greater. Returns reference to Empty_Shared_String when requested length
|
||||
-- is zero.
|
||||
|
||||
Empty_Shared_String : aliased Shared_String (0);
|
||||
|
||||
function To_Unbounded (S : String) return Unbounded_String
|
||||
renames To_Unbounded_String;
|
||||
-- This renames are here only to be used in the pragma Stream_Convert
|
||||
|
||||
type Unbounded_String is new AF.Controlled with record
|
||||
Reference : Shared_String_Access := Empty_Shared_String'Access;
|
||||
end record;
|
||||
|
||||
pragma Stream_Convert (Unbounded_String, To_Unbounded, To_String);
|
||||
-- Provide stream routines without dragging in Ada.Streams
|
||||
|
||||
pragma Finalize_Storage_Only (Unbounded_String);
|
||||
-- Finalization is required only for freeing storage
|
||||
|
||||
overriding procedure Initialize (Object : in out Unbounded_String);
|
||||
overriding procedure Adjust (Object : in out Unbounded_String);
|
||||
overriding procedure Finalize (Object : in out Unbounded_String);
|
||||
|
||||
Null_Unbounded_String : constant Unbounded_String :=
|
||||
(AF.Controlled with
|
||||
Reference => Empty_Shared_String'Access);
|
||||
|
||||
end Ada.Strings.Unbounded;
|
||||
62
gcc/ada/a-stunau-shared.adb
Normal file
62
gcc/ada/a-stunau-shared.adb
Normal file
@ -0,0 +1,62 @@
|
||||
------------------------------------------------------------------------------
|
||||
-- --
|
||||
-- GNAT RUN-TIME COMPONENTS --
|
||||
-- --
|
||||
-- A D A . S T R I N G S . U N B O U N D E D . A U X --
|
||||
-- --
|
||||
-- B o d y --
|
||||
-- --
|
||||
-- Copyright (C) 1992-2010, 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. --
|
||||
-- --
|
||||
------------------------------------------------------------------------------
|
||||
|
||||
package body Ada.Strings.Unbounded.Aux is
|
||||
|
||||
----------------
|
||||
-- Get_String --
|
||||
----------------
|
||||
|
||||
procedure Get_String
|
||||
(U : Unbounded_String;
|
||||
S : out Big_String_Access;
|
||||
L : out Natural)
|
||||
is
|
||||
X : aliased Big_String;
|
||||
for X'Address use U.Reference.Data'Address;
|
||||
begin
|
||||
S := X'Unchecked_Access;
|
||||
L := U.Reference.Last;
|
||||
end Get_String;
|
||||
|
||||
----------------
|
||||
-- Set_String --
|
||||
----------------
|
||||
|
||||
procedure Set_String (UP : in out Unbounded_String; S : String_Access) is
|
||||
X : String_Access := S;
|
||||
|
||||
begin
|
||||
Set_Unbounded_String (UP, S.all);
|
||||
Free (X);
|
||||
end Set_String;
|
||||
|
||||
end Ada.Strings.Unbounded.Aux;
|
||||
@ -6,25 +6,23 @@
|
||||
-- --
|
||||
-- B o d y --
|
||||
-- --
|
||||
-- Copyright (C) 1992-2009, Free Software Foundation, Inc. --
|
||||
-- Copyright (C) 1992-2010, 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 2, or (at your option) any later ver- --
|
||||
-- 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. See the GNU General Public License --
|
||||
-- for more details. You should have received a copy of the GNU General --
|
||||
-- Public License distributed with GNAT; see file COPYING. If not, write --
|
||||
-- to the Free Software Foundation, 51 Franklin Street, Fifth Floor, --
|
||||
-- Boston, MA 02110-1301, USA. --
|
||||
-- or FITNESS FOR A PARTICULAR PURPOSE. --
|
||||
-- --
|
||||
-- As a special exception, if other files instantiate generics from this --
|
||||
-- unit, or you link this unit with other files to produce an executable, --
|
||||
-- this unit does not by itself cause the resulting executable to be --
|
||||
-- covered by the GNU General Public License. This exception does not --
|
||||
-- however invalidate any other reasons why the executable file might be --
|
||||
-- covered by the GNU Public License. --
|
||||
-- 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. --
|
||||
|
||||
@ -6,25 +6,23 @@
|
||||
-- --
|
||||
-- B o d y --
|
||||
-- --
|
||||
-- Copyright (C) 1992-2009, Free Software Foundation, Inc. --
|
||||
-- Copyright (C) 1992-2010, 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 2, or (at your option) any later ver- --
|
||||
-- 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. See the GNU General Public License --
|
||||
-- for more details. You should have received a copy of the GNU General --
|
||||
-- Public License distributed with GNAT; see file COPYING. If not, write --
|
||||
-- to the Free Software Foundation, 51 Franklin Street, Fifth Floor, --
|
||||
-- Boston, MA 02110-1301, USA. --
|
||||
-- or FITNESS FOR A PARTICULAR PURPOSE. --
|
||||
-- --
|
||||
-- As a special exception, if other files instantiate generics from this --
|
||||
-- unit, or you link this unit with other files to produce an executable, --
|
||||
-- this unit does not by itself cause the resulting executable to be --
|
||||
-- covered by the GNU General Public License. This exception does not --
|
||||
-- however invalidate any other reasons why the executable file might be --
|
||||
-- covered by the GNU Public License. --
|
||||
-- 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. --
|
||||
|
||||
132
gcc/ada/a-suteio-shared.adb
Normal file
132
gcc/ada/a-suteio-shared.adb
Normal file
@ -0,0 +1,132 @@
|
||||
------------------------------------------------------------------------------
|
||||
-- --
|
||||
-- GNAT RUN-TIME COMPONENTS --
|
||||
-- --
|
||||
-- A D A . S T R I N G S . U N B O U N D E D . T E X T _ I O --
|
||||
-- --
|
||||
-- B o d y --
|
||||
-- --
|
||||
-- Copyright (C) 1997-2010, 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. --
|
||||
-- --
|
||||
------------------------------------------------------------------------------
|
||||
|
||||
with Ada.Text_IO; use Ada.Text_IO;
|
||||
|
||||
package body Ada.Strings.Unbounded.Text_IO is
|
||||
|
||||
--------------
|
||||
-- Get_Line --
|
||||
--------------
|
||||
|
||||
function Get_Line return Unbounded_String is
|
||||
Buffer : String (1 .. 1000);
|
||||
Last : Natural;
|
||||
Result : Unbounded_String;
|
||||
|
||||
begin
|
||||
Get_Line (Buffer, Last);
|
||||
Set_Unbounded_String (Result, Buffer (1 .. Last));
|
||||
|
||||
while Last = Buffer'Last loop
|
||||
Get_Line (Buffer, Last);
|
||||
Append (Result, Buffer (1 .. Last));
|
||||
end loop;
|
||||
|
||||
return Result;
|
||||
end Get_Line;
|
||||
|
||||
function Get_Line (File : Ada.Text_IO.File_Type) return Unbounded_String is
|
||||
Buffer : String (1 .. 1000);
|
||||
Last : Natural;
|
||||
Result : Unbounded_String;
|
||||
|
||||
begin
|
||||
Get_Line (File, Buffer, Last);
|
||||
Set_Unbounded_String (Result, Buffer (1 .. Last));
|
||||
|
||||
while Last = Buffer'Last loop
|
||||
Get_Line (File, Buffer, Last);
|
||||
Append (Result, Buffer (1 .. Last));
|
||||
end loop;
|
||||
|
||||
return Result;
|
||||
end Get_Line;
|
||||
|
||||
procedure Get_Line (Item : out Unbounded_String) is
|
||||
begin
|
||||
Get_Line (Current_Input, Item);
|
||||
end Get_Line;
|
||||
|
||||
procedure Get_Line
|
||||
(File : Ada.Text_IO.File_Type;
|
||||
Item : out Unbounded_String)
|
||||
is
|
||||
Buffer : String (1 .. 1000);
|
||||
Last : Natural;
|
||||
|
||||
begin
|
||||
Get_Line (File, Buffer, Last);
|
||||
Set_Unbounded_String (Item, Buffer (1 .. Last));
|
||||
|
||||
while Last = Buffer'Last loop
|
||||
Get_Line (File, Buffer, Last);
|
||||
Append (Item, Buffer (1 .. Last));
|
||||
end loop;
|
||||
end Get_Line;
|
||||
|
||||
---------
|
||||
-- Put --
|
||||
---------
|
||||
|
||||
procedure Put (U : Unbounded_String) is
|
||||
UR : constant Shared_String_Access := U.Reference;
|
||||
|
||||
begin
|
||||
Put (UR.Data (1 .. UR.Last));
|
||||
end Put;
|
||||
|
||||
procedure Put (File : File_Type; U : Unbounded_String) is
|
||||
UR : constant Shared_String_Access := U.Reference;
|
||||
|
||||
begin
|
||||
Put (File, UR.Data (1 .. UR.Last));
|
||||
end Put;
|
||||
|
||||
--------------
|
||||
-- Put_Line --
|
||||
--------------
|
||||
|
||||
procedure Put_Line (U : Unbounded_String) is
|
||||
UR : constant Shared_String_Access := U.Reference;
|
||||
|
||||
begin
|
||||
Put_Line (UR.Data (1 .. UR.Last));
|
||||
end Put_Line;
|
||||
|
||||
procedure Put_Line (File : File_Type; U : Unbounded_String) is
|
||||
UR : constant Shared_String_Access := U.Reference;
|
||||
|
||||
begin
|
||||
Put_Line (File, UR.Data (1 .. UR.Last));
|
||||
end Put_Line;
|
||||
|
||||
end Ada.Strings.Unbounded.Text_IO;
|
||||
@ -6,25 +6,23 @@
|
||||
-- --
|
||||
-- B o d y --
|
||||
-- --
|
||||
-- Copyright (C) 1992-2009, Free Software Foundation, Inc. --
|
||||
-- Copyright (C) 1992-2010, 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 2, or (at your option) any later ver- --
|
||||
-- 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. See the GNU General Public License --
|
||||
-- for more details. You should have received a copy of the GNU General --
|
||||
-- Public License distributed with GNAT; see file COPYING. If not, write --
|
||||
-- to the Free Software Foundation, 51 Franklin Street, Fifth Floor, --
|
||||
-- Boston, MA 02110-1301, USA. --
|
||||
-- or FITNESS FOR A PARTICULAR PURPOSE. --
|
||||
-- --
|
||||
-- As a special exception, if other files instantiate generics from this --
|
||||
-- unit, or you link this unit with other files to produce an executable, --
|
||||
-- this unit does not by itself cause the resulting executable to be --
|
||||
-- covered by the GNU General Public License. This exception does not --
|
||||
-- however invalidate any other reasons why the executable file might be --
|
||||
-- covered by the GNU Public License. --
|
||||
-- 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. --
|
||||
|
||||
@ -6,25 +6,23 @@
|
||||
-- --
|
||||
-- B o d y --
|
||||
-- --
|
||||
-- Copyright (C) 1997-2009, Free Software Foundation, Inc. --
|
||||
-- Copyright (C) 1997-2010, 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 2, or (at your option) any later ver- --
|
||||
-- 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. See the GNU General Public License --
|
||||
-- for more details. You should have received a copy of the GNU General --
|
||||
-- Public License distributed with GNAT; see file COPYING. If not, write --
|
||||
-- to the Free Software Foundation, 51 Franklin Street, Fifth Floor, --
|
||||
-- Boston, MA 02110-1301, USA. --
|
||||
-- or FITNESS FOR A PARTICULAR PURPOSE. --
|
||||
-- --
|
||||
-- As a special exception, if other files instantiate generics from this --
|
||||
-- unit, or you link this unit with other files to produce an executable, --
|
||||
-- this unit does not by itself cause the resulting executable to be --
|
||||
-- covered by the GNU General Public License. This exception does not --
|
||||
-- however invalidate any other reasons why the executable file might be --
|
||||
-- covered by the GNU Public License. --
|
||||
-- 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. --
|
||||
|
||||
@ -6,25 +6,23 @@
|
||||
-- --
|
||||
-- B o d y --
|
||||
-- --
|
||||
-- Copyright (C) 1992-2009, Free Software Foundation, Inc. --
|
||||
-- Copyright (C) 1992-2010, 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 2, or (at your option) any later ver- --
|
||||
-- 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. See the GNU General Public License --
|
||||
-- for more details. You should have received a copy of the GNU General --
|
||||
-- Public License distributed with GNAT; see file COPYING. If not, write --
|
||||
-- to the Free Software Foundation, 51 Franklin Street, Fifth Floor, --
|
||||
-- Boston, MA 02110-1301, USA. --
|
||||
-- or FITNESS FOR A PARTICULAR PURPOSE. --
|
||||
-- --
|
||||
-- As a special exception, if other files instantiate generics from this --
|
||||
-- unit, or you link this unit with other files to produce an executable, --
|
||||
-- this unit does not by itself cause the resulting executable to be --
|
||||
-- covered by the GNU General Public License. This exception does not --
|
||||
-- however invalidate any other reasons why the executable file might be --
|
||||
-- covered by the GNU Public License. --
|
||||
-- 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. --
|
||||
|
||||
@ -6,25 +6,23 @@
|
||||
-- --
|
||||
-- B o d y --
|
||||
-- --
|
||||
-- Copyright (C) 1997-2009, Free Software Foundation, Inc. --
|
||||
-- Copyright (C) 1997-2010, 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 2, or (at your option) any later ver- --
|
||||
-- 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. See the GNU General Public License --
|
||||
-- for more details. You should have received a copy of the GNU General --
|
||||
-- Public License distributed with GNAT; see file COPYING. If not, write --
|
||||
-- to the Free Software Foundation, 51 Franklin Street, Fifth Floor, --
|
||||
-- Boston, MA 02110-1301, USA. --
|
||||
-- or FITNESS FOR A PARTICULAR PURPOSE. --
|
||||
-- --
|
||||
-- As a special exception, if other files instantiate generics from this --
|
||||
-- unit, or you link this unit with other files to produce an executable, --
|
||||
-- this unit does not by itself cause the resulting executable to be --
|
||||
-- covered by the GNU General Public License. This exception does not --
|
||||
-- however invalidate any other reasons why the executable file might be --
|
||||
-- covered by the GNU Public License. --
|
||||
-- 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. --
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user