/*??
?*?PL/0?complier?program?for?win32?platform?（implemented?in?C）?
?*?
?*?The?program?has?been?test?on?Visual?C++?6.0?Visual?C++.NET?and??
?*?Visual?C++.NET?2003?on?Win98?WinNT?Win2000?WinXP?and?Win2003?
?*?
?*?使用方法：?
?*?運行后輸入PL/0源程序文件名?
?*?回答是否輸出虛擬機代碼?
?*?回答是否輸出名字表?
?*?fa.tmp輸出虛擬機代碼?
?*?fa1.tmp輸出源文件及其各行對應的首地址?
?*?fa2.tmp輸出結果?
?*?fas.tmp輸出名字表?
?*/?
#include??
#include?“pl0.h“?
#include?“string.h“?

/*?解釋執行時使用的棧?*/?
#define?stacksize?500??


int?main（）?
{?
????bool?nxtlev[symnum];?
?????
	printf（“Input?pl/0?file????“）;?
	scanf（“%s“?fname）;?/*?輸入文件名?*/?

	fin?=?fopen（fname?“r“）;?

	if?（fin）?
	{?
		printf（“List?object?code?（Y/N）“）;?/*?是否輸出虛擬機代碼?*/?
		scanf（“%s“?fname）;?
		listswitch?=?（fname[0]==‘y‘?||?fname[0]==‘Y‘）;?

		printf（“List?s

?屬性????????????大小?????日期????時間???名稱
-----------?---------??----------?-----??----
?????文件???????24079??2013-11-01?02:11??all.c
?????文件????????5350??2013-10-30?10:25??pl0.h