Module Semaphore.Binary
Contents
Instructions: Use this module in your project
In the IDE (CLion, Visual Studio Code, Xcode, etc.) you use for your DkSDK project:
Add the following to your project's
dependencies/CMakeLists.txt
:DkSDKProject_DeclareAvailable(ocaml CONSTRAINT "= 4.14.0" FINDLIBS str unix runtime_events threads dynlink) DkSDKProject_MakeAvailable(ocaml)
Add the
Findlib::ocaml
library to any desired targets insrc/*/CMakeLists.txt
:target_link_libraries(YourPackage_YourLibraryName # ... existing libraries, if any ... Findlib::ocaml)
Click your IDE's
Build
button
Not using DkSDK?
FIRST, do one or all of the following:
Run:
opam install ocaml.4.14.0
Edit your
dune-project
and add:(package (name YourExistingPackage) (depends ; ... existing dependenices ... (ocaml (>= 4.14.0))))
Then run:
dune build *.opam # if this fails, run: dune build
Edit your
<package>.opam
file and add:depends: [ # ... existing dependencies ... "ocaml" {>= "4.14.0"} ]
Then run:
opam install . --deps-only
FINALLY, add the unix threads
library to any desired (library)
and/or (executable)
targets in your **/dune
files:
(library
(name YourLibrary)
; ... existing library options ...
(libraries
; ... existing libraries ...
unix threads))
(executable
(name YourExecutable)
; ... existing executable options ...
(libraries
; ... existing libraries ...
unix threads))
type
t
The type of binary semaphores.
val
make : ``bool
->
t
make b
returns a new binary semaphore. If b
is true
, the initial
value of the semaphore is 1, meaning "available". If b
is false
, the
initial value of the semaphore is 0, meaning "unavailable".
val
release :
t
->
unit
release s
sets the value of semaphore s
to 1, putting it in the
"available" state. If other threads are waiting on s
, one of them is
restarted.
val
acquire :
t
->
unit
acquire s
blocks the calling thread until the semaphore s
has value
1 (is available), then atomically sets it to 0 and returns.
val
try_acquire :
t
->
bool
try_acquire s
immediately returns false
if the semaphore s
has
value 0. If s
has value 1, its value is atomically set to 0 and
try_acquire s
returns true
.