tokenizedlg.cpp

PL编译器

// TokenizeDlg.cpp : implementation file
//

#include "stdafx.h"
#include "PascalCompiler.h"
#include "TokenizeDlg.h"

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

/////////////////////////////////////////////////////////////////////////////
// CTokenizeDlg dialog


CTokenizeDlg::CTokenizeDlg(CWnd* pParent /*=NULL*/)
	: CDialog(CTokenizeDlg::IDD, pParent)
{
	//{{AFX_DATA_INIT(CTokenizeDlg)
	//}}AFX_DATA_INIT
}


void CTokenizeDlg::DoDataExchange(CDataExchange* pDX)
{
	CDialog::DoDataExchange(pDX);
	//{{AFX_DATA_MAP(CTokenizeDlg)
	DDX_Control(pDX, IDC_COMBO1, m_myCom1);
	DDX_Control(pDX, IDC_COMBO2, m_myCom2);
	DDX_Control(pDX, IDC_EDIT1, m_edit1);
	//}}AFX_DATA_MAP
}


BEGIN_MESSAGE_MAP(CTokenizeDlg, CDialog)
	//{{AFX_MSG_MAP(CTokenizeDlg)
	ON_BN_CLICKED(IDC_STARTTOKEN, OnStarttoken)
	ON_BN_CLICKED(IDC_EXITTOKEN, OnExittoken)
	//}}AFX_MSG_MAP
END_MESSAGE_MAP()

/////////////////////////////////////////////////////////////////////////////
// CTokenizeDlg message handlers

BOOL CTokenizeDlg::OnInitDialog() 
{
	CDialog::OnInitDialog();
	
	// TODO: Add extra initialization here
	m_myCom1.AddString("d:/source.txt");
	m_myCom2.AddString("d:/token.txt");
	return TRUE;  // return TRUE unless you set the focus to a control
	              // EXCEPTION: OCX Property Pages should return FALSE
}

void CTokenizeDlg::OnStarttoken() 
{
	// TODO: Add your control notification handler code here
	FILE * pfIn;			
	FILE * pfOut;
	CString sourceStr,objectStr;
	m_myCom1.GetWindowText(sourceStr);
	m_myCom2.GetWindowText(objectStr);

	if(sourceStr=="" || objectStr=="")
		MessageBox("请先选择或输入源、目标文件名!");
	else
	{
		if (NULL == (pfIn=fopen(sourceStr,"r")))
			return;

		if (NULL == (pfOut=fopen(objectStr,"w")))
			return;

		m_token.PASCALscan(pfIn,pfOut);
		fclose(pfIn);
		fclose(pfOut);
		
		CFile file;   
		if(file.Open(objectStr,CFile::modeRead))   
		{   
			int len=file.GetLength();   
			char *buf=new char[len+1];   
			file.Read(buf,len);   
			file.Close();   
			buf[len]='\0';   
			m_edit1.SetWindowText(CString(buf));   
			UpdateData(FALSE);   
			delete buf;   
	   }
	}
}

void CTokenizeDlg::OnExittoken() 
{
	// TODO: Add your control notification handler code here
	CDialog::OnCancel();
}