cpdlg.cpp

用C++编写的编译原理词法分析器读磁盘文件进行词法分析

// cpDlg.cpp : 实现文件
//

#include "stdafx.h"
#include "cp.h"
#include "cpDlg.h"
#include <ctype.h> 
#include <malloc.h> 
#include <conio.h> 
#ifdef _DEBUG
#define new DEBUG_NEW
#endif


// 用于应用程序“关于”菜单项的 CAboutDlg 对话框

class CAboutDlg : public CDialog
{
public:
	CAboutDlg();

// 对话框数据
	enum { IDD = IDD_ABOUTBOX };

	protected:
	virtual void DoDataExchange(CDataExchange* pDX);    // DDX/DDV 支持

// 实现
protected:
	DECLARE_MESSAGE_MAP()
};

CAboutDlg::CAboutDlg() : CDialog(CAboutDlg::IDD)
{
}

void CAboutDlg::DoDataExchange(CDataExchange* pDX)
{
	CDialog::DoDataExchange(pDX);
}

BEGIN_MESSAGE_MAP(CAboutDlg, CDialog)
END_MESSAGE_MAP()


// CcpDlg 对话框




CcpDlg::CcpDlg(CWnd* pParent /*=NULL*/)
	: CDialog(CcpDlg::IDD, pParent)
{
	m_hIcon = AfxGetApp()->LoadIcon(IDR_MAINFRAME);
}

void CcpDlg::DoDataExchange(CDataExchange* pDX)
{
	CDialog::DoDataExchange(pDX);
	DDX_Control(pDX, IDC_EDIT1, m_output);
}

BEGIN_MESSAGE_MAP(CcpDlg, CDialog)
	ON_WM_SYSCOMMAND()
	ON_WM_PAINT()
	ON_WM_QUERYDRAGICON()
	//}}AFX_MSG_MAP
	ON_BN_CLICKED(IDOK, &CcpDlg::OnBnClickedOk)
END_MESSAGE_MAP()


// CcpDlg 消息处理程序

BOOL CcpDlg::OnInitDialog()
{
	CDialog::OnInitDialog();

	// 将“关于...”菜单项添加到系统菜单中。

	// IDM_ABOUTBOX 必须在系统命令范围内。
	ASSERT((IDM_ABOUTBOX & 0xFFF0) == IDM_ABOUTBOX);
	ASSERT(IDM_ABOUTBOX < 0xF000);

	CMenu* pSysMenu = GetSystemMenu(FALSE);
	if (pSysMenu != NULL)
	{
		CString strAboutMenu;
		strAboutMenu.LoadString(IDS_ABOUTBOX);
		if (!strAboutMenu.IsEmpty())
		{
			pSysMenu->AppendMenu(MF_SEPARATOR);
			pSysMenu->AppendMenu(MF_STRING, IDM_ABOUTBOX, strAboutMenu);
		}
	}

	// 设置此对话框的图标。当应用程序主窗口不是对话框时，框架将自动
	//  执行此操作
	SetIcon(m_hIcon, TRUE);			// 设置大图标
	SetIcon(m_hIcon, FALSE);		// 设置小图标

	// TODO: 在此添加额外的初始化代码

	return TRUE;  // 除非将焦点设置到控件，否则返回 TRUE
}

void CcpDlg::OnSysCommand(UINT nID, LPARAM lParam)
{
	if ((nID & 0xFFF0) == IDM_ABOUTBOX)
	{
		CAboutDlg dlgAbout;
		dlgAbout.DoModal();
	}
	else
	{
		CDialog::OnSysCommand(nID, lParam);
	}
}

// 如果向对话框添加最小化按钮，则需要下面的代码
//  来绘制该图标。对于使用文档/视图模型的 MFC 应用程序，
//  这将由框架自动完成。

void CcpDlg::OnPaint()
{
	if (IsIconic())
	{
		CPaintDC dc(this); // 用于绘制的设备上下文

		SendMessage(WM_ICONERASEBKGND, reinterpret_cast<WPARAM>(dc.GetSafeHdc()), 0);

		// 使图标在工作矩形中居中
		int cxIcon = GetSystemMetrics(SM_CXICON);
		int cyIcon = GetSystemMetrics(SM_CYICON);
		CRect rect;
		GetClientRect(&rect);
		int x = (rect.Width() - cxIcon + 1) / 2;
		int y = (rect.Height() - cyIcon + 1) / 2;

		// 绘制图标
		dc.DrawIcon(x, y, m_hIcon);
	}
	else
	{
		CDialog::OnPaint();
	}
}

//当用户拖动最小化窗口时系统调用此函数取得光标显示。
//
HCURSOR CcpDlg::OnQueryDragIcon()
{
	return static_cast<HCURSOR>(m_hIcon);
}

char *ReserveWords[100] = {"false","NULL","true","include","stdafx","iostream","using","namespace","cin","cout",
  "auto","break","case","char","const","continue","default","do","double",
                 "else","enum","extern","float","for","goto","if","int","long","register",
                 "return","short","signed","sizeof","static","struct","switch","typedef",
                 "union","unsigned","void","volatile","while"
};
int IsLetter(char ch) 
{ 
       if(isalpha(ch)) return 1; 

       return 0; 
} 
int IsDigit(char ch) 
{
       if(isalnum(ch)) return 1; 
       return 0; 
} 
int IsSpace(char ch) 
{
       if(isspace(ch)) return 1; 
       return 0; 
} 
void GetChar(FILE *fp,char *ch) 
{
     *ch = fgetc(fp); 
} 
void GetBC(FILE *fp,char *ch) 
{
do 
{ 
       GetChar(fp,ch); 
}
while(IsSpace(*ch)&&(*ch != EOF)); 
} 
void Retract(FILE *fp,char *ch) 
{ 
       fseek(fp,-1,1); 
       ch =""; 
} 
char Reserve(char *strToken) 
{
	int i;
	for(i=0;i<42;i++)
	{
		
		
       if(strcmp(strToken,ReserveWords[i]) == 0) 
       return '0';


	}
 
return '1';

} 
void Concat(char *strToken, char *ch) 
{
         int i; 
        for(i=0;i<80;i++) { 
        if(*strToken == NULL) { 
        *strToken = *ch; 
         break; 
} 
      strToken++; 
} 
} 
//int a[1000000];
int lexSubFunc(FILE *fp1,FILE *fp2) 
{
       char ch,code; 
        int i; 
       char strToken[80]; 
       while(1) 
	   { 
         GetBC(fp1,&ch); 
         for(i=0;i<80;i++)
         strToken[i]=NULL; 
         if(ch == EOF) return 0; 
         if (IsLetter(ch)) 
		 { 
           while (IsLetter(ch) || IsDigit(ch)) 
		   { 
              Concat(strToken,&ch); 
              GetChar(fp1,&ch); 
           } 
             Retract(fp1,&ch); 
           code = Reserve(strToken);

         if (code == '0') 
		 { 
             printf("%s.......关键字\n",strToken); 
             fputs(strToken,fp2);fputs(".......关键字",fp2); fputs("\n",fp2); 
          } 
         if(code=='1') 
		 { 
              printf("%s........标识符\n",strToken); 
                fputs(strToken,fp2); fputs("......标识符\n",fp2); 
          }
} 
        else if (IsDigit(ch)) 
		{ 
           while (IsDigit(ch)) 
		   { 
               Concat(strToken,&ch); 
               GetChar(fp1,&ch); 
                } 
              Retract(fp1,&ch); 
               printf("%s.......数字\n",strToken); 
              fputs(strToken,fp2);fputs(".......数字",fp2); fputs("\n",fp2); 
                } 
         else if (ch == '=') 
		 { 
        printf("=........特殊符号\n"); 
        fputs("=.......特殊符号\n",fp2); 
         }
        else if (ch == '<=') 
		{ 

			printf("<=........特殊符号\n"); 

			fputs("<=........特殊符号\n",fp2); 
}

		else if (ch == '>=') 
		{ 

			printf(">=........特殊符号\n"); 

			fputs(">=........特殊符号\n",fp2); 

		} 

		else if (ch == '+') 
		{ 

			printf("+.......运算符号\n"); 

			fputs("+.......运算符号\n",fp2); 

		}

		else if (ch == '-') 
		{ 

			printf("-.......运算符号\n"); 

			fputs("-.......运算符号\n",fp2); 

		}

		else if (ch == '/') 
		{ 

			printf("/.......运算符号\n"); 

			fputs("/.......运算符号\n",fp2); 

		}

		else if (ch == '*') 
		{ 

			GetChar(fp1,&ch); 

			if (ch == '/') 
			{ 

				printf("*.........zhushi\n"); 

				fputs("*........zhushi\n",fp2); 

			} 

			else 
			{ 

				Retract(fp1,&ch); 

				printf("*.........运算符号\n"); 

				fputs("*........运算符号\n",fp2); 

			} 

		} 

		else if (ch == ';') 
		{ 

			printf(";........特殊符号\n"); 

			fputs(";........特殊符号\n",fp2); 

		}

		else if (ch == '.') 
		{ 

			printf(".--------特殊符号\n"); 

			fputs(".---------特殊符号\n",fp2); 

		}

		else if (ch == ':') 
		{ 
	
			printf(":........特殊符号\n"); 
	
			fputs(":........特殊符号\n",fp2); 

		}

		else if (ch == '#') 
		{ 
	
			printf("#........特殊符号\n"); 
	
			fputs("#........特殊符号\n",fp2); 

		} 

		else if (ch == '(') 
		{ 

			printf("(........特殊符号\n"); 

			fputs("(........特殊符号\n",fp2); 

		} 

		else if (ch == ')') 
		{ 

			printf(").........特殊符号\n"); 

			fputs(").........特殊符号\n",fp2); 

		} 

		else if (ch == '{') { 

			printf("{........特殊符号\n"); 

			fputs("{.........特殊符号\n",fp2); 

		} 

		else if (ch == '}') 
		{ 

			printf("}........特殊符号\n"); 

			fputs("}........特殊符号\n",fp2); 


		} 
		}


} 
void CcpDlg::OnBnClickedOk()
{
	// TODO: 在此添加控件通知处理程序代码
CString yyyy=_T("All Files(*.*)|*.*|cpp(*.cpp)|*.cpp|h(*.h)|*.h|txt(*.txt)|*.txt||");
	CFileDialog dlg(true,NULL,NULL,OFN_OVERWRITEPROMPT,yyyy,this);
if(dlg.DoModal()!=IDOK)
{
		return ;
}
FILE *fp1,*fp2; 
char buf[256];

 

if((fp1=fopen(dlg.GetPathName(),"r"))==NULL)


	{ 

		printf("Cannot open %s\n"); 

		//getch(); 
 

	} 

	if((fp2=fopen("c:\\示例结果.txt","wt+"))==NULL) 

	{ 

		printf("Cannot create 示例结果.txt FILE.strike any key exit"); 

		//getch();
 

	} 


	lexSubFunc(fp1,fp2); 

	fclose(fp1); 

	fclose(fp2); 
	freopen("c:\\result.txt","r",stdin);
	char s[1000];
	CString out;

	while(gets(s))
	{
		out.Append(s);
		out.Append("\r\n");
	}
	m_output.SetWindowTextA(out);
		

}