Index: tests/exceptions/.expect/hotpotato.txt =================================================================== --- tests/exceptions/.expect/hotpotato.txt (revision fd775ae85b3364a2f91fb35d504516f1b1ca8bc9) +++ tests/exceptions/.expect/hotpotato.txt (revision fd775ae85b3364a2f91fb35d504516f1b1ca8bc9) @@ -0,0 +1,143 @@ +5 0 42 +9 players in the game + POTATO goes off after 2 ticks +U 0 -> 3 is eliminated + POTATO goes off after 4 ticks +U 0 -> 4 -> 0 -> 1 is eliminated + POTATO goes off after 1 tick +U 0 is eliminated +election + -> 4 election + -> 5 election + -> 6 election + -> 7 election + -> 8 election + -> 2 : umpire 8 + POTATO goes off after 5 ticks +U 8 -> 2 -> 4 -> 2 -> 8 is eliminated +election + -> 2 election + -> 4 election + -> 5 election + -> 6 election + -> 7 : umpire 7 + POTATO goes off after 2 ticks +U 7 -> 2 is eliminated + POTATO goes off after 6 ticks +U 7 -> 6 -> 5 -> 6 -> 5 -> 6 is eliminated + POTATO goes off after 9 ticks +U 7 -> 4 -> 7 -> 5 -> 4 -> 7 -> 4 -> 7 -> 4 is eliminated + POTATO goes off after 1 tick +U 7 is eliminated +election + -> 5 : umpire 5 + POTATO goes off after 6 ticks +U 5 wins the Match! + + +8 players in the game + POTATO goes off after 9 ticks +U 0 -> 5 -> 0 -> 5 -> 0 -> 3 -> 0 -> 5 -> 6 is eliminated + POTATO goes off after 5 ticks +U 0 -> 5 -> 0 -> 3 -> 2 is eliminated + POTATO goes off after 10 ticks +U 0 -> 3 -> 0 -> 3 -> 0 -> 3 -> 0 -> 5 -> 0 -> 5 is eliminated + POTATO goes off after 7 ticks +U 0 -> 3 -> 0 -> 3 -> 1 -> 3 -> 1 is eliminated + POTATO goes off after 10 ticks +U 0 -> 7 -> 4 -> 7 -> 4 -> 3 -> 0 -> 3 -> 0 -> 3 is eliminated + POTATO goes off after 10 ticks +U 0 -> 4 -> 0 -> 4 -> 0 -> 4 -> 0 -> 7 -> 4 -> 7 is eliminated + POTATO goes off after 7 ticks +U 0 -> 4 -> 0 -> 4 -> 0 -> 4 -> 0 is eliminated +election + -> 4 : umpire 4 + POTATO goes off after 7 ticks +U 4 wins the Match! + + +4 players in the game + POTATO goes off after 3 ticks +U 0 -> 1 -> 0 is eliminated +election + -> 3 election + -> 2 election + -> 1 : umpire 3 + POTATO goes off after 9 ticks +U 3 -> 1 -> 2 -> 3 -> 1 -> 2 -> 1 -> 2 -> 3 is eliminated +election + -> 2 election + -> 1 : umpire 2 + POTATO goes off after 2 ticks +U 2 -> 1 is eliminated + POTATO goes off after 7 ticks +U 2 wins the Match! + + +10 players in the game + POTATO goes off after 2 ticks +U 0 -> 8 is eliminated + POTATO goes off after 10 ticks +U 0 -> 9 -> 0 -> 9 -> 0 -> 9 -> 7 -> 9 -> 7 -> 9 is eliminated + POTATO goes off after 3 ticks +U 0 -> 7 -> 1 is eliminated + POTATO goes off after 10 ticks +U 0 -> 7 -> 0 -> 6 -> 5 -> 6 -> 5 -> 4 -> 5 -> 6 is eliminated + POTATO goes off after 3 ticks +U 0 -> 5 -> 0 is eliminated +election + -> 7 election + -> 2 election + -> 3 election + -> 4 election + -> 5 : umpire 7 + POTATO goes off after 9 ticks +U 7 -> 5 -> 4 -> 5 -> 7 -> 5 -> 4 -> 3 -> 4 is eliminated + POTATO goes off after 8 ticks +U 7 -> 5 -> 3 -> 2 -> 3 -> 2 -> 3 -> 2 is eliminated + POTATO goes off after 6 ticks +U 7 -> 3 -> 7 -> 5 -> 3 -> 5 is eliminated + POTATO goes off after 8 ticks +U 7 -> 3 -> 7 -> 3 -> 7 -> 3 -> 7 -> 3 is eliminated + POTATO goes off after 2 ticks +U 7 wins the Match! + + +8 players in the game + POTATO goes off after 1 tick +U 0 is eliminated +election + -> 6 election + -> 7 election + -> 5 election + -> 1 election + -> 2 election + -> 3 election + -> 4 : umpire 7 + POTATO goes off after 9 ticks +U 7 -> 5 -> 7 -> 6 -> 7 -> 6 -> 7 -> 6 -> 7 is eliminated +election + -> 5 election + -> 1 election + -> 2 election + -> 3 election + -> 4 election + -> 6 : umpire 6 + POTATO goes off after 1 tick +U 6 is eliminated +election + -> 5 election + -> 1 election + -> 2 election + -> 3 election + -> 4 : umpire 5 + POTATO goes off after 7 ticks +U 5 -> 1 -> 2 -> 1 -> 5 -> 1 -> 2 is eliminated + POTATO goes off after 2 ticks +U 5 -> 4 is eliminated + POTATO goes off after 9 ticks +U 5 -> 1 -> 5 -> 1 -> 3 -> 1 -> 3 -> 5 -> 3 is eliminated + POTATO goes off after 8 ticks +U 5 -> 1 -> 5 -> 1 -> 5 -> 1 -> 5 -> 1 is eliminated + POTATO goes off after 7 ticks +U 5 wins the Match! Index: tests/exceptions/.expect/hotpotato_checked.txt =================================================================== --- tests/exceptions/.expect/hotpotato_checked.txt (revision fd775ae85b3364a2f91fb35d504516f1b1ca8bc9) +++ tests/exceptions/.expect/hotpotato_checked.txt (revision fd775ae85b3364a2f91fb35d504516f1b1ca8bc9) @@ -0,0 +1,143 @@ +5 0 42 +9 players in the game + POTATO goes off after 2 ticks +U 0 -> 3 is eliminated + POTATO goes off after 4 ticks +U 0 -> 4 -> 0 -> 1 is eliminated + POTATO goes off after 1 tick +U 0 is eliminated +election + -> 4 election + -> 5 election + -> 6 election + -> 7 election + -> 8 election + -> 2 : umpire 8 + POTATO goes off after 5 ticks +U 8 -> 2 -> 4 -> 2 -> 8 is eliminated +election + -> 2 election + -> 4 election + -> 5 election + -> 6 election + -> 7 : umpire 7 + POTATO goes off after 2 ticks +U 7 -> 2 is eliminated + POTATO goes off after 6 ticks +U 7 -> 6 -> 5 -> 6 -> 5 -> 6 is eliminated + POTATO goes off after 9 ticks +U 7 -> 4 -> 7 -> 5 -> 4 -> 7 -> 4 -> 7 -> 4 is eliminated + POTATO goes off after 1 tick +U 7 is eliminated +election + -> 5 : umpire 5 + POTATO goes off after 6 ticks +U 5 wins the Match! + + +8 players in the game + POTATO goes off after 9 ticks +U 0 -> 5 -> 0 -> 5 -> 0 -> 3 -> 0 -> 5 -> 6 is eliminated + POTATO goes off after 5 ticks +U 0 -> 5 -> 0 -> 3 -> 2 is eliminated + POTATO goes off after 10 ticks +U 0 -> 3 -> 0 -> 3 -> 0 -> 3 -> 0 -> 5 -> 0 -> 5 is eliminated + POTATO goes off after 7 ticks +U 0 -> 3 -> 0 -> 3 -> 1 -> 3 -> 1 is eliminated + POTATO goes off after 10 ticks +U 0 -> 7 -> 4 -> 7 -> 4 -> 3 -> 0 -> 3 -> 0 -> 3 is eliminated + POTATO goes off after 10 ticks +U 0 -> 4 -> 0 -> 4 -> 0 -> 4 -> 0 -> 7 -> 4 -> 7 is eliminated + POTATO goes off after 7 ticks +U 0 -> 4 -> 0 -> 4 -> 0 -> 4 -> 0 is eliminated +election + -> 4 : umpire 4 + POTATO goes off after 7 ticks +U 4 wins the Match! + + +4 players in the game + POTATO goes off after 3 ticks +U 0 -> 1 -> 0 is eliminated +election + -> 3 election + -> 2 election + -> 1 : umpire 3 + POTATO goes off after 9 ticks +U 3 -> 1 -> 2 -> 3 -> 1 -> 2 -> 1 -> 2 -> 3 is eliminated +election + -> 2 election + -> 1 : umpire 2 + POTATO goes off after 2 ticks +U 2 -> 1 is eliminated + POTATO goes off after 7 ticks +U 2 wins the Match! + + +10 players in the game + POTATO goes off after 2 ticks +U 0 -> 8 is eliminated + POTATO goes off after 10 ticks +U 0 -> 9 -> 0 -> 9 -> 0 -> 9 -> 7 -> 9 -> 7 -> 9 is eliminated + POTATO goes off after 3 ticks +U 0 -> 7 -> 1 is eliminated + POTATO goes off after 10 ticks +U 0 -> 7 -> 0 -> 6 -> 5 -> 6 -> 5 -> 4 -> 5 -> 6 is eliminated + POTATO goes off after 3 ticks +U 0 -> 5 -> 0 is eliminated +election + -> 7 election + -> 2 election + -> 3 election + -> 4 election + -> 5 : umpire 7 + POTATO goes off after 9 ticks +U 7 -> 5 -> 4 -> 5 -> 7 -> 5 -> 4 -> 3 -> 4 is eliminated + POTATO goes off after 8 ticks +U 7 -> 5 -> 3 -> 2 -> 3 -> 2 -> 3 -> 2 is eliminated + POTATO goes off after 6 ticks +U 7 -> 3 -> 7 -> 5 -> 3 -> 5 is eliminated + POTATO goes off after 8 ticks +U 7 -> 3 -> 7 -> 3 -> 7 -> 3 -> 7 -> 3 is eliminated + POTATO goes off after 2 ticks +U 7 wins the Match! + + +8 players in the game + POTATO goes off after 1 tick +U 0 is eliminated +election + -> 6 election + -> 7 election + -> 5 election + -> 1 election + -> 2 election + -> 3 election + -> 4 : umpire 7 + POTATO goes off after 9 ticks +U 7 -> 5 -> 7 -> 6 -> 7 -> 6 -> 7 -> 6 -> 7 is eliminated +election + -> 5 election + -> 1 election + -> 2 election + -> 3 election + -> 4 election + -> 6 : umpire 6 + POTATO goes off after 1 tick +U 6 is eliminated +election + -> 5 election + -> 1 election + -> 2 election + -> 3 election + -> 4 : umpire 5 + POTATO goes off after 7 ticks +U 5 -> 1 -> 2 -> 1 -> 5 -> 1 -> 2 is eliminated + POTATO goes off after 2 ticks +U 5 -> 4 is eliminated + POTATO goes off after 9 ticks +U 5 -> 1 -> 5 -> 1 -> 3 -> 1 -> 3 -> 5 -> 3 is eliminated + POTATO goes off after 8 ticks +U 5 -> 1 -> 5 -> 1 -> 5 -> 1 -> 5 -> 1 is eliminated + POTATO goes off after 7 ticks +U 5 wins the Match! Index: tests/exceptions/hotpotato.cfa =================================================================== --- tests/exceptions/hotpotato.cfa (revision fd775ae85b3364a2f91fb35d504516f1b1ca8bc9) +++ tests/exceptions/hotpotato.cfa (revision fd775ae85b3364a2f91fb35d504516f1b1ca8bc9) @@ -0,0 +1,214 @@ +#include // sin/sout +#include // convert +#include +#include + +struct Potato { + PRNG & prng; + unsigned int deadline; // when timer goes off + unsigned int timer; // up counter to deadline +}; // Potato + +void reset( Potato & potato, unsigned int maxTicks = 10 ); +void ?{}( Potato & potato, PRNG & prng, unsigned int maxTicks = 10 ); + +void ?{}( Potato & potato, PRNG & prng, unsigned int maxTicks ) with(potato) { + &potato.prng = &prng; + reset( potato, maxTicks ); +} // Potato + +coroutine Player { + PRNG & prng; + int id; // player identity + Potato & potato; // potato being tossed + Player * partner[2]; // left and right player +}; // Player + +void ?{}( Player & player, PRNG & prng, unsigned int id, Potato & potato ) { + &player.prng = &prng; + player.id = id; + &player.potato = &potato; +} // Player + +Player & umpire; + +ExceptionDecl( Explode ); +ExceptionDecl( Terminate, Player * victim; ); +ExceptionDecl( Election, Player * player; ); +ExceptionDecl( cmd_error ); // convert(...) throws out_of_range or invalid_argument + +void reset( Potato & potato, unsigned int maxTicks ) with(potato) { + if ( maxTicks < 2 ) abort( "Hot Potato initialized with less than 2 ticks" ); // optional + deadline = prng( prng, 1, maxTicks ); + timer = 0; + sout | " POTATO goes off after " | deadline | " tick" | nosep | (deadline > 1 ? "s" : ""); +} // reset + +void countdown( Potato & potato ) with(potato) { + timer += 1; + if ( timer == deadline ) throw ExceptionInst( Explode ); +} // countdown + +static unsigned int rightOf( unsigned int me, unsigned int total ) { + return ( me + 1 ) % total; +} // rightOf + +static unsigned int leftOf( unsigned int me, unsigned int total ) { + return ( me + total - 1) % total; +} // leftOf + +enum { LEFT = 0, RIGHT = 1 }; + +static void vote( Player & player, Election & election ) { // cause partner to vote + resumeAt( player, election ); + resume( player ); +} // vote + +static void terminate( Player & player ) { // resume umpire + resume( player ); + assert( false ); // no return +} // terminate + +void init( Player & player, Player & lp, Player & rp ) with(player) { // supply partners + partner[LEFT] = &lp; + partner[RIGHT] = &rp; + resume( player ); // establish main as starter for termination +} // init + +int getId( Player & player ) { // player id + return player.id; +} // getId + +void toss( Player & player ) { // tossed the potato + resume( player ); +} // toss + +void main( Player & player ) with(player) { + suspend; // return immediately after establishing starter + + try { + for ( ;; ) { + poll(); // check for non-local exceptions before proceeding + + if ( partner[LEFT] == &player ) { // stop when only one player + sout | id | " wins the Match!"; + break; + } // exit + + countdown( potato ); // player is eliminated if countdown() returned true + + size_t side = prng( prng, 2 ); + sout | id | " -> " | nonl; + toss( *partner[ side ] ); // random toss left/right + } // for + } catchResume( Terminate * v ) { + v->victim->partner[LEFT]->partner[RIGHT] = v->victim->partner[RIGHT]; // unlink node + v->victim->partner[RIGHT]->partner[LEFT] = v->victim->partner[LEFT]; + delete( v->victim ); + reset( potato ); + sout | "U " | nonl; // start new game + flush( sout ); + } catchResume( Election * election ) { + sout | "election"; + sout | " -> " | id | nonl; + if ( id > getId( *election->player ) ) election->player = &player; // set umpire to highest id so far + vote( *partner[RIGHT], *election ); + } catch ( Explode * ) { + sout | id | " is eliminated"; + if ( &player == &umpire ) { + id = -1; // remove from election + vote( *partner[RIGHT], ExceptionInst( Election, &player ) ); // start election + try { + poll(); + } catchResume( Election * election ) { + &umpire = election->player; + sout | " : umpire " | getId( *election->player ); + } + } // if + resumeAt( umpire, ExceptionInst( Terminate, &player ) ); + terminate( umpire ); + assert( false ); // no return + } // try +} // main + + +int main( int argc, char * argv[] ) { + enum { + MinNoPlayers = 2, // minimum players in the game + MaxNoPlayers = 10, // maximum players in the game + DefaultGames = 5, // default games to play + }; + intmax_t numGames = DefaultGames; // games to play + intmax_t numPlayers = 0; // players for a particular game + intmax_t seed = 42; // random-number seed + bool playersSet = false; + char * nosummary = getenv( "NOSUMMARY" ); // print extra output + + try { + choose ( argc ) { + case 4: + if ( strcmp( argv[3], "d" ) != 0 ) { // default ? + seed = convert( argv[3] ); if ( seed < 1 ) throw ExceptionInst( cmd_error ); // invalid ? + } // if + fallthrough; + case 3: + if ( strcmp( argv[2], "d" ) != 0 ) { // default ? + numPlayers = convert( argv[2] ); if ( numPlayers < 2 ) throw ExceptionInst( cmd_error ); // invalid ? + playersSet = true; + } // if + fallthrough; + case 2: + if ( strcmp( argv[1], "d" ) != 0 ) { // default ? + numGames = convert( argv[1] ); if ( numGames < 0 ) throw ExceptionInst( cmd_error ); // invalid ? + } // if + fallthrough; + case 1: ; // defaults + default: // too many arguments + throw ExceptionInst( cmd_error ); + } // choose + } catch( exception_t * ) { // catch any + exit | "Usage: " | argv[0] + | " [ games (>=0) | 'd' (default " | DefaultGames + | ") [ players (>=2) | 'd' (random " | MinNoPlayers | "-" | MaxNoPlayers + | ") [ seed (>0) | 'd' (random) ] ] ]"; + } // try + sout | numGames | numPlayers | seed; + + PRNG mprng, hprng, pprng; + if ( seed != 0 ) { // specified on command line ? + set_seed( mprng, seed ); set_seed( hprng, seed ); set_seed( pprng, seed ); + } // if + + for ( game; 1 ~= numGames ) { + if ( ! playersSet ) numPlayers = prng( mprng, MinNoPlayers, MaxNoPlayers ); + sout | numPlayers | " players in the game"; + { + Potato potato{ hprng }; // hot potato to be tossed + Player * players[numPlayers]; + + for ( unsigned int i = 0; i < (unsigned int)numPlayers; i += 1 ) { // start the players + players[i] = malloc(); + ?{}( *players[i], pprng, i, potato ); + } // for + + // Do not swap player[0] with itself. + unsigned int rposn = prng( mprng, 1, numPlayers - 1 ); // swap random position with 0 + swap( players[0], players[rposn] ); + + // Tell each player its partner. + for ( unsigned int i = 0; i < (unsigned int)numPlayers; i += 1 ) { + init( *players[i], *players[leftOf(i, numPlayers)], *players[rightOf(i, numPlayers)] ); + } // for + + &umpire = players[rposn]; // designate umpire and start game + sout | "U " | nonl; + toss( *players[rposn] ); + delete( &umpire ); + } + if ( game < (unsigned int)numGames ) sout | nl | nl; // whitespace between games + } // for +} // main + +// Local Variables: // +// compile-command: "make hotpotato" // +// End: // Index: tests/exceptions/hotpotato_checked.cfa =================================================================== --- tests/exceptions/hotpotato_checked.cfa (revision fd775ae85b3364a2f91fb35d504516f1b1ca8bc9) +++ tests/exceptions/hotpotato_checked.cfa (revision fd775ae85b3364a2f91fb35d504516f1b1ca8bc9) @@ -0,0 +1,222 @@ +#include // sin/sout +#include // convert +#include +#include + +struct Potato { + PRNG & prng; + unsigned int deadline; // when timer goes off + unsigned int timer; // up counter to deadline +}; // Potato + +void reset( Potato & potato, unsigned int maxTicks = 10 ); +void ?{}( Potato & potato, PRNG & prng, unsigned int maxTicks = 10 ); + +void ?{}( Potato & potato, PRNG & prng, unsigned int maxTicks ) with(potato) { + &potato.prng = &prng; + reset( potato, maxTicks ); +} // Potato + +coroutine Player { + PRNG & prng; + int id; // player identity + Potato & potato; // potato being tossed + Player * partner[2]; // left and right player +}; // Player + +void ?{}( Player & player, PRNG & prng, unsigned int id, Potato & potato ) { + &player.prng = &prng; + player.id = id; + &player.potato = &potato; +} // Player + +Player & umpire; + +ExceptionDecl( Explode ); +ExceptionDecl( Terminate, Player * victim; ); +ExceptionDecl( Election, Player * player; ); +ExceptionDecl( cmd_error ); // convert(...) throws out_of_range or invalid_argument + +void reset( Potato & potato, unsigned int maxTicks ) with(potato) { + if ( maxTicks < 2 ) abort( "Hot Potato initialized with less than 2 ticks" ); // optional + deadline = prng( prng, 1, maxTicks ); + timer = 0; + sout | " POTATO goes off after " | deadline | " tick" | nosep | (deadline > 1 ? "s" : ""); +} // reset + +void countdown( Potato & potato ) with(potato) { + timer += 1; + if ( timer == deadline ) throw ExceptionInst( Explode ); +} // countdown + +static unsigned int rightOf( unsigned int me, unsigned int total ) { + return ( me + 1 ) % total; +} // rightOf + +static unsigned int leftOf( unsigned int me, unsigned int total ) { + return ( me + total - 1) % total; +} // leftOf + +enum { LEFT = 0, RIGHT = 1 }; + +static void vote( Player & player ) { // cause partner to vote + resume( player ); checked_poll(); +} // vote + +static void terminate( Player & player ) { // resume umpire + resume( player ); + checked_poll(); + sout | "THIS SHOULD NOT BE REACHED"; +} // terminate + +void init( Player & player, Player & lp, Player & rp ) with(player) { // supply partners + partner[LEFT] = &lp; + partner[RIGHT] = &rp; + resume( player ); // establish main as starter for termination + checked_poll(); +} // init + +int getId( Player & player ) { // player id + return player.id; +} // getId + +void toss( Player & player ) { // tossed the potato + resume( player ); + checked_poll(); +} // toss + +void main( Player & player ) with(player) { + try { + enable_ehm(); // allow delivery of nonlocal exceptions + suspend; // return immediately after establishing starter + checked_poll(); + + for ( ;; ) { + checked_poll(); + if ( partner[LEFT] == &player ) { // stop when only one player + sout | id | " wins the Match!"; + break; + } // exit + + countdown( potato ); // player is eliminated if countdown() returned true + + size_t side = prng( prng, 2 ); + sout | id | " -> " | nonl; + toss( *partner[ side ] ); // random toss left/right + } // for + disable_ehm(); + } catchResume( Terminate * v ) { + v->victim->partner[LEFT]->partner[RIGHT] = v->victim->partner[RIGHT]; // unlink node + v->victim->partner[RIGHT]->partner[LEFT] = v->victim->partner[LEFT]; + delete( v->victim ); + reset( potato ); + sout | "U " | nonl; // start new game + flush( sout ); + } catchResume( Election * election ) { + sout | "election"; + sout | " -> " | id | nonl; + if ( id > getId( *election->player ) ) election->player = &player; // set umpire to highest id so far + resumeAt( *partner[RIGHT], *election ); + disable_ehm(); // disable ehm since we can't handle execption thrown in vote here and want to poll later + vote( *partner[RIGHT] ); + enable_ehm(); // enable after vote + } catch ( Explode * ) { + sout | id | " is eliminated"; + if ( &player == &umpire ) { + try { + id = -1; // remove from election + resumeAt( *partner[RIGHT], ExceptionInst( Election, &player ) ); + vote( *partner[RIGHT] ); // start election + checked_poll(); + } catchResume( Election * election ) { + &umpire = election->player; + sout | " : umpire " | getId( *election->player ); + } // try + } // if + resumeAt( umpire, ExceptionInst( Terminate, &player ) ); + terminate( umpire ); + assert( false ); // no return + } // try +} // main + + +int main( int argc, char * argv[] ) { + enum { + MinNoPlayers = 2, // minimum players in the game + MaxNoPlayers = 10, // maximum players in the game + DefaultGames = 5, // default games to play + }; + intmax_t numGames = DefaultGames; // games to play + intmax_t numPlayers = 0; // players for a particular game + intmax_t seed = 42; // random-number seed + bool playersSet = false; + char * nosummary = getenv( "NOSUMMARY" ); // print extra output + + try { + choose ( argc ) { + case 4: + if ( strcmp( argv[3], "d" ) != 0 ) { // default ? + seed = convert( argv[3] ); if ( seed < 1 ) throw ExceptionInst( cmd_error ); // invalid ? + } // if + fallthrough; + case 3: + if ( strcmp( argv[2], "d" ) != 0 ) { // default ? + numPlayers = convert( argv[2] ); if ( numPlayers < 2 ) throw ExceptionInst( cmd_error ); // invalid ? + playersSet = true; + } // if + fallthrough; + case 2: + if ( strcmp( argv[1], "d" ) != 0 ) { // default ? + numGames = convert( argv[1] ); if ( numGames < 0 ) throw ExceptionInst( cmd_error ); // invalid ? + } // if + fallthrough; + case 1: ; // defaults + default: // too many arguments + throw ExceptionInst( cmd_error ); + } // choose + } catch( exception_t * ) { // catch any + exit | "Usage: " | argv[0] + | " [ games (>=0) | 'd' (default " | DefaultGames + | ") [ players (>=2) | 'd' (random " | MinNoPlayers | "-" | MaxNoPlayers + | ") [ seed (>0) | 'd' (random) ] ] ]"; + } // try + sout | numGames | numPlayers | seed; + + PRNG mprng, hprng, pprng; + if ( seed != 0 ) { // specified on command line ? + set_seed( mprng, seed ); set_seed( hprng, seed ); set_seed( pprng, seed ); + } // if + + for ( game; 1 ~= numGames ) { + if ( ! playersSet ) numPlayers = prng( mprng, MinNoPlayers, MaxNoPlayers ); + sout | numPlayers | " players in the game"; + { + Potato potato{ hprng }; // hot potato to be tossed + Player * players[numPlayers]; + + for ( unsigned int i = 0; i < (unsigned int)numPlayers; i += 1 ) { // start the players + players[i] = malloc(); + ?{}( *players[i], pprng, i, potato ); + } // for + + // Do not swap player[0] with itself. + unsigned int rposn = prng( mprng, 1, numPlayers - 1 ); // swap random position with 0 + swap( players[0], players[rposn] ); + + // Tell each player its partner. + for ( unsigned int i = 0; i < (unsigned int)numPlayers; i += 1 ) { + init( *players[i], *players[leftOf(i, numPlayers)], *players[rightOf(i, numPlayers)] ); + } // for + + &umpire = players[rposn]; // designate umpire and start game + sout | "U " | nonl; + toss( *players[rposn] ); + delete( &umpire ); + } + if ( game < (unsigned int)numGames ) sout | nl | nl; // whitespace between games + } // for +} // main + +// Local Variables: // +// compile-command: "make hotpotato" // +// End: //