package tiny_httpd

  1. Overview
  2. Docs
Minimal HTTP server using threads

Install 

dune-project
 Dependency

github.com Readme Changelog Edit opam file Versions (22)

Authors

  1. C
    c-cube

Maintainers

  1. C
    c-cube

Sources

tiny_httpd-0.22.tbz
sha256=09fb93125c26b99f8714d0060dd3fb972046cde3ff935626d495b25e80543d8e
sha512=5751a0ac007c8cad11255d08b4915c8a8fb82ad33d28e58809ef1e29dc8c8f2fceb0dd15ecbe1fda5b5db2edbbc9479fa1d0690a4a25949e1d1b375ea13bd1a9

doc/src/tiny_httpd.unix/sem.ml.html

Source file sem.ml

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
(** semaphore, for limiting concurrency. *)

type t = { mutable n: int; max: int; mutex: Mutex.t; cond: Condition.t }

let create n =
  if n <= 0 then invalid_arg "Semaphore.create";
  { n; max = n; mutex = Mutex.create (); cond = Condition.create () }

let acquire m t =
  Mutex.lock t.mutex;
  while t.n < m do
    Condition.wait t.cond t.mutex
  done;
  assert (t.n >= m);
  t.n <- t.n - m;
  Condition.broadcast t.cond;
  Mutex.unlock t.mutex

let release m t =
  Mutex.lock t.mutex;
  t.n <- t.n + m;
  Condition.broadcast t.cond;
  Mutex.unlock t.mutex

let num_acquired t = t.max - t.n