如何不显示从键盘输入的字符

Question

作为一个学期的课程项目的一部分，我们正在编写一个模型火车系统。其中一部分是用于查看当前状态的监视器界面以及用于系统命令的键盘输入。当获取键盘输入时，我们不应该显示它们。

有没有办法禁用在屏幕上显示输入，或者如何从键盘流中获取这些输入？

目前使用 Ada.Text_IO 包并已使用 Get 和 Get_Immediate 进行了测试。

附加

我们不是针对 Linux 系统进行开发。我们正在为 MaRTE_OS 开发基本上可以称为独立终端的东西。该系统连接到数十个硬件板，其中大部分我没有见过，甚至可以告诉您它们的用途。

至于显示器，屏幕将完全充满频繁更新的输出（系统的一部分我有它刷新大约 0.05 秒的信息）。没有空间尝试尝试不显示信息，然后向上移动一行（也没有真正一次打印一行，显示类将其需要的内容直接打印到屏幕上的列、行） 。

输入不需要由输入它的用户进行审查，因为系统只是应该读取它并生成要处理的命令（它还有一个错误命令，用于错误的输入，并且除了允许系统执行任何操作之外，什么也不做）回到等待状态）。

Answer 1

我不知道Ada，但你可以在unix系统上运行以下命令：
stty -echo 和 stty -noecho。他们切换回声模式。我在许多不同的语言中使用它并且它总是有效。

Answer 2

首先，我会验证需求。我可以看到没有重复该命令，但取消回显似乎有点对用户不利。或者，如果您的控制台支持 VT100 ANSI 转义序列，您可以使用clear line代码之一。

Answer 3

基于垃圾神的建议：

with Ada.Text_Io;
with Ada.Characters.Latin_1;

procedure Bsmain is
   Achar : Character := ' ';
   Escape: Character renames Ada.Characters.Latin_1.ESC;
begin
   Ada.Text_Io.Put (Escape & "[8m"); -- invisible text mode
   while Achar /= 'q' loop -- q=quit
      Ada.Text_Io.Get (Achar);
      Ada.Text_Io.Put (Escape & "[1A"); -- move cursor back up a line
   end loop;
   Ada.Text_Io.Put (Escape & "[m"); -- restore back to normal text mode
end Bsmain;

Answer 4

如果您需要访问权限，您可以设置键盘中断，然后您可以“阻止他们通过”。

http://www.iuma.ulpgc.es/users/jmiranda /gnat-rts/node33.htm