install approved copyright notice

[unix-history] / usr / src / games / backgammon / teachgammon / teach.c

/*
* Copyright (c) 1980 Regents of the University of California.
* All rights reserved.
*
* Redistribution and use in source and binary forms are permitted
* provided that the above copyright notice and this paragraph are
* duplicated in all such forms and that any documentation,
* advertising materials, and other materials related to such
* distribution and use acknowledge that the software was developed
* by the University of California, Berkeley.  The name of the
* University may not be used to endorse or promote products derived
* from this software without specific prior written permission.
* THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR
* IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
* WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
*/

#ifndef lint
char copyright[] =
"@(#) Copyright (c) 1980 Regents of the University of California.\n\
All rights reserved.\n";
#endif /* not lint */

#ifndef lint
static char sccsid[] = "@(#)teach.c     5.5 (Berkeley) %G%";
#endif /* not lint */

#include "back.h"

char    *hello[];
char    *list[];
char    *intro1[];
char    *intro2[];
char    *moves[];
char    *remove[];
char    *hits[];
char    *endgame[];
char    *doubl[];
char    *stragy[];
char    *prog[];
char    *lastch[];

extern char     ospeed;                 /* tty output speed for termlib */

char *helpm[] = {
       "\nEnter a space or newline to roll, or",
       "     b   to display the board",
       "     d   to double",
       "     q   to quit\n",
       0
};

char *contin[] = {
       "",
       0
};

main (argc,argv)
int     argc;
char    **argv;

{
       register int    i;

       signal (2,getout);
       if (gtty (0,&tty) == -1)                        /* get old tty mode */
               errexit ("teachgammon(gtty)");
       old = tty.sg_flags;
#ifdef V7
       raw = ((noech = old & ~ECHO) | CBREAK);         /* set up modes */
#else
       raw = ((noech = old & ~ECHO) | RAW);            /* set up modes */
#endif
       ospeed = tty.sg_ospeed;                         /* for termlib */
       tflag = getcaps (getenv ("TERM"));
#ifdef V7
       while (*++argv != 0)
#else
       while (*++argv != -1)
#endif
               getarg (&argv);
       if (tflag)  {
               noech &= ~(CRMOD|XTABS);
               raw &= ~(CRMOD|XTABS);
               clear();
       }
       text (hello);
       text (list);
       i = text (contin);
       if (i == 0)
               i = 2;
       init();
       while (i)
               switch (i)  {
               
               case 1:
                       leave();
               
               case 2:
                       if (i = text(intro1))
                               break;
                       wrboard();
                       if (i = text(intro2))
                               break;
               
               case 3:
                       if (i = text(moves))
                               break;
               
               case 4:
                       if (i = text(remove))
                               break;
               
               case 5:
                       if (i = text(hits))
                               break;
               
               case 6:
                       if (i = text(endgame))
                               break;
               
               case 7:
                       if (i = text(doubl))
                               break;
               
               case 8:
                       if (i = text(stragy))
                               break;
               
               case 9:
                       if (i = text(prog))
                               break;
               
               case 10:
                       if (i = text(lastch))
                               break;
               }
       tutor();
}

leave()  {
       if (tflag)
               clear();
       else
               writec ('\n');
       fixtty(old);
       execl (EXEC,"backgammon",args,"n",0);
       writel ("Help! Backgammon program is missing\007!!\n");
       exit (-1);
}