blob: 7adea2d8fb647168dff54d9bf546c4dc865f57d0 [file] [log] [blame]
------------------------------------------------------------------------------
-- --
-- GNAT RUN-TIME COMPONENTS --
-- --
-- S Y S T E M . W I N 3 2 . E X T --
-- --
-- S p e c --
-- --
-- Copyright (C) 2009-2022, Free Software Foundation, Inc. --
-- --
-- GNAT is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- --
-- ware Foundation; either version 3, or (at your option) any later ver- --
-- sion. GNAT is distributed in the hope that it will be useful, but WITH- --
-- OUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY --
-- or FITNESS FOR A PARTICULAR PURPOSE. --
-- --
-- As a special exception under Section 7 of GPL version 3, you are granted --
-- additional permissions described in the GCC Runtime Library Exception, --
-- version 3.1, as published by the Free Software Foundation. --
-- --
-- You should have received a copy of the GNU General Public License and --
-- a copy of the GCC Runtime Library Exception along with this program; --
-- see the files COPYING3 and COPYING.RUNTIME respectively. If not, see --
-- <http://www.gnu.org/licenses/>. --
-- --
-- GNAT was originally developed by the GNAT team at New York University. --
-- Extensive contributions were provided by Ada Core Technologies Inc. --
-- --
------------------------------------------------------------------------------
-- This package provides the part of the low level Win32 interface which is
-- not supported by RTX (but supported by regular Windows platforms).
package System.Win32.Ext is
pragma Pure;
---------------------
-- Time Management --
---------------------
function QueryPerformanceFrequency
(lpFrequency : access LARGE_INTEGER) return Win32.BOOL;
pragma Import
(Stdcall, QueryPerformanceFrequency, "QueryPerformanceFrequency");
---------------
-- Processor --
---------------
function SetThreadIdealProcessor
(hThread : HANDLE;
dwIdealProcessor : ProcessorId) return DWORD;
pragma Import (Stdcall, SetThreadIdealProcessor, "SetThreadIdealProcessor");
function SetThreadAffinityMask
(hThread : HANDLE;
dwThreadAffinityMask : DWORD) return DWORD;
pragma Import (Stdcall, SetThreadAffinityMask, "SetThreadAffinityMask");
--------------
-- Com Port --
--------------
DTR_CONTROL_DISABLE : constant := 16#0#;
RTS_CONTROL_DISABLE : constant := 16#0#;
NOPARITY : constant := 0;
ODDPARITY : constant := 1;
EVENPARITY : constant := 2;
ONESTOPBIT : constant := 0;
TWOSTOPBITS : constant := 2;
type DCB is record
DCBLENGTH : DWORD;
BaudRate : DWORD;
fBinary : Bits1;
fParity : Bits1;
fOutxCtsFlow : Bits1;
fOutxDsrFlow : Bits1;
fDtrControl : Bits2;
fDsrSensitivity : Bits1;
fTXContinueOnXoff : Bits1;
fOutX : Bits1;
fInX : Bits1;
fErrorChar : Bits1;
fNull : Bits1;
fRtsControl : Bits2;
fAbortOnError : Bits1;
fDummy2 : Bits17;
wReserved : WORD;
XonLim : WORD;
XoffLim : WORD;
ByteSize : BYTE;
Parity : BYTE;
StopBits : BYTE;
XonChar : CHAR;
XoffChar : CHAR;
ErrorChar : CHAR;
EofChar : CHAR;
EvtChar : CHAR;
wReserved1 : WORD;
end record;
pragma Convention (C, DCB);
pragma Pack (DCB);
type COMMTIMEOUTS is record
ReadIntervalTimeout : DWORD;
ReadTotalTimeoutMultiplier : DWORD;
ReadTotalTimeoutConstant : DWORD;
WriteTotalTimeoutMultiplier : DWORD;
WriteTotalTimeoutConstant : DWORD;
end record;
pragma Convention (C, COMMTIMEOUTS);
function GetCommState
(hFile : HANDLE;
lpDCB : access DCB) return BOOL;
pragma Import (Stdcall, GetCommState, "GetCommState");
function SetCommState
(hFile : HANDLE;
lpDCB : access DCB) return BOOL;
pragma Import (Stdcall, SetCommState, "SetCommState");
function SetCommTimeouts
(hFile : HANDLE;
lpCommTimeouts : access COMMTIMEOUTS) return BOOL;
pragma Import (Stdcall, SetCommTimeouts, "SetCommTimeouts");
end System.Win32.Ext;