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=-0.5 required=5.0 tests=BAYES_00,INVALID_MSGID, PP_MIME_FAKE_ASCII_TEXT autolearn=no autolearn_force=no version=3.4.4 X-Google-Language: ENGLISH,ASCII X-Google-Thread: 103376,15b980291302dd26 X-Google-Attributes: gid103376,public From: "Jean-Pierre Rosen" Subject: Re: limited private types Date: 2000/04/28 Message-ID: <8ebq9e$hun$1@wanadoo.fr>#1/1 X-Deja-AN: 616726599 References: <8e7jbb$s0h$1@nnrp1.deja.com> <3907DF77.5BD05EBE@quadruscorp.com> <8eaaa2$rkl$1@nnrp1.deja.com> X-Priority: 3 X-MimeOLE: Produced By Microsoft MimeOLE V5.00.2014.211 X-Complaints-To: abuse@wanadoo.fr X-Trace: wanadoo.fr 956918894 18391 193.250.161.127 (28 Apr 2000 10:48:14 GMT) Organization: Adalog X-MSMail-Priority: Normal NNTP-Posting-Date: 28 Apr 2000 10:48:14 GMT Newsgroups: comp.lang.ada Date: 2000-04-28T10:48:14+00:00 List-Id: a �crit dans le message : 8eaaa2$rkl$1@nnrp1.deja.com... > An array of File_Type might well do the trick even though I might have > to think up some arbitrary limits to this array. while not too elegent, > will do the trick. Thank you. > > In case it matters the application is a "C" preprocessor (like) that > supports inclusion of other files . I would rather not have to close > and reopen/seek etc. > In this case, why don't you use a local variable for the file ? Stacking will occur automatically... There's only one trick: don't forget to close the file when you leave the procedure that holds the variable. Otherwise, you'll leave a file open with no way of closing it. If you declare a local file variable, it is advisable to end the subprogram with: exception when others => if Is_Open (F) then close (F); end if; end; -- --------------------------------------------------------- J-P. Rosen (Rosen.Adalog@wanadoo.fr) Visit Adalog's web site at http://pro.wanadoo.fr/adalog