#lang scheme/base

(provide map-key-code)

(define (map-key-code v)
  (hash-ref
   #hash((122 . f1)
         (120 . f2)
         (99 . f3)
         (118 . f4)
         (96 . f5)
         (97 . f6)
         (98 . f7)
         (100 . f8)
         (101 . f9)
         (109 . f10)
         (103 . f11)
         (111 . f12)
         (105 . f13)
         (107 . f14)
         (113 . f15)
         (#x35 . escape)
         (#x7e . up)
         (#x7d . down)
         (#x3d . down)
         (#x7b . left)
         (#x3b . left)
         (#x7c . right)
         (#x3c . right)
         (#x24 . #\return)
         (#x30 . #\tab)
         (#x33 . #\backspace)
         (#x75 . #\rubout)
         (#x73 . home)
         (#x77 . end)
         (#x74 . prior)
         (#x79 . next)
         (#x45 . add)
         (78 . subtract)
         (#x43 . multiply)
         (#x4b . divide)
         (71 . separator)
         (65 . decimal)
         (76 . #\u3) ; numpad enter
         (82 . numpad0)
         (83 . numpad1)
         (84 . numpad2)
         (85 . numpad3)
         (86 . numpad4)
         (87 . numpad5)
         (88 . numpad6)
         (89 . numpad7)
         (91 . numpad8)
         (92 . numpad9))
   v
   #f))