Added remove func for list object

Author: iWas-Coder

carbon.h

@@ -587,6 +587,7 @@ CARBON_API void carbon_list_destroy(CBN_List *l);
 CARBON_API void carbon_list_push(CBN_List *l, void *value);
 CARBON_API void carbon_list_pop(CBN_List *l, void *out_value);
 CARBON_API isz carbon_list_find(CBN_List *l, const void *value);
+CARBON_API void carbon_list_remove(CBN_List *l, usz idx);
 
 /*
 **  $$=====================$$

src/carbon_list.c

@@ -84,3 +84,31 @@ isz carbon_list_find(CBN_List *l, const void *value) {
   }
   return -1;
 }
+
+void carbon_list_remove(CBN_List *l, usz idx) {
+  if (!l) {
+    carbon_log_error("`l` must be a valid pointer");
+    return;
+  }
+  if (idx >= l->size) {
+    carbon_log_error("idx out of bounds (size: %$, idx: %$)", $(l->size), $(idx));
+    return;
+  }
+  if (idx < l->size - 1) {
+    void *dst = (void *) ((u64) l->items + (idx * l->stride));
+    void *src = (void *) ((u64) l->items + ((idx + 1) * l->stride));
+    memmove(dst, src, (l->size - idx - 1) * l->stride);
+  }
+  --l->size;
+  if (l->size > 0 && l->size < l->capacity / 4) {
+    l->capacity /= 2;
+    void *prev_p = l->items;
+    usz size = l->capacity * l->stride;
+    l->items = CARBON_REALLOC(l->items, size);
+    if (!l->items && l->size > 0) {
+      carbon_log_error("failed to reallocate memory (%zuB)", size);
+      CARBON_FREE(prev_p);
+      return;
+    }
+  }
+}

test/carbon_list_test.c

@@ -52,3 +52,24 @@ CARBON_TEST(carbon_list, find_element) {
   carbon_list_destroy(&l);
   return CARBON_OK;
 }
+
+CARBON_TEST(carbon_list, remove_element) {
+  CBN_List l = carbon_list_create(sizeof(i32));
+  i32 i = 1, j = 7, k = 3;
+  carbon_list_push(&l, &i);
+  carbon_list_push(&l, &j);
+  carbon_list_push(&l, &k);
+  carbon_should_be(3, l.size);
+  carbon_should_be(i, carbon_list_at(i32, l, 0));
+  carbon_should_be(j, carbon_list_at(i32, l, 1));
+  carbon_should_be(k, carbon_list_at(i32, l, 2));
+  carbon_list_remove(&l, 0);
+  carbon_should_be(2, l.size);
+  carbon_should_be(j, carbon_list_at(i32, l, 0));
+  carbon_should_be(k, carbon_list_at(i32, l, 1));
+  carbon_list_remove(&l, 1);
+  carbon_should_be(1, l.size);
+  carbon_should_be(j, carbon_list_at(i32, l, 0));
+  carbon_list_destroy(&l);
+  return CARBON_OK;
+}