source: src/tests/coroutine.c @ a54840b

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 a54840b was 83a071f9, checked in by Rob Schluntz <rschlunt@…>, 7 years ago

Fix concurrency library, tests, and keywords for references

  • Property mode set to 100644
File size: 1.3 KB
Line 
1//
2// Cforall Version 1.0.0 Copyright (C) 2017 University of Waterloo
3//
4// The contents of this file are covered under the licence agreement in the
5// file "LICENCE" distributed with Cforall.
6//
7// fibonacci.c --
8//
9// Author           : Thierry Delisle
10// Created On       : Thu Jun  8 07:29:37 2017
11// Last Modified By : Peter A. Buhr
12// Last Modified On : Thu Jun  8 07:37:12 2017
13// Update Count     : 5
14//
15
16#include <fstream>
17#include <coroutine>
18
19coroutine Fibonacci {
20        int fn;                                         // used for communication
21};
22
23void ?{}( Fibonacci & this ) {
24        this.fn = 0;
25}
26
27void main( Fibonacci & this ) {
28        int fn1, fn2;                                   // retained between resumes
29        this.fn = 0;                                    // case 0
30        fn1 = this.fn;
31        suspend();                                              // return to last resume
32
33        this.fn = 1;                                    // case 1
34        fn2 = fn1;
35        fn1 = this.fn;
36        suspend();                                              // return to last resume
37
38        for ( ;; ) {                                    // general case
39                this.fn = fn1 + fn2;
40                fn2 = fn1;
41                fn1 = this.fn;
42                suspend();                                      // return to last resume
43        } // for
44}
45
46int next( Fibonacci & this ) {
47        resume( this );                                 // transfer to last suspend
48        return this.fn;
49}
50
51int main() {
52        Fibonacci f1, f2;
53        for ( int i = 1; i <= 10; i += 1 ) {
54                sout | next( f1 ) | ' ' | next( f2 ) | endl;
55        } // for
56}
57
58// Local Variables: //
59// tab-width: 4 //
60// compile-command: "cfa fibonacci.c" //
61// End: //
Note: See TracBrowser for help on using the repository browser.