From ab4d41169b1fecdd4a3be8cb1da8e135b272887b Mon Sep 17 00:00:00 2001
From: "U-VICTORIA\\Administrator" <Administrator@victoria.(none)>
Date: Sat, 26 Jul 2008 22:35:40 -0700
Subject: [PATCH] add keys-array sequence wrapper

---
 .../backend/dinput/keys-array/keys-array.factor   | 15 +++++++++++++++
 1 file changed, 15 insertions(+)
 create mode 100755 extra/game-input/backend/dinput/keys-array/keys-array.factor

diff --git a/extra/game-input/backend/dinput/keys-array/keys-array.factor b/extra/game-input/backend/dinput/keys-array/keys-array.factor
new file mode 100755
index 0000000000..b2dbe9ad93
--- /dev/null
+++ b/extra/game-input/backend/dinput/keys-array/keys-array.factor
@@ -0,0 +1,15 @@
+USING: sequences sequences.private math alien.c-types
+accessors ;
+IN: game-input.backend.dinput.keys-array
+
+TUPLE: keys-array underlying ;
+C: <keys-array> keys-array
+
+: >key ( byte -- ? )
+    HEX: 80 bitand c-bool> ;
+
+M: keys-array length underlying>> length ;
+M: keys-array nth-unsafe underlying>> nth-unsafe >key ;
+
+INSTANCE: keys-array sequence
+