OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [ada/] [a-suteio-shared.adb] - Blame information for rev 706

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 706 jeremybenn
------------------------------------------------------------------------------
2
--                                                                          --
3
--                         GNAT RUN-TIME COMPONENTS                         --
4
--                                                                          --
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        --
6
--                                                                          --
7
--                                 B o d y                                  --
8
--                                                                          --
9
--          Copyright (C) 1997-2010, 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 3,  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.                                     --
17
--                                                                          --
18
-- As a special exception under Section 7 of GPL version 3, you are granted --
19
-- additional permissions described in the GCC Runtime Library Exception,   --
20
-- version 3.1, as published by the Free Software Foundation.               --
21
--                                                                          --
22
-- You should have received a copy of the GNU General Public License and    --
23
-- a copy of the GCC Runtime Library Exception along with this program;     --
24
-- see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see    --
25
-- <http://www.gnu.org/licenses/>.                                          --
26
--                                                                          --
27
-- GNAT was originally developed  by the GNAT team at  New York University. --
28
-- Extensive contributions were provided by Ada Core Technologies Inc.      --
29
--                                                                          --
30
------------------------------------------------------------------------------
31
 
32
with Ada.Text_IO; use Ada.Text_IO;
33
 
34
package body Ada.Strings.Unbounded.Text_IO is
35
 
36
   --------------
37
   -- Get_Line --
38
   --------------
39
 
40
   function Get_Line return Unbounded_String is
41
      Buffer : String (1 .. 1000);
42
      Last   : Natural;
43
      Result : Unbounded_String;
44
 
45
   begin
46
      Get_Line (Buffer, Last);
47
      Set_Unbounded_String (Result, Buffer (1 .. Last));
48
 
49
      while Last = Buffer'Last loop
50
         Get_Line (Buffer, Last);
51
         Append (Result, Buffer (1 .. Last));
52
      end loop;
53
 
54
      return Result;
55
   end Get_Line;
56
 
57
   function Get_Line (File : Ada.Text_IO.File_Type) return Unbounded_String is
58
      Buffer : String (1 .. 1000);
59
      Last   : Natural;
60
      Result : Unbounded_String;
61
 
62
   begin
63
      Get_Line (File, Buffer, Last);
64
      Set_Unbounded_String (Result, Buffer (1 .. Last));
65
 
66
      while Last = Buffer'Last loop
67
         Get_Line (File, Buffer, Last);
68
         Append (Result, Buffer (1 .. Last));
69
      end loop;
70
 
71
      return Result;
72
   end Get_Line;
73
 
74
   procedure Get_Line (Item : out Unbounded_String) is
75
   begin
76
      Get_Line (Current_Input, Item);
77
   end Get_Line;
78
 
79
   procedure Get_Line
80
     (File : Ada.Text_IO.File_Type;
81
      Item : out Unbounded_String)
82
   is
83
      Buffer : String (1 .. 1000);
84
      Last   : Natural;
85
 
86
   begin
87
      Get_Line (File, Buffer, Last);
88
      Set_Unbounded_String (Item, Buffer (1 .. Last));
89
 
90
      while Last = Buffer'Last loop
91
         Get_Line (File, Buffer, Last);
92
         Append (Item, Buffer (1 .. Last));
93
      end loop;
94
   end Get_Line;
95
 
96
   ---------
97
   -- Put --
98
   ---------
99
 
100
   procedure Put (U : Unbounded_String) is
101
      UR : constant Shared_String_Access := U.Reference;
102
 
103
   begin
104
      Put (UR.Data (1 .. UR.Last));
105
   end Put;
106
 
107
   procedure Put (File : File_Type; U : Unbounded_String) is
108
      UR : constant Shared_String_Access := U.Reference;
109
 
110
   begin
111
      Put (File, UR.Data (1 .. UR.Last));
112
   end Put;
113
 
114
   --------------
115
   -- Put_Line --
116
   --------------
117
 
118
   procedure Put_Line (U : Unbounded_String) is
119
      UR : constant Shared_String_Access := U.Reference;
120
 
121
   begin
122
      Put_Line (UR.Data (1 .. UR.Last));
123
   end Put_Line;
124
 
125
   procedure Put_Line (File : File_Type; U : Unbounded_String) is
126
      UR : constant Shared_String_Access := U.Reference;
127
 
128
   begin
129
      Put_Line (File, UR.Data (1 .. UR.Last));
130
   end Put_Line;
131
 
132
end Ada.Strings.Unbounded.Text_IO;

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.