Index: tests/coroutine/fibonacci.c =================================================================== --- tests/coroutine/fibonacci.c (revision 18cf979775b84cebbd87600b17950feae8295af5) +++ (revision ) @@ -1,48 +1,0 @@ -// -// Cforall Version 1.0.0 Copyright (C) 2017 University of Waterloo -// -// The contents of this file are covered under the licence agreement in the -// file "LICENCE" distributed with Cforall. -// -// fibonacci.c -- 3-state finite-state machine -// -// Author : Thierry Delisle -// Created On : Thu Jun 8 07:29:37 2017 -// Last Modified By : Peter A. Buhr -// Last Modified On : Tue Dec 11 21:57:33 2018 -// Update Count : 25 -// - -#include -#include - -coroutine Fibonacci { int fn; }; // used for communication - -void main( Fibonacci & fib ) with( fib ) { // called on first resume - int fn1, fn2; // retained between resumes - fn = 0; fn1 = fn; // 1st case - suspend(); // restart last resume - fn = 1; fn2 = fn1; fn1 = fn; // 2nd case - suspend(); // restart last resume - for () { - fn = fn1 + fn2; fn2 = fn1; fn1 = fn; // general case - suspend(); // restart last resume - } // for -} - -int next( Fibonacci & fib ) with( fib ) { - resume( fib ); // restart last suspend - return fn; -} - -int main() { - Fibonacci f1, f2; - for ( 10 ) { // print N Fibonacci values - sout | next( f1 ) | next( f2 ); - } // for -} - -// Local Variables: // -// tab-width: 4 // -// compile-command: "cfa fibonacci.c" // -// End: // Index: tests/coroutine/fibonacci.cfa =================================================================== --- tests/coroutine/fibonacci.cfa (revision 107b01a853d2fa7848b6015136777f62881c1779) +++ tests/coroutine/fibonacci.cfa (revision 107b01a853d2fa7848b6015136777f62881c1779) @@ -0,0 +1,48 @@ +// +// Cforall Version 1.0.0 Copyright (C) 2017 University of Waterloo +// +// The contents of this file are covered under the licence agreement in the +// file "LICENCE" distributed with Cforall. +// +// fibonacci.c -- 3-state finite-state machine +// +// Author : Thierry Delisle +// Created On : Thu Jun 8 07:29:37 2017 +// Last Modified By : Peter A. Buhr +// Last Modified On : Tue Dec 11 21:57:33 2018 +// Update Count : 25 +// + +#include +#include + +coroutine Fibonacci { int fn; }; // used for communication + +void main( Fibonacci & fib ) with( fib ) { // called on first resume + int fn1, fn2; // retained between resumes + fn = 0; fn1 = fn; // 1st case + suspend(); // restart last resume + fn = 1; fn2 = fn1; fn1 = fn; // 2nd case + suspend(); // restart last resume + for () { + fn = fn1 + fn2; fn2 = fn1; fn1 = fn; // general case + suspend(); // restart last resume + } // for +} + +int next( Fibonacci & fib ) with( fib ) { + resume( fib ); // restart last suspend + return fn; +} + +int main() { + Fibonacci f1, f2; + for ( 10 ) { // print N Fibonacci values + sout | next( f1 ) | next( f2 ); + } // for +} + +// Local Variables: // +// tab-width: 4 // +// compile-command: "cfa fibonacci.c" // +// End: // Index: tests/coroutine/fibonacci_1.c =================================================================== --- tests/coroutine/fibonacci_1.c (revision 18cf979775b84cebbd87600b17950feae8295af5) +++ (revision ) @@ -1,45 +1,0 @@ -// -// Cforall Version 1.0.0 Copyright (C) 2018 University of Waterloo -// -// The contents of this file are covered under the licence agreement in the -// file "LICENCE" distributed with Cforall. -// -// fibonacci_1.c -- 1-state finite-state machine: precomputed first two states returning f(n - 2) -// -// Author : Peter A. Buhr -// Created On : Thu Apr 26 23:20:08 2018 -// Last Modified By : Peter A. Buhr -// Last Modified On : Tue Dec 11 21:57:54 2018 -// Update Count : 14 -// - -#include -#include - -coroutine Fibonacci { int ret; }; // used for communication - -void main( Fibonacci & fib ) with( fib ) { // called on first resume - int fn, fn1 = 1, fn2 = 0; // precompute first two states - for () { - ret = fn2; - fn = fn1 + fn2; fn2 = fn1; fn1 = fn; // general case - suspend(); // restart last resume - } // for -} - -int next( Fibonacci & fib ) with( fib ) { - resume( fib ); // restart last suspend - return ret; -} - -int main() { - Fibonacci f1, f2; - for ( 10 ) { // print N Fibonacci values - sout | next( f1 ) | next( f2 ); - } // for -} - -// Local Variables: // -// tab-width: 4 // -// compile-command: "cfa fibonacci_1.c" // -// End: // Index: tests/coroutine/fibonacci_1.cfa =================================================================== --- tests/coroutine/fibonacci_1.cfa (revision 107b01a853d2fa7848b6015136777f62881c1779) +++ tests/coroutine/fibonacci_1.cfa (revision 107b01a853d2fa7848b6015136777f62881c1779) @@ -0,0 +1,45 @@ +// +// Cforall Version 1.0.0 Copyright (C) 2018 University of Waterloo +// +// The contents of this file are covered under the licence agreement in the +// file "LICENCE" distributed with Cforall. +// +// fibonacci_1.c -- 1-state finite-state machine: precomputed first two states returning f(n - 2) +// +// Author : Peter A. Buhr +// Created On : Thu Apr 26 23:20:08 2018 +// Last Modified By : Peter A. Buhr +// Last Modified On : Tue Dec 11 21:57:54 2018 +// Update Count : 14 +// + +#include +#include + +coroutine Fibonacci { int ret; }; // used for communication + +void main( Fibonacci & fib ) with( fib ) { // called on first resume + int fn, fn1 = 1, fn2 = 0; // precompute first two states + for () { + ret = fn2; + fn = fn1 + fn2; fn2 = fn1; fn1 = fn; // general case + suspend(); // restart last resume + } // for +} + +int next( Fibonacci & fib ) with( fib ) { + resume( fib ); // restart last suspend + return ret; +} + +int main() { + Fibonacci f1, f2; + for ( 10 ) { // print N Fibonacci values + sout | next( f1 ) | next( f2 ); + } // for +} + +// Local Variables: // +// tab-width: 4 // +// compile-command: "cfa fibonacci_1.c" // +// End: // Index: tests/coroutine/fmtLines.c =================================================================== --- tests/coroutine/fmtLines.c (revision 18cf979775b84cebbd87600b17950feae8295af5) +++ (revision ) @@ -1,66 +1,0 @@ -// -// Cforall Version 1.0.0 Copyright (C) 2017 University of Waterloo -// -// The contents of this file are covered under the licence agreement in the -// file "LICENCE" distributed with Cforall. -// -// fmtLines.cc -- format characters into blocks of 4 and groups of 5 blocks per line -// -// Author : Peter A. Buhr -// Created On : Sun Sep 17 21:56:15 2017 -// Last Modified By : Peter A. Buhr -// Last Modified On : Wed Dec 12 22:45:36 2018 -// Update Count : 48 -// - -#include -#include - -coroutine Format { - char ch; // used for communication - int g, b; // global because used in destructor -}; - -void main( Format & fmt ) with( fmt ) { - for () { // for as many characters - for ( g; 5 ) { // groups of 5 blocks - for ( b; 4 ) { // blocks of 4 characters - for () { // for newline characters - suspend(); - if ( ch != '\n' ) break; // ignore newline - } // for - sout | ch; // print character - } // for - sout | " "; // print block separator - } // for - sout | nl; // print group separator - } // for -} // main - -void ?{}( Format & fmt ) { - resume( fmt ); // prime (start) coroutine -} - -void ^?{}( Format & fmt ) with( fmt ) { - if ( g != 0 || b != 0 ) sout | nl; -} - -void format( Format & fmt ) { - resume( fmt ); -} // format - -int main() { - Format fmt; - sout | nlOff; // turn off auto newline - - eof: for () { // read until end of file - sin | fmt.ch; // read one character - if ( eof( sin ) ) break eof; // eof ? - format( fmt ); // push character for formatting - } // for -} // main - -// Local Variables: // -// tab-width: 4 // -// compile-command: "cfa fmtLines.c" // -// End: // Index: tests/coroutine/fmtLines.cfa =================================================================== --- tests/coroutine/fmtLines.cfa (revision 107b01a853d2fa7848b6015136777f62881c1779) +++ tests/coroutine/fmtLines.cfa (revision 107b01a853d2fa7848b6015136777f62881c1779) @@ -0,0 +1,66 @@ +// +// Cforall Version 1.0.0 Copyright (C) 2017 University of Waterloo +// +// The contents of this file are covered under the licence agreement in the +// file "LICENCE" distributed with Cforall. +// +// fmtLines.cc -- format characters into blocks of 4 and groups of 5 blocks per line +// +// Author : Peter A. Buhr +// Created On : Sun Sep 17 21:56:15 2017 +// Last Modified By : Peter A. Buhr +// Last Modified On : Wed Dec 12 22:45:36 2018 +// Update Count : 48 +// + +#include +#include + +coroutine Format { + char ch; // used for communication + int g, b; // global because used in destructor +}; + +void main( Format & fmt ) with( fmt ) { + for () { // for as many characters + for ( g; 5 ) { // groups of 5 blocks + for ( b; 4 ) { // blocks of 4 characters + for () { // for newline characters + suspend(); + if ( ch != '\n' ) break; // ignore newline + } // for + sout | ch; // print character + } // for + sout | " "; // print block separator + } // for + sout | nl; // print group separator + } // for +} // main + +void ?{}( Format & fmt ) { + resume( fmt ); // prime (start) coroutine +} + +void ^?{}( Format & fmt ) with( fmt ) { + if ( g != 0 || b != 0 ) sout | nl; +} + +void format( Format & fmt ) { + resume( fmt ); +} // format + +int main() { + Format fmt; + sout | nlOff; // turn off auto newline + + eof: for () { // read until end of file + sin | fmt.ch; // read one character + if ( eof( sin ) ) break eof; // eof ? + format( fmt ); // push character for formatting + } // for +} // main + +// Local Variables: // +// tab-width: 4 // +// compile-command: "cfa fmtLines.c" // +// End: // Index: tests/coroutine/pingpong.c =================================================================== --- tests/coroutine/pingpong.c (revision 18cf979775b84cebbd87600b17950feae8295af5) +++ (revision ) @@ -1,55 +1,0 @@ -// -// Cforall Version 1.0.0 Copyright (C) 2017 University of Waterloo -// -// The contents of this file are covered under the licence agreement in the -// file "LICENCE" distributed with Cforall. -// -// pingpong.c -- -// -// Author : Peter A. Buhr -// Created On : Wed Sep 20 11:55:23 2017 -// Last Modified By : Peter A. Buhr -// Last Modified On : Tue Dec 11 21:58:06 2018 -// Update Count : 29 -// - -#include -#include - -coroutine PingPong { - const char * name; - /* const */ unsigned int N; - PingPong * part; -}; - -void ?{}( PingPong & this, const char * name, unsigned int N, PingPong & part ) { - this.name = name; - this.N = N; - this.part = ∂ -} -void ?{}( PingPong & this, const char * name, unsigned int N ) { - this{ name, N, *(PingPong *)0 }; -} -void cycle( PingPong & pingpong ) { - resume( pingpong ); -} -void partner( PingPong & this, PingPong & part ) { - this.part = ∂ - resume( this ); -} -void main( PingPong & pingpong ) { // ping's starter ::main, pong's starter ping - for ( pingpong.N ) { // N ping-pongs - sout | pingpong.name; - cycle( *pingpong.part ); - } // for -} -int main() { - enum { N = 20 }; - PingPong ping = { "ping", N }, pong = { "pong", N, ping }; - partner( ping, pong ); -} - -// Local Variables: // -// tab-width: 4 // -// compile-command: "cfa pingpong.c" // -// End: // Index: tests/coroutine/pingpong.cfa =================================================================== --- tests/coroutine/pingpong.cfa (revision 107b01a853d2fa7848b6015136777f62881c1779) +++ tests/coroutine/pingpong.cfa (revision 107b01a853d2fa7848b6015136777f62881c1779) @@ -0,0 +1,55 @@ +// +// Cforall Version 1.0.0 Copyright (C) 2017 University of Waterloo +// +// The contents of this file are covered under the licence agreement in the +// file "LICENCE" distributed with Cforall. +// +// pingpong.c -- +// +// Author : Peter A. Buhr +// Created On : Wed Sep 20 11:55:23 2017 +// Last Modified By : Peter A. Buhr +// Last Modified On : Tue Dec 11 21:58:06 2018 +// Update Count : 29 +// + +#include +#include + +coroutine PingPong { + const char * name; + /* const */ unsigned int N; + PingPong * part; +}; + +void ?{}( PingPong & this, const char * name, unsigned int N, PingPong & part ) { + this.name = name; + this.N = N; + this.part = ∂ +} +void ?{}( PingPong & this, const char * name, unsigned int N ) { + this{ name, N, *(PingPong *)0 }; +} +void cycle( PingPong & pingpong ) { + resume( pingpong ); +} +void partner( PingPong & this, PingPong & part ) { + this.part = ∂ + resume( this ); +} +void main( PingPong & pingpong ) { // ping's starter ::main, pong's starter ping + for ( pingpong.N ) { // N ping-pongs + sout | pingpong.name; + cycle( *pingpong.part ); + } // for +} +int main() { + enum { N = 20 }; + PingPong ping = { "ping", N }, pong = { "pong", N, ping }; + partner( ping, pong ); +} + +// Local Variables: // +// tab-width: 4 // +// compile-command: "cfa pingpong.c" // +// End: // Index: tests/coroutine/prodcons.c =================================================================== --- tests/coroutine/prodcons.c (revision 18cf979775b84cebbd87600b17950feae8295af5) +++ (revision ) @@ -1,94 +1,0 @@ -// -// Cforall Version 1.0.0 Copyright (C) 2017 University of Waterloo -// -// The contents of this file are covered under the licence agreement in the -// file "LICENCE" distributed with Cforall. -// -// prodcons.c -- -// -// Author : Peter A. Buhr -// Created On : Mon Sep 18 12:23:39 2017 -// Last Modified By : Peter A. Buhr -// Last Modified On : Wed Dec 12 23:04:49 2018 -// Update Count : 53 -// - -#include -#include -#include // random -#include // getpid - -coroutine Cons; // forward -int delivery( Cons & cons, int p1, int p2 ); -void stop( Cons & cons ); - -coroutine Prod { - Cons & c; - int N, money, receipt; -}; -void main( Prod & prod ) with( prod ) { // starter ::main - // 1st resume starts here - for ( i; N ) { // N pairs of values - int p1 = random( 100 ), p2 = random( 100 ); - sout | p1 | " " | p2; - int status = delivery( c, p1, p2 ); - sout | " $" | money | nl | status; - receipt += 1; - } - stop( c ); - sout | "prod stops"; -} -int payment( Prod & prod, int money ) { - prod.money = money; - resume( prod ); // main 1st time, then - return prod.receipt; // prod in delivery -} -void start( Prod & prod, int N, Cons &c ) { - &prod.c = &c; - prod.[N, receipt] = [N, 0]; - resume( prod ); // activate main -} - -coroutine Cons { - Prod & p; - int p1, p2, status; - bool done; -}; -void ?{}( Cons & cons, Prod & p ) { - &cons.p = &p; - cons.[status, done ] = [0, false]; -} -void ^?{}( Cons & cons ) {} -void main( Cons & cons ) with( cons ) { // starter prod - // 1st resume starts here - int money = 1, receipt; - for ( ; ! done; ) { - sout | p1 | " " | p2 | nl | " $" | money; - status += 1; - receipt = payment( p, money ); - sout | " #" | receipt; - money += 1; - } - sout | "cons stops"; -} -int delivery( Cons & cons, int p1, int p2 ) { - cons.[p1, p2] = [p1, p2]; - resume( cons ); // main 1st time, then - return cons.status; // cons in payment -} -void stop( Cons & cons ) { - cons.done = true; - resume( cons ); // activate payment -} -int main() { - Prod prod; - Cons cons = { prod }; - srandom( /* getpid() */ 103 ); // fixed seed for testing - start( prod, 5, cons ); - sout | "main stops"; -} - -// Local Variables: // -// tab-width: 4 // -// compile-command: "cfa prodcons.c" // -// End: // Index: tests/coroutine/prodcons.cfa =================================================================== --- tests/coroutine/prodcons.cfa (revision 107b01a853d2fa7848b6015136777f62881c1779) +++ tests/coroutine/prodcons.cfa (revision 107b01a853d2fa7848b6015136777f62881c1779) @@ -0,0 +1,94 @@ +// +// Cforall Version 1.0.0 Copyright (C) 2017 University of Waterloo +// +// The contents of this file are covered under the licence agreement in the +// file "LICENCE" distributed with Cforall. +// +// prodcons.c -- +// +// Author : Peter A. Buhr +// Created On : Mon Sep 18 12:23:39 2017 +// Last Modified By : Peter A. Buhr +// Last Modified On : Wed Dec 12 23:04:49 2018 +// Update Count : 53 +// + +#include +#include +#include // random +#include // getpid + +coroutine Cons; // forward +int delivery( Cons & cons, int p1, int p2 ); +void stop( Cons & cons ); + +coroutine Prod { + Cons & c; + int N, money, receipt; +}; +void main( Prod & prod ) with( prod ) { // starter ::main + // 1st resume starts here + for ( i; N ) { // N pairs of values + int p1 = random( 100 ), p2 = random( 100 ); + sout | p1 | " " | p2; + int status = delivery( c, p1, p2 ); + sout | " $" | money | nl | status; + receipt += 1; + } + stop( c ); + sout | "prod stops"; +} +int payment( Prod & prod, int money ) { + prod.money = money; + resume( prod ); // main 1st time, then + return prod.receipt; // prod in delivery +} +void start( Prod & prod, int N, Cons &c ) { + &prod.c = &c; + prod.[N, receipt] = [N, 0]; + resume( prod ); // activate main +} + +coroutine Cons { + Prod & p; + int p1, p2, status; + bool done; +}; +void ?{}( Cons & cons, Prod & p ) { + &cons.p = &p; + cons.[status, done ] = [0, false]; +} +void ^?{}( Cons & cons ) {} +void main( Cons & cons ) with( cons ) { // starter prod + // 1st resume starts here + int money = 1, receipt; + for ( ; ! done; ) { + sout | p1 | " " | p2 | nl | " $" | money; + status += 1; + receipt = payment( p, money ); + sout | " #" | receipt; + money += 1; + } + sout | "cons stops"; +} +int delivery( Cons & cons, int p1, int p2 ) { + cons.[p1, p2] = [p1, p2]; + resume( cons ); // main 1st time, then + return cons.status; // cons in payment +} +void stop( Cons & cons ) { + cons.done = true; + resume( cons ); // activate payment +} +int main() { + Prod prod; + Cons cons = { prod }; + srandom( /* getpid() */ 103 ); // fixed seed for testing + start( prod, 5, cons ); + sout | "main stops"; +} + +// Local Variables: // +// tab-width: 4 // +// compile-command: "cfa prodcons.c" // +// End: // Index: tests/coroutine/runningTotal.c =================================================================== --- tests/coroutine/runningTotal.c (revision 18cf979775b84cebbd87600b17950feae8295af5) +++ (revision ) @@ -1,51 +1,0 @@ -// -// Cforall Version 1.0.0 Copyright (C) 2017 University of Waterloo -// -// The contents of this file are covered under the licence agreement in the -// file "LICENCE" distributed with Cforall. -// -// runningTotal.c -- -// -// Author : Peter A. Buhr -// Created On : Wed Dec 6 08:05:27 2017 -// Last Modified By : Peter A. Buhr -// Last Modified On : Tue Dec 11 21:59:00 2018 -// Update Count : 4 -// - -#include -#include - -coroutine RunTotal { // input numbers and return running total - int input, total; // communication -}; - -void ?{}( RunTotal & rntl ) { rntl.total = 0; } - -void update( RunTotal & rntl, int input ) with( rntl ) { // helper - total += input; // remember between activations - suspend(); // inactivate on stack -} - -void main( RunTotal & rntl ) with( rntl ) { - for () { - update( rntl, input ); - } // for -} - -int add( RunTotal & rntl, int input ) { - rntl.input = input; // pass input to coroutine - resume( rntl ); - return rntl.total; // return total from coroutine -} -int main() { - RunTotal rntl; - for ( i; 10 ) { - sout | i | add( rntl, i ); - } // for -} - -// Local Variables: // -// tab-width: 4 // -// compile-command: "cfa runningTotal.c" // -// End: // Index: tests/coroutine/runningTotal.cfa =================================================================== --- tests/coroutine/runningTotal.cfa (revision 107b01a853d2fa7848b6015136777f62881c1779) +++ tests/coroutine/runningTotal.cfa (revision 107b01a853d2fa7848b6015136777f62881c1779) @@ -0,0 +1,51 @@ +// +// Cforall Version 1.0.0 Copyright (C) 2017 University of Waterloo +// +// The contents of this file are covered under the licence agreement in the +// file "LICENCE" distributed with Cforall. +// +// runningTotal.c -- +// +// Author : Peter A. Buhr +// Created On : Wed Dec 6 08:05:27 2017 +// Last Modified By : Peter A. Buhr +// Last Modified On : Tue Dec 11 21:59:00 2018 +// Update Count : 4 +// + +#include +#include + +coroutine RunTotal { // input numbers and return running total + int input, total; // communication +}; + +void ?{}( RunTotal & rntl ) { rntl.total = 0; } + +void update( RunTotal & rntl, int input ) with( rntl ) { // helper + total += input; // remember between activations + suspend(); // inactivate on stack +} + +void main( RunTotal & rntl ) with( rntl ) { + for () { + update( rntl, input ); + } // for +} + +int add( RunTotal & rntl, int input ) { + rntl.input = input; // pass input to coroutine + resume( rntl ); + return rntl.total; // return total from coroutine +} +int main() { + RunTotal rntl; + for ( i; 10 ) { + sout | i | add( rntl, i ); + } // for +} + +// Local Variables: // +// tab-width: 4 // +// compile-command: "cfa runningTotal.c" // +// End: //