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 }