#if _MSC_VER > 1000 #pragma once #endif // _MSC_VER > 1000

#define WIN32_LEAN_AND_MEAN // Exclude rarely-used stuff from Windows headers

#include <windows.h> #include <string> #include <fstream> #include <list> #include <stack> #include <ctype.h> using namespace std;

class Symbol { public: int line; string word; char group; Symbol(); Symbol(const Symbol &b); virtual ~Symbol(); operator =(const Symbol &b); string code; };

class Label { public: Label(); virtual ~Label(); string text; private: int n; static int next(); static int _label; };

class Action { public: static int lookUp(char v,int s); private: Action(); ~Action(); static int Table[54][19]; static string vs; };

class Goto { public: static int lookUp(char v,int s); private: Goto(); ~Goto(); static int Table[54][9]; static string vs; };

class Compiler { public: optimize(); string code; char nextChar(); preProcess();//预处理器 parser();//语法分析器 Symbol *lexer();//词法分析器 void emitter();//生成器 Compiler(string CmdLine); virtual ~Compiler(); err(int no,int line); int hasError;//错误发生状态

private: int lookup(string m); char currentChar; string fileName; int line;//行数状态 Compiler(); int hasFile;//源文件打开状态 int needOutSuppose;//输出支持状态 ifstream in;//输入CRR文件 ofstream log;//输出日志文件 ofstream out;//输出ASM文件 list<string> symbolList;//符号表 };

Compiler::Compiler(string CmdLine) { line=1; hasError=0; needOutSuppose=0; hasFile=0; fileName=CmdLine; log.open((fileName + "_Log.txt").c_str(),ios::out); //char c; //测试nextChar() //do{c=nextChar();log<<c;}while(c!='#');log<<endl; }

Compiler::Compiler() {

}

Compiler::~Compiler() { log.close(); }

Symbol *Compiler::lexer() { char c; int s=1; Symbol *r; r=new Symbol(); c=currentChar; while(s){ switch(s){ case 1: if(c=='\x0A')line++; else if(isspace(c)) s=1; else if(isalpha(c)||c=='_'){ s=2; r->word=c; } else if(isdigit(c)){ s=3; r->word=c; } else{ switch(c){ case '+': case '-': s=0; r->word=c; r->group='+'; r->line=line; break; case '*': case '%': s=0; r->word=c; r->group='*'; r->line=line; break; case '&': case '|': r->word=c; s=4; break; case '>': case '<': r->word=c; s=5; break; case '!': r->word=c; s=6; break; case '=': r->word=c; s=7; break; case ',': case ';': case '{': case '}': case '(': case ')': case '$': s=0; r->word=c; r->group=c; r->line=line; break; case '/': r->word=c; s=8; break; case '#': s=11; break; default: s=1; err(1,line); } } c=nextChar(); break; case 2: if(isalnum(c)||c=='_'){ s=2; r->word+=c; c=nextChar(); } else{ s=0; r->line=line; if(r->word=="int") r->group='z'; else if(r->word=="if") r->group='i'; else if(r->word=="else") r->group='e'; else if(r->word=="do") r->group='d'; else if(r->word=="while") r->group='w'; else if(r->word=="return") r->group='r'; else r->group='@'; } break; case 3: if(isdigit(c)){ s=3; r->word+=c; c=nextChar(); } else if(isalpha(c)||c=='_'){ s=2; r->word+=c; err(2,line); c=nextChar(); } else{ s=0; r->line=line; r->group='n'; } break; case 4: if((r->word.c_str())[0]==c){ s=0; r->word+=c; r->group='&'; r->line=line; c=nextChar(); } else { s=1; err(3,line); } break; case 5: if(c=='='){ r->word+=c; c=nextChar(); } s=0; r->line=line; r->group='>'; break; case 6: if(c=='='){ r->word+=c; r->group='>'; c=nextChar(); } else{ r->group='!'; } s=0; r->line=line; break; case 7: if(c=='='){ r->word+=c; r->group='>'; c=nextChar(); } else{ r->group='='; } s=0; r->line=line; break; case 8: if(c=='*'){ s=9; r->word=""; c=nextChar(); } else{ r->line=line; r->group='*'; s=0; } break; case 9: if(c=='*') s=10; else s=9; c=nextChar(); break; case 10: if(c=='/') s=1; else if(c=='*') s=10; else s=9; c=nextChar(); break; case 11: if(c=='\n'){ s=1; line++; } else s=11; c=nextChar(); break; default: s=1; err(0,line); c=nextChar(); } } currentChar=c; log<<"词法分析:"<<r->word<<endl; return r; }

Compiler::parser() { log<<endl; log<<"*******************************************"<<endl; log<<"语法分析开始..."<<endl; if(hasFile) in.open((fileName+".crr").c_str(),ios::in); currentChar=nextChar();//词法分析器初始化

// Symbol *s=NULL; //测试lexer() // do{ // if(s!=NULL) // delete s; // s=lexer(); // log<<s->word; // log<<" "; // log<<s->group; // log<<'\t'; // log<<s->line; // log<<endl; // }while(s->group!='#'); // delete s;

int r,s=1,t=1; Symbol *ip,*iq,*it=NULL; Symbol *s1,*s2,*s3,*s4,*s5,*s6,*s7,*m; Label *l1,*l2; stack<int> ss; stack<Symbol *> sos; ss.push(s); ip=lexer(); while(t){ s=ss.top(); t=Action::lookUp(ip->group,s); if(t>0){ sos.push(ip); ss.push(t); if(it==NULL) ip=lexer(); else ip=it; it=NULL; } else if(t<0) { switch(-t) { case 1://OK //D->@()S log<<"语法分析:D->@()S"<<endl; ss.pop(); ss.pop(); ss.pop(); ss.pop(); s4=sos.top(); sos.pop(); s3=sos.top(); sos.pop(); s2=sos.top(); sos.pop(); s1=sos.top(); sos.pop(); m=new Symbol; m->group='D'; m->line=s1->line; sos.push(m); //动作 if(s1->word!="main") err(5,s1->line); code=s4->code; delete s1; delete s2; delete s3; delete s4; break; case 2://OK //S->@=E; log<<"语法分析:S->@=E;"<<endl; ss.pop(); ss.pop(); ss.pop(); ss.pop(); s4=sos.top(); sos.pop(); s3=sos.top(); sos.pop(); s2=sos.top(); sos.pop(); s1=sos.top(); sos.pop(); m=new Symbol; m->group='S'; m->line=s1->line; sos.push(m);

紧接上面（字数问题，分开发）
    //动作
    if(lookup(s1-&gt;word))
     m-&gt;code=s3-&gt;code+"\tpop ax\n\tmov "+s1-&gt;word+",ax\n";
    else
     err(10,s1-&gt;line);
    delete s1;
    delete s2;
    delete s3;
    delete s4;
    break;
   case 3://OK
    //S-&gt;{W}
    log&lt;&lt;"语法分析:S-&gt;{W}"&lt;&lt;endl;
    ss.pop();
    ss.pop();
    ss.pop();
    s3=sos.top();
    sos.pop();
    s2=sos.top();
    sos.pop();
    s1=sos.top();
    sos.pop();
    m=new Symbol;
    m-&gt;group='S';
    m-&gt;line=s1-&gt;line;
    sos.push(m);
    //动作
    m-&gt;code=s2-&gt;code;
    delete s1;
    delete s2;
    delete s3;
    break;
   case 4://OK
    //S-&gt;i(G)S
    ss.pop();
    ss.pop();
    ss.pop();
    ss.pop();
    ss.pop();
    s5=sos.top();
    sos.pop();
    s4=sos.top();
    sos.pop();
    s3=sos.top();
    sos.pop();
    s2=sos.top();
    sos.pop();
    s1=sos.top();
    sos.pop();
    m=new Symbol;
    m-&gt;group='S';
    m-&gt;line=s1-&gt;line;
    sos.push(m);
    //动作
    if(s1-&gt;word=="if"){
     l1=new Label;
     m-&gt;code=s3-&gt;code+"\tpop ax\n\tcmp ax,1\n\tjne "+l1-&gt;text+"\n"+s5-&gt;code+l1-&gt;text+":\n";
     delete l1;
     log&lt;&lt;"语法分析:S-&gt;i(G)S"&lt;&lt;endl;
    }
    if(s1-&gt;word=="while"){
     l1=new Label;
     l2=new Label;
     m-&gt;code=l1-&gt;text+":\n"+s3-&gt;code+"\tpop ax\n\tcmp ax,1\n\tjne "+l2-&gt;text+"\n"+s5-&gt;code+"\tjmp "+l1-&gt;text+"\n"+l2-&gt;text+":\n";
     delete l1;
     delete l2;
     log&lt;&lt;"语法分析:S-&gt;w(G)S"&lt;&lt;endl;
    }
    delete s1;
    delete s2;
    delete s3;
    delete s4;
    delete s5;
    break;
   case 5://OK
    //S-&gt;i(G)SeS
    ss.pop();
    ss.pop();
    ss.pop();
    ss.pop();
    ss.pop();
    ss.pop();
    ss.pop();
    s7=sos.top();
    sos.pop();
    s6=sos.top();
    sos.pop();
    s5=sos.top();
    sos.pop();
    s4=sos.top();
    sos.pop();
    s3=sos.top();
    sos.pop();
    s2=sos.top();
    sos.pop();
    s1=sos.top();
    sos.pop();
    m=new Symbol;
    m-&gt;group='S';
    m-&gt;line=s1-&gt;line;
    sos.push(m);
    //动作
    l1=new Label;
    l2=new Label;
    if(s1-&gt;word=="if"){
     m-&gt;code=s3-&gt;code+"\tpop ax\n\tcmp ax,1\n\tjnz "+l1-&gt;text+"\n"+s5-&gt;code+"\tjmp "+l2-&gt;text+"\n"+l1-&gt;text+":\n"+s7-&gt;code+l2-&gt;text+":\n";
     log&lt;&lt;"语法分析:S-&gt;i(G)SeS"&lt;&lt;endl;
    }
    else
     err(8,s6-&gt;line);
    delete l1;
    delete l2;
    delete s1;
    delete s2;
    delete s3;
    delete s4;
    delete s5;
    delete s6;
    delete s7;
    break;
   case 6://ok
    //S-&gt;w(G)S
    log&lt;&lt;"语法分析:S-&gt;w(G)S"&lt;&lt;endl;
    ss.pop();
    ss.pop();
    ss.pop();
    ss.pop();
    ss.pop();
    s5=sos.top();
    sos.pop();
    s4=sos.top();
    sos.pop();
    s3=sos.top();
    sos.pop();
    s2=sos.top();
    sos.pop();
    s1=sos.top();
    sos.pop();
    m=new Symbol;
    m-&gt;group='S';
    m-&gt;line=s1-&gt;line;
    sos.push(m);
    //动作
    delete s1;
    delete s2;
    delete s3;
    delete s4;
    delete s5;
    break;
   case 7://OK
    //S-&gt;zL;
    log&lt;&lt;"语法分析:S-&gt;zL;"&lt;&lt;endl;
    ss.pop();
    ss.pop();
    ss.pop();
    s3=sos.top();
    sos.pop();
    s2=sos.top();
    sos.pop();
    s1=sos.top();
    sos.pop();
    m=new Symbol;
    m-&gt;group='S';
    m-&gt;line=s1-&gt;line;
    sos.push(m);
    //动作
    delete s1;
    delete s2;
    delete s3;
    break;
   case 8://OK
    //S-&gt;@(E);
    log&lt;&lt;"语法分析:S-&gt;@(E);"&lt;&lt;endl;
    ss.pop();
    ss.pop();
    ss.pop();
    ss.pop();
    ss.pop();
    s5=sos.top();
    sos.pop();
    s4=sos.top();
    sos.pop();
    s3=sos.top();
    sos.pop();
    s2=sos.top();
    sos.pop();
    s1=sos.top();
    sos.pop();
    m=new Symbol;
    m-&gt;group='S';
    m-&gt;line=s1-&gt;line;
    sos.push(m);
    //动作
    if(s1-&gt;word=="out"&amp;&amp;needOutSuppose)
     m-&gt;code=s3-&gt;code+"\tpop ax\n\tcall outint\n";
    else
     err(6,s1-&gt;line);
    delete s1;
    delete s2;
    delete s3;
    delete s4;
    delete s5;
    break;
   case 9://OK
    //W-&gt;WS
    log&lt;&lt;"语法分析:W-&gt;WS"&lt;&lt;endl;
    ss.pop();
    ss.pop();
    s2=sos.top();
    sos.pop();
    s1=sos.top();
    sos.pop();
    m=new Symbol;
    m-&gt;group='W';
    m-&gt;line=s1-&gt;line;
    sos.push(m);
    //动作
    m-&gt;code=s1-&gt;code+s2-&gt;code;
    delete s1;
    delete s2;
    break;
   case 10://OK
    //W-&gt;S
    log&lt;&lt;"语法分析:W-&gt;S"&lt;&lt;endl;
    ss.pop();
    s1=sos.top();
    sos.pop();
    m=new Symbol;
    m-&gt;group='W';
    m-&gt;line=s1-&gt;line;
    sos.push(m);
    //动作
    m-&gt;code=s1-&gt;code;
    delete s1;
    break;
   case 11://OK
    //L-&gt;@
    log&lt;&lt;"语法分析:L-&gt;@"&lt;&lt;endl;
    ss.pop();
    s1=sos.top();
    sos.pop();
    m=new Symbol;
    m-&gt;group='L';
    m-&gt;line=s1-&gt;line;
    sos.push(m);
    //动作
    if(!lookup(s1-&gt;word))
     symbolList.insert(symbolList.end(),s1-&gt;word);
    else
     err(11,s1-&gt;line);
    delete s1;
    break;
   case 12://OK
    //L-&gt;L,@
    log&lt;&lt;"语法分析:L-&gt;L,@"&lt;&lt;endl;
    ss.pop();
    ss.pop();
    ss.pop();
    s3=sos.top();
    sos.pop();
    s2=sos.top();
    sos.pop();
    s1=sos.top();
    sos.pop();
    m=new Symbol;
    m-&gt;group='L';
    m-&gt;line=s1-&gt;line;
    sos.push(m);
    if(!lookup(s3-&gt;word))
     symbolList.insert(symbolList.end(),s3-&gt;word);
    else
     err(11,s3-&gt;line);
    delete s1;
    delete s2;
    delete s3;
    break;
   case 13://OK
    //G-&gt;G&amp;M
    log&lt;&lt;"语法分析:G-&gt;G&amp;M"&lt;&lt;endl;
    ss.pop();
    ss.pop();
    ss.pop();
    s3=sos.top();
    sos.pop();
    s2=sos.top();
    sos.pop();
    s1=sos.top();
    sos.pop();
    m=new Symbol;
    m-&gt;group='G';
    m-&gt;line=s1-&gt;line;
    sos.push(m);
    //动作
    if(s2-&gt;word=="&amp;&amp;")
     m-&gt;code=s3-&gt;code+s1-&gt;code+"\tpop ax\n\tpop bx\n\tand ax,bx\n\tpush ax\n";
    if(s2-&gt;word=="||")
     m-&gt;code=s3-&gt;code+s1-&gt;code+"\tpop ax\n\tpop bx\n\tor ax,bx\n\tpush ax\n";
    delete s1;
    delete s2;
    delete s3;
    break;
   case 14://OK
    //G-&gt;M
    log&lt;&lt;"语法分析:G-&gt;M"&lt;&lt;endl;
    ss.pop();
    s1=sos.top();
    sos.pop();
    m=new Symbol;
    m-&gt;group='G';
    m-&gt;line=s1-&gt;line;
    sos.push(m);
    //动作
    m-&gt;code=s1-&gt;code;
    delete s1;
    break;
   case 15:
    //M-&gt;E&gt;E
    log&lt;&lt;"语法分析:M-&gt;E&gt;E"&lt;&lt;endl;
    ss.pop();
    ss.pop();
    ss.pop();
    s3=sos.top();
    sos.pop();
    s2=sos.top();
    sos.pop();
    s1=sos.top();
    sos.pop();
    m=new Symbol;
    m-&gt;group='M';
    m-&gt;line=s1-&gt;line;
    sos.push(m);
    //动作
    l1=new Label;
    l2=new Label;
    m-&gt;code=s3-&gt;code+s1-&gt;code+"\tpop ax\n\tpop bx\n\tcmp ax,bx\n";
    if(s2-&gt;word=="&gt;")
     m-&gt;code+="\tjg "+l1-&gt;text+"\n";
    if(s2-&gt;word=="&lt;")
     m-&gt;code+="\tjl "+l1-&gt;text+"\n";
    if(s2-&gt;word=="==")
     m-&gt;code+="\tje "+l1-&gt;text+"\n";
    if(s2-&gt;word=="!=")
     m-&gt;code+="\tjne "+l1-&gt;text+"\n";
    if(s2-&gt;word=="&gt;=")
     m-&gt;code+="\tjge "+l1-&gt;text+"\n";
    if(s2-&gt;word=="&lt;=")
     m-&gt;code+="\tjle "+l1-&gt;text+"\n";
    m-&gt;code+="\tmov ax,0\n\tjmp "+l2-&gt;text+"\n"+l1-&gt;text+":\tmov ax,1\n"+l2-&gt;text+":\tpush ax\n";
    delete l1;
    delete l2;
    delete s1;
    delete s2;
    delete s3;
    break;
   case 16://OK
    //M-&gt;!M
    log&lt;&lt;"语法分析:M-&gt;!M"&lt;&lt;endl;
    ss.pop();
    ss.pop();
    s2=sos.top();
    sos.pop();
    s1=sos.top();
    sos.pop();
    m=new Symbol;
    m-&gt;group='M';
    m-&gt;line=s1-&gt;line;
    sos.push(m);
    //动作
    m-&gt;code="\tpop ax\n\txor ax,ax\n\tpush ax\n";
    delete s1;
    delete s2;
    break;
   case 17://OK
    //M-&gt;(G)
    log&lt;&lt;"语法分析:M-&gt;(G)"&lt;&lt;endl;
    ss.pop();
    ss.pop();
    ss.pop();
    s3=sos.top();
    sos.pop();
    s2=sos.top();
    sos.pop();
    s1=sos.top();
    sos.pop();
    m=new Symbol;
    m-&gt;group='M';
    m-&gt;line=s1-&gt;line;
    sos.push(m);
    //动作
    m-&gt;code=s2-&gt;code;
    delete s1;
    delete s2;
    delete s3;
    break;
   case 18://OK
    //E-&gt;E+T
    log&lt;&lt;"语法分析:E-&gt;E+T"&lt;&lt;endl;
    ss.pop();
    ss.pop();
    ss.pop();
    s3=sos.top();
    sos.pop();
    s2=sos.top();
    sos.pop();
    s1=sos.top();
    sos.pop();
    m=new Symbol;
    m-&gt;line=s1-&gt;line;
    m-&gt;group='E';
    sos.push(m);
    //动作
    if(s2-&gt;word=="+")
     m-&gt;code=s3-&gt;code+s1-&gt;code+"\tpop ax\n\tpop bx\n\tadd ax,bx\n\tpush ax\n";
    if(s2-&gt;word=="-")
     m-&gt;code=s3-&gt;code+s1-&gt;code+"\tpop ax\n\tpop bx\n\tsub ax,bx\n\tpush ax\n";
    delete s1;
    delete s2;
    delete s3;
    break;
   case 19://OK
    //E-&gt;T
    log&lt;&lt;"语法分析:E-&gt;T"&lt;&lt;endl;
    ss.pop();
    s1=sos.top();
    sos.pop();
    m=new Symbol;
    m-&gt;group='E';
    m-&gt;line=s1-&gt;line;     
    sos.push(m);
    //动作
    m-&gt;code=s1-&gt;code;
    delete s1;
    break;
   case 20://OK
    //T-&gt;T*F
    log&lt;&lt;"语法分析:T-&gt;T*F"&lt;&lt;endl;
    ss.pop();
    ss.pop();
    ss.pop();
    s3=sos.top();
    sos.pop();
    s2=sos.top();
    sos.pop();
    s1=sos.top();
    sos.pop();
    m=new Symbol;
    m-&gt;group='T';
    m-&gt;line=s1-&gt;line;
    sos.push(m);
    //动作
    if(s2-&gt;word=="*")
     m-&gt;code=s3-&gt;code+s1-&gt;code+"\tpop ax\n\tpop bx\n\tmov dx,0\n\tmul bx\n\tpush ax\n";
    if(s2-&gt;word=="/")
     m-&gt;code=s3-&gt;code+s1-&gt;code+"\tpop ax\n\tpop bx\n\tmov dx,0\n\tdiv bx\n\tpush ax\n";
    if(s2-&gt;word=="%")
     m-&gt;code=s3-&gt;code+s1-&gt;code+"\tpop ax\n\tpop bx\n\tmov dx,0\n\tdiv bx\n\tpush dx\n";
    delete s1;
    delete s2;
    delete s3;
    break;
   case 21://OK
    //T-&gt;F
    log&lt;&lt;"语法分析:T-&gt;F"&lt;&lt;endl;
    ss.pop();
    s1=sos.top();
    sos.pop();
    m=new Symbol;
    m-&gt;group='T';
    m-&gt;line=s1-&gt;line;
    sos.push(m);
    //动作
    m-&gt;code=s1-&gt;code;
    delete s1;
    break;
   case 22://OK
    //F-&gt;(E)
    log&lt;&lt;"语法分析:F-&gt;(E)"&lt;&lt;endl;
    ss.pop();
    ss.pop();
    ss.pop();
    s3=sos.top();
    sos.pop();
    s2=sos.top();
    sos.pop();
    s1=sos.top();
    sos.pop();
    m=new Symbol;
    m-&gt;group='F';
    m-&gt;line=s1-&gt;line;
    sos.push(m);
    //动作
    m-&gt;code=s2-&gt;code;
    delete s1;
    delete s2;
    delete s3;
    break;
   case 23://OK
    //F-&gt;@
    log&lt;&lt;"语法分析:F-&gt;@"&lt;&lt;endl;
    ss.pop();
    s1=sos.top();
    sos.pop();
    m=new Symbol;
    m-&gt;group='F';
    m-&gt;line=s1-&gt;line;
    sos.push(m);
    //动作
    if(lookup(s1-&gt;word))
     m-&gt;code="\tmov ax,"+s1-&gt;word+"\n\tpush ax\n";
    else
     err(10,s1-&gt;line);
    delete s1;
    break;
   case 24://OK
    //F-&gt;n

紧接上面的。。。。。 log<<"语法分析:F->n"<<endl; ss.pop(); s1=sos.top(); sos.pop(); m=new Symbol; m->group=''F''; m->line=s1->line; sos.push(m); //动作 m->code="\tmov ax,"+s1->word+"\n\tpush ax\n"; delete s1; break; case 30: //else err(8,line); ss.push(0); ss.push(0); ss.push(0); ss.push(0); ss.push(45); s1=new Symbol; s1->group=''i''; s1->line=line; sos.push(s1); s1=new Symbol; s1->group=''(''; s1->line=line; sos.push(s1); s1=new Symbol; s1->group=''G''; s1->line=line; sos.push(s1); s1=new Symbol; s1->group='')''; s1->line=line; sos.push(s1); s1=new Symbol; s1->group=''S''; s1->line=line; sos.push(s1); continue; case 31: err(7,line); it=ip; ip=new Symbol; ip->group='';''; ip->line=line; continue; case 32: err(9,line); s1=new Symbol; s1->line=line; s1->group=''S''; sos.push(s1); break; default: err(4,ip->line); goto label1; }//switch r=ss.top(); iq=sos.top(); r=Got:lookUp(iq->group,r); if(r) ss.push(r); else err(4,iq->line); }//else else if(t==0&&!hasError){ log<<endl; log<<"代码通过语法检查,未发现语法错误."<<endl; } }//while

label1:

in.close(); log<<"词法分析完毕..."<<endl; log<<"*******************************************"<<endl; }

Compiler::preProcess() { string tmpstr; ifstream ins((fileName+".crr").c_str(),ios::in); log<<"*******************************************"<<endl; log<<"程序预处理开始"<<endl; if(ins.is_open()){ hasFile=1; log<<"打开文件 \''"<<fileName<<".crr\'' 成功!"<<endl; } else{ hasFile=0; log<<"打开文件失改!"<<endl; } while(getline(ins,tmpstr)){ if(tmpstr.substr(0,18)=="#import system.out"){ needOutSuppose=1; break; } } if(needOutSuppose) log<<"需要引入系统函数\''System.out\''."<<endl; else log<<"不需要引入系统函数\''System.out\''."<<endl; log<<"程序预处理完成!"<<endl; log<<"*******************************************"<<endl; ins.close(); }

char Compiler::nextChar() { char ch; if(in.get(ch)){ currentChar=ch; return ch; } else{ currentChar=ch; return ''$''; } }

void Compiler::emitter() { if(hasError){ log<<endl; log<<"*******************************************"<<endl; log<<"源代码中有错误,不能生成目标代码!"<<endl; log<<"*******************************************"<<endl; return; } log<<endl; log<<"*******************************************"<<endl; log<<"开始生成目标代码..."<<endl; out.open((fileName + ".asm").c_str(),ios::out); if(out.is_open()){ log<<"创建文件"<<(fileName + ".asm").c_str()<<"成功!"<<endl; out<<"\t.model small"<<endl; out<<"\t.stack"<<endl; out<<"\t.data"<<endl; while(!symbolList.empty()) { out<<symbolList.front().c_str()<<"\tdw ?"<<endl; symbolList.pop_front(); } out<<"__end\tdb 13,10,\''Press Any Key To Continue...\'',\''$\''"<<endl; out<<"\t.code"<<endl; out<<endl; if(needOutSuppose){ log<<"写入被引入系统函数代码."<<endl; out<<"outint proc near"<<endl; out<<"\tmov cx,0"<<endl; out<<"\tmov bx,10"<<endl; out<<"again:\tmov dx,0"<<endl; out<<"\tdiv bx"<<endl; out<<"\tpush dx"<<endl; out<<"\tinc cx"<<endl; out<<"\tcmp ax,0"<<endl; out<<"\tjne again"<<endl; out<<"print:\tpop dx"<<endl; out<<"\tadd dl,30h"<<endl; out<<"\tmov ah,02h"<<endl; out<<"\tint 21h"<<endl; out<<"\tloop print"<<endl; out<<"\tmov dl,20h"<<endl; out<<"\tmov ah,02h"<<endl; out<<"\tint 21h"<<endl; out<<"\tret"<<endl; out<<"outint\tendp"<<endl; out<<endl; } out<<"main\tproc near"<<endl; out<<"\t;***CODE START***"<<endl; log<<"开始优化代码."<<endl; optimize(); log<<"优化代码完毕."<<endl; out<<code; log<<"写入目标代码."<<endl; out<<"\t;***CODE END***"<<endl; out<<"\tret"<<endl; out<<"main endp"<<endl; out<<endl; out<<"start:"<<endl; out<<"\tmov ax,@data"<<endl; out<<"\tmov ds,ax"<<endl; out<<"\tcall main"<<endl; out<<"\tlea dx,__end"<<endl; out<<"\tmov ah,09h"<<endl; out<<"\tint 21h"<<endl; out<<"\tmov ah,08h"<<endl; out<<"\tint 21h"<<endl; out<<"\tmov ah,4ch"<<endl; out<<"\tint 21h"<<endl; out<<"\tend start"<<endl; out.close(); log<<endl; log<<"代码生成完成!"<<endl; log<<"*******************************************"<<endl; }

else { log<<endl; log<<"无法创建文件!"<<endl; log<<"*******************************************"<<endl;

} // Label *q;//测试Label // for(int i=0;i<10;i++){ // q=new Label; // log<<q->text.c_str()<<endl; // delete q; // } return; }

Compiler::err(int no,int line) { string errText; hasError=1; switch(no){ case 1: errText="出现无法识别的符号."; break; case 2: errText="错误的标识符."; break; case 3: errText="运算符\''&&\''(\''||\'')写成\''&\''(\''|\'')了."; break; case 4: errText="语法错误,编译停止!"; break; case 5: errText="找不到main()函数."; break; case 6: errText="所使用的函数未定义"; break; case 7: errText="语句后缺少\'';\''."; break; case 8: errText="else没有与之匹配的if."; break; case 9: errText="缺少语句."; break; case 10: errText="变量未定义."; break; case 11: errText="变量以定义过,不能重新定义."; break; default: errText="未知错误!"; } log<<"发生错误:文件"<<fileName<<".crr第"<<line<<"行:"<<errText<<endl; }

int Compiler::lookup(string m) { list<string>::iterator i; for (i = symbolList.begin(); i != symbolList.end(); ++i) if(*i==m) return 1; return 0;

}

Symbol::Symbol() {

}

Symbol::Symbol(const Symbol &b) { group=b.group; line=b.line; word=b.word; }

Symbol::~Symbol() {

}

Symbol::operator =(const Symbol &b) { group=b.group; line=b.line; word=b.word; }

Label::Label() { n=next(); char buffer[6]; text=_itoa(n,buffer,10); text="L"+text; }

Label::~Label() {

}

int Label::next() { return ++_label; }

int Label::_label=0;

Action::Action() {

}

Action::~Action() {

}

int Action::lookUp(char v,int s) { int n=vs.find_first_of(v,0); return Table[s-1][n]; }

string Action::vs ="+*>&=!@n(){};,ziew$";

int Action::Table[54][19]={ -40,-40,-40,-40,-40,-40,3,-40,-40,-40,-40,-40,-40,-40,-40,-40,-30,-40,-40,//state1 -40,-40,-40,-40,-40,-40,-40,-40,-40,-40,-40,-40,-40,-40,-40,-40,-30,-40,0,//state2 -40,-40,-40,-40,-40,-40,-40,-40,4,-40,-40,-40,-40,-40,-40,-40,-30,-40,-40,//state3 -40,-40,-40,-40,-40,-40,-40,-40,-40,5,-40,-40,-40,-40,-40,-40,-30,-40,-40,//state4 -40,-40,-40,-40,-40,-40,7,-40,-40,-40,8,-40,-40,-40,11,9,-30,10,-40,//state5 -40,-40,-40,-40,-40,-40,-40,-40,-40,-40,-40,-40,-40,-40,-40,-40,-30,-40,-1,//state6 -40,-40,-40,-40,12,-40,-40,-40,13,-40,-40,-40,-40,-40,-40,-40,-30,-40,-40,//state7 -40,-40,-40,-40,-40,-40,7,-40,-40,-40,8,-32,-32,-40,11,9,-30,10,-32,//state8 -40,-40,-40,-40,-40,-40,-40,-40,13,-40,-40,-40,-40,-40,-40,-40,-30,-40,-40,//state9 -40,-40,-40,-40,-40,-40,-40,-40,13,-40,-40,-40,-40,-40,-40,-40,-30,-40,-40,//state10 -40,-40,-40,-40,-40,-40,17,-40,-40,-40,-40,-40,-40,-40,-40,-40,-30,-40,-40,//state11 -40,-40,-40,-40,-40,-40,22,23,21,-40,-40,-40,-40,-40,-40,-40,-30,-40,-40,//state12 -40,-40,-40,-40,-40,27,22,23,28,-40,-40,-40,-40,-40,-40,-40,-30,-40,-40,//state13 -40,-40,-40,-40,-40,-40,7,-40,-40,-40,8,29,-40,-40,11,9,-30,10,-40,//state14 -40,-40,-40,-40,-40,-40,-10,-40,-40,-40,-10,-10,-40,-40,-10,-10,-30,-10,-40,//state15 -40,-40,-40,-40,-40,-40,-31,-40,-40,-40,-31,-31,31,32,-31,-31,-30,-31,-31,//state16 -40,-40,-40,-40,-40,-40,-31,-40,-40,-40,-31,-31,-11,-11,-31,-31,-30,-31,-31,//state17 35,-40,-40,-40,-40,-40,-31,-40,-40,34,-31,-31,33,-40,-31,-31,-30,-31,-31,//state18 -19,36,-19,-19,-40,-40,-31,-40,-40,-19,-31,-31,-19,-40,-31,-31,-30,-31,-31,//state19 -21,-21,-21,-21,-40,-40,-31,-40,-40,-21,-31,-31,-21,-40,-31,-31,-30,-31,-31,//state20 -40,-40,-40,-40,-40,-40,22,23,21,-40,-40,-40,-40,-40,-40,-40,-30,-40,-40,//state21 -23,-23,-23,-23,-40,-40,-31,-40,-40,-23,-31,-31,-23,-40,-31,-31,-30,-31,-31,//state22 -24,-24,-24,-24,-40,-40,-31,-40,-40,-24,-31,-31,-24,-40,-31,-31,-30,-31,-31,//state23 -40,-40,-40,38,-40,-40,-40,-40,-40,34,-40,-40,-40,-40,-40,-40,-30,-40,-40,//state24 35,-40,39,-40,-40,-40,-31,-40,-40,34,-31,-31,33,-40,-31,-31,-30,-31,-31,//state25 -40,-40,-40,-14,-40,-40,-40,-40,-40,-14,-40,-40,-40,-40,-40,-40,-30,-40,-40,//state26 -40,-40,-40,-40,-40,27,22,23,28,-40,-40,-40,-40,-40,-40,-40,-30,-40,-40,//state27 -40,-40,-40,-40,-40,27,22,23,28,-40,-40,-40,-40,-40,-40,-40,-30,-40,-40,//state28 -40,-40,-40,-40,-40,-40,-3,-40,-40,-40,-3,-3,-40,-40,-3,-3,-3,-3,-3,//state29 -40,-40,-40,-40,-40,-40,-9,-40,-40,-40,-9,-9,-40,-40,-9,-9,-9,-9,-40,//state30 -40,-40,-40,-40,-40,-40,-7,-40,-40,-40,-7,-7,-40,-40,-7,-7,-7,-7,-7,//state31 -40,-40,-40,-40,-40,-40,44,-40,-40,-40,-40,-40,-40,-40,-40,-40,-30,-40,-40,//state32 -40,-40,-40,-40,-40,-40,-2,-40,-40,-40,-2,-2,-40,-40,-2,-2,-2,-2,-2,//state33 -40,-40,-40,-40,-40,-40,7,-40,-40,-40,8,-32,46,-40,11,9,-30,10,-32,//state34 -40,-40,-40,-40,-40,-40,22,23,21,-40,-40,-40,-40,-40,-40,-40,-30,-40,-40,//state35 -40,-40,-40,-40,-40,-40,22,23,21,-40,-40,-40,-40,-40,-40,-40,-30,-40,-40,//state36 35,-40,-40,-40,-40,-40,-40,-40,-40,49,-40,-40,-40,-40,-40,-40,-30,-40,-40,//state37 -40,-40,-40,-40,-40,27,22,23,28,-40,-40,-40,-40,-40,-40,-40,-30,-40,-40,//state38 -40,-40,-40,-40,-40,-40,22,23,21,-40,-40,-40,-40,-40,-40,-40,-30,-40,-40,//state39 -40,-40,-40,-16,-40,-40,-40,-40,-40,-16,-40,-40,-40,-40,-40,-40,-30,-40,-40,//state40 35,-40,39,-40,-40,-40,-40,-40,-40,-40,-40,-40,-40,-40,-40,-40,-30,-40,-40,//state41 -40,-40,-40,38,-40,-40,-40,-40,-40,52,-40,-40,-40,-40,-40,-40,-30,-40,-40,//state42 35,-40,39,-40,-40,-40,-31,-40,-40,49,-40,-40,-40,-40,-40,-40,-30,-40,-40,//state43 -40,-40,-40,-40,-40,-40,-31,-40,-40,-40,-31,-31,-12,-12,-31,-31,-30,-31,-31,//state44 -40,-40,-40,-40,-40,-40,-4,-40,-40,-40,-4,-4,-40,-40,-4,-4,53,-4,-4,//state45 -40,-40,-40,-40,-40,-40,-8,-40,-40,-40,-8,-8,-40,-40,-8,-8,-30,-8,-8,//state46 -18,36,-18,-18,-40,-40,-31,-40,-40,-18,-31,-31,-18,-40,-31,-31,-30,-31,-31,//state47 -20,-20,-20,-20,-40,-40,-31,-40,-40,-20,-31,-31,-20,-40,-31,-31,-30,-31,-31,//state48 -22,-22,-22,-22,-40,-40,-31,-40,-40,-22,-31,-31,-22,-40,-31,-31,-30,-31,-31,//state49 -40,-40,-40,-13,-40,-40,-40,-40,-40,-13,-40,-40,-40,-40,-40,-40,-30,-40,-40,//state50 35,-40,-40,-15,-40,-40,-40,-40,-40,-15,-40,-40,-40,-40,-40,-40,-30,-40,-40,//state51 -40,-40,-40,-17,-40,-40,-40,-40,-40,-17,-40,-40,-40,-40,-40,-40,-30,-40,-40,//state52 -40,-40,-40,-40,-40,-40,7,-40,-40,-40,8,-32,-32,-40,11,9,-30,10,-32,//state53 -40,-40,-40,-40,-40,-40,-5,-40,-40,-40,-5,-5,-40,-40,-5,-5,-30,-5,-5};//state54

Got:Goto() {

}

Got:~Goto() {

}

int Got:lookUp(char v,int s) { int n=vs.find_first_of(v,0); return Table[s-1][n]; }

string Got:vs="DSWLGMETF";

int Got:Table[54][9]={ 2,0,0,0,0,0,0,0,0,//state1 0,0,0,0,0,0,0,0,0,//state2 0,0,0,0,0,0,0,0,0,//state3 0,0,0,0,0,0,0,0,0,//state4 0,6,0,0,0,0,0,0,0,//state5 0,0,0,0,0,0,0,0,0,//state6 0,0,0,0,0,0,0,0,0,//state7 0,15,14,0,0,0,0,0,0,//state8 0,0,0,0,0,0,0,0,0,//state9 0,0,0,0,0,0,0,0,0,//state10 0,0,0,16,0,0,0,0,0,//state11 0,0,0,0,0,0,18,19,20,//state12 0,0,0,0,24,26,25,19,20,//state13 0,30,0,0,0,0,0,0,0,//state14 0,0,0,0,0,0,0,0,0,//state15 0,0,0,0,0,0,0,0,0,//state16 0,0,0,0,0,0,0,0,0,//state17 0,0,0,0,0,0,0,0,0,//state18 0,0,0,0,0,0,0,0,0,//state19 0,0,0,0,0,0,0,0,0,//state20 0,0,0,0,0,0,37,19,20,//state21 0,0,0,0,0,0,0,0,0,//state22 0,0,0,0,0,0,0,0,0,//state23 0,0,0,0,0,0,0,0,0,//state24 0,0,0,0,0,0,0,0,0,//state25 0,0,0,0,0,0,0,0,0,//state26 0,0,0,0,0,40,41,19,20,//state27 0,0,0,0,42,26,43,19,20,//state28 0,0,0,0,0,0,0,0,0,//state29 0,0,0,0,0,0,0,0,0,//state30 0,0,0,0,0,0,0,0,0,//state31 0,0,0,0,0,0,0,0,0,//state32 0,0,0,0,0,0,0,0,0,//state33 0,45,0,0,0,0,0,0,0,//state34 0,0,0,0,0,0,0,47,20,//state35 0,0,0,0,0,0,0,0,48,//state36 0,0,0,0,0,0,0,0,0,//state37 0,0,0,0,0,50,41,19,20,//state38 0,0,0,0,0,0,51,19,20,//state39 0,0,0,0,0,0,0,0,0,//state40 0,0,0,0,0,0,0,0,0,//state41 0,0,0,0,0,0,0,0,0,//state42 0,0,0,0,0,0,0,0,0,//state43 0,0,0,0,0,0,0,0,0,//state44 0,0,0,0,0,0,0,0,0,//state45 0,0,0,0,0,0,0,0,0,//state46 0,0,0,0,0,0,0,0,0,//state47 0,0,0,0,0,0,0,0,0,//state48 0,0,0,0,0,0,0,0,0,//state49 0,0,0,0,0,0,0,0,0,//state50 0,0,0,0,0,0,0,0,0,//state51 0,0,0,0,0,0,0,0,0,//state52 0,54,0,0,0,0,0,0,0,//state53 0,0,0,0,0,0,0,0,0//state54 };

Compiler::optimize() { int i,j,f; string t="\tpush ax\n\tpop ax\n"; do{ f=0; j=code.length()-17; for(i=0;i<j;i++){ if(code.substr(i,17)==t){ f=1; code.replace(i,17,""); break; } } }while(f); }

int APIENTRY WinMain(HINSTANCE hInstance, HINSTANCE hPrevInstance, LPSTR lpCmdLine, int nCmdShow) { string file(lpCmdLine); file=file.substr(0,file.find_last_of(''.'')); if(!file.empty()){ Compiler cc(file); cc.preProcess(); cc.parser(); cc.emitter(); ofstream bat; bat.open((file+".bat").c_str(),ios::out); bat<<"masm "<<file<<".asm"<<endl; bat<<"link "<<file<<".obj"<<endl; bat.close(); } return 0; }

文法:

1: D->@()S. 程序->主函数 2: S->@=E;. 赋值语句 3: S->{W}. 组合语句 4: S->i(G)S. if语句 5: S->i(G)SeS. if-else语句 6: S->w(G)S. while语句 7: S->zL;. 变量定义 8: S->@(E);. 函数调用 9: W->WS. 多条语句列表 10: W->S. 语句列表 11: L->@. 变量名列表 12: L->L,@. 多个变量名列表 13: G->G&M. 逻辑表达式 14: G->M. 15: M->E>E. 关系表达式 16: M->!M. 逻辑非表达式 17: M->(G). 带括号的逻辑表达式 18: E->E+T. 加法表达式 19: E->T. 20: T->T*F. 乘法表达式 21: T->F. 22: F->(E). 带括号的算术表达式 23: F->@. 变量表达式 24: F->n. 数字表达式

#import system.out main() { int i; int s1,s2,s3; i=100; while(i<1000){ s1=i/100; s2=i/10%10; s3=i%10; if(s1<s2&&s2>s3) out(i); i=i+1; } }

鬼才看得过来，晕