limitedprivatetype.adb

Ada 2005 Training Notes.

with Ada.Text_IO;	use Ada.Text_IO;

package body LimitedPrivateType is
   procedure DummyProc is
   begin
      Put_Line("DummyProc");
   end DummyProc;


   function Constructor (P: Integer) return LimitedPrivateCell is
   begin
      return LimitedPrivateCell'(I=>P);
   end Constructor;

end LimitedPrivateType;