Safe Haskell | Trustworthy |
---|

This module provides sets that only grow. It is based on a
*concurrent skip list* representation of sets.

This module is usually a more efficient alternative to Data.LVar.PureSet, and provides almost the same interface. However, it's always good to test multiple data structures if you have a performance-critical use case.

- data ISet s a
- newEmptySet :: Ord a => Par e s (ISet s a)
- newSet :: Ord a => Set a -> Par e s (ISet s a)
- newFromList :: Ord a => [a] -> Par e s (ISet s a)
- insert :: Ord a => a -> ISet s a -> Par e s ()
- waitElem :: Ord a => a -> ISet s a -> Par e s ()
- waitSize :: Int -> ISet s a -> Par e s ()
- member :: a -> ISet Frzn a -> Bool
- forEach :: ISet s a -> (a -> Par e s ()) -> Par e s ()
- forEachHP :: Maybe HandlerPool -> ISet s a -> (a -> Par e s ()) -> Par e s ()
- freezeSetAfter :: (HasPut e, HasGet e, HasFreeze e) => ISet s a -> (a -> Par e s ()) -> Par e s ()
- withCallbacksThenFreeze :: (HasPut e, HasGet e, HasFreeze e, Eq b) => ISet s a -> (a -> Par e s ()) -> Par e s b -> Par e s b
- fromISet :: Ord a => ISet Frzn a -> Set a
- copy :: Ord a => ISet s a -> Par e s (ISet s a)
- traverseSet :: Ord b => (a -> Par e s b) -> ISet s a -> Par e s (ISet s b)
- traverseSet_ :: Ord b => (a -> Par e s b) -> ISet s a -> ISet s b -> Par e s ()
- union :: Ord a => ISet s a -> ISet s a -> Par e s (ISet s a)
- intersection :: Ord a => ISet s a -> ISet s a -> Par e s (ISet s a)
- cartesianProd :: (Ord a, Ord b) => ISet s a -> ISet s b -> Par e s (ISet s (a, b))
- cartesianProds :: Ord a => [ISet s a] -> Par e s (ISet s [a])
- traverseSetHP :: Ord b => Maybe HandlerPool -> (a -> Par e s b) -> ISet s a -> Par e s (ISet s b)
- traverseSetHP_ :: Ord b => Maybe HandlerPool -> (a -> Par e s b) -> ISet s a -> ISet s b -> Par e s ()
- cartesianProdHP :: (Ord a, Ord b) => Maybe HandlerPool -> ISet s a -> ISet s b -> Par e s (ISet s (a, b))
- cartesianProdsHP :: Ord a => Maybe HandlerPool -> [ISet s a] -> Par e s (ISet s [a])

# Basic operations

data ISet s a

The set datatype itself. Like all other LVars, it has an `s`

parameter (think
`STRef`

) in addition to the `a`

parameter that describes the type of elements
in the set.

Performance note: this data structure reduces contention between parallel
computations inserting into the map, but all *blocking* computations are not as
scalable. All continuations waiting for not-yet-present elements will currently
share a single queue [2013.09.26].

LVarWBottom ISet | |

LVarData1 ISet | An |

OrderedLVarData1 ISet | The |

Foldable (ISet Trvrsbl) | |

Foldable (ISet Frzn) | |

Eq (ISet s v) | Physical identity, just as with |

Show a => Show (ISet Trvrsbl a) | For convenience only; the user could define this. |

Show a => Show (ISet Frzn a) | |

DeepFrz a => DeepFrz (ISet s a) |

newEmptySet :: Ord a => Par e s (ISet s a)

Create a new, empty, monotonically growing set.

newFromList :: Ord a => [a] -> Par e s (ISet s a)

A simple convenience function. Create a new `ISet`

drawing initial elements from an existing list.

insert :: Ord a => a -> ISet s a -> Par e s ()

Put a single element in the set. (WHNF) Strict in the element being put in the set.

# Iteration and callbacks

forEach :: ISet s a -> (a -> Par e s ()) -> Par e s ()

Add an (asynchronous) callback that listens for all new elements added to the set.

:: Maybe HandlerPool | optional pool to enroll in |

-> ISet s a | Set to listen to |

-> (a -> Par e s ()) | callback |

-> Par e s () |

Add an (asynchronous) callback that listens for all new elements added to the set, optionally enrolled in a handler pool.

# Freezing and quasi-deterministic operations

freezeSetAfter :: (HasPut e, HasGet e, HasFreeze e) => ISet s a -> (a -> Par e s ()) -> Par e s ()

Freeze an `ISet`

after a specified callback/handler is done running. This
differs from `withCallbacksThenFreeze`

by not taking an additional action to run in
the context of the handlers.

(

)
`freezeSetAfter`

`s`

`f`

== `withCallbacksThenFreeze`

`s`

`f`

'return ()'

withCallbacksThenFreeze :: (HasPut e, HasGet e, HasFreeze e, Eq b) => ISet s a -> (a -> Par e s ()) -> Par e s b -> Par e s b

Register a per-element callback, then run an action in this context, and freeze when all (recursive) invocations of the callback are complete. Returns the final value of the provided action.

fromISet :: Ord a => ISet Frzn a -> Set a

*O(N)*: Convert from an `ISet`

to a plain `Set`

.
This is only permitted when the `ISet`

has already been frozen.
This is useful for processing the result of `runParThenFreeze`

.

# Higher-level derived operations

copy :: Ord a => ISet s a -> Par e s (ISet s a)

Return a fresh set which will contain strictly more elements than the input set. That is, things put in the former go in the latter, but not vice versa.

traverseSet :: Ord b => (a -> Par e s b) -> ISet s a -> Par e s (ISet s b)

Establish a monotonic map between the input and output sets.

traverseSet_ :: Ord b => (a -> Par e s b) -> ISet s a -> ISet s b -> Par e s ()

An imperative-style, in-place version of `traverseSet`

that takes the output set
as an argument.

union :: Ord a => ISet s a -> ISet s a -> Par e s (ISet s a)

Return a new set which will (ultimately) contain everything in either input set.

intersection :: Ord a => ISet s a -> ISet s a -> Par e s (ISet s a)

Build a new set which will contain the intersection of the two input sets.

cartesianProd :: (Ord a, Ord b) => ISet s a -> ISet s b -> Par e s (ISet s (a, b))

Take the cartesian product of two sets.

cartesianProds :: Ord a => [ISet s a] -> Par e s (ISet s [a])

Take the cartesian product of several sets.

# Alternate versions of derived ops that expose `HandlerPool`

s they create

traverseSetHP :: Ord b => Maybe HandlerPool -> (a -> Par e s b) -> ISet s a -> Par e s (ISet s b)

Variant of `traverseSet`

that optionally ties the handlers to a pool.

traverseSetHP_ :: Ord b => Maybe HandlerPool -> (a -> Par e s b) -> ISet s a -> ISet s b -> Par e s ()

Variant of `traverseSet_`

that optionally ties the handlers to a pool.

cartesianProdHP :: (Ord a, Ord b) => Maybe HandlerPool -> ISet s a -> ISet s b -> Par e s (ISet s (a, b))

Variant of `cartesianProd`

that optionally ties the handlers to a pool.

cartesianProdsHP :: Ord a => Maybe HandlerPool -> [ISet s a] -> Par e s (ISet s [a])

Variant of `cartesianProds`

that optionally ties the handlers to a pool.