program.h

我的编译原理课程设计。类PASCAL的语法

#include<stdio.h>
#include<process.h>
#include<ctype.h>
//#include<fcntl.h>
#include<io.h>
//#include<stdlib.h>
#include"data.h"
#include"error.h"
#include"p_getsym.h"
#include"block.h"
//#define norw 12 //no.of reserved words
#include<string.h>
void begin()
{   //char chr1=(char)13,chr2=(char)10;
	init();
	/*if((fp=fopen("file2.txt","r"))==NULL)
	{
		//printf("File can not be open\n");
		//exit(0);
		str.Format("failed%c%c",chr1,chr2);
	    f_result.Write(str,str.GetLength());
		return;
	}
	/*if((out_fp=creat("file1.txt",O_CREAT))==-1)
	{
		printf("Can not create file to write\n");
		exit(0);
	}*/
	//word[0].w="begin     ";
    fseek(fp,0,SEEK_SET);
	memcpy(word[0].w,"begin     ",10);memcpy(word[1].w,"call      ",10);
    memcpy(word[2].w,"const     ",10);memcpy(word[3].w,"end       ",10);
	memcpy(word[4].w,"for       ",10);memcpy(word[5].w,"if        ",10);
	memcpy(word[6].w,"procedure ",10);memcpy(word[7].w,"read      ",10);
	memcpy(word[8].w,"var       ",10);
	memcpy(word[9].w,"while     ",10);memcpy(word[10].w,"write     ",10);
	memcpy(word[11].w,"to        ",10);

	wsym[0]=beginsym;  wsym[1]=callsym;
	wsym[2]=constsym;  wsym[3]=endsym;
	wsym[4]=forsym;    wsym[5]=ifsym;
	wsym[6]=procsym;   wsym[7]=readsym;
    wsym[8]=varsym;
	wsym[9]=whilesym; wsym[10]=writesym;wsym[11]=tosym;

	ssym[0].ch='+';ssym[0].ch_sym=plus;ssym[1].ch='-';ssym[1].ch_sym=minus;
	ssym[2].ch='*';ssym[2].ch_sym=times;ssym[3].ch='/';ssym[3].ch_sym=divsym;
	ssym[4].ch='(';ssym[4].ch_sym=lparen;ssym[5].ch=')';ssym[5].ch_sym=rparen;
	ssym[6].ch=',';ssym[6].ch_sym=comma;ssym[7].ch='.';ssym[7].ch_sym=period;
	ssym[8].ch=';';ssym[8].ch_sym=semicolon;

    s_1.flag=3;
    s_1.chr='=';
    blank.flag=3;
    blank.chr='_';

	getsym();
    block(0,0);
	//fclose(fp);
}