No, I have not created some new Wide_Wide_String class - yet. Just a few string tools.
| 126 | procedure Append_All |
|---|---|
| 127 | (Source : in out Ada.Strings.Wide_Wide_Unbounded.Unbounded_Wide_Wide_String; |
| 128 | Search : in Wide_Wide_String; |
| 129 | New_Item : in Wide_Wide_String; |
| 130 | Mapping : in Ada.Strings.Wide_Wide_Maps.Wide_Wide_Character_Mapping := Ada.Strings.Wide_Wide_Maps.Identity); |
Searches for all occurences of text "Search" and Inserts text "Insert" after the found text but only when "Insert" is not allready there.
String to be changed
String we look for
String we want to insert
Search mapping
| 141 | procedure Append_All |
|---|---|
| 142 | (Source : in out Ada.Strings.Wide_Wide_Unbounded.Unbounded_Wide_Wide_String; |
| 143 | Search : in Wide_Wide_String; |
| 144 | New_Item : in Wide_Wide_String; |
| 145 | Mapping : in Ada.Strings.Wide_Wide_Maps.Wide_Wide_Character_Mapping := Ada.Strings.Wide_Wide_Maps.Identity; |
| 146 | Count : out Natural); |
Searches for all occurences of text "Search" and Inserts text "Insert" after the found text but only when "Insert" is not allready there.
String to be changed
String we look for
String we want to insert
Search mapping
Count of replaces done
| 156 | procedure Append_First |
|---|---|
| 157 | (Source : in out Ada.Strings.Wide_Wide_Unbounded.Unbounded_Wide_Wide_String; |
| 158 | Search : in Wide_Wide_String; |
| 159 | New_Item : in Wide_Wide_String; |
| 160 | Mapping : in Ada.Strings.Wide_Wide_Maps.Wide_Wide_Character_Mapping := Ada.Strings.Wide_Wide_Maps.Identity); |
Searches for first occurence of text "Search" and Inserts text "Insert" after the found text but only when "Insert" is not allready there.
String to be changed
String we look for
String we want to insert
Search mapping
| 171 | procedure Append_First |
|---|---|
| 172 | (Source : in out Ada.Strings.Wide_Wide_Unbounded.Unbounded_Wide_Wide_String; |
| 173 | Search : in Wide_Wide_String; |
| 174 | New_Item : in Wide_Wide_String; |
| 175 | Mapping : in Ada.Strings.Wide_Wide_Maps.Wide_Wide_Character_Mapping := Ada.Strings.Wide_Wide_Maps.Identity; |
| 176 | Found : out Boolean); |
Searches for first occurence of text "Search" and Inserts text "Insert" after the found text but only when "Insert" is not allready there.
String to be changed
String we look for
String we want to insert
Search mapping
Count of replaces done
| 186 | procedure Append_Last |
|---|---|
| 187 | (Source : in out Ada.Strings.Wide_Wide_Unbounded.Unbounded_Wide_Wide_String; |
| 188 | Search : in Wide_Wide_String; |
| 189 | New_Item : in Wide_Wide_String; |
| 190 | Mapping : in Ada.Strings.Wide_Wide_Maps.Wide_Wide_Character_Mapping := Ada.Strings.Wide_Wide_Maps.Identity); |
Searches for last occurence of text "Search" and Inserts text "Insert" after the found text but only when "Insert" is not allready there.
String to be changed
String we look for
String we want to insert
Search mapping
| 201 | procedure Append_Last |
|---|---|
| 202 | (Source : in out Ada.Strings.Wide_Wide_Unbounded.Unbounded_Wide_Wide_String; |
| 203 | Search : in Wide_Wide_String; |
| 204 | New_Item : in Wide_Wide_String; |
| 205 | Mapping : in Ada.Strings.Wide_Wide_Maps.Wide_Wide_Character_Mapping := Ada.Strings.Wide_Wide_Maps.Identity; |
| 206 | Found : out Boolean); |
Searches for last occurence of text "Search" and Inserts text "Insert" after the found text but only when "Insert" is not allready there.
String to be changed
String we look for
String we want to insert
Search mapping
Count of replaces done
| 41 | procedure Change_All |
|---|---|
| 42 | (Source : in out Ada.Strings.Wide_Wide_Unbounded.Unbounded_Wide_Wide_String; |
| 43 | Search : in Wide_Wide_String; |
| 44 | Replace : in Wide_Wide_String; |
| 45 | Mapping : in Ada.Strings.Wide_Wide_Maps.Wide_Wide_Character_Mapping := Ada.Strings.Wide_Wide_Maps.Identity); |
Replace all Search with Replace
String to be changed
String we look for
String we want to have
Search mapping
| 55 | procedure Change_All |
|---|---|
| 56 | (Source : in out Ada.Strings.Wide_Wide_Unbounded.Unbounded_Wide_Wide_String; |
| 57 | Search : in Wide_Wide_String; |
| 58 | Replace : in Wide_Wide_String; |
| 59 | Mapping : in Ada.Strings.Wide_Wide_Maps.Wide_Wide_Character_Mapping := Ada.Strings.Wide_Wide_Maps.Identity; |
| 60 | Count : out Natural); |
Replace all Search with Replace and Count how often it was done.
String to be changed
String we look for
String we want to have
Search mapping
Count of replaces done
| 69 | procedure Change_First |
|---|---|
| 70 | (Source : in out Ada.Strings.Wide_Wide_Unbounded.Unbounded_Wide_Wide_String; |
| 71 | Search : in Wide_Wide_String; |
| 72 | Replace : in Wide_Wide_String; |
| 73 | Mapping : in Ada.Strings.Wide_Wide_Maps.Wide_Wide_Character_Mapping := Ada.Strings.Wide_Wide_Maps.Identity); |
Replace all Search with Replace
String to be changed
String we look for
String we want to have
Search mapping
| 83 | procedure Change_First |
|---|---|
| 84 | (Source : in out Ada.Strings.Wide_Wide_Unbounded.Unbounded_Wide_Wide_String; |
| 85 | Search : in Wide_Wide_String; |
| 86 | Replace : in Wide_Wide_String; |
| 87 | Mapping : in Ada.Strings.Wide_Wide_Maps.Wide_Wide_Character_Mapping := Ada.Strings.Wide_Wide_Maps.Identity; |
| 88 | Found : out Boolean); |
Replace First Search with Replace and return success flag.
String to be changed
String we look for
String we want to have
Search mapping
Count of replaces done
| 97 | procedure Change_Last |
|---|---|
| 98 | (Source : in out Ada.Strings.Wide_Wide_Unbounded.Unbounded_Wide_Wide_String; |
| 99 | Search : in Wide_Wide_String; |
| 100 | Replace : in Wide_Wide_String; |
| 101 | Mapping : in Ada.Strings.Wide_Wide_Maps.Wide_Wide_Character_Mapping := Ada.Strings.Wide_Wide_Maps.Identity); |
Replace Last Search with Replace
: String we look for
: String to be changed
: String we want to have
: Search mapping
| 111 | procedure Change_Last |
|---|---|
| 112 | (Source : in out Ada.Strings.Wide_Wide_Unbounded.Unbounded_Wide_Wide_String; |
| 113 | Search : in Wide_Wide_String; |
| 114 | Replace : in Wide_Wide_String; |
| 115 | Mapping : in Ada.Strings.Wide_Wide_Maps.Wide_Wide_Character_Mapping := Ada.Strings.Wide_Wide_Maps.Identity; |
| 116 | Found : out Boolean); |
Replace Last Search with Replace and return success flag.
String to be changed
String we look for
String we want to have
Search mapping
Count of replaces done
| 214 | function Field_End |
|---|---|
| 215 | (Source : in Wide_Wide_String; |
| 216 | Field_Separator : in Wide_Wide_Character; |
| 217 | Starting_At : Positive) |
| 218 | return Natural with |
| 219 | Pure_Function; |
Return the end-of-field position in Data after "Starting_Index", assuming that fields are separated by the Field_Separator. If there's no Field_Separator, return the end of the Data.
String to search in
Field seperator.
Start search at.
| 352 | function First_Word |
|---|---|
| 353 | (Source : in Wide_Wide_String; |
| 354 | Delimiter : in Wide_Wide_Character := ' ') |
| 355 | return Wide_Wide_String with |
| 356 | Pure_Function; |
Extract the first word.
String to search
word delimiter. Default is space.
| 310 | function Hash (Key : Wide_Wide_String) return Natural with |
|---|---|
| 311 | Pure_Function; |
Hash function for booch components.
String to calculate a hash value form
hash value
| 318 | function Hash (Key : Ada.Strings.Wide_Wide_Unbounded.Unbounded_Wide_Wide_String) return Natural with |
|---|---|
| 319 | Pure_Function; |
Hash function for booch components.
String to calculate a hash value form
hash value
| 326 | function Hash |
|---|---|
| 327 | (Key : Ada.Strings.Wide_Wide_Unbounded.Unbounded_Wide_Wide_String) return Ada.Containers.Hash_Type with |
| 328 | Pure_Function; |
Hash function for Ada components.
String to calculate a hash value form
hash value
| 335 | function Hash (Key : Wide_Wide_String) return Ada.Containers.Hash_Type with |
|---|---|
| 336 | Pure_Function; |
Hash function for Ada components.
String to calculate a hash value form
hash value
| 256 | procedure Insert_All |
|---|---|
| 257 | (Source : in out Ada.Strings.Wide_Wide_Unbounded.Unbounded_Wide_Wide_String; |
| 258 | Search : in Wide_Wide_String; |
| 259 | New_Item : in Wide_Wide_String; |
| 260 | Mapping : in Ada.Strings.Wide_Wide_Maps.Wide_Wide_Character_Mapping := Ada.Strings.Wide_Wide_Maps.Identity); |
Searches for all occurences of text "Search" and Inserts text "Insert" bevore when "Insert" is there.
Search mapping
String we want to insert
String we look for
String to be changed
| 270 | procedure Insert_All |
|---|---|
| 271 | (Source : in out Ada.Strings.Wide_Wide_Unbounded.Unbounded_Wide_Wide_String; |
| 272 | Search : in Wide_Wide_String; |
| 273 | New_Item : in Wide_Wide_String; |
| 274 | Mapping : in Ada.Strings.Wide_Wide_Maps.Wide_Wide_Character_Mapping := Ada.Strings.Wide_Wide_Maps.Identity; |
| 275 | Count : out Natural); |
Searches for all occurences of text "Search" and Inserts text "Insert" bevore when "Insert" is there.
String to be changed
String we look for
String we want to insert
Search mapping
Count of replaces done
| 228 | procedure Insert_First |
|---|---|
| 229 | (Source : in out Ada.Strings.Wide_Wide_Unbounded.Unbounded_Wide_Wide_String; |
| 230 | Search : in Wide_Wide_String; |
| 231 | New_Item : in Wide_Wide_String; |
| 232 | Mapping : in Ada.Strings.Wide_Wide_Maps.Wide_Wide_Character_Mapping := Ada.Strings.Wide_Wide_Maps.Identity); |
Searches for first occurence of text "Search" and Inserts text "Insert" bevore when "Insert" is there.
String to be changed
String we look for
String we want to insert
Search mapping
| 242 | procedure Insert_First |
|---|---|
| 243 | (Source : in out Ada.Strings.Wide_Wide_Unbounded.Unbounded_Wide_Wide_String; |
| 244 | Search : in Wide_Wide_String; |
| 245 | New_Item : in Wide_Wide_String; |
| 246 | Mapping : in Ada.Strings.Wide_Wide_Maps.Wide_Wide_Character_Mapping := Ada.Strings.Wide_Wide_Maps.Identity; |
| 247 | Found : out Boolean); |
Searches for first occurence of text "Search" and Inserts text "Insert" bevore when "Insert" is there.
String to be changed
String we look for
String we want to insert
Search mapping
Count of replaces done
| 284 | procedure Insert_Last |
|---|---|
| 285 | (Source : in out Ada.Strings.Wide_Wide_Unbounded.Unbounded_Wide_Wide_String; |
| 286 | Search : in Wide_Wide_String; |
| 287 | New_Item : in Wide_Wide_String; |
| 288 | Mapping : in Ada.Strings.Wide_Wide_Maps.Wide_Wide_Character_Mapping := Ada.Strings.Wide_Wide_Maps.Identity); |
Searches for last occurence of text "Search" and Inserts text "Insert" bevore when "Insert" is there.
String to be changed
String we look for
String we want to insert
Search mapping
| 298 | procedure Insert_Last |
|---|---|
| 299 | (Source : in out Ada.Strings.Wide_Wide_Unbounded.Unbounded_Wide_Wide_String; |
| 300 | Search : in Wide_Wide_String; |
| 301 | New_Item : in Wide_Wide_String; |
| 302 | Mapping : in Ada.Strings.Wide_Wide_Maps.Wide_Wide_Character_Mapping := Ada.Strings.Wide_Wide_Maps.Identity; |
| 303 | Found : out Boolean); |
Searches for last occurence of text "Search" and Inserts text "Insert" bevore when "Insert" is there.
String to be changed
String we look for
String we want to insert
Search mapping
Count of replaces done
| 363 | function Last_Word |
|---|---|
| 364 | (Source : in Wide_Wide_String; |
| 365 | Delimiter : in Wide_Wide_Character := ' ') |
| 366 | return Wide_Wide_String with |
| 367 | Pure_Function; |
Extract the last word.
String to search
word delimiter. Default is space.
| 343 | function Value (Image : Ada.Strings.Wide_Wide_Unbounded.Unbounded_Wide_Wide_String) return Integer with |
|---|---|
| 344 | Pure_Function; |
convert Wide_Wide_String into Integer
String to to be shown as Integer
passed integer value