summaryrefslogtreecommitdiff
path: root/jni/ruby/ccan/list/list.h
blob: 749db7849a53893936987361e1d528de5d2806e8 (plain)
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
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
/* Licensed under BSD-MIT - see ccan/licenses/BSD-MIT file for details */
#ifndef CCAN_LIST_H
#define CCAN_LIST_H
#include <assert.h>
#include "ccan/str/str.h"
#include "ccan/container_of/container_of.h"
#include "ccan/check_type/check_type.h"

/**
 * struct list_node - an entry in a doubly-linked list
 * @next: next entry (self if empty)
 * @prev: previous entry (self if empty)
 *
 * This is used as an entry in a linked list.
 * Example:
 *      struct child {
 *              const char *name;
 *              // Linked list of all us children.
 *              struct list_node list;
 *      };
 */
struct list_node
{
        struct list_node *next, *prev;
};

/**
 * struct list_head - the head of a doubly-linked list
 * @h: the list_head (containing next and prev pointers)
 *
 * This is used as the head of a linked list.
 * Example:
 *      struct parent {
 *              const char *name;
 *              struct list_head children;
 *              unsigned int num_children;
 *      };
 */
struct list_head
{
        struct list_node n;
};

#define LIST_LOC __FILE__  ":" stringify(__LINE__)
#define list_debug(h, loc) (h)
#define list_debug_node(n, loc) (n)

/**
 * LIST_HEAD_INIT - initializer for an empty list_head
 * @name: the name of the list.
 *
 * Explicit initializer for an empty list.
 *
 * See also:
 *      LIST_HEAD, list_head_init()
 *
 * Example:
 *      static struct list_head my_list = LIST_HEAD_INIT(my_list);
 */
#define LIST_HEAD_INIT(name) { { &name.n, &name.n } }

/**
 * LIST_HEAD - define and initialize an empty list_head
 * @name: the name of the list.
 *
 * The LIST_HEAD macro defines a list_head and initializes it to an empty
 * list.  It can be prepended by "static" to define a static list_head.
 *
 * See also:
 *      LIST_HEAD_INIT, list_head_init()
 *
 * Example:
 *      static LIST_HEAD(my_global_list);
 */
#define LIST_HEAD(name) \
        struct list_head name = LIST_HEAD_INIT(name)

/**
 * list_head_init - initialize a list_head
 * @h: the list_head to set to the empty list
 *
 * Example:
 *      ...
 *      struct parent *parent = malloc(sizeof(*parent));
 *
 *      list_head_init(&parent->children);
 *      parent->num_children = 0;
 */
static inline void list_head_init(struct list_head *h)
{
        h->n.next = h->n.prev = &h->n;
}

/**
 * list_node_init - initialize a list_node
 * @n: the list_node to link to itself.
 *
 * You don't need to use this normally!  But it lets you list_del(@n)
 * safely.
 */
static inline void list_node_init(struct list_node *n)
{
        n->next = n->prev = n;
}

/**
 * list_add - add an entry at the start of a linked list.
 * @h: the list_head to add the node to
 * @n: the list_node to add to the list.
 *
 * The list_node does not need to be initialized; it will be overwritten.
 * Example:
 *      struct child *child = malloc(sizeof(*child));
 *
 *      child->name = "marvin";
 *      list_add(&parent->children, &child->list);
 *      parent->num_children++;
 */
#define list_add(h, n) list_add_(h, n, LIST_LOC)
static inline void list_add_(struct list_head *h,
                             struct list_node *n,
                             const char *abortstr)
{
        n->next = h->n.next;
        n->prev = &h->n;
        h->n.next->prev = n;
        h->n.next = n;
        (void)list_debug(h, abortstr);
}

/**
 * list_add_tail - add an entry at the end of a linked list.
 * @h: the list_head to add the node to
 * @n: the list_node to add to the list.
 *
 * The list_node does not need to be initialized; it will be overwritten.
 * Example:
 *      list_add_tail(&parent->children, &child->list);
 *      parent->num_children++;
 */
#define list_add_tail(h, n) list_add_tail_(h, n, LIST_LOC)
static inline void list_add_tail_(struct list_head *h,
                                  struct list_node *n,
                                  const char *abortstr)
{
        n->next = &h->n;
        n->prev = h->n.prev;
        h->n.prev->next = n;
        h->n.prev = n;
        (void)list_debug(h, abortstr);
}

/**
 * list_empty - is a list empty?
 * @h: the list_head
 *
 * If the list is empty, returns true.
 *
 * Example:
 *      assert(list_empty(&parent->children) == (parent->num_children == 0));
 */
#define list_empty(h) list_empty_(h, LIST_LOC)
static inline int list_empty_(const struct list_head *h, const char* abortstr)
{
        (void)list_debug(h, abortstr);
        return h->n.next == &h->n;
}

/**
 * list_empty_nodebug - is a list empty (and don't perform debug checks)?
 * @h: the list_head
 *
 * If the list is empty, returns true.
 * This differs from list_empty() in that if CCAN_LIST_DEBUG is set it
 * will NOT perform debug checks. Only use this function if you REALLY
 * know what you're doing.
 *
 * Example:
 *      assert(list_empty_nodebug(&parent->children) == (parent->num_children == 0));
 */
#ifndef CCAN_LIST_DEBUG
#define list_empty_nodebug(h) list_empty(h)
#else
static inline int list_empty_nodebug(const struct list_head *h)
{
        return h->n.next == &h->n;
}
#endif

/**
 * list_del - delete an entry from an (unknown) linked list.
 * @n: the list_node to delete from the list.
 *
 * Note that this leaves @n in an undefined state; it can be added to
 * another list, but not deleted again.
 *
 * See also:
 *      list_del_from(), list_del_init()
 *
 * Example:
 *      list_del(&child->list);
 *      parent->num_children--;
 */
#define list_del(n) list_del_(n, LIST_LOC)
static inline void list_del_(struct list_node *n, const char* abortstr)
{
        (void)list_debug_node(n, abortstr);
        n->next->prev = n->prev;
        n->prev->next = n->next;
#ifdef CCAN_LIST_DEBUG
        /* Catch use-after-del. */
        n->next = n->prev = NULL;
#endif
}

/**
 * list_del_init - delete a node, and reset it so it can be deleted again.
 * @n: the list_node to be deleted.
 *
 * list_del(@n) or list_del_init() again after this will be safe,
 * which can be useful in some cases.
 *
 * See also:
 *      list_del_from(), list_del()
 *
 * Example:
 *      list_del_init(&child->list);
 *      parent->num_children--;
 */
#define list_del_init(n) list_del_init_(n, LIST_LOC)
static inline void list_del_init_(struct list_node *n, const char *abortstr)
{
        list_del_(n, abortstr);
        list_node_init(n);
}

/**
 * list_del_from - delete an entry from a known linked list.
 * @h: the list_head the node is in.
 * @n: the list_node to delete from the list.
 *
 * This explicitly indicates which list a node is expected to be in,
 * which is better documentation and can catch more bugs.
 *
 * See also: list_del()
 *
 * Example:
 *      list_del_from(&parent->children, &child->list);
 *      parent->num_children--;
 */
static inline void list_del_from(struct list_head *h, struct list_node *n)
{
#ifdef CCAN_LIST_DEBUG
        {
                /* Thorough check: make sure it was in list! */
                struct list_node *i;
                for (i = h->n.next; i != n; i = i->next)
                        assert(i != &h->n);
        }
#endif /* CCAN_LIST_DEBUG */

        /* Quick test that catches a surprising number of bugs. */
        assert(!list_empty(h));
        list_del(n);
}

/**
 * list_entry - convert a list_node back into the structure containing it.
 * @n: the list_node
 * @type: the type of the entry
 * @member: the list_node member of the type
 *
 * Example:
 *      // First list entry is children.next; convert back to child.
 *      child = list_entry(parent->children.n.next, struct child, list);
 *
 * See Also:
 *      list_top(), list_for_each()
 */
#define list_entry(n, type, member) container_of(n, type, member)

/**
 * list_top - get the first entry in a list
 * @h: the list_head
 * @type: the type of the entry
 * @member: the list_node member of the type
 *
 * If the list is empty, returns NULL.
 *
 * Example:
 *      struct child *first;
 *      first = list_top(&parent->children, struct child, list);
 *      if (!first)
 *              printf("Empty list!\n");
 */
#define list_top(h, type, member)                                       \
        ((type *)list_top_((h), list_off_(type, member)))

static inline const void *list_top_(const struct list_head *h, size_t off)
{
        if (list_empty(h))
                return NULL;
        return (const char *)h->n.next - off;
}

/**
 * list_pop - remove the first entry in a list
 * @h: the list_head
 * @type: the type of the entry
 * @member: the list_node member of the type
 *
 * If the list is empty, returns NULL.
 *
 * Example:
 *      struct child *one;
 *      one = list_pop(&parent->children, struct child, list);
 *      if (!one)
 *              printf("Empty list!\n");
 */
#define list_pop(h, type, member)                                       \
        ((type *)list_pop_((h), list_off_(type, member)))

static inline const void *list_pop_(const struct list_head *h, size_t off)
{
        struct list_node *n;

        if (list_empty(h))
                return NULL;
        n = h->n.next;
        list_del(n);
        return (const char *)n - off;
}

/**
 * list_tail - get the last entry in a list
 * @h: the list_head
 * @type: the type of the entry
 * @member: the list_node member of the type
 *
 * If the list is empty, returns NULL.
 *
 * Example:
 *      struct child *last;
 *      last = list_tail(&parent->children, struct child, list);
 *      if (!last)
 *              printf("Empty list!\n");
 */
#define list_tail(h, type, member) \
        ((type *)list_tail_((h), list_off_(type, member)))

static inline const void *list_tail_(const struct list_head *h, size_t off)
{
        if (list_empty(h))
                return NULL;
        return (const char *)h->n.prev - off;
}

/**
 * list_for_each - iterate through a list.
 * @h: the list_head (warning: evaluated multiple times!)
 * @i: the structure containing the list_node
 * @member: the list_node member of the structure
 *
 * This is a convenient wrapper to iterate @i over the entire list.  It's
 * a for loop, so you can break and continue as normal.
 *
 * Example:
 *      list_for_each(&parent->children, child, list)
 *              printf("Name: %s\n", child->name);
 */
#define list_for_each(h, i, member)                                     \
        list_for_each_off(h, i, list_off_var_(i, member))

/**
 * list_for_each_rev - iterate through a list backwards.
 * @h: the list_head
 * @i: the structure containing the list_node
 * @member: the list_node member of the structure
 *
 * This is a convenient wrapper to iterate @i over the entire list.  It's
 * a for loop, so you can break and continue as normal.
 *
 * Example:
 *      list_for_each_rev(&parent->children, child, list)
 *              printf("Name: %s\n", child->name);
 */
#define list_for_each_rev(h, i, member)                                 \
        for (i = container_of_var(list_debug(h, LIST_LOC)->n.prev, i, member); \
             &i->member != &(h)->n;                                     \
             i = container_of_var(i->member.prev, i, member))

/**
 * list_for_each_safe - iterate through a list, maybe during deletion
 * @h: the list_head
 * @i: the structure containing the list_node
 * @nxt: the structure containing the list_node
 * @member: the list_node member of the structure
 *
 * This is a convenient wrapper to iterate @i over the entire list.  It's
 * a for loop, so you can break and continue as normal.  The extra variable
 * @nxt is used to hold the next element, so you can delete @i from the list.
 *
 * Example:
 *      struct child *next;
 *      list_for_each_safe(&parent->children, child, next, list) {
 *              list_del(&child->list);
 *              parent->num_children--;
 *      }
 */
#define list_for_each_safe(h, i, nxt, member)                           \
        list_for_each_safe_off(h, i, nxt, list_off_var_(i, member))

/**
 * list_next - get the next entry in a list
 * @h: the list_head
 * @i: a pointer to an entry in the list.
 * @member: the list_node member of the structure
 *
 * If @i was the last entry in the list, returns NULL.
 *
 * Example:
 *      struct child *second;
 *      second = list_next(&parent->children, first, list);
 *      if (!second)
 *              printf("No second child!\n");
 */
#define list_next(h, i, member)                                         \
        ((list_typeof(i))list_entry_or_null(list_debug(h,               \
                                            __FILE__ ":" stringify(__LINE__)), \
                                            (i)->member.next,           \
                                            list_off_var_((i), member)))

/**
 * list_prev - get the previous entry in a list
 * @h: the list_head
 * @i: a pointer to an entry in the list.
 * @member: the list_node member of the structure
 *
 * If @i was the first entry in the list, returns NULL.
 *
 * Example:
 *      first = list_prev(&parent->children, second, list);
 *      if (!first)
 *              printf("Can't go back to first child?!\n");
 */
#define list_prev(h, i, member)                                         \
        ((list_typeof(i))list_entry_or_null(list_debug(h,               \
                                            __FILE__ ":" stringify(__LINE__)), \
                                            (i)->member.prev,           \
                                            list_off_var_((i), member)))

/**
 * list_append_list - empty one list onto the end of another.
 * @to: the list to append into
 * @from: the list to empty.
 *
 * This takes the entire contents of @from and moves it to the end of
 * @to.  After this @from will be empty.
 *
 * Example:
 *      struct list_head adopter;
 *
 *      list_append_list(&adopter, &parent->children);
 *      assert(list_empty(&parent->children));
 *      parent->num_children = 0;
 */
#define list_append_list(t, f) list_append_list_(t, f,                  \
                                   __FILE__ ":" stringify(__LINE__))
static inline void list_append_list_(struct list_head *to,
                                     struct list_head *from,
                                     const char *abortstr)
{
        struct list_node *from_tail = list_debug(from, abortstr)->n.prev;
        struct list_node *to_tail = list_debug(to, abortstr)->n.prev;

        /* Sew in head and entire list. */
        to->n.prev = from_tail;
        from_tail->next = &to->n;
        to_tail->next = &from->n;
        from->n.prev = to_tail;

        /* Now remove head. */
        list_del(&from->n);
        list_head_init(from);
}

/**
 * list_prepend_list - empty one list into the start of another.
 * @to: the list to prepend into
 * @from: the list to empty.
 *
 * This takes the entire contents of @from and moves it to the start
 * of @to.  After this @from will be empty.
 *
 * Example:
 *      list_prepend_list(&adopter, &parent->children);
 *      assert(list_empty(&parent->children));
 *      parent->num_children = 0;
 */
#define list_prepend_list(t, f) list_prepend_list_(t, f, LIST_LOC)
static inline void list_prepend_list_(struct list_head *to,
                                      struct list_head *from,
                                      const char *abortstr)
{
        struct list_node *from_tail = list_debug(from, abortstr)->n.prev;
        struct list_node *to_head = list_debug(to, abortstr)->n.next;

        /* Sew in head and entire list. */
        to->n.next = &from->n;
        from->n.prev = &to->n;
        to_head->prev = from_tail;
        from_tail->next = to_head;

        /* Now remove head. */
        list_del(&from->n);
        list_head_init(from);
}

/**
 * list_for_each_off - iterate through a list of memory regions.
 * @h: the list_head
 * @i: the pointer to a memory region wich contains list node data.
 * @off: offset(relative to @i) at which list node data resides.
 *
 * This is a low-level wrapper to iterate @i over the entire list, used to
 * implement all oher, more high-level, for-each constructs. It's a for loop,
 * so you can break and continue as normal.
 *
 * WARNING! Being the low-level macro that it is, this wrapper doesn't know
 * nor care about the type of @i. The only assumtion made is that @i points
 * to a chunk of memory that at some @offset, relative to @i, contains a
 * properly filled `struct node_list' which in turn contains pointers to
 * memory chunks and it's turtles all the way down. Whith all that in mind
 * remember that given the wrong pointer/offset couple this macro will
 * happilly churn all you memory untill SEGFAULT stops it, in other words
 * caveat emptor.
 *
 * It is worth mentioning that one of legitimate use-cases for that wrapper
 * is operation on opaque types with known offset for `struct list_node'
 * member(preferably 0), because it allows you not to disclose the type of
 * @i.
 *
 * Example:
 *      list_for_each_off(&parent->children, child,
 *                              offsetof(struct child, list))
 *              printf("Name: %s\n", child->name);
 */
#define list_for_each_off(h, i, off)                                    \
        for (i = list_node_to_off_(list_debug(h, LIST_LOC)->n.next,     \
                                   (off));                              \
       list_node_from_off_((void *)i, (off)) != &(h)->n;                \
       i = list_node_to_off_(list_node_from_off_((void *)i, (off))->next, \
                             (off)))

/**
 * list_for_each_safe_off - iterate through a list of memory regions, maybe
 * during deletion
 * @h: the list_head
 * @i: the pointer to a memory region wich contains list node data.
 * @nxt: the structure containing the list_node
 * @off: offset(relative to @i) at which list node data resides.
 *
 * For details see `list_for_each_off' and `list_for_each_safe'
 * descriptions.
 *
 * Example:
 *      list_for_each_safe_off(&parent->children, child,
 *              next, offsetof(struct child, list))
 *              printf("Name: %s\n", child->name);
 */
#define list_for_each_safe_off(h, i, nxt, off)                          \
        for (i = list_node_to_off_(list_debug(h, LIST_LOC)->n.next,     \
                                   (off)),                              \
         nxt = list_node_to_off_(list_node_from_off_(i, (off))->next,   \
                                 (off));                                \
       list_node_from_off_(i, (off)) != &(h)->n;                        \
       i = nxt,                                                         \
         nxt = list_node_to_off_(list_node_from_off_(i, (off))->next,   \
                                 (off)))


/* Other -off variants. */
#define list_entry_off(n, type, off)            \
        ((type *)list_node_from_off_((n), (off)))

#define list_head_off(h, type, off)             \
        ((type *)list_head_off((h), (off)))

#define list_tail_off(h, type, off)             \
        ((type *)list_tail_((h), (off)))

#define list_add_off(h, n, off)                 \
        list_add((h), list_node_from_off_((n), (off)))

#define list_del_off(n, off)                    \
        list_del(list_node_from_off_((n), (off)))

#define list_del_from_off(h, n, off)                    \
        list_del_from(h, list_node_from_off_((n), (off)))

/* Offset helper functions so we only single-evaluate. */
static inline void *list_node_to_off_(struct list_node *node, size_t off)
{
        return (void *)((char *)node - off);
}
static inline struct list_node *list_node_from_off_(void *ptr, size_t off)
{
        return (struct list_node *)((char *)ptr + off);
}

/* Get the offset of the member, but make sure it's a list_node. */
#define list_off_(type, member)                                 \
        (container_off(type, member) +                          \
         check_type(((type *)0)->member, struct list_node))

#define list_off_var_(var, member)                      \
        (container_off_var(var, member) +               \
         check_type(var->member, struct list_node))

#if HAVE_TYPEOF
#define list_typeof(var) typeof(var)
#else
#define list_typeof(var) void *
#endif

/* Returns member, or NULL if at end of list. */
static inline void *list_entry_or_null(const struct list_head *h,
                                       const struct list_node *n,
                                       size_t off)
{
        if (n == &h->n)
                return NULL;
        return (char *)n - off;
}
#endif /* CCAN_LIST_H */