4

我有一个 Rebol2 控制台应用程序(Rebol Core),我想禁用键盘字符回显到控制台。该应用程序从最小的 Linux 内核/initramfs 运行,并由busybox inittab(不是从终端)启动。它有一个最小的控制台用户界面,使用 ansi 代码来表示颜色等,并通过单键响应菜单选择。为了使控制台“安静”,我关闭了光标,并且看不到按键的输出(直到最近)。

我以前认为我通过在 Rebol 中调用 'stty -echo' 解决了问题,但它实际上并没有像我刚刚发现的那样工作 - 有一个函数需要 5-10 秒并且可以在等待时看到回显的按键功能来完成。

我不太清楚为什么在这个函数运行时我只看到回显字符,但它是唯一需要任何时间的函数。通过以二进制模式打开 console:// 来轮询键盘,等待按键,然后使用 switch 语句来选择功能。二进制/控制台中键的读取似乎“消耗”了键回显-

minimal example, pressing 'a'-

    cons: open/binary console://
    first cons
    == 97

(值按我的意愿返回,并且 char 没有回显,这很好——我认为在大多数函数中,我的键在 get-key 循环中被“使用”,但较长的函数没有机会“使用” ' 他们,并最终回声到控制台)

有什么方法可以禁用 Rebol2 中的控制台字符回显吗?我查看了系统/控制台和系统/端口/输入、输出,但没有看到任何明显的东西。我目前的解决方法是简单地更改文本颜色以匹配背景,以便在特定功能运行时任何按键都不可见。

这是我正在做的一个最小的例子-

get-key: func [ /local cons ch ][
    cons: open/binary console://
    ch: lowercase to-string to-char first cons
    all [ equal? ch "^["   append ch copy/part cons 2 ]
    close cons
    ch
]

forever [
    switch get-key [
        ;up arrow
        "^[[A" [ some-function1 ]
        ;down arrow
        "^[[B" [ some-function2 ]
        ;enter
        "^M" [ some-function3 ]
        ;quit
        "q" [ break ]
    ]
]

永远循环似乎“消耗”了键盘输入(没有回显),但如果其中一个功能需要任何时间,任何键盘输入都会在光标所在的位置回显到屏幕上。在大多数情况下,我从来没有看到任何回显字符,因为调用 get-key 之间的时间很短。我还要注意,回显的字符也不会出现在随后的 get-key 调用中。

更新-

这是一个更好的代码示例来查看问题-

get-key: has [ cons ch ][
  cons: open/binary console://
  ch: lowercase to-string to-char first cons
  prin rejoin [ "<" ch ">" ] ;show get-key chars
  ch
]
long-func: does [ call/wait {sleep 10} ]
reb-func: does [ wait 10 ]

forever [
  switch get-key [
   "f" [ long-func ]
   "r" [ reb-func ]
   "q" [ break ]
  ]
]

我发现我的“长”函数正在使用调用,这可能需要几秒钟,所以在使用调用时会出现问题。

上面的代码,在运行时将显示键被回显,只是因为它们被打印在 get-key 函数(括号)中,当 long-func 运行时,键在 get-key 之外被回显(没有括号),并且完成后,get-key 也会处理这些密钥。或者简单地运行'call/wait {sleep 10}',你会在等待时得到回显键,并且在调用返回时也会得到 Rebol 回显的相同键。reb-func 运行时不会回显键,并且 get-key 将在 reb-func 完成时处理所有缓冲的键。使用呼叫时,键盘输入被处理两次。

我尝试在调用命令中重定向标准输入/标准输出(在调用字符串命令中,如在 bash 提示符下),但没有找到有效的组合。(我的实际代码使用 /output/error 运行调用以捕获所有输出)。

4

2 回答 2

2

如果不通过等待端口和唤醒功能来优化您的代码,我想您的问题可以通过在 get-key 功能之外打开和关闭控制台端口来解决,如

get-key: func [ /local ch ][
    ch: lowercase to-string to-char first cons
    all [ equal? ch "^["   append ch copy/part cons 2 ]
    ch
]
cons: open/binary [scheme: 'console]
forever [
    switch get-key [
        ;up arrow
        "^[[A" [ some-function1 ]
        ;down arrow
        "^[[B" [ some-function2 ]
        ;enter
        "^M" [ some-function3 ]
        ;quit
        "q" [ break ]
    ]
]
close cons

好的,这是一个优化版本,包括您的第二个示例

long-func: does [ call/wait {stty -echo ; sleep 10} ]
reb-func: does [ wait 10 ]

 cons: open/binary [scheme: 'console]
 cons/awake: func [port] [
    key: to-char first port
    print ["<" key ">"]
    switch key [
        #"f" [long-func]
        #"r" [reb-func]
        #"q" [break]
    ]
 ]
forever [ 
    wait [cons]
]

您可以看到,所有键都被捕获而没有额外的回声

于 2016-03-22T22:06:28.060 回答
1

重新排列的控制台代码不是必需的(并且无论使用哪种排列方式都会缓存所有键),尽管很高兴知道添加唤醒功能的能力。在我的真实代码中,get-key 有一个 '/timeout t' 选项,我可以在其中执行 'wait [ con t ]' 并返回一个字符串(对于向上箭头等扩展键代码)或无,这意味着我也可以在我的开关 get-key 之前刷新控制台输入(因此在运行函数时按下的任何键都会被刷新)。

forever [
  while [ get-key/timeout 0.1 ][] ;flush
  switch get-key [ ;wait for key
...

'stty -echo' 在给出的示例中运行良好,似乎可以解决我的问题,但是如果我在长功能运行时按下一堆键,我仍然会看到一些字符回显(我插入了 {stty -echo; } 在所有命令中)。不知何故,在 Rebol 调用创建进程(我假设是 fork/exec)中,tty 输入/输出仍然可以“泄漏”i/o 字符。或者,一个被调用的程序可能正在打开一个 tty,即使它继承了父级的文件描述符。

这就是我最终要做的——改变我调用命令的方式,让它们在后台运行,但仍然等待它们完成。

;used by other funcs to parse output of commands
set 'cmd-output "" ;output from 'call' commands
set 'cmd-error "" ;error from 'call commands

set 'cmd func [ str [string!] /local ret ][
  --old--
  ;clear previous
  cmd-output: copy ""
  cmd-error: copy ""

  ;--new--
  write %out ""
  write %err ""
  attempt [ delete %ret ]

  ;--old--
  ;ret: call/wait/output/error str cmd-output cmd-error

  ;--new--  stdout->out stderr->err exitcode->ret
  call rejoin [ str { >out 2>err; echo -n $? > ret} ]
  ;wait for return code, (up to 20 seconds, should be plenty)
  loop 200 [ all [ exists? %ret  break ] wait 0.1 ]
  cmd-output: read %out
  cmd-error: read %err
  ret: to-integer read %ret

  --old--
  ;debug-cmd writes info to a logfile
  debug-cmd str ret
  ret
]

这是可行的,因为我无法像以前那样在屏幕上显示任何(不需要的)字符(我想这证明了这些字符来自被调用的进程)。

于 2016-03-30T18:58:20.577 回答