Re: Why can't i get an EXE!

[Preben Randhol <randhol+abuse@pvv.org>]

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/