From b839d15b4ab9e29d84d29c1bad86579346ff6683 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Wed, 24 Oct 2012 13:25:45 -0700
Subject: [PATCH] windows.kernel32: Add function and some structs.

---
 basis/windows/kernel32/kernel32.factor | 19 ++++++++++++++++++-
 1 file changed, 18 insertions(+), 1 deletion(-)

diff --git a/basis/windows/kernel32/kernel32.factor b/basis/windows/kernel32/kernel32.factor
index 8a6418dcef..92ac3bc152 100644
--- a/basis/windows/kernel32/kernel32.factor
+++ b/basis/windows/kernel32/kernel32.factor
@@ -787,6 +787,23 @@ CONSTANT: STATUS_CONTROL_C_EXIT             0xC000013A
 CONSTANT: STATUS_FLOAT_MULTIPLE_FAULTS      0xC00002B4
 CONSTANT: STATUS_FLOAT_MULTIPLE_TRAPS       0xC00002B5
 
+STRUCT: COORD
+{ X SHORT }
+{ Y SHORT } ;
+
+STRUCT: SMALL_RECT
+{ Left SHORT }
+{ Top SHORT }
+{ Right SHORT }
+{ Bottom SHORT } ;
+
+STRUCT: CONSOLE_SCREEN_BUFFER_INFO
+{ dwSize COORD }
+{ dwCursorPosition COORD }
+{ wAttributes WORD }
+{ srWindow SMALL_RECT }
+{ dwMaximumWindowSize COORD } ;
+
 ! Resource IDs
 : MAKEINTRESOURCE ( int -- resource ) 0xffff bitand <alien> ; inline
 
@@ -1228,7 +1245,7 @@ ALIAS: GetComputerNameEx GetComputerNameExW
 ! FUNCTION: GetConsoleNlsMode
 ! FUNCTION: GetConsoleOutputCP
 ! FUNCTION: GetConsoleProcessList
-! FUNCTION: GetConsoleScreenBufferInfo
+FUNCTION: BOOL GetConsoleScreenBufferInfo ( HANDLE hConsoleOutput, CONSOLE_SCREEN_BUFFER_INFO* lpConsoleScreenBufferInfo ) ;
 ! FUNCTION: GetConsoleSelectionInfo
 FUNCTION: DWORD GetConsoleTitleW ( LPWSTR lpConsoleTitle, DWORD nSize ) ;
 ALIAS: GetConsoleTitle GetConsoleTitleW
-- 
2.34.1