keys.ml

   1 type t =
   2   | Ascii of char | Code of int | Ctrl of int | Fn of int
   3   | Backspace | Delete | Escape | Insert | Enter
   4   | Up | Down | Left | Right | Next | Prior | Home | End
   5
   6 let to_string = function
   7   | Ascii c -> Printf.sprintf "'%c'" c
   8   | Code c -> string_of_int c
   9   | Ctrl c -> Printf.sprintf "ctrl(%#x)" c
  10   | Fn n -> "F" ^ string_of_int n
  11   | Backspace -> "backspace"
  12   | Delete -> "delete"
  13   | Escape -> "escape"
  14   | Insert -> "insert"
  15   | Enter -> "enter"
  16   | Up -> "up"
  17   | Down -> "down"
  18   | Left -> "left"
  19   | Right -> "right"
  20   | Next -> "next"
  21   | Prior -> "prior"
  22   | Home -> "home"
  23   | End -> "end"