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.3 required=5.0 tests=BAYES_00,INVALID_MSGID
	autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,7fb82f944809718f,start
X-Google-Attributes: gid103376,public
From: kdjsd@nospam
Subject: Re: help, i'm totally new but have to finsh project
Date: 1999/11/25
Message-ID: <81kql8$29g7@drn.newsguy.com>#1/1
X-Deja-AN: 553149926
References: <383de8d1.14772213@news.kulnet.kuleuven.ac.be>
Organization: -
Newsgroups: comp.lang.ada
Date: 1999-11-25T00:00:00+00:00
List-Id: <comp.lang.ada>

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 :((