buffer.adb

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

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;