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