Ada：如何从命令行读取可变长度的字符串

Question

我正在使用如下所示的操作码进行多堆栈程序：

I2 Sam
I3 Bobby
I1 Steve
D3
I3 Jonathan

“ I”表示插入，数字是哪个堆栈，“ D”表示删除，数字是哪个堆栈。 我的问题是，如何从命令行中读取这些内容并确定要执行的操作？ 名称的长度是可变的，我不能使用堆内存。 我可以做的一件事是，由于可能的名称列表是已知的，因此将名称设置为枚举类型。 谢谢！

Answer 1

如果要从标准输入中读取值并且至少使用Ada 2005，则此方法将起作用：

with Ada.Text_IO;

procedure Foo is
   use Ada.Text_IO;
begin
   while not End_Of_File loop
      declare
         Cur_Line : constant String := Get_Line;
      begin
         -- process the line here
      end;
   end loop;
end Foo;