1------------------------------------------------------------------------------
2--                                                                          --
3--                GNU ADA RUNTIME LIBRARY (GNARL) COMPONENTS                --
4--                                                                          --
5--                    S Y S T E M . S T R I N G _ O P S                     --
6--                                                                          --
7--                                 B o d y                                  --
8--                                                                          --
9--          Copyright (C) 1992-2002 Free Software Foundation, Inc.          --
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. --
30-- Extensive contributions were provided by Ada Core Technologies Inc.      --
31--                                                                          --
32------------------------------------------------------------------------------
33
34package body System.String_Ops is
35
36   ----------------
37   -- Str_Concat --
38   ----------------
39
40   function Str_Concat (X, Y : String) return String is
41   begin
42      if X'Length <= 0 then
43         return Y;
44
45      else
46         declare
47            L : constant Natural := X'Length + Y'Length;
48            R : String (X'First .. X'First + L - 1);
49
50         begin
51            R (X'Range) := X;
52            R (X'First + X'Length .. R'Last) := Y;
53            return R;
54         end;
55      end if;
56   end Str_Concat;
57
58   -------------------
59   -- Str_Concat_CC --
60   -------------------
61
62   function Str_Concat_CC (X, Y : Character) return String is
63      R : String (1 .. 2);
64
65   begin
66      R (1) := X;
67      R (2) := Y;
68      return R;
69   end Str_Concat_CC;
70
71   -------------------
72   -- Str_Concat_CS --
73   -------------------
74
75   function Str_Concat_CS (X : Character; Y : String) return String is
76      R : String (1 .. Y'Length + 1);
77
78   begin
79      R (1) := X;
80      R (2 .. R'Last) := Y;
81      return R;
82   end Str_Concat_CS;
83
84   -------------------
85   -- Str_Concat_SC --
86   -------------------
87
88   function Str_Concat_SC (X : String; Y : Character) return String is
89   begin
90      if X'Length <= 0 then
91         return (1 => Y);
92
93      else
94         declare
95            R : String (X'First .. X'Last + 1);
96
97         begin
98            R (X'Range) := X;
99            R (R'Last) := Y;
100            return R;
101         end;
102      end if;
103   end Str_Concat_SC;
104
105   -------------------
106   -- Str_Normalize --
107   -------------------
108
109   procedure Str_Normalize (A : in out String) is
110   begin
111      for J in A'Range loop
112         A (J) := Character'Last;
113      end loop;
114   end Str_Normalize;
115
116   ------------------------
117   -- Wide_Str_Normalize --
118   ------------------------
119
120   procedure Wide_Str_Normalize (A : in out Wide_String) is
121   begin
122      for J in A'Range loop
123         A (J) := Wide_Character'Last;
124      end loop;
125   end Wide_Str_Normalize;
126
127end System.String_Ops;
128