From mboxrd@z Thu Jan 1 00:00:00 1970 X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me X-Spam-Level: X-Spam-Status: No, score=-1.9 required=5.0 tests=BAYES_00 autolearn=unavailable autolearn_force=no version=3.4.4 X-Received: by 10.98.245.193 with SMTP id b62mr10888035pfm.55.1505370813473; Wed, 13 Sep 2017 23:33:33 -0700 (PDT) X-Received: by 10.36.228.193 with SMTP id o184mr48193ith.9.1505370813322; Wed, 13 Sep 2017 23:33:33 -0700 (PDT) Path: eternal-september.org!reader01.eternal-september.org!reader02.eternal-september.org!news.eternal-september.org!feeder.eternal-september.org!border1.nntp.ams1.giganews.com!nntp.giganews.com!peer03.ams1!peer.ams1.xlned.com!news.xlned.com!peer03.am4!peer.am4.highwinds-media.com!peer03.iad!feed-me.highwinds-media.com!news.highwinds-media.com!127no210702itw.0!news-out.google.com!p6ni502itp.0!nntp.google.com!o200no209627itg.0!postnews.google.com!glegroupsg2000goo.googlegroups.com!not-for-mail Newsgroups: comp.lang.ada Date: Wed, 13 Sep 2017 23:33:32 -0700 (PDT) In-Reply-To: <441b111c-0cf4-4582-a391-d6bb828e1023@googlegroups.com> Complaints-To: groups-abuse@google.com Injection-Info: glegroupsg2000goo.googlegroups.com; posting-host=136.163.203.6; posting-account=g0yTkgoAAADdZGEYyZahxGlO3EkjH0Wv NNTP-Posting-Host: 136.163.203.6 References: <4776d346-325b-4685-8ff4-ddb4ff6e08e3@googlegroups.com> <441b111c-0cf4-4582-a391-d6bb828e1023@googlegroups.com> User-Agent: G2/1.0 MIME-Version: 1.0 Message-ID: <28656db4-5b5a-48db-98f5-70bdf0b8ff7c@googlegroups.com> Subject: Re: use Ada.Text_IO in main() or Package? From: Petter Fryklund Injection-Date: Thu, 14 Sep 2017 06:33:33 +0000 Content-Type: text/plain; charset="UTF-8" Content-Transfer-Encoding: quoted-printable X-Received-Bytes: 2664 X-Received-Body-CRC: 422492039 Xref: news.eternal-september.org comp.lang.ada:48119 Date: 2017-09-13T23:33:32-07:00 List-Id: 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 funct= ion both don't work. I don 't use it in both places. I would do it like this: with Ada.Text_IO;=20 with Where_Ever_Say_Hi_Lives; package body Structures is =20 =20 procedure Set_Up is --------------------------------=20 =20 type grid is array (1..9) of Integer;=20 layer_1 : grid :=3D (1,2,3,4,5,6,7,8,9);=20 =20 begin=20 Ada.Text_IO.New_Line(2);=20 Ada.Text_IO.Put_Line("Hello Michael from Ada");=20 Ada.Text_IO.Put_Line(Where_Ever_Say_Hi_Lives.Say_Hi("Hi")); Ada.Text_IO.New_Line;=20 =20 for I of Layer_1 loop=20 Ada.Text_IO.Put("Layer 1 grid one dimension has values:" );=20 Ada.Text_IO.Put(layer_1(I), Width =3D> 2); -- Width :=3D3));=20 Ada.Text_IO.New_Line;=20 end loop;=20 Ada.Text_IO.New_line(2); =20 end Set_Up; -----------------------------------------------=20 But I am of old school. I don't use use, I use package renamings in a small= scope.=20 https://books.google.se/books?id=3DiPZGJRW9bKgC&pg=3DPA44&lpg=3DPA44&dq=3Dw= rite+once+read+many+programming+style&source=3Dbl&ots=3DDt_NIoNyK5&sig=3DQK= kQWPIatt0HeyVcl6BXeRv3Lpo&hl=3Dsv&sa=3DX&ved=3D0ahUKEwjr5NnphqTWAhXDFZoKHUq= LBucQ6AEIdjAJ#v=3Donepage&q=3Dwrite%20once%20read%20many%20programming%20st= yle&f=3Dfalse