mware/list.c

   1 /*!
   2  * \file
   3  * Copyright (C) 2003,2004 Develer S.r.l. (http://www.develer.com/)
   4  * Copyright (C) 2001 Bernardo Innocenti <bernie@develer.com>
   5  * All Rights Reserved.
   6  *
   7  * \version $Id$
   8  *
   9  * \author Bernardo Innocenti <bernie@develer.com>
  10  *
  11  * \brief List handling functions
  12  */
  13
  14 /*
  15  * $Log$
  16  * Revision 1.1  2004/05/23 15:43:16  bernie
  17  * Import mware modules.
  18  *
  19  */
  20
  21 #include "list.h"
  22
  23
  24 Node *_list_rem_head(List *l)
  25 {
  26         Node *n;
  27
  28         if (ISLISTEMPTY(l))
  29                 return (Node *)0;
  30
  31         n = l->head;
  32         l->head = n->succ;
  33         n->succ->pred = (Node *)l;
  34         return n;
  35 }
  36
  37
  38 Node *_list_rem_tail(List *l)
  39 {
  40         Node *n;
  41
  42         if (ISLISTEMPTY(l))
  43                 return (Node *)0;
  44
  45         n = l->tail;
  46         l->tail = n->pred;
  47         n->pred->succ = (Node *)&l->null;
  48         return n;
  49 }