Return to hangman.c CVS log

Up to [Research Unix] / researchv10no / games

Annotation of researchv10no/games/hangman.c, revision 1.1.1.1

1.1       root        1: #include <stdio.h>
                      2: #include <sys/types.h>
                      3: #include <sys/stat.h>
                      4: #define DICT "/usr/dict/words"
                      5: #define EDICT "/usr1/dict/web2"
                      6: #define MAXERR 7
                      7: #define MINSCORE 0
                      8: #define MINLEN 7
                      9: char *dictfile;
                     10: int alive,lost;
                     11: double frand();
                     12: FILE *dict;
                     13: long int dictlen;
                     14: float errors=0, words=0;
                     15: main(argc,argv) char **argv;
                     16: {
                     17:        if(argc==1) dictfile=DICT;
                     18:        else if(*argv[1]=='-') dictfile=EDICT;
                     19:        else dictfile=argv[1];
                     20:        setup();
                     21:        for(;;)
                     22:        {       startnew();
                     23:                while(alive>0)
                     24:                {       stateout();
                     25:                        getguess();
                     26:                }
                     27:                words=words+1;
                     28:                if(lost) wordout();
                     29:                else youwon();
                     30:        }
                     31: }
                     32: setup()
                     33: {
                     34:        struct stat statb;
                     35:        long t;
                     36:        t = time(NULL);
                     37:        srand(t+(t>>16));
                     38:        if((dict=fopen(dictfile,"r"))==NULL) fatal("no dictionary");
                     39:        if(stat(dictfile,&statb)<0) fatal("can't stat");
                     40:        dictlen=statb.st_size;
                     41: }
                     42: char word[26],alph[26],realword[26];
                     43: startnew()
                     44: {      int i;
                     45:        long int pos;
                     46:        char buf[128];
                     47:        for(i=0;i<26;i++) word[i]=alph[i]=realword[i]=0;
                     48:        pos=frand()*dictlen;
                     49:        fseek(dict,pos,0);
                     50:        fscanf(dict,"%s\n",buf);
                     51:        getword();
                     52:        alive=MAXERR;
                     53:        lost=0;
                     54: }
                     55: stateout()
                     56: {      int i;
                     57:        printf("guesses: ");
                     58:        for(i=0;i<26;i++)
                     59:                if(alph[i]!=0) putchar(alph[i]);
                     60:        printf(" word: %s ",word);
                     61:        printf("errors: %d/%d\n",MAXERR-alive,MAXERR);
                     62: }
                     63: getguess()
                     64: {      char gbuf[128],c;
                     65:        int ok=0,i;
                     66: loop:
                     67:        printf("guess: ");
                     68:        if(gets(gbuf)==NULL)
                     69:        {       printf("The word was %s\n", realword);
                     70:                exit(0);
                     71:        }
                     72:        if((c=gbuf[0])<'a' || c>'z')
                     73:        {       printf("lower case\n");
                     74:                goto loop;
                     75:        }
                     76:        if(alph[c-'a']!=0)
                     77:        {       printf("you guessed that\n");
                     78:                goto loop;
                     79:        }
                     80:        else alph[c-'a']=c;
                     81:        for(i=0;realword[i]!=0;i++)
                     82:                if(realword[i]==c)
                     83:                {       word[i]=c;
                     84:                        ok=1;
                     85:                }
                     86:        if(ok==0)
                     87:        {       alive--;
                     88:                errors=errors+1;
                     89:                if(alive<=0) lost=1;
                     90:                return;
                     91:        }
                     92:        for(i=0;word[i]!=0;i++)
                     93:                if(word[i]=='.') return;
                     94:        alive=0;
                     95:        lost=0;
                     96:        return;
                     97: }
                     98: wordout()
                     99: {
                    100:        errors=errors+2;
                    101:        printf("the answer was %s, you blew it\n",realword);
                    102: }
                    103: youwon()
                    104: {
                    105:        printf("you win, the word is %s\n",realword);
                    106: }
                    107: fatal(s) char *s;
                    108: {
                    109:        fprintf(stderr,"%s\n",s);
                    110:        exit(1);
                    111: }
                    112: getword()
                    113: {      char wbuf[128],c;
                    114:        int i,j;
                    115: loop:
                    116:        if(fscanf(dict,"%s\n",wbuf)==EOF)
                    117:        {       fseek(dict,0L,0);
                    118:                goto loop;
                    119:        }
                    120:        if((c=wbuf[0])>'z' || c<'a') goto loop;
                    121:        for(i=j=0;wbuf[j]!=0;i++,j++)
                    122:        {       if(wbuf[j]=='-') j++;
                    123:                wbuf[i]=wbuf[j];
                    124:        }
                    125:        wbuf[i]=0;
                    126:        if(i<MINLEN) goto loop;
                    127:        for(j=0;j<i;j++)
                    128:                if((c=wbuf[j])<'a' || c>'z') goto loop;
                    129:        pscore();
                    130:        strcpy(realword,wbuf);
                    131:        for(j=0;j<i;word[j++]='.');
                    132: }
                    133: pscore()
                    134: {
                    135:        if(words!=0) printf("(%4.2f/%.0f) ",errors/words,words);
                    136: }

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