limitedprivatetype.ads

来自「Ada 2005 Training Notes.」· ADS 代码 · 共 27 行

package LimitedPrivateType is
   --
   -- Declaring type Cell as limited private provides
   -- complete control over the type
   -- by not allowing Copy/Assignment operation on it
   -- Unless Assignment operator is overridden.
   --
   type LimitedPrivateCell is limited private;

   function Constructor (P: Integer) return LimitedPrivateCell;

   type PrivateCell is private;

private
   type LimitedPrivateCell is limited
      record
         I: Integer;
      end record;

   type PrivateCell is
      record
         I: Integer;
      end record;

   procedure DummyProc;
end LimitedPrivateType;