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-05 16:52:49 PST Path: archiver1.google.com!news1.google.com!newsfeed.stanford.edu!bloom-beacon.mit.edu!nycmny1-snh1.gtei.net!cpk-news-hub1.bbnplanet.com!news.gtei.net!newsfeed1.cidera.com!Cidera!news100.world-online.no!news100.world-online.no!nntp.newmedia.no!news.powertech.no!uninett.no!ntnu.no!not-for-mail From: Preben Randhol Newsgroups: comp.lang.ada Subject: Re: Why can't i get an EXE! Date: Sun, 6 Jan 2002 00:52:48 +0000 (UTC) Organization: Norwegian university of science and technology Message-ID: References: NNTP-Posting-Host: kiuk0156.chembio.ntnu.no X-Trace: tyfon.itea.ntnu.no 1010278368 18936 129.241.83.82 (6 Jan 2002 00:52:48 GMT) X-Complaints-To: usenet@itea.ntnu.no NNTP-Posting-Date: Sun, 6 Jan 2002 00:52:48 +0000 (UTC) User-Agent: slrn/0.9.7.3 (Linux) Xref: archiver1.google.com comp.lang.ada:18584 Date: 2002-01-06T00:52:48+00:00 List-Id: On Sat, 5 Jan 2002 23:33:58 -0000, NTL wrote: > Package: QUE PACKAGE > > Hi > I am a university student studying computer science's and have to create a > small program as part of my coursework > The program below compiles perfectly and builds in ADAGIDE GNAT3.11, > however, I can not get it to create the .C and .EXE files... am I making > some small fundemental mistake. Yes you must make a file that contains the main procedure. Move to this procedure the code you have put in que.adb (see below). You will have to with and use your que package too. Check this link : http://www.it.bton.ac.uk/staff/je/adacraft/ > > 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; Preben -- () Join the worldwide campaign to protect fundamental human rights. '||} {||' http://www.amnesty.org/