Ada Programming/Libraries/Container/Booch

From Wikibooks, open books for an open world
Jump to navigation Jump to search

Ada. Time-tested, safe and secure.

Library containers[edit | edit source]

  • Bags
  • Collections
    • Plain
    • Ordered
  • Dequeues
  • Graphs
    • Directed
    • Undirected
  • Lists
    • Single
    • Double
  • Maps
  • Queues
    • Plain
    • Ordered
  • Rings
  • Sets
  • Stacks
  • Trees
    • AVL
    • Binary
    • Multiway

Library links[edit | edit source]

Author
Simon Wright
Homepage
http://booch95.sourceforge.net
Tutorial
http://booch95.sourceforge.net/case-study.html
Project Info
http://sourceforge.net/projects/booch95
CVS Archive
http://sourceforge.net/cvs/?group_id=135616
Download
http://sourceforge.net/project/showfiles.php?group_id=135616

Sample code[edit | edit source]

Read the project tutorial for full detail.

with Ada.Calendar;
with Ada.Strings.Bounded;

package Cars is

   package Plate_Strings
     is new Ada.Strings.Bounded.Generic_Bounded_Length (10);
   
   subtype Plate_String is Plate_Strings.Bounded_String;

   package Model_Strings
     is new Ada.Strings.Bounded.Generic_Bounded_Length (32);
   
   subtype Model_String is Model_Strings.Bounded_String;

   type Car is 
      record
         Plate : Plate_String;
         Model : Model_String;
         Registered : Ada.Calendar.Time;
      end record;

end Cars;
with BC.Containers.Collections.Bounded;
with Cars;
package My_Fleet_Combined is

   use type Cars.Car;

   package Abstract_Car_Containers 
     is new BC.Containers (Cars.Car);

   package Abstract_Car_Collections 
     is new Abstract_Car_Containers.Collections;

   package Fleets 
     is new Abstract_Car_Collections.Bounded (Maximum_Size => 30);

   The_Fleet : Fleets.Collection;

end My_Fleet_Combined;

See also[edit | edit source]

Wikibook[edit | edit source]