Re: confusion with string initialization

[brett <user@compgroups.net/>]

Thank you all for your very useful information, Thomas Locke's full example
of Barnes code was extremely helpful. Which I dropped into GNAT for testing.

I was having problems resolving the what? packages I needed to be able to process bounded strings, I'd already sucessfully written a Unbounded strings program and could not see why Bounded strings were causing me so many problems !
The need for "Generic_Bounded_Length" part was very unclear, and hoe it related to the rest of my code.

BTW: John Barnes Ada 2005 Book is truly excellent, however I think I also need a more "Practical Ada 2005 Programming" book as well. The titles I see on Internet book sellers are mainly Ada95 and I'm unsure if they have any relevance to learning Ada 2005. Any Suggestions ??



My finished test program is :

-- brett hallett : 18/10/2010
-- testing --redefined Integer type Temp_Int
           --Bounded String type 
with Ada.Strings.Bounded; use Ada.Strings.Bounded;
with Ada.Text_IO.Bounded_IO;

procedure calctemp4 is
 use Ada.Strings.Bounded;
 use Ada.Text_IO;
 
subtype Temp_Int is integer range 50 .. 350 ;

 package BS is new Generic_Bounded_Length(30);  use BS;
--	define the 'base' string to work with
 package BS_IO is new Bounded_IO ( BS );        use BS_IO;

strline : BS.Bounded_String := (BS.Max_Length * " ");
-- create & initialize strline to spaces

C : Temp_Int := Temp_Int'First;    -- start temperature
F : Integer;

function convert ( X : Integer ) return Integer is
  F : Integer;
begin
    F := (( X * 9 )/ 5  ) +32; -- standard C to F calc
    return F;
end convert;

begin

   put_line("calctemp");
   put(" Celsius   Farhenheit"); new_line;
   
   while C < Temp_Int'Last loop -- loop in range

        BS.overwrite(strline, 1,  c'img);
        f := convert(c);
        BS.overwrite(strLine, 10, f'img);
   	BS_IO.Put_line(strline);
        C := C + 25;
        strline := BS.Max_Length * "*";
        -- 'clear' strline ( not necessary , just testing :-)
   end loop;
   put("  -- finished--"); new_line;
end calctemp4;




---
frmsrcurl: http://compgroups.net/comp.lang.ada/confusion-with-string-initialization