/* $Header$
 *
 * Generic Queue Routines
 *
 *  (c) Copyright 1988 by the Massachusetts Institute of Technology.
 *  For copying and distribution information, please see the file
 *  <mit-copyright.h>.
 */

#include <mit-copyright.h>
#include <moira.h>
#include <string.h>
#include <stdlib.h>

struct save_queue *sq_create(void)
{
  struct save_queue *sq;

  sq = malloc(sizeof(struct save_queue));
  if (!sq)
    return sq;
  sq->q_next = sq;
  sq->q_prev = sq;
  sq->q_lastget = 0;
  return sq;
}

int sq_save_data(struct save_queue *sq, char *data)
{
  struct save_queue *q;

  q = malloc(sizeof(struct save_queue));
  if (!q)
    return 0;
  q->q_next = sq;
  q->q_prev = sq->q_prev;
  sq->q_prev->q_next = q;
  sq->q_prev = q;
  q->q_data = data;
  return 1;
}

int sq_save_args(int argc, char *argv[], struct save_queue *sq)
{
  char **argv_copy;
  int i, n;

  argv_copy = malloc(argc * sizeof(char *));
  if (!argv_copy)
    return 0;
  for (i = 0; i < argc; i++)
    {
      n = strlen(argv[i]) + 1;
      argv_copy[i] = malloc(n);
      if (!argv_copy[i])
	{
	  for (i--; i >= 0; i--)
	    free(argv_copy[i]);
	  free(argv_copy);
	  return 0;
	}
      memcpy(argv_copy[i], argv[i], n);
    }

  return sq_save_data(sq, (char *)argv_copy);
}

int sq_save_unique_data(struct save_queue *sq, char *data)
{
  struct save_queue *q;

  for (q = sq->q_next; q != sq; q = q->q_next)
    {
      if (q->q_data == data)
	return 1;
    }

  return sq_save_data(sq, data);
}

int sq_save_unique_string(struct save_queue *sq, char *data)
{
  struct save_queue *q;

  for (q = sq->q_next; q != sq; q = q->q_next)
    {
      if (!strcmp(q->q_data, data))
	return 1;
    }

  return sq_save_data(sq, data);
}

int sq_get_data(struct save_queue *sq, char **data)
{
  if (sq->q_lastget == (struct save_queue *)0)
    sq->q_lastget = sq->q_next;
  else
    sq->q_lastget = sq->q_lastget->q_next;

  if (sq->q_lastget == sq)
    return 0;
  *data = sq->q_lastget->q_data;
  return 1;
}

int sq_remove_data(struct save_queue *sq, char **data)
{
  if (sq->q_next != sq)
    {
      *data = sq->q_next->q_data;
      sq->q_next = sq->q_next->q_next;
      free(sq->q_next->q_prev);
      sq->q_next->q_prev = sq;
      return 1;
    }
  return 0;
}

int sq_empty(struct save_queue *sq)
{
  if (sq->q_next == sq)
    return 1;
  else
    return 0;
}

sq_destroy(struct save_queue *sq)
{
  struct save_queue *q;

  for (q = sq->q_next; q != sq; q = sq->q_next)
    {
      sq->q_next = q->q_next;
      free(q);
    }
  free(sq);
}