backgammon/teachgammon/teach.c

   1 /*      $NetBSD: teach.c,v 1.25 2019/02/03 03:19:25 mrg Exp $   */
   2
   3 /*
   4  * Copyright (c) 1980, 1993
   5  *      The Regents of the University of California.  All rights reserved.
   6  *
   7  * Redistribution and use in source and binary forms, with or without
   8  * modification, are permitted provided that the following conditions
   9  * are met:
  10  * 1. Redistributions of source code must retain the above copyright
  11  *    notice, this list of conditions and the following disclaimer.
  12  * 2. Redistributions in binary form must reproduce the above copyright
  13  *    notice, this list of conditions and the following disclaimer in the
  14  *    documentation and/or other materials provided with the distribution.
  15  * 3. Neither the name of the University nor the names of its contributors
  16  *    may be used to endorse or promote products derived from this software
  17  *    without specific prior written permission.
  18  *
  19  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
  20  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  21  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  22  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
  23  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  24  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  25  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  26  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  27  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  28  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  29  * SUCH DAMAGE.
  30  */
  31
  32 #include <sys/cdefs.h>
  33 #ifndef lint
  34 __COPYRIGHT("@(#) Copyright (c) 1980, 1993\
  35  The Regents of the University of California.  All rights reserved.");
  36 #endif                          /* not lint */
  37
  38 #ifndef lint
  39 #if 0
  40 static char sccsid[] = "@(#)teach.c     8.1 (Berkeley) 5/31/93";
  41 #else
  42 __RCSID("$NetBSD: teach.c,v 1.25 2019/02/03 03:19:25 mrg Exp $");
  43 #endif
  44 #endif                          /* not lint */
  45
  46 #include "back.h"
  47 #include "tutor.h"
  48
  49 static const char *const contin[] = {
  50         "",
  51         0
  52 };
  53
  54 int
  55 main(int argc __unused, char *argv[])
  56 {
  57         int     i;
  58         struct move mmstore, *mm;
  59
  60         /* revoke setgid privileges */
  61         setgid(getgid());
  62
  63         signal(SIGINT, getout);
  64         if (tcgetattr(0, &old) == -1)   /* get old tty mode */
  65                 errexit("teachgammon(gtty)");
  66         noech = old;
  67         noech.c_lflag &= ~ECHO;
  68         raw = noech;
  69         raw.c_lflag &= ~ICANON; /* set up modes */
  70         ospeed = cfgetospeed(&old);     /* for termlib */
  71         tflag = getcaps(getenv("TERM"));
  72
  73         /* need this now beceause getarg() may try to load a game */
  74         mm = &mmstore;
  75         move_init(mm);
  76         while (*++argv != 0)
  77                 getarg(mm, &argv);
  78         if (tflag) {
  79                 noech.c_oflag &= ~(ONLCR | OXTABS);
  80                 raw.c_oflag &= ~(ONLCR | OXTABS);
  81                 clear();
  82         }
  83         wrtext(hello);
  84         wrtext(list);
  85         i = wrtext(contin);
  86         if (i == 0)
  87                 i = 2;
  88         init();
  89         while (i)
  90                 switch (i) {
  91                 case 1:
  92                         leave();
  93
  94                 case 2:
  95                         if ((i = wrtext(intro1)) != 0)
  96                                 break;
  97                         wrboard();
  98                         if ((i = wrtext(intro2)) != 0)
  99                                 break;
 100
 101                         /* FALLTHROUGH */
 102                 case 3:
 103                         if ((i = wrtext(moves)) != 0)
 104                                 break;
 105
 106                         /* FALLTHROUGH */
 107                 case 4:
 108                         if ((i = wrtext(removepiece)) != 0)
 109                                 break;
 110
 111                         /* FALLTHROUGH */
 112                 case 5:
 113                         if ((i = wrtext(hits)) != 0)
 114                                 break;
 115
 116                         /* FALLTHROUGH */
 117                 case 6:
 118                         if ((i = wrtext(endgame)) != 0)
 119                                 break;
 120
 121                         /* FALLTHROUGH */
 122                 case 7:
 123                         if ((i = wrtext(doubl)) != 0)
 124                                 break;
 125
 126                         /* FALLTHROUGH */
 127                 case 8:
 128                         if ((i = wrtext(stragy)) != 0)
 129                                 break;
 130
 131                         /* FALLTHROUGH */
 132                 case 9:
 133                         if ((i = wrtext(prog)) != 0)
 134                                 break;
 135
 136                         /* FALLTHROUGH */
 137                 case 10:
 138                         if ((i = wrtext(lastch)) != 0)
 139                                 break;
 140                 }
 141         tutor(mm);
 142         /* NOTREACHED */
 143         return (0);
 144 }
 145
 146 void
 147 leave(void)
 148 {
 149         if (tflag)
 150                 clear();
 151         else
 152                 writec('\n');
 153         fixtty(&old);
 154         execl(EXEC, "backgammon", "-n", args[0]?args:0, (char *) 0);
 155         writel("Help! Backgammon program is missing\007!!\n");
 156         exit(1);
 157 }