Return to teach.c CVS log

Up to [CSRG BSD Unix] / 42BSD / games / backgammon

Annotation of 42BSD/games/backgammon/teach.c, revision 1.1.1.1

1.1       root        1: static char sccsid[] = "       teach.c 4.1     82/05/11        ";
                      2: 
                      3: #include "back.h"
                      4: 
                      5: char   *hello[];
                      6: char   *list[];
                      7: char   *intro1[];
                      8: char   *intro2[];
                      9: char   *moves[];
                     10: char   *remove[];
                     11: char   *hits[];
                     12: char   *endgame[];
                     13: char   *doubl[];
                     14: char   *stragy[];
                     15: char   *prog[];
                     16: char   *lastch[];
                     17: 
                     18: extern char    ospeed;                 /* tty output speed for termlib */
                     19: 
                     20: char *helpm[] = {
                     21:        "\nEnter a space or newline to roll, or",
                     22:        "     b   to display the board",
                     23:        "     d   to double",
                     24:        "     q   to quit\n",
                     25:        0
                     26: };
                     27: 
                     28: char *contin[] = {
                     29:        "",
                     30:        0
                     31: };
                     32: 
                     33: main (argc,argv)
                     34: int    argc;
                     35: char   **argv;
                     36: 
                     37: {
                     38:        register char   *s, *ts[];
                     39:        register int    i;
                     40: 
                     41:        signal (2,getout);
                     42:        if (gtty (0,&tty) == -1)                        /* get old tty mode */
                     43:                errexit ("teachgammon(gtty)");
                     44:        old = tty.sg_flags;
                     45: #ifdef V7
                     46:        raw = ((noech = old & ~ECHO) | CBREAK);         /* set up modes */
                     47: #else
                     48:        raw = ((noech = old & ~ECHO) | RAW);            /* set up modes */
                     49: #endif
                     50:        ospeed = old.sg_ospeed;                         /* for termlib */
                     51:        tflag = getcaps (getenv ("TERM"));
                     52: #ifdef V7
                     53:        while (*++argv != 0)
                     54: #else
                     55:        while (*++argv != -1)
                     56: #endif
                     57:                getarg (&argv);
                     58:        if (tflag)  {
                     59:                noech &= ~(CRMOD|XTABS);
                     60:                raw &= ~(CRMOD|XTABS);
                     61:                clear();
                     62:        }
                     63:        text (hello);
                     64:        text (list);
                     65:        i = text (contin);
                     66:        if (i == 0)
                     67:                i = 2;
                     68:        init();
                     69:        while (i)
                     70:                switch (i)  {
                     71:                
                     72:                case 1:
                     73:                        leave();
                     74:                
                     75:                case 2:
                     76:                        if (i = text(intro1))
                     77:                                break;
                     78:                        wrboard();
                     79:                        if (i = text(intro2))
                     80:                                break;
                     81:                
                     82:                case 3:
                     83:                        if (i = text(moves))
                     84:                                break;
                     85:                
                     86:                case 4:
                     87:                        if (i = text(remove))
                     88:                                break;
                     89:                
                     90:                case 5:
                     91:                        if (i = text(hits))
                     92:                                break;
                     93:                
                     94:                case 6:
                     95:                        if (i = text(endgame))
                     96:                                break;
                     97:                
                     98:                case 7:
                     99:                        if (i = text(doubl))
                    100:                                break;
                    101:                
                    102:                case 8:
                    103:                        if (i = text(stragy))
                    104:                                break;
                    105:                
                    106:                case 9:
                    107:                        if (i = text(prog))
                    108:                                break;
                    109:                
                    110:                case 10:
                    111:                        if (i = text(lastch))
                    112:                                break;
                    113:                }
                    114:        tutor();
                    115: }
                    116: 
                    117: leave()  {
                    118:        if (tflag)
                    119:                clear();
                    120:        else
                    121:                writec ('\n');
                    122:        fixtty(old);
                    123:        execl (EXEC,"backgammon",args,"n",0);
                    124:        writel ("Help! Backgammon program is missing\007!!\n");
                    125:        exit (-1);
                    126: }

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.