1 ------------------------------------------------------------------------------
3 -- GNAT RUNTIME COMPONENTS --
5 -- A D A . S T R I N G S . U N B O U N D E D . T E X T _ I O --
9 -- Copyright (C) 1997-2005 Free Software Foundation, Inc. --
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. --
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. --
29 -- GNAT was originally developed by the GNAT team at New York University. --
30 -- Extensive contributions were provided by Ada Core Technologies Inc. --
32 ------------------------------------------------------------------------------
34 with Ada
.Strings
.Unbounded
.Aux
; use Ada
.Strings
.Unbounded
.Aux
;
35 with Ada
.Text_IO
; use Ada
.Text_IO
;
37 package body Ada
.Strings
.Unbounded
.Text_IO
is
43 function Get_Line
return Unbounded_String
is
44 Buffer
: String (1 .. 1000);
48 Result
: Unbounded_String
;
51 Get_Line
(Buffer
, Last
);
52 Str1
:= new String'(Buffer (1 .. Last));
53 while Last = Buffer'Last loop
54 Get_Line (Buffer, Last);
55 Str2 := new String'(Str1
.all & Buffer
(1 .. Last
));
60 Set_String
(Result
, Str1
);
64 function Get_Line
(File
: Ada
.Text_IO
.File_Type
) return Unbounded_String
is
65 Buffer
: String (1 .. 1000);
69 Result
: Unbounded_String
;
72 Get_Line
(File
, Buffer
, Last
);
73 Str1
:= new String'(Buffer (1 .. Last));
74 while Last = Buffer'Last loop
75 Get_Line (File, Buffer, Last);
76 Str2 := new String'(Str1
.all & Buffer
(1 .. Last
));
81 Set_String
(Result
, Str1
);
85 procedure Get_Line
(Item
: out Unbounded_String
) is
86 Buffer
: String (1 .. 1000);
92 Get_Line
(Buffer
, Last
);
93 Str1
:= new String'(Buffer (1 .. Last));
94 while Last = Buffer'Last loop
95 Get_Line (Buffer, Last);
96 Str2 := new String'(Str1
.all & Buffer
(1 .. Last
));
101 Set_String
(Item
, Str1
);
105 (File
: Ada
.Text_IO
.File_Type
;
106 Item
: out Unbounded_String
)
108 Buffer
: String (1 .. 1000);
110 Str1
: String_Access
;
111 Str2
: String_Access
;
114 Get_Line
(File
, Buffer
, Last
);
115 Str1
:= new String'(Buffer (1 .. Last));
116 while Last = Buffer'Last loop
117 Get_Line (Buffer, Last);
118 Str2 := new String'(Str1
.all & Buffer
(1 .. Last
));
123 Set_String
(Item
, Str1
);
130 procedure Put
(U
: Unbounded_String
) is
132 Put
(Get_String
(U
).all);
135 procedure Put
(File
: File_Type
; U
: Unbounded_String
) is
137 Put
(File
, Get_String
(U
).all);
144 procedure Put_Line
(U
: Unbounded_String
) is
146 Put_Line
(Get_String
(U
).all);
149 procedure Put_Line
(File
: File_Type
; U
: Unbounded_String
) is
151 Put_Line
(File
, Get_String
(U
).all);
154 end Ada
.Strings
.Unbounded
.Text_IO
;