AUSAM/source/S/quiz.c

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

int tflag;
int xx[NL];
char score[NL];
int rights;
int wrongs;
int guesses;
int buf[259];
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];
long time();

readline()
{
	char *t;

loop:
	for(t = line; (*t = getc(buf)) != -1; t++)
	{
		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
			{
				*line = getc(buf);
				if(*line == 0377)
					return(0);
			}
			while(*line != '\n');
			goto loop;
		}
	}
	return(0);
}

char *eu;
char *ev;
cmp(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");
			break;
		}
	}
}

talloc()
{
	int i;

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

main(argc, argv)
char *argv[];
{
	int i;
	int x;
	char *info;
	long tvec;
	char *t;
	extern done();
	int count;

	info = "/usr/lib/quiz/index";
	inc = time()&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;
		}
	}
	if(fopen(info, buf) == -1)
	{
		printf("No info\n");
		exit();
	}
	talloc();
	if(argc <= 2)
		instruct(info);
	signal(2, done);
	argv[argc] = 0;
	if(find(&argv[1], argc-1) == 0)
		dunno();
	close(buf[0]);
	if(fopen(tmp[0], buf) == -1)
		dunno();
	readindex();
	if(!tflag || na > nl)
		na = nl;
	for(; ; )
	{
		i = next();
		seek(buf[0], xx[i], 0);
		read(buf[0], line, xx[i+1]-xx[i]);
		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()
{
	printf("\nRights %d, wrongs %d, ", rights, wrongs);
	if(guesses)
		printf("extra guesses %d, ", guesses);
	printf("score %d%%\n", 100*rights/(rights+wrongs));
	exit();
}
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");
	if(fopen(info, buf) == -1)
		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();
}

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

dunno()
{
	printf("I don't know about that\n");
	exit();
}