buffer.ads

Ada 2005 Training Notes.

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;