Object-oriented Software in Ada 95

180 Child libraries
The implementation of = is as follows:
function "=" ( F:in Bounded_String; S:in Bounded_String )
return Boolean is
begin
return F.V_Str.Chrs = S.V_Str.Chrs;
end "=";
end Class_bounded_string;
Note:
To compare an instance of a Bounded_String and an instance of an Ada string a user would have
to convert the Ada string to a Bounded_String. For example:
Name : Bounded_String;
if Name > To_Bounded_String( "Brighton" ) then
12.3.3 Putting it all together
procedure Main is
Town, County, Address : Bounded_String;
begin
Town := To_Bounded_String( "Brighton" );
County := To_Bounded_String( "East Sussex" );
Address := Town & " " & County;
Put( To_String(Address) ); New_Line;
Put( Slice( County & " UK", 6, 14 ) );
New_Line;
end Main;
When run, this would produce the following results:
Brighton East Sussex
Sussex UK
12.3.4 Ada.Strings.Bounded a standard library
In the standard library there is a package Ada.Strings.Bounded which the above class Bounded_String
is based on. The generic library package Ada.Strings.Bounded.Generic_bounded_length allows
the maximum length of the stored string to be defined by a user of the package. Chapter 13 describes the concepts
of generics. Appendix C.8 lists the specification of the library package Ada.Strings.Bounded.
© M A Smith - May not be reproduced without permission