buffer.adb

Ada 2005 Training Notes.

package body Buffer is
protected body Buffer is
   procedure Load(S: in String) is
   begin
      Start := 1;
      Finish := S'Length;
      Data(Start .. Finish) := S;

   end Load;

   procedure Get(C: out Character) is
   begin
      C:= Data(Start);
      Start := Start + 1;
   end Get;
end Buffer;
end Buffer;