Re: Printing out an Array

[Jeffrey Carter <spam@spam.com>]

conchale@mac.com wrote:

> Hello all, I'm new to this and comming from Java environment.  I have
> this code to convert bytes to bits but I dont know what to put in the
> last line of code to get on the screen my converted number.  Thanks for
> any help

Assuming this isn't homework, in the package Ada.Text_IO (ARM A.10.1) 
you will find the generic packages Integer_IO and Modular_IO (described 
in more detail in ARM A.10.8). If you look at the Put procedures, you 
will find the parameter Base. This allows you to specify the number base 
to represent the number in. If you supply the value 2 for Base, you will 
get the number output in binary.

A typical value from Put with Base => 2 might be " 2#10101010#". If you 
need to get rid of the leading " 2#" and the trailing '#', you can use 
the Put that writes to a String and manipulate the result. 
Alternatively, you can use an Image function from PragmARC.Images, which 
does it for you.

So, in Ada it is not necessary to convert the value to an array of bits 
(which could be accomplished with Ada.Unchecked_Conversion), nor to 
output the bits individually. Yet another case where Ada is simpler and 
more expressive than other languages.

The PragmAda Reusable Components are available from

http://home.earthlink.net/~jrcarter010/pragmarc.htm

-- 
Jeff Carter
"You couldn't catch clap in a brothel, silly English K...niggets."
Monty Python & the Holy Grail
19