fiber_impl.c

// fiber.h-based generic implementation of the abstract sieve operations.
#include <stdlib.h>
#include <stdbool.h>
#include <stdint.h>
#include <inttypes.h>

#include <fiber.h>
#include "../lib/inc/wasm_utils.h"

static void* filter(void *prime) {
  uint32_t my_prime = *((uint32_t*)prime);
  uint32_t *candidate = (uint32_t*)fiber_yield(NULL);
  while (*candidate != 0) {
    bool result = *candidate % my_prime == 0 ? true : false;
    candidate = (uint32_t*)fiber_yield((void*)result);
  }
  return NULL;
}

__noinline
__wasm_export("filter_yield")
uint32_t filter_yield(bool result) {
  return *((uint32_t*)fiber_yield((void*)result));
}

__noinline
__wasm_export("filter_spawn")
fiber_t filter_spawn(uint32_t prime) {
  fiber_result_t status;
  fiber_t fiber = fiber_alloc((fiber_entry_point_t)filter);
  fiber_resume(fiber, &prime, &status); // Discard NULL result.
  return fiber;
}

__noinline
__wasm_export("filter_send")
bool filter_send(fiber_t receiver, uint32_t candidate) {
  fiber_result_t status;
  return (bool)fiber_resume(receiver, &candidate, &status);
}

__noinline
__wasm_export("filter_shutdown")
void filter_shutdown(fiber_t receiver) {
  fiber_result_t status;
  uint32_t z = 0;
  fiber_resume(receiver, &z, &status);
  fiber_free(receiver);
}