Ada 编程/库/容器/Booch

计算 » 计算机科学 » 计算机编程 » Ada 编程

库容器

包

集合
- 普通
- 有序

双端队列

图
- 有向图
- 无向图

列表
- 单链表
- 双向链表

映射
队列
- 普通
- 有序

环形缓冲区
集合
栈
树
- AVL 树
- 二叉树
- 多叉树

库链接

作者: Simon Wright
主页: http://booch95.sourceforge.net
教程: http://booch95.sourceforge.net/case-study.html
项目信息: http://sourceforge.net/projects/booch95
CVS 存档: http://sourceforge.net/cvs/?group_id=135616
下载: http://sourceforge.net/project/showfiles.php?group_id=135616

示例代码

阅读项目教程以获取完整细节。

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;

另见

维基教科书