myscannerdlg.cpp

用.NET编的scanner

// MyScannerDlg.cpp : implementation file
//

#include "stdafx.h"
#include "MyScanner.h"
#include "MyScannerDlg.h"
#include ".\myscannerdlg.h"

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

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

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()

/////////////////////////////////////////////////////////////////////////////
// CMyScannerDlg dialog

CMyScannerDlg::CMyScannerDlg(CWnd* pParent /*=NULL*/)
	: CDialog(CMyScannerDlg::IDD, pParent)
{
	//{{AFX_DATA_INIT(CMyScannerDlg)
		// 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 CMyScannerDlg::DoDataExchange(CDataExchange* pDX)
{
	CDialog::DoDataExchange(pDX);
	//{{AFX_DATA_MAP(CMyScannerDlg)
	DDX_Control(pDX, IDC_LIST_TOKENTAB, m_tokentab);
	DDX_Control(pDX, IDC_LIST_ERRORTAB, m_errortab);
	DDX_Control(pDX, IDC_LIST_CHARTAB, m_chartable);
	DDX_Control(pDX, IDC_EDIT_INPUT, m_input);
	DDX_Control(pDX, IDC_EDIT_CHARSTRTAB, m_charstrtab);
	//}}AFX_DATA_MAP
}

BEGIN_MESSAGE_MAP(CMyScannerDlg, CDialog)
	//{{AFX_MSG_MAP(CMyScannerDlg)
	ON_WM_SYSCOMMAND()
	ON_WM_PAINT()
	ON_WM_QUERYDRAGICON()
	ON_BN_CLICKED(IDC_BUTTON_EXIT, OnButtonExit)
	ON_BN_CLICKED(IDC_BUTTON_OPEN, OnButtonOpen)
	ON_BN_CLICKED(IDC_BUTTON_SAVE, OnButtonSave)
	ON_BN_CLICKED(IDC_BUTTON_SCANNING, OnButtonScanning)
	ON_BN_CLICKED(IDC_BUTTON_ABOUT, OnButtonAbout)
	//}}AFX_MSG_MAP
	ON_EN_CHANGE(IDC_EDIT_INPUT, OnEnChangeEditInput)
END_MESSAGE_MAP()

/////////////////////////////////////////////////////////////////////////////
// CMyScannerDlg message handlers

BOOL CMyScannerDlg::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
	
	// TODO: Add extra initialization here
	::strcpy(keyword[0],"and");
	::strcpy(keyword[1],"array");
	::strcpy(keyword[2],"begin");
	::strcpy(keyword[3],"bool");
	::strcpy(keyword[4],"call");
	::strcpy(keyword[5],"case");
	::strcpy(keyword[6],"char");
	::strcpy(keyword[7],"constant");
	::strcpy(keyword[8],"do");
	::strcpy(keyword[9],"else");
	::strcpy(keyword[10],"end");
	::strcpy(keyword[11],"false");
	::strcpy(keyword[12],"for");
	::strcpy(keyword[13],"if");
	::strcpy(keyword[14],"input");
	::strcpy(keyword[15],"integer");
	::strcpy(keyword[16],"not");
	::strcpy(keyword[17],"of");
	::strcpy(keyword[18],"or");
	::strcpy(keyword[19],"output");
	::strcpy(keyword[20],"procedure");
	::strcpy(keyword[21],"program");
	::strcpy(keyword[22],"read");
	::strcpy(keyword[23],"real");
	::strcpy(keyword[24],"repeat");
	::strcpy(keyword[25],"set");
	::strcpy(keyword[26],"then");
	::strcpy(keyword[27],"to");
	::strcpy(keyword[28],"true");
	::strcpy(keyword[29],"until");
	::strcpy(keyword[30],"var");
	::strcpy(keyword[31],"while");
	::strcpy(keyword[32],"write");
	
	return TRUE;  // return TRUE  unless you set the focus to a control
}

void CMyScannerDlg::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 CMyScannerDlg::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 CMyScannerDlg::OnQueryDragIcon()
{
	return (HCURSOR) m_hIcon;
}

void CMyScannerDlg::OnButtonExit() 
{
	// TODO: Add your control notification handler code here
	OnOK();
	
}
//**************************************************************
//
//
//******************************************************************
void CMyScannerDlg::OnButtonOpen() 
{
	// TODO: Add your control notification handler code here
		CFile File_pascal;
	CString filename,string_tmp("defult");

	CFileDialog dlg(true,"pas",NULL,OFN_ENABLESIZING,"PASCAL源文件(*.pas)|*.pas|文本文件(*.txt)|*.txt|所有文件(*.*)|*.*||",NULL);
	if(dlg.DoModal()==IDOK)
	{
		filename=dlg.GetPathName();
		File_pascal.Open(filename,CFile::modeRead);
		char buf[MAX_LEN];
		int sz=File_pascal.Read(buf,MAX_LEN-1);
		buf[sz]=0;//给字符加结束标志
		m_input.SetWindowText(buf);
		m_input.SetSel(0,0);
		File_pascal.Close();
	}
		
}
//****************************************************************
//
//
//*******************************************************
//
//
//
//********************************************************
void CMyScannerDlg::OnButtonScanning() 
{
	// TODO: Add your control notification handler code here
	int sz=m_input.GetWindowText(buf,65535);
	buf[sz]=0;

	m_pos=0;
	m_pos_charstrtab=0;
	m_charstrtab_length=0;
	m_pos_chartab=0;
	m_pos_token=0;
	m_pos_error=0;
	line=1;
	col=1;
	for(int i=0;i<200;i++)
	{
		chartab[i].startpos=-1;
		chartab[i].length=-1;
		::strcpy(chartab[i].type,"");
		::strcpy(chartab[i].kind,"");
		::strcpy(chartab[i].val,"");
	}

	while(getcur(m_pos)!=0)
	{
		if(ischar(getcur(m_pos)))
			operchar();//识别标识符
		else if(isnumber(getcur(m_pos)))
			opernumber();//识别数字常数
		else if(getcur(m_pos)=='/')
			operhit();//识别注释或者界符
		else if(getcur(m_pos)=='\'')
			opercharconst();//识别字符常量
		else
			operother();//识别其他界符
	}
	output();
	
}
//********************************************************
//
//
//****************************************************************
bool CMyScannerDlg::ischar(char char_tmp)
{
	return ((char_tmp>='a'&&char_tmp<='z')||(char_tmp>='A'&&char_tmp<='Z'));
}

bool CMyScannerDlg::isnumber(char char_tmp)
{
	return (char_tmp>='0'&&char_tmp<='9');
}

bool CMyScannerDlg::ischarornumber(char char_tmp)
{
	return (char_tmp>='0'&&char_tmp<='9')||((char_tmp>='a'&&char_tmp<='z')||(char_tmp>='A'&&char_tmp<='Z'));
}
//****************************************************************
//
//
//****************************************************************
char CMyScannerDlg::getcur(unsigned int a)
{
	return buf[a];
}

char CMyScannerDlg::get(unsigned int a)
{
	return buf[a];
	m_pos++;
}

char CMyScannerDlg::getnext(unsigned int a)
{
	return buf[a+1];
}

void CMyScannerDlg::addpos()
{
	m_pos++;
	col++;
}
//*************************************************************
//
//
//********************************************************
int CMyScannerDlg::iskeyword(char *tmp)
{
	int i;
	for(i=0;i<=32;i++)
	{
		if(::strcmp(keyword[i],tmp)==0)
			return i;
	}
	return -1;
}
//---------------------------------------------
//
//
//---------------------------------------------
int CMyScannerDlg::isinchartab(char *tmp)
{
	unsigned int i;
	for(i=0;i<m_pos_chartab;i++)
	{
		if(::strcmp(chartab[i].val,tmp)==0)
			return i;
	}
	return -1;
}
//---------------------------------------------
//
//
//---------------------------------------------
int CMyScannerDlg::isincharstrtab(char *tmp,int i)
{
	unsigned int j;
	if(i==1)
	{//i=1说明是标识符
		for(j=0;j<m_pos_charstrtab;j++)
		{
			if((::strcmp(string[j].string,tmp)==0)&&string[j].flag)
				return string[j].pos;
		}
		return -1;
	}
	else
	{
		for(j=0;j<m_pos_charstrtab;j++)
		{
			if((::strcmp(string[j].string,tmp)==0)&&!string[j].flag)
				return string[j].pos;
		}
		return -1;
	}
}
//*************************************************************
//
//
//***********************************************************
void CMyScannerDlg::operchar()//识别标识符
{
	char tmp[50];//临时字符集
	int k=0;
	while(ischarornumber(getcur(m_pos)))
	{
		tmp[k]=getcur(m_pos);
		addpos();
		k++;
	}
	tmp[k]=0;
	int i=iskeyword(tmp);
	int j=isincharstrtab(tmp,1);
	if(i>=0&&i<=32)
	{//如果是一个关键字，则直接加到token串表中
		token[m_pos_token].type=i+1;
		::strcpy(token[m_pos_token].word,tmp);
		::strcpy(token[m_pos_token].val,"_     ");
		m_pos_token++;
	}
	else if(j!=-1)
	{//如果是字符串表中已经有的字符，则也直接加到token串表中
		token[m_pos_token].type=34;
		::strcpy(token[m_pos_token].word,tmp);
		sprintf(token[m_pos_token].val,"%d",j);
		m_pos_token++;
	}
	else
	{//既不是关键字，也没有在字符串表中出现过，则先添加到字符串表，再加到token串表中
		chartab[m_pos_chartab].startpos=m_charstrtab_length;
		chartab[m_pos_chartab].length=::strlen(tmp);
		if(chartab[m_pos_chartab].length>32)
		{
			wrong[m_pos_error].ln=line;
			wrong[m_pos_error].col=col;
			::strcpy(wrong[m_pos_error].wrongmsg,"字符太多");
			m_pos_error++;
		}

		::strcpy(string[m_pos_charstrtab].string,tmp);
		string[m_pos_charstrtab].pos=m_pos_chartab;
		string[m_pos_charstrtab].flag=true;
		m_charstrtab_length+=chartab[m_pos_chartab].length;

		token[m_pos_token].type=34;
		::strcpy(token[m_pos_token].word,tmp);
		sprintf(token[m_pos_token].val,"%d",string[m_pos_charstrtab].pos);
		m_pos_charstrtab++;
		m_pos_chartab++;
		m_pos_token++;
	}
}
//---------------------------------------------
//
//
//---------------------------------------------
void CMyScannerDlg::opernumber()//识别数字常量
{
	unsigned int i=0;
	int n=0;
	int j;
	bool flag=false;
	char tmp[50];
	while(isnumber(getcur(m_pos))||(getcur(m_pos)=='.'&&!flag))
	{
		if(getcur(m_pos)=='.')
		{
			tmp[i]='.';
			i++;
			addpos();
			flag=true;
			n=0;
		}
		else
		{   tmp[i]=getcur(m_pos);
			i++;
			addpos();
			n++;
		}
		
	}
	if(n>9)
	{
		wrong[m_pos_error].ln=line;
		wrong[m_pos_error].col=col;
		::strcpy(wrong[m_pos_error].wrongmsg,"数字太长");
		m_pos_error++;
		n=0;
	}
			
	if(ischar(getcur(m_pos)))
	{
		wrong[m_pos_error].ln=line;
		wrong[m_pos_error].col=col;
		::strcpy(wrong[m_pos_error].wrongmsg,"错误的数字结尾");
		m_pos_error++;
	}
	tmp[i]=0;
	j=isinchartab(tmp);