libs/flist.c

   1 /* -*-c-*- */
   2 /* This program is free software; you can redistribute it and/or modify
   3  * it under the terms of the GNU General Public License as published by
   4  * the Free Software Foundation; either version 2 of the License, or
   5  * (at your option) any later version.
   6  *
   7  * This program is distributed in the hope that it will be useful,
   8  * but WITHOUT ANY WARRANTY; without even the implied warranty of
   9  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  10  * GNU General Public License for more details.
  11  *
  12  * You should have received a copy of the GNU General Public License
  13  * along with this program; if not, write to the Free Software
  14  * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
  15  */
  16
  17 /*
  18  * This module was all original code
  19  * by Rob Nation
  20  * Copyright 1993, Robert Nation
  21  *     You may use this code for any purpose, as long as the original
  22  *     copyright remains in the source code and all documentation
  23  */
  24
  25 /* code for parsing the fvwm style command */
  26
  27 /* ---------------------------- included header files ---------------------- */
  28
  29 #include "config.h"
  30 #include <stdio.h>
  31
  32 #include "safemalloc.h"
  33 #include "flist.h"
  34
  35 /* ---------------------------- local definitions -------------------------- */
  36
  37 /* ---------------------------- local macros ------------------------------- */
  38
  39 /* ---------------------------- imports ------------------------------------ */
  40
  41 /* ---------------------------- included code files ------------------------ */
  42
  43 /* ---------------------------- local types -------------------------------- */
  44
  45 /* ---------------------------- forward declarations ----------------------- */
  46
  47 /* ---------------------------- local variables ---------------------------- */
  48
  49 /* ---------------------------- exported variables (globals) --------------- */
  50
  51 /* ---------------------------- local functions ---------------------------- */
  52
  53 /* ---------------------------- interface functions ------------------------ */
  54
  55 flist *flist_append_obj(flist *list, void *object)
  56 {
  57         flist *new = (flist *)safemalloc(sizeof(flist));
  58         flist *tl = list;
  59
  60         new->object = object;
  61         new->next = NULL;
  62         new->prev = NULL;
  63
  64         if (list == NULL)
  65         {
  66                 return new;
  67         }
  68         while(tl->next)
  69         {
  70                 tl = tl->next;
  71         }
  72         tl->next = new;
  73         new->prev = tl;
  74
  75         return list;
  76 }
  77
  78 flist *flist_prepend_obj(flist *list, void *object)
  79 {
  80         flist *new = (flist *)safemalloc(sizeof(flist));
  81
  82         new->object = object;
  83         new->next = NULL;
  84         new->prev = NULL;
  85
  86         if (list == NULL)
  87         {
  88                 return new;
  89         }
  90
  91         if (list->prev)
  92         {
  93                 list->prev->next = new;
  94                 new->prev = list->prev;
  95         }
  96         list->prev = new;
  97         new->next = list;
  98
  99         return new;
 100 }
 101
 102 flist *flist_insert_obj(flist *list, void *object, int position)
 103 {
 104         flist *new;
 105         flist *tl;
 106
 107         if (position < 0)
 108         {
 109                 return flist_append_obj(list, object);
 110         }
 111         if (position == 0)
 112         {
 113                 return flist_prepend_obj(list, object);
 114         }
 115         tl = list;
 116         while(tl && position-- > 0)
 117         {
 118                 tl = tl->next;
 119         }
 120
 121         if (!tl)
 122         {
 123                 return flist_append_obj(list, object);
 124         }
 125
 126         new = (flist *)safemalloc(sizeof(flist));;
 127         new->object = object;
 128         new->prev = NULL;
 129
 130         if (tl->prev)
 131         {
 132                 tl->prev->next = new;
 133                 new->prev = tl->prev;
 134         }
 135         new->next = tl;
 136         tl->prev = new;
 137
 138         if (tl == list)
 139         {
 140                 return new;
 141         }
 142
 143         return list;
 144 }
 145
 146 flist *flist_remove_obj(flist *list, void *object)
 147 {
 148         flist *tl = list;
 149
 150         while (tl && tl->object != object)
 151         {
 152                 tl = tl->next;
 153         }
 154
 155         if (tl == NULL)
 156         {
 157                 return NULL;
 158         }
 159
 160         if (tl->prev)
 161         {
 162                 tl->prev->next = tl->next;
 163         }
 164         if (tl->next)
 165         {
 166                 tl->next->prev = tl->prev;
 167         }
 168         if (list == tl)
 169         {
 170                 list = list->next;
 171         }
 172         free(tl);
 173
 174         return list;
 175 }
 176
 177 flist *flist_free_list(flist *list)
 178 {
 179         flist *tl;
 180
 181         while (list)
 182         {
 183                 tl = list;
 184                 list = list->next;
 185                 free(tl);
 186         }
 187         return NULL;
 188 }