1169691Skan------------------------------------------------------------------------------
2169691Skan--                                                                          --
3169691Skan--                          GNAT RUN-TIME COMPONENTS                        --
4169691Skan--                                                                          --
5169691Skan--   A D A . S T R I N G S . W I D E _ W I D E _ U N B O U N D E D . A U X  --
6169691Skan--                                                                          --
7169691Skan--                                 B o d y                                  --
8169691Skan--                                                                          --
9169691Skan--          Copyright (C) 1992-2010, Free Software Foundation, Inc.         --
10169691Skan--                                                                          --
11169691Skan-- GNAT is free software;  you can  redistribute it  and/or modify it under --
12169691Skan-- terms of the  GNU General Public License as published  by the Free Soft- --
13169691Skan-- ware  Foundation;  either version 3,  or (at your option) any later ver- --
14169691Skan-- sion.  GNAT is distributed in the hope that it will be useful, but WITH- --
15169691Skan-- OUT ANY WARRANTY;  without even the  implied warranty of MERCHANTABILITY --
16169691Skan-- or FITNESS FOR A PARTICULAR PURPOSE.                                     --
17169691Skan--                                                                          --
18169691Skan-- As a special exception under Section 7 of GPL version 3, you are granted --
19169691Skan-- additional permissions described in the GCC Runtime Library Exception,   --
20169691Skan-- version 3.1, as published by the Free Software Foundation.               --
21169691Skan--                                                                          --
22169691Skan-- You should have received a copy of the GNU General Public License and    --
23169691Skan-- a copy of the GCC Runtime Library Exception along with this program;     --
24169691Skan-- see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see    --
25169691Skan-- <http://www.gnu.org/licenses/>.                                          --
26169691Skan--                                                                          --
27169691Skan-- GNAT was originally developed  by the GNAT team at  New York University. --
28169691Skan-- Extensive contributions were provided by Ada Core Technologies Inc.      --
29169691Skan--                                                                          --
30169691Skan------------------------------------------------------------------------------
31169691Skan
32169691Skanpackage body Ada.Strings.Wide_Wide_Unbounded.Aux is
33169691Skan
34169691Skan   --------------------------
35169691Skan   -- Get_Wide_Wide_String --
36169691Skan   --------------------------
37169691Skan
38169691Skan   procedure Get_Wide_Wide_String
39169691Skan     (U : Unbounded_Wide_Wide_String;
40169691Skan      S : out Big_Wide_Wide_String_Access;
41169691Skan      L : out Natural)
42169691Skan   is
43169691Skan      X : aliased Big_Wide_Wide_String;
44169691Skan      for X'Address use U.Reference.Data'Address;
45169691Skan   begin
46169691Skan      S := X'Unchecked_Access;
47169691Skan      L := U.Reference.Last;
48169691Skan   end Get_Wide_Wide_String;
49169691Skan
50169691Skan   --------------------------
51169691Skan   -- Set_Wide_Wide_String --
52169691Skan   --------------------------
53169691Skan
54169691Skan   procedure Set_Wide_Wide_String
55169691Skan     (UP : in out Unbounded_Wide_Wide_String;
56169691Skan      S  : Wide_Wide_String_Access)
57169691Skan   is
58169691Skan      X : Wide_Wide_String_Access := S;
59169691Skan
60169691Skan   begin
61169691Skan      Set_Unbounded_Wide_Wide_String (UP, S.all);
62169691Skan      Free (X);
63169691Skan   end Set_Wide_Wide_String;
64169691Skan
65169691Skanend Ada.Strings.Wide_Wide_Unbounded.Aux;
66169691Skan