8 lines
276 B
Ada
8 lines
276 B
Ada
|
package Directory is
|
||
|
|
function Present (Name_Pattern: String) return Boolean;
|
||
|
|
generic
|
||
|
|
with procedure Visit (Full_Name, Phone_Number, Address: String;
|
||
|
|
Stop: out Boolean);
|
||
|
|
procedure Iterate (Name_Pattern: String);
|
||
|
|
end Directory;
|