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