mirror of
https://github.com/autc04/Retro68.git
synced 2024-09-28 03:55:14 +00:00
34 lines
662 B
Ada
34 lines
662 B
Ada
generic
|
|
|
|
type Element_T is private;
|
|
|
|
package Opt27_Pkg is
|
|
|
|
type Node_T is private;
|
|
|
|
type List_T is private;
|
|
|
|
function Is_Null (Node : in Node_T) return Boolean;
|
|
|
|
generic
|
|
|
|
type Template_T is private;
|
|
|
|
with function Is_Match
|
|
(Element : in Element_T;
|
|
Template : in Template_T) return Boolean is <>;
|
|
|
|
function Find_Elem (Template : Template_T; List : List_T) return Node_T;
|
|
|
|
private
|
|
|
|
type Node_Rec_T;
|
|
type Node_T is access Node_Rec_T;
|
|
|
|
type List_T is record
|
|
First_Node : Node_T := null;
|
|
Last_Node : Node_T := null;
|
|
end record;
|
|
|
|
end Opt27_Pkg;
|