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