/* GLIB - Library of useful routines for C programming

 * Copyright (C) 1995-1997  Peter Mattis, Spencer Kimball and Josh MacDonald

 *

 * GQueue: Double ended queue implementation, piggy backed on GList.

 * Copyright (C) 1998 Tim Janik

 * Portions copyright (c) 2006 Nokia Corporation.  All rights reserved.

 *

 * This library is free software; you can redistribute it and/or

 * modify it under the terms of the GNU Lesser General Public

 * License as published by the Free Software Foundation; either

 * version 2 of the License, or (at your option) any later version.

 *

 * This library is distributed in the hope that it will be useful,

 * but WITHOUT ANY WARRANTY; without even the implied warranty of

 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU

 * Lesser General Public License for more details.

 *

 * You should have received a copy of the GNU Lesser General Public

 * License along with this library; if not, write to the

 * Free Software Foundation, Inc., 59 Temple Place - Suite 330,

 * Boston, MA 02111-1307, USA.

 */

/*

 * MT safe

 */

#include "config.h"

#include "glib.h"

#include "galias.h"

/**

 * g_queue_new:

 *

 * Creates a new #GQueue. 

 *

 * Returns: a new #GQueue.

 **/

EXPORT_C GQueue*

g_queue_new (void)

{

  return g_slice_new0 (GQueue);

}

/**

 * g_queue_free:

 * @queue: a #GQueue.

 *

 * Frees the memory allocated for the #GQueue.

 **/

EXPORT_C void

g_queue_free (GQueue *queue)

{

  g_return_if_fail (queue != NULL);

  g_list_free (queue->head);

  g_slice_free (GQueue, queue);

}

/**

 * g_queue_is_empty:

 * @queue: a #GQueue.

 *

 * Returns %TRUE if the queue is empty.

 *

 * Returns: %TRUE if the queue is empty.

 **/

EXPORT_C gboolean

g_queue_is_empty (GQueue *queue)

{

  g_return_val_if_fail (queue != NULL, TRUE);

  return queue->head == NULL;

}

/**

 * g_queue_get_length:

 * @queue: a #GQueue

 * 

 * Returns the number of items in @queue.

 * 

 * Return value: The number of items in @queue.

 * 

 * Since: 2.4

 **/

EXPORT_C guint

g_queue_get_length (GQueue *queue)

{

  g_return_val_if_fail (queue != NULL, 0);

  return queue->length;

}

/**

 * g_queue_reverse:

 * @queue: a #GQueue

 * 

 * Reverses the order of the items in @queue.

 * 

 * Since: 2.4

 **/

EXPORT_C void

g_queue_reverse (GQueue *queue)

{

  g_return_if_fail (queue != NULL);

  queue->tail = queue->head;

  queue->head = g_list_reverse (queue->head);

}

/**

 * g_queue_copy:

 * @queue: a #GQueue

 * 

 * Copies a @queue. Note that is a shallow copy. If the elements in the

 * queue consist of pointers to data, the pointers are copied, but the

 * actual data is not.

 * 

 * Return value: A copy of @queue

 * 

 * Since: 2.4

 **/

EXPORT_C GQueue *

g_queue_copy (GQueue *queue)

{

  GQueue *result;

  GList *list;

  g_return_val_if_fail (queue != NULL, NULL);

  result = g_queue_new ();

  for (list = queue->head; list != NULL; list = list->next)

    g_queue_push_tail (result, list->data);

  return result;

}

/**

 * g_queue_foreach:

 * @queue: a #GQueue

 * @func: the function to call for each element's data

 * @user_data: user data to pass to @func

 * 

 * Calls @func for each element in the queue passing @user_data to the

 * function.

 * 

 * Since: 2.4

 **/

EXPORT_C void

g_queue_foreach (GQueue   *queue,

		 GFunc     func,

		 gpointer  user_data)

{

  GList *list;

  g_return_if_fail (queue != NULL);

  g_return_if_fail (func != NULL);

  list = queue->head;

  while (list)

    {

      GList *next = list->next;

      func (list->data, user_data);

      list = next;

    }

}

/**

 * g_queue_find:

 * @queue: a #GQueue

 * @data: data to find

 * 

 * Finds the first link in @queue which contains @data.

 * 

 * Return value: The first link in @queue which contains @data.

 * 

 * Since: 2.4

 **/

EXPORT_C GList *

g_queue_find (GQueue        *queue,

	      gconstpointer  data)

{

  g_return_val_if_fail (queue != NULL, NULL);

  return g_list_find (queue->head, data);

}

/**

 * g_queue_find_custom:

 * @queue: a #GQueue

 * @data: user data passed to @func

 * @func: a #GCompareFunc to call for each element. It should return 0

 * when the desired element is found

 *

 * Finds an element in a #GQueue, using a supplied function to find the

 * desired element. It iterates over the queue, calling the given function

 * which should return 0 when the desired element is found. The function

 * takes two gconstpointer arguments, the #GQueue element's data as the

 * first argument and the given user data as the second argument.

 * 

 * Return value: The found link, or %NULL if it wasn't found

 * 

 * Since: 2.4

 **/

EXPORT_C GList *

g_queue_find_custom    (GQueue        *queue,

			gconstpointer  data,

			GCompareFunc   func)

{

  g_return_val_if_fail (queue != NULL, NULL);

  g_return_val_if_fail (func != NULL, NULL);

  return g_list_find_custom (queue->head, data, func);

}

/**

 * g_queue_sort:

 * @queue: a #GQueue

 * @compare_func: the #GCompareDataFunc used to sort @queue. This function

 *     is passed two elements of the queue and should return 0 if they are

 *     equal, a negative value if the first comes before the second, and

 *     a positive value if the second comes before the first.

 * @user_data: user data passed to @compare_func

 * 

 * Sorts @queue using @compare_func. 

 * 

 * Since: 2.4

 **/

EXPORT_C void

g_queue_sort (GQueue           *queue,

	      GCompareDataFunc  compare_func,

	      gpointer          user_data)

{

  g_return_if_fail (queue != NULL);

  g_return_if_fail (compare_func != NULL);

  queue->head = g_list_sort_with_data (queue->head, compare_func, user_data);

  queue->tail = g_list_last (queue->head);

}

/**

 * g_queue_push_head:

 * @queue: a #GQueue.

 * @data: the data for the new element.

 *

 * Adds a new element at the head of the queue.

 **/

EXPORT_C void

g_queue_push_head (GQueue  *queue,

		   gpointer data)

{

  g_return_if_fail (queue != NULL);

  queue->head = g_list_prepend (queue->head, data);

  if (!queue->tail)

    queue->tail = queue->head;

  queue->length++;

}

/**

 * g_queue_push_nth:

 * @queue: a #GQueue

 * @data: the data for the new element

 * @n: the position to insert the new element. If @n is negative or

 *     larger than the number of elements in the @queue, the element is

 *     added to the end of the queue.

 * 

 * Inserts a new element into @queue at the given position

 * 

 * Since: 2.4

 **/

EXPORT_C void

g_queue_push_nth (GQueue   *queue,

		  gpointer  data,

		  gint      n)

{

  g_return_if_fail (queue != NULL);

  if (n < 0 || n >= queue->length)

    {

      g_queue_push_tail (queue, data);

      return;

    }

  g_queue_insert_before (queue, g_queue_peek_nth_link (queue, n), data);

}

/**

 * g_queue_push_head_link:

 * @queue: a #GQueue.

 * @link_: a single #GList element, <emphasis>not</emphasis> a list with

 *     more than one element.

 *

 * Adds a new element at the head of the queue.

 **/

EXPORT_C void

g_queue_push_head_link (GQueue *queue,

			GList  *link)

{

  g_return_if_fail (queue != NULL);

  g_return_if_fail (link != NULL);

  g_return_if_fail (link->prev == NULL);

  g_return_if_fail (link->next == NULL);

  link->next = queue->head;

  if (queue->head)

    queue->head->prev = link;

  else

    queue->tail = link;

  queue->head = link;

  queue->length++;

}

/**

 * g_queue_push_tail:

 * @queue: a #GQueue.

 * @data: the data for the new element.

 *

 * Adds a new element at the tail of the queue.

 **/

EXPORT_C void

g_queue_push_tail (GQueue  *queue,

		   gpointer data)

{

  g_return_if_fail (queue != NULL);

  queue->tail = g_list_append (queue->tail, data);

  if (queue->tail->next)

    queue->tail = queue->tail->next;

  else

    queue->head = queue->tail;

  queue->length++;

}

/**

 * g_queue_push_tail_link:

 * @queue: a #GQueue.

 * @link_: a single #GList element, <emphasis>not</emphasis> a list with

 *   more than one element.

 *

 * Adds a new element at the tail of the queue.

 **/

EXPORT_C void

g_queue_push_tail_link (GQueue *queue,

			GList  *link)

{

  g_return_if_fail (queue != NULL);

  g_return_if_fail (link != NULL);

  g_return_if_fail (link->prev == NULL);

  g_return_if_fail (link->next == NULL);

  link->prev = queue->tail;

  if (queue->tail)

    queue->tail->next = link;

  else

    queue->head = link;

  queue->tail = link;

  queue->length++;

}

/**

 * g_queue_push_nth_link:

 * @queue: a #GQueue

 * @n: the position to insert the link. If this is negative or larger than

 *     the number of elements in @queue, the link is added to the end of

 *     @queue.

 * @link_: the link to add to @queue

 * 

 * Inserts @link into @queue at the given position.

 * 

 * Since: 2.4

 **/

EXPORT_C void

g_queue_push_nth_link  (GQueue  *queue,

			gint     n,

			GList   *link_)

{

  GList *next;

  GList *prev;

  g_return_if_fail (queue != NULL);

  g_return_if_fail (link_ != NULL);

  if (n < 0 || n >= queue->length)

    {

      g_queue_push_tail_link (queue, link_);

      return;

    }

  g_assert (queue->head);

  g_assert (queue->tail);

  next = g_queue_peek_nth_link (queue, n);

  prev = next->prev;

  if (prev)

    prev->next = link_;

  next->prev = link_;

  link_->next = next;

  link_->prev = prev;

  if (queue->head->prev)

    queue->head = queue->head->prev;

  if (queue->tail->next)

    queue->tail = queue->tail->next;

  queue->length++;

}

/**

 * g_queue_pop_head:

 * @queue: a #GQueue.

 *

 * Removes the first element of the queue.

 *

 * Returns: the data of the first element in the queue, or %NULL if the queue

 *   is empty.

 **/

EXPORT_C gpointer

g_queue_pop_head (GQueue *queue)

{

  g_return_val_if_fail (queue != NULL, NULL);

  if (queue->head)

    {

      GList *node = queue->head;

      gpointer data = node->data;

      queue->head = node->next;

      if (queue->head)

	queue->head->prev = NULL;

      else

	queue->tail = NULL;

      g_list_free_1 (node);

      queue->length--;

      return data;

    }

  return NULL;

}

/**

 * g_queue_pop_head_link:

 * @queue: a #GQueue.

 *

 * Removes the first element of the queue.

 *

 * Returns: the #GList element at the head of the queue, or %NULL if the queue

 *   is empty.

 **/

EXPORT_C GList*

g_queue_pop_head_link (GQueue *queue)

{

  g_return_val_if_fail (queue != NULL, NULL);

  if (queue->head)

    {

      GList *node = queue->head;

      queue->head = node->next;

      if (queue->head)

	{

	  queue->head->prev = NULL;

	  node->next = NULL;

	}

      else

	queue->tail = NULL;

      queue->length--;

      return node;

    }

  return NULL;

}

/**

 * g_queue_peek_head_link:

 * @queue: a #GQueue

 * 

 * Returns the first link in @queue

 * 

 * Return value: the first link in @queue, or %NULL if @queue is empty

 * 

 * Since: 2.4

 **/

EXPORT_C GList*

g_queue_peek_head_link (GQueue *queue)

{

  g_return_val_if_fail (queue != NULL, NULL);

  return queue->head;

}

/**

 * g_queue_peek_tail_link:

 * @queue: a #GQueue

 * 

 * Returns the last link @queue.

 * 

 * Return value: the last link in @queue, or %NULL if @queue is empty

 * 

 * Since: 2.4

 **/

EXPORT_C GList*

g_queue_peek_tail_link (GQueue *queue)

{

  g_return_val_if_fail (queue != NULL, NULL);

  return queue->tail;

}

/**

 * g_queue_pop_tail:

 * @queue: a #GQueue.

 *

 * Removes the last element of the queue.

 *

 * Returns: the data of the last element in the queue, or %NULL if the queue

 *   is empty.

 **/

EXPORT_C gpointer

g_queue_pop_tail (GQueue *queue)

{