1 USING: arrays accessors continuations kernel symbols system
2 combinators.lib sequences namespaces init vocabs vocabs.loader
6 SYMBOLS: game-input-backend game-input-opened ;
8 HOOK: (open-game-input) game-input-backend ( -- )
9 HOOK: (close-game-input) game-input-backend ( -- )
10 HOOK: (reset-game-input) game-input-backend ( -- )
12 : game-input-opened? ( -- ? )
13 game-input-opened get ;
17 M: f (reset-game-input) ;
19 : reset-game-input ( -- )
23 [ reset-game-input ] "game-input" add-init-hook
27 : open-game-input ( -- )
32 : close-game-input ( -- )
38 : with-game-input ( quot -- )
39 open-game-input [ close-game-input ] [ ] cleanup ;
41 TUPLE: controller handle ;
42 TUPLE: controller-state x y z rx ry rz slider pov buttons ;
44 M: controller-state clone
45 call-next-method dup buttons>> clone >>buttons ;
49 pov-up pov-up-right pov-right pov-down-right
50 pov-down pov-down-left pov-left pov-up-left ;
52 HOOK: get-controllers game-input-backend ( -- sequence )
54 HOOK: product-string game-input-backend ( controller -- string )
55 HOOK: product-id game-input-backend ( controller -- id )
56 HOOK: instance-id game-input-backend ( controller -- id )
58 : find-controller-products ( product-id -- sequence )
59 get-controllers [ product-id = ] with filter ;
60 : find-controller-instance ( product-id instance-id -- controller/f )
63 [ instance-id = ] bi, bi* and
66 HOOK: read-controller game-input-backend ( controller -- controller-state )
67 HOOK: calibrate-controller game-input-backend ( controller -- )
69 TUPLE: keyboard-state keys ;
71 M: keyboard-state clone
72 call-next-method dup keys>> clone >>keys ;
74 HOOK: read-keyboard game-input-backend ( -- keyboard-state )
77 { [ os windows? ] [ "game-input.dinput" require ] }
78 { [ os macosx? ] [ "game-input.iokit" require ] }