factor/native/sbuf.c

#include "factor.h"

F_SBUF* sbuf(F_FIXNUM capacity)
{
	F_SBUF* sbuf;
	if(capacity < 0)
		general_error(ERROR_NEGATIVE_ARRAY_SIZE,tag_fixnum(capacity));
	sbuf = allot_object(SBUF_TYPE,sizeof(F_SBUF));
	sbuf->top = tag_fixnum(0);
	sbuf->string = tag_object(string(capacity,'\0'));
	return sbuf;
}

void primitive_sbuf(void)
{
	maybe_garbage_collection();
	drepl(tag_object(sbuf(to_fixnum(dpeek()))));
}

void primitive_sbuf_to_string(void)
{
	F_STRING* result;
	F_SBUF* sbuf = untag_sbuf(dpeek());
	F_STRING* string = untag_string(sbuf->string);
	CELL length = untag_fixnum_fast(sbuf->top);

	result = allot_string(length);
	memcpy(result + 1,
		(void*)((CELL)(string + 1)),
		CHARS * length);
	rehash_string(result);

	drepl(tag_object(result));
}

void fixup_sbuf(F_SBUF* sbuf)
{
	data_fixup(&sbuf->string);
}

void collect_sbuf(F_SBUF* sbuf)
{
	copy_handle(&sbuf->string);
}