Commit 868e30a5 by Robert Dewar Committed by Arnaud Charlet

a-strbou.ads, [...] (From_String): New procedure (for use by Stream_Convert)

2008-04-08  Robert Dewar  <dewar@adacore.com>

	* a-strbou.ads, a-strbou.adb (From_String): New procedure (for use by
	Stream_Convert)

	* sem_ch13.ads (Rep_Item_Too_Late): Document that Stream_Convert sets
	FOnly

From-SVN: r134019
parent 151463df
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
-- -- -- --
-- B o d y -- -- B o d y --
-- -- -- --
-- Copyright (C) 1992-2005, Free Software Foundation, Inc. -- -- Copyright (C) 1992-2008, Free Software Foundation, Inc. --
-- -- -- --
-- GNAT is free software; you can redistribute it and/or modify it under -- -- 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- -- -- terms of the GNU General Public License as published by the Free Soft- --
...@@ -60,6 +60,15 @@ package body Ada.Strings.Bounded is ...@@ -60,6 +60,15 @@ package body Ada.Strings.Bounded is
return Times (Left, Right, Max_Length); return Times (Left, Right, Max_Length);
end "*"; end "*";
-----------------
-- From_String --
-----------------
function From_String (Source : String) return Bounded_String is
begin
return To_Super_String (Source, Max_Length, Error);
end From_String;
--------------- ---------------
-- Replicate -- -- Replicate --
--------------- ---------------
......
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
-- -- -- --
-- S p e c -- -- S p e c --
-- -- -- --
-- Copyright (C) 1992-2006, Free Software Foundation, Inc. -- -- Copyright (C) 1992-2008, Free Software Foundation, Inc. --
-- -- -- --
-- This specification is derived from the Ada Reference Manual for use with -- -- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow -- -- GNAT. The copyright notice above, and the license provisions that follow --
...@@ -469,6 +469,12 @@ package Ada.Strings.Bounded is ...@@ -469,6 +469,12 @@ package Ada.Strings.Bounded is
-- the generic instantiation is compatible with the Super_String -- the generic instantiation is compatible with the Super_String
-- type declared in the Superbounded package. -- type declared in the Superbounded package.
function From_String (Source : String) return Bounded_String;
-- Private routine used only by Stream_Convert
pragma Stream_Convert (Bounded_String, From_String, To_String);
-- Provide stream routines without dragging in Ada.Streams
Null_Bounded_String : constant Bounded_String := Null_Bounded_String : constant Bounded_String :=
(Max_Length => Max_Length, (Max_Length => Max_Length,
Current_Length => 0, Current_Length => 0,
......
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
-- -- -- --
-- S p e c -- -- S p e c --
-- -- -- --
-- Copyright (C) 1992-2007, Free Software Foundation, Inc. -- -- Copyright (C) 1992-2008, Free Software Foundation, Inc. --
-- -- -- --
-- GNAT is free software; you can redistribute it and/or modify it under -- -- 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- -- -- terms of the GNU General Public License as published by the Free Soft- --
...@@ -121,7 +121,8 @@ package Sem_Ch13 is ...@@ -121,7 +121,8 @@ package Sem_Ch13 is
-- stream attributes, which, although certainly not subtype related -- stream attributes, which, although certainly not subtype related
-- attributes, clearly should not be subject to the para 10 restrictions -- attributes, clearly should not be subject to the para 10 restrictions
-- (see AI95-00137). Similarly, we also skip the para 10 restrictions for -- (see AI95-00137). Similarly, we also skip the para 10 restrictions for
-- the Storage_Size case where they also clearly do not apply. -- the Storage_Size case where they also clearly do not apply, and for
-- Stream_Convert which is in the same category as the strem attributes.
-- --
-- If the rep item is too late, an appropriate message is output and -- If the rep item is too late, an appropriate message is output and
-- True is returned, which is a signal that the caller should abandon -- True is returned, which is a signal that the caller should abandon
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment