io.streams.256color: faster by caching styles

[factor.git] / vm / byte_arrays.hpp

diff --git a/vm/byte_arrays.hpp b/vm/byte_arrays.hpp
old mode 100755 (executable)
new mode 100644 (file)
index 4954f31..2978d94
--- a/vm/byte_arrays.hpp
+++ b/vm/byte_arrays.hpp
@@ -1,11 +1,27 @@
-namespace factor
-{
+namespace factor {
 
-byte_array *allot_byte_array(cell size);
+struct growable_byte_array {
+  cell count;
+  data_root<byte_array> elements;
 
-PRIMITIVE(byte_array);
-PRIMITIVE(uninitialized_byte_array);
-PRIMITIVE(resize_byte_array);
+  // Allocates memory
+  growable_byte_array(factor_vm* parent, cell capacity = 40)
+      : count(0), elements(parent->allot_byte_array(capacity), parent) {}
 
+  void reallot_array(cell count);
+  void grow_bytes(cell len);
+  void append_bytes(void* elts, cell len);
+  void append_byte_array(cell elts);
+
+  void trim();
+};
+
+// Allocates memory
+template <typename Type>
+byte_array* factor_vm::byte_array_from_value(Type* value) {
+  byte_array* data = allot_uninitialized_array<byte_array>(sizeof(Type));
+  memcpy(data->data<char>(), value, sizeof(Type));
+  return data;
+}
 
 }