Re: BASIC_NUM_IO

[Martin <martin.dowie@btopenworld.com>]

On Jun 1, 8:57 am, Georg <nob...@nowhere.com> wrote:
> Hi All,
>
> in my Ada books I find the with-clause "with BASIC_NUM_IO; use
> BASIC_NUM_IO".
>
> The following program
>
> with basic_num_io; use basic_num_io;
>
> procedure test_ranges is
> begin
>    put_line(short_integer'size);
> end test_ranges;
>
> does not compile because the compiler complaints that the package
> "basic_num_io" does not exist.
>
> Is there a replacement for this package in GNAT? How can I print number
> on the screen instead?
>
> Regards
>
> Georg

You could use Ada.Text_IO.Integer_IO and instantiate it with the type
of the data item you want to 'Put_Line'. This gets rather tedious if
you more than 2 types! ;-)

The alternative is to use 'Image, e.g.

with Ada.Text_IO; use Ada.Text_IO;
procedure Demo is
   I : Integer := 42;
begin
   Put_Line (Integer'Image (I));
end Demo;

The return type from 'Size if 'universal_integer' and you can't say
"universal_integer'Image (...") but luckily enough an "Integer'Image
(...)" will work for that.

Cheers
-- Martin