diff options
| -rw-r--r-- | libpromise/CMakeLists.txt | 10 | ||||
| -rw-r--r-- | libpromise/promise.c | 201 |
2 files changed, 211 insertions, 0 deletions
diff --git a/libpromise/CMakeLists.txt b/libpromise/CMakeLists.txt new file mode 100644 index 0000000..1577306 --- /dev/null +++ b/libpromise/CMakeLists.txt @@ -0,0 +1,10 @@ +# libpromise/CMakeLists.txt - TODO +# +# Copyright (C) 2024 Luke T. Shumaker <lukeshu@lukeshu.com> +# SPDX-Licence-Identifier: AGPL-3.0-or-later + +add_library(libpromise INTERFACE) +target_include_directories(libpromise SYSTEM INTERFACE ${CMAKE_CURRENT_LIST_DIR}/include) +target_sources(libpromise INTERFACE + coroutine.c +) diff --git a/libpromise/promise.c b/libpromise/promise.c new file mode 100644 index 0000000..f7e24f4 --- /dev/null +++ b/libpromise/promise.c @@ -0,0 +1,201 @@ +/* libpromise/promise.c - Promises for libcr + * + * Copyright (C) 2024 Luke T. Shumaker <lukeshu@lukeshu.com> + * SPDX-Licence-Identifier: AGPL-3.0-or-later + */ + +#include <assert.h> /* for assert() */ +#include <stddef.h> /* for size_t */ +#include <stdbool.h> + +#include <libmisc/vcall.h> + +/* Header *********************************************************************/ + +struct promise_vtable; +struct promise_queue; +struct __promise; + +typedef struct __promise { + struct promise_vtable *vtable; + + /* queue */ + struct promise_queue *queue_root; + struct __promise *queue_front, *queue_rear; + + struct { + cid_t cid; + size_t cnt; + struct __promise **vec; + } waiter; + + bool resolved; +} implements_promise; + +struct promise_vtable { + void (*on_complete)(implements_promise *); + bool (*would_block)(implements_promise *); +}; + +struct promise_queue { + implements_promise *front, *rear; +}; + +/* consumer */ +void promise_push_to_rear(implements_promise *, struct promise_queue *); +void promise_await(implements_promise *); +size_t promise_select_v(size_t arg_cnt, implements_promise *arg_vec[]); +#define promise_select_l(...) ({ \ + implements_promise *args[] = { __VA_ARGS__ }; \ + promise_select_v(sizeof(args)/sizeof(args[0]), args); \ +}) + +/* producer */ +void promise_resolve(implements_promise *); + +/* Impl ***********************************************************************/ + +/* Linked-list operations ==========================================*/ + +void promise_push_to_rear(implements_promise *item, struct promise_queue *root) { + assert(item); + assert(root); + + item->root = root; + item->front = root->rear; + item->rear = NULL; + if (root->rear) + root->rear->rear = item; + else + root->front = item; + root->rear = item; +} + +static void promise_remove(implements_promise_queueitem *item) { + assert(item); + assert(item->root); + + struct promise_queue *root = item->root; + + if (item->front) + item->front->rear = item->rear; + else + root->front = item->rear; + if (item->rear) + item->rear->front = item->front; + else + root->rear = item->front; +} + +/* Resolve =========================================================*/ + +static inline void promise_remove_all(size_t arg_cnt, implements_promise *arg_vec[]) { + for (size_t i = 0; i < arg_cnt; i++) { + if (!arg_vec[i]) + continue; + promise_remove(arg_vec[i]); + arg_vec[i]->waiter = (typeof(arg_vec[i]->waiter)){0}; + } +} + +void promise_resolve(implements_promise *arg) { + assert(arg); + bool enable = cr_disable_interrupts(); + assert(!arg->resolved); + + VCALL(arg, on_complete); + arg->resolved = true; + + if (arg->waiter.cid) { + typeof(arg->waiter) waiter = arg->waiter; + promise_resolve_all(waiter->cnt, waiter->vec); + cr_unpause(waiter->cid); + } + + if (enable) + cr_enable_interrupts(); +} + +/* Single-wait =====================================================*/ + +void promise_await(implements_promise *arg) { + assert(arg); + bool enable = cr_disable_interrupts(); + if (arg->resolved) { + /* do nothing */ + } else if (!VCALL(arg, would_block)) { + promise_resolve(arg); + } else { + implements_promise *vec[1] = { arg }; + arg->waiter = (typeof(arg->waiter)){ + .cid = cr_getcid(); + .cnt = 1; + .vec = vec; + }; + cr_pause_and_yield(); + } + if (enable) + cr_enable_interrupts(); + assert(arg->resolved); +} + +/* Multi-wait ======================================================*/ + +static inline size_t pickone(size_t cnt) { + long fair_cnt = (0x80000000L / cnt) * cnt; + long rnd; + do { + rnd = random(); + } while (rnd >= fair_cnt); + return rnd % cnt; +} + +size_t promise_select_v(size_t arg_cnt, implements_promise *arg_vec[]) { + size_t cnt_blocking = 0; + size_t cnt_nonblock = 0; + size_t cnt_default = 0; + + size_t idx_default; + bool wouldblock[arg_cnt]; + + assert(arg_cnt); + assert(arg_vec); + + cr_disable_interrupts(); + + for (size_t i = 0; i < arg_cnt; i++) { + if (arg_vec[i] == NULL) { + cnt_default++; + idx_default = i; + } else if ( ((wouldblock[i] = (!arg_vec[i]->resolved) && VCALL(arg_vec[i], would_block))) ) + cnt_blocking++; + else + cnt_nonblock++; + } + + if (cnt_nonblock) { + size_t choice = pickone(cnt_nonblock); + for (size_t i = 0, seen = 0; i < arg_cnt; i++) { + if (arg_vec[i] && !wouldblock[i]) { + if (seen == choice) { + promise_resolve(arg_vec[i]); + cr_enable_interrupts(); + return i; + } + seen++; + } + } + __builtin_unreachable(); + } + + if (cnt_default) { + return resolve_select(arg_cnt, arg_vec, idx_default); + + for (size_t i = 0, seen = 0; i < arg_cnt; i++) { + arg_vec[i]->cid = cr_getcid(); + arg_vec[i]->cid = cr_getcid(); + } + cr_pause_and_yield(); + for + + } |