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=ham
	autolearn_force=no version=3.4.4
X-Google-Thread: 103376,dcb81b5322bf4a6d
X-Google-Attributes: gid103376,public
X-Google-Language: ENGLISH,ASCII
Path: 
 g2news1.google.com!news2.google.com!proxad.net!feeder2-1.proxad.net!news2-e.free.fr!not-for-mail
X-Attribution: Jaco
Newsgroups: comp.lang.ada
Subject: Re: Binding to feof
References: <MRKXc.206$8d1.71@newsread2.news.pas.earthlink.net>
	<uhdqocmsn.fsf@jvdsys.demon.nl>
	<AvRXc.518$8d1.147@newsread2.news.pas.earthlink.net>
From: Eric Jacoboni <jaco@neottia.net>
Organization: Rogntutdju & Associates
Date: Sat, 28 Aug 2004 12:26:35 +0200
Message-ID: <m2vff35zj8.fsf@mac.scrogneugneu.org>
User-Agent: Gnus/5.110003 (No Gnus v0.3) Emacs/21.3.50 (darwin)
Cancel-Lock: sha1:HmzFsn9opfAiZIHcHiqdZx1nWAI=
MIME-Version: 1.0
Content-Type: text/plain; charset=iso-8859-1
Content-Transfer-Encoding: 8bit
NNTP-Posting-Date: 28 Aug 2004 12:26:39 MEST
NNTP-Posting-Host: 81.56.238.119
X-Trace: 1093688799 news2-e.free.fr 18629 81.56.238.119:10020
X-Complaints-To: abuse@proxad.net
Xref: g2news1.google.com comp.lang.ada:3111
Date: 2004-08-28T12:26:39+02:00
List-Id: <comp.lang.ada>

Jeffrey Carter <spam@spam.com> writes:

> Jerry van Dijk wrote:
>> If the binding is correct, it should work. Could you show an example
>> of the code and how you use it ?
>
> function End_Of_File (File : File_Handle := Standard_Input)

feof waits for a FILE *

I would try :

type C_FILE is new System.Address;

function feof(fic : in C_FILE) return integer;
pragma import(C, feof);

-- 
�ric Jacoboni, n� il y a 1397132675 secondes