《2022年实编译原理验一词法分析程序终稿 .pdf》由会员分享，可在线阅读，更多相关《2022年实编译原理验一词法分析程序终稿 .pdf（12页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、华北水利水电学院编译原理实验报告一、实验目的通过设计调试词法分析程序， 实现从源程序中分出各种单词的方法；加深对课堂教学的理解，深刻理解词法分析的整个过程， 提高词法分析方法的实践能力。二、实验要求（1）从源程序文件中读取有效字符和并将其转换成二元组机内表示形式输出。（2）掌握词法分析的实现方法。（3）实验要求独立完成，不允许有抄袭现象。（4）实验完成后，要上交实验报告（包括源程序清单）。三、实验内容、主程序设计考虑：主程序的说明部分为各种表格和变量安排空间（关键字和特殊符号表）。id 和 ci 数组分别存放标识符和常数；还有一些为造表填表设置的变量。主程序的工作部分建议设计成便于调试的循环结
2、构。每个循环处理一个单词；接收键盘上送来的一个单词；调用词法分析过程；输出每个单词的内部码。）词法分析过程考虑该过程取名为lexical，它根据输入单词的第一个有效字符（有时还需读第二个字符），判断单词类，产生类号。对于标识符和常数，需分别与标识符表和常数表中已登记的元素相比较，如表中已有该元素， 则记录其在表中的位置， 如未出现过，将标识符按顺序填入数组id 中，将常数存入数组中ci 中，并记录其在表中的位置。3）功能要求输出源程序对应的二元组；对错误单词能够报错，并提示出错误所在行；常量和变量要求存在符号表中；注：所有识别出的单词都用二元组表示。第一个表示单词的种类。关键字的 t=1；标识
3、符的t=2；常数t=3；运算符t=4；界符t=5。第二个为该单词在各自表中的指针或内部码值（常数表和标识符表是在编译过程中建立起来的。其 i 值是根据它们在源程序中出现的顺序确定的）。关键字和特殊符号表格如下：单 词1 2 3 4 5 6 7 8 9 10 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 1 页，共 12 页 - - - - - - - - - 代码名字int char float void const if else do while scanf 单 词代码11 1
4、2 13 14 15 16 17 18 19 20 名字printf return main + * / % = 单 词代码21 22 23 24 25 26 27 28 29 30 名字= = ,=,=,+,+=,-,-=,=, /12 13 14 15 16 17 18 19 20 21 #,.; /22 char bufferBUFFERSIZE=; int placeBUFFERSIZE2; char ch; char strToken100=; int pp=0; char *biaoshifu100; int biao=0; char *constt100; int con=0;
5、BOOL CMyDlg:OnInitDialog() CDialog:OnInitDialog(); / Add About. menu item to system menu. / IDM_ABOUTBOX must be in the system command range. ASSERT(IDM_ABOUTBOX & 0 xFFF0) = IDM_ABOUTBOX); ASSERT(IDM_ABOUTBOX AppendMenu(MF_SEPARATOR); pSysMenu-AppendMenu(MF_STRING , IDM_ABOUTBOX, strAboutMenu); / S
6、et the icon for this dialog. The framework does this automatically / when the applications main window is not a dialog SetIcon(m_hIcon, TRUE); / Set big icon SetIcon(m_hIcon, FALSE); / Set small icon UINT array3; for(int i=0;i3;i+) arrayi = 100+i; m_StatusBar.Create(this); / 创建状态栏窗口m_StatusBar.SetIn
7、dicators(array,sizeof(array)/sizeof(UINT); /添加面板for(int n=0;n3;n+) m_StatusBar.SetPaneInfo(n,arrayn,0,290); / 设置面板宽度 /设置面板文本m_StatusBar.SetPaneText(0, 狂 风 制 作); m_StatusBar.SetPaneText(1, 欢迎大家使用 ); m_StatusBar.SetPaneText(2, 有理想就有梦想); RepositionBars(AFX_IDW_CONTROLBAR_FIRST,AFX_IDW_CONTROLBAR_LAST,0
8、); SetTimer(1,300,NULL); /设置定时器return TRUE; / return TRUE unless you set the focus to a control void CMyDlg:OnSysCommand(UINT nID, LPARAM lParam) if (nID & 0 xFFF0) = IDM_ABOUTBOX) CAboutDlg dlgAbout; dlgAbout.DoModal(); else CDialog:OnSysCommand(nID, lParam); 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - -
9、- - - - - - - - - 名师精心整理 - - - - - - - 第 4 页，共 12 页 - - - - - - - - - / 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 CMyDlg:OnPaint() if (I
10、sIconic() 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() - cxIc
11、on + 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 CMyDlg:OnQueryDragIcon() return (HCURSOR) m_hIcon; void CMyDlg:OnCli
12、ckRichedit2(NMHDR* pNMHDR, LRESULT* pResult) / TODO: Add your control notification handler code here *pResult = 0; char* CMyDlg:print(int i) return ki; void CMyDlg:Onfenxi() / TODO: Add your control notification handler code here /CFile 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理
13、 - - - - - - - 第 5 页，共 12 页 - - - - - - - - - file(NULL,CFile:modeCreate|CFile:modeWrite); CString strText1=; CString strText2=; strText1=dealwith(); m_richedit2.SetWindowText(strText1); void CMyDlg:GetChar() ch=bufferpp; pp+; void CMyDlg:getbc() while (ch= |int(ch)=10) GetChar(); void CMyDlg:concat
14、() strcat(strToken,&ch); int CMyDlg:IsLetterorDigit() if (a=ch&ch=z)|(A=ch&ch=Z)return letter; else if(0=ch&ch=9) return digit; else return notld; int CMyDlg:reserve() for (int i=0;iksize;i+) if(strcmp(strToken,ki)=0)return i+1; return 0; int CMyDlg:reserve1() for(int i=0;issize;i+) if (strcmp(strTo
15、ken,si)=0) return i+1; if(int(strToken0)=13)return -1; return 0; void CMyDlg:retract() ch= ; pp-; int CMyDlg:insertid(char *a) biaoshifubiao+=a; 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 6 页，共 12 页 - - - - - - - - - return biao; int CMyDlg:insertConst(char *a) c
16、onsttcon+=a; return con; CString CMyDlg:dealwith() CString strText=,str=; pp=0; int code,valuee;/code 为单词种别标号valuee 为单词符号的属性值int place1=0; str += 单词符号t 单词类型 t 类型编码t 行数 ,列数 n; strText +=str; while (ppBUFFERSIZE&bufferpp!=NULL) for (int j=0;j:while(-1=IsLetterorDigit()&ch!= &ch!=NULL&int(ch)!=13) conc
17、at();GetChar();if(int(ch)!=13)retract();break; case :while(-1=IsLetterorDigit()&ch!= &ch!=NULL&int(ch)!=13) concat();GetChar();if(int(ch)!=13)retract();break; case +:while(-1=IsLetterorDigit()&ch!= &ch!=NULL&int(ch)!=13) concat();GetChar();if(int(ch)!=13)retract();break; case -:while(-1=IsLetterorDi
18、git()&ch!= &ch!=NULL&int(ch)!=13) concat();GetChar();if(int(ch)!=13)retract();break; case =:while(-1=IsLetterorDigit()&ch!= &ch!=NULL&int(ch)!=13) concat();GetChar();if(int(ch)!=13)retract();break; default: concat();break; 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - -
19、 第 8 页，共 12 页 - - - - - - - - - i=reserve1(); if (i=0) str.Format(%sttERRORtt%dtt(%d,%d)n,strToken,100,placeplace10,placeplace11); else if(i!=-1) str.Format(%stt算 符tt%dtt(%d,%d)n,strToken,i,placeplace10,placeplace11); strText +=str; str =; return strText; void CMyDlg:OnButtonopen() / TODO: Add your
20、control notification handler code here / TODO: Add your control notification handler code here CFileDialog dlg(TRUE,NULL,NULL,OFN_HIDEREADONLY|OFN_OVERWRITEPROMPT, All Files(*.*)|*.*| |,AfxGetMainWnd(); /CMyApp aa; CString strPath,strText=; if(dlg.DoModal() = IDOK) strPath=dlg.GetPathName(); CFile f
21、ile(strPath,CFile:modeRead); char read1000; char c; /定义变量c记录当前从文件中读入的一个字符int row=1; /记录文件的行数int line=1; /记录文件的列数int j=0; file.Read(read,1000); for(int i=0;ifile.GetLength();i+) strText += readi; c =readi; if (c=n)/ 回车换行列数变为1，行数加 1 line =1; row +=1; if (int(c)!=13|char(c)!=0) bufferi=c; placej0=row;p
22、lacej1=line; j+; if (int(c)!=0) line +=1; 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 9 页，共 12 页 - - - - - - - - - file.Close(); m_richedit1.SetWindowText(strText); / char* temp; /temp=print(1); /strText2 +=lll; /strText2 +=temp; /*for( i=0;i21;i+) temp=print(i);
23、strText2 +=temp; strText2 +=t; if(i+1)%5=0)strText2 +=n; */ /MessageBox(temp,sadf,MB_OK); /* m_richedit1.SetWindowText(strText); i=0; char ch; ch=strText0; while(i100) ch=strTexti+; strText2 +=ch; strText2 +=n#; m_richedit2.SetWindowText(strText2);*/ UpdateData(FALSE); void CMyDlg:OnButtonsave() / T
24、ODO: Add your control notification handler code here CFileDialog dlg(FALSE,NULL,NULL,OFN_HIDEREADONLY|OFN_OVERWRITEPROMPT, All Files(*.*)|*.*| |,AfxGetMainWnd(); CString strPath,strText=; char write1000; if(dlg.DoModal()=IDOK) strPath=dlg.GetPathName(); if(strPath.Right(4)!=.txt) strPath+=.txt; CFil
25、e file(_T(strPath),CFile:modeCreate|CFile:modeWrite); m_richedit2.GetWindowText(strText); strcpy(write,strText); file.Write(write,strText.GetLength(); file.Close(); void CMyDlg:OnTimer(UINT nIDEvent) / TODO: Add your message handler code here and/or call default CString sText,sleft,sright; int len;
26、sText = m_StatusBar.GetPaneText(2); /获得状态栏第3 个面板的显示字符len = sText.GetLength(); sright = sText.Left(2); sleft = sText.Right(len-2); sText = sleft + sright; m_StatusBar.SetPaneText(2,sText); / 设名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 10 页，共 12 页 - - - - - - - - -
27、 置状态栏第3 个面板的显示字符CDialog:OnTimer(nIDEvent); void CMyDlg:OnMenuopen() / TODO: Add your command handler code here OnButtonopen(); void CMyDlg:OnMenusave() / TODO: Add your command handler code here OnButtonsave(); void CMyDlg:OnMenufnxi() / TODO: Add your command handler code here Onfenxi(); void CMyDl
28、g:OnMeuabout() / TODO: Add your command handler code here CAboutDlg aboutDlg; aboutDlg.DoModal(); void CMyDlg:OnMenuexit() / TODO: Add your command handler code here exit(0); 五、运行结果六、小结（不少于100字）通过这次实验， 我们初步掌握了词法分析的简单的实现方法。本次编写的程序要实现输出源程序对应的二元组、对错误单词能够报错并提示出错误所在行等名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 11 页，共 12 页 - - - - - - - - - 功能。通过设计调试词法分析程序，从而实现从源程序中分出各种单词，同时也能加深我们对课堂教学的理解，深刻理解词法分析的整个过程，提高词法分析方法的实践能力。名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 12 页，共 12 页 - - - - - - - - -