LinkedList: delete method

diff --git a/qcsrc/lib/linkedlist.qh b/qcsrc/lib/linkedlist.qh
index 94d26e17575a55a921d32799f5dfe7a1b3650c65..a4200122f473452e3c76c4d9ca40c7d71e89c939 100644 (file)
--- a/qcsrc/lib/linkedlist.qh
+++ b/qcsrc/lib/linkedlist.qh
@@ -45,6 +45,20 @@ entity LL_POP(LinkedList this)
        return e;
 }
 
+#define LL_DELETE(this) \
+       do \
+       { \
+               LinkedList _ll = this; \
+               assert(_ll); \
+               while (_ll.ll_tail) \
+               { \
+                       entity it = LL_POP(_ll); \
+                       if (it) remove(it); \
+               } \
+               this = NULL; \
+       } \
+       while (0)
+
 #define LL_EACH(list, cond, body) \
        do                                                                  \
        {                                                                   \