source: tests/exceptions/cardgame.cfa @ 72abc90a

Last change on this file since 72abc90a was 3f219eb, checked in by caparson <caparson@…>, 12 months ago

fixed bug where uninit mem was sometimes printed in test
  • Property mode set to 100644
File size: 6.4 KB
Line 
1#include <fstream.hfa>                                                                  // sin/sout
2#include <stdlib.hfa>                                                                   // convert
3#include <string.h>
4#include <coroutine.hfa>
5
6ExceptionDecl( Schmilblick );
7
8enum { DEATH_DECK_DIVISOR = 7 };
9
10coroutine Player {
11        PRNG & prng;
12        unsigned int id;                                                                        // identity of the player
13        Player * partner[2];                                                            // task on the left and right
14        unsigned int deck;                                                                      // size of the deck currently in play
15}; // Player
16
17void players( unsigned int num );
18void ?{}( Player & player, PRNG & prng, unsigned int id );
19void start( Player & player, Player & lp, Player & rp ); // supply partners
20void play( Player & player,  unsigned int deck );
21void drink( Player & player );
22
23enum { RIGHT = 0, LEFT = 1 };
24
25enum {
26        MinCardsTaken = 1,                                                                      // minimum number of cards allowed to draw
27        MaxCardsTaken = 8                                                                       // maximum number of cards allowed to draw
28};
29
30static unsigned int NumPlayersRemaining;                                // number of players currently in the game
31static unsigned int rounds;                                                             // count rounds during Schmilblick
32
33static unsigned int MakePlay( Player & player, unsigned int RemainingCards ) with( player ) {
34        unsigned int took = min( RemainingCards, (typeof(RemainingCards))prng( prng, MinCardsTaken, MaxCardsTaken ) ); // cards drawn
35        unsigned int passing = RemainingCards - took;           // remaining cards in the deck to be passed
36        return passing;
37} // Player::MakePlay
38
39void main( Player & player ) with( player ) {
40        try {
41                suspend;                                                                                // return immediately after establishing starter
42                poll();
43
44                for ( ;; ) {
45                  if ( partner[LEFT] == &player ) {                             // stop when only one player
46                                sout | id;
47                                break;
48                        } // exit
49
50                        bool die = (deck % DEATH_DECK_DIVISOR) == 0; // check before making a play
51                        deck = MakePlay( player, deck );                        // make a play
52                  if ( deck == 0 ) break;                                               // stop when no cards left
53
54                        if ( die ) {
55                                partner[LEFT]->partner[RIGHT] = partner[RIGHT]; // unlink node
56                                partner[RIGHT]->partner[LEFT] = partner[LEFT];
57                                NumPlayersRemaining -= 1;
58                        } else if ( prng( prng, 10 ) == 0 ) {
59                                try {
60                                        drink( *partner[RIGHT] );                       // have a drink
61                                        poll();
62                                } catchResume( Schmilblick * ) {                // stop cycle
63                                } // try
64                        } // if
65                        play( *partner[deck & 1], deck );                       // odd goes left, even goes right
66                } // for
67        } catchResume( Schmilblick * ) {
68                drink( *partner[RIGHT] );                                               // have a drink
69        } // try
70} // Player::main
71
72void ?{}( Player & player, PRNG & prng, unsigned int id ) with( player ) {
73        &player.prng = &prng;  player.id = id;
74} // Player::Player
75
76void start( Player & player, Player & lp, Player & rp ) with( player ) { // obtain the partner identifier
77        partner[LEFT] = &lp;
78        partner[RIGHT] = &rp;
79        resume( player );                                                                       // establish main as starter for termination
80} // Player::start
81
82void players( unsigned int num ) {
83        NumPlayersRemaining = num;
84} // Player::players
85
86void play( Player & player, unsigned int deck ) with( player ) { // send the deck to the partner
87        player.deck = deck;
88        resume( player );
89        poll();
90} // Player::play
91
92void drink( Player & player ) with( player ) {                  // cause partner to drink
93        resumeAt( player, ExceptionInst( Schmilblick ) );
94        resume( player );
95} // Player::drink
96
97static unsigned int rightOf( unsigned int me, unsigned int total ) {
98        return ( me + 1 ) % total;
99} // rightOf
100
101static unsigned int leftOf( unsigned int me, unsigned int total ) {
102        return ( me != 0 ) ? me - 1 : total - 1;
103} // leftOf
104
105// convert(...) throws out_of_range or invalid_argument
106ExceptionDecl( cmd_error );
107
108int main( int argc, char * argv[] ) {
109        enum {
110                MinNoPlayers = 2,                                                               // minimum players in the game
111                MaxNoPlayers = 10,                                                              // maximum players in the game
112                MinNoCards = 10,                                                                // minimum cards in the deck
113                MaxNoCards = 200,                                                               // maximum cards in the deck
114                DefaultGames = 50,                                                              // default games to play
115        };
116        intmax_t numGames = DefaultGames;                                       // games to play
117        intmax_t numPlayers = 0; bool playersSet = false;       // players for a particular game
118        intmax_t numCards = 0; bool cardsSet = false;           // cards in the deck for a game
119        intmax_t seed = 2423;                                                                   // random-number seed
120
121        try {
122                switch ( argc ) {
123                  case 5:
124                        if ( strcmp( argv[4], "d" ) != 0 ) {            // default ?
125                                seed = convert( argv[4] ); if ( seed < 1 ) throw ExceptionInst( cmd_error ); // invalid ?
126                        } // if
127                        // FALL THROUGH
128                  case 4:
129                        if ( strcmp( argv[3], "d" ) != 0 ) {            // default ?
130                                numCards = convert( argv[3] ); if ( numCards < 1 ) throw ExceptionInst( cmd_error ); // invalid ?
131                                cardsSet = true;
132                        } // if
133                        // FALL THROUGH
134                  case 3:
135                        if ( strcmp( argv[2], "d" ) != 0 ) {            // default ?
136                                numPlayers = convert( argv[2] ); if ( numPlayers < 2 ) throw ExceptionInst( cmd_error ); // invalid ?
137                                playersSet = true;
138                        } // if
139                        // FALL THROUGH
140                  case 2:
141                        if ( strcmp( argv[1], "d" ) != 0 ) {            // default ?
142                                numGames = convert( argv[1] ); if ( numGames < 0 ) throw ExceptionInst( cmd_error ); // invalid ?
143                        } // if
144                        // FALL THROUGH
145                  case 1:                                                                               // defaults
146                        break;
147                  default:                                                                              // wrong number of options
148                        throw ExceptionInst( cmd_error );
149                } // switch
150        } catch( exception_t * ) {                                                      // catch any
151                exit | "Usage: " | argv[0]
152                         | " [ games (>=0) | 'd' (default " | DefaultGames
153                         | ") [ players (>=2) | 'd' (random " | MinNoPlayers | "-" | MaxNoPlayers
154                         | ") [ cards (>0) | 'd' (random " | MinNoCards | "-" | MaxNoCards
155                         | ") [ seed (>0) | 'd' (random) ] ] ] ]";
156        } // try
157
158        PRNG mprng, pprng;
159        if ( seed != 0 ) {                                                                      // specified on command line ?
160                set_seed( mprng, seed );  set_seed( pprng, seed );
161        } // if
162        sout | "start";
163        for ( unsigned int game = 1; game <= (unsigned int)numGames; game += 1 ) {
164                if ( ! playersSet ) numPlayers = prng( mprng, MinNoPlayers, MaxNoPlayers );
165                if ( ! cardsSet ) numCards = prng( mprng, MinNoCards, MaxNoCards );
166                {
167                        Player * players[numPlayers];
168
169                        players( numPlayers );                                          // set number of players in game
170
171                        for ( unsigned int i = 0; i < (unsigned int)numPlayers; i += 1 ) { // start the players
172                                players[i] = &(*malloc()){ pprng, i };
173                        } // for
174
175                        // Tell each player who its partner is.
176                        for ( unsigned int i = 0; i < (unsigned int)numPlayers; i += 1 ) {
177                                start( *players[i], *players[leftOf(i, numPlayers)], *players[rightOf(i, numPlayers)] );
178                        } // for
179
180                        play( *players[ prng( mprng, numPlayers ) ], numCards ); // dealer starts the game
181                        for ( unsigned int i = 0; i < (unsigned int)numPlayers; i += 1 ) { // delete players when the game is over
182                                delete( players[i] );
183                        } // for
184                }
185        } // for
186        sout | "done";
187} // main
Note: See TracBrowser for help on using the repository browser.