From 2d78f11400d61f89845678b40e7b0682f14bba7f Mon Sep 17 00:00:00 2001
From: Bruce Hill <bruce@bruce-hill.com>
Date: Wed, 18 Sep 2024 15:38:42 -0400
Subject: [PATCH] Remove coroutine example for now

---
 examples/README.md              |  2 --
 examples/coroutine/coroutine.tm | 64 ---------------------------------
 2 files changed, 66 deletions(-)
 delete mode 100644 examples/coroutine/coroutine.tm

diff --git a/examples/README.md b/examples/README.md
index 330b0e1..4cf3562 100644
--- a/examples/README.md
+++ b/examples/README.md
@@ -1,7 +1,5 @@
 # Example Programs
 
-- [coroutine](coroutine/coroutine.tm): A library for coroutines similar to Lua's
-  (using [libaco](https://libaco.org)).
 - [game](game/): An example game using raylib.
 - [http](http/http.tm): An HTTP library to make basic synchronous HTTP requests.
 - [ini](ini/ini.tm): An INI configuration file reader tool.
diff --git a/examples/coroutine/coroutine.tm b/examples/coroutine/coroutine.tm
deleted file mode 100644
index 35eb5fd..0000000
--- a/examples/coroutine/coroutine.tm
+++ /dev/null
@@ -1,64 +0,0 @@
-# This is a coroutine library that uses libaco. If you don't have it installed,
-# you can get it from the website: https://libaco.org
-#
-# Lua programmers will recognize this as similar to Lua's stackful coroutines.
-#
-# Async/Await programmers will weep at its beauty and gnash their teeth and
-# rend their garments in despair at what they could have had.
-
-use libaco.so
-use <aco.h>
-
-func main():
-    !! Example usage:
-    co := new(func():
-        say("I'm in the coroutine!")
-        yield()
-        say("I'm back in the coroutine!")
-    )
-    >> co
-    say("I'm in the main func")
-    >> co:resume()
-    say("I'm back in the main func")
-    >> co:resume()
-    say("I'm back in the main func again")
-    >> co:resume()
-
-_main_co := !@Memory
-_shared_stack := !@Memory
-
-struct Coroutine(co:@Memory):
-    func is_finished(co:Coroutine; inline)->Bool:
-        return inline C:Bool {((aco_t*)$co.$co)->is_finished}
-
-    func resume(co:Coroutine)->Bool:
-        if co:is_finished():
-            return no
-        inline C { aco_resume($co.$co); }
-        return yes
-
-func _init():
-    inline C {
-        aco_set_allocator(GC_malloc, NULL);
-        aco_thread_init(aco_exit_fn);
-    }
-    _main_co = inline C:@Memory { aco_create(NULL, NULL, 0, NULL, NULL) }
-
-    _shared_stack = inline C:@Memory { aco_shared_stack_new(0) }
-
-func new(co:func())->Coroutine:
-    if not _main_co:
-        _init()
-
-    main_co := _main_co
-    shared_stack := _shared_stack
-    aco_ptr := inline C:@Memory {
-        aco_create($main_co, $shared_stack, 0, (void*)$co.fn, $co.userdata)
-    }
-    return Coroutine(aco_ptr)
-            
-func yield(; inline):
-    inline C {
-        aco_yield();
-    }
-