lin
2025-08-01 633231e833e21d5b8b1c00cb15aedb62b3b78e8f
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
/* Ring definitions. */
#define    qr(a_type)                            \
struct {                                \
   a_type    *qre_next;                        \
   a_type    *qre_prev;                        \
}
 
/* Ring functions. */
#define    qr_new(a_qr, a_field) do {                    \
   (a_qr)->a_field.qre_next = (a_qr);                \
   (a_qr)->a_field.qre_prev = (a_qr);                \
} while (0)
 
#define    qr_next(a_qr, a_field) ((a_qr)->a_field.qre_next)
 
#define    qr_prev(a_qr, a_field) ((a_qr)->a_field.qre_prev)
 
#define    qr_before_insert(a_qrelm, a_qr, a_field) do {            \
   (a_qr)->a_field.qre_prev = (a_qrelm)->a_field.qre_prev;        \
   (a_qr)->a_field.qre_next = (a_qrelm);                \
   (a_qr)->a_field.qre_prev->a_field.qre_next = (a_qr);        \
   (a_qrelm)->a_field.qre_prev = (a_qr);                \
} while (0)
 
#define    qr_after_insert(a_qrelm, a_qr, a_field)                \
    do                                    \
    {                                    \
   (a_qr)->a_field.qre_next = (a_qrelm)->a_field.qre_next;        \
   (a_qr)->a_field.qre_prev = (a_qrelm);                \
   (a_qr)->a_field.qre_next->a_field.qre_prev = (a_qr);        \
   (a_qrelm)->a_field.qre_next = (a_qr);                \
    } while (0)
 
#define    qr_meld(a_qr_a, a_qr_b, a_field) do {                \
   void *t;                            \
   (a_qr_a)->a_field.qre_prev->a_field.qre_next = (a_qr_b);    \
   (a_qr_b)->a_field.qre_prev->a_field.qre_next = (a_qr_a);    \
   t = (a_qr_a)->a_field.qre_prev;                    \
   (a_qr_a)->a_field.qre_prev = (a_qr_b)->a_field.qre_prev;    \
   (a_qr_b)->a_field.qre_prev = t;                    \
} while (0)
 
/*
 * qr_meld() and qr_split() are functionally equivalent, so there's no need to
 * have two copies of the code.
 */
#define    qr_split(a_qr_a, a_qr_b, a_field)                \
   qr_meld((a_qr_a), (a_qr_b), a_field)
 
#define    qr_remove(a_qr, a_field) do {                    \
   (a_qr)->a_field.qre_prev->a_field.qre_next            \
       = (a_qr)->a_field.qre_next;                    \
   (a_qr)->a_field.qre_next->a_field.qre_prev            \
       = (a_qr)->a_field.qre_prev;                    \
   (a_qr)->a_field.qre_next = (a_qr);                \
   (a_qr)->a_field.qre_prev = (a_qr);                \
} while (0)
 
#define    qr_foreach(var, a_qr, a_field)                    \
   for ((var) = (a_qr);                        \
       (var) != NULL;                        \
       (var) = (((var)->a_field.qre_next != (a_qr))        \
       ? (var)->a_field.qre_next : NULL))
 
#define    qr_reverse_foreach(var, a_qr, a_field)                \
   for ((var) = ((a_qr) != NULL) ? qr_prev(a_qr, a_field) : NULL;    \
       (var) != NULL;                        \
       (var) = (((var) != (a_qr))                    \
       ? (var)->a_field.qre_prev : NULL))