#define MINICORO_IMPL

#include "minicoro.h"

#include <stdio.h>

static void fail(const char* message, mco_result res) {

printf("%s: %s\n", message, mco_result_description(res));

exit(-1);

}

static void fibonacci_coro(mco_coro* co) {

unsigned long m = 1;

unsigned long n = 1;

/* Retrieve max value. */

unsigned long max;

mco_result res = mco_pop(co, &max, sizeof(max));

if(res != MCO_SUCCESS)

fail("Failed to retrieve coroutine storage", res);

while(1) {

/* Yield the next Fibonacci number. */

mco_push(co, &m, sizeof(m));

res = mco_yield(co);

if(res != MCO_SUCCESS)

fail("Failed to yield coroutine", res);

unsigned long tmp = m + n;

m = n;

n = tmp;

if(m >= max)

break;

}

/* Yield the last Fibonacci number. */

mco_push(co, &m, sizeof(m));

}

int main() {

/* Create the coroutine. */

mco_coro* co;

mco_desc desc = mco_desc_init(fibonacci_coro, 0);

mco_result res = mco_create(&co, &desc);

if(res != MCO_SUCCESS)

fail("Failed to create coroutine", res);

/* Set storage. */

unsigned long max = 1000000000;

mco_push(co, &max, sizeof(max));

int counter = 1;

while(mco_status(co) == MCO_SUSPENDED) {

/* Resume the coroutine. */

res = mco_resume(co);

if(res != MCO_SUCCESS)

fail("Failed to resume coroutine", res);

/* Retrieve storage set in last coroutine yield. */

unsigned long ret = 0;

res = mco_pop(co, &ret, sizeof(ret));

if(res != MCO_SUCCESS)

fail("Failed to retrieve coroutine storage", res);

printf("fib %d = %lu\n", counter, ret);

counter = counter + 1;

}

/* Destroy the coroutine. */

res = mco_destroy(co);

if(res != MCO_SUCCESS)

fail("Failed to destroy coroutine", res);

return 0;

}