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::ocamllibrary to any desired targets insrc/*/CMakeLists.txt:target_link_libraries(YourPackage_YourLibraryName # ... existing libraries, if any ... Findlib::ocaml)Click your IDE's
Buildbutton
Not using DkSDK?
FIRST, do one or all of the following:
Run:
opam install ocaml.4.14.0Edit your
dune-projectand add:(package (name YourExistingPackage) (depends ; ... existing dependenices ... (ocaml (>= 4.14.0))))Then run:
dune build *.opam # if this fails, run: dune buildEdit your
<package>.opamfile 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))typet
The type of binary semaphores.
valmake : ``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".
valrelease :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.
valacquire :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.
valtry_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.
