source: src/examples/coroutine.c @ f773f67

ADTaaron-thesisarm-ehast-experimentalcleanup-dtorsdeferred_resndemanglerenumforall-pointer-decayjacob/cs343-translationjenkins-sandboxnew-astnew-ast-unique-exprnew-envno_listpersistent-indexerpthread-emulationqualifiedEnumresolv-newwith_gc
Last change on this file since f773f67 was 0e76cf4f, checked in by Thierry Delisle <tdelisle@…>, 7 years ago

Updated the makefile for concurrency

  • Property mode set to 100644
File size: 918 bytes
Line 
1#include <fstream>
2#include <threads>
3
4struct Fibonacci {
5      coroutine c;
6      int fn; // used for communication
7};
8
9void ?{}(Fibonacci* this) {
10      this->fn = 0;
11}
12
13coroutine* this_coroutine(Fibonacci* this) {
14
15}
16
17void co_main(Fibonacci* this) {
18      int fn1, fn2;             // retained between resumes
19      this->fn = 0;
20      fn1 = this->fn;
21      suspend(this);            // return to last resume
22
23      this->fn = 1;
24      fn2 = fn1;
25      fn1 = this->fn;
26      suspend(this);            // return to last resume
27
28      for ( ;; ) {
29            this->fn = fn1 + fn2;
30            fn2 = fn1;
31            fn1 = this->fn;
32            suspend(this);      // return to last resume
33      }
34}
35
36int next(Fibonacci* this) {
37      resume(this); // transfer to last suspend
38      return this->fn;
39}
40
41void main() {
42      Fibonacci f1, f2;
43      for ( int i = 1; i <= 10; i += 1 ) {
44            sout | next(&f1) | ' ' | next(&f2) | endl;
45      }
46}
Note: See TracBrowser for help on using the repository browser.