Changeset 78b3f52 for src/examples/coroutine.c

Timestamp:

Dec 2, 2016, 5:10:22 PM (8 years ago)

Author:

Thierry Delisle <tdelisle@…>

Branches:

ADT, aaron-thesis, arm-eh, ast-experimental, cleanup-dtors, deferred_resn, demangler, enum, forall-pointer-decay, jacob/cs343-translation, jenkins-sandbox, master, new-ast, new-ast-unique-expr, new-env, no_list, persistent-indexer, pthread-emulation, qualifiedEnum, resolv-new, with_gc

Children:

d7bcbf5

Parents:

4cb935e

Message:

Ugly but working coroutines

File:

• src/examples/coroutine.c (modified) (2 diffs)

src/examples/coroutine.c

@@ -4 +4 @@
 struct Fibonacci {
       coroutine c;
+      coVtable v;
       int fn; // used for communication
 };
 
+coroutine* this_coroutine(Fibonacci* this);
+void co_main(Fibonacci* this);
+coVtable* vtable(Fibonacci* this);
+
+void co_main_fib(void* this) {
+      co_main( (Fibonacci*) this );
+}
+
+coroutine* this_coroutine_fib(void* this) {
+      return this_coroutine( (Fibonacci*) this);
+}
+
 void ?{}(Fibonacci* this) {
       this->fn = 0;
-}
-
-coroutine* this_coroutine(Fibonacci* this) {
-      return &this->c;
+      this->v.main = co_main_fib;
+      this->v.this_coroutine = this_coroutine_fib;
+      start(this);
 }
 
 void co_main(Fibonacci* this) {
+      sout | "Starting main of coroutine " | this | endl;
+      sout | "Started from " | this_coroutine(this)->last | endl;
       int fn1, fn2;             // retained between resumes
       this->fn = 0;
@@ -39 +53 @@
 }
 
+coroutine* this_coroutine(Fibonacci* this) {
+      return &this->c;
+}
+
+coVtable* vtable(Fibonacci* this) {
+      return &this->v;
+}
+
 int main() {
-      Fibonacci f1, f2;
+      Fibonacci f1;
+      sout | "User coroutine : " | &f1 | endl;
       for ( int i = 1; i <= 10; i += 1 ) {
-            sout | next(&f1) | ' ' | next(&f2) | endl;
+            sout | next(&f1) | endl;
       }