test1.pl

实现pl0编译 能够实现简单的编译 满足编译原理的要求

const a=-4,b=-27,c=8.9,d="asdflj",e='x';

var x3,x54,x33,y:integer;
g:real;
function swap(a:integer;b:integer):real;
procedure mod(i,h:integer;s:char);
  
	var add:char;
               begin
 	   if h>i
	       then
	           i:=i+1
	  else
	       h:=i     
	   end.