Bitvectors

ListTalk/ListTalk.h

@@ -47,6 +47,7 @@
 #include <ListTalk/classes/BindingDescriptor.h>
 #include <ListTalk/classes/MethodDescriptor.h>
 #include <ListTalk/classes/Vector.h>
+#include <ListTalk/classes/BitVector.h>
 #include <ListTalk/classes/ByteVector.h>
 #include <ListTalk/classes/RandomAccessFile.h>
 #include <ListTalk/classes/Builder.h>

ListTalk/classes/BitVector.h

@@ -0,0 +1,35 @@
+/*
+ * SPDX-License-Identifier: MIT
+ * Copyright (c) 2023 - 2026 Ales Hakl
+ */
+
+#ifndef H__ListTalk__BitVector__
+#define H__ListTalk__BitVector__
+
+#include <ListTalk/macros/env_macros.h>
+
+#include <ListTalk/vm/value.h>
+#include <ListTalk/macros/decl_macros.h>
+
+LT__BEGIN_DECLS
+
+LT_DECLARE_CLASS(LT_BitVector);
+LT_DECLARE_CLASS(LT_BitVectorIterator);
+
+LT_BitVector* LT_BitVector_new(size_t length, int fill);
+/* Input arrays contain ceil(bit_length / 8) packed bytes. */
+LT_BitVector* LT_BitVector_from_le_uint8_array(const uint8_t* bytes,
+                                               size_t bit_length);
+LT_BitVector* LT_BitVector_from_be_uint8_array(const uint8_t* bytes,
+                                               size_t bit_length);
+size_t LT_BitVector_length(LT_BitVector* bitvector);
+size_t LT_BitVector_byte_length(LT_BitVector* bitvector);
+int LT_BitVector_at(LT_BitVector* bitvector, size_t index);
+void LT_BitVector_atPut(LT_BitVector* bitvector, size_t index, int value);
+/* Output arrays must have LT_BitVector_byte_length(bitvector) bytes. */
+void LT_BitVector_to_le_uint8_array(LT_BitVector* bitvector, uint8_t* bytes);
+void LT_BitVector_to_be_uint8_array(LT_BitVector* bitvector, uint8_t* bytes);
+
+LT__END_DECLS
+
+#endif

meson.build

@@ -146,6 +146,7 @@ vm_lib = library(
                 'src/classes/List.c',
                 'src/classes/String.c',
                 'src/classes/Vector.c',
+                'src/classes/BitVector.c',
                 'src/classes/ByteVector.c',
                 'src/classes/RandomAccessFile.c',
                 'src/classes/Builder.c',