sam/slibs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Compare commits

base: sam:main
Branches Tags
sam:main
sam:memory
..
compare: sam:memory
Branches Tags
sam:main
sam:memory

No commits in common. "main" and "memory" have entirely different histories.
main ... memory

1 changed files with 292 additions and 243 deletions
Show stats Expand all files Collapse all files

535
slibs.h
View file

@ -7,98 +7,166 @@
#include <stdlib.h> #include <stdlib.h>
#include <string.h> #include <string.h>
// Miscellaneous #pragma region Memory
typedef struct sl_metadata
{
uint8_t magic;
uint32_t size;
} sl_metadata;
#define MD_SZ sizeof(sl_metadata)
#define MD_MAGIC 0xDE
typedef void *sl_mem;
void *sl_get_memory(sl_metadata *m);
sl_metadata *sl_get_metadata(sl_mem ptr);
void *sl_malloc(uint32_t size);
void *sl_realloc(sl_mem ptr, uint32_t size);
sl_mem __sl_serialize_struct(void *struc, size_t size);
#define sl_serialize_struct(struc) __sl_serialize_struct((void *)&struc, sizeof(struc))
#ifdef SL_IMPLEMENTATION
sl_mem sl_get_memory(sl_metadata *md)
{
return (sl_mem)((uintptr_t)md + MD_SZ);
}
sl_metadata *sl_get_metadata(sl_mem ptr)
{
sl_metadata *md = (sl_metadata *)((uintptr_t)ptr - MD_SZ);
assert(md->magic == MD_MAGIC && "Metadata magic does not match.");
return md;
}
sl_mem sl_malloc(uint32_t size)
{
sl_metadata *md = (sl_metadata *)malloc(size + MD_SZ);
md->magic = MD_MAGIC;
md->size = size;
return sl_get_memory(md);
}
void *sl_realloc(sl_mem ptr, uint32_t size)
{
sl_metadata *md = (sl_metadata *)realloc(sl_get_metadata(ptr), size);
md->size = size;
return sl_get_memory(md);
}
sl_mem __sl_serialize_struct(sl_mem struc, size_t size)
{
sl_mem mem = NULL;
size_t offset = 0;
for (int i = 0; i < size / sizeof(uintptr_t); i++)
{
sl_mem ptr = *(sl_mem *)(struc + i * sizeof(void *));
sl_metadata *md = sl_get_metadata(ptr);
size_t full_size = md->size + MD_SZ;
if (mem == NULL)
{
mem = sl_malloc(full_size);
}
else
{
sl_metadata *mem_md = sl_get_metadata(mem);
mem = sl_realloc(mem, mem_md->size + full_size);
}
memcpy(mem + offset, md, MD_SZ);
offset += MD_SZ;
memcpy(mem + offset, ptr, md->size);
offset += md->size;
}
return mem;
}
#endif
#pragma endregion
#pragma region Miscellaneous
#define sl_auto(name, x) typeof(x) name = x #define sl_auto(name, x) typeof(x) name = x
#define sl_new(type, ...) \ #define sl_new(type, ...) \
({ \ ({ \
type *ptr = malloc(sizeof(type)); \ type *ptr = sl_malloc(sizeof(type)); \
*ptr = (type){__VA_ARGS__}; \ *ptr = (type){__VA_ARGS__}; \
ptr; \ ptr; \
}) })
#define sl_init(type, ...) \ #define sl_init(type, ...) \
(type) { __VA_ARGS__ } (type) { __VA_ARGS__ }
#define sl_array_len(arr) sizeof(arr) / sizeof(arr[0]) #define sl_array_len(arr) sizeof(arr) / sizeof(arr[0])
#define sl_fmt_spec(arg) \ #define sl_fmt_spec(arg) \
_Generic((arg), \ _Generic((arg), \
int8_t: "%d", \ int8_t: "%d", \
int16_t: "%d", \ int16_t: "%d", \
int32_t: "%d", \ int32_t: "%d", \
int64_t: "%lld", \ int64_t: "%lld", \
uint8_t: "%u", \ uint8_t: "%u", \
uint16_t: "%u", \ uint16_t: "%u", \
uint32_t: "%lu", \ uint32_t: "%lu", \
uint64_t: "%llu", \ uint64_t: "%llu", \
double: "%lf", \ double: "%lf", \
float: "%f", \ float: "%f", \
char: "%c", \ char: "%c", \
char *: "%s", \ char *: "%s", \
void *: "%p", \ void *: "%p", \
default: "Unknown") default: "Unknown")
#define sl_stringify(x) #x #define sl_stringify(x) #x
// Vector #pragma endregion
#pragma region Vector
#define sl_vec(type) \ #define sl_vec(type) \
struct { \ struct \
type *data; \ { \
size_t size; \ type *data; \
size_t capacity; \ size_t size; \
size_t capacity; \
} }
#define sl_vec_grow(vec) \ #define sl_vec_grow(vec) \
{ \ { \
(vec).capacity = (vec).capacity * 2 + 1; \ (vec).capacity = (vec).capacity * 2 + 1; \
void *ptr = realloc((vec).data, (vec).capacity * sizeof(*(vec).data)); \ void *ptr; \
if (ptr) \ if ((vec).data == NULL) \
(vec).data = ptr; \ ptr = sl_malloc((vec).capacity * sizeof(*(vec).data)); \
else \
ptr = sl_realloc((vec).data, (vec).capacity * sizeof(*(vec).data)); \
assert(ptr != NULL); \
(vec).data = ptr; \
} }
#define sl_vec_push(vec, element) \ #define sl_vec_push(vec, element) \
{ \ { \
if ((vec).size >= (vec).capacity) \ if ((vec).size >= (vec).capacity) \
sl_vec_grow(vec); \ sl_vec_grow(vec); \
(vec).data[(vec).size++] = (element); \ (vec).data[(vec).size++] = (element); \
} }
#define sl_vec_from_arr(vec, arr) \ #define sl_vec_shift(vec, element) \
{ \ { \
for (size_t i = 0; i < sizeof(arr) / sizeof(arr[0]); i++) { \ if ((vec).size >= (vec).capacity) \
sl_vec_push(vec, arr[i]); \ sl_vec_grow(vec); \
} \ memmove((vec).data + 1, (vec).data, (vec).size * sizeof(*(vec).data)); \
(vec).data[0] = (element); \
(vec).size++; \
} }
#define sl_vec_unshift(vec, element) \ #define sl_vec_pop(vec) \
{ \ { \
if ((vec).size >= (vec).capacity) \ if ((vec).size > 0) \
sl_vec_grow(vec); \ { \
memmove((vec).data + 1, (vec).data, (vec).size * sizeof(*(vec).data)); \ (vec).size--; \
(vec).data[0] = (element); \ } \
(vec).size++; \
}
#define sl_vec_shift(vec) \
{ \
memmove((vec).data, (vec).data + 1, (vec).size * sizeof(*(vec).data)); \
(vec).size--; \
}
#define sl_vec_forward(vec) \
{ (vec).data++; }
#define sl_vec_backward(vec) \
{ (vec).data--; }
#define sl_vec_pop(vec) \
{ \
if ((vec).size > 0) { \
(vec).size--; \
} \
} }
#define sl_vec_at(vec, index) ((vec).data[index]) #define sl_vec_at(vec, index) ((vec).data[index])
@ -113,214 +181,195 @@
#define sl_vec_end(vec) ((vec).data + (vec).size) #define sl_vec_end(vec) ((vec).data + (vec).size)
#define sl_vec_it(name, vec) \ #define sl_vec_it(name, vec) \
sl_auto((name), sl_vec_begin(vec)); \ sl_auto((name), sl_vec_begin(vec)); \
(name) != sl_vec_end(vec); \ (name) != sl_vec_end(vec); \
++(name) ++(name)
// TODO: Linked List #pragma endregion
#pragma region String
// #define sl_list(name, type) \
// struct name \
// { \
// type *data; \
// struct name *next; \
// }
// #define sl_list_append(list, value) \
// { \
// sl_auto(curr, list);\
// } \
// Hashmap
#define SL_MAX_HASH_ENTRIES 512
int sl_hash(const char *str);
#define sl_map(name, valuetype) \
typedef valuetype sl_##name##_type; \
\
typedef struct sl_##name##_entry { \
const char *key; \
sl_##name##_type value; \
} sl_##name##_entry; \
\
typedef sl_vec(sl_##name##_entry) sl_##name##_entry_vec; \
\
typedef struct sl_##name##_map { \
sl_##name##_entry_vec *entries[SL_MAX_HASH_ENTRIES]; \
} sl_##name##_map; \
\
sl_##name##_map name = {0};
#define sl_map_set(map, key_, val) \
{ \
int hash = sl_hash(key_); \
sl_##map##_entry_vec *entry = map.entries[hash]; \
if (!entry) { \
entry = calloc(1, sizeof(sl_##map##_entry_vec)); \
map.entries[hash] = entry; \
} \
int found = 0; \
for (sl_vec_it(el, *entry)) { \
if (strcmp(el->key, key_) == 0) { \
el->value = val; \
found = 1; \
break; \
} \
} \
if (!found) { \
sl_##map##_entry new_entry = {key_, val}; \
sl_vec_push(*entry, new_entry) \
} \
}
#define sl_map_get(map, key_) \
({ \
sl_##map##_entry_vec *entry = map.entries[sl_hash(key_)]; \
sl_##map##_type *value = NULL; \
\
if (entry) { \
for (sl_vec_it(el, *entry)) { \
if (strcmp(el->key, key_) == 0) { \
value = &el->value; \
break; \
} \
} \
} \
\
value; \
})
#ifdef SL_IMPLEMENTATION
int sl_hash(const char *str) {
uint32_t seed = 0;
size_t len = strlen(str);
for (size_t i = 0; i < len && i < sizeof(uint32_t); i++) {
seed <<= 8;
seed |= str[i];
}
srand(seed);
return rand() % SL_MAX_HASH_ENTRIES;
}
#endif
// String
typedef sl_vec(char) sl_string; typedef sl_vec(char) sl_string;
#define sl_string(c_str) \ #define sl_string(c_str) \
({ \ ({ \
sl_string str = {0}; \ sl_string str = {0}; \
for (size_t i = 0; i < strlen((c_str)); i++) \ for (size_t i = 0; i < strlen((c_str)); i++) \
sl_vec_push(str, (c_str)[i]); \ sl_vec_push(str, (c_str)[i]); \
str; \ str; \
}) })
#define sl_tostring(val) \ #define sl_tostring(val) \
({ \ ({ \
sl_auto(len, snprintf(NULL, 0, sl_fmt_spec(val), val) + 1); \ sl_auto(len, snprintf(NULL, 0, sl_fmt_spec(val), val) + 1); \
sl_auto(buf, (char *)malloc(len)); \ sl_auto(buf, (char *)sl_malloc(len)); \
snprintf(buf, len, sl_fmt_spec(val), val); \ snprintf(buf, len, sl_fmt_spec(val), val); \
sl_auto(str, sl_string(buf)); \ sl_auto(str, sl_string(buf)); \
free(buf); \ free(buf); \
str; \ str; \
}) })
#define sl_str_free(str) sl_vec_free(str) #define sl_str_free(str) sl_vec_free(str)
char *sl_c_str(sl_string str); #define sl_c_str(str) \
({ \
#ifdef SL_IMPLEMENTATION sl_vec_push((str), '\0'); \
char *sl_c_str(sl_string str) { (str).size--; \
sl_vec_push(str, '\0'); (str).data; \
return str.data;
}
#endif
void sl_append_c_str(sl_string *sl_str, const char *c_str);
#ifdef SL_IMPLEMENTATION
void sl_append_c_str(sl_string *sl_str, const char *c_str) {
for (int i = 0; i < strlen(c_str); i++) {
sl_vec_push(*sl_str, c_str[i]);
}
}
#endif
// Pointers
#define sl_ptr(type) \
struct { \
type *ptr; \
int ref_count; \
}
#define sl_ptr_make(raw_ptr) {raw_ptr, 1}
#define sl_ptr_release(smart_ptr) \
({ \
smart_ptr.ref_count--; \
if (smart_ptr.ref_count <= 0) { \
free(smart_ptr.ptr); \
} \
}) })
#define sl_ptr_get(smart_ptr, raw_ptr_name, scope) \ #pragma endregion
({ \ #pragma region Pointers
assert(smart_ptr.ref_count > 0 && "Smart pointer already released!"); \
sl_auto(raw_ptr_name, smart_ptr.ptr); \ #define sl_ptr(type) \
smart_ptr.ref_count++; \ struct \
scope; \ { \
sl_ptr_release(smart_ptr); \ type *ptr; \
int ref_count; \
}
#define sl_ptr_make(raw_ptr) \
{ \
raw_ptr, 1 \
}
#define sl_ptr_release(smart_ptr) \
({ \
smart_ptr.ref_count--; \
if (smart_ptr.ref_count <= 0) \
{ \
free(smart_ptr.ptr); \
} \
})
#define sl_ptr_get(smart_ptr, raw_ptr_name, scope) \
({ \
assert(smart_ptr.ref_count > 0 && "Smart pointer already released!"); \
sl_auto(raw_ptr_name, smart_ptr.ptr); \
smart_ptr.ref_count++; \
scope; \
sl_ptr_release(smart_ptr); \
}); });
#define sl_ptr_scope(smart_ptr, scope) \ #define sl_ptr_scope(smart_ptr, scope) \
({ \ ({ \
scope; \ scope; \
sl_ptr_release(smart_ptr); \ sl_ptr_release(smart_ptr); \
}); });
FILE *sl_open_file(const char *filename, const char *mode); void sl_read_file(const char *filename, sl_string *buffer);
sl_string *sl_read_file(const char *filename); void sl_write_file(const char *filename, const sl_string *buffer);
void sl_write_file(const char *filename, const sl_string buffer); void sl_write_bytes(const char *filename, const uint8_t *data, size_t length);
uint8_t *sl_read_bytes(const char *filename, size_t *length);
void sl_write_metadata(const char *filename, sl_metadata *m);
void sl_write_memory(const char *filename, void *ptr);
#ifdef SL_IMPLEMENTATION #ifdef SL_IMPLEMENTATION
FILE *sl_open_file(const char *filename, const char *mode) { void sl_read_file(const char *filename, sl_string *buffer)
FILE *file = fopen(filename, mode); {
return file; FILE *file = fopen(filename, "r");
}
sl_string *sl_read_file(const char *filename) {
FILE *file = sl_open_file(filename, "r");
if (!file) if (!file)
return NULL; {
fprintf(stderr, "Error: could not open file %s\n", filename);
exit(1);
}
fseek(file, 0, SEEK_END); fseek(file, 0, SEEK_END);
size_t file_size = ftell(file); size_t file_size = ftell(file);
fseek(file, 0, SEEK_SET); fseek(file, 0, SEEK_SET);
sl_string *buffer = sl_new(sl_string, 0); for (size_t i = 0; i < file_size; i++)
{
for (size_t i = 0; i < file_size; i++) {
sl_vec_push(*buffer, fgetc(file)); sl_vec_push(*buffer, fgetc(file));
} }
fclose(file); fclose(file);
return buffer;
} }
void sl_write_file(const char *filename, sl_string buffer) { void sl_write_file(const char *filename, const sl_string *buffer)
FILE *file = sl_open_file(filename, "w"); {
FILE *file = fopen(filename, "w");
if (!file) if (!file)
return; {
fprintf(stderr, "Error: could not open file %s\n", filename);
exit(1);
}
for (size_t i = 0; i < buffer->size; i++)
{
fputc(buffer->data[i], file);
}
fputs(sl_c_str(buffer), file);
fclose(file); fclose(file);
} }
void sl_write_bytes(const char *filename, const uint8_t *data, size_t length)
{
FILE *file = fopen(filename, "wb");
if (!file)
{
fprintf(stderr, "Error: could not open file %s\n", filename);
exit(1);
}
size_t written = fwrite(data, sizeof(uint8_t), length, file);
if (written != length)
{
fprintf(stderr, "Error: could not write all data to file %s\n", filename);
fclose(file);
exit(1);
}
fclose(file);
}
uint8_t *sl_read_bytes(const char *filename, size_t *length)
{
FILE *file = fopen(filename, "rb");
if (!file)
{
fprintf(stderr, "Error: could not open file %s\n", filename);
exit(1);
}
fseek(file, 0, SEEK_END);
size_t file_size = ftell(file);
fseek(file, 0, SEEK_SET);
uint8_t *data = (uint8_t *)sl_malloc(file_size);
if (!data)
{
fprintf(stderr, "Error: could not allocate memory\n");
fclose(file);
exit(1);
}
size_t read = fread(data, sizeof(uint8_t), file_size, file);
if (read != file_size)
{
fprintf(stderr, "Error: could not read all data from file %s\n", filename);
free(data);
fclose(file);
exit(1);
}
fclose(file);
if (length != NULL)
*length = file_size;
return data;
}
void sl_write_metadata(const char *filename, sl_metadata *m)
{
sl_write_bytes(filename, sl_get_memory(m), m->size);
}
void sl_write_memory(const char *filename, void *ptr)
{
sl_write_metadata(filename, sl_get_metadata(ptr));
}
#endif #endif
#pragma endregion
#endif // SLIBS_H #endif // SLIBS_H