[unix-history] / usr / src / games / quiz / quiz.c


static char sccsid[] = "	quiz.c	4.5	90/05/12	";

#include <stdio.h>
#include <signal.h>
#include "pathnames.h"

#define NF 10
#define NL 300
#define NC 200
#define SL 100
#define NA 10

int tflag;
int xx[NL];
char score[NL];
int rights;
int wrongs;
int guesses;
FILE *input;
int nl = 0;
int na = NA;
int inc;
int ptr = 0;
int nc = 0;
char line[150];
char response[100];
char *tmp[NF];
int select[NF];

readline()
{
	register int ch;
	char *t;
loop:
	for(t=line;(ch=getc(input))!=-1;t++) {
		*t = ch;
		nc++;
		if(*t==' '&&(t==line||t[-1]==' '))
			t--;
		if(*t=='\n') {
			if(t[-1]=='\\')		/*inexact test*/
				continue;
			while(t>line&&t[-1]==' ')
				*--t = '\n';
			*++t = 0;
			return(1);
		}
		if(t-line>=NC) {
			printf("Too hard for me\n");
			do {
				if ((ch = getc(input)) == EOF)
					return(0);
			} while(ch!='\n');
			*line = '\n';
			goto loop;
		}
	}
	return(0);
}

char *eu;
char *ev;
cmp(u,v)
char *u,*v;
{
	int x;
	eu = u;
	ev = v;
	x = disj(1);
	if(x!=1)
		return(x);
	return(eat(1,0));
}

disj(s)
{
	int t, x;
	char *u;
	u = eu;
	t = 0;
	for(;;) {
		x = string(s);
		if(x>1)
			return(x);
		switch(*ev) {
		case 0:
		case ']':
		case '}':
			return(t|x&s);
		case '|':
			ev++;
			t |= s;
			s = 0;
			continue;
		}
		if(s) eu = u;
		if(string(0)>1)
			return(2);
		switch(*ev) {
		case 0:
		case ']':
			return(0);
		case '}':
			return(1);
		case '|':
			ev++;
			continue;
		default:
			return(2);
		}
	}
}

string(s)
{
	int x;
	for(;;) {
		switch(*ev) {
		case 0:
		case '|':
		case ']':
		case '}':
			return(1);
		case '\\':
			ev++;
			if(*ev==0)
				return(2);
			if(*ev=='\n') {
				ev++;
				continue;
			}
		default:
			if(eat(s,*ev)==1)
				continue;
			return(0);
		case '[':
			ev++;
			x = disj(s);
			if(*ev!=']' || x>1)
				return(2);
			ev++;
			if(s==0)
				continue;
			if(x==0)
				return(0);
			continue;
		case '{':
			ev++;
			x = disj(s);
			if(*ev!='}'||x>1)
				return(2);
			ev++;
			continue;
		}
	}
}

eat(s,c)
char c;
{
	if(*ev!=c)
		return(2);
	if(s==0) {
		ev++;
		return(1);
	}
	if(fold(*eu)!=fold(c))
		return(0);
	eu++;
	ev++;
	return(1);
}

fold(c)
char c;
{
	if(c<'A'||c>'Z')
		return(c);
	return(c|040);
}

publish(t)
char *t;
{
	ev = t;
	pub1(1);
}

pub1(s)
{
	for(;;ev++){
		switch(*ev) {
		case '|':
			s = 0;
			ev;
			continue;
		case ']':
		case '}':
		case 0:
			return;
		case '[':
		case '{':
			ev++;
			pub1(s);
			ev;
			continue;
		case '\\':
			if(*++ev=='\n')
				continue;
		default:
			if(s)
				putchar(*ev);
		}
	}
}

segment(u,w)
char *u, *w[];
{
	char *s;
	int i;
	char *t;
	s = u;
	for(i=0;i<NF;i++) {
		u = s;
		t = w[i];
		while(*s!=':'&&*s!='\n'&&s-u<SL) {
			if(*s=='\\')  {
				if(s[1] == '\n') {
					s += 2;
					continue;
				}
				*t++ = *s++;
			}
			*t++ = *s++;
		}

		while(*s!=':'&&*s!='\n')
			s++;
		*t = 0;
		if(*s++=='\n') {
			return(i+1);
		}
	}
	printf("Too many facts about one thing\n");
}

perm(u,m,v,n,p)
int p[];
char *u[], *v[];
{
	int i, j;
	int x;
	for(i=0;i<m;i++) {
		for(j=0;j<n;j++) {
			x = cmp(u[i],v[j]);
			if(x>1) badinfo();
			if(x==0)
				continue;
			p[i] = j;
			goto uloop;
		}
		return(0);
uloop:		;
	}
	return(1);
}

find(u,m)
char *u[];
{
	int n;
	while(readline()){
		n = segment(line,tmp);
		if(perm(u,m,tmp+1,n-1,select))
			return(1);
	}
	return(0);
}

readindex()
{
	xx[0] = nc = 0;
	while(readline()) {
		xx[++nl] = nc;
		if(nl>=NL) {
			printf("I've forgotten some of it;\n");
			printf("I remember %d items.\n", nl);
			break;
		}
	}
}

talloc()
{
	int i;
	char *malloc();

	for(i=0;i<NF;i++)
		tmp[i] = malloc(SL);
}

main(argc,argv)
char *argv[];
{
	register j;
	int i;
	int x;
	int z;
	char *info;
	int tvec[2];
	char *t;
	extern done();
	int count;
	info = _PATH_INDEX;
	time(tvec);
	inc = tvec[1]&077774|01;
loop:
	if(argc>1&&*argv[1]=='-') {
		switch(argv[1][1]) {
		case 'i':
			if(argc>2) 
				info = argv[2];
			argc -= 2;
			argv += 2;
			goto loop;
		case 't':
			tflag = 1;
			argc--;
			argv++;
			goto loop;
		}
	}
	input = fopen(info,"r");
	if(input==NULL) {
		printf("No info\n");
		exit(0);
	}
	talloc();
	if(argc<=2)
		instruct(info);
	signal(SIGINT,done);
	argv[argc] = 0;
	if(find(&argv[1],argc-1)==0)
		dunno();
	fclose(input);
	input = fopen(tmp[0],"r");
	if(input==NULL)
		dunno();
	readindex();
	if(!tflag || na>nl)
		na = nl;
	stdout->_flag |= _IONBF;
	for(;;) {
		i = next();
		fseek(input,xx[i]+0L,0);
		z = xx[i+1]-xx[i];
		for(j=0;j<z;j++)
			line[j] = getc(input);
		segment(line,tmp);
		if(*tmp[select[0]] == '\0' || *tmp[select[1]] == '\0') {
			score[i] = 1;
			continue;
		}
		publish(tmp[select[0]]);
		printf("\n");
		for(count=0;;count++) {
			if(query(response)==0) {
				publish(tmp[select[1]]);
				printf("\n");
				if(count==0) wrongs++;
				score[i] = tflag?-1:1;
				break;
			}
			x = cmp(response,tmp[select[1]]);
			if(x>1) badinfo();
			if(x==1) {
				printf("Right!\n");
				if(count==0) rights++;
				if(++score[i]>=1 && na<nl)
					na++;
				break;
			}
			printf("What?\n");
			if(count==0) wrongs++;
			score[i] = tflag?-1:1;
		}
		guesses += count;
	}
}

query(r)
char *r;
{
	char *t;
	for(t=r;;t++) {
		if(read(0,t,1)==0)
			done();
		if(*t==' '&&(t==r||t[-1]==' '))
			t--;
		if(*t=='\n') {
			while(t>r&&t[-1]==' ')
				*--t = '\n';
			break;
		}
	}
	*t = 0;
	return(t-r);
}

next()
{
	int flag;
	inc = inc*3125&077777;
	ptr = (inc>>2)%na;
	flag = 0;
	while(score[ptr]>0)
		if(++ptr>=na) {
			ptr = 0;
			if(flag) done();
			flag = 1;
		}
	return(ptr);
}

done()
{
	if (rights + wrongs) {
		printf("\nRights %d, wrongs %d, ", rights, wrongs);
		if (guesses)
			printf("extra guesses %d, ", guesses);
		printf("score %d%%\n",100 * rights / (rights + wrongs));
	}
	exit(0);
}
instruct(info)
{
	char *t;
	int i, n;
	printf("Subjects:\n\n");
	while(readline()) {
		printf("-");
		n = segment(line,tmp);
		for(i=1;i<n;i++) {
			printf(" ");
			publish(tmp[i]);
		}
		printf("\n");
	}
	printf("\n");
	input = fopen(info,"r");
	if(input==NULL)
		abort();
	readline();
	segment(line,tmp);
	printf("For example,\n");
	printf("    quiz ");
	publish(tmp[1]);
	printf(" ");
	publish(tmp[2]);
	printf("\nasks you a ");
	publish(tmp[1]);
	printf(" and you answer the ");
	publish(tmp[2]);
	printf("\n    quiz ");
	publish(tmp[2]);
	printf(" ");
	publish(tmp[1]);
	printf("\nworks the other way around\n");
	printf("\nType empty line to get correct answer.\n");
	exit(0);
}

badinfo(){
	printf("Bad info %s\n",line);
}

dunno()
{
	printf("I don't know about that\n");
	exit(0);
}
Commit	Line	Data
be9db06c	1
96deaadb	2	static char sccsid[] = " quiz.c 4.5 90/05/12 ";
be9db06c KM	3
	4	#include <stdio.h>
	5	#include <signal.h>
96deaadb KB	6	#include "pathnames.h"
96deaadb KB	7
be9db06c KM	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	{
638cfd36	33	register int ch;
be9db06c KM	34	char *t;
be9db06c KM	35	loop:
638cfd36 KB	36	for(t=line;(ch=getc(input))!=-1;t++) {
638cfd36 KB	37	*t = ch;
be9db06c KM	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 {
638cfd36	52	if ((ch = getc(input)) == EOF)
be9db06c	53	return(0);
638cfd36 KB	54	} while(ch!='\n');
638cfd36 KB	55	*line = '\n';
be9db06c KM	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;
f6c8c497 RC	298	char *malloc();
f6c8c497 RC	299
be9db06c KM	300	for(i=0;i<NF;i++)
	301	tmp[i] = malloc(SL);
	302	}
	303
	304	main(argc,argv)
	305	char *argv[];
	306	{
	307	register j;
	308	int i;
	309	int x;
	310	int z;
	311	char *info;
	312	int tvec[2];
	313	char *t;
	314	extern done();
	315	int count;
96deaadb	316	info = _PATH_INDEX;
be9db06c KM	317	time(tvec);
	318	inc = tvec[1]&077774\|01;
	319	loop:
	320	if(argc>1&&*argv[1]=='-') {
	321	switch(argv[1][1]) {
	322	case 'i':
	323	if(argc>2)
	324	info = argv[2];
	325	argc -= 2;
	326	argv += 2;
	327	goto loop;
	328	case 't':
	329	tflag = 1;
	330	argc--;
	331	argv++;
	332	goto loop;
	333	}
	334	}
	335	input = fopen(info,"r");
	336	if(input==NULL) {
	337	printf("No info\n");
	338	exit(0);
	339	}
	340	talloc();
	341	if(argc<=2)
	342	instruct(info);
	343	signal(SIGINT,done);
	344	argv[argc] = 0;
	345	if(find(&argv[1],argc-1)==0)
	346	dunno();
	347	fclose(input);
	348	input = fopen(tmp[0],"r");
	349	if(input==NULL)
	350	dunno();
	351	readindex();
	352	if(!tflag \|\| na>nl)
	353	na = nl;
	354	stdout->_flag \|= _IONBF;
	355	for(;;) {
	356	i = next();
	357	fseek(input,xx[i]+0L,0);
	358	z = xx[i+1]-xx[i];
	359	for(j=0;j<z;j++)
	360	line[j] = getc(input);
	361	segment(line,tmp);
	362	if(tmp[select[0]] == '\0' \|\| tmp[select[1]] == '\0') {
	363	score[i] = 1;
	364	continue;
	365	}
	366	publish(tmp[select[0]]);
	367	printf("\n");
	368	for(count=0;;count++) {
	369	if(query(response)==0) {
	370	publish(tmp[select[1]]);
	371	printf("\n");
	372	if(count==0) wrongs++;
	373	score[i] = tflag?-1:1;
	374	break;
	375	}
	376	x = cmp(response,tmp[select[1]]);
	377	if(x>1) badinfo();
	378	if(x==1) {
	379	printf("Right!\n");
	380	if(count==0) rights++;
381	if(++score[i]>=1 && na<nl)
382	na++;
383	break;
384	}
385	printf("What?\n");
386	if(count==0) wrongs++;
387	score[i] = tflag?-1:1;
388	}
389	guesses += count;
390	}
391	}
392
393	query(r)
394	char *r;
395	{
396	char *t;
397	for(t=r;;t++) {
398	if(read(0,t,1)==0)
399	done();
400	if(*t==' '&&(t==r\|\|t[-1]==' '))
401	t--;
402	if(*t=='\n') {
403	while(t>r&&t[-1]==' ')
404	*--t = '\n';
405	break;
406	}
407	}
408	*t = 0;
409	return(t-r);
410	}
411
412	next()
413	{
414	int flag;
415	inc = inc*3125&077777;
416	ptr = (inc>>2)%na;
417	flag = 0;
418	while(score[ptr]>0)
419	if(++ptr>=na) {
420	ptr = 0;
421	if(flag) done();
422	flag = 1;
423	}
424	return(ptr);
425	}
426
427	done()
428	{
99ec5141 KB	429	if (rights + wrongs) {
	430	printf("\nRights %d, wrongs %d, ", rights, wrongs);
	431	if (guesses)
	432	printf("extra guesses %d, ", guesses);
	433	printf("score %d%%\n",100 * rights / (rights + wrongs));
	434	}
be9db06c KM	435	exit(0);
	436	}
	437	instruct(info)
	438	{
	439	char *t;
	440	int i, n;
	441	printf("Subjects:\n\n");
	442	while(readline()) {
	443	printf("-");
	444	n = segment(line,tmp);
	445	for(i=1;i<n;i++) {
	446	printf(" ");
	447	publish(tmp[i]);
	448	}
	449	printf("\n");
	450	}
	451	printf("\n");
	452	input = fopen(info,"r");
	453	if(input==NULL)
	454	abort();
	455	readline();
	456	segment(line,tmp);
	457	printf("For example,\n");
	458	printf(" quiz ");
	459	publish(tmp[1]);
	460	printf(" ");
	461	publish(tmp[2]);
	462	printf("\nasks you a ");
	463	publish(tmp[1]);
	464	printf(" and you answer the ");
	465	publish(tmp[2]);
	466	printf("\n quiz ");
	467	publish(tmp[2]);
	468	printf(" ");
	469	publish(tmp[1]);
	470	printf("\nworks the other way around\n");
	471	printf("\nType empty line to get correct answer.\n");
	472	exit(0);
	473	}
	474
	475	badinfo(){
	476	printf("Bad info %s\n",line);
	477	}
	478
	479	dunno()
	480	{
	481	printf("I don't know about that\n");
	482	exit(0);
	483	}