mirror of
https://github.com/nim-lang/Nim.git
synced 2025-12-28 17:04:41 +00:00
107 lines
3.8 KiB
Nim
107 lines
3.8 KiB
Nim
#
|
|
#
|
|
# Nim's Runtime Library
|
|
# (c) Copyright 2012 Andreas Rumpf
|
|
#
|
|
# See the file "copying.txt", included in this
|
|
# distribution, for details about the copyright.
|
|
#
|
|
|
|
## Low level system locks and condition vars.
|
|
|
|
when defined(Windows):
|
|
type
|
|
Handle = int
|
|
SysLock {.final, pure.} = object # CRITICAL_SECTION in WinApi
|
|
DebugInfo: pointer
|
|
LockCount: int32
|
|
RecursionCount: int32
|
|
OwningThread: int
|
|
LockSemaphore: int
|
|
Reserved: int32
|
|
|
|
SysCond = Handle
|
|
|
|
{.deprecated: [THandle: Handle, TSysLock: SysLock, TSysCond: SysCond].}
|
|
|
|
proc initSysLock(L: var SysLock) {.stdcall, noSideEffect,
|
|
dynlib: "kernel32", importc: "InitializeCriticalSection".}
|
|
## Initializes the lock `L`.
|
|
|
|
proc tryAcquireSysAux(L: var SysLock): int32 {.stdcall, noSideEffect,
|
|
dynlib: "kernel32", importc: "TryEnterCriticalSection".}
|
|
## Tries to acquire the lock `L`.
|
|
|
|
proc tryAcquireSys(L: var SysLock): bool {.inline.} =
|
|
result = tryAcquireSysAux(L) != 0'i32
|
|
|
|
proc acquireSys(L: var SysLock) {.stdcall, noSideEffect,
|
|
dynlib: "kernel32", importc: "EnterCriticalSection".}
|
|
## Acquires the lock `L`.
|
|
|
|
proc releaseSys(L: var SysLock) {.stdcall, noSideEffect,
|
|
dynlib: "kernel32", importc: "LeaveCriticalSection".}
|
|
## Releases the lock `L`.
|
|
|
|
proc deinitSys(L: var SysLock) {.stdcall, noSideEffect,
|
|
dynlib: "kernel32", importc: "DeleteCriticalSection".}
|
|
|
|
proc createEvent(lpEventAttributes: pointer,
|
|
bManualReset, bInitialState: int32,
|
|
lpName: cstring): SysCond {.stdcall, noSideEffect,
|
|
dynlib: "kernel32", importc: "CreateEventA".}
|
|
|
|
proc closeHandle(hObject: Handle) {.stdcall, noSideEffect,
|
|
dynlib: "kernel32", importc: "CloseHandle".}
|
|
proc waitForSingleObject(hHandle: Handle, dwMilliseconds: int32): int32 {.
|
|
stdcall, dynlib: "kernel32", importc: "WaitForSingleObject", noSideEffect.}
|
|
|
|
proc signalSysCond(hEvent: SysCond) {.stdcall, noSideEffect,
|
|
dynlib: "kernel32", importc: "SetEvent".}
|
|
|
|
proc initSysCond(cond: var SysCond) {.inline.} =
|
|
cond = createEvent(nil, 0'i32, 0'i32, nil)
|
|
proc deinitSysCond(cond: var SysCond) {.inline.} =
|
|
closeHandle(cond)
|
|
proc waitSysCond(cond: var SysCond, lock: var SysLock) =
|
|
releaseSys(lock)
|
|
discard waitForSingleObject(cond, -1'i32)
|
|
acquireSys(lock)
|
|
|
|
proc waitSysCondWindows(cond: var SysCond) =
|
|
discard waitForSingleObject(cond, -1'i32)
|
|
|
|
else:
|
|
type
|
|
SysLock {.importc: "pthread_mutex_t", pure, final,
|
|
header: "<sys/types.h>".} = object
|
|
SysCond {.importc: "pthread_cond_t", pure, final,
|
|
header: "<sys/types.h>".} = object
|
|
|
|
proc initSysLock(L: var SysLock, attr: pointer = nil) {.
|
|
importc: "pthread_mutex_init", header: "<pthread.h>", noSideEffect.}
|
|
|
|
proc acquireSys(L: var SysLock) {.noSideEffect,
|
|
importc: "pthread_mutex_lock", header: "<pthread.h>".}
|
|
proc tryAcquireSysAux(L: var SysLock): cint {.noSideEffect,
|
|
importc: "pthread_mutex_trylock", header: "<pthread.h>".}
|
|
|
|
proc tryAcquireSys(L: var SysLock): bool {.inline.} =
|
|
result = tryAcquireSysAux(L) == 0'i32
|
|
|
|
proc releaseSys(L: var SysLock) {.noSideEffect,
|
|
importc: "pthread_mutex_unlock", header: "<pthread.h>".}
|
|
proc deinitSys(L: var SysLock) {.noSideEffect,
|
|
importc: "pthread_mutex_destroy", header: "<pthread.h>".}
|
|
|
|
proc initSysCond(cond: var SysCond, cond_attr: pointer = nil) {.
|
|
importc: "pthread_cond_init", header: "<pthread.h>", noSideEffect.}
|
|
proc waitSysCond(cond: var SysCond, lock: var SysLock) {.
|
|
importc: "pthread_cond_wait", header: "<pthread.h>", noSideEffect.}
|
|
proc signalSysCond(cond: var SysCond) {.
|
|
importc: "pthread_cond_signal", header: "<pthread.h>", noSideEffect.}
|
|
|
|
proc deinitSysCond(cond: var SysCond) {.noSideEffect,
|
|
importc: "pthread_cond_destroy", header: "<pthread.h>".}
|
|
|