fish/fish.c

   1 /*      $NetBSD: fish.c,v 1.23 2018/03/05 04:59:54 eadler Exp $ */
   2
   3 /*-
   4  * Copyright (c) 1990, 1993
   5  *      The Regents of the University of California.  All rights reserved.
   6  *
   7  * This code is derived from software contributed to Berkeley by
   8  * Muffy Barkocy.
   9  *
  10  * Redistribution and use in source and binary forms, with or without
  11  * modification, are permitted provided that the following conditions
  12  * are met:
  13  * 1. Redistributions of source code must retain the above copyright
  14  *    notice, this list of conditions and the following disclaimer.
  15  * 2. Redistributions in binary form must reproduce the above copyright
  16  *    notice, this list of conditions and the following disclaimer in the
  17  *    documentation and/or other materials provided with the distribution.
  18  * 3. Neither the name of the University nor the names of its contributors
  19  *    may be used to endorse or promote products derived from this software
  20  *    without specific prior written permission.
  21  *
  22  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
  23  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  24  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  25  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
  26  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  27  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  28  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  29  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  30  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  31  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  32  * SUCH DAMAGE.
  33  */
  34
  35 #include <sys/cdefs.h>
  36 #ifndef lint
  37 __COPYRIGHT("@(#) Copyright (c) 1990, 1993\
  38  The Regents of the University of California.  All rights reserved.");
  39 #endif /* not lint */
  40
  41 #ifndef lint
  42 #if 0
  43 static char sccsid[] = "@(#)fish.c      8.1 (Berkeley) 5/31/93";
  44 #else
  45 __RCSID("$NetBSD: fish.c,v 1.23 2018/03/05 04:59:54 eadler Exp $");
  46 #endif
  47 #endif /* not lint */
  48
  49 #include <sys/types.h>
  50 #include <sys/wait.h>
  51 #include <errno.h>
  52 #include <fcntl.h>
  53 #include <stdio.h>
  54 #include <stdlib.h>
  55 #include <unistd.h>
  56 #include <string.h>
  57 #include <time.h>
  58 #include <err.h>
  59 #include "pathnames.h"
  60
  61 #define RANKS           13
  62 #define HANDSIZE        7
  63 #define CARDS           4
  64 #define TOTCARDS        RANKS * CARDS
  65
  66 #define USER            1
  67 #define COMPUTER        0
  68 #define OTHER(a)        (1 - (a))
  69
  70 static const char *const cards[] = {
  71         "A", "2", "3", "4", "5", "6", "7",
  72         "8", "9", "10", "J", "Q", "K", NULL,
  73 };
  74 #define PRC(card)       (void)printf(" %s", cards[card])
  75
  76 static int promode;
  77 static int asked[RANKS], comphand[RANKS], deck[TOTCARDS];
  78 static int userasked[RANKS], userhand[RANKS];
  79 static int curcard = TOTCARDS;
  80
  81 static void chkwinner(int, const int *);
  82 static int compmove(void);
  83 static int countbooks(const int *);
  84 static int countcards(const int *);
  85 static int drawcard(int, int *);
  86 static int gofish(int, int, int *);
  87 static void goodmove(int, int, int *, int *);
  88 static void init(void);
  89 static void instructions(void);
  90 static int nrandom(int);
  91 static void printhand(const int *);
  92 static void printplayer(int);
  93 static int promove(void);
  94 static void usage(void) __dead;
  95 static int usermove(void);
  96
  97 int
  98 main(int argc, char **argv)
  99 {
 100         int ch, move;
 101
 102         /* Revoke setgid privileges */
 103         setgid(getgid());
 104
 105         while ((ch = getopt(argc, argv, "p")) != -1)
 106                 switch(ch) {
 107                 case 'p':
 108                         promode = 1;
 109                         break;
 110                 case '?':
 111                 default:
 112                         usage();
 113                 }
 114
 115         srandom(time(NULL));
 116         instructions();
 117         init();
 118
 119         if (nrandom(2) == 1) {
 120                 printplayer(COMPUTER);
 121                 (void)printf("get to start.\n");
 122                 goto istart;
 123         }
 124         printplayer(USER);
 125         (void)printf("get to start.\n");
 126
 127         for (;;) {
 128                 move = usermove();
 129                 if (!comphand[move]) {
 130                         if (gofish(move, USER, userhand))
 131                                 continue;
 132                 } else {
 133                         goodmove(USER, move, userhand, comphand);
 134                         continue;
 135                 }
 136
 137 istart:         for (;;) {
 138                         move = compmove();
 139                         if (!userhand[move]) {
 140                                 if (!gofish(move, COMPUTER, comphand))
 141                                         break;
 142                         } else
 143                                 goodmove(COMPUTER, move, comphand, userhand);
 144                 }
 145         }
 146         /* NOTREACHED */
 147 }
 148
 149 static int
 150 usermove(void)
 151 {
 152         int n;
 153         const char *const *p;
 154         char buf[256];
 155
 156         (void)printf("\nYour hand is:");
 157         printhand(userhand);
 158
 159         for (;;) {
 160                 (void)printf("You ask me for: ");
 161                 (void)fflush(stdout);
 162                 if (fgets(buf, sizeof(buf), stdin) == NULL)
 163                         exit(0);
 164                 if (buf[0] == '\0')
 165                         continue;
 166                 if (buf[0] == '\n') {
 167                         (void)printf("%d cards in my hand, %d in the pool.\n",
 168                             countcards(comphand), curcard);
 169                         (void)printf("My books:");
 170                         (void)countbooks(comphand);
 171                         continue;
 172                 }
 173                 buf[strlen(buf) - 1] = '\0';
 174                 if (!strcasecmp(buf, "p")) {
 175                         if (!promode) {
 176                                 promode = 1;
 177                                 printf("Entering pro mode.\n");
 178                         }
 179                         else {
 180                                 printf("Already in pro mode.\n");
 181                         }
 182                         continue;
 183                 }
 184                 if (!strcasecmp(buf, "quit"))
 185                         exit(0);
 186                 for (p = cards; *p; ++p)
 187                         if (!strcasecmp(*p, buf))
 188                                 break;
 189                 if (!*p) {
 190                         (void)printf("I don't understand!\n");
 191                         continue;
 192                 }
 193                 n = p - cards;
 194                 if (userhand[n] <= 3) {
 195                         userasked[n] = 1;
 196                         return(n);
 197                 }
 198                 if (userhand[n] == 4) {
 199                         printf("You already have all of those.\n");
 200                         continue;
 201                 }
 202
 203                 if (nrandom(3) == 1)
 204                         (void)printf("You don't have any of those!\n");
 205                 else
 206                         (void)printf("You don't have any %s's!\n", cards[n]);
 207                 if (nrandom(4) == 1)
 208                         (void)printf("No cheating!\n");
 209                 (void)printf("Guess again.\n");
 210         }
 211         /* NOTREACHED */
 212 }
 213
 214 static int
 215 compmove(void)
 216 {
 217         static int lmove;
 218
 219         if (promode)
 220                 lmove = promove();
 221         else {
 222                 do {
 223                         lmove = (lmove + 1) % RANKS;
 224                 } while (!comphand[lmove] || comphand[lmove] == CARDS);
 225         }
 226         asked[lmove] = 1;
 227
 228         (void)printf("I ask you for: %s.\n", cards[lmove]);
 229         return(lmove);
 230 }
 231
 232 static int
 233 promove(void)
 234 {
 235         int i, max;
 236
 237         for (i = 0; i < RANKS; ++i)
 238                 if (userasked[i] &&
 239                     comphand[i] > 0 && comphand[i] < CARDS) {
 240                         userasked[i] = 0;
 241                         return(i);
 242                 }
 243         if (nrandom(3) == 1) {
 244                 for (i = 0;; ++i)
 245                         if (comphand[i] && comphand[i] != CARDS) {
 246                                 max = i;
 247                                 break;
 248                         }
 249                 while (++i < RANKS)
 250                         if (comphand[i] != CARDS &&
 251                             comphand[i] > comphand[max])
 252                                 max = i;
 253                 return(max);
 254         }
 255         if (nrandom(1024) == 0723) {
 256                 for (i = 0; i < RANKS; ++i)
 257                         if (userhand[i] && comphand[i])
 258                                 return(i);
 259         }
 260         for (;;) {
 261                 for (i = 0; i < RANKS; ++i)
 262                         if (comphand[i] && comphand[i] != CARDS &&
 263                             !asked[i])
 264                                 return(i);
 265                 for (i = 0; i < RANKS; ++i)
 266                         asked[i] = 0;
 267         }
 268         /* NOTREACHED */
 269 }
 270
 271 static int
 272 drawcard(int player, int *hand)
 273 {
 274         int card;
 275
 276         ++hand[card = deck[--curcard]];
 277         if (player == USER || hand[card] == CARDS) {
 278                 printplayer(player);
 279                 (void)printf("drew %s", cards[card]);
 280                 if (hand[card] == CARDS) {
 281                         (void)printf(" and made a book of %s's!\n",
 282                              cards[card]);
 283                         chkwinner(player, hand);
 284                 } else
 285                         (void)printf(".\n");
 286         }
 287         return(card);
 288 }
 289
 290 static int
 291 gofish(int askedfor, int player, int *hand)
 292 {
 293         printplayer(OTHER(player));
 294         (void)printf("say \"GO FISH!\"\n");
 295         if (askedfor == drawcard(player, hand)) {
 296                 printplayer(player);
 297                 (void)printf("drew the guess!\n");
 298                 printplayer(player);
 299                 (void)printf("get to ask again!\n");
 300                 return(1);
 301         }
 302         return(0);
 303 }
 304
 305 static void
 306 goodmove(int player, int move, int *hand, int *opphand)
 307 {
 308         printplayer(OTHER(player));
 309         (void)printf("have %d %s%s.\n",
 310             opphand[move], cards[move], opphand[move] == 1 ? "": "'s");
 311
 312         hand[move] += opphand[move];
 313         opphand[move] = 0;
 314
 315         if (hand[move] == CARDS) {
 316                 printplayer(player);
 317                 (void)printf("made a book of %s's!\n", cards[move]);
 318                 chkwinner(player, hand);
 319         }
 320
 321         chkwinner(OTHER(player), opphand);
 322
 323         printplayer(player);
 324         (void)printf("get another guess!\n");
 325 }
 326
 327 static void
 328 chkwinner(int player, const int *hand)
 329 {
 330         int cb, i, ub;
 331
 332         for (i = 0; i < RANKS; ++i)
 333                 if (hand[i] > 0 && hand[i] < CARDS)
 334                         return;
 335         printplayer(player);
 336         (void)printf("don't have any more cards!\n");
 337         (void)printf("My books:");
 338         cb = countbooks(comphand);
 339         (void)printf("Your books:");
 340         ub = countbooks(userhand);
 341         (void)printf("\nI have %d, you have %d.\n", cb, ub);
 342         if (ub > cb) {
 343                 (void)printf("\nYou win!!!\n");
 344                 if (nrandom(1024) == 0723)
 345                         (void)printf("Cheater, cheater, pumpkin eater!\n");
 346         } else if (cb > ub) {
 347                 (void)printf("\nI win!!!\n");
 348                 if (nrandom(1024) == 0723)
 349                         (void)printf("Hah!  Stupid peasant!\n");
 350         } else
 351                 (void)printf("\nTie!\n");
 352         exit(0);
 353 }
 354
 355 static void
 356 printplayer(int player)
 357 {
 358         switch (player) {
 359         case COMPUTER:
 360                 (void)printf("I ");
 361                 break;
 362         case USER:
 363                 (void)printf("You ");
 364                 break;
 365         }
 366 }
 367
 368 static void
 369 printhand(const int *hand)
 370 {
 371         int book, i, j;
 372
 373         for (book = i = 0; i < RANKS; i++)
 374                 if (hand[i] < CARDS)
 375                         for (j = hand[i]; --j >= 0;)
 376                                 PRC(i);
 377                 else
 378                         ++book;
 379         if (book) {
 380                 (void)printf(" + Book%s of", book > 1 ? "s" : "");
 381                 for (i = 0; i < RANKS; i++)
 382                         if (hand[i] == CARDS)
 383                                 PRC(i);
 384         }
 385         (void)putchar('\n');
 386 }
 387
 388 static int
 389 countcards(const int *hand)
 390 {
 391         int i, count;
 392
 393         for (count = i = 0; i < RANKS; i++)
 394                 count += *hand++;
 395         return(count);
 396 }
 397
 398 static int
 399 countbooks(const int *hand)
 400 {
 401         int i, count;
 402
 403         for (count = i = 0; i < RANKS; i++)
 404                 if (hand[i] == CARDS) {
 405                         ++count;
 406                         PRC(i);
 407                 }
 408         if (!count)
 409                 (void)printf(" none");
 410         (void)putchar('\n');
 411         return(count);
 412 }
 413
 414 static void
 415 init(void)
 416 {
 417         int i, j, temp;
 418
 419         for (i = 0; i < TOTCARDS; ++i)
 420                 deck[i] = i % RANKS;
 421         for (i = 0; i < TOTCARDS - 1; ++i) {
 422                 j = nrandom(TOTCARDS-i);
 423                 if (j == 0)
 424                         continue;
 425                 temp = deck[i];
 426                 deck[i] = deck[i+j];
 427                 deck[i+j] = temp;
 428         }
 429         for (i = 0; i < HANDSIZE; ++i) {
 430                 ++userhand[deck[--curcard]];
 431                 ++comphand[deck[--curcard]];
 432         }
 433 }
 434
 435 static int
 436 nrandom(int n)
 437 {
 438
 439         return((int)random() % n);
 440 }
 441
 442 static void
 443 instructions(void)
 444 {
 445         int input;
 446         pid_t pid;
 447         int fd;
 448         const char *pager;
 449         int status;
 450
 451         (void)printf("Would you like instructions (y or n)? ");
 452         input = getchar();
 453         while (getchar() != '\n');
 454         if (input != 'y')
 455                 return;
 456
 457         switch (pid = fork()) {
 458         case 0: /* child */
 459                 if (!isatty(1))
 460                         pager = "cat";
 461                 else {
 462                         if (!(pager = getenv("PAGER")) || (*pager == 0))
 463                                 pager = _PATH_MORE;
 464                 }
 465                 if ((fd = open(_PATH_INSTR, O_RDONLY)) == -1)
 466                         err(1, "open %s", _PATH_INSTR);
 467                 if (dup2(fd, 0) == -1)
 468                         err(1, "dup2");
 469                 (void)execl("/bin/sh", "sh", "-c", pager, (char *) NULL);
 470                 err(1, "exec sh -c %s", pager);
 471                 /*NOTREACHED*/
 472         case -1:
 473                 err(1, "fork");
 474                 /*NOTREACHED*/
 475         default:
 476                 (void)waitpid(pid, &status, 0);
 477                 break;
 478         }
 479         (void)printf("Hit return to continue...\n");
 480         while ((input = getchar()) != EOF && input != '\n');
 481 }
 482
 483 static void
 484 usage(void)
 485 {
 486         (void)fprintf(stderr, "usage: fish [-p]\n");
 487         exit(1);
 488 }