Module winlean

This module implements a small wrapper for some needed Win API procedures, so that the Nim compiler does not depend on the huge Windows module.

Imports

dynlib

Types

WinChar = Utf16Char

Handle = int

LONG = int32

ULONG = int32

PULONG = ptr int

WINBOOL = int32

DWORD = int32

PDWORD = ptr DWORD

LPINT = ptr int32

ULONG_PTR = uint

PULONG_PTR = ptr uint

HDC = Handle

HGLRC = Handle

SECURITY_ATTRIBUTES {...}{.final, pure.} = object
  nLength*: int32
  lpSecurityDescriptor*: pointer
  bInheritHandle*: WINBOOL

STARTUPINFO {...}{.final, pure.} = object
  cb*: int32
  lpReserved*: cstring
  lpDesktop*: cstring
  lpTitle*: cstring
  dwX*: int32
  dwY*: int32
  dwXSize*: int32
  dwYSize*: int32
  dwXCountChars*: int32
  dwYCountChars*: int32
  dwFillAttribute*: int32
  dwFlags*: int32
  wShowWindow*: int16
  cbReserved2*: int16
  lpReserved2*: pointer
  hStdInput*: Handle
  hStdOutput*: Handle
  hStdError*: Handle

PROCESS_INFORMATION {...}{.final, pure.} = object
  hProcess*: Handle
  hThread*: Handle
  dwProcessId*: int32
  dwThreadId*: int32

FILETIME {...}{.final, pure.} = object
  dwLowDateTime*: DWORD
  dwHighDateTime*: DWORD

CANNOT BE int64 BECAUSE OF ALIGNMENT

BY_HANDLE_FILE_INFORMATION {...}{.final, pure.} = object
  dwFileAttributes*: DWORD
  ftCreationTime*: FILETIME
  ftLastAccessTime*: FILETIME
  ftLastWriteTime*: FILETIME
  dwVolumeSerialNumber*: DWORD
  nFileSizeHigh*: DWORD
  nFileSizeLow*: DWORD
  nNumberOfLinks*: DWORD
  nFileIndexHigh*: DWORD
  nFileIndexLow*: DWORD

OSVERSIONINFO {...}{.final, pure.} = object
  dwOSVersionInfoSize*: DWORD
  dwMajorVersion*: DWORD
  dwMinorVersion*: DWORD
  dwBuildNumber*: DWORD
  dwPlatformId*: DWORD
  szCSDVersion*: array[0 .. 127, WinChar]

WIN32_FIND_DATA {...}{.pure.} = object
  dwFileAttributes*: int32
  ftCreationTime*: FILETIME
  ftLastAccessTime*: FILETIME
  ftLastWriteTime*: FILETIME
  nFileSizeHigh*: int32
  nFileSizeLow*: int32
  dwReserved0: int32
  dwReserved1: int32
  cFileName*: array[0 .. 260 - 1, WinChar]
  cAlternateFileName*: array[0 .. 13, WinChar]

SocketHandle = distinct int

WSAData {...}{.importc: "WSADATA", header: "winsock2.h".} = object
  wVersion, wHighVersion: int16
  szDescription: array[0 .. WSADESCRIPTION_LEN, char]
  szSystemStatus: array[0 .. WSASYS_STATUS_LEN, char]
  iMaxSockets, iMaxUdpDg: int16
  lpVendorInfo: cstring

SockAddr {...}{.importc: "SOCKADDR", header: "winsock2.h".} = object
  sa_family*: uint16
  sa_data*: array[0 .. 13, char]

InAddr {...}{.importc: "IN_ADDR", header: "winsock2.h".} = object
  s_addr*: uint32

Sockaddr_in {...}{.importc: "SOCKADDR_IN", header: "winsock2.h".} = object
  sin_family*: uint16
  sin_port*: uint16
  sin_addr*: InAddr
  sin_zero*: array[0 .. 7, char]

In6_addr {...}{.importc: "IN6_ADDR", header: "winsock2.h".} = object
  bytes* {...}{.importc: "u.Byte".}: array[0 .. 15, char]

Sockaddr_in6 {...}{.importc: "SOCKADDR_IN6", header: "ws2tcpip.h".} = object
  sin6_family*: uint16
  sin6_port*: uint16
  sin6_flowinfo*: int32
  sin6_addr*: In6_addr
  sin6_scope_id*: int32

Sockaddr_in6_old = object
  sin6_family*: uint16
  sin6_port*: int16
  sin6_flowinfo*: int32
  sin6_addr*: In6_addr

Sockaddr_storage {...}{.importc: "SOCKADDR_STORAGE", header: "winsock2.h".} = object
  ss_family*: uint16
  ss_pad1: array[6, byte]
  ss_align: int64
  ss_pad2: array[112, byte]

Servent = object
  s_name*: cstring
  s_aliases*: cstringArray
  when defined(cpu64):
      s_proto*: cstring
      s_port*: int16

  else:
      s_port*: int16
      s_proto*: cstring

Hostent = object
  h_name*: cstring
  h_aliases*: cstringArray
  h_addrtype*: int16
  h_length*: int16
  h_addr_list*: cstringArray

TFdSet = object
  fd_count*: cint
  fd_array*: array[0 .. 64 - 1, SocketHandle]

Timeval = object
  tv_sec*, tv_usec*: int32

AddrInfo = object
  ai_flags*: cint
  ai_family*: cint             ## Address family of socket.
  ai_socktype*: cint           ## Socket type.
  ai_protocol*: cint           ## Protocol of socket.
  ai_addrlen*: csize           ## Length of socket address.
  ai_canonname*: cstring       ## Canonical name of service location.
  ai_addr*: ptr SockAddr        ## Socket address of socket.
  ai_next*: ptr AddrInfo        ## Pointer to next in list.

Input flags.

SockLen = cuint

WOHandleArray = array[0 .. 0x00000040 - 1, Handle]

PWOHandleArray = ptr WOHandleArray

OVERLAPPED {...}{.pure, inheritable.} = object
  internal*: PULONG
  internalHigh*: PULONG
  offset*: DWORD
  offsetHigh*: DWORD
  hEvent*: Handle

POVERLAPPED = ptr OVERLAPPED

POVERLAPPED_COMPLETION_ROUTINE = proc (para1: DWORD; para2: DWORD; para3: POVERLAPPED) {...}{.
    stdcall.}

GUID {...}{.final, pure.} = object
  D1*: int32
  D2*: int16
  D3*: int16
  D4*: array[0 .. 7, int8]

TWSABuf {...}{.importc: "WSABUF", header: "winsock2.h".} = object
  len*: ULONG
  buf*: cstring

WSAPROC_ACCEPTEX = proc (sListenSocket: SocketHandle; sAcceptSocket: SocketHandle;
                      lpOutputBuffer: pointer; dwReceiveDataLength: DWORD;
                      dwLocalAddressLength: DWORD; dwRemoteAddressLength: DWORD;
                      lpdwBytesReceived: ptr DWORD; lpOverlapped: POVERLAPPED): bool {...}{.
    stdcall, gcsafe.}

WSAPROC_CONNECTEX = proc (s: SocketHandle; name: ptr SockAddr; namelen: cint;
                       lpSendBuffer: pointer; dwSendDataLength: DWORD;
                       lpdwBytesSent: ptr DWORD; lpOverlapped: POVERLAPPED): bool {...}{.
    stdcall, gcsafe.}

WSAPROC_GETACCEPTEXSOCKADDRS = proc (lpOutputBuffer: pointer;
                                  dwReceiveDataLength: DWORD;
                                  dwLocalAddressLength: DWORD;
                                  dwRemoteAddressLength: DWORD;
                                  LocalSockaddr: ptr PSockAddr;
                                  LocalSockaddrLength: ptr cint;
                                  RemoteSockaddr: ptr PSockAddr;
                                  RemoteSockaddrLength: ptr cint) {...}{.stdcall, gcsafe.}

WAITORTIMERCALLBACK = proc (para1: pointer; para2: int32): void {...}{.stdcall.}

KEY_EVENT_RECORD {...}{.final, pure.} = object
  eventType*: int16
  bKeyDown*: WINBOOL
  wRepeatCount*: int16
  wVirtualKeyCode*: int16
  wVirtualScanCode*: int16
  uChar*: int16
  dwControlKeyState*: DWORD

LPFIBER_START_ROUTINE = proc (param: pointer): void {...}{.stdcall.}

LPFILETIME = ptr FILETIME

Vars

SOMAXCONN: cint

INVALID_SOCKET: SocketHandle

SOL_SOCKET: cint

SO_DEBUG: cint

turn on debugging info recording

SO_ACCEPTCONN: cint

SO_REUSEADDR: cint

SO_REUSEPORT: cint

SO_KEEPALIVE: cint

SO_DONTROUTE: cint

SO_BROADCAST: cint

SO_USELOOPBACK: cint

SO_LINGER: cint

SO_OOBINLINE: cint

SO_DONTLINGER: cint

SO_EXCLUSIVEADDRUSE: cint

SO_ERROR: cint

TCP_NODELAY: cint

WSAID_CONNECTEX: GUID = GUID(D1: 0x25A207B9, D2: 0xDDF3'i16, D3: 0x00004660, D4: [0x8E'i8,
    0xE9'i8, 0x76'i8, 0xE5'i8, 0x8C'i8, 0x74'i8, 0x06'i8, 0x3E'i8])

WSAID_ACCEPTEX: GUID = GUID(D1: 0xB5367DF1'i32, D2: 0xCBAC'i16, D3: 0x000011CF, D4: [
    0x95'i8, 0xCA'i8, 0x00'i8, 0x80'i8, 0x5F'i8, 0x48'i8, 0xA1'i8, 0x92'i8])

WSAID_GETACCEPTEXSOCKADDRS: GUID = GUID(D1: 0xB5367DF2'i32, D2: 0xCBAC'i16,
                                     D3: 0x000011CF, D4: [0x95'i8, 0xCA'i8, 0x00'i8,
    0x80'i8, 0x5F'i8, 0x48'i8, 0xA1'i8, 0x92'i8])

Consts

useWinUnicode = true

STARTF_USESHOWWINDOW = 1'i32

STARTF_USESTDHANDLES = 256'i32

HIGH_PRIORITY_CLASS = 128'i32

IDLE_PRIORITY_CLASS = 64'i32

NORMAL_PRIORITY_CLASS = 32'i32

REALTIME_PRIORITY_CLASS = 256'i32

WAIT_OBJECT_0 = 0'i32

WAIT_TIMEOUT = 0x00000102'i32

WAIT_FAILED = 0xFFFFFFFF'i32

INFINITE = -1

STILL_ACTIVE = 0x00000103'i32

STD_INPUT_HANDLE = -10

STD_OUTPUT_HANDLE = -11

STD_ERROR_HANDLE = -12

DETACHED_PROCESS = 8'i32

SW_SHOWNORMAL = 1'i32

INVALID_HANDLE_VALUE = -1

CREATE_UNICODE_ENVIRONMENT = 1024'i32

PIPE_ACCESS_DUPLEX = 0x00000003'i32

PIPE_ACCESS_INBOUND = 1'i32

PIPE_ACCESS_OUTBOUND = 2'i32

PIPE_NOWAIT = 0x00000001'i32

SYNCHRONIZE = 0x00100000'i32

CREATE_NO_WINDOW = 0x08000000'i32

FILE_ATTRIBUTE_READONLY = 0x00000001'i32

FILE_ATTRIBUTE_HIDDEN = 0x00000002'i32

FILE_ATTRIBUTE_SYSTEM = 0x00000004'i32

FILE_ATTRIBUTE_DIRECTORY = 0x00000010'i32

FILE_ATTRIBUTE_ARCHIVE = 0x00000020'i32

FILE_ATTRIBUTE_DEVICE = 0x00000040'i32

FILE_ATTRIBUTE_NORMAL = 0x00000080'i32

FILE_ATTRIBUTE_TEMPORARY = 0x00000100'i32

FILE_ATTRIBUTE_SPARSE_FILE = 0x00000200'i32

FILE_ATTRIBUTE_REPARSE_POINT = 0x00000400'i32

FILE_ATTRIBUTE_COMPRESSED = 0x00000800'i32

FILE_ATTRIBUTE_OFFLINE = 0x00001000'i32

FILE_ATTRIBUTE_NOT_CONTENT_INDEXED = 0x00002000'i32

FILE_FLAG_FIRST_PIPE_INSTANCE = 0x00080000'i32

FILE_FLAG_OPEN_NO_RECALL = 0x00100000'i32

FILE_FLAG_OPEN_REPARSE_POINT = 0x00200000'i32

FILE_FLAG_POSIX_SEMANTICS = 0x01000000'i32

FILE_FLAG_BACKUP_SEMANTICS = 0x02000000'i32

FILE_FLAG_DELETE_ON_CLOSE = 0x04000000'i32

FILE_FLAG_SEQUENTIAL_SCAN = 0x08000000'i32

FILE_FLAG_RANDOM_ACCESS = 0x10000000'i32

FILE_FLAG_NO_BUFFERING = 0x20000000'i32

FILE_FLAG_OVERLAPPED = 0x40000000'i32

FILE_FLAG_WRITE_THROUGH = 0x80000000'i32

MAX_PATH = 260

MOVEFILE_COPY_ALLOWED = 0x00000002'i32

MOVEFILE_CREATE_HARDLINK = 0x00000010'i32

MOVEFILE_DELAY_UNTIL_REBOOT = 0x00000004'i32

MOVEFILE_FAIL_IF_NOT_TRACKABLE = 0x00000020'i32

MOVEFILE_REPLACE_EXISTING = 0x00000001'i32

MOVEFILE_WRITE_THROUGH = 0x00000008'i32

WSADESCRIPTION_LEN = 256

WSASYS_STATUS_LEN = 128

FD_SETSIZE = 64

MSG_PEEK = 2

INADDR_ANY = 0'u32

INADDR_LOOPBACK = 0x7F000001

INADDR_BROADCAST = -1

INADDR_NONE = -1

MAXIMUM_WAIT_OBJECTS = 0x00000040

GENERIC_READ = 0x80000000'i32

GENERIC_WRITE = 0x40000000'i32

GENERIC_ALL = 0x10000000'i32

FILE_SHARE_READ = 1'i32

FILE_SHARE_DELETE = 4'i32

FILE_SHARE_WRITE = 2'i32

CREATE_ALWAYS = 2'i32

CREATE_NEW = 1'i32

OPEN_EXISTING = 3'i32

OPEN_ALWAYS = 4'i32

FILE_BEGIN = 0'i32

INVALID_SET_FILE_POINTER = -1

NO_ERROR = 0'i32

PAGE_READONLY = 2'i32

PAGE_READWRITE = 4'i32

FILE_MAP_READ = 4'i32

FILE_MAP_WRITE = 2'i32

INVALID_FILE_SIZE = -1

DUPLICATE_SAME_ACCESS = 2

FILE_READ_DATA = 0x00000001

FILE_WRITE_DATA = 0x00000002

ERROR_FILE_NOT_FOUND = 2

ERROR_PATH_NOT_FOUND = 3

ERROR_ACCESS_DENIED = 5

ERROR_NO_MORE_FILES = 18

ERROR_LOCK_VIOLATION = 33

ERROR_HANDLE_EOF = 38

ERROR_BAD_ARGUMENTS = 165

ERROR_IO_PENDING = 997

WSAECONNABORTED = 10053

WSAEADDRINUSE = 10048

WSAECONNRESET = 10054

WSAEDISCON = 10101

WSAENETRESET = 10052

WSAETIMEDOUT = 10060

WSANOTINITIALISED = 10093

WSAENOTSOCK = 10038

WSAEINPROGRESS = 10036

WSAEINTR = 10004

WSAEWOULDBLOCK = 10035

ERROR_NETNAME_DELETED = 64

STATUS_PENDING = 0x00000103

IOC_OUT = 0x40000000

IOC_IN = 0x0000000080000000'i64

IOC_WS2 = 0x08000000

IOC_INOUT = 3221225472

SIO_GET_EXTENSION_FUNCTION_POINTER = 3355443206

SO_UPDATE_ACCEPT_CONTEXT = 0x0000700B

AI_V4MAPPED = 0x00000008

AF_UNSPEC = 0

AF_INET = 2

AF_INET6 = 23

WT_EXECUTEDEFAULT = 0x00000000'i32

WT_EXECUTEINIOTHREAD = 0x00000001'i32

WT_EXECUTEINUITHREAD = 0x00000002'i32

WT_EXECUTEINWAITTHREAD = 0x00000004'i32

WT_EXECUTEONLYONCE = 0x00000008'i32

WT_EXECUTELONGFUNCTION = 0x00000010'i32

WT_EXECUTEINTIMERTHREAD = 0x00000020'i32

WT_EXECUTEINPERSISTENTIOTHREAD = 0x00000040'i32

WT_EXECUTEINPERSISTENTTHREAD = 0x00000080'i32

WT_TRANSFER_IMPERSONATION = 0x00000100'i32

PROCESS_TERMINATE = 0x00000001'i32

PROCESS_CREATE_THREAD = 0x00000002'i32

PROCESS_SET_SESSIONID = 0x00000004'i32

PROCESS_VM_OPERATION = 0x00000008'i32

PROCESS_VM_READ = 0x00000010'i32

PROCESS_VM_WRITE = 0x00000020'i32

PROCESS_DUP_HANDLE = 0x00000040'i32

PROCESS_CREATE_PROCESS = 0x00000080'i32

PROCESS_SET_QUOTA = 0x00000100'i32

PROCESS_SET_INFORMATION = 0x00000200'i32

PROCESS_QUERY_INFORMATION = 0x00000400'i32

PROCESS_SUSPEND_RESUME = 0x00000800'i32

PROCESS_QUERY_LIMITED_INFORMATION = 0x00001000'i32

PROCESS_SET_LIMITED_INFORMATION = 0x00002000'i32

FD_READ = 0x00000001'i32

FD_WRITE = 0x00000002'i32

FD_OOB = 0x00000004'i32

FD_ACCEPT = 0x00000008'i32

FD_CONNECT = 0x00000010'i32

FD_CLOSE = 0x00000020'i32

FD_QQS = 0x00000040'i32

FD_GROUP_QQS = 0x00000080'i32

FD_ROUTING_INTERFACE_CHANGE = 0x00000100'i32

FD_ADDRESS_LIST_CHANGE = 0x00000200'i32

FD_ALL_EVENTS = 0x000003FF'i32

FIBER_FLAG_FLOAT_SWITCH = 0x00000001

Procs

proc getVersionExW(lpVersionInfo: ptr OSVERSIONINFO): WINBOOL {...}{.stdcall,
    dynlib: "kernel32", importc: "GetVersionExW".}

proc getVersion(): DWORD {...}{.stdcall, dynlib: "kernel32", importc: "GetVersion".}

proc closeHandle(hObject: Handle): WINBOOL {...}{.stdcall, dynlib: "kernel32",
    importc: "CloseHandle".}

proc readFile(hFile: Handle; Buffer: pointer; nNumberOfBytesToRead: int32;
             lpNumberOfBytesRead: ptr int32; lpOverlapped: pointer): WINBOOL {...}{.
    stdcall, dynlib: "kernel32", importc: "ReadFile".}

proc writeFile(hFile: Handle; Buffer: pointer; nNumberOfBytesToWrite: int32;
              lpNumberOfBytesWritten: ptr int32; lpOverlapped: pointer): WINBOOL {...}{.
    stdcall, dynlib: "kernel32", importc: "WriteFile".}

proc createPipe(hReadPipe, hWritePipe: var Handle;
               lpPipeAttributes: var SECURITY_ATTRIBUTES; nSize: int32): WINBOOL {...}{.
    stdcall, dynlib: "kernel32", importc: "CreatePipe".}

proc createNamedPipe(lpName: WideCString; dwOpenMode, dwPipeMode, nMaxInstances,
                                       nOutBufferSize, nInBufferSize,
                                       nDefaultTimeOut: int32;
                    lpSecurityAttributes: ptr SECURITY_ATTRIBUTES): Handle {...}{.
    stdcall, dynlib: "kernel32", importc: "CreateNamedPipeW".}

proc peekNamedPipe(hNamedPipe: Handle; lpBuffer: pointer = nil; nBufferSize: int32 = 0;
                  lpBytesRead: ptr int32 = nil; lpTotalBytesAvail: ptr int32 = nil;
                  lpBytesLeftThisMessage: ptr int32 = nil): bool {...}{.stdcall,
    dynlib: "kernel32", importc: "PeekNamedPipe".}

proc createProcessW(lpApplicationName, lpCommandLine: WideCString;
                   lpProcessAttributes: ptr SECURITY_ATTRIBUTES;
                   lpThreadAttributes: ptr SECURITY_ATTRIBUTES;
                   bInheritHandles: WINBOOL; dwCreationFlags: int32;
                   lpEnvironment, lpCurrentDirectory: WideCString;
                   lpStartupInfo: var STARTUPINFO;
                   lpProcessInformation: var PROCESS_INFORMATION): WINBOOL {...}{.
    stdcall, dynlib: "kernel32", importc: "CreateProcessW".}

proc suspendThread(hThread: Handle): int32 {...}{.stdcall, dynlib: "kernel32",
    importc: "SuspendThread".}

proc resumeThread(hThread: Handle): int32 {...}{.stdcall, dynlib: "kernel32",
                                        importc: "ResumeThread".}

proc waitForSingleObject(hHandle: Handle; dwMilliseconds: int32): int32 {...}{.stdcall,
    dynlib: "kernel32", importc: "WaitForSingleObject".}

proc terminateProcess(hProcess: Handle; uExitCode: int): WINBOOL {...}{.stdcall,
    dynlib: "kernel32", importc: "TerminateProcess".}

proc getExitCodeProcess(hProcess: Handle; lpExitCode: var int32): WINBOOL {...}{.stdcall,
    dynlib: "kernel32", importc: "GetExitCodeProcess".}

proc getStdHandle(nStdHandle: int32): Handle {...}{.stdcall, dynlib: "kernel32",
    importc: "GetStdHandle".}

proc setStdHandle(nStdHandle: int32; hHandle: Handle): WINBOOL {...}{.stdcall,
    dynlib: "kernel32", importc: "SetStdHandle".}

proc flushFileBuffers(hFile: Handle): WINBOOL {...}{.stdcall, dynlib: "kernel32",
    importc: "FlushFileBuffers".}

proc getLastError(): int32 {...}{.importc: "GetLastError", stdcall, dynlib: "kernel32".}

proc setLastError(error: int32) {...}{.importc: "SetLastError", stdcall, dynlib: "kernel32".}

proc formatMessageW(dwFlags: int32; lpSource: pointer;
                   dwMessageId, dwLanguageId: int32; lpBuffer: pointer; nSize: int32;
                   Arguments: pointer): int32 {...}{.importc: "FormatMessageW", stdcall,
    dynlib: "kernel32".}

proc localFree(p: pointer) {...}{.importc: "LocalFree", stdcall, dynlib: "kernel32".}

proc getCurrentDirectoryW(nBufferLength: int32; lpBuffer: WideCString): int32 {...}{.
    importc: "GetCurrentDirectoryW", dynlib: "kernel32", stdcall.}

proc setCurrentDirectoryW(lpPathName: WideCString): int32 {...}{.
    importc: "SetCurrentDirectoryW", dynlib: "kernel32", stdcall.}

proc createDirectoryW(pathName: WideCString; security: pointer = nil): int32 {...}{.
    importc: "CreateDirectoryW", dynlib: "kernel32", stdcall.}

proc removeDirectoryW(lpPathName: WideCString): int32 {...}{.importc: "RemoveDirectoryW",
    dynlib: "kernel32", stdcall.}

proc setEnvironmentVariableW(lpName, lpValue: WideCString): int32 {...}{.stdcall,
    dynlib: "kernel32", importc: "SetEnvironmentVariableW".}

proc getModuleFileNameW(handle: Handle; buf: WideCString; size: int32): int32 {...}{.
    importc: "GetModuleFileNameW", dynlib: "kernel32", stdcall.}

proc createSymbolicLinkW(lpSymlinkFileName, lpTargetFileName: WideCString;
                        flags: DWORD): int32 {...}{.importc: "CreateSymbolicLinkW",
    dynlib: "kernel32", stdcall.}

proc createHardLinkW(lpFileName, lpExistingFileName: WideCString;
                    security: pointer = nil): int32 {...}{.importc: "CreateHardLinkW",
    dynlib: "kernel32", stdcall.}

proc findFirstFileW(lpFileName: WideCString; lpFindFileData: var WIN32_FIND_DATA): Handle {...}{.
    stdcall, dynlib: "kernel32", importc: "FindFirstFileW".}

proc findNextFileW(hFindFile: Handle; lpFindFileData: var WIN32_FIND_DATA): int32 {...}{.
    stdcall, dynlib: "kernel32", importc: "FindNextFileW".}

proc findClose(hFindFile: Handle) {...}{.stdcall, dynlib: "kernel32", importc: "FindClose".}

proc getFullPathNameW(lpFileName: WideCString; nBufferLength: int32;
                     lpBuffer: WideCString; lpFilePart: var WideCString): int32 {...}{.
    stdcall, dynlib: "kernel32", importc: "GetFullPathNameW".}

proc getFileAttributesW(lpFileName: WideCString): int32 {...}{.stdcall,
    dynlib: "kernel32", importc: "GetFileAttributesW".}

proc setFileAttributesW(lpFileName: WideCString; dwFileAttributes: int32): WINBOOL {...}{.
    stdcall, dynlib: "kernel32", importc: "SetFileAttributesW".}

proc copyFileW(lpExistingFileName, lpNewFileName: WideCString;
              bFailIfExists: WINBOOL): WINBOOL {...}{.importc: "CopyFileW", stdcall,
    dynlib: "kernel32".}

proc moveFileW(lpExistingFileName, lpNewFileName: WideCString): WINBOOL {...}{.
    importc: "MoveFileW", stdcall, dynlib: "kernel32".}

proc moveFileExW(lpExistingFileName, lpNewFileName: WideCString; flags: DWORD): WINBOOL {...}{.
    importc: "MoveFileExW", stdcall, dynlib: "kernel32".}

proc getEnvironmentStringsW(): WideCString {...}{.stdcall, dynlib: "kernel32",
    importc: "GetEnvironmentStringsW".}

proc freeEnvironmentStringsW(para1: WideCString): int32 {...}{.stdcall,
    dynlib: "kernel32", importc: "FreeEnvironmentStringsW".}

proc getCommandLineW(): WideCString {...}{.importc: "GetCommandLineW", stdcall,
                                   dynlib: "kernel32".}

proc rdFileTime(f: FILETIME): int64 {...}{.raises: [], tags: [].}

proc rdFileSize(f: WIN32_FIND_DATA): int64 {...}{.raises: [], tags: [].}

proc getSystemTimeAsFileTime(lpSystemTimeAsFileTime: var FILETIME) {...}{.
    importc: "GetSystemTimeAsFileTime", dynlib: "kernel32", stdcall.}

proc sleep(dwMilliseconds: int32) {...}{.stdcall, dynlib: "kernel32", importc: "Sleep".}

proc shellExecuteW(HWND: Handle;
                  lpOperation, lpFile, lpParameters, lpDirectory: WideCString;
                  nShowCmd: int32): Handle {...}{.stdcall, dynlib: "shell32.dll",
    importc: "ShellExecuteW".}

proc getFileInformationByHandle(hFile: Handle; lpFileInformation: ptr BY_HANDLE_FILE_INFORMATION): WINBOOL {...}{.
    stdcall, dynlib: "kernel32", importc: "GetFileInformationByHandle".}

proc wsaGetLastError(): cint {...}{.importc: "WSAGetLastError", dynlib: ws2dll.}

proc `==`(x, y: SocketHandle): bool {...}{.borrow.}

proc getservbyname(name, proto: cstring): ptr Servent {...}{.stdcall,
    importc: "getservbyname", dynlib: ws2dll.}

proc getservbyport(port: cint; proto: cstring): ptr Servent {...}{.stdcall,
    importc: "getservbyport", dynlib: ws2dll.}

proc gethostbyaddr(ip: ptr InAddr; len: cuint; theType: cint): ptr Hostent {...}{.stdcall,
    importc: "gethostbyaddr", dynlib: ws2dll.}

proc gethostbyname(name: cstring): ptr Hostent {...}{.stdcall, importc: "gethostbyname",
    dynlib: ws2dll.}

proc gethostname(hostname: cstring; len: cint): cint {...}{.stdcall, importc: "gethostname",
    dynlib: ws2dll.}

proc socket(af, typ, protocol: cint): SocketHandle {...}{.stdcall, importc: "socket",
    dynlib: ws2dll.}

proc closesocket(s: SocketHandle): cint {...}{.stdcall, importc: "closesocket",
                                      dynlib: ws2dll.}

proc accept(s: SocketHandle; a: ptr SockAddr; addrlen: ptr SockLen): SocketHandle {...}{.
    stdcall, importc: "accept", dynlib: ws2dll.}

proc bindSocket(s: SocketHandle; name: ptr SockAddr; namelen: SockLen): cint {...}{.stdcall,
    importc: "bind", dynlib: ws2dll.}

proc connect(s: SocketHandle; name: ptr SockAddr; namelen: SockLen): cint {...}{.stdcall,
    importc: "connect", dynlib: ws2dll.}

proc getsockname(s: SocketHandle; name: ptr SockAddr; namelen: ptr SockLen): cint {...}{.
    stdcall, importc: "getsockname", dynlib: ws2dll.}

proc getpeername(s: SocketHandle; name: ptr SockAddr; namelen: ptr SockLen): cint {...}{.
    stdcall, importc, dynlib: ws2dll.}

proc getsockopt(s: SocketHandle; level, optname: cint; optval: pointer;
               optlen: ptr SockLen): cint {...}{.stdcall, importc: "getsockopt",
                                        dynlib: ws2dll.}

proc setsockopt(s: SocketHandle; level, optname: cint; optval: pointer; optlen: SockLen): cint {...}{.
    stdcall, importc: "setsockopt", dynlib: ws2dll.}

proc listen(s: SocketHandle; backlog: cint): cint {...}{.stdcall, importc: "listen",
    dynlib: ws2dll.}

proc recv(s: SocketHandle; buf: pointer; len, flags: cint): cint {...}{.stdcall,
    importc: "recv", dynlib: ws2dll.}

proc recvfrom(s: SocketHandle; buf: cstring; len, flags: cint; fromm: ptr SockAddr;
             fromlen: ptr SockLen): cint {...}{.stdcall, importc: "recvfrom", dynlib: ws2dll.}

proc select(nfds: cint; readfds, writefds, exceptfds: ptr TFdSet; timeout: ptr Timeval): cint {...}{.
    stdcall, importc: "select", dynlib: ws2dll.}

proc send(s: SocketHandle; buf: pointer; len, flags: cint): cint {...}{.stdcall,
    importc: "send", dynlib: ws2dll.}

proc sendto(s: SocketHandle; buf: pointer; len, flags: cint; to: ptr SockAddr;
           tolen: SockLen): cint {...}{.stdcall, importc: "sendto", dynlib: ws2dll.}

proc shutdown(s: SocketHandle; how: cint): cint {...}{.stdcall, importc: "shutdown",
    dynlib: ws2dll.}

proc getnameinfo(a1: ptr SockAddr; a2: SockLen; a3: cstring; a4: SockLen; a5: cstring;
                a6: SockLen; a7: cint): cint {...}{.stdcall, importc: "getnameinfo",
    dynlib: ws2dll.}

proc inet_addr(cp: cstring): uint32 {...}{.stdcall, importc: "inet_addr", dynlib: ws2dll.}

proc FD_ISSET(socket: SocketHandle; set: var TFdSet): cint {...}{.raises: [], tags: [].}

proc FD_SET(socket: SocketHandle; s: var TFdSet) {...}{.raises: [], tags: [].}

proc FD_ZERO(s: var TFdSet) {...}{.raises: [], tags: [].}

proc wsaStartup(wVersionRequired: int16; WSData: ptr WSAData): cint {...}{.stdcall,
    importc: "WSAStartup", dynlib: ws2dll.}

proc getaddrinfo(nodename, servname: cstring; hints: ptr AddrInfo;
                res: var ptr AddrInfo): cint {...}{.stdcall, importc: "getaddrinfo",
    dynlib: ws2dll.}

proc freeaddrinfo(ai: ptr AddrInfo) {...}{.stdcall, importc: "freeaddrinfo", dynlib: ws2dll.}

proc inet_ntoa(i: InAddr): cstring {...}{.stdcall, importc, dynlib: ws2dll.}

proc waitForMultipleObjects(nCount: DWORD; lpHandles: PWOHandleArray;
                           bWaitAll: WINBOOL; dwMilliseconds: DWORD): DWORD {...}{.
    stdcall, dynlib: "kernel32", importc: "WaitForMultipleObjects".}

proc duplicateHandle(hSourceProcessHandle: Handle; hSourceHandle: Handle;
                    hTargetProcessHandle: Handle; lpTargetHandle: ptr Handle;
                    dwDesiredAccess: DWORD; bInheritHandle: WINBOOL;
                    dwOptions: DWORD): WINBOOL {...}{.stdcall, dynlib: "kernel32",
    importc: "DuplicateHandle".}

proc setHandleInformation(hObject: Handle; dwMask: DWORD; dwFlags: DWORD): WINBOOL {...}{.
    stdcall, dynlib: "kernel32", importc: "SetHandleInformation".}

proc getCurrentProcess(): Handle {...}{.stdcall, dynlib: "kernel32",
                                importc: "GetCurrentProcess".}

proc createFileW(lpFileName: WideCString; dwDesiredAccess, dwShareMode: DWORD;
                lpSecurityAttributes: pointer;
                dwCreationDisposition, dwFlagsAndAttributes: DWORD;
                hTemplateFile: Handle): Handle {...}{.stdcall, dynlib: "kernel32",
    importc: "CreateFileW".}

proc deleteFileW(pathName: WideCString): int32 {...}{.importc: "DeleteFileW",
    dynlib: "kernel32", stdcall.}

proc setEndOfFile(hFile: Handle): WINBOOL {...}{.stdcall, dynlib: "kernel32",
                                        importc: "SetEndOfFile".}

proc setFilePointer(hFile: Handle; lDistanceToMove: LONG;
                   lpDistanceToMoveHigh: ptr LONG; dwMoveMethod: DWORD): DWORD {...}{.
    stdcall, dynlib: "kernel32", importc: "SetFilePointer".}

proc getFileSize(hFile: Handle; lpFileSizeHigh: ptr DWORD): DWORD {...}{.stdcall,
    dynlib: "kernel32", importc: "GetFileSize".}

proc mapViewOfFileEx(hFileMappingObject: Handle; dwDesiredAccess: DWORD;
                    dwFileOffsetHigh, dwFileOffsetLow: DWORD;
                    dwNumberOfBytesToMap: DWORD; lpBaseAddress: pointer): pointer {...}{.
    stdcall, dynlib: "kernel32", importc: "MapViewOfFileEx".}

proc createFileMappingW(hFile: Handle; lpFileMappingAttributes: pointer;
                       flProtect, dwMaximumSizeHigh: DWORD;
                       dwMaximumSizeLow: DWORD; lpName: pointer): Handle {...}{.stdcall,
    dynlib: "kernel32", importc: "CreateFileMappingW".}

proc unmapViewOfFile(lpBaseAddress: pointer): WINBOOL {...}{.stdcall, dynlib: "kernel32",
    importc: "UnmapViewOfFile".}

proc flushViewOfFile(lpBaseAddress: pointer; dwNumberOfBytesToFlush: DWORD): WINBOOL {...}{.
    stdcall, dynlib: "kernel32", importc: "FlushViewOfFile".}

proc createIoCompletionPort(FileHandle: Handle; ExistingCompletionPort: Handle;
                           CompletionKey: ULONG_PTR;
                           NumberOfConcurrentThreads: DWORD): Handle {...}{.stdcall,
    dynlib: "kernel32", importc: "CreateIoCompletionPort".}

proc getQueuedCompletionStatus(CompletionPort: Handle;
                              lpNumberOfBytesTransferred: PDWORD;
                              lpCompletionKey: PULONG_PTR;
                              lpOverlapped: ptr POVERLAPPED; dwMilliseconds: DWORD): WINBOOL {...}{.
    stdcall, dynlib: "kernel32", importc: "GetQueuedCompletionStatus".}

proc getOverlappedResult(hFile: Handle; lpOverlapped: POVERLAPPED;
                        lpNumberOfBytesTransferred: var DWORD; bWait: WINBOOL): WINBOOL {...}{.
    stdcall, dynlib: "kernel32", importc: "GetOverlappedResult".}

proc WSAIoctl(s: SocketHandle; dwIoControlCode: DWORD; lpvInBuffer: pointer;
             cbInBuffer: DWORD; lpvOutBuffer: pointer; cbOutBuffer: DWORD;
             lpcbBytesReturned: PDWORD; lpOverlapped: POVERLAPPED;
             lpCompletionRoutine: POVERLAPPED_COMPLETION_ROUTINE): cint {...}{.stdcall,
    importc: "WSAIoctl", dynlib: "Ws2_32.dll".}

proc WSARecv(s: SocketHandle; buf: ptr TWSABuf; bufCount: DWORD;
            bytesReceived, flags: PDWORD; lpOverlapped: POVERLAPPED;
            completionProc: POVERLAPPED_COMPLETION_ROUTINE): cint {...}{.stdcall,
    importc: "WSARecv", dynlib: "Ws2_32.dll".}

proc WSARecvFrom(s: SocketHandle; buf: ptr TWSABuf; bufCount: DWORD;
                bytesReceived: PDWORD; flags: PDWORD; name: ptr SockAddr;
                namelen: ptr cint; lpOverlapped: POVERLAPPED;
                completionProc: POVERLAPPED_COMPLETION_ROUTINE): cint {...}{.stdcall,
    importc: "WSARecvFrom", dynlib: "Ws2_32.dll".}

proc WSASend(s: SocketHandle; buf: ptr TWSABuf; bufCount: DWORD; bytesSent: PDWORD;
            flags: DWORD; lpOverlapped: POVERLAPPED;
            completionProc: POVERLAPPED_COMPLETION_ROUTINE): cint {...}{.stdcall,
    importc: "WSASend", dynlib: "Ws2_32.dll".}

proc WSASendTo(s: SocketHandle; buf: ptr TWSABuf; bufCount: DWORD; bytesSent: PDWORD;
              flags: DWORD; name: ptr SockAddr; namelen: cint;
              lpOverlapped: POVERLAPPED;
              completionProc: POVERLAPPED_COMPLETION_ROUTINE): cint {...}{.stdcall,
    importc: "WSASendTo", dynlib: "Ws2_32.dll".}

proc get_osfhandle(fd: FileHandle): Handle {...}{.importc: "_get_osfhandle",
    header: "<io.h>".}

proc getSystemTimes(lpIdleTime, lpKernelTime, lpUserTime: var FILETIME): WINBOOL {...}{.
    stdcall, dynlib: "kernel32", importc: "GetSystemTimes".}

proc getProcessTimes(hProcess: Handle; lpCreationTime, lpExitTime, lpKernelTime,
                                    lpUserTime: var FILETIME): WINBOOL {...}{.stdcall,
    dynlib: "kernel32", importc: "GetProcessTimes".}

proc inet_ntop(family: cint; paddr: pointer; pStringBuffer: cstring;
              stringBufSize: int32): cstring {...}{.stdcall, raises: [Exception],
    tags: [RootEffect].}

"is greater or equals" operator. This is the same as y <= x.

proc postQueuedCompletionStatus(CompletionPort: Handle;
                               dwNumberOfBytesTransferred: DWORD;
                               dwCompletionKey: ULONG_PTR; lpOverlapped: pointer): bool {...}{.
    stdcall, dynlib: "kernel32", importc: "PostQueuedCompletionStatus".}

proc registerWaitForSingleObject(phNewWaitObject: ptr Handle; hObject: Handle;
                                Callback: WAITORTIMERCALLBACK; Context: pointer;
                                dwMilliseconds: ULONG; dwFlags: ULONG): bool {...}{.
    stdcall, dynlib: "kernel32", importc: "RegisterWaitForSingleObject".}

proc unregisterWait(WaitHandle: Handle): DWORD {...}{.stdcall, dynlib: "kernel32",
    importc: "UnregisterWait".}

proc openProcess(dwDesiredAccess: DWORD; bInheritHandle: WINBOOL; dwProcessId: DWORD): Handle {...}{.
    stdcall, dynlib: "kernel32", importc: "OpenProcess".}

proc createEvent(lpEventAttributes: ptr SECURITY_ATTRIBUTES; bManualReset: DWORD;
                bInitialState: DWORD; lpName: ptr Utf16Char): Handle {...}{.stdcall,
    dynlib: "kernel32", importc: "CreateEventW".}

proc setEvent(hEvent: Handle): cint {...}{.stdcall, dynlib: "kernel32", importc: "SetEvent".}

proc wsaEventSelect(s: SocketHandle; hEventObject: Handle; lNetworkEvents: clong): cint {...}{.
    stdcall, importc: "WSAEventSelect", dynlib: "ws2_32.dll".}

proc wsaCreateEvent(): Handle {...}{.stdcall, importc: "WSACreateEvent",
                             dynlib: "ws2_32.dll".}

proc wsaCloseEvent(hEvent: Handle): bool {...}{.stdcall, importc: "WSACloseEvent",
                                       dynlib: "ws2_32.dll".}

proc wsaResetEvent(hEvent: Handle): bool {...}{.stdcall, importc: "WSAResetEvent",
                                       dynlib: "ws2_32.dll".}

proc readConsoleInput(hConsoleInput: Handle; lpBuffer: pointer; nLength: cint;
                     lpNumberOfEventsRead: ptr cint): cint {...}{.stdcall,
    dynlib: "kernel32", importc: "ReadConsoleInputW".}

proc CreateFiber(stackSize: int; fn: LPFIBER_START_ROUTINE; param: pointer): pointer {...}{.
    stdcall, discardable, dynlib: "kernel32", importc.}

proc CreateFiberEx(stkCommit: int; stkReserve: int; flags: int32;
                  fn: LPFIBER_START_ROUTINE; param: pointer): pointer {...}{.stdcall,
    discardable, dynlib: "kernel32", importc.}

proc ConvertThreadToFiber(param: pointer): pointer {...}{.stdcall, discardable,
    dynlib: "kernel32", importc.}

proc ConvertThreadToFiberEx(param: pointer; flags: int32): pointer {...}{.stdcall,
    discardable, dynlib: "kernel32", importc.}

proc DeleteFiber(fiber: pointer): void {...}{.stdcall, discardable, dynlib: "kernel32",
                                     importc.}

proc SwitchToFiber(fiber: pointer): void {...}{.stdcall, discardable, dynlib: "kernel32",
                                       importc.}

proc GetCurrentFiber(): pointer {...}{.stdcall, importc, header: "Windows.h".}

proc toFILETIME(t: int64): FILETIME {...}{.raises: [], tags: [].}

Convert the Windows file time timestamp t to FILETIME.

proc setFileTime(hFile: Handle; lpCreationTime: LPFILETIME;
                lpLastAccessTime: LPFILETIME; lpLastWriteTime: LPFILETIME): WINBOOL {...}{.
    stdcall, dynlib: "kernel32", importc: "SetFileTime".}

Templates

template hasOverlappedIoCompleted(lpOverlapped): bool

template WSAIORW(x, y): untyped