Ada : 열거 형을 소문자로 인쇄하는 방법

Question

대문자로 시작하고 나머지는 소문자로 시작합니다. 모두 대문자로만 인쇄됩니다. 내가 정의한대로 인쇄하는 방법? 감사!

Answer 1

Type_Set 매개 변수에 대해 Put 절차를 Ada.Text_IO.Enumeration_IO으로 호출 할 때 Lower_Case을 지정하십시오. 이러한 선언을 감안할 때,

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 한 접근법 here를 인용 @ 예 Ada.Strings.Fixed,

• 을 사용.

• 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));