Simulation.Aivika.Trans.Queue.Infinite.Base

Tested with: GHC 8.0.1

This module defines an infinite optimised queue, which has no counters nor signals.

Queue Types

type FCFSQueue m a = Queue m FCFS FCFS a

A type synonym for the ordinary FIFO queue also known as the FCFS (First Come - First Serviced) queue.

type LCFSQueue m a = Queue m LCFS FCFS a

A type synonym for the ordinary LIFO queue also known as the LCFS (Last Come - First Serviced) queue.

type SIROQueue m a = Queue m SIRO FCFS a

A type synonym for the SIRO (Serviced in Random Order) queue.

type PriorityQueue m a = Queue m StaticPriorities FCFS a

A type synonym for the queue with static priorities applied when storing the elements in the queue.

data Queue m sm so a

Represents an infinite queue using the specified strategies for internal storing (in memory), sm, and dequeueing (output), so, where a denotes the type of items stored in the queue. Type m denotes the underlying monad within which the simulation executes.

Creating Queue

newFCFSQueue :: MonadDES m => Simulation m (FCFSQueue m a)

Create a new infinite FCFS queue.

newLCFSQueue :: MonadDES m => Simulation m (LCFSQueue m a)

Create a new infinite LCFS queue.

newSIROQueue :: (MonadDES m, QueueStrategy m SIRO) => Simulation m (SIROQueue m a)

Create a new infinite SIRO queue.

newPriorityQueue :: (MonadDES m, QueueStrategy m StaticPriorities) => Simulation m (PriorityQueue m a)

Create a new infinite priority queue.

newQueue

Arguments

:: (MonadDES m, QueueStrategy m sm, QueueStrategy m so)

=> sm

the strategy applied when storing items in the queue

-> so

the strategy applied to the dequeueing (output) processes when the queue is empty

-> Simulation m (Queue m sm so a)

Create a new infinite queue with the specified strategies.

Queue Properties and Activities

enqueueStoringStrategy :: Queue m sm so a -> sm

The strategy applied when storing (in memory) items in the queue.

dequeueStrategy :: Queue m sm so a -> so

The strategy applied to the dequeueing (output) processes.

queueNull :: MonadDES m => Queue m sm so a -> Event m Bool

Test whether the queue is empty.

See also queueNullChanged and queueNullChanged_.

queueCount :: MonadDES m => Queue m sm so a -> Event m Int

Return the current queue size.

See also queueCountStats, queueCountChanged and queueCountChanged_.

Dequeuing and Enqueuing

dequeue

Arguments

:: (MonadDES m, DequeueStrategy m sm, EnqueueStrategy m so)

=> Queue m sm so a

the queue

-> Process m a

the dequeued value

Dequeue suspending the process if the queue is empty.

dequeueWithOutputPriority

Arguments

:: (MonadDES m, DequeueStrategy m sm, PriorityQueueStrategy m so po)

=> Queue m sm so a

the queue

-> po

the priority for output

-> Process m a

the dequeued value

Dequeue with the output priority suspending the process if the queue is empty.

tryDequeue

Arguments

:: (MonadDES m, DequeueStrategy m sm)

=> Queue m sm so a

the queue

-> Event m (Maybe a)

the dequeued value of Nothing

Try to dequeue immediately.

enqueue

Arguments

:: (MonadDES m, EnqueueStrategy m sm, DequeueStrategy m so)

=> Queue m sm so a

the queue

-> a

the item to enqueue

-> Event m ()

Enqueue the item.

enqueueWithStoringPriority

Arguments

:: (MonadDES m, PriorityQueueStrategy m sm pm, DequeueStrategy m so)

=> Queue m sm so a

the queue

-> pm

the priority for storing

-> a

the item to enqueue

-> Event m ()

Enqueue with the storing priority the item.

queueDelete

Arguments

:: (MonadDES m, Eq a, DeletingQueueStrategy m sm, DequeueStrategy m so)

=> Queue m sm so a

the queue

-> a

the item to remove from the queue

-> Event m Bool

whether the item was found and removed

Remove the item from the queue and return a flag indicating whether the item was found and actually removed.

queueDelete_

Arguments

:: (MonadDES m, Eq a, DeletingQueueStrategy m sm, DequeueStrategy m so)

=> Queue m sm so a

the queue

-> a

the item to remove from the queue

-> Event m ()

Remove the specified item from the queue.

queueDeleteBy

Arguments

:: (MonadDES m, DeletingQueueStrategy m sm, DequeueStrategy m so)

=> Queue m sm so a

the queue

-> (a -> Bool)

the predicate

-> Event m (Maybe a)

Remove an item satisfying the specified predicate and return the item if found.

queueDeleteBy_

Arguments

:: (MonadDES m, DeletingQueueStrategy m sm, DequeueStrategy m so)

=> Queue m sm so a

the queue

-> (a -> Bool)

the predicate

-> Event m ()

Remove an item satisfying the specified predicate.

queueContains

Arguments

:: (MonadDES m, Eq a, DeletingQueueStrategy m sm)

=> Queue m sm so a

the queue

-> a

the item to search the queue for

-> Event m Bool

whether the item was found

Detect whether the item is contained in the queue.

queueContainsBy

Arguments

:: (MonadDES m, DeletingQueueStrategy m sm)

=> Queue m sm so a

the queue

-> (a -> Bool)

the predicate

-> Event m (Maybe a)

the item if it was found

Detect whether an item satisfying the specified predicate is contained in the queue.

clearQueue

Arguments

:: (MonadDES m, DequeueStrategy m sm)

=> Queue m sm so a

the queue

-> Event m ()

Clear the queue immediately.