we’ll need to distinguish these for sarge/etch as well
[alioth/jupp.git] / queue.c
1 /*
2  *      Doubly linked list primitives
3  *      Copyright
4  *              (C) 1992 Joseph H. Allen
5  *
6  *      This file is part of JOE (Joe's Own Editor)
7  */
8 #include "config.h"
9 #include "types.h"
10
11 __RCSID("$MirOS: contrib/code/jupp/queue.c,v 1.4 2017/12/02 02:07:30 tg Exp $");
12
13 #include <stdlib.h>
14
15 #include "queue.h"
16 #include "utils.h"
17
18 void *QUEUE;
19 void *ITEM;
20 void *LAST;
21
22 void *alitem(void *list, int itemsize)
23 {
24         STDITEM *freelist = (STDITEM *)list;
25
26         if (qempty(STDITEM, link, freelist)) {
27                 STDITEM *i = (STDITEM *) joe_malloc(itemsize * 16);
28                 STDITEM *z = (STDITEM *) ((unsigned char *) i + itemsize * 16);
29
30                 while (i != z) {
31                         enquef(STDITEM, link, freelist, i);
32                         i = (STDITEM *) ((unsigned char *) i + itemsize);
33                 }
34         }
35         return (void *) deque_f(STDITEM, link, freelist->link.prev);
36 }
37
38 void frchn(void *list, void *ch)
39 {
40         STDITEM *freelist = (STDITEM *)list;
41         STDITEM *chn = (STDITEM *)ch;
42         STDITEM *i;
43
44         if ((i = chn->link.prev) != chn) {
45                 deque(STDITEM, link, chn);
46                 splicef(STDITEM, link, freelist, i);
47         }
48 }