buffer.ads

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

package Buffer is
   protected type Buffer(Max: Integer) is
      procedure Load(S: in String);
      procedure Get(C: out Character);
   private
      Data: String(1..Max);
      Start: Integer := 1;
      Finish: Integer := 0;
   end Buffer;
end;