如何在没有返回键的情况下读取OCaml中的字符？

Question

我正在寻找类似input_char stdin但不等待返回键的东西.我不会依赖像lambda这样的大依赖.

Answer 1

处理全行输入很容易.一次处理一个字符有点依赖于系统.如果您使用的是类Unix系统,则可以使用该Unix模块执行此操作:

let get1char () =
    let termio = Unix.tcgetattr Unix.stdin in
    let () =
        Unix.tcsetattr Unix.stdin Unix.TCSADRAIN
            { termio with Unix.c_icanon = false } in
    let res = input_char stdin in
    Unix.tcsetattr Unix.stdin Unix.TCSADRAIN termio;
    res