Re: Pool Specific Access Types?

[Jeffrey Carter <jeffrey.carter@boeing.com>]

Wannabe h4x0r wrote:
> 
> with Ada.Text_IO; use Ada.Text_IO;
> 
> procedure Point_pract is
> 
>         type Numb_holder;
>         type Numb_ptr is access Numb_holder;
> 
>         type Numb_holder is
>                 record
>                   Number: Integer;
>                   Next:   Numb_Ptr;
>                 end record;
> 
>         N: Numb_ptr;
> 
>         s : string(1..15);
>         len : natural;
>         quit : constant String := "q";
> 
>         anthr_numb : integer := 0;
> 
> begin
> 
>         loop
>                 Put_Line("Enter a number here: ");
>                 Get_Line( s , len);
>                 if s /= quit then

S will never be equal to Quit. S'Length is 15, and Quit'Length is 1.

>                         while N /= null loop
> 
>                            Put_Line( N.Number'img );
>                            N := N.Next;
>                           exit;
>                         end loop;

This appears to be what you want to do when S = Quit. Is the test in
your "if" wrong?

>                 else
>                     anthr_numb := Integer'value(s(1..len));

This is what you do if S = Quit, which is never true. However, if it
were true, this call to Integer'Value would raise an exception, since S
(S'First .. Len) does not contain the textual representation of an
Integer.

>                     N := new Numb_holder'(anthr_numb, N);
> 
>                 New_Line;
> 
> 
>                end if;
>         end loop;
> 
> end Point_pract;


-- 
Jeffrey Carter