cross linking packages

[rburema@inter.NL.net (Rene Burema)]

Dear netlanders,

I have a problem specifing a seemingly simple problem in Ada. Anybody
want to help?

The problem is as follows:

-------------------- package A -----------------------
package A;
type tA is private;
procedure giveB(x: in tA,y: out tB);
end A;
-------------------- package B -----------------------
package B;
type tB is private;
procedure giveA(x: in tB,y: out tA);
end B;
---------------
where tA could be a reference to a  Doctor giving the reference to
a Patient (tB) and vice versa.

I need a with statement for B and A respectively. The Ada gnat compiler
however stumbles into a circular dependency. How can I solve this without
placing the two types tA and tB in a single package.

Many thanks for any help

	Arjen Duursma (arjen@capints.uucp)

PS: don't use the return adress in the message, as it is a shared account.