limitedprivatetype.adb

来自「Ada 2005 Training Notes.」· ADB 代码 · 共 16 行

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;