enumeration - Ada:如何将枚举打印为小写

Question

我的名字以大写字母开头，然后是小写字母。它仅以全部大写形式打印。如何按照我定义的方式打印？谢谢!

Answer 1

指定 Lower_Case为 Type_Set调用相关参数时的参数 Put 您的 Ada.Text_IO.Enumeration_IO 实例中的程序.鉴于这些声明，

type Name_Type is (Alice, Bob, Carl);
package Name_IO is new Ada.Text_IO.Enumeration_IO (Name_Type);

以下代码在控制台上打印“bob”:

Name_IO.Put(Bob, Name_IO.Default_Width, Ada.Text_IO.Lower_Case);

Can I do "Bob" instead of "bob"?

是的;例如，

使用 Ada.Characters.Handling ，功能To_Lower , To_Upper , 和 To_Basic可用于字符串和字符，如图 here .

使用 Enumeration_IO和 Ada.Strings.Fixed ，以下片段打印“Bob”。

Upper : String(1 .. 8);
Lower : String(1 .. 8);
…
Name_IO.Put(Upper, Bob, Ada.Text_IO.Upper_Case);
Name_IO.Put(Lower, Bob, Ada.Text_IO.Lower_Case);
Ada.Text_IO.Put_Line(Ada.Strings.Fixed.Trim(
   Upper(Upper'First) & Lower(Lower'First + 1 .. Lower'Last),
   Ada.Strings.Right));