1 files changed, 126 insertions, 2 deletions
diff --git a/src/threadpool.c b/src/threadpool.c
index 3b1168c..953d0ee 100644
--- a/src/threadpool.c
+++ b/src/threadpool.c
@@ -1,10 +1,134 @@
 #include "common.h"
 #include "threadpool.h"
+#include "log.h"
 #include "smrt_arena.h"
 #include "deque.h"
 
+#include <bits/pthreadtypes.h>
+#include <iso646.h>
+#include <pthread.h>
+#include <stdatomic.h>
+#include <string.h>
+
+
 typedef struct {
-    tp_job_proc proc;
-    void *args;
+    tp_job_proc  proc;
+           void *args;
 } tp_job_t;
 
+typedef struct {
+          u64  id;
+thread_pool_t *tp;
+} worker_args;
+
+void *worker_proc(void *args) {
+    worker_args *wargs = (worker_args*)args;
+    thread_pool_t *tp = wargs->tp;
+
+    pthread_mutex_lock(tp->count_mtx); {
+        tp->num_alive++;
+    } pthread_mutex_unlock(tp->count_mtx);
+
+    for (;;) {
+        if (!wargs->tp->is_running) {
+            break;
+        }
+
+        tp_job_t *j = (tp_job_t*)ts_deque_pop(wargs->tp->jobs);
+
+        pthread_mutex_lock(tp->count_mtx);
+        tp->num_active++;
+        pthread_mutex_unlock(tp->count_mtx);
+
+        j->proc(j->args);
+
+        pthread_mutex_lock(tp->count_mtx);
+        tp->num_active--;
+        // If this is the last active thread finishing, tell someone about it
+        if (!tp->num_active) {
+            pthread_cond_broadcast(tp->done_signal);
+        }
+        pthread_mutex_unlock(tp->count_mtx);
+    }
+
+    pthread_mutex_lock(tp->count_mtx); {
+        tp->num_alive--;
+    } pthread_mutex_unlock(tp->count_mtx);
+
+    return NULL;
+}
+
+thread_pool_t *tp_create(smrt_arena_t *arena, u64 max_jobs, u64 num_threads) {
+    thread_pool_t *tp = smrt_arena_push(arena, sizeof(thread_pool_t), true);
+
+    ez_deque_t *q = ez_deque_create(arena, sizeof(tp_job_t), max_jobs);
+    ts_deque_t tsq = ts_deque_create(q);
+
+    pthread_t *threads = SMRTA_ALLOC_ARRAY(arena, pthread_t, num_threads);
+    worker_args * args = SMRTA_ALLOC_ARRAY(arena, worker_args, num_threads);
+    for (u64 i = 0; i < num_threads; i++) {
+        args[i] = (worker_args){
+            .id = i,
+            .tp = tp,
+        };
+        pthread_create(&threads[i], NULL, worker_proc, (void*)&args[i]);
+    }
+
+    pthread_mutex_t *count_mtx = smrt_arena_push(arena, sizeof(pthread_cond_t), true);
+    pthread_mutex_init(count_mtx, NULL);
+    pthread_cond_t *all_done = smrt_arena_push(arena, sizeof(pthread_cond_t), true);
+    pthread_cond_init(all_done, NULL);
+
+    *tp = (thread_pool_t){
+        .num_threads=num_threads,
+        .threads=threads,
+
+        .jobs=tsq,
+        .is_running=true,
+
+        .count_mtx=count_mtx,
+        .done_signal=all_done,
+        .num_alive=0,
+        .num_active=0,
+    };
+
+    return tp;
+}
+
+void no_op(void *nothing) { (void)nothing; }
+
+i32 tp_destroy(thread_pool_t *tp) {
+    tp->is_running = false;
+    for (;;) {
+        // TODO: add timeout to skip this if a thread is hung
+        u64 na = 0;
+        pthread_mutex_lock(tp->count_mtx);
+        if ((na = tp->num_alive) == 0) break;
+        pthread_mutex_unlock(tp->count_mtx);
+
+        for (u64 i = 0; i < na; i++) {
+            tp_push_job(tp, no_op, NULL);
+        }
+    }
+    ts_deque_destroy(tp->jobs);
+    pthread_mutex_destroy(tp->count_mtx);
+    pthread_cond_destroy(tp->done_signal);
+    return 0;
+}
+
+i32 tp_push_job(thread_pool_t *tp, tp_job_proc job, void *args) {
+    tp_job_t j = {
+        .proc = job,
+        .args = args,
+    };
+
+    return ts_deque_enqueue(tp->jobs, &j);
+}
+
+void tp_wait(thread_pool_t *tp) {
+    pthread_mutex_lock(tp->count_mtx);
+    while (tp->jobs.queue->occupied || tp->num_active) {
+        pthread_cond_wait(tp->done_signal, tp->count_mtx);
+    }
+    pthread_mutex_unlock(tp->count_mtx);
+}