Perl语言高级编程专题04.pdf

1Perl语言高级编程专题Lesson 4周晓方coursesxfzhou.homedns.org2Makefile and test codebase=calctarget=$(base).pm$(base)_lex.execc=cllex=flexyacc=byacc#all:targetall:$(target)$(base)_lex.exe:$(base)_lex.c$(base).tab.h$(cc)$(base)_lex.c$(base)_lex.c:$(base).l$(lex)-o$(base).l$(base).tab.h:$(base).y$(yacc)-d-c-b$(base)$(base).ydel$(base).tab.c$(base).pm:$(base).y$(yacc)-v-b$(base)-P$(base)$(base).y#clean:del$(base)_lex.objdel$(base).tab.hdel$(target)del$(base).outputdel$(base)_lex.cx=1;y=0;while(xnmakebyacc -v-b calc-P calc calc.yflex -ocalc_lex.c calc.lbyacc-d-c-b calc calc.ydel calc.tab.ccl calc_lex.ccalc_lex.c/out:calc_lex.execalc_lex.objD:perl calc.pl _3Convert to Pascal-part I#interruptingmy(%sym)=();prog_ev($presult);#compile to pascal(must call prog_ev first to initialize%sym)prog_to_pascal($presult,%sym,a.pas);1;sub pascal_var_convert my($symbol)=shift;my(%symbols)=%$symbol;my(key)=keys%symbols;my($count)=1;my($var);foreach$var(key)$symbols$var=sprintf(v%02d_,$count).$var;$count+;return%symbols;修改calc.pl，增加转换成pascal的代码 pascal是大小写无关的语言，要替换变量名4Convert to Pascal-part IIsub prog_to_pascal my($prog,$symbols,$pascalname)=_;my($OLD,$symbol,%symbols);%symbols=pascal_var_convert($symbols);print Converting to pascal$pascalnamen;open(PAS,$pascalname)or warn Cant open$pascalname for write.n;$OLD=select(PAS);print 0;#ont of P W V I iif($stype eq P)$result.=$indent.writeln(.pascal_expr($statement-1,$symbols).);n;elsif($stype eq W)$result.=$indent.while(.pascal_expr($statement-1,$symbols).)do beginn.pascal_statements($statement-2,$symbols,$level+1).$indent.end;n;elsif($stype eq V)$vname=$statement-1;$result.=$indent.$symbols$vname.t:=.pascal_expr($statement-2,$symbols).;n;elsif($stype eq I)$result.=$indent.if(.pascal_expr($statement-1,$symbols).)then beginn.pascal_statements($statement-2,$symbols,$level+1).$indent.end;n.$indent.else beginn.pascal_statements($statement-3,$symbols,$level+1).$indent.end;n;elsif($stype eq i)$result.=$indent.if(.pascal_expr($statement-1,$symbols).)then beginn.pascal_statements($statement-2,$symbols,$level+1).$indent.end;n;return$result;6Convert to Pascal-part IVsub pascal_expr my($expr,$symbols)=_;my($vname,$result);my($etype)=$expr-0;my($e1,$e2);if($etype eq N)$result=$expr-1;elsif($etype eq V)$vname=$expr-1;$result=$symbols$vname;else$e1=pascal_expr($expr-1,$symbols);$e2=pascal_expr($expr-2,$symbols);if($etype eq+)$result=($e1+$e2);elsif($etype eq-)$result=($e1-$e2);elsif($etype eq*)$result=($e1*$e2);elsif($etype eq/)$result=int($e1/$e2);elsif($etype eq)$result=($e1$e2);elsif($etype eq)$result=($e1=$e2);elsif($etype eq LE)$result=($e1=$e2);elsif($etype eq NE)$result=($e1$e2);elsif($etype eq EQ)$result=($e1=$e2);$result;注意 除法的整数类型转换 采用Turbo Pascal 6编译，整数是16位宽 运算发生溢出时，结果和Perl解释执行的结果不符7Convert to Pascal 实例p=3;while(p 4000)q=2;while(q*q 1)if(p/q)*q=p)q=0;q=q-1;if(q=1)print p;p=p+2;(*Pascal program generated by calc.pl.*)PROGRAM a(input,output);VARv01_p :INTEGER;v02_q :INTEGER;BEGINv01_p :=0;v02_q :=0;v01_p :=3;while(v01_p 4000)do beginv02_q :=2;while(v02_q*v02_q)1)do beginif(int(v01_p/v02_q)*v02_q)=v01_p)then beginv02_q :=0;end;v02_q :=(v02_q-1);end;if(v02_q=1)then beginwriteln(v01_p);end;v01_p :=(v01_p+2);end;END.计算4000以内的素数D:tpc a.pasTurbo Pascal Version 6.0 A.PAS(31)31 lines,4240 bytes code,660 bytes data.D:a.exe393139433947396739898改进，一些应用，回家作业改进：直接由.y产生变量表，参考calc_ppc一些应用：描述有限状态机的功能?生成Verilog文件描述子模块连接关系?生成顶层Verilog文件读取VHDL文件?转换成Verilog文件作业（在calc_pp基础上修改）：1.增加行注释，#开始的是注释2.变量名是小写字母开头，后面可以一个或跟多个小写字母或数字3.常数可以使用浮点数4.f开头的变量，数据类型为浮点数(double)5.自动判断运算是整点的，还是浮点的(*)6.输出C语言源程序，可以用VC的cl.exe编译7.用级数计算e