oldXMenu/insque.c

   1 /* Copyright (C) 1993, 1994, 1995, 1996, 1997, 1998, 2001, 2002, 2003,
   2                  2004, 2005, 2006, 2007, 2008 Free Software Foundation, Inc.
   3
   4 This program is free software: you can redistribute it and/or modify
   5 it under the terms of the GNU General Public License as published by
   6 the Free Software Foundation, either version 3 of the License, or
   7 (at your option) any later version.
   8
   9 This program is distributed in the hope that it will be useful,
  10 but WITHOUT ANY WARRANTY; without even the implied warranty of
  11 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  12 GNU General Public License for more details.
  13
  14 You should have received a copy of the GNU General Public License
  15 along with this program.  If not, see <http://www.gnu.org/licenses/>.  */
  16
  17 /* This file implements the emacs_insque and emacs_remque functions,
  18    clones of the insque and remque functions of BSD.  They and all
  19    their callers have been renamed to emacs_mumble to allow us to
  20    include this file in the menu library on all systems.  */
  21
  22
  23 struct qelem {
  24   struct    qelem *q_forw;
  25   struct    qelem *q_back;
  26   char q_data[1];
  27 };
  28
  29 /* Insert ELEM into a doubly-linked list, after PREV.  */
  30
  31 void
  32 emacs_insque (elem, prev)
  33      struct qelem *elem, *prev;
  34 {
  35   struct qelem *next = prev->q_forw;
  36   prev->q_forw = elem;
  37   if (next)
  38     next->q_back = elem;
  39   elem->q_forw = next;
  40   elem->q_back = prev;
  41 }
  42
  43 /* Unlink ELEM from the doubly-linked list that it is in.  */
  44
  45 emacs_remque (elem)
  46      struct qelem *elem;
  47 {
  48   struct qelem *next = elem->q_forw;
  49   struct qelem *prev = elem->q_back;
  50   if (next)
  51     next->q_back = prev;
  52   if (prev)
  53     prev->q_forw = next;
  54 }
  55
  56 /* arch-tag: a8719d1a-5c3f-4bce-b36b-173106d36165
  57    (do not change this comment) */