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