|
@@ -20,16 +20,15 @@ COMMON_LVB_GRID_RVERTICAL :: WORD(0x1000)
|
|
|
COMMON_LVB_REVERSE_VIDEO :: WORD(0x4000)
|
|
|
COMMON_LVB_UNDERSCORE :: WORD(0x8000)
|
|
|
COMMON_LVB_SBCSDBCS :: WORD(0x0300)
|
|
|
-
|
|
|
-EV_BREAK :: DWORD(0x0040)
|
|
|
-EV_CTS :: DWORD(0x0008)
|
|
|
-EV_DSR :: DWORD(0x0010)
|
|
|
-EV_ERR :: DWORD(0x0080)
|
|
|
-EV_RING :: DWORD(0x0100)
|
|
|
-EV_RLSD :: DWORD(0x0020)
|
|
|
-EV_RXCHAR :: DWORD(0x0001)
|
|
|
-EV_RXFLAG :: DWORD(0x0002)
|
|
|
-EV_TXEMPTY :: DWORD(0x0004)
|
|
|
+EV_BREAK :: DWORD(0x0040)
|
|
|
+EV_CTS :: DWORD(0x0008)
|
|
|
+EV_DSR :: DWORD(0x0010)
|
|
|
+EV_ERR :: DWORD(0x0080)
|
|
|
+EV_RING :: DWORD(0x0100)
|
|
|
+EV_RLSD :: DWORD(0x0020)
|
|
|
+EV_RXCHAR :: DWORD(0x0001)
|
|
|
+EV_RXFLAG :: DWORD(0x0002)
|
|
|
+EV_TXEMPTY :: DWORD(0x0004)
|
|
|
|
|
|
@(default_calling_convention="system")
|
|
|
foreign kernel32 {
|
|
@@ -121,7 +120,7 @@ foreign kernel32 {
|
|
|
SetCommState :: proc(handle: HANDLE, dcb: ^DCB) -> BOOL ---
|
|
|
SetCommMask :: proc(handle: HANDLE, dwEvtMap: DWORD) -> BOOL ---
|
|
|
GetCommMask :: proc(handle: HANDLE, lpEvtMask: LPDWORD) -> BOOL ---
|
|
|
- WaitCommEvent ::proc(handle: HANDLE, lpEvtMask: LPDWORD, lpOverlapped: LPOVERLAPPED) -> BOOL ---
|
|
|
+ WaitCommEvent :: proc(handle: HANDLE, lpEvtMask: LPDWORD, lpOverlapped: LPOVERLAPPED) -> BOOL ---
|
|
|
GetCommandLineW :: proc() -> LPCWSTR ---
|
|
|
GetTempPathW :: proc(nBufferLength: DWORD, lpBuffer: LPCWSTR) -> DWORD ---
|
|
|
GetCurrentProcess :: proc() -> HANDLE ---
|