image - Ada 中的默认整数'image() 宽度

Question

如何更改 Ada 中的默认整数'image() 宽度？

我希望能够执行类似 put("this is a number: "& i'img); 的操作，其中 i 例如 5 和让 Ada 输出没有多余空格的数字..

目前我必须做 put("this is a number: "); put(i, 0);...

有什么办法可以解决这个问题吗？

顺便说一句，我知道 X'img 是一个 gnat 扩展:)

Answer 1

尝试如下:

Package K is
    Type New_Type is New Integer;
private
  Function Image( Item : In New_Type ) Return String;
End K;

Package Body K is
  Use Ada.Text_IO;

  Function Image( Item : In New_Type ) Return String is
    begin
        Return ("This is a number: " &  Integer'Image(Integer(Item)) );
        -- You could also add a local integer variable, say Integer_Value,
        -- initialized to Integer(Item) and then use Integer_Value'Img.
    end Image;
End K;