mware/list.c

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