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-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,225946aa0d08aebc
X-Google-Attributes: gid103376,public
X-Google-ArrivalTime: 2002-01-06 04:19:57 PST
Path: 
 archiver1.google.com!news1.google.com!newsfeed.stanford.edu!news-spur1.maxwell.syr.edu!news.maxwell.syr.edu!uio.no!ntnu.no!not-for-mail
From: Preben Randhol <randhol+abuse@pvv.org>
Newsgroups: comp.lang.ada
Subject: Re: Why can't i get an EXE!
Date: Sun, 6 Jan 2002 12:19:51 +0000 (UTC)
Organization: Norwegian university of science and technology
Message-ID: <slrna3gg7h.uv.randhol+abuse@kiuk0156.chembio.ntnu.no>
References: <z4MZ7.61963$4x4.8851706@news2-win.server.ntlworld.com>
 <slrna3f7va.ke.randhol+abuse@kiuk0156.chembio.ntnu.no>
 <ZfOZ7.62428$4x4.8998168@news2-win.server.ntlworld.com>
NNTP-Posting-Host: kiuk0156.chembio.ntnu.no
X-Trace: tyfon.itea.ntnu.no 1010319591 6796 129.241.83.82 (6 Jan 2002 12:19:51
 GMT)
X-Complaints-To: usenet@itea.ntnu.no
NNTP-Posting-Date: Sun, 6 Jan 2002 12:19:51 +0000 (UTC)
User-Agent: slrn/0.9.7.3 (Linux)
Xref: archiver1.google.com comp.lang.ada:18586
Date: 2002-01-06T12:19:51+00:00
List-Id: <comp.lang.ada>

On Sun, 6 Jan 2002 02:02:43 -0000, Phoenix. wrote:
> 
> Hi, what has to go into this other file, as i created a file called
> main.adb, containing
> use que;
> and the code below.
> however it asks for a main.ads file. and I am unsure what goes in here, as
> if i put the procedure declarations, it will not compile.
> thanks for the help...
> 
> David

main.adb should look like this: (you do not need main.ads)

------------------------------------------------------------
with que; use que;
with ada.text_io, ada.integer_text_io;
use ada.text_io, ada.integer_text_io;

procedure main is

begin
   loop
      initialiser(q => qs, head => heads, tail => tails);
      Put_Line("****************************");
      Put_Line("   1). Add to queue");
      Put_Line("   2). remove to queue");
      Put_Line("   3). Quit queue program");
      Put_Line("****************************");
      get(A);
      case A is --Execute menu option depending on A's value
         when 1      => add(q => qs, head => heads, tail => tails);
         when 2      => remove(q => qs, head => heads, tail => tails);
         when 3      => exit;
         when others => Put_Line("Sorry incorrect entry please retry");
      end case;
   end loop;

end main;
------------------------------------------------------------------

Preben
-- 
 ()   Join the worldwide campaign to protect fundamental human rights.
'||}
{||'                                           http://www.amnesty.org/