source: trunk/Jgraph/list.c@ 606

/* 
 * $Source: /tmp_mnt/n/fs/grad1/jsp/src/jgraph/RCS/list.c,v $
 * $Revision: 8.3 $
 * $Date: 92/11/30 11:42:25 $
 * $Author: jsp $
 */

#include <stdio.h>    /* Basic includes and definitions */
#include <stdlib.h>
#include "list.h"

#define boolean int
#define TRUE 1
#define FALSE 0


/*---------------------------------------------------------------------*
 * PROCEDURES FOR MANIPULATING DOUBLY LINKED LISTS 
 * Each list contains a sentinal node, so that     
 * the first item in list l is l->flink.  If l is  
 * empty, then l->flink = l->blink = l.            
 * The sentinal contains extra information so that these operations
 * can work on lists of any size and type.
 * Memory management is done explicitly to avoid the slowness of
 * malloc and free.  The node size and the free list are contained
 * in the sentinal node.
 *---------------------------------------------------------------------*/

typedef struct int_list {  /* Information held in the sentinal node */
  struct int_list *flink;
  struct int_list *blink;
  int size;
  List free_list;
} *Int_list;

void insert(void *item, void *list)     /* Inserts to the end of a list */
{
  List last_node;

  last_node = ((List)list)->blink;

  ((List)list)->blink = item;
  last_node->flink = item;
  ((List)item)->blink = last_node;
  ((List)item)->flink = list;
}

void delete_item(void *item)            /* Deletes an arbitrary iterm */
{
  ((List)item)->flink->blink = ((List)item)->blink;
  ((List)item)->blink->flink = ((List)item)->flink;
}

List make_list(size)    /* Creates a new list */
int size;
{
  Int_list l;

  l = (Int_list) malloc(sizeof(struct int_list));
  l->flink = l;
  l->blink = l;
  l->size = size;
  l->free_list = (List) malloc (sizeof(struct list));
  l->free_list->flink = l->free_list;
  return (List) l;
}
  
List get_node(void *list)   /* Allocates a node to be inserted into the list */
{
  Int_list l;
  List to_return;

  l = (Int_list) list;
  if (l->free_list->flink == l->free_list) {
    return (List) malloc(l->size);
  } else {
    to_return = l->free_list;
    l->free_list = to_return->flink;
    return to_return;
  }
}

void free_node(void *node, void *list)    /* Deallocates a node from the list */
{
  Int_list l;
  
  l = (Int_list) list;
  ((List)node)->flink = l->free_list;
  l->free_list = node;
}