]> gitweb.factorcode.org Git - factor.git/blobdiff - basis/game/input/x11/x11.factor
core, basis, extra: Remove DOS line endings from files.
[factor.git] / basis / game / input / x11 / x11.factor
index cc3e4cd531245cdd8fcecef4014cdda30caab93b..44e3fda67309ebd2c1207111084c944121e072d7 100644 (file)
@@ -23,19 +23,19 @@ M: x11-game-input-backend get-controllers
 
 M: x11-game-input-backend product-string
     drop "" ;
-     
+
 M: x11-game-input-backend product-id
     drop f ;
-     
+
 M: x11-game-input-backend instance-id
     drop f ;
-     
+
 M: x11-game-input-backend read-controller
     drop controller-state new ;
-     
+
 M: x11-game-input-backend calibrate-controller
     drop ;
-     
+
 M: x11-game-input-backend vibrate-controller
     3drop ;
 
@@ -43,45 +43,45 @@ HOOK: x>hid-bit-order os ( -- x )
 
 M: linux 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 98 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 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 98 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
     } ; inline
-     
+
 : x-bits>hid-bits ( bit-array -- bit-array )
     256 iota [ 2array ] { } 2map-as [ first ] filter values
     x>hid-bit-order [ nth ] curry map
     256 <bit-array> swap [ t swap pick set-nth ] each ;
-        
+
 M: x11-game-input-backend read-keyboard
     dpy get 256 <bit-array> [ XQueryKeymap drop ] keep
     x-bits>hid-bits keyboard-state boa ;
@@ -93,7 +93,7 @@ M: x11-game-input-backend read-keyboard
     [ 4 ndrop ] 3dip ;
 
 SYMBOL: mouse-reset?
-     
+
 M: x11-game-input-backend read-mouse
     mouse-reset? get [ reset-mouse ] unless
     query-pointer
@@ -102,7 +102,7 @@ M: x11-game-input-backend read-mouse
     swap 400 - >>dy
     swap 400 - >>dx
     0 >>scroll-dy 0 >>scroll-dx ;
-     
+
 M: x11-game-input-backend reset-mouse
     dpy get dup XDefaultRootWindow dup
     0 0 0 0 400 400 XWarpPointer drop t mouse-reset? set-global ;