Re: Re : Simple call of Procedure with Ada.float_text_IO.Get

[comicfanzine@gmail.com]

Le mardi 3 novembre 2015 00:02:11 UTC+1, AdaMagica a écrit :
> Do you understand what parameters are?
> When you call a subprogram which has parameters, you have to supply actual data items for *each* of them.
>
> procedure P (X: Integer; Y: Float);  -- declaration
>
> P (X => 42);   -- illegal call, Y missing
> P (42, 10.0);  -- call OK, both parameters suppllied

Thank you, that exactly my problem , i want to use the Ada.float_text_IO.Get Procedure  and supply in my body package those items needed . The point is there are several of them(without File management) :

procedure Get
     (Item  : out Num;
      Width : Field := 0);

procedure Get
     (From : String;
      Item : out Num;
      Last : out Positive);


and, i don't know which one use in my program and how , i tried :

======================
with Ada.Text_IO;
with Identification;

  --  File  : log_in.adb  

Procedure log_in is

   Password : Identification.Password_Value;
   virgules :  Identification.virgules_Value ;

   begin

   Identification.Get (Password => Password);
   
if Password = "admin" then
      Ada.Text_IO.Put_Line (Item => "Welcome, Administrator.");
   end if;
   
    if virgules'Valid then
        Ada.Text_IO.Put_Line("A float number was not asked") ;
end if;                        end log_in;
=========================
with Ada.Text_IO;
with Ada.float_text_IO;

    --  File  :  identification.adb
   
package body identification is

procedure Get_float
     (Item  : out virgules_Value;
      Width : Field := 0) is

begin
      Ada.float_text_IO.get(Item => virgules);
      Ada.Text_IO.Skip_Line;

end Get_float;

procedure Get (Password : out Password_Value ) is

begin
Ada.Text_IO.Put (Item => "Hello, User. What's your name? ");

Get_Name : declare
         Name : String := Ada.Text_IO.Get_Line;
      begin
         if Name /= "fanzine" then
            Ada.Text_IO.Put_Line (Item => "You're not Administrator.");
            Get_float ;
         else
            Ada.Text_IO.Get (Item => Password);
            Ada.Text_IO.Skip_Line;
            Ada.Text_IO.New_Line;
         end if;
   end Get_Name;
            
end Get;

end identification;
====================

  --  File  : identification.ads
 
package identification is

   subtype Password_Value is String (1..5);
   subtype virgules_Value is Float ;
   
   procedure Get (Password : out Password_Value);
   
   procedure Get_float
     (Item  : out virgules_Value;
      Width : Field := 0);
     --  errors: "Field" is not visible ,and, non-visible declaration at a-textio.ads:74

end identification;
======================
Errors are :
identification.ads:13:15: "Field" is not visible
identification.ads:13:15: non-visible declaration at a-textio.ads:74

As you can see , i got those errors just because i don't know how to use the Ada.float_text_IO.Get Procedure .