contrib/jemalloc/include/jemalloc/internal/ql.h

   1 #ifndef JEMALLOC_INTERNAL_QL_H
   2 #define JEMALLOC_INTERNAL_QL_H
   3
   4 #include "jemalloc/internal/qr.h"
   5
   6 /* List definitions. */
   7 #define ql_head(a_type)                                                 \
   8 struct {                                                                \
   9         a_type *qlh_first;                                              \
  10 }
  11
  12 #define ql_head_initializer(a_head) {NULL}
  13
  14 #define ql_elm(a_type)  qr(a_type)
  15
  16 /* List functions. */
  17 #define ql_new(a_head) do {                                             \
  18         (a_head)->qlh_first = NULL;                                     \
  19 } while (0)
  20
  21 #define ql_elm_new(a_elm, a_field) qr_new((a_elm), a_field)
  22
  23 #define ql_first(a_head) ((a_head)->qlh_first)
  24
  25 #define ql_last(a_head, a_field)                                        \
  26         ((ql_first(a_head) != NULL)                                     \
  27             ? qr_prev(ql_first(a_head), a_field) : NULL)
  28
  29 #define ql_next(a_head, a_elm, a_field)                                 \
  30         ((ql_last(a_head, a_field) != (a_elm))                          \
  31             ? qr_next((a_elm), a_field) : NULL)
  32
  33 #define ql_prev(a_head, a_elm, a_field)                                 \
  34         ((ql_first(a_head) != (a_elm)) ? qr_prev((a_elm), a_field)      \
  35                                        : NULL)
  36
  37 #define ql_before_insert(a_head, a_qlelm, a_elm, a_field) do {          \
  38         qr_before_insert((a_qlelm), (a_elm), a_field);                  \
  39         if (ql_first(a_head) == (a_qlelm)) {                            \
  40                 ql_first(a_head) = (a_elm);                             \
  41         }                                                               \
  42 } while (0)
  43
  44 #define ql_after_insert(a_qlelm, a_elm, a_field)                        \
  45         qr_after_insert((a_qlelm), (a_elm), a_field)
  46
  47 #define ql_head_insert(a_head, a_elm, a_field) do {                     \
  48         if (ql_first(a_head) != NULL) {                                 \
  49                 qr_before_insert(ql_first(a_head), (a_elm), a_field);   \
  50         }                                                               \
  51         ql_first(a_head) = (a_elm);                                     \
  52 } while (0)
  53
  54 #define ql_tail_insert(a_head, a_elm, a_field) do {                     \
  55         if (ql_first(a_head) != NULL) {                                 \
  56                 qr_before_insert(ql_first(a_head), (a_elm), a_field);   \
  57         }                                                               \
  58         ql_first(a_head) = qr_next((a_elm), a_field);                   \
  59 } while (0)
  60
  61 #define ql_remove(a_head, a_elm, a_field) do {                          \
  62         if (ql_first(a_head) == (a_elm)) {                              \
  63                 ql_first(a_head) = qr_next(ql_first(a_head), a_field);  \
  64         }                                                               \
  65         if (ql_first(a_head) != (a_elm)) {                              \
  66                 qr_remove((a_elm), a_field);                            \
  67         } else {                                                        \
  68                 ql_first(a_head) = NULL;                                \
  69         }                                                               \
  70 } while (0)
  71
  72 #define ql_head_remove(a_head, a_type, a_field) do {                    \
  73         a_type *t = ql_first(a_head);                                   \
  74         ql_remove((a_head), t, a_field);                                \
  75 } while (0)
  76
  77 #define ql_tail_remove(a_head, a_type, a_field) do {                    \
  78         a_type *t = ql_last(a_head, a_field);                           \
  79         ql_remove((a_head), t, a_field);                                \
  80 } while (0)
  81
  82 #define ql_foreach(a_var, a_head, a_field)                              \
  83         qr_foreach((a_var), ql_first(a_head), a_field)
  84
  85 #define ql_reverse_foreach(a_var, a_head, a_field)                      \
  86         qr_reverse_foreach((a_var), ql_first(a_head), a_field)
  87
  88 #endif /* JEMALLOC_INTERNAL_QL_H */