Re: help, i'm totally new but have to finsh project

[kdjsd@nospam]

GNAT wants the interface and the body to be in separate files. Is this
what you have? put the interface in a file with .ads extenstion
and the body in a .adb file and try again.

(look also at gnatchop)


In article <383de8d1.14772213@news.kulnet.kuleuven.ac.be>, ibliss@kotnet.org
says...
>
>help
>
>i'm totally new to this, and we have to make a project in ADA. The
>problem is that i typed over something from the course material (i'll
>copy it here below) but when i try to compile it with the GNAT95
>compiler, it says that on the first line it expects the word 'body'
>
>Can someone tell me why this happens and what i can do about it? or
>how i should write it then?
>
>package rand_pak is  -- here it says 'keywoard body expected here [see
>		         -- filename]
>   protected beheer is
>      entry lock;
>      procedure unlock;
>   private
>      bezig: boolean:=false;
>   end beheer;
>   procedure instellen;
>   -- function random return float;
>   -- procedure afsluiten;
>end rand_pak;
>
>with Ada.Text_Io,Ada.Integer_Text_Io;
>--Use Ada.Text_Io,Ada.Integer_Text_Io;
>package body rand_pak is
>   S1,S2: integer;
>   FILE: file_type;
>   
>   protected body beheer is
>      entry lock when not bezig is
>      begin
>         bezig := true;
>      end lock;
>      procedure unlock is
>      begin
>         bezig := false;
>      end unlock;
>   end beheer;
>   
>   procedure instellen is
>   begin
>      open(FILE,in_file, "random.sed");
>      get(FILE,S1); get(FILE,S2);
>      delete(FILE);
>   exception
>      when NAME_ERROR =>
>         S1:=1234567;
>         S2:=87654321;
>   end instellen;
>end rand_pak;
>
>
>pleaz help me, it is really URGENT :((