Re: use Ada.Text_IO in main() or Package?

[Petter Fryklund <petter.fryklund@atero.se>]

Den torsdag 14 september 2017 kl. 07:12:32 UTC+2 skrev Mace Ayres:
> Correction: using with and use AdA.TEXT_IO before in within package function both don't work. I don 't use it in both places.

I would do it like this:

with Ada.Text_IO; 
with Where_Ever_Say_Hi_Lives;
package body Structures is   
        
 procedure Set_Up is         -------------------------------- 
    
   type grid is array (1..9) of Integer; 

   layer_1 : grid := (1,2,3,4,5,6,7,8,9); 
    
begin 
  Ada.Text_IO.New_Line(2); 
  Ada.Text_IO.Put_Line("Hello Michael from Ada"); 
  Ada.Text_IO.Put_Line(Where_Ever_Say_Hi_Lives.Say_Hi("Hi"));
  Ada.Text_IO.New_Line; 
   
  for I of Layer_1 loop 
    Ada.Text_IO.Put("Layer 1 grid one dimension has values:" ); 
    Ada.Text_IO.Put(layer_1(I), Width => 2);       -- Width :=3)); 
    Ada.Text_IO.New_Line; 
   end loop; 
   Ada.Text_IO.New_line(2);       
end Set_Up;  ----------------------------------------------- 

But I am of old school. I don't use use, I use package renamings in a small scope. 

https://books.google.se/books?id=iPZGJRW9bKgC&pg=PA44&lpg=PA44&dq=write+once+read+many+programming+style&source=bl&ots=Dt_NIoNyK5&sig=QKkQWPIatt0HeyVcl6BXeRv3Lpo&hl=sv&sa=X&ved=0ahUKEwjr5NnphqTWAhXDFZoKHUqLBucQ6AEIdjAJ#v=onepage&q=write%20once%20read%20many%20programming%20style&f=false