feature(main): base library impelmentation

20 files changed, 751 insertions, 0 deletions

diff --git a/source/base/base.h b/source/base/base.h
new file mode 100755
index 0000000..ef23391
--- /dev/null
+++ b/source/base/base.h
@@ -0,0 +1,73 @@
+#ifndef BASE_H
+#define BASE_H
+
+/* assert an expression and output the file and the line */
+
+#define internal static
+#define global_variable static
+#define local_persist static
+
+#define ERR_OK 0
+#define ERR_IO 1
+#define ERR_PARSE 2
+#define ERR_PERM 3
+#define ERR_INVALID 4
+
+#define KiB(n) (((u64)(n)) << 10)
+#define MiB(n) (((u64)(n)) << 20)
+#define GiB(n) (((u64)(n)) << 30)
+
+#define unused(x) (void)(x)
+
+#define PATH_MAX_LEN 128
+#define BUFF_SMALL 128
+#define BUFF_DEFAULT 256
+#define BUFF_LARGE 512
+
+#define NIL 0
+
+#define DEPRECATED __attribute__((__deprecated__))
+
+#if defined(__arm__) || defined(__aarch64__)
+#define breakpoint __asm__ volatile("brk #0");
+#define temp_breakpoint __asm__ volatile("udf #0");
+#elif defined(__i386__) || defined(__x86_64__)
+#define breakpoint __asm__ volatile("int3");
+#endif
+
+#define MemCpy(dest, src, len) memcpy((dest), (src), (len))
+#define MemSet(dest, len) memset((dest), (0), (len))
+
+#if COMPILER_MSVC || (COMPILER_CLANG && OS_WINDOWS)
+#pragma section(".rdata$", read)
+#define read_only __declspec(allocate(".rdata$"))
+#elif (COMPILER_CLANG && OS_LINUX)
+#define read_only __attribute__((section(".rodata")))
+#else
+#define read_only
+#endif
+
+typedef uint64_t u64;
+typedef uint32_t u32;
+typedef uint16_t u16;
+typedef uint8_t  u8;
+
+typedef int8_t  i8;
+typedef int16_t i16;
+typedef int32_t i32;
+typedef int64_t i64;
+
+typedef float  f32;
+typedef double f64;
+
+typedef i32 b32;
+typedef i16 b16;
+typedef u8  b8;
+
+typedef uintptr_t umm;
+typedef intptr_t  smm;
+
+#define TRUE (0 == 0)
+#define FALSE (0 != 0)
+
+#endif
diff --git a/source/base/base_arena.c b/source/base/base_arena.c
new file mode 100755
index 0000000..3e9a6df
--- /dev/null
+++ b/source/base/base_arena.c
@@ -0,0 +1,138 @@
+internal mem_arena *
+arena_create(u64 capacity)
+{
+    mem_arena *arena = (mem_arena *)mmap(
+    /* kernel decides where to throw the arena */
+    NULL,
+    capacity + sizeof(mem_arena),
+    PROT_READ | PROT_WRITE,
+    MAP_SHARED | MAP_ANONYMOUS,
+    -1,
+    0);
+
+    if (arena == MAP_FAILED)
+    {
+        return NULL;
+    }
+
+    arena->capacity          = capacity;
+    arena->base_position     = (u8 *)arena + sizeof(mem_arena);
+    arena->current_position  = 0;
+    arena->previous_position = 0;
+
+    return arena;
+}
+
+internal void
+arena_destroy(mem_arena *arena)
+{
+    if (!arena)
+    {
+        return;
+    }
+    munmap(arena, arena->capacity + sizeof(mem_arena));
+}
+internal void *
+arena_alloc(mem_arena *arena, u64 size)
+{
+    if (!arena)
+    {
+        return NULL;
+    }
+    u64 aligned = Align(arena->current_position, ARENA_ALIGN);
+    u64 new_pos = aligned + size;
+    if (new_pos > arena->capacity)
+    {
+        return NULL;
+    }
+
+    void *out = arena->base_position + aligned;
+
+    arena->previous_position = arena->current_position;
+    arena->current_position  = aligned + size;
+
+    MemSet(out, size);
+
+    return out;
+}
+
+internal void
+arena_pop(mem_arena *arena, u64 size)
+{
+    size = MIN(size, arena->current_position);
+    arena->current_position -= size;
+}
+
+internal void
+arena_pop_to(mem_arena *arena, u64 pos)
+{
+    u64 size = pos < arena->current_position ? arena->current_position - pos : 0;
+    arena_pop(arena, size);
+}
+
+internal void
+arena_clear(mem_arena *arena)
+{
+    arena->current_position = 0;
+}
+
+internal mem_arena *
+arena_resize_align(mem_arena *arena, void *old_memory, u64 new_size, u64 old_size, umm alignment)
+{
+    u8 *old_mem = (u8 *)old_memory;
+
+    if (!is_pow(alignment))
+    {
+        Align(arena->current_position, alignment);
+    }
+
+    if (old_memory == NULL || old_size == 0)
+    {
+        return (mem_arena *)arena_alloc(arena, new_size);
+    }
+    else if ((old_mem >= arena->base_position && old_mem < arena->base_position + arena->capacity))
+    {
+        if ((arena->base_position + arena->previous_position) == old_memory)
+        {
+            arena->current_position = arena->previous_position + new_size;
+            if (new_size > old_size)
+            {
+                MemSet(&arena->current_position, new_size - old_size);
+            }
+            return (mem_arena *)old_memory;
+        }
+        else
+        {
+            void *new_memory = arena_alloc(arena, new_size);
+            umm   copy_size  = old_size < new_size ? old_size : new_size;
+            memmove(new_memory, old_mem, copy_size);
+        }
+    }
+    else
+    {
+        check(0);
+    }
+    return NULL;
+}
+
+internal mem_arena *
+arena_resize(mem_arena *arena, void *old_memory, u64 new_size, u64 old_size)
+{
+    return arena_resize_align(arena, old_memory, new_size, old_size, ARENA_ALIGN);
+}
+
+internal temp_arena
+temp_arena_begin(mem_arena *arena)
+{
+    temp_arena t;
+    t.arena          = arena;
+    t.start_position = arena->current_position;
+
+    return t;
+}
+
+internal void
+temp_arena_end(temp_arena temp)
+{
+    temp.arena->current_position = temp.start_position;
+}
diff --git a/source/base/base_arena.h b/source/base/base_arena.h
new file mode 100755
index 0000000..fe71c24
--- /dev/null
+++ b/source/base/base_arena.h
@@ -0,0 +1,24 @@
+#ifndef BASE_ARENA_H
+#define BASE_ARENA_H
+
+#define Align(pointer, alignment) align((u64)(pointer), (umm)(alignment))
+#define PushStruct(arena, type) (type *)arena_alloc((arena), sizeof(type))
+#define PushArray(arena, type, len) (type *)arena_alloc((arena), sizeof(type) * (len))
+
+typedef struct mem_arena  mem_arena;
+struct mem_arena
+{
+    u64 current_position;
+    u64 previous_position;
+    u64 capacity;
+    u8 *base_position;
+};
+
+typedef struct temp_arena temp_arena;
+struct temp_arena
+{
+    mem_arena *arena;
+    u64        start_position;
+};
+
+#endif /* BASE_ARENA_H */
diff --git a/source/base/base_hash.c b/source/base/base_hash.c
new file mode 100644
index 0000000..1964441
--- /dev/null
+++ b/source/base/base_hash.c
@@ -0,0 +1,12 @@
+
+internal u64 
+generate_hash()
+{
+
+
+
+}
+
+internal hash_map
+make_hash_map
+
diff --git a/source/base/base_include.h b/source/base/base_include.h
new file mode 100755
index 0000000..0b0f256
--- /dev/null
+++ b/source/base/base_include.h
@@ -0,0 +1,30 @@
+#ifndef BASE_INCLUDE_H
+#define BASE_INCLUDE_H
+
+#include <dirent.h>
+#include <sys/mman.h>
+#include <sys/stat.h>
+#include <fcntl.h>
+#include <stdint.h>
+#include <stddef.h>
+#include <string.h>
+#include <unistd.h>
+
+#include "base.h"
+#include "base_mem.h"
+#include "base_arena.h"
+#include "base_stack.h"
+#include "base_test.h"
+#include "base_string.h"
+#include "base_os.h"
+
+#ifdef BASE_UNITY
+
+#include "base_mem.c"
+#include "base_arena.c"
+#include "base_stack.c"
+#include "base_test.c"
+#include "base_string.c"
+
+#endif
+#endif
diff --git a/source/base/base_io.h b/source/base/base_io.h
new file mode 100644
index 0000000..ece4d7c
--- /dev/null
+++ b/source/base/base_io.h
@@ -0,0 +1,11 @@
+#ifndef BASE_IO_H
+#define BASE_IO_H
+
+internal void
+input_read()
+{
+
+
+}
+
+#endif /* BASE_IO_H */
diff --git a/source/base/base_mem.c b/source/base/base_mem.c
new file mode 100644
index 0000000..f20ba39
--- /dev/null
+++ b/source/base/base_mem.c
@@ -0,0 +1,17 @@
+internal inline b8
+is_pow(umm x)
+{
+    return (x & (x - 1)) == 0;
+}
+
+internal inline u64
+align(u64 pointer, umm alignment)
+{
+    if ((alignment & (alignment - 1)) == 0)
+    {
+        return pointer;
+    }
+
+    return (pointer + alignment - 1) & ~(alignment - 1);
+}
+
diff --git a/source/base/base_mem.h b/source/base/base_mem.h
new file mode 100644
index 0000000..945f0ce
--- /dev/null
+++ b/source/base/base_mem.h
@@ -0,0 +1,8 @@
+#ifndef BASE_MEM_H
+#define BASE_MEM_H
+
+#define ARENA_ALIGN (2 * sizeof(void *))
+#define MIN(a, b) (((a) < (b)) ? (a) : (b))
+#define MAX(a, b) (((a) > (b)) ? (a) : (b))
+
+#endif
diff --git a/source/base/base_os.h b/source/base/base_os.h
new file mode 100644
index 0000000..ce9acae
--- /dev/null
+++ b/source/base/base_os.h
@@ -0,0 +1,14 @@
+#ifndef BASE_OS_H
+#define BASE_OS_H
+
+internal void
+print(const char *str)
+{
+    i32 len = 0;
+    while (str[len]) len++;
+    write(STDOUT_FILENO, str, len);
+}
+
+#define print(Format) print(Format)
+
+#endif /* BASE_OS_H */
diff --git a/source/base/base_stack.c b/source/base/base_stack.c
new file mode 100755
index 0000000..9c1218a
--- /dev/null
+++ b/source/base/base_stack.c
@@ -0,0 +1,187 @@
+internal mem_stack *
+stack_create(u64 capacity)
+{
+    mem_stack *stack = (mem_stack *)mmap(
+    0,
+    capacity + sizeof(mem_stack),
+    PROT_READ | PROT_WRITE,
+    MAP_SHARED | MAP_ANONYMOUS,
+    -1,
+    0);
+
+    if (stack == MAP_FAILED)
+    {
+        return NULL;
+    }
+
+    stack->capacity       = capacity;
+    stack->base_position  = (u8 *)stack + sizeof(mem_stack);
+    stack->current_offset = 0;
+
+    return stack;
+}
+
+internal u8
+calculate_padding(u64 pointer, u8 alignment, u64 header_size)
+{
+    u8 modulo, padding;
+
+    if (!is_pow(alignment))
+    {
+        return 0;
+    }
+
+    modulo = pointer & (u8)(alignment - 1);
+
+    padding = 0;
+
+    if (0 == modulo)
+    {
+        padding = alignment - modulo;
+    }
+
+    if (padding < header_size)
+    {
+        header_size -= padding;
+
+        if ((header_size & (alignment - 1)) != 0)
+        {
+            padding += alignment * (1 + (header_size / alignment));
+        }
+        else
+        {
+            padding += alignment * (header_size / alignment);
+        }
+    }
+
+    return padding;
+}
+
+internal mem_stack *
+stack_push_align(mem_stack *stack, u64 size, u8 alignment)
+{
+    u8 padding = 0;
+
+    if (!is_pow(alignment))
+    {
+        return (0);
+    }
+
+    if (alignment > 128)
+    {
+        alignment = 128;
+    }
+
+    u64 current_address = (u64)stack->base_position + stack->current_offset;
+    padding             = calculate_padding(current_address, alignment, sizeof(mem_stack_header));
+
+    if (stack->current_offset + padding + size > stack->capacity)
+    {
+        return 0;
+    }
+
+    stack->current_offset += padding;
+
+    u64               next_address = current_address + (u64)padding;
+    mem_stack_header *header       = (mem_stack_header *)(next_address - sizeof(mem_stack_header));
+    header->padding                = padding;
+
+    stack->current_offset += size;
+
+    return MemSet((void *)next_address, size);
+}
+internal void *
+stack_push(mem_stack *stack, u64 size)
+{
+    return stack_push_align(stack, size, ARENA_ALIGN);
+}
+
+internal void
+stack_pop(mem_stack *stack, void *pointer)
+{
+    if (pointer != NULL)
+    {
+        u64               start, end, current_address;
+        mem_stack_header *header;
+        u64               prev_offset;
+
+        start           = (u64)stack->base_position;
+        end             = start + (u64)stack->capacity;
+        current_address = (u64)pointer;
+
+        if (!(start <= current_address && current_address < end))
+        {
+            if (0 && "Out of bounds memory address passed to stack allocator (free)")
+            {
+                return;
+            }
+            return;
+        }
+
+        if (current_address >= start + (u64)stack->base_position)
+        {
+            return;
+        }
+
+        header                = (mem_stack_header *)(current_address - sizeof(mem_stack_header));
+        prev_offset           = (size_t)(current_address - (u64)header->padding - start);
+        stack->current_offset = prev_offset;
+    }
+}
+
+internal mem_stack *
+stack_resize_align(mem_stack *stack, void *pointer, u64 old_size, u64 new_size, u8 alignment)
+{
+    if (pointer == NULL)
+    {
+        return stack_push_align(stack, new_size, alignment);
+    }
+    else if (new_size == 0)
+    {
+        stack_pop(stack, pointer);
+        return NULL;
+    }
+
+    u64   start, end, current_address;
+    u64   min_size = old_size < new_size ? old_size : new_size;
+    void *new_pointer;
+
+    start           = (u64)stack->base_position;
+    end             = start + (u64)stack->capacity;
+    current_address = (u64)pointer;
+    if (!(start <= current_address && current_address < end))
+    {
+        return NULL;
+    }
+
+    if (current_address >= start + (u64)stack->current_offset)
+    {
+        return NULL;
+    }
+
+    if (old_size == new_size)
+    {
+        return pointer;
+    }
+
+    new_pointer = stack_push_align(stack, new_size, alignment);
+    memmove(new_pointer, pointer, min_size);
+    return new_pointer;
+}
+
+internal void
+stack_pop_all(mem_stack *stack)
+{
+    stack->current_offset = 0;
+}
+
+internal void
+stack_destroy(mem_stack *stack)
+{
+    if (!stack)
+    {
+        return;
+    }
+
+    munmap(stack, stack->capacity + sizeof(mem_stack));
+}
diff --git a/source/base/base_stack.h b/source/base/base_stack.h
new file mode 100755
index 0000000..54d61d3
--- /dev/null
+++ b/source/base/base_stack.h
@@ -0,0 +1,22 @@
+#ifndef STACK_H
+#define STACK_H
+
+typedef struct mem_stack_header mem_stack_header;
+struct mem_stack_header
+{
+    u8 padding;
+    u8 previous_offset;
+};
+
+
+typedef struct mem_stack mem_stack;
+struct mem_stack
+{
+    mem_stack_header *header;
+
+    u64 current_offset;
+    u64 capacity;
+    u8 *base_position;
+};
+
+#endif
diff --git a/source/base/base_string.c b/source/base/base_string.c
new file mode 100644
index 0000000..9d09914
--- /dev/null
+++ b/source/base/base_string.c
@@ -0,0 +1,63 @@
+internal b8
+compare_string(string c1, string c2)
+{
+    if (c1.size != c2.size)
+    {
+        return 0;
+    }
+
+    for (u64 index = 0; index < c1.size; ++index)
+    {
+        if (c1.data[index] != c2.data[index])
+        {
+            return 0;
+        }
+    }
+
+    return 1;
+}
+
+internal b8
+compare_u8(u8 *c1, u8 *c2, u64 len)
+{
+    if (sizeof(c1) != len || sizeof(c2) != len) 
+    {
+        return 0;
+    }
+
+    if (sizeof(*c1) != sizeof(*c2))
+    {
+        return 0;
+    }
+
+    for (u64 word_idx = 0; word_idx <= sizeof(*c1); ++word_idx)
+    {
+        if (*c1 != *c2)
+        {
+            return 0;
+        }
+
+        ++c1;
+        ++c2;
+    }
+
+    return 1;
+}
+
+internal u64
+to_u64(u8 *buf, umm len)
+{
+    u64 value = 0;
+
+    for (umm buffer_idx = 0; buffer_idx < len; ++buffer_idx)
+    {
+        u8 c = buf[buffer_idx];
+        if (c < '0' || c > '9')
+        {
+            break;
+        }
+        value = value * 10 + (c - '0');
+    }
+
+    return value;
+}
diff --git a/source/base/base_string.h b/source/base/base_string.h
new file mode 100644
index 0000000..5f875e0
--- /dev/null
+++ b/source/base/base_string.h
@@ -0,0 +1,15 @@
+#ifndef BASE_STRING_H
+#define BASE_STRING_H
+
+#define _StringCast (string)
+#define StringCast { .data (u8 *)(string), .size = (sizeof((string)) - 1)}
+#define PushString (Arena, Size) StringCast{.data = PushArray((arena), PushStruct(u8), (Size)), .size = (u64)(Size)} 
+
+typedef struct string string;
+struct string
+{
+    u8 *data;
+    u64 size;
+};
+
+#endif /* BASE_STRING_H */
diff --git a/source/base/base_test.c b/source/base/base_test.c
new file mode 100644
index 0000000..e69de29
--- /dev/null
+++ b/source/base/base_test.c
diff --git a/source/base/base_test.h b/source/base/base_test.h
new file mode 100644
index 0000000..412797b
--- /dev/null
+++ b/source/base/base_test.h
@@ -0,0 +1,74 @@
+#ifndef BASE_TEST_H
+#define BASE_TEST_H
+
+#define RED "\x1b[31m"
+#define GREEN "\x1b[32m"
+#define RESET "\x1b[0m"
+#define BLUE "\x1b[34m"
+
+#define LEN(s) (sizeof(s) - 1)
+
+internal void
+write_int(i32 num)
+{
+
+    if (num < 0)
+    {
+        write(STDERR_FILENO, "-", 1);
+        num = -num;
+    }
+    if (num >= 10)
+        write_int(num / 10);
+    char digit = '0' + (num % 10);
+
+    write(STDERR_FILENO, &digit, 1);
+}
+
+#define show \
+    do \
+    { \
+        write(STDOUT_FILENO, __FILE__, sizeof(__FILE__) - 1); \
+        write(STDOUT_FILENO, ":", 1); \
+        write(STDOUT_FILENO, __func__, sizeof(__func__) - 1); \
+        write(STDOUT_FILENO, ":", 1); \
+        write_int(__LINE__); \
+        write(STDOUT_FILENO, "\n", 1); \
+    } while (0)
+
+#define test(expr) \
+    { \
+        if ((expr) != 0) \
+        { \
+            write(STDERR_FILENO, "[FAILED] ", LEN("[FAILED] ")); \
+            show; \
+            _exit(1); \
+        } \
+    }
+
+#define check(expr) \
+    { \
+        if ((expr) != 0) \
+        { \
+            write(STDERR_FILENO, RED "[ERROR] ", LEN(RED "[ERROR] ")); \
+            show; \
+            write(STDERR_FILENO, RESET, LEN(RESET)); \
+            _exit(1); \
+        } \
+        else \
+        { \
+            write(STDERR_FILENO, GREEN "[SUCCESS] ", LEN(GREEN "[SUCCESS] ")); \
+            show; \
+            write(STDERR_FILENO, RESET, LEN(RESET)); \
+        } \
+    }
+
+#define checkpoint_output "<<CHECKPOINT>>\n"
+#define checkpoint_end_output "^^^^^^^^^^^^^^\n\n\n"
+#define checkpoint \
+    { \
+        write(STDERR_FILENO, BLUE checkpoint_output, LEN(BLUE checkpoint_output)); \
+        show; \
+        write(STDERR_FILENO, BLUE checkpoint_end_output, LEN(BLUE checkpoint_end_output)); \
+    }
+
+#endif /* BASE_TEST_H */
diff --git a/source/base/bash_hash.h b/source/base/bash_hash.h
new file mode 100644
index 0000000..2c286a2
--- /dev/null
+++ b/source/base/bash_hash.h
@@ -0,0 +1,15 @@
+##ifndef HEADER_H
+#define HEADER_H
+
+typedef struct hash_map hash_map;
+typedef struct hash hash;
+
+
+struct hash_map 
+{
+
+
+};
+
+
+#endif /* HEADER_H */
diff --git a/source/engine/#engine_repl.c# b/source/engine/#engine_repl.c#
new file mode 100644
index 0000000..be43645
--- /dev/null
+++ b/source/engine/#engine_repl.c#
@@ -0,0 +1,7 @@
+
+internal void
+tokenize(str8 )
+{
+
+
+}
diff --git a/source/engine/engine_entry.c b/source/engine/engine_entry.c
new file mode 100644
index 0000000..8973dee
--- /dev/null
+++ b/source/engine/engine_entry.c
@@ -0,0 +1,16 @@
+#define BASE_UNITY
+#include "../base/base_include.h"
+
+#include "engine_repl.h"
+#include "engine_repl.c"
+
+int main(int c, char **v)
+{
+    unused(c);
+    unused(v);
+
+    for (;;)
+    {
+
+    }
+}
diff --git a/source/engine/engine_repl.c b/source/engine/engine_repl.c
new file mode 100644
index 0000000..ead6c7b
--- /dev/null
+++ b/source/engine/engine_repl.c
@@ -0,0 +1,8 @@
+
+internal tokens *
+tokenize(string buffer)
+{
+
+
+
+}
diff --git a/source/engine/engine_repl.h b/source/engine/engine_repl.h
new file mode 100644
index 0000000..eb20524
--- /dev/null
+++ b/source/engine/engine_repl.h
@@ -0,0 +1,17 @@
+#ifndef ENGINE_REPL_H
+#define ENGINE_REPL_H
+
+typedef struct node node;
+struct node
+{
+
+};
+
+typedef struct btree btree;
+struct btree
+{
+
+};
+
+
+#endif /* ENGINE_H */