factor/native/string.h

typedef struct {
	CELL header;
	/* tagged num of chars */
	CELL length;
	/* tagged */
	CELL hashcode;
} F_STRING;

#define SREF(string,index) ((CELL)string + sizeof(F_STRING) + index * CHARS)

INLINE F_STRING* untag_string_fast(CELL tagged)
{
	return (F_STRING*)UNTAG(tagged);
}

INLINE F_STRING* untag_string(CELL tagged)
{
	type_check(STRING_TYPE,tagged);
	return untag_string_fast(tagged);
}

INLINE CELL string_capacity(F_STRING* str)
{
	return untag_fixnum_fast(str->length);
}

INLINE CELL string_size(CELL size)
{
	return align8(sizeof(F_STRING) + (size + 1) * CHARS);
}

F_STRING* allot_string(F_FIXNUM capacity);
F_STRING* string(F_FIXNUM capacity, CELL fill);
void primitive_string(void);
void rehash_string(F_STRING* str);
void primitive_rehash_string(void);
F_STRING* resize_string(F_STRING* string, F_FIXNUM capacity, u16 fill);
void primitive_resize_string(void);
F_ARRAY *string_to_alien(F_STRING *s, bool check);
char* to_c_string(F_STRING* s, bool check);
void string_to_memory(F_STRING* s, BYTE* string);
void primitive_string_to_memory(void);
DLLEXPORT void box_c_string(const char* c_string);
F_STRING* from_c_string(const char* c_string);
F_STRING* memory_to_string(const BYTE* string, CELL length);
void primitive_memory_to_string(void);
DLLEXPORT char* unbox_c_string(void);
char *pop_c_string(void);
DLLEXPORT u16* unbox_utf16_string(void);
DLLEXPORT void box_utf16_string(u16 *unboxed);

/* untagged & unchecked */
INLINE CELL string_nth(F_STRING* string, CELL index)
{
	return cget(SREF(string,index));
}

/* untagged & unchecked */
INLINE void set_string_nth(F_STRING* string, CELL index, u16 value)
{
	cput(SREF(string,index),value);
}

void primitive_char_slot(void);
void primitive_set_char_slot(void);