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