www.gusucode.com > 小巧的VC++词法分析器源程序-源码程序 > 小巧的VC++词法分析器源程序-源码程序\code\byDlg.cpp

    // byDlg.cpp : implementation file
// Download by http://www.NewXing.com

#include "stdafx.h"
#include "by.h"
#include "byDlg.h"

#ifdef _DEBUG
#define new DEBUG_NEW
#undef THIS_FILE
static char THIS_FILE[] = __FILE__;
#endif

/////////////////////////////////////////////////////////////////////////////
// CAboutDlg dialog used for App About

char  ch =' ';			// 存放读入当前的输入字符
int lineno;

struct reserve		 //关键字
{
	char lexptr[MAXBUF];
	int token;
};

struct reserve symtable[MAX];
char * str[]={"program","input","output","begin","end","var","integer","real","for","to","if","then","else","do","while","write","array","proceure" };



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

// Dialog Data
	//{{AFX_DATA(CAboutDlg)
	enum { IDD = IDD_ABOUTBOX };
	//}}AFX_DATA

	// ClassWizard generated virtual function overrides
	//{{AFX_VIRTUAL(CAboutDlg)
	protected:
	virtual void DoDataExchange(CDataExchange* pDX);    // DDX/DDV support
	//}}AFX_VIRTUAL

// Implementation
protected:
	//{{AFX_MSG(CAboutDlg)
	//}}AFX_MSG
	DECLARE_MESSAGE_MAP()
};

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

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

BEGIN_MESSAGE_MAP(CAboutDlg, CDialog)
	//{{AFX_MSG_MAP(CAboutDlg)
		// No message handlers
	//}}AFX_MSG_MAP
END_MESSAGE_MAP()

/////////////////////////////////////////////////////////////////////////////
// CByDlg dialog

CByDlg::CByDlg(CWnd* pParent /*=NULL*/)
	: CDialog(CByDlg::IDD, pParent)
{
	//{{AFX_DATA_INIT(CByDlg)
		// NOTE: the ClassWizard will add member initialization here
	//}}AFX_DATA_INIT
	// Note that LoadIcon does not require a subsequent DestroyIcon in Win32
	m_hIcon = AfxGetApp()->LoadIcon(IDR_MAINFRAME);
}

void CByDlg::DoDataExchange(CDataExchange* pDX)
{
	CDialog::DoDataExchange(pDX);
	//{{AFX_DATA_MAP(CByDlg)
	DDX_Control(pDX, IDC_STATIC1, m_me);
	//}}AFX_DATA_MAP
}

BEGIN_MESSAGE_MAP(CByDlg, CDialog)
	//{{AFX_MSG_MAP(CByDlg)
	ON_WM_SYSCOMMAND()
	ON_WM_PAINT()
	ON_WM_QUERYDRAGICON()
	ON_BN_CLICKED(IDC_OPEN, OnOpen)
	ON_BN_CLICKED(IDC_FENXI, OnFenxi)
	ON_BN_CLICKED(IDC_STATIC1, OnStatic1)
	ON_BN_CLICKED(IDC_SAVE, OnSave)
	//}}AFX_MSG_MAP
END_MESSAGE_MAP()

/////////////////////////////////////////////////////////////////////////////
// CByDlg message handlers

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

	// Add "About..." menu item to system menu.

	// IDM_ABOUTBOX must be in the system command range.
	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);
		}
	}

	// Set the icon for this dialog.  The framework does this automatically
	//  when the application's main window is not a dialog
	SetIcon(m_hIcon, TRUE);			// Set big icon
	SetIcon(m_hIcon, FALSE);		// Set small icon
	
	m_font.CreateFont(12, 0,0,0,FW_NORMAL, 0,0,0,
		DEFAULT_CHARSET, OUT_CHARACTER_PRECIS, CLIP_CHARACTER_PRECIS,
		DEFAULT_QUALITY, DEFAULT_PITCH | FF_DONTCARE, "Fixedsys");
	GetDlgItem(IDC_EDIT1)->SetFont(&m_font);
	GetDlgItem(IDC_EDIT2)->SetFont(&m_font);

	m_me.SetToolTipText("访问我的网站: http://www.NewXing.com");

	

	return TRUE;  // return TRUE  unless you set the focus to a control
}

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

// If you add a minimize button to your dialog, you will need the code below
//  to draw the icon.  For MFC applications using the document/view model,
//  this is automatically done for you by the framework.

void CByDlg::OnPaint() 
{
	if (IsIconic())
	{
		CPaintDC dc(this); // device context for painting

		SendMessage(WM_ICONERASEBKGND, (WPARAM) dc.GetSafeHdc(), 0);

		// Center icon in client rectangle
		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;

		// Draw the icon
		dc.DrawIcon(x, y, m_hIcon);
	}
	else
	{
		CDialog::OnPaint();
	}
}

// The system calls this to obtain the cursor to display while the user drags
//  the minimized window.
HCURSOR CByDlg::OnQueryDragIcon()
{
	return (HCURSOR) m_hIcon;
}

void CByDlg::init()
{
	for( int j=0; j<18; j++)
	{ 
		strcpy(symtable[j].lexptr,str[j]);
		symtable[j].token=j+3;
	}

}

int CByDlg::search(char *temp)
{

	for(int i=0; i<sizeof(symtable)/sizeof(symtable[0]); i++)
	{
		if(!strcmp(symtable[i].lexptr ,temp))
		{
			return  symtable[i].token;
		}
	}
	return 0;
}

void CByDlg::analyse(FILE *fpin, FILE *fpout)
{
	char arr[MAXBUF];
	int i=0;
	int j=0;
	
	while((ch=fgetc(fpin))!=EOF)  		//读入字符判断，空格、字母、数字、界符
	{
		if(ch==' '||ch=='\t')
		{
			
		}
		else if(ch=='\n')				//如果是换行符，则行号加1
		{  
			lineno++;
		}
		else if(isdigit(ch))			//如果是数字
		{ 
			while(isdigit(ch))			//判断和读取数字
			{ 
				arr[j]=ch;
				j++;
				ch=fgetc(fpin);
			} 
			arr[j]='\0';
			j=0;
			fseek(fpin,-1L,SEEK_CUR);
			fprintf(fpout,"%s\t%d\n",arr,2) ;
		}
		else if (isalpha(ch))		//如果是字母
		{
			while(isalpha(ch)||isdigit(ch))
			{
				arr[j]=ch;
				j++;
				ch=fgetc(fpin);
			}
			fseek(fpin,-1L,SEEK_CUR);
			arr[j]='\0';
			j=0;
			if (search(arr))	//如果是关键字
			{
				fprintf(fpout,"%s\t%d\n",arr,search(arr));
			}
			else  
				fprintf(fpout,"%s\t%d\n",arr,1);	//普通标志符
		}
		else if(ch==':')  
		{
			ch=fgetc(fpin);
			if(ch=='=') 
			{
				fprintf(fpout,"%s\t%d\n",":=",29);    //如果是 :=
			}
			else
			{
				fprintf(fpout,"%s\t%d\n",":",30);   //如果是 :
				fseek(fpin,-1L,SEEK_CUR);
			}
		}
		else if (ch=='>')
		{
			ch=fgetc(fpin);
			if(ch=='=')    //如果是 >=
			{
				fprintf(fpout,"%s\t%d\n",">=",32);
			}
			else
			{
				fprintf(fpout,"%s\t%d\n",">",31);  //如果是 >
				fseek(fpin,-1L,SEEK_CUR);
			}
		}
		else if(ch=='<')
		{ 
			ch=fgetc(fpin);
			if(ch=='>')
			{
				fprintf(fpout,"%s\t%d\n","<>",35);  // 如果是 <>
			}
			else if(ch=='=')
			{
				fprintf(fpout,"%s\t%d\n","<=",34);   //如果是 <=
			}
			else 
			{
				fprintf(fpout,"%s\t%d\n","<",33);   //如果是 <
				fseek(fpin,-1L,SEEK_CUR);
			}
		}
		else if(ch=='/')
		{ 
			ch=fgetc(fpin);
			if(ch=='*')
			{
				ch=fgetc(fpin);
s:
				while(ch!='*')
				{
					ch=fgetc(fpin);
				}
				while(ch=='*')
				{
					ch=fgetc(fpin);
					while(ch!='/')
					{
						goto s;			//如果是注释 /*  */
					}
				}
			}
			else if(ch=='/')
			{
				ch=fgetc(fpin);
				while(ch!='\n')
				{
					ch=fgetc(fpin);	  //如果是注释 //
				}
			}
			else 
			{  
				fprintf(fpout,"%s\t%d\n","/",24);
				fseek(fpin,-1L,SEEK_CUR);
			}
		}
		else if(ch=='+')
		{
			fprintf(fpout,"%s\t%d\n","+",21);
		}
		else if(ch=='-')
		{
			fprintf(fpout,"%s\t%d\n","-",22);
		}
		else if(ch=='*')
		{
			fprintf(fpout,"%s\t%d\n","*",23);
		}
		else if(ch=='(')
		{
			fprintf(fpout,"%s\t%d\n","(",25);
		}
		else if(ch==')')
		{
			fprintf(fpout,"%s\t%d\n",")",26);
		}
		else if(ch=='[')
		{
			fprintf(fpout,"%s\t%d\n","[",27);
		}
		else if(ch==']')
		{
			fprintf(fpout,"%s\t%d\n","]",28);
		}
		else if(ch=='.')
		{
			fprintf(fpout,"%s\t%d\n",".",39);
		}
		else if(ch==';')
		{
			fprintf(fpout,"%s\t%d\n",";",36);
		}
		else if(ch=='=')
		{
			fprintf(fpout,"%s\t%d\n","=",38);
		}
		else if(ch==',')
		{
			fprintf(fpout,"%s\t%d\n",",",40);
		}
		else fprintf(fpout,"无法识别的字符 %c\n",ch)  ;
   }
}

void CByDlg::OnOpen() 
{
	CFileDialog fd(true);
	fd.m_ofn.lpstrTitle="请选择你要打开的文件";  //标题
	fd.m_ofn.lpstrInitialDir="d:\\";            //初始目录
	if(fd.DoModal())
	{
		m_strFileName=fd.GetPathName();
		
		CStdioFile sf;
		CString str;
		if(sf.Open(m_strFileName.GetBuffer(0),CFile::modeRead))
		{
			CString  strTemp;
			while(sf.ReadString(strTemp))
			{
				str+=strTemp;
				str+="\r\n";
			}	
			SetDlgItemText(IDC_EDIT1,str);
			
			sf.Close();
		}
	}
}

void CByDlg::OnFenxi() 
{
	if(this->m_strFileName.IsEmpty())
	{
		MessageBox("请先选择一个源文件或者保存你编辑的代码后再进行词法分析","词法分析器",MB_ICONEXCLAMATION);
		return;
	}
	FILE* fpin=fopen(m_strFileName.GetBuffer(0),"r");
	FILE* fpout=fopen("output.txt","w");
	init();
	analyse(fpin,fpout);
	fclose(fpin);
	fclose(fpout);	

	CStdioFile sf;
	CString str;
	if(sf.Open("output.txt",CFile::modeRead))
	{
		CString  strTemp;
		while(sf.ReadString(strTemp))
		{
			str+=strTemp;
			str+="\r\n";
		}	
		SetDlgItemText(IDC_EDIT2,str);
		
		sf.Close();
	}

}

void CByDlg::OnStatic1() 
{
	::ShellExecute(NULL,"open","http://www.59hao.com/chx",NULL,NULL,SW_SHOWNORMAL);
}

BOOL CByDlg::PreTranslateMessage(MSG* pMsg) 
{
    if(pMsg -> message == WM_KEYDOWN)
	{
        if(pMsg -> wParam == VK_ESCAPE)
		return TRUE;

	}return CDialog::PreTranslateMessage(pMsg);	

}

void CByDlg::OnSave() 
{
	if(this->m_strFileName.IsEmpty())
	{
		CFileDialog fd(false);
		fd.m_ofn.lpstrTitle="请选择你要打开的文件";  //标题
		fd.m_ofn.lpstrInitialDir="d:\\";            //初始目录
		if(fd.DoModal())
		{
			m_strFileName=fd.GetPathName();
		}
			
	}

	CFile sf;
	if(sf.Open(this->m_strFileName,CFile::modeWrite|CFile::modeCreate))
	{
		UpdateData();
		char buf[200]={0};
		GetDlgItem(IDC_EDIT1)->GetWindowText(buf,200);
		sf.Write(buf,strlen(buf));
		sf.Close();
		MessageBox("保存成功","词法分析器",MB_ICONINFORMATION);
	}	
}