20 lines
286 B
Ada
20 lines
286 B
Ada
|
|
package body H3.Trees is
|
|
|
|
procedure Add_Node (Tr: in out Tree; N: in Node) is
|
|
begin
|
|
--Tr.Nodes,
|
|
|
|
null;
|
|
end Add_Node;
|
|
|
|
procedure Free_Node (Tr: in out Tree; N: in out Node) is
|
|
begin
|
|
--case N.Code is
|
|
-- when NODE_...
|
|
--end case;
|
|
null;
|
|
end Free_Node;
|
|
|
|
end H3.Trees;
|