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