module Netsys_oothr:sig..end
class type mtprovider =object..end
class type thread =object..end
class type mutex =object..end
class type condition =object..end
val provider : mtprovider Pervasives.refval serialize : mutex -> ('a -> 'b) -> 'a -> 'bserialize m f arg: Locks m, runs f arg, unlocks m, and returns
the result.val atomic_init : 'a option Pervasives.ref -> 'a -> 'aatomic_init var new_value: If the variable var is None, it is
set to Some new_value, and new_value is returned. If it is
Some old_value, then old_value is returned. The operation is
atomic.
This function works independently of the provider.
val compare_and_swap : 'a Pervasives.ref -> 'a -> 'a -> boolcompare_and_swap var old_value new_value: If the variable var is
physically identical to old_value it is atomically set to
new_value, and true is returned. Otherwise, var is not assigned,
and false is returned.
This function works independently of the provider.