/[cvs.andrew.net.au]/uni/COMP2310/lab1/queue_test_simple.adb
ViewVC logotype

Contents of /uni/COMP2310/lab1/queue_test_simple.adb

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.2 - (show annotations)
Wed Jul 27 12:07:25 2005 UTC (17 years, 6 months ago) by apollock
Branch: MAIN
CVS Tags: HEAD
Changes since 1.1: +4 -0 lines
Working exception handling

1 with Queue_Pack_Simple; use Queue_Pack_Simple;
2 with Ada.Text_IO;
3 procedure Queue_Test_Simple is
4 Queue : Queue_Type;
5 Item : Element;
6 begin
7 Enqueue (2000, Queue);
8 Dequeue (Item, Queue);
9 Ada.Text_IO.Put_Line("Got " & Item'Img & " from the queue");
10 Dequeue (Item, Queue);
11 Ada.Text_IO.Put_Line("Got " & Item'Img & " from the queue");
12 end Queue_Test_Simple;

  ViewVC Help
Powered by ViewVC 1.1.22