Ada：列挙型を小文字で印刷する方法

Question

名前は大文字で始まり、残りは小文字で始まります。すべてが大文字で表示されます。私が定義した通りに印刷するには？ありがとう！

Answer 1

Type_SetパラメータにLower_Caseというパラメータを指定すると、というインスタンスで関連するPutプロシージャを呼び出すときに指定されます。これらの宣言を考えると、

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

次のコードを印刷コンソールの "ボブ"：

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

私にできること "ボブ" の代わりに "ボブ"？

はい。例えば、B98 @Ada.Strings.Fixed、

• を使用して、1つのアプローチhereを挙げています。

• Enumeration_IOを使用すると、次のフラグメントは "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));