fa1.tmp

c++编写的pl0编译器

Iput pl/0 file ?y
0 var x,y;

1 procedure p;

1 var a;

2 procedure q;

2 var b;

3 begin (*q*)

4 b:=10;

4 end (*q*);

5 procedure s;

5 var c,d;

6 procedure r;

6 var e,f;

7 begin (*r*);

8 call q;

9 end (*r*);

10 begin (*s*);

11 call r;

12 end (*s*);

13 begin (*p*);

14 call s;

15 end (*p*);

16 begin (*main*)

17 call p;

18 end (*main*).