summaryrefslogtreecommitdiff
path: root/2d
diff options
context:
space:
mode:
Diffstat (limited to '2d')
-rw-r--r--2d/input.scm265
1 files changed, 265 insertions, 0 deletions
diff --git a/2d/input.scm b/2d/input.scm
new file mode 100644
index 0000000..fcc1195
--- /dev/null
+++ b/2d/input.scm
@@ -0,0 +1,265 @@
+;;; guile-2d
+;;; Copyright (C) 2013 David Thompson <dthompson2@worcester.edu>
+;;;
+;;; Guile-2d is free software: you can redistribute it and/or modify it
+;;; under the terms of the GNU Lesser General Public License as
+;;; published by the Free Software Foundation, either version 3 of the
+;;; License, or (at your option) any later version.
+;;;
+;;; Guile-2d is distributed in the hope that it will be useful, but
+;;; WITHOUT ANY WARRANTY; without even the implied warranty of
+;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+;;; Lesser General Public License for more details.
+;;;
+;;; You should have received a copy of the GNU Lesser General Public
+;;; License along with this program. If not, see
+;;; <http://www.gnu.org/licenses/>.
+
+;;; Commentary:
+;;
+;; Keyboard and mouse input.
+;;
+;;; Code:
+
+(define-module (2d input)
+ #:use-module (figl runtime) ;; For the define-enumeration macro
+ #:export (keycode))
+
+;;;
+;;; Keyboard
+;;;
+
+;; Keycodes
+(define-enumeration
+ keycode
+ (backspace 8)
+ (tab 9)
+ (clear 12)
+ (return 13)
+ (pause 19)
+ (escape 27)
+ (space 32)
+ (exclaim 33)
+ (quotedbl 34)
+ (hash 35)
+ (dollar 36)
+ (ampersand 38)
+ (quote 39)
+ (leftparen 40)
+ (rightparen 41)
+ (asterisk 42)
+ (plus 43)
+ (comma 44)
+ (minus 45)
+ (period 46)
+ (slash 47)
+ (0 48)
+ (1 49)
+ (2 50)
+ (3 51)
+ (4 52)
+ (5 53)
+ (6 54)
+ (7 55)
+ (8 56)
+ (9 57)
+ (colon 58)
+ (semicolon 59)
+ (less 60)
+ (equals 61)
+ (greater 62)
+ (question 63)
+ (at 64)
+ (leftbracket 91)
+ (backslash 92)
+ (rightbracket 93)
+ (caret 94)
+ (underscore 95)
+ (backquote 96)
+ (a 97)
+ (b 98)
+ (c 99)
+ (d 100)
+ (e 101)
+ (f 102)
+ (g 103)
+ (h 104)
+ (i 105)
+ (j 106)
+ (k 107)
+ (l 108)
+ (m 109)
+ (n 110)
+ (o 111)
+ (p 112)
+ (q 113)
+ (r 114)
+ (s 115)
+ (t 116)
+ (u 117)
+ (v 118)
+ (w 119)
+ (x 120)
+ (y 121)
+ (z 122)
+ (delete 127)
+ (world-0 160)
+ (world-1 161)
+ (world-2 162)
+ (world-3 163)
+ (world-4 164)
+ (world-5 165)
+ (world-6 166)
+ (world-7 167)
+ (world-8 168)
+ (world-9 169)
+ (world-10 170)
+ (world-11 171)
+ (world-12 172)
+ (world-13 173)
+ (world-14 174)
+ (world-15 175)
+ (world-16 176)
+ (world-17 177)
+ (world-18 178)
+ (world-19 179)
+ (world-20 180)
+ (world-21 181)
+ (world-22 182)
+ (world-23 183)
+ (world-24 184)
+ (world-25 185)
+ (world-26 186)
+ (world-27 187)
+ (world-28 188)
+ (world-29 189)
+ (world-30 190)
+ (world-31 191)
+ (world-32 192)
+ (world-33 193)
+ (world-34 194)
+ (world-35 195)
+ (world-36 196)
+ (world-37 197)
+ (world-38 198)
+ (world-39 199)
+ (world-40 200)
+ (world-41 201)
+ (world-42 202)
+ (world-43 203)
+ (world-44 204)
+ (world-45 205)
+ (world-46 206)
+ (world-47 207)
+ (world-48 208)
+ (world-49 209)
+ (world-50 210)
+ (world-51 211)
+ (world-52 212)
+ (world-53 213)
+ (world-54 214)
+ (world-55 215)
+ (world-56 216)
+ (world-57 217)
+ (world-58 218)
+ (world-59 219)
+ (world-60 220)
+ (world-61 221)
+ (world-62 222)
+ (world-63 223)
+ (world-64 224)
+ (world-65 225)
+ (world-66 226)
+ (world-67 227)
+ (world-68 228)
+ (world-69 229)
+ (world-70 230)
+ (world-71 231)
+ (world-72 232)
+ (world-73 233)
+ (world-74 234)
+ (world-75 235)
+ (world-76 236)
+ (world-77 237)
+ (world-78 238)
+ (world-79 239)
+ (world-80 240)
+ (world-81 241)
+ (world-82 242)
+ (world-83 243)
+ (world-84 244)
+ (world-85 245)
+ (world-86 246)
+ (world-87 247)
+ (world-88 248)
+ (world-89 249)
+ (world-90 250)
+ (world-91 251)
+ (world-92 252)
+ (world-93 253)
+ (world-94 254)
+ (world-95 255)
+ (kp0 256)
+ (kp1 257)
+ (kp2 258)
+ (kp3 259)
+ (kp4 260)
+ (kp5 261)
+ (kp6 262)
+ (kp7 263)
+ (kp8 264)
+ (kp9 265)
+ (kp-period 266)
+ (kp-divide 267)
+ (kp-multiply 268)
+ (kp-minus 269)
+ (kp-plus 270)
+ (kp-enter 271)
+ (kp-equals 272)
+ (up 273)
+ (down 274)
+ (right 275)
+ (left 276)
+ (insert 277)
+ (home 278)
+ (end 279)
+ (pageup 280)
+ (pagedown 281)
+ (f1 282)
+ (f2 283)
+ (f3 284)
+ (f4 285)
+ (f5 286)
+ (f6 287)
+ (f7 288)
+ (f8 289)
+ (f9 290)
+ (f10 291)
+ (f11 292)
+ (f12 293)
+ (f13 294)
+ (f14 295)
+ (f15 296)
+ (numlock 300)
+ (capslock 301)
+ (scrollock 302)
+ (rshift 303)
+ (lshift 304)
+ (rctrl 305)
+ (lctrl 306)
+ (ralt 307)
+ (lalt 308)
+ (rmeta 309)
+ (lmeta 310)
+ (lsuper 311)
+ (rsuper 312)
+ (mode 313)
+ (compose 314)
+ (help 315)
+ (print 316)
+ (sysreq 317)
+ (break 318)
+ (menu 319)
+ (power 320)
+ (euro 321)
+ (undo 322))