[thirdparty/gcc.git] / gcc / ada / a-stwibo.adb

------------------------------------------------------------------------------
--                                                                          --
--                         GNAT RUNTIME COMPONENTS                          --
--                                                                          --
--             A D A . S T R I N G S . W I D E _ B O U N D E D              --
--                                                                          --
--                                 B o d y                                  --
--                                                                          --
--          Copyright (C) 1992-2003 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- --
-- 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,  59 Temple Place - Suite 330,  Boston, --
-- MA 02111-1307, 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.      --
--                                                                          --
------------------------------------------------------------------------------

package body Ada.Strings.Wide_Bounded is

   package body Generic_Bounded_Length is

      ---------
      -- "*" --
      ---------

      function "*"
        (Left  : in Natural;
         Right : in Wide_Character)
         return  Bounded_Wide_String
      is
      begin
         return Times (Left, Right, Max_Length);
      end "*";

      function "*"
        (Left  : in Natural;
         Right : in Wide_String)
         return  Bounded_Wide_String
      is
      begin
         return Times (Left, Right, Max_Length);
      end "*";

      ---------------
      -- Replicate --
      ---------------

      function Replicate
        (Count : in Natural;
         Item  : in Wide_Character;
         Drop  : in Strings.Truncation := Strings.Error)
         return  Bounded_Wide_String
      is
      begin
         return Super_Replicate (Count, Item, Drop, Max_Length);
      end Replicate;

      function Replicate
        (Count : in Natural;
         Item  : in Wide_String;
         Drop  : in Strings.Truncation := Strings.Error)
         return  Bounded_Wide_String
      is
      begin
         return Super_Replicate (Count, Item, Drop, Max_Length);
      end Replicate;


      -----------------------
      -- To_Bounded_String --
      -----------------------

      function To_Bounded_Wide_String
        (Source : in Wide_String;
         Drop   : in Strings.Truncation := Strings.Error)
         return   Bounded_Wide_String
      is
      begin
         return To_Super_String (Source, Max_Length, Drop);
      end To_Bounded_Wide_String;

   end Generic_Bounded_Length;

end Ada.Strings.Wide_Bounded;
Commit	Line	Data
1fac938e	1	------------------------------------------------------------------------------
	2	-- --
	3	-- GNAT RUNTIME COMPONENTS --
	4	-- --
	5	-- A D A . S T R I N G S . W I D E _ B O U N D E D --
	6	-- --
	7	-- B o d y --
	8	-- --
9dfe12ae	9	-- Copyright (C) 1992-2003 Free Software Foundation, Inc. --
1fac938e	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 2, 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. See the GNU General Public License --
	17	-- for more details. You should have received a copy of the GNU General --
	18	-- Public License distributed with GNAT; see file COPYING. If not, write --
	19	-- to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, --
	20	-- MA 02111-1307, USA. --
	21	-- --
	22	-- As a special exception, if other files instantiate generics from this --
	23	-- unit, or you link this unit with other files to produce an executable, --
	24	-- this unit does not by itself cause the resulting executable to be --
	25	-- covered by the GNU General Public License. This exception does not --
	26	-- however invalidate any other reasons why the executable file might be --
	27	-- covered by the GNU Public License. --
	28	-- --
	29	-- GNAT was originally developed by the GNAT team at New York University. --
e78e8c8e	30	-- Extensive contributions were provided by Ada Core Technologies Inc. --
1fac938e	31	-- --
	32	------------------------------------------------------------------------------
	33
1fac938e	34	package body Ada.Strings.Wide_Bounded is
	35
	36	package body Generic_Bounded_Length is
	37
1fac938e	38	---------
	39	-- "*" --
	40	---------
	41
	42	function "*"
	43	(Left : in Natural;
	44	Right : in Wide_Character)
	45	return Bounded_Wide_String
	46	is
1fac938e	47	begin
9dfe12ae	48	return Times (Left, Right, Max_Length);
1fac938e	49	end "*";
	50
	51	function "*"
	52	(Left : in Natural;
	53	Right : in Wide_String)
	54	return Bounded_Wide_String
	55	is
1fac938e	56	begin
9dfe12ae	57	return Times (Left, Right, Max_Length);
1fac938e	58	end "*";
1fac938e	59
1fac938e	60	---------------
	61	-- Replicate --
	62	---------------
	63
	64	function Replicate
	65	(Count : in Natural;
	66	Item : in Wide_Character;
	67	Drop : in Strings.Truncation := Strings.Error)
	68	return Bounded_Wide_String
	69	is
1fac938e	70	begin
9dfe12ae	71	return Super_Replicate (Count, Item, Drop, Max_Length);
1fac938e	72	end Replicate;
	73
	74	function Replicate
	75	(Count : in Natural;
	76	Item : in Wide_String;
	77	Drop : in Strings.Truncation := Strings.Error)
	78	return Bounded_Wide_String
	79	is
1fac938e	80	begin
9dfe12ae	81	return Super_Replicate (Count, Item, Drop, Max_Length);
1fac938e	82	end Replicate;
1fac938e	83
1fac938e	84
9dfe12ae	85	-----------------------
	86	-- To_Bounded_String --
	87	-----------------------
1fac938e	88
	89	function To_Bounded_Wide_String
	90	(Source : in Wide_String;
	91	Drop : in Strings.Truncation := Strings.Error)
	92	return Bounded_Wide_String
	93	is
1fac938e	94	begin
9dfe12ae	95	return To_Super_String (Source, Max_Length, Drop);
1fac938e	96	end To_Bounded_Wide_String;
1fac938e	97
1fac938e	98	end Generic_Bounded_Length;
	99
	100	end Ada.Strings.Wide_Bounded;