Re: Bitwise operators

["Marc A. Criley" <mcqada@earthlink.net>]

Bob Gratton wrote:
> 
> Are there any bitwise operators in ADA? I'd like to compare two binary
> numbers with AND and OR... Is it possible?
> 
> Thanx!

Most definitely!

One of the primary uses of modular types is in support of logical
operations.  Here's a little program that illustrates their use:

with Text_IO; use Text_IO;

procedure Mod_Demo is

   type A_Modular_Type is mod 2**16;

   A : A_Modular_Type := 511;
   B : A_Modular_Type := 255 * 256;

begin
   Put_Line("A and B =" & A_Modular_Type'Image(A and B));
   Put_Line("A or  B =" & A_Modular_Type'Image(A or  B));
   Put_Line("A xor B =" & A_Modular_Type'Image(A xor B));
end Mod_Demo;

For more info on modular types, see section 3.5.4 of the Ada Reference
Manual (which covers all the "integer" types), and 4.5.1 for info on how
modular types are operated on by the logical operators.

Marc A. Criley
Senior Staff Engineer
Quadrus Corporation
www.quadruscorp.com