namespace factor {

struct growable_byte_array {
  cell count;
  data_root<byte_array> elements;

  // 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;
}

}