OpenCores
URL https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [ada/] [a-stwifi.ads] - Blame information for rev 281

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 281 jeremybenn
------------------------------------------------------------------------------
2
--                                                                          --
3
--                         GNAT RUN-TIME COMPONENTS                         --
4
--                                                                          --
5
--               A D A . S T R I N G S . W I D E _ F I X E D                --
6
--                                                                          --
7
--                                 S p e c                                  --
8
--                                                                          --
9
-- This specification is derived from the Ada Reference Manual for use with --
10
-- GNAT.  In accordance with the copyright of that document, you can freely --
11
-- copy and modify this specification,  provided that if you redistribute a --
12
-- modified version,  any changes that you have made are clearly indicated. --
13
--                                                                          --
14
------------------------------------------------------------------------------
15
 
16
with Ada.Strings.Wide_Maps;
17
 
18
package Ada.Strings.Wide_Fixed is
19
   pragma Preelaborate;
20
 
21
   -------------------------------------------------------------------
22
   -- Copy Procedure for Wide_Strings of Possibly Different Lengths --
23
   -------------------------------------------------------------------
24
 
25
   procedure Move
26
     (Source  : Wide_String;
27
      Target  : out Wide_String;
28
      Drop    : Truncation := Error;
29
      Justify : Alignment  := Left;
30
      Pad     : Wide_Character  := Ada.Strings.Wide_Space);
31
 
32
   ------------------------
33
   -- Search Subprograms --
34
   ------------------------
35
 
36
   function Index
37
     (Source  : Wide_String;
38
      Pattern : Wide_String;
39
      Going   : Direction := Forward;
40
      Mapping : Wide_Maps.Wide_Character_Mapping := Wide_Maps.Identity)
41
      return Natural;
42
 
43
   function Index
44
     (Source  : Wide_String;
45
      Pattern : Wide_String;
46
      Going   : Direction := Forward;
47
      Mapping : Wide_Maps.Wide_Character_Mapping_Function) return Natural;
48
 
49
   function Index
50
     (Source : Wide_String;
51
      Set    : Wide_Maps.Wide_Character_Set;
52
      Test   : Membership := Inside;
53
      Going  : Direction  := Forward) return Natural;
54
 
55
   function Index
56
     (Source  : Wide_String;
57
      Pattern : Wide_String;
58
      From    : Positive;
59
      Going   : Direction := Forward;
60
      Mapping : Wide_Maps.Wide_Character_Mapping := Wide_Maps.Identity)
61
      return Natural;
62
   pragma Ada_05 (Index);
63
 
64
   function Index
65
     (Source  : Wide_String;
66
      Pattern : Wide_String;
67
      From    : Positive;
68
      Going   : Direction := Forward;
69
      Mapping : Wide_Maps.Wide_Character_Mapping_Function) return Natural;
70
   pragma Ada_05 (Index);
71
 
72
   function Index
73
     (Source  : Wide_String;
74
      Set     : Wide_Maps.Wide_Character_Set;
75
      From    : Positive;
76
      Test    : Membership := Inside;
77
      Going   : Direction := Forward) return Natural;
78
   pragma Ada_05 (Index);
79
 
80
   function Index_Non_Blank
81
     (Source : Wide_String;
82
      Going  : Direction := Forward) return Natural;
83
 
84
   function Index_Non_Blank
85
     (Source : Wide_String;
86
      From   : Positive;
87
      Going  : Direction := Forward) return Natural;
88
   pragma Ada_05 (Index_Non_Blank);
89
 
90
   function Count
91
     (Source  : Wide_String;
92
      Pattern : Wide_String;
93
      Mapping : Wide_Maps.Wide_Character_Mapping := Wide_Maps.Identity)
94
      return Natural;
95
 
96
   function Count
97
     (Source  : Wide_String;
98
      Pattern : Wide_String;
99
      Mapping : Wide_Maps.Wide_Character_Mapping_Function) return Natural;
100
 
101
   function Count
102
     (Source : Wide_String;
103
      Set    : Wide_Maps.Wide_Character_Set) return Natural;
104
 
105
   procedure Find_Token
106
     (Source : Wide_String;
107
      Set    : Wide_Maps.Wide_Character_Set;
108
      Test   : Membership;
109
      First  : out Positive;
110
      Last   : out Natural);
111
 
112
   -----------------------------------------
113
   -- Wide_String Translation Subprograms --
114
   -----------------------------------------
115
 
116
   function Translate
117
     (Source  : Wide_String;
118
      Mapping : Wide_Maps.Wide_Character_Mapping) return Wide_String;
119
 
120
   procedure Translate
121
     (Source  : in out Wide_String;
122
      Mapping : Wide_Maps.Wide_Character_Mapping);
123
 
124
   function Translate
125
     (Source  : Wide_String;
126
      Mapping : Wide_Maps.Wide_Character_Mapping_Function) return Wide_String;
127
 
128
   procedure Translate
129
     (Source  : in out Wide_String;
130
      Mapping : Wide_Maps.Wide_Character_Mapping_Function);
131
 
132
   --------------------------------------------
133
   -- Wide_String Transformation Subprograms --
134
   --------------------------------------------
135
 
136
   function Replace_Slice
137
     (Source : Wide_String;
138
      Low    : Positive;
139
      High   : Natural;
140
      By     : Wide_String) return Wide_String;
141
 
142
   procedure Replace_Slice
143
     (Source  : in out Wide_String;
144
      Low     : Positive;
145
      High    : Natural;
146
      By      : Wide_String;
147
      Drop    : Truncation := Error;
148
      Justify : Alignment  := Left;
149
      Pad     : Wide_Character  := Ada.Strings.Wide_Space);
150
 
151
   function Insert
152
     (Source   : Wide_String;
153
      Before   : Positive;
154
      New_Item : Wide_String) return Wide_String;
155
 
156
   procedure Insert
157
     (Source   : in out Wide_String;
158
      Before   : Positive;
159
      New_Item : Wide_String;
160
      Drop     : Truncation := Error);
161
 
162
   function Overwrite
163
     (Source   : Wide_String;
164
      Position : Positive;
165
      New_Item : Wide_String) return Wide_String;
166
 
167
   procedure Overwrite
168
     (Source   : in out Wide_String;
169
      Position : Positive;
170
      New_Item : Wide_String;
171
      Drop     : Truncation := Right);
172
 
173
   function Delete
174
     (Source  : Wide_String;
175
      From    : Positive;
176
      Through : Natural) return Wide_String;
177
 
178
   procedure Delete
179
     (Source  : in out Wide_String;
180
      From    : Positive;
181
      Through : Natural;
182
      Justify : Alignment := Left;
183
      Pad     : Wide_Character := Ada.Strings.Wide_Space);
184
 
185
   --------------------------------------
186
   -- Wide_String Selector Subprograms --
187
   --------------------------------------
188
 
189
   function Trim
190
     (Source : Wide_String;
191
      Side   : Trim_End) return Wide_String;
192
 
193
   procedure Trim
194
     (Source  : in out Wide_String;
195
      Side    : Trim_End;
196
      Justify : Alignment      := Left;
197
      Pad     : Wide_Character := Wide_Space);
198
 
199
   function Trim
200
     (Source : Wide_String;
201
      Left   : Wide_Maps.Wide_Character_Set;
202
      Right  : Wide_Maps.Wide_Character_Set) return Wide_String;
203
 
204
   procedure Trim
205
     (Source  : in out Wide_String;
206
      Left    : Wide_Maps.Wide_Character_Set;
207
      Right   : Wide_Maps.Wide_Character_Set;
208
      Justify : Alignment := Ada.Strings.Left;
209
      Pad     : Wide_Character := Ada.Strings.Wide_Space);
210
 
211
   function Head
212
     (Source : Wide_String;
213
      Count  : Natural;
214
      Pad    : Wide_Character := Ada.Strings.Wide_Space) return Wide_String;
215
 
216
   procedure Head
217
     (Source  : in out Wide_String;
218
      Count   : Natural;
219
      Justify : Alignment := Left;
220
      Pad     : Wide_Character := Ada.Strings.Wide_Space);
221
 
222
   function Tail
223
     (Source : Wide_String;
224
      Count  : Natural;
225
      Pad    : Wide_Character := Ada.Strings.Wide_Space) return Wide_String;
226
 
227
   procedure Tail
228
     (Source  : in out Wide_String;
229
      Count   : Natural;
230
      Justify : Alignment := Left;
231
      Pad     : Wide_Character := Ada.Strings.Wide_Space);
232
 
233
   ---------------------------------------
234
   -- Wide_String Constructor Functions --
235
   ---------------------------------------
236
 
237
   function "*"
238
     (Left  : Natural;
239
      Right : Wide_Character) return Wide_String;
240
 
241
   function "*"
242
     (Left  : Natural;
243
      Right : Wide_String) return Wide_String;
244
 
245
end Ada.Strings.Wide_Fixed;

powered by: WebSVN 2.1.0

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