format - 如果没有被告知，什么可以使简单 ada 程序的输出缩进？

Question

我目前正在学习 learn.adacore.com 的 Ada 教程，现在我正在处理第二个示例:读取并输出一个整数。由于复制粘贴是为不想学习语法的人准备的，所以我手动输入了大部分代码(其中一些是由 gnat-gps 生成的，但我现在使用 vim)。

我编译并运行了该程序，令人惊讶的是，输出的第二行大约缩进了一个制表符。为什么？

代码如下:

With Ada.Text_IO;
Use Ada.Text_IO;
With Ada.Integer_Text_IO;
use Ada.Integer_Text_IO;

procedure Main is
    N : Integer;
begin
   --  Insert code here.
    Put("Enter an integer value: ");
    Get(N);
    if N>0 then
        Put (N);
        Put_Line(" is a positive number");
    end if;
end Main;

(如何获得语法突出显示？)

以下是输出示例(前 1 个为输入):

Enter an integer value: 1
          1 is a positive number

Answer 1

Ada.Integer_Text_IO 中的 Put 过程使用用空格填充的默认字段宽度。该过程的规范在 Ada Language Reference Manual 中定义。如:

procedure Put(Item  : in Num;
              Width : in Field := Default_Width;
              Base  : in Number_Base := Default_Base);

Width 和 Base 参数具有默认值。您对 Put 的调用仅提供了形式参数 Item 的值。要消除左侧填充，只需指定所需的宽度即可。我建议您使用 Ada 命名符号进行调用，如

Put(Item => N, Width => 1);