PROSAGA码农传奇-Ada-在Ada中打印彩色文本ANSI转义码似乎无法正常工作

在Ada中打印彩色文本ANSI转义码似乎无法正常工作

作者: VIP
发布时间: 2024-12-29 10:56:48 (18天前)
转自：

<div class =“post-text”itemprop =“text”>
  
    我想在Windows 10上运行它：它不能与DOS控制台或Powershell一起使用。见下图。
  
  
    批处理文件的工作原理来自
    <a href="https://stackoverflow.com/questions/2048509/how-to-echo-with-different-colors-in-the-windows-command-line">
      如何在Windows命令行中使用不同的颜色进行回显
    </A>
  
  
    我相信这与此处解释的问题有关：
    <a href="https://stackoverflow.com/questions/48829940/utf-8-on-windows-with-ada">
      带有Ada的Windows上的UTF-8
    </A>
  
  
    源代码
    <a href="http://tpcg.io/N1wORl" rel="nofollow noreferrer">
      http://tpcg.io/N1wORl
    </A>
     要么 ：
  
   <pre>
 <code>
 with Ada.Text_IO;
with Ada.Wide_Text_IO;
with Ada.Characters.Latin_1;
with Ada.Characters.Wide_Latin_1;

pragma Wide_Character_Encoding (Utf8);

procedure hello is

begin

Ada.Text_IO.Put_Line ("");

Ada.Text_IO.Put_Line ("Ada.Text_IO");
   Ada.Text_IO.Put (Ada.Characters.Latin_1.Percent_Sign);
   Ada.Text_IO.Put
     (Ada.Characters.Latin_1.ESC &
      "[93m" &
      "Howdy!" &
      Ada.Characters.Latin_1.ESC &
      "[0m");
   Ada.Text_IO.Put_Line ("");
   Ada.Text_IO.Put_Line ("");

Ada.Text_IO.Put_Line ("Ada.Wide_Text_IO");
   Ada.Wide_Text_IO.Set_Output (File => Ada.Wide_Text_IO.Standard_Output);
   Ada.Wide_Text_IO.Set_Error (File => Ada.Wide_Text_IO.Standard_Error);
   Ada.Wide_Text_IO.Put (Ada.Characters.Wide_Latin_1.Percent_Sign);
   Ada.Wide_Text_IO.Put_Line ("");
   Ada.Wide_Text_IO.Put
     (Ada.Characters.Wide_Latin_1.ESC &
      "[93m" &
      "Howdy!" &
      Ada.Characters.Wide_Latin_1.ESC &
      "[0m");

Ada.Text_IO.Put_Line ("");
   Ada.Text_IO.Put_Line ("");
end;

</code>
 </pre>
  
    <a href="https://i.stack.imgur.com/YU5RB.png" rel="nofollow noreferrer">
      <img src =“https://i.stack.imgur.com/YU5RB.png”alt =“蝙蝠文件与Ada输出”/>
    </A>
  
</DIV>