⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 sentencecompile.h

📁 一个Pascal子集语言的编译器
💻 H
📖 第 1 页 / 共 4 页
字号:
                    |
                    7000 if 7011 expression 7012 then 7013 body 7014 else 7015 body 7016             
                    |
                    7000 read 7017 ( 7018 ids_list 7019 ) 7020                              
                    |
                    7000 write 7021 ( 7022 simple_list 7023 ) 7024 
                    
                                                                          
      7001 -> 除"("、assignop外 -> StateIndex--, Check(State[StateIndex],7)             
      7002
      7022 -> 129   -> StateIndex++, State[StateIndex]= 11000
              124
              122
              119
              120
              121
      7004
      7006
      7010
      7016
      7020
      7024 -> 任意  -> StateIndex--, Check(State[StateIndex],7)  
      7005 -> 129   -> StateIndex++, State[StateIndex]= 12000       
              124
              122
              119
              120
              121
      7007
      7011 -> 129   -> StateIndex++, State[StateIndex]= 10000       
              124
              122
              119
              120
              121
      7013
      7015        
      7009 -> 102
              124
              107
              110
              112
              113   -> StateIndex++, State[StateIndex]= 6000 

      7018 -> 124   -> StateIndex++, State[StateIndex]= 9000
      
      7000->7001: Copying=true;fout<<CurrentLine<<" "<<Parament;
      7000->7021: Copying=true;fout<<CurrentLine<<" "<<Parament;
      7001 -> 除"("、assignop外 ->Copying=false;fout<<" ;"<<endl;
      7004 -> xxxx:Copying=false;fout<<" ;"<<endl;
      7006 -> xxxx:Copying=false;fout<<" ;"<<endl;
      7024 -> xxxx:Copying=false;fout<<" ;"<<endl;
      
   8  id_list    -> 8000 id 8001
                    |
                    8000 id 8001 , 8002 id_list 8003 
      8002 -> 123   -> StateIndex++, State[StateIndex]= 8000    
      8001 ->除了','外 -> StateIndex--, Check(State[StateIndex],8)  
      
      8000->8001: HaveCount++;
                  VariantIndex++;
                  VariantType[]=100;等待回填类型信息              
                  VariantBelong[]=Parament*100+HaveCount;  parament与SubCount的区别是前者会回到0 
      
      8000->8001: if(!Copying) {fout<<CurrentLine<<" "<<Parament<<" ids "<<Value<<endl;}
                  
   9  ids_list    -> 9000 ids 9001
                    |
                    9000 ids 9001 , 9002 ids_list 9003 
      9002 -> 124   -> StateIndex++, State[StateIndex]= 9000    
      9001 ->除了','外 -> StateIndex--, Check(State[StateIndex],9)                
      
               
   10 expression -> 10000 simple 10001 relop 10002 simple 10003                        
        
      10000->
      10002-> 129   -> StateIndex++, State[StateIndex]= 12000       
              124
              122
              119
              120
              121
      10003-> 任意  -> StateIndex--, Check(State[StateIndex],10)   
      
      10000->12000: Copying=true;fout<<CurrentLine<<Parament<<" simple ";
      10002->12000: fout<<" simple "<<Parament;
      
      10003->xxxxx: Copying=false;fout<<" ;"<<endl;              
               
   11 simple_list   -> 11000 simple 11001
                       | 
                       11000 simple 11001 , 11002 simple_list 11003
       11000->129   -> StateIndex++, State[StateIndex]= 12000       
              124
              122
              119
              120
              121 
       11001->除了','外 -> StateIndex--, Check(State[StateIndex],11)               
       11002->129   -> StateIndex++, State[StateIndex]= 11000       
              124
              122
              119
              120
              121                                                    
       11003-> 任意 -> StateIndex--, Check(State[StateIndex],11)
                 
   12  simple       ->12000 factor 12001
                      |
                      12000 factor 12001 op 12002 simple 12003                           
                                                      
       
       12001->除了op外 
       12000                               
       12002->129   -> StateIndex++, State[StateIndex]= 12000   *
              124
              122
              119
              120
              121
                                               
       
       12003   任意 -> StateIndex--, Check(State[StateIndex],12)
       
   13  factor    -> 13000 ids 13001                          
                    |
                    13000 ids 13001 ( 13002 simple_list 13003 ) 13004                       
                    |
                    13000 number 13005                                       
                    |
                    13000 not 13006 factor 13007                             
                    |
                    13000 true 13008                                     
                    |
                    13000 false 13009  
                    |
                    13000 ( 13010 simple 13011 ) 13012
                    
                                                                                          
      13002-> 129   -> StateIndex++, State[StateIndex]= 11000
              124
              122
              119
              120
              121
      13006-> 124   -> StateIndex++, State[StateIndex]= 13000 
              122
              119
              120
              121
      13001->除了'('外-> StateIndex--, Check(State[StateIndex],12)
      13004
      13005                                                                                                                            
      13007
      13008
      13009-> 任意 -> StateIndex--, Check(State[StateIndex],12)
                     
      13000->13001:  fout<<Parament<<" "<<NextWord<<" "<<Value<<endl;
                                                               
******************************************************************************************/


class sentenceCompile
{
    private:
        char Errors[20][256];                   //记录了各种错误信息,并以下标为错误标号
        int Error_Type;                         //记录当前错误的标号 
        int Error_Count;                        //记录当前所发生的错误数量 
        char NextWord[256];                     //记录下一个词
        int Next;                               //记录下一个词的编码
        
        int VariantCount;                       //记录变量的总个数 
        int VariantIndex;                       //指向变量表头的指针  
        int Temp;                               //暂时记录子过程的编号数  
        int SubCount;                           //子过程的计数 
        int HaveCount;                          //参数计数 
        int Parament;                           //当前所在的过程编号 
        int TypeNeed;                           //所需要回填的变量类型 
        int VariantKind[100];                   //变量所属    
        int VariantType[100];                   //变量类型 
        char VariantName[100][256];             //变量名称    
        int VariantHave[100];                   //变量所包含的参数个数 
        int VariantBelong[100];                 //记录下每个变量的信息 
        double Value;                           //记录下终结符的值 
        
        bool Copying;                            //判断当前是否处于将代码复制到目标文件的状态 
        int CurrentLine;                        //记录当前行号 
           
        int State[100];                         //这里的状态机是按堆栈设计的
                                                //每当根据非终结符进行移进时就状态进栈,归约时出栈 
        int StateIndex;                         //指向栈顶端的指针 
        char ExpectedWord[256];                 //发现错误时将希望得到的词记录 
        ifstream fin;
        ifstream fintable;
        ofstream fout;    
        ofstream fouttable;                     //定义文件的读写指针 
             
    protected:
        void Initialize();                      //语法分析器的初始化 
        void DefineErrors();                    //错误信息的初始化 
        void CatchErrors(int num);              //获取错误信息 
        void Coding();                          //将NextWord转化为Next代码 
        int Check(int next);                    //核心部分:状态转移模块 
        
        void ReadTable();                       //读取变量表信息 
        
    public:    
        int  Compile(char* filename);           //主体部分 
        
};
void sentenceCompile::ReadTable()               //首先读取原变量表中的信息 
{
    int temp;
    fintable.open("wordtable1.txt");
    VariantCount=0;                             //记录了所有变量的总编号 
    VariantIndex=0;                             //记录了函数和过程的编号 
    while(fintable>>temp)
    {
        VariantCount++;
        VariantKind[VariantCount]=temp;
        fintable>>VariantName[VariantCount];
        
        if(VariantKind[VariantCount]==910)
            VariantKind[VariantCount]=990;
    }
    

}

void sentenceCompile::Initialize()              //初始化
{

    CurrentLine=1;
    Error_Type=0;
    Error_Count=0;
    
    ReadTable();
    fin.open("words.txt");
    fout.open("sentence.txt");                  
    fouttable.open("wordtable2.txt");           //文件读写的准备 
    
    //for(int i=1;i<=VariantCount;i++)
    //    cout<<VariantKind[i]<<" "<<VariantName[i]<<endl;
    
    StateIndex=0;
    State[0]=1000;
    VariantIndex=0;
    SubCount=0;
    Copying=false;
}

void sentenceCompile::DefineErrors()
/*
    写入各种词法分析的错误信息
*/
{
    strcpy(Errors[0],"syntax error");                   //语法的错误 
    
}

void sentenceCompile::CatchErrors(int num)
/*
    输出错误的类型 
*/
{
    Error_Count++;
    if(num==1)
    {
    strcpy(Errors[1],ExpectedWord);             //缺少应该有的词
    strcat(Errors[1]," expected.");
    }
    cout<<"Errors ("<<Error_Count<<") : "<<Errors[num]<<" at line: "<<CurrentLine<<endl;
    
}

void sentenceCompile::Coding()
{
   if(strcmp(NextWord,"program")==0) Next=101;
   if(strcmp(NextWord,"begin")==0) Next=102;
   if(strcmp(NextWord,"end")==0) Next=103;
   if(strcmp(NextWord,"def")==0) Next=104;
   if(strcmp(NextWord,"function")==0) Next=105;
   if(strcmp(NextWord,"procedure")==0) Next=106;
   if(strcmp(NextWord,"if")==0) Next=107;
   if(strcmp(NextWord,"then")==0) Next=108;
   if(strcmp(NextWord,"else")==0) Next=109;
   if(strcmp(NextWord,"while")==0) Next=110;
   if(strcmp(NextWord,"do")==0) Next=111;
   if(strcmp(NextWord,"read")==0) Next=112;
   if(strcmp(NextWord,"write")==0) Next=113;
   if(strcmp(NextWord,"array")==0) Next=114;
   if(strcmp(NextWord,"record")==0) Next=115;
   if(strcmp(NextWord,"of")==0) Next=116;
   if(strcmp(NextWord,"or")==0) Next=117;
   if(strcmp(NextWord,"and")==0) Next=118;
   if(strcmp(NextWord,"not")==0) Next=119;
   if(strcmp(NextWord,"true")==0) Next=120;
   if(strcmp(NextWord,"false")==0) Next=121;
   if(strcmp(NextWord,"number")==0) Next=122;
   if(strcmp(NextWord,"id")==0) Next=123;
   if(strcmp(NextWord,"ids")==0) Next=124;
   if(strcmp(NextWord,"op")==0) Next=125;
   if(strcmp(NextWord,"relop")==0) Next=126;
   if(strcmp(NextWord,":")==0) Next=127;
   if(strcmp(NextWord,";")==0) Next=128;
   if(strcmp(NextWord,"(")==0) Next=129;
   if(strcmp(NextWord,")")==0) Next=130;
   if(strcmp(NextWord,"[")==0) Next=131;
   if(strcmp(NextWord,"]")==0) Next=132;
   if(strcmp(NextWord,".")==0) Next=133;
   if(strcmp(NextWord,",")==0) Next=134;
   if(strcmp(NextWord,"var")==0) Next=135;

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -