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.5 2017/12/08 02:00:40 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 = 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 }