Início / coding / Perguntas / 79298100
Accepted
Enio Lecoder
Asked: 2024-12-21 02:23:30 +0800 CST

Como detectar a tecla Esc usando o módulo Unix e o modo raw?

  • 772

Este é o código em OCaml para detectar chaves usando o módulo Unix e o modo raw no terminal Linux.

A única tecla que não consigo detectar é ESC. Pode haver outras, mas meu objetivo principal é detectar a tecla ESC.

Aqui está o código da função:

    (* Function to read a character and recognize special keys *)
    let read_character () =
      let in_chan = in_channel_of_descr stdin in
      let c = input_char in_chan in
      if c = '\027' then
        let next1 = input_char in_chan in
        let next2 = input_char in_chan in
        match (next1, next2) with
        | ('[', 'A') -> "Up Arrow"
        | ('[', 'B') -> "Down Arrow"
        | ('[', 'C') -> "Right Arrow"
        | ('[', 'D') -> "Left Arrow"
        | ('[', 'H') -> "Home"
        | ('[', 'F') -> "End"
        | ('[', '3') when input_char in_chan = '~' -> "Delete"
        | ('[', '2') when input_char in_chan = '~' -> "Insert"
        | ('[', '5') when input_char in_chan = '~' -> "Page Up"
        | ('[', '6') when input_char in_chan = '~' -> "Page Down"
        | _ -> "Ignore"
      else
        match c with
        | '\n' -> "Enter"        (* Handle Enter key *)
        | '\127' -> "Backspace"  (* Handle Backspace (DEL) *)
        | _ -> String.make 1 c   (* Return single character *)

Por favor, leve em consideração que C/curses funciona, mas é muito lento para inicializar/finalizar e limpa a tela, então não é uma opção ideal.

É meio que um desafio. A AI me sugeriu usar Lwt/Async, mas nada disso funcionou, já que não tive sucesso instalando isso no Arch Linux.

linux

2 respostas

  1. Best Answer

    Felizmente, há um modo não canônico com timeout que permite isso. O código fonte completo é este:

    open Unix

(* Function to set the terminal to raw mode with no echo and a short timeout *)
let set_raw_mode () =
  let term = tcgetattr stdin in
  let raw_term = { term with c_icanon = false; c_echo = false } in
  raw_term.c_vmin <- 1;
  raw_term.c_vtime <- 1;  (* Timeout of 0.1 seconds *)
  tcsetattr stdin TCSANOW raw_term

(* Function to restore the original terminal settings *)
let restore_terminal old_term =
  tcsetattr stdin TCSANOW old_term

(* Function to read keys and recognize special keys *)
let read_keys () =
  let buffer = Bytes.create 6 in
  let len = Unix.read Unix.stdin buffer 0 6 in
  let raw_input = Bytes.sub_string buffer 0 len in
  match raw_input with
  | "\027[A" -> "Up Arrow"
  | "\027[B" -> "Down Arrow"
  | "\027[C" -> "Right Arrow"
  | "\027[D" -> "Left Arrow"
  | "\027[H" -> "Home"
  | "\027[F" -> "End"
  | "\027[3~" -> "Delete"
  | "\027[2~" -> "Insert"
  | "\027[5~" -> "Page Up"
  | "\027[6~" -> "Page Down"
  | "\027" -> "Esc"
  | _ ->
    if len = 1 && Bytes.get buffer 0 = '\n' then "Enter"
    else if len = 1 && Bytes.get buffer 0 = '\127' then "Backspace"
    else raw_input

let () =
  let old_term = tcgetattr stdin in
  try
    set_raw_mode ();
    let rec loop () =
      let key = read_keys () in
      print_endline ("Key pressed: " ^ key);
      if key <> "Esc" then loop ()
    in
    loop ();
    restore_terminal old_term
  with e ->
    restore_terminal old_term;
    raise e
    • 1

  2. A tecla Esc gera um único byte ESC (octal 027), enquanto outras teclas especiais geram uma sequência de escape começando com este byte.

    Portanto, não há uma maneira totalmente confiável de detectar o pressionamento da tecla Esc em terminais.

    Uma possibilidade, feita provavelmente mais notavelmente pela vifamília, é verificar o byte ESC sem nenhum outro byte imediatamente disponível. Isso funciona muito bem na prática, embora, estritamente falando, possa haver casos em que, dependendo do tempo, os eventos podem dar errado. Uma variação disso é permitir um pouco de atraso adicional enquanto se espera pelos bytes de acompanhamento.

    Outra possibilidade, também vista frequentemente em aplicativos baseados em terminal, é esperar que o usuário pressione a tecla Esc duas vezes. Isso é fácil de detectar sem heurística, mas resulta em uma experiência de usuário menos agradável.

    • 0

relate perguntas