递归下降语法分析

#include<stdlib.h>
#include<string.h>

//程序段  单词 
char prog[800], dc[8];
//单词中的字符 
char ch;
//单词符号种别码
int syn, p, m = 0;
//整数sum 
int n, sum = 0;
//保留字 
char *word[6] = { "begin","if","then","while","do","end" };
//判断是否有错误 
int kk = 0;

void scaner();
void lrparser();
void yucu();
void statement();
void condition();
void expression();
void term();
void factor();

void scaner() {
	m = 0;
	for (n = 0; n < 8; n++) {
		dc[n] = NULL;
	}
	ch = prog[p++];

	while (ch == ‘ ‘) {
		ch = prog[p];
		//指针+1往后移一位
		p++;
	}

	//判断输入是否位数字或字母
	if ((ch >= ‘a‘&&ch <= ‘z‘) || (ch >= ‘A‘&&ch <= ‘Z‘)) {
		m = 0;
		while ((ch >= ‘0‘&&ch <= ‘9‘) || (ch >= ‘a‘&&ch <= ‘z‘) || (ch >= ‘A‘&&ch <= ‘Z‘)) {
			dc[m++] = ch;
			ch = prog[p++];
		}
		p--;
		syn = 10;
		//保留字 
		for (n = 0; n < 6; n++) {
			if (strcmp(dc, word[n]) == 0) {
				syn = n + 1;
				break;
			}
		}
	}
	//数字 
	else if ((ch >= ‘0‘&&ch <= ‘9‘)) {
		sum = 0;
		while ((ch >= ‘0‘&&ch <= ‘9‘)) {
			sum = sum * 10 + ch - ‘0‘;
			ch = prog[p++];
		}
		p--;
		syn = 11;
	}
	else {
		switch (ch) {
		case ‘<‘:m = 0;
			dc[m++] = ch;
			ch = prog[p++];
			if (ch == ‘>‘) {
				syn = 22;
				dc[m++] = ch;
			}
			else if (ch == ‘=‘) {
				syn = 21;
				dc[m++] = ch;
			}
			else {
				syn = 20;
				p--;
			}
			break;
		case ‘>‘:m = 0;
			dc[m++] = ch;
			ch = prog[p++];
			if (ch == ‘=‘) {
				syn = 24;
				dc[m++] = ch;
			}
			else {
				syn = 23;
				p--;
			}
			break;
		case ‘:‘:m = 0;
			dc[m++] = ch;
			ch = prog[p++];
			if (ch == ‘=‘) {
				syn = 18;
				dc[m++] = ch;
			}
			else {
				syn = 17;
				p--;
			}
			break;
		case ‘*‘:
			syn = 15; 
			dc[0] = ch; 
			break;
		case ‘/‘:
			syn = 16; 
			dc[0] = ch; 
			break;
		case ‘+‘:
			syn = 13; 
			dc[0] = ch; 
			break;
		case ‘-‘:
			syn = 14; 
			dc[0] = ch; 
			break;
		case ‘=‘:
			syn = 25; 
			dc[0] = ch; 
			break;
		case ‘;‘:
			syn = 26; 
			dc[0] = ch; 
			break;
		case ‘(‘:
			syn = 27; 
			dc[0] = ch;
			break;
		case ‘)‘:
			syn = 28; 
			dc[0] = ch; 
			break;
		case ‘#‘:
			syn = 0; 
			dc[0] = ch;
			break;
		case ‘\n‘:
			syn = -2; 
			dc[0] = ch; 
			break;
		}
	}
}

//判断是否以begin开始,end #结束 
void lrparser() {
	//begin
	if (syn == 1) {
		scaner();
		yucu();
		//end
		if (syn == 6) {
			scaner();
			if (syn == 0 && kk == 0) {
				printf("success \n");
			}
		}
		else {
			printf("编译出错，缺少 ‘end‘ ! \n");
			kk = 1;
			exit(0);
		}
	}
	else {
		printf("编译出错缺少 ‘begin‘ ! \n");
		kk = 1;
		exit(0);
	}
	return;
}

//语句串 
void yucu() {
	statement();
	while (syn == 26) {
		scaner();
		statement();
	}
	return;
}
//语句 
void statement() {
	//为标识符
	if (syn == 10) {
		scaner();
		if (syn == 18) { //:=
			scaner();
			expression();
		}
		else {
			printf("error!");
			kk = 1;
			exit(0);
		}
	}
	else if (syn == 2) {  //if 
		condition();
		scaner();
		if (syn == 3) {
			statement();
		}
		else {
			printf("编译出错缺少 ‘then‘ ! \n");
			kk = 1;
			exit(0);
		}
	}
	else {
		printf("error!");
		kk = 1;
		exit(0);
	}

	return;
}
//条件
void condition() {
	expression();
	if (syn == 25 || syn == 0 || syn == 20 || syn == 21 || syn == 23 || syn == 24) {
		scaner();
	}
	else {
		printf("error! \n");
		kk = 1;
		exit(0);
	}
	expression();
	return;
}
//表达式 
void expression() {
	term();
	while (syn == 13 || syn == 14) {
		scaner();
		term();
	}
	return;
}
//项 
void term() {
	factor();
	while (syn == 15 || syn == 16) {
		scaner();
		factor();
	}
	return;
}
//因子 
void factor() {
	if (syn == 10 || syn == 11) {
		//为标识符或整常数时，读下一个单词符号
		scaner();
	}
	else if (syn == 27) {
		scaner();
		expression();
		if (syn == 28) {
			scaner();
		}
		else {
			printf(" ‘)‘ 错误\n");
			kk = 1;
			exit(0);
		}
	}
	else {
		printf("表达式错误\n");
		kk = 1;
		exit(0);
	}
	return;
}
int main(void) {
	
	//从0开始逐个读取
	p = 0;
	int i;
	printf("请输入源程序:\n");
	do {
		scanf("%c", &ch);
		prog[p++] = ch;
	} while (ch != ‘#‘);
	//指针从0开始 
	p = 0;
	do {
		scaner();
		lrparser();
	} while (syn != 0);
	printf("语法分析结束！\n");

}