Annotation of 43BSDTahoe/games/quiz/quiz.c, revision 1.1.1.1

1.1       root        1: 
                      2: static char sccsid[] = "       quiz.c  4.4     88/01/02        ";
                      3: 
                      4: #include <stdio.h>
                      5: #include <signal.h>
                      6: #define NF 10
                      7: #define NL 300
                      8: #define NC 200
                      9: #define SL 100
                     10: #define NA 10
                     11: 
                     12: int tflag;
                     13: int xx[NL];
                     14: char score[NL];
                     15: int rights;
                     16: int wrongs;
                     17: int guesses;
                     18: FILE *input;
                     19: int nl = 0;
                     20: int na = NA;
                     21: int inc;
                     22: int ptr = 0;
                     23: int nc = 0;
                     24: char line[150];
                     25: char response[100];
                     26: char *tmp[NF];
                     27: int select[NF];
                     28: 
                     29: readline()
                     30: {
                     31:        register int ch;
                     32:        char *t;
                     33: loop:
                     34:        for(t=line;(ch=getc(input))!=-1;t++) {
                     35:                *t = ch;
                     36:                nc++;
                     37:                if(*t==' '&&(t==line||t[-1]==' '))
                     38:                        t--;
                     39:                if(*t=='\n') {
                     40:                        if(t[-1]=='\\')         /*inexact test*/
                     41:                                continue;
                     42:                        while(t>line&&t[-1]==' ')
                     43:                                *--t = '\n';
                     44:                        *++t = 0;
                     45:                        return(1);
                     46:                }
                     47:                if(t-line>=NC) {
                     48:                        printf("Too hard for me\n");
                     49:                        do {
                     50:                                if ((ch = getc(input)) == EOF)
                     51:                                        return(0);
                     52:                        } while(ch!='\n');
                     53:                        *line = '\n';
                     54:                        goto loop;
                     55:                }
                     56:        }
                     57:        return(0);
                     58: }
                     59: 
                     60: char *eu;
                     61: char *ev;
                     62: cmp(u,v)
                     63: char *u,*v;
                     64: {
                     65:        int x;
                     66:        eu = u;
                     67:        ev = v;
                     68:        x = disj(1);
                     69:        if(x!=1)
                     70:                return(x);
                     71:        return(eat(1,0));
                     72: }
                     73: 
                     74: disj(s)
                     75: {
                     76:        int t, x;
                     77:        char *u;
                     78:        u = eu;
                     79:        t = 0;
                     80:        for(;;) {
                     81:                x = string(s);
                     82:                if(x>1)
                     83:                        return(x);
                     84:                switch(*ev) {
                     85:                case 0:
                     86:                case ']':
                     87:                case '}':
                     88:                        return(t|x&s);
                     89:                case '|':
                     90:                        ev++;
                     91:                        t |= s;
                     92:                        s = 0;
                     93:                        continue;
                     94:                }
                     95:                if(s) eu = u;
                     96:                if(string(0)>1)
                     97:                        return(2);
                     98:                switch(*ev) {
                     99:                case 0:
                    100:                case ']':
                    101:                        return(0);
                    102:                case '}':
                    103:                        return(1);
                    104:                case '|':
                    105:                        ev++;
                    106:                        continue;
                    107:                default:
                    108:                        return(2);
                    109:                }
                    110:        }
                    111: }
                    112: 
                    113: string(s)
                    114: {
                    115:        int x;
                    116:        for(;;) {
                    117:                switch(*ev) {
                    118:                case 0:
                    119:                case '|':
                    120:                case ']':
                    121:                case '}':
                    122:                        return(1);
                    123:                case '\\':
                    124:                        ev++;
                    125:                        if(*ev==0)
                    126:                                return(2);
                    127:                        if(*ev=='\n') {
                    128:                                ev++;
                    129:                                continue;
                    130:                        }
                    131:                default:
                    132:                        if(eat(s,*ev)==1)
                    133:                                continue;
                    134:                        return(0);
                    135:                case '[':
                    136:                        ev++;
                    137:                        x = disj(s);
                    138:                        if(*ev!=']' || x>1)
                    139:                                return(2);
                    140:                        ev++;
                    141:                        if(s==0)
                    142:                                continue;
                    143:                        if(x==0)
                    144:                                return(0);
                    145:                        continue;
                    146:                case '{':
                    147:                        ev++;
                    148:                        x = disj(s);
                    149:                        if(*ev!='}'||x>1)
                    150:                                return(2);
                    151:                        ev++;
                    152:                        continue;
                    153:                }
                    154:        }
                    155: }
                    156: 
                    157: eat(s,c)
                    158: char c;
                    159: {
                    160:        if(*ev!=c)
                    161:                return(2);
                    162:        if(s==0) {
                    163:                ev++;
                    164:                return(1);
                    165:        }
                    166:        if(fold(*eu)!=fold(c))
                    167:                return(0);
                    168:        eu++;
                    169:        ev++;
                    170:        return(1);
                    171: }
                    172: 
                    173: fold(c)
                    174: char c;
                    175: {
                    176:        if(c<'A'||c>'Z')
                    177:                return(c);
                    178:        return(c|040);
                    179: }
                    180: 
                    181: publish(t)
                    182: char *t;
                    183: {
                    184:        ev = t;
                    185:        pub1(1);
                    186: }
                    187: 
                    188: pub1(s)
                    189: {
                    190:        for(;;ev++){
                    191:                switch(*ev) {
                    192:                case '|':
                    193:                        s = 0;
                    194:                        ev;
                    195:                        continue;
                    196:                case ']':
                    197:                case '}':
                    198:                case 0:
                    199:                        return;
                    200:                case '[':
                    201:                case '{':
                    202:                        ev++;
                    203:                        pub1(s);
                    204:                        ev;
                    205:                        continue;
                    206:                case '\\':
                    207:                        if(*++ev=='\n')
                    208:                                continue;
                    209:                default:
                    210:                        if(s)
                    211:                                putchar(*ev);
                    212:                }
                    213:        }
                    214: }
                    215: 
                    216: segment(u,w)
                    217: char *u, *w[];
                    218: {
                    219:        char *s;
                    220:        int i;
                    221:        char *t;
                    222:        s = u;
                    223:        for(i=0;i<NF;i++) {
                    224:                u = s;
                    225:                t = w[i];
                    226:                while(*s!=':'&&*s!='\n'&&s-u<SL) {
                    227:                        if(*s=='\\')  {
                    228:                                if(s[1] == '\n') {
                    229:                                        s += 2;
                    230:                                        continue;
                    231:                                }
                    232:                                *t++ = *s++;
                    233:                        }
                    234:                        *t++ = *s++;
                    235:                }
                    236: 
                    237:                while(*s!=':'&&*s!='\n')
                    238:                        s++;
                    239:                *t = 0;
                    240:                if(*s++=='\n') {
                    241:                        return(i+1);
                    242:                }
                    243:        }
                    244:        printf("Too many facts about one thing\n");
                    245: }
                    246: 
                    247: perm(u,m,v,n,p)
                    248: int p[];
                    249: char *u[], *v[];
                    250: {
                    251:        int i, j;
                    252:        int x;
                    253:        for(i=0;i<m;i++) {
                    254:                for(j=0;j<n;j++) {
                    255:                        x = cmp(u[i],v[j]);
                    256:                        if(x>1) badinfo();
                    257:                        if(x==0)
                    258:                                continue;
                    259:                        p[i] = j;
                    260:                        goto uloop;
                    261:                }
                    262:                return(0);
                    263: uloop:         ;
                    264:        }
                    265:        return(1);
                    266: }
                    267: 
                    268: find(u,m)
                    269: char *u[];
                    270: {
                    271:        int n;
                    272:        while(readline()){
                    273:                n = segment(line,tmp);
                    274:                if(perm(u,m,tmp+1,n-1,select))
                    275:                        return(1);
                    276:        }
                    277:        return(0);
                    278: }
                    279: 
                    280: readindex()
                    281: {
                    282:        xx[0] = nc = 0;
                    283:        while(readline()) {
                    284:                xx[++nl] = nc;
                    285:                if(nl>=NL) {
                    286:                        printf("I've forgotten some of it;\n");
                    287:                        printf("I remember %d items.\n", nl);
                    288:                        break;
                    289:                }
                    290:        }
                    291: }
                    292: 
                    293: talloc()
                    294: {
                    295:        int i;
                    296:        char *malloc();
                    297: 
                    298:        for(i=0;i<NF;i++)
                    299:                tmp[i] = malloc(SL);
                    300: }
                    301: 
                    302: main(argc,argv)
                    303: char *argv[];
                    304: {
                    305:        register j;
                    306:        int i;
                    307:        int x;
                    308:        int z;
                    309:        char *info;
                    310:        int tvec[2];
                    311:        char *t;
                    312:        extern done();
                    313:        int count;
                    314:        info = "/usr/games/lib/quiz.k/index";
                    315:        time(tvec);
                    316:        inc = tvec[1]&077774|01;
                    317: loop:
                    318:        if(argc>1&&*argv[1]=='-') {
                    319:                switch(argv[1][1]) {
                    320:                case 'i':
                    321:                        if(argc>2) 
                    322:                                info = argv[2];
                    323:                        argc -= 2;
                    324:                        argv += 2;
                    325:                        goto loop;
                    326:                case 't':
                    327:                        tflag = 1;
                    328:                        argc--;
                    329:                        argv++;
                    330:                        goto loop;
                    331:                }
                    332:        }
                    333:        input = fopen(info,"r");
                    334:        if(input==NULL) {
                    335:                printf("No info\n");
                    336:                exit(0);
                    337:        }
                    338:        talloc();
                    339:        if(argc<=2)
                    340:                instruct(info);
                    341:        signal(SIGINT,done);
                    342:        argv[argc] = 0;
                    343:        if(find(&argv[1],argc-1)==0)
                    344:                dunno();
                    345:        fclose(input);
                    346:        input = fopen(tmp[0],"r");
                    347:        if(input==NULL)
                    348:                dunno();
                    349:        readindex();
                    350:        if(!tflag || na>nl)
                    351:                na = nl;
                    352:        stdout->_flag |= _IONBF;
                    353:        for(;;) {
                    354:                i = next();
                    355:                fseek(input,xx[i]+0L,0);
                    356:                z = xx[i+1]-xx[i];
                    357:                for(j=0;j<z;j++)
                    358:                        line[j] = getc(input);
                    359:                segment(line,tmp);
                    360:                if(*tmp[select[0]] == '\0' || *tmp[select[1]] == '\0') {
                    361:                        score[i] = 1;
                    362:                        continue;
                    363:                }
                    364:                publish(tmp[select[0]]);
                    365:                printf("\n");
                    366:                for(count=0;;count++) {
                    367:                        if(query(response)==0) {
                    368:                                publish(tmp[select[1]]);
                    369:                                printf("\n");
                    370:                                if(count==0) wrongs++;
                    371:                                score[i] = tflag?-1:1;
                    372:                                break;
                    373:                        }
                    374:                        x = cmp(response,tmp[select[1]]);
                    375:                        if(x>1) badinfo();
                    376:                        if(x==1) {
                    377:                                printf("Right!\n");
                    378:                                if(count==0) rights++;
                    379:                                if(++score[i]>=1 && na<nl)
                    380:                                        na++;
                    381:                                break;
                    382:                        }
                    383:                        printf("What?\n");
                    384:                        if(count==0) wrongs++;
                    385:                        score[i] = tflag?-1:1;
                    386:                }
                    387:                guesses += count;
                    388:        }
                    389: }
                    390: 
                    391: query(r)
                    392: char *r;
                    393: {
                    394:        char *t;
                    395:        for(t=r;;t++) {
                    396:                if(read(0,t,1)==0)
                    397:                        done();
                    398:                if(*t==' '&&(t==r||t[-1]==' '))
                    399:                        t--;
                    400:                if(*t=='\n') {
                    401:                        while(t>r&&t[-1]==' ')
                    402:                                *--t = '\n';
                    403:                        break;
                    404:                }
                    405:        }
                    406:        *t = 0;
                    407:        return(t-r);
                    408: }
                    409: 
                    410: next()
                    411: {
                    412:        int flag;
                    413:        inc = inc*3125&077777;
                    414:        ptr = (inc>>2)%na;
                    415:        flag = 0;
                    416:        while(score[ptr]>0)
                    417:                if(++ptr>=na) {
                    418:                        ptr = 0;
                    419:                        if(flag) done();
                    420:                        flag = 1;
                    421:                }
                    422:        return(ptr);
                    423: }
                    424: 
                    425: done()
                    426: {
                    427:        if (rights + wrongs) {
                    428:                printf("\nRights %d, wrongs %d, ", rights, wrongs);
                    429:                if (guesses)
                    430:                        printf("extra guesses %d, ", guesses);
                    431:                printf("score %d%%\n",100 * rights / (rights + wrongs));
                    432:        }
                    433:        exit(0);
                    434: }
                    435: instruct(info)
                    436: {
                    437:        char *t;
                    438:        int i, n;
                    439:        printf("Subjects:\n\n");
                    440:        while(readline()) {
                    441:                printf("-");
                    442:                n = segment(line,tmp);
                    443:                for(i=1;i<n;i++) {
                    444:                        printf(" ");
                    445:                        publish(tmp[i]);
                    446:                }
                    447:                printf("\n");
                    448:        }
                    449:        printf("\n");
                    450:        input = fopen(info,"r");
                    451:        if(input==NULL)
                    452:                abort();
                    453:        readline();
                    454:        segment(line,tmp);
                    455:        printf("For example,\n");
                    456:        printf("    quiz ");
                    457:        publish(tmp[1]);
                    458:        printf(" ");
                    459:        publish(tmp[2]);
                    460:        printf("\nasks you a ");
                    461:        publish(tmp[1]);
                    462:        printf(" and you answer the ");
                    463:        publish(tmp[2]);
                    464:        printf("\n    quiz ");
                    465:        publish(tmp[2]);
                    466:        printf(" ");
                    467:        publish(tmp[1]);
                    468:        printf("\nworks the other way around\n");
                    469:        printf("\nType empty line to get correct answer.\n");
                    470:        exit(0);
                    471: }
                    472: 
                    473: badinfo(){
                    474:        printf("Bad info %s\n",line);
                    475: }
                    476: 
                    477: dunno()
                    478: {
                    479:        printf("I don't know about that\n");
                    480:        exit(0);
                    481: }

unix.superglobalmegacorp.com

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