44 lines
1.3 KiB
C
44 lines
1.3 KiB
C
#include "lisp_string.h"
|
|
|
|
#include <string.h>
|
|
|
|
LispVal *make_lisp_string(const char *data, size_t length, bool take,
|
|
bool copy) {
|
|
LispString *obj = lisp_alloc_object(sizeof(LispString), TYPE_STRING);
|
|
obj->owned = take;
|
|
obj->length = length;
|
|
if (copy) {
|
|
obj->data = lisp_malloc(length + 1);
|
|
memcpy(obj->data, data, length);
|
|
obj->data[length] = '\0';
|
|
} else {
|
|
obj->data = (char *) data;
|
|
}
|
|
return obj;
|
|
}
|
|
|
|
DEFUN(strings_equal, "strings-equal", (LispVal * string1, LispVal *string2),
|
|
"(string1 string2)", "") {
|
|
// TODO type checking
|
|
if (((LispString *) string1)->length != ((LispString *) string2)->length) {
|
|
return Qnil;
|
|
}
|
|
return memcmp(((LispString *) string1)->data,
|
|
((LispString *) string2)->data,
|
|
((LispString *) string1)->length)
|
|
== 0
|
|
? Qt
|
|
: Qnil;
|
|
}
|
|
|
|
DEFUN(hash_string, "hash-string", (LispVal * string), "(string)", "") {
|
|
// TODO type checking
|
|
size_t len = ((LispString *) string)->length;
|
|
const char *str = ((LispString *) string)->data;
|
|
uintptr_t hash = 5381;
|
|
for (size_t i = 0; i < len; ++i) {
|
|
hash = ((hash << 5) + hash) + str[i];
|
|
}
|
|
return MAKE_FIXNUM(hash);
|
|
}
|