From: William Schlieper <william@aldebaran.(none)>
Date: Sat, 20 Feb 2010 13:18:33 +0000 (-0500)
Subject: Merge branch 'master' of git://factorcode.org/git/factor
X-Git-Tag: 0.97~4798^2~2
X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=e342e92f8696a5cdd80ee82134d68272254049e3

Merge branch 'master' of git://factorcode.org/git/factor

Conflicts:
	basis/game/input/input.factor
---

e342e92f8696a5cdd80ee82134d68272254049e3
diff --cc basis/game/input/linux/linux.factor
index 0000000000,0d451e96f0..b307835d70
mode 000000,100644..100644
--- a/basis/game/input/linux/linux.factor
+++ b/basis/game/input/linux/linux.factor
@@@ -1,0 -1,47 +1,89 @@@
+ ! Copyright (C) 2010 Erik Charlebois.
+ ! See http://factorcode.org/license.txt for BSD license.
 -USING: kernel game.input namespaces classes bit-arrays vectors ;
++USING: alien.c-types alien.syntax arrays kernel game.input namespaces
++classes bit-arrays sequences vectors x11 x11.xlib ;
+ IN: game.input.linux
+ 
+ SINGLETON: linux-game-input-backend
+ 
+ linux-game-input-backend game-input-backend set-global
+ 
+ M: linux-game-input-backend (open-game-input)
+     ;
+ 
+ M: linux-game-input-backend (close-game-input)
+     ;
+ 
+ M: linux-game-input-backend (reset-game-input)
+     ;
+ 
+ M: linux-game-input-backend get-controllers
+     { } ;
+ 
+ M: linux-game-input-backend product-string
+     drop "" ;
+      
+ M: linux-game-input-backend product-id
+     drop f ;
+      
+ M: linux-game-input-backend instance-id
+     drop f ;
+      
+ M: linux-game-input-backend read-controller
+     drop controller-state new ;
+      
+ M: linux-game-input-backend calibrate-controller
+     drop ;
+      
+ M: linux-game-input-backend vibrate-controller
+     3drop ;
++
++CONSTANT: x>hid-bit-order {
++    0 0 0 0 0 0 0 0 
++    0 41 30 31 32 33 34 35 
++    36 37 38 39 45 46 42 43 
++    20 26 8 21 23 28 24 12 
++    18 19 47 48 40 224 4 22 
++    7 9 10 11 13 14 15 51 
++    52 53 225 49 29 27 6 25 
++    5 17 16 54 55 56 229 85 
++    226 44 57 58 59 60 61 62 
++    63 64 65 66 67 83 71 95 
++    96 97 86 92 93 94 87 91 
++    90 89 99 0 0 0 68 69 
++    0 0 0 0 0 0 0 88 
++    228 84 70 0 0 74 82 75 
++    80 79 77 81 78 73 76 127 
++    129 128 102 103 0 72 0 0 
++    0 0 227 231 0 0 0 0 
++    0 0 0 0 0 0 0 0 
++    0 0 0 0 0 0 0 0 
++    0 0 0 0 0 0 0 0 
++    0 0 0 0 0 0 0 0 
++    0 0 0 0 0 0 0 0 
++    0 0 0 0 0 0 0 0 
++    0 0 0 0 0 0 0 0 
++    0 0 0 0 0 0 0 0 
++    0 0 0 0 0 0 0 0 
++    0 0 0 0 0 0 0 0 
++    0 0 0 0 0 0 0 0 
++    0 0 0 0 0 0 0 0 
++    0 0 0 0 0 0 0 0 
++    0 0 0 0 0 0 0 0 
++    0 0 0 0 0 0 0 0 
++}
+      
++: x-bits>hid-bits ( bit-array -- bit-array )
++        256 iota [ 2array ] 2map [ first ] filter [ second ] map
++        x>hid-bit-order [ nth ] with map
++        ?{ } swap [ t swap pick set-nth ] each ;
++        
+ M: linux-game-input-backend read-keyboard
 -    256 <bit-array> keyboard-state boa ;
++        dpy get 256 <bit-array> [ XQueryKeymap drop ] keep
++        x-bits>hid-bits keyboard-state boa ;
+      
+ M: linux-game-input-backend read-mouse
+     0 0 0 0 2 <vector> mouse-state boa ;
+      
+ M: linux-game-input-backend reset-mouse
+     ;