Fix Alfil bug
[xboard.git] / lists.c
1 /*
2  * lists.c -- Functions to implement a double linked list XBoard
3  *
4  * Copyright 1995, 2009, 2010, 2011 Free Software Foundation, Inc.
5  *
6  * Enhancements Copyright 2005 Alessandro Scotti
7  *
8  * ------------------------------------------------------------------------
9  *
10  * GNU XBoard is free software: you can redistribute it and/or modify
11  * it under the terms of the GNU General Public License as published by
12  * the Free Software Foundation, either version 3 of the License, or (at
13  * your option) any later version.
14  *
15  * GNU XBoard is distributed in the hope that it will be useful, but
16  * WITHOUT ANY WARRANTY; without even the implied warranty of
17  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
18  * General Public License for more details.
19  *
20  * You should have received a copy of the GNU General Public License
21  * along with this program. If not, see http://www.gnu.org/licenses/.  *
22  *
23  *------------------------------------------------------------------------
24  ** See the file ChangeLog for a revision history.  */
25
26 /*
27  * This file could well be a part of backend.c, but I prefer it this
28  * way.
29  */
30
31 #include "config.h"
32
33 #include <stdio.h>
34 #if STDC_HEADERS
35 # include <stdlib.h>
36 #endif /* not STDC_HEADERS */
37
38 #include "common.h"
39 #include "lists.h"
40
41
42
43 /* Check, if List l is empty; returns TRUE, if it is, FALSE
44  * otherwise.
45  */
46 int ListEmpty(l)
47     List *l;
48 {
49     return(l->head == (ListNode *) &l->tail);
50 }
51
52
53 /* Initialize a list. Must be executed before list is used.
54  */
55 void ListNew(l)
56     List *l;
57 {
58     l->head = (ListNode *) &l->tail;
59     l->tail = NULL;
60     l->tailPred = (ListNode *) l;
61 }
62
63
64 /* Remove node n from the list it is inside.
65  */
66 void ListRemove(n)
67     ListNode *n;
68 {
69     if (n->succ != NULL) {  /*  Be safe  */
70         n->pred->succ = n->succ;
71         n->succ->pred = n->pred;
72         n->succ = NULL;     /*  Mark node as no longer being member */
73         n->pred = NULL;     /*  of a list.                          */
74     }
75 }
76
77
78 /* Delete node n.
79  */
80 void ListNodeFree(n)
81     ListNode *n;
82 {
83     if (n) {
84         ListRemove(n);
85         free(n);
86     }
87 }
88
89
90 /* Create a list node with size s. Returns NULL, if out of memory.
91  */
92 ListNode *ListNodeCreate(s)
93     size_t s;
94 {
95     ListNode *n;
96
97     if ((n = (ListNode*) malloc(s))) {
98         n->succ = NULL; /*  Mark node as not being member of a list.    */
99         n->pred = NULL;
100     }
101     return(n);
102 }
103
104
105 /* Insert node n into the list of node m after m.
106  */
107 void ListInsert(m, n)
108     ListNode *m, *n;
109 {
110     n->succ = m->succ;
111     n->pred = m;
112     m->succ = n;
113     n->succ->pred = n;
114 }
115
116
117 /* Add node n to the head of list l.
118  */
119 void ListAddHead(l, n)
120     List *l;
121     ListNode *n;
122 {
123     ListInsert((ListNode *) &l->head, n);
124 }
125
126
127 /* Add node n to the tail of list l.
128  */
129 void ListAddTail(l, n)
130     List *l;
131     ListNode *n;
132 {
133     ListInsert((ListNode *) l->tailPred, n);
134 }
135
136
137 /* Return element with number n of list l. (NULL, if n doesn't exist.)
138  * Counting starts with 0.
139  */
140 ListNode *ListElem(l, n)
141     List *l;
142     int n;
143 {
144     ListNode *ln;
145
146     for (ln = l->head;  ln->succ;  ln = ln->succ) {
147         if (!n--) {
148             return (ln);
149         }
150     }
151
152     return(NULL);
153 }