Re: Why can't i get an EXE!

["Liddle Feesh" <no_see_reply_address@spam.com>]

"NTL" wrote:
> >> BEGIN QUE.ADS
>
> package que is
> empty_queue : EXCEPTION;
>
> type queue is array(1..500) of integer;

Array 1..500? Big time efficiency waste !!!

You have to incorporate this using linked lists.

Okay. In reference to Real Time Programming - you have to justify these
changes to the master spec.

> <<END QUE.ADS
>
> >>BEGIN QUE.ADB
>
> with ada.text_io, ada.integer_text_io;
> use ada.text_io, ada.integer_text_io;
> with text_io;
> use text_io;

^^^ Big inconsistancy

>
> package body que is
>
>
>
> procedure initialiser(q: in out queue; head: in out integer; tail: in out
> integer) is
> begin
>    tail := 0;
>    head := 1;
>    for count in head..tail loop
>    q(count) := 0;
>    end loop;
>
> end initialiser;
>
> procedure add(q: in out queue; head: in out integer; tail: in out integer)
> is
> begin
>    put_line("Please enter an integer ");
>    get(n);
>    tail := tail+1;
>    q(tail) := n;
>    --call proc show here
> end add;
>
> procedure remove(q: in out queue; head: in out integer; tail: in out
> integer) is
> begin
>    if head < tail then
>    --put_line("Queue is currently empty");
>    raise EMPTY_QUEUE;
>    else
>    head := head + 1;
>    end if;
>    --call proc show here

You have implemented this using an array. The node should contain a pointer
of type link which points to the base value of the next node. Geddit?

>    exception
>    when EMPTY_QUEUE=>
>       SKIP_LINE;
>       Put_Line("The queue is currently empty");
>       NEW_LINE;
>
> end remove;
>
> procedure show(q: in out queue; head: in out integer; tail: in out
integer)
> is
> begin
>    if head < tail then
>    --put_line("Queue is currently empty");
>    raise EMPTY_QUEUE;
>    else
>    for count in head..tail loop
>    put_line(" ");
>    end loop;
>    end if;

>    exception
>    when EMPTY_QUEUE=>
>       SKIP_LINE;
>       Put_Line("The queue is currently empty");
>       NEW_LINE;
>
> end show;
>
>
> 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 que;
>
> <<END QUE.ADB

Also - you have to:

Present a Package Spec
Present a Package Body
Present a Test Harness

Okay? So name your package body and spec the same (bar the extension), then
create a main body and include the other files in this body. Put your main
menu in there.

c u,


--
Liddle Feesh
 '  O 0 o <"//><  ' o'^
(Remove UNDERPANTS to reply)