Text Compare
Produced: 2008-11-08 21:58:53
   
Mode:  All, Ignoring Unimportant  
Left file: C:\Documents and Settings\Wesoly\Pulpit\nt_console\nt_console.adb  
Right file: C:\Documents and Settings\Wesoly\Pulpit\nt_console\nt_console_old.adb  

-----------------------------------------------------------------------	=	-----------------------------------------------------------------------
--		--
--  File:        nt_console.adb		--  File:        nt_console.adb
--  Description: Win95/NT console support		--  Description: Win95/NT console support
--  Rev:         0.3		--  Rev:         0.3
--  Date:        08-june-1999		--  Date:        08-june-1999
--  Author:      Jerry van Dijk		--  Author:      Jerry van Dijk
--  Mail:        jdijk@acm.org		--  Mail:        jdijk@acm.org
--		--
--  Copyright (c) Jerry van Dijk, 1997, 1998, 1999		--  Copyright (c) Jerry van Dijk, 1997, 1998, 1999
--  Billie Holidaystraat 28		--  Billie Holidaystraat 28
--  2324 LK  LEIDEN		--  2324 LK  LEIDEN
--  THE NETHERLANDS		--  THE NETHERLANDS
--  tel int + 31 71 531 43 65		--  tel int + 31 71 531 43 65
--		--
--  Permission granted to use for any purpose, provided this copyright		--  Permission granted to use for any purpose, provided this copyright
--  remains attached and unmodified.		--  remains attached and unmodified.
--		--
--  THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR		--  THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR
--  IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED		--  IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
--  WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.		--  WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
--		--
-----------------------------------------------------------------------		-----------------------------------------------------------------------
-----------------------------------------------------------------------	+-
--  Rev:         0.3.1
--  Date:        08-November-2008
--  Little_Improver:
--  Krzysiek Wesolowski
--  Mail:        kwesoly@kwesoly.net
--
--      Change Log:
--      Added Standard Ascii Character Constants (Letters, Numbers and Return)
--      Added Wait_For_Any_Key procedure (useful when program ends and it
--              should not close it's window or just to avoid using constructs like
--              Get_Immediate(temp) with temp declared much earlier in code
--      Removed unused code and added few syntax fixes (lack of constants)
-----------------------------------------------------------------------
	=
pragma C_Pass_By_Copy (128);		pragma C_Pass_By_Copy (128);
with Interfaces; use Interfaces;		with Interfaces; use Interfaces;
package body NT_Console is		package body NT_Console is
pragma Linker_Options ("-luser32");		pragma Linker_Options ("-luser32");
---------------------		---------------------
-- WIN32 INTERFACE --		-- WIN32 INTERFACE --
---------------------		---------------------
Beep_Error            : exception;		Beep_Error            : exception;
Fill_Char_Error       : exception;		Fill_Char_Error       : exception;
Cursor_Get_Error      : exception;		Cursor_Get_Error      : exception;
Cursor_Set_Error      : exception;		Cursor_Set_Error      : exception;
Cursor_Pos_Error      : exception;		Cursor_Pos_Error      : exception;
Buffer_Info_Error     : exception;		Buffer_Info_Error     : exception;
Set_Attribute_Error   : exception;		Set_Attribute_Error   : exception;
Invalid_Handle_Error  : exception;		Invalid_Handle_Error  : exception;
Fill_Attribute_Error  : exception;		Fill_Attribute_Error  : exception;
Cursor_Position_Error : exception;		Cursor_Position_Error : exception;
subtype DWORD  is  Unsigned_32;		subtype DWORD  is  Unsigned_32;
subtype HANDLE is  Unsigned_32;		subtype HANDLE is  Unsigned_32;
	-+	subtype WORD   is  Unsigned_16;
subtype SHORT  is  Short_Integer;	=	subtype SHORT  is  Short_Integer;
subtype WINBOOL is Integer;		subtype WINBOOL is Integer;
type LPDWORD is access all DWORD;		type LPDWORD is access all DWORD;
pragma Convention (C, LPDWORD);		pragma Convention (C, LPDWORD);
type Nibble is mod 2 ** 4;		type Nibble is mod 2 ** 4;
for Nibble'Size use 4;		for Nibble'Size use 4;
type Attribute is		type Attribute is
record		record
Foreground : Nibble;		Foreground : Nibble;
Background : Nibble;		Background : Nibble;
Reserved   : Unsigned_8 := 0;		Reserved   : Unsigned_8 := 0;
end record;		end record;
for Attribute use		for Attribute use
record		record
Foreground at 0 range 0 .. 3;		Foreground at 0 range 0 .. 3;
Background at 0 range 4 .. 7;		Background at 0 range 4 .. 7;
Reserved   at 1 range 0 .. 7;		Reserved   at 1 range 0 .. 7;
end record;		end record;
for Attribute'Size use 16;		for Attribute'Size use 16;
pragma Convention (C, Attribute);		pragma Convention (C, Attribute);
type COORD is		type COORD is
record		record
X : SHORT;		X : SHORT;
Y : SHORT;		Y : SHORT;
end record;		end record;
pragma Convention (C, COORD);		pragma Convention (C, COORD);
type SMALL_RECT is		type SMALL_RECT is
record		record
Left   : SHORT;		Left   : SHORT;
Top    : SHORT;		Top    : SHORT;
Right  : SHORT;		Right  : SHORT;
Bottom : SHORT;		Bottom : SHORT;
end record;		end record;
pragma Convention (C, SMALL_RECT);		pragma Convention (C, SMALL_RECT);
type CONSOLE_SCREEN_BUFFER_INFO is		type CONSOLE_SCREEN_BUFFER_INFO is
record		record
Size       : COORD;		Size       : COORD;
Cursor_Pos : COORD;		Cursor_Pos : COORD;
Attrib     : Attribute;		Attrib     : Attribute;
Window     : SMALL_RECT;		Window     : SMALL_RECT;
Max_Size   : COORD;		Max_Size   : COORD;
end record;		end record;
pragma Convention (C, CONSOLE_SCREEN_BUFFER_INFO);		pragma Convention (C, CONSOLE_SCREEN_BUFFER_INFO);
type PCONSOLE_SCREEN_BUFFER_INFO is access all CONSOLE_SCREEN_BUFFER_INFO;		type PCONSOLE_SCREEN_BUFFER_INFO is access all CONSOLE_SCREEN_BUFFER_INFO;
pragma Convention (C, PCONSOLE_SCREEN_BUFFER_INFO);		pragma Convention (C, PCONSOLE_SCREEN_BUFFER_INFO);
type CONSOLE_CURSOR_INFO is		type CONSOLE_CURSOR_INFO is
record		record
Size    : DWORD;		Size    : DWORD;
Visible : WINBOOL;		Visible : WINBOOL;
end record;		end record;
pragma Convention (C, CONSOLE_CURSOR_INFO);		pragma Convention (C, CONSOLE_CURSOR_INFO);
type PCONSOLE_CURSOR_INFO is access all CONSOLE_CURSOR_INFO;		type PCONSOLE_CURSOR_INFO is access all CONSOLE_CURSOR_INFO;
pragma Convention (C, PCONSOLE_CURSOR_INFO);		pragma Convention (C, PCONSOLE_CURSOR_INFO);
function GetCh return Integer;		function GetCh return Integer;
pragma Import (C, GetCh, "_getch");		pragma Import (C, GetCh, "_getch");
procedure FlushCh;	+-
pragma Import (C, FlushCh, "_getch");
	=
function KbHit return Integer;		function KbHit return Integer;
pragma Import (C, KbHit, "_kbhit");		pragma Import (C, KbHit, "_kbhit");
function MessageBeep (Kind : DWORD) return DWORD;		function MessageBeep (Kind : DWORD) return DWORD;
pragma Import (StdCall, MessageBeep, "MessageBeep");		pragma Import (StdCall, MessageBeep, "MessageBeep");
function GetStdHandle (Value : DWORD) return HANDLE;		function GetStdHandle (Value : DWORD) return HANDLE;
pragma Import (StdCall, GetStdHandle, "GetStdHandle");		pragma Import (StdCall, GetStdHandle, "GetStdHandle");
function GetConsoleCursorInfo (Buffer : HANDLE; Cursor : PCONSOLE_CURSOR_INFO) return WINBOOL;		function GetConsoleCursorInfo (Buffer : HANDLE; Cursor : PCONSOLE_CURSOR_INFO) return WINBOOL;
pragma Import (StdCall, GetConsoleCursorInfo, "GetConsoleCursorInfo");		pragma Import (StdCall, GetConsoleCursorInfo, "GetConsoleCursorInfo");
function SetConsoleCursorInfo (Buffer : HANDLE; Cursor : PCONSOLE_CURSOR_INFO) return WINBOOL;		function SetConsoleCursorInfo (Buffer : HANDLE; Cursor : PCONSOLE_CURSOR_INFO) return WINBOOL;
pragma Import (StdCall, SetConsoleCursorInfo, "SetConsoleCursorInfo");		pragma Import (StdCall, SetConsoleCursorInfo, "SetConsoleCursorInfo");
function SetConsoleCursorPosition (Buffer : HANDLE; Pos : COORD) return DWORD;		function SetConsoleCursorPosition (Buffer : HANDLE; Pos : COORD) return DWORD;
pragma Import (StdCall, SetConsoleCursorPosition, "SetConsoleCursorPosition");		pragma Import (StdCall, SetConsoleCursorPosition, "SetConsoleCursorPosition");
function SetConsoleTextAttribute (Buffer : HANDLE; Attr : Attribute) return DWORD;		function SetConsoleTextAttribute (Buffer : HANDLE; Attr : Attribute) return DWORD;
pragma Import (StdCall, SetConsoleTextAttribute, "SetConsoleTextAttribute");		pragma Import (StdCall, SetConsoleTextAttribute, "SetConsoleTextAttribute");
function GetConsoleScreenBufferInfo (Buffer : HANDLE; Info : PCONSOLE_SCREEN_BUFFER_INFO) return DWORD;		function GetConsoleScreenBufferInfo (Buffer : HANDLE; Info : PCONSOLE_SCREEN_BUFFER_INFO) return DWORD;
pragma Import (StdCall, GetConsoleScreenBufferInfo, "GetConsoleScreenBufferInfo");		pragma Import (StdCall, GetConsoleScreenBufferInfo, "GetConsoleScreenBufferInfo");
function FillConsoleOutputCharacter (Console : HANDLE; Char : Character; Length : DWORD; Start : COORD; Written : LPDWORD) return DWORD;		function FillConsoleOutputCharacter (Console : HANDLE; Char : Character; Length : DWORD; Start : COORD; Written : LPDWORD) return DWORD;
pragma Import (Stdcall, FillConsoleOutputCharacter, "FillConsoleOutputCharacterA");		pragma Import (Stdcall, FillConsoleOutputCharacter, "FillConsoleOutputCharacterA");
function FillConsoleOutputAttribute (Console : Handle; Attr : Attribute; Length : DWORD; Start : COORD; Written : LPDWORD) return DWORD;		function FillConsoleOutputAttribute (Console : Handle; Attr : Attribute; Length : DWORD; Start : COORD; Written : LPDWORD) return DWORD;
pragma Import (Stdcall, FillConsoleOutputAttribute, "FillConsoleOutputAttribute");		pragma Import (Stdcall, FillConsoleOutputAttribute, "FillConsoleOutputAttribute");
WIN32_ERROR          : constant DWORD  := 0;		WIN32_ERROR          : constant DWORD  := 0;
INVALID_HANDLE_VALUE : constant HANDLE := -1;		INVALID_HANDLE_VALUE : constant HANDLE := -1;
STD_OUTPUT_HANDLE    : constant DWORD  := -11;		STD_OUTPUT_HANDLE    : constant DWORD  := -11;
Color_Value      : constant array (Color_Type) of Nibble := (0, 1, 2, 3, 4, 5, 6, 7, 9, 10, 11, 12, 13, 14, 15);		Color_Value      : constant array (Color_Type) of Nibble := (0, 1, 2, 3, 4, 5, 6, 7, 9, 10, 11, 12, 13, 14, 15);
Color_Type_Value : constant array (Nibble) of Color_Type :=		Color_Type_Value : constant array (Nibble) of Color_Type :=
(Black, Blue, Green, Cyan, Red, Magenta, Brown, Gray,		(Black, Blue, Green, Cyan, Red, Magenta, Brown, Gray,
Black, Light_Blue, Light_Green, Light_Cyan, Light_Red,		Black, Light_Blue, Light_Green, Light_Cyan, Light_Red,
Light_Magenta, Yellow, White);		Light_Magenta, Yellow, White);
-----------------------		-----------------------
-- PACKAGE VARIABLES --		-- PACKAGE VARIABLES --
-----------------------		-----------------------
Output_Buffer    : HANDLE;		Output_Buffer    : HANDLE;
Num_Bytes        : aliased DWORD;		Num_Bytes        : aliased DWORD;
Num_Bytes_Access : constant LPDWORD := Num_Bytes'Access;	<>	Num_Bytes_Access : LPDWORD := Num_Bytes'Access;
Buffer_Info_Rec  : aliased CONSOLE_SCREEN_BUFFER_INFO;	=	Buffer_Info_Rec  : aliased CONSOLE_SCREEN_BUFFER_INFO;
Buffer_Info      : constant PCONSOLE_SCREEN_BUFFER_INFO := Buffer_Info_Rec'Access;	<>	Buffer_Info      : PCONSOLE_SCREEN_BUFFER_INFO := Buffer_Info_Rec'Access;
	=
-------------------------		-------------------------
-- SUPPORTING SERVICES --		-- SUPPORTING SERVICES --
-------------------------		-------------------------
procedure Get_Buffer_Info is		procedure Get_Buffer_Info is
begin		begin
if GetConsoleScreenBufferInfo (Output_Buffer, Buffer_Info) = WIN32_ERROR then		if GetConsoleScreenBufferInfo (Output_Buffer, Buffer_Info) = WIN32_ERROR then
raise Buffer_Info_Error;		raise Buffer_Info_Error;
end if;		end if;
end Get_Buffer_Info;		end Get_Buffer_Info;
--------------------		--------------------
-- CURSOR CONTROL --		-- CURSOR CONTROL --
--------------------		--------------------
function  Cursor_Visible return Boolean is		function  Cursor_Visible return Boolean is
Cursor : aliased CONSOLE_CURSOR_INFO;		Cursor : aliased CONSOLE_CURSOR_INFO;
begin		begin
if GetConsoleCursorInfo (Output_Buffer, Cursor'Unchecked_Access) = 0 then		if GetConsoleCursorInfo (Output_Buffer, Cursor'Unchecked_Access) = 0 then
raise Cursor_Get_Error;		raise Cursor_Get_Error;
end if;		end if;
return Cursor.Visible = 1;		return Cursor.Visible = 1;
end Cursor_Visible;		end Cursor_Visible;
procedure Set_Cursor (Visible : in Boolean) is		procedure Set_Cursor (Visible : in Boolean) is
Cursor : aliased CONSOLE_CURSOR_INFO;		Cursor : aliased CONSOLE_CURSOR_INFO;
begin		begin
if GetConsoleCursorInfo (Output_Buffer, Cursor'Unchecked_Access) = 0 then		if GetConsoleCursorInfo (Output_Buffer, Cursor'Unchecked_Access) = 0 then
raise Cursor_Get_Error;		raise Cursor_Get_Error;
end if;		end if;
if Visible then	<>	if Visible = True then
Cursor.Visible := 1;	=	Cursor.Visible := 1;
else		else
Cursor.Visible := 0;		Cursor.Visible := 0;
end if;		end if;
if SetConsoleCursorInfo (Output_Buffer, Cursor'Unchecked_Access) = 0 then		if SetConsoleCursorInfo (Output_Buffer, Cursor'Unchecked_Access) = 0 then
raise Cursor_Set_Error;		raise Cursor_Set_Error;
end if;		end if;
end Set_Cursor;		end Set_Cursor;
function Where_X return X_Pos is		function Where_X return X_Pos is
begin		begin
Get_Buffer_Info;		Get_Buffer_Info;
return X_Pos (Buffer_Info_Rec.Cursor_Pos.X);		return X_Pos (Buffer_Info_Rec.Cursor_Pos.X);
end Where_X;		end Where_X;
function Where_Y return Y_Pos is		function Where_Y return Y_Pos is
begin		begin
Get_Buffer_Info;		Get_Buffer_Info;
return Y_Pos (Buffer_Info_Rec.Cursor_Pos.Y);		return Y_Pos (Buffer_Info_Rec.Cursor_Pos.Y);
end Where_Y;		end Where_Y;
procedure Goto_XY		procedure Goto_XY
(X : in X_Pos := X_Pos'First;		(X : in X_Pos := X_Pos'First;
Y : in Y_Pos := Y_Pos'First) is		Y : in Y_Pos := Y_Pos'First) is
New_Pos : COORD := (SHORT (X), SHORT (Y));		New_Pos : COORD := (SHORT (X), SHORT (Y));
begin		begin
Get_Buffer_Info;		Get_Buffer_Info;
if New_Pos.X > Buffer_Info_Rec.Size.X then		if New_Pos.X > Buffer_Info_Rec.Size.X then
New_Pos.X := Buffer_Info_Rec.Size.X;		New_Pos.X := Buffer_Info_Rec.Size.X;
end if;		end if;
if New_Pos.Y > Buffer_Info_Rec.Size.Y then		if New_Pos.Y > Buffer_Info_Rec.Size.Y then
New_Pos.Y := Buffer_Info_Rec.Size.Y;		New_Pos.Y := Buffer_Info_Rec.Size.Y;
end if;		end if;
if SetConsoleCursorPosition (Output_Buffer, New_Pos) = WIN32_ERROR then		if SetConsoleCursorPosition (Output_Buffer, New_Pos) = WIN32_ERROR then
raise Cursor_Pos_Error;		raise Cursor_Pos_Error;
end if;		end if;
end Goto_XY;		end Goto_XY;
-------------------		-------------------
-- COLOR CONTROL --		-- COLOR CONTROL --
-------------------		-------------------
function Get_Foreground return Color_Type is		function Get_Foreground return Color_Type is
begin		begin
Get_Buffer_Info;		Get_Buffer_Info;
return Color_Type_Value (Buffer_Info_Rec.Attrib.Foreground);		return Color_Type_Value (Buffer_Info_Rec.Attrib.Foreground);
end Get_Foreground;		end Get_Foreground;
function Get_Background return Color_Type is		function Get_Background return Color_Type is
begin		begin
Get_Buffer_Info;		Get_Buffer_Info;
return Color_Type_Value (Buffer_Info_Rec.Attrib.Background);		return Color_Type_Value (Buffer_Info_Rec.Attrib.Background);
end Get_Background;		end Get_Background;
procedure Set_Foreground (Color : in Color_Type := Gray) is		procedure Set_Foreground (Color : in Color_Type := Gray) is
Attr : Attribute;		Attr : Attribute;
begin		begin
Get_Buffer_Info;		Get_Buffer_Info;
Attr.Foreground := Color_Value (Color);		Attr.Foreground := Color_Value (Color);
Attr.Background := Buffer_Info_Rec.Attrib.Background;		Attr.Background := Buffer_Info_Rec.Attrib.Background;
if SetConsoleTextAttribute (Output_Buffer, Attr) = WIN32_ERROR then		if SetConsoleTextAttribute (Output_Buffer, Attr) = WIN32_ERROR then
raise Set_Attribute_Error;		raise Set_Attribute_Error;
end if;		end if;
end Set_Foreground;		end Set_Foreground;
procedure Set_Background (Color : in Color_Type := Black) is		procedure Set_Background (Color : in Color_Type := Black) is
Attr : Attribute;		Attr : Attribute;
begin		begin
Get_Buffer_Info;		Get_Buffer_Info;
Attr.Foreground := Buffer_Info_Rec.Attrib.Foreground;		Attr.Foreground := Buffer_Info_Rec.Attrib.Foreground;
Attr.Background := Color_Value (Color);		Attr.Background := Color_Value (Color);
if SetConsoleTextAttribute (Output_Buffer, Attr) = WIN32_ERROR then		if SetConsoleTextAttribute (Output_Buffer, Attr) = WIN32_ERROR then
raise Set_Attribute_Error;		raise Set_Attribute_Error;
end if;		end if;
end Set_Background;		end Set_Background;
--------------------		--------------------
-- SCREEN CONTROL --		-- SCREEN CONTROL --
--------------------		--------------------
procedure Clear_Screen (Color : in Color_Type := Black) is		procedure Clear_Screen (Color : in Color_Type := Black) is
Length : DWORD;		Length : DWORD;
Attr   : Attribute;		Attr   : Attribute;
Home   : constant COORD := (0, 0);	<>	Home   : COORD := (0, 0);
begin	=	begin
Get_Buffer_Info;		Get_Buffer_Info;
Length := DWORD (Buffer_Info_Rec.Size.X) * DWORD (Buffer_Info_Rec.Size.Y);		Length := DWORD (Buffer_Info_Rec.Size.X) * DWORD (Buffer_Info_Rec.Size.Y);
Attr.Background := Color_Value (Color);		Attr.Background := Color_Value (Color);
Attr.Foreground := Buffer_Info_Rec.Attrib.Foreground;		Attr.Foreground := Buffer_Info_Rec.Attrib.Foreground;
if SetConsoleTextAttribute (Output_Buffer, Attr) = WIN32_ERROR then		if SetConsoleTextAttribute (Output_Buffer, Attr) = WIN32_ERROR then
raise Set_Attribute_Error;		raise Set_Attribute_Error;
end if;		end if;
if FillConsoleOutputAttribute (Output_Buffer, Attr, Length, Home, Num_Bytes_Access) = WIN32_ERROR then		if FillConsoleOutputAttribute (Output_Buffer, Attr, Length, Home, Num_Bytes_Access) = WIN32_ERROR then
raise Fill_Attribute_Error;		raise Fill_Attribute_Error;
end if;		end if;
if FillConsoleOutputCharacter (Output_Buffer, ' ', Length, Home, Num_Bytes_Access) = WIN32_ERROR then		if FillConsoleOutputCharacter (Output_Buffer, ' ', Length, Home, Num_Bytes_Access) = WIN32_ERROR then
raise Fill_Char_Error;		raise Fill_Char_Error;
end if;		end if;
if SetConsoleCursorPosition (Output_Buffer, Home) = WIN32_ERROR then		if SetConsoleCursorPosition (Output_Buffer, Home) = WIN32_ERROR then
raise Cursor_Position_Error;		raise Cursor_Position_Error;
end if;		end if;
end Clear_Screen;		end Clear_Screen;
-------------------		-------------------
-- SOUND CONTROL --		-- SOUND CONTROL --
-------------------		-------------------
procedure Bleep is		procedure Bleep is
begin		begin
if MessageBeep (16#FFFFFFFF#) = WIN32_ERROR then		if MessageBeep (16#FFFFFFFF#) = WIN32_ERROR then
raise Beep_Error;		raise Beep_Error;
end if;		end if;
end Bleep;		end Bleep;
-------------------		-------------------
-- INPUT CONTROL --		-- INPUT CONTROL --
-------------------		-------------------
function Get_Key return Character is		function Get_Key return Character is
Temp : Integer;		Temp : Integer;
begin		begin
Temp := GetCh;		Temp := GetCh;
if Temp = 16#00E0# then		if Temp = 16#00E0# then
Temp := 0;		Temp := 0;
end if;		end if;
return Character'Val (Temp);		return Character'Val (Temp);
end Get_Key;		end Get_Key;
function Key_Available return Boolean is		function Key_Available return Boolean is
begin		begin
if KbHit = 0 then		if KbHit = 0 then
return False;		return False;
else		else
return True;		return True;
end if;		end if;
end Key_Available;		end Key_Available;
procedure Wait_For_Any_Key is	+-
begin
loop
if Key_Available then
while (Key_Available)
loop
FlushCh;
end loop;
exit;
else
delay 0.1;
end if;
end loop;
end Wait_For_Any_Key;
	=
begin		begin
--------------------------		--------------------------
-- WIN32 INITIALIZATION --		-- WIN32 INITIALIZATION --
--------------------------		--------------------------
Output_Buffer := GetStdHandle (STD_OUTPUT_HANDLE);		Output_Buffer := GetStdHandle (STD_OUTPUT_HANDLE);
if Output_Buffer = INVALID_HANDLE_VALUE then		if Output_Buffer = INVALID_HANDLE_VALUE then
raise Invalid_Handle_Error;		raise Invalid_Handle_Error;
end if;		end if;
end NT_Console;		end NT_Console;