Add delete_after for klist

Author: tecywiz121

klist.h

@@ -115,6 +115,18 @@
 		if (d) *d = p->data;											\
 		kmp_free(name, kl->mp, p);										\
 		return 0;														\
+	}																	\
+    static inline int kl_delete_after_##name(kl_##name##_t *kl,			\
+                                                kl1_##name *c,			\
+												kltype_t *d) {			\
+		kl1_##name *p;													\
+		if (c->next == 0) return -1;									\
+		if (c->next->next == 0) return -1;								\
+		--kl->size;														\
+		p = c->next; c->next = c->next->next;							\
+		if (d) *d = p->data;											\
+		kmp_free(name, kl->mp, p);										\
+		return 0;														\
 	}
 
 #define KLIST_INIT(name, kltype_t, kmpfree_t)							\
@@ -131,5 +143,6 @@
 #define kl_destroy(name, kl) kl_destroy_##name(kl)
 #define kl_pushp(name, kl) kl_pushp_##name(kl)
 #define kl_shift(name, kl, d) kl_shift_##name(kl, d)
+#define kl_delete_after(name, kl, iter, d) kl_delete_after_##name(kl, iter, d)
 
 #endif

test/klist_test.c

@@ -11,7 +11,9 @@ int main()
 	kl = kl_init(32);
 	*kl_pushp(32, kl) = 1;
 	*kl_pushp(32, kl) = 10;
+	*kl_pushp(32, kl) = 19;
 	kl_shift(32, kl, 0);
+	kl_delete_after(32, kl, kl_begin(kl), 0);
 	for (p = kl_begin(kl); p != kl_end(kl); p = kl_next(p))
 		printf("%d\n", kl_val(p));
 	kl_destroy(32, kl);