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,FREEMAIL_FROM autolearn=unavailable autolearn_force=no version=3.4.4 X-Received: by 10.182.52.132 with SMTP id t4mr34015742obo.16.1445935368875; Tue, 27 Oct 2015 01:42:48 -0700 (PDT) X-Received: by 10.182.247.4 with SMTP id ya4mr441750obc.14.1445935368845; Tue, 27 Oct 2015 01:42:48 -0700 (PDT) Path: eternal-september.org!reader01.eternal-september.org!reader02.eternal-september.org!news.eternal-september.org!mx02.eternal-september.org!feeder.eternal-september.org!news.glorb.com!kq10no25481127igb.0!news-out.google.com!n2ni46918igy.0!nntp.google.com!kq10no25481125igb.0!postnews.google.com!glegroupsg2000goo.googlegroups.com!not-for-mail Newsgroups: comp.lang.ada Date: Tue, 27 Oct 2015 01:42:48 -0700 (PDT) In-Reply-To: Complaints-To: groups-abuse@google.com Injection-Info: glegroupsg2000goo.googlegroups.com; posting-host=82.243.252.139; posting-account=zd4fUAoAAABZGnAfDxrdJ5Lpts-qUilv NNTP-Posting-Host: 82.243.252.139 References: User-Agent: G2/1.0 MIME-Version: 1.0 Message-ID: <5cd4e16a-9dd4-4fe8-8cc6-f98052d883db@googlegroups.com> Subject: Re: function Is_Open (File : File_Type) return Boolean; :Text_io From: comicfanzine@gmail.com Injection-Date: Tue, 27 Oct 2015 08:42:48 +0000 Content-Type: text/plain; charset=ISO-8859-1 Content-Transfer-Encoding: quoted-printable Xref: news.eternal-september.org comp.lang.ada:28067 Date: 2015-10-27T01:42:48-07:00 List-Id: Le lundi 26 octobre 2015 12:27:53 UTC+1, Simon Wright a =E9crit=A0: > comicfanzine@gmail.com writes: >=20 > > Can someone please show my a code in which this function is used , i'm > > lost , thanks . >=20 > You could try googling ; finds > http://homepage.ntlworld.com/phil.brooke/topal/hg/topal/misc.adb as the > 5th or 6th hit. >=20 > Or you could help us to help you by showing us how far you've got > already; "i'm lost" isn't informative. Thanks everybody , here is the code with corrections , please read the end = : [code]WITH Ada.Text_IO ; USE Ada.Text_IO ;=20 PROCEDURE TestFichier IS MonFichier : File_type ;=20 =20 BEGIN=20 Create( MonFichier,Name =3D> "clone.adb"); if Is_Open (MonFichier) then Put (Item =3D> "Le fichier , ouvert ? : ", File =3D> MonFichier); end if; END TestFichier ;[/code]The code compile but you don't understand what i wa= nt to do . I want to create a file (the use of the create procedure will er= ase+remplace it if he already exist ) , then use IS_open to have a output i= n comand that say(fonction put) for exemple : "the file have been opened su= ccessfuly , value : true " (i repeate,; by put the Value of IS_open : shoul= d be true .)