86 lines
722 B
OCaml
86 lines
722 B
OCaml
type key =
|
|
| F1
|
|
| F3
|
|
| F9
|
|
| Gt
|
|
| Lb
|
|
| Lt
|
|
| Rb
|
|
| Apos
|
|
| Backspace
|
|
| Delete
|
|
| Down
|
|
| Enter
|
|
| Equals
|
|
| Escape
|
|
| Home
|
|
| Insert
|
|
| Jend
|
|
| KPdelete
|
|
| KPdown
|
|
| KPend
|
|
| KPenter
|
|
| KPhome
|
|
| KPleft
|
|
| KPminus
|
|
| KPnext
|
|
| KPplus
|
|
| KPprior
|
|
| KPright
|
|
| KPup
|
|
| Left
|
|
| Minus
|
|
| Next
|
|
| Pipe
|
|
| Plus
|
|
| Prior
|
|
| Question
|
|
| Right
|
|
| Slash
|
|
| Space
|
|
| Tab
|
|
| Tilde
|
|
| Up
|
|
| N0
|
|
| N1
|
|
| N2
|
|
| N3
|
|
| N4
|
|
| N9
|
|
| CB
|
|
| CF
|
|
| CG
|
|
| CH
|
|
| CN
|
|
| CP
|
|
| CQ
|
|
| CW
|
|
| CS
|
|
| Ca
|
|
| Cb
|
|
| Cc
|
|
| Ce
|
|
| Cf
|
|
| Cg
|
|
| Ch
|
|
| Ci
|
|
| Cj
|
|
| Ck
|
|
| Cl
|
|
| Cm
|
|
| Cn
|
|
| Co
|
|
| Cp
|
|
| Cq
|
|
| Cr
|
|
| Cs
|
|
| Ct
|
|
| Cu
|
|
| Cv
|
|
| Cw
|
|
| Cx
|
|
| Cy
|
|
| Cz
|
|
| Code of int
|
|
;;
|