7 Z: F9 L) H9 S8 m! o. U3 pvar # @& {% p+ u& d! V+ {7 G3 Z/ d变量名组:类型;7 J0 L' h1 {, J: L
…… 8 ^8 e3 I' Q9 w h3 L 2 `8 C) r, q9 Y( Qinterface I- k9 B0 Q2 U% i' ^
公开的函数声明; 8 l3 A' U3 R' [# [ 6 Y9 O* M* E N) k ?0 H1 oimplementation$ ^& |7 a& k8 ~; k+ b2 j$ w; J
公开和非公开的函数实现(非公开函数不需要声明)9 S& ~6 W( C+ z7 ]# X
end., f' o5 k0 `' c; I+ i
5 F/ s+ @' i. q# N& o* ~" O对于语言本身来说,type和uses最好应该属于interface和implementation的。不过我们为了方便,姑且就这么做吧。不然的话,既不能揭示更多的原理,又给自己添麻烦。 2 B( N- Z0 C/ G3 E0 E8 ~7 {1 o0 q. }& I1 E' s$ i9 n$ n+ f& @ 类型声明:& ?* w$ [ X) Q# h- x# ?
类型声明有普通类型、数组类型和函数指针。 D" x: Q' Y$ T) A
普通类型有boolean、integer、real、char和string。: R+ I4 B% d' g& l ~6 }9 ?! _
数组类型的声明方法是array of 类型。7 o' c0 I# q* k) o& e4 g
函数指针的声明方法跟函数声明一致,唯一的区别是函数指针不可出现函数名。譬如我们需要一个输入两个整数输出一个整数的函数指针,我们写:1 B( _: N( |5 j* K
type MyPointer=function(a,b:integer):integer;/ q. [, [0 q4 ~5 G
+ Z! e/ B( C2 s5 u+ c6 T% m 函数声明:: A8 e7 z4 R, C% `) @1 Y9 X
pascal的函数根据有没有返回值的区别使用不同的语法。基本语法如下: 6 O' `1 V5 p/ [4 I% W/ Yprocedure 函数名(参数表)和function 函数名(参数表):返回类型 6 T/ N; w) p5 q参数表的语法:[var]参数名组1:类型; [var]参数名组2:类型;……[var]参数名组n:类型。其中参数名组可以为多个用逗号隔开的参数名,也可以仅为一个参数名。其中var代表引用参数。* I9 G& n2 t: j
5 _+ l- X/ p/ F, B 函数实现:6 p$ H& C, f: p' ^8 `2 B
函数实现的语法由函数声明、分号、可选的变量声明、语句、分号构成。其中变量声明由var开头,后面街上多个“变量名组:类型;”构成。 ) K( M9 p1 m; r# v% ~6 c! ?7 C# c0 a' B/ m$ @ 语句: 4 C' k+ b/ D7 ~+ z1 S一般语句:表达式、new 类型[长度] a: v$ m' ~9 F5 O9 N赋值语句:变量名:=表达式* T/ f" ~, K& o: X9 s+ J! N2 i
分支语句:if 布尔表达式 then 语句 [else 语句] 3 q" n5 E0 p1 D" a- Y循环语句:) h9 G* n7 T% b" c4 Y' `% h8 z
for 变量:=值 to|downto 值 do 语句 9 o& U, d, `' s ?! i9 G. cwhile 布尔表达式 do 语句 / s& I4 {$ a3 Y4 `( U3 _+ E6 @+ Qrepeat 语句块 while 布尔表达式) b4 L3 H0 z' d0 _0 A; G: S; T8 r
复合语句:begin 语句块 end 9 U2 g" ]1 ^3 l2 ~7 ^命令语句:continue、break、exit3 K, Y: s2 Y' z* s/ y; R/ I& g( K
语句块为多个“语句;”连接而成。 - l* }% l; G6 G) P8 ^2 g + i( R- t" P+ U" t' O2 k表达式: " s' A+ [% s0 r1 q+ Y8 A( S3 O表达式由变量、操作符、常数以及函数调用构成。支持的操作符有+、-、*、div、mod、/、and、or、xor、not。其中/的返回值一定是real,div用于两个整数的整除,mod用于求余数。在这里我们修改一下pascal的语法,我们默认字符串的下标从0开始,而不是1。 5 w5 W* c6 F5 v数组和字符串可以用“表达式[下标]”来获得指向元素的引用。数组赋值的时候使用引用复制,字符串也使用引用复制。不过字符串修改的时候保证不影响到其他的副本,这个工作由虚拟机完成。 8 x' B8 G2 \4 V: x1 O. H6 [5 ]# o3 _/ G3 c% C8 @
既然有了这个简单的语法规定,我们可以试着来写一个程序。跟上一篇文章相同,我们写一个判断一个数字是否质数的函数:& \) D8 D, D4 h0 `; G
unit PrimeTest;) d5 x6 p* B' g1 j& L- i& N2 M
2 Q1 u; c" Z3 C* W7 u
uses IO;{writeln和read}: B5 [' \+ Z/ ~6 u
1 z7 Z; g) K) f8 d
interface9 Y/ i$ I$ C. m$ p' L8 d
function IsPrime(Num:integer):boolean;, {4 p5 I) q# r5 I8 O$ {' H) c' ~7 C7 h
- W4 [+ q+ b L5 a" |# u
implementation ( F6 K! ^! L( T- C5 l+ g% s6 p: A V1 ?( f! M$ @# }: A' ~
function IsPrime(Num:integer):boolean;( ?2 T& T9 x; \' e. v8 b; I* u
var i:integer; % d3 d% ~. l. R7 w# i+ L- p; jbegin/ v) h: z& ^1 Y) O5 e }
result:=true; {这是delphi设置返回值的方法,此处借用。exit用于退出函数,result变量仅仅用于设置返回值} / X( v% e: M( I2 ]if Num<2 then' Y; Z* ?3 l- q5 f
result:=false; T9 ~9 t/ W( e# G9 M( B
else if Num>2 then! P6 q3 J3 n7 x+ m2 Q. a5 N
for i:=2 to Num-1 do. g1 e) f! l! N0 C2 M
if Num mod i=0 then3 u4 N1 c$ E1 N% j+ B* C! w3 Y
result:=false; 2 y' d5 U7 j. ?end;1 L: P+ k" B3 x( f7 f+ S
$ I, l8 N/ m4 Q: u8 t
end. , }$ S% Q& L# u) r# H3 y7 _7 J& ?+ C
语法的介绍就到此结束了。在这里发一下牢骚。虽然我们知道C++很强大,但是其语法却是很不利于分析的。举个例子: 8 f0 g [& y) t0 |$ sA*B;知道是什么吗?乘法?指针声明? # i0 M% `3 j. }9 |1 za<b,c>d;知道是什么吗?逗号表达式?一个类型为某模板类的变量?8 y/ E5 [! ?" c: B5 L' y- h+ w
因此,各位有志于分析C++语法的大大们注意了,传统的先语法分析后语义分析的方法在C++面前基本上是一点用都没有。如果你不知道上述代码中两个A代表着什么(类型还是对象),你就无法正确得到你想要的语法树,那么你就惨了。所以,要分析C++,想个办法吧语法分析和语义分析揉在一起吧。在这里我很想知道早期的gcc为什么能用yacc来搞,用yacc写出来的C/C++编译器的代码肯定很难看的,虽然写得出来。 9 g' O# _9 L! a: z H9 s( r" E' @& q2 W
回到我们的主题中。这个语言拥有可以递归调用的函数以及全局变量,我们需要准备一个堆栈和一个堆才可以支撑所有的内存操作。堆栈有很多种实现的方法,可以放在堆里也可以不放在堆里。这个决策将对接下去的指令集将会有一点小影响。0 g- F5 \/ T7 }1 G# [# t( j6 Z
$ F' J; ?/ L) S) ?* V3 n现在让我们考虑一下各种类型的结构。首先,boolean、integer、char和real都是实体类型,只需要那么一段数据就行了。在32位的机器上分别是1、4、1、8个字节。其次是函数指针。我们可以使用一个全局的ID指向一个函数,就跟我们拿函数去编号一样,一个函数一个编号。那么,函数指针跟integer就一致了,区别在于函数指针不能计算也不能转换类型。2 b" C, |- t: v5 Z& Z; F
; j" V) @0 |" D9 H接下来是字符串和数组,字符串和数组的结构都是一致的,我们可以使用引用计数来达到垃圾收集的功能。根据类型理论我们可以知道我们刚刚设计的语言是不可能存在内存泄漏的(如果所有的数据都只让脚本修改)。于是,我们可以让数组和字符串的结构如下: 6 r/ _ E/ |9 j6 @ y) P. Q% v[引用计数:int][数据] 9 J5 H0 y* Z5 D( C: n: D: @当创建一个数组变量的时候,我们让数组的值为nil,让其为空,需要使用new创建一个数组。new创建的数组的引用计数是1。如果这个数组被复制的话,那么引用计数也会随之增大。当引用计数为0,也就是所有的变量都不指向这个数组的时候,数组就该释放了。而且刚刚设计的这门语言是保险的,也就是说,只要我们无法访问到这个数组,那么这个数组就一定会被释放。至于原因就留给大家思考了。 {9 h" v3 u( u' a# f! T N5 j" J# \& l
字符串的结构跟array of char是一致的,但是字符串有一个特殊的地方。我们将一个字符串赋值给另一个字符串的时候,两个字符串变量其实指向相同的空间。但是我们对其中一个字符串进行修改的时候,是不影响到另一个字符串的。我们可以在修改之前将被修改的字符串进行复制。举个例子: % l' k3 e* j; `2 Y0 sa="vczh"; 8 |/ ~' n$ N% f. `( Ob=a;* l. w$ R7 G6 U' q5 B. ~5 g& d
这个时候字符串的引用计数是2。当我们修改b(而不是对b赋值),譬如说b[0]= 'V'的时候,我们对b进行复制。这个时候内存中就有两个引用计数为1而且内容都是vczh,但是指向的空间不同的字符串了。这个时候我们对b指向的空间进行修改的时候,a指向的空间是不变的。这种方法是经常被使用的。 ) p# b* ]; X8 a! r% K2 I/ j. `, ^* k " ^1 F" v$ ~( M7 \接下来我们考虑堆栈的构造。堆栈是用来存放不支持闭包的语言的函数中的参数和变量的。对于我们刚刚说的这门语言来说,堆栈是相当合适的数据结构。堆栈是分段的,一个段记录的内容有参数、变量、临时信息、函数参数起始位置以及函数的执行位置。函数的执行位置用于记录当前函数在调用新函数之前所执行的指令。有了这个信息之后,我们就可以在函数返回的时候找到合适的指令继续执行了。! ?* u6 l/ Y# e6 D- T
" p E" W* D2 C ]如果堆栈中存放字符串或者数组的话,在堆栈的一个段被销毁的同时,我们需要减少相应的字符串或数组的引用计数,并在适当的时候释放他们。那么,我们如何知道堆栈的什么地方记录着什么类型的变量呢?因为表达式也会频繁地使用堆栈的临时空间进行计算,因此类型信息有必要放在堆栈里面。如果不这样做的话,我们就要在指令集里面加入各种不同的pop指令,并在函数的很多地方使用。这两种做法各有利弊,在实现的时候需要衡量一下。- q4 w4 E) x5 a6 e
" ~# D- E' I1 q5 j% }% L函数调用的时候需要大量更改堆栈的内容。在这里我举一个例子。已知如下代码:6 N" a0 r3 `9 w* R; \+ E, H
function A(x:integer):integer; ' k6 k" R8 G6 u6 Bbegin + b9 @% H! I5 C0 k' z& i. P2 J/ j+ vresult:=B(x+1,x-1);1 v0 Z7 G9 e0 M* T& r: G2 j( L
end; 4 F4 v" S: P" Q0 y$ W3 A* X8 a n0 ?# w+ u, C. i
function B(x,y:integer):integer;$ ~0 I3 n3 @4 T% z* M
begin, f" a( q- x" _9 @4 s Z
result:=x*y; + c+ t }* z' o+ v( X/ e* Cend; & g7 |: K9 U! b6 _6 y0 U& ~ 8 t+ _6 t3 n I8 E3 w我们可以假想出一个编译后的指令:4 l9 O+ j+ H- Y6 B. E
FUNCTION_A:" r) i; l, T9 U/ R" J* E
00 push x; 6 t) O5 [3 Z* E1 K. }" q* H01 push 1;7 e0 H) T0 f+ {& [0 M* `
02 add; & c* F3 |+ F" q q2 U03 push x;- B- W n0 i0 g$ n+ J7 B( q% p
04 push 1; 7 N) Z" P/ P3 N05 sub;9 k9 t) Q& y0 F' k" v2 p. e% E
06 call FUNCTION_B; n- @. k0 _/ S
07 pushref result;0 N7 i5 z# D! `5 s7 L; N
08 assign;7 m2 G4 J& A2 \0 o
09 ret 1; . P; W9 S% A" y- h$ M& PFUNCTION_B:2 o3 o% @% J) r, U
10 push x; ' p! W, M' c2 i! t' Y; n$ j11 push y;# q; M0 w/ T1 b% ~4 {
12 mul; , ~% v, E7 n( D8 v13 pushref result; ; T5 a9 @ N% h! f! e! A$ A14 assign; " ?, @* a ~$ F( T5 `0 A1 s5 @15 ret 2;/ V. |5 P/ y+ H3 v
3 \) X& v1 X7 W' `
当我们执行A(5)的时候,堆栈如下: : C* P' Z) r7 ]0 Q! g: o( R- m- H* ^! O y7 l; @. F1 \5 Z2 `5 m) P3 B地址 内容 % w4 { d+ C: d<以前的内容> . a9 `% p; w9 T100 5{x}5 u2 x7 ^. _* F5 p I- D$ i
104 0{result变量} 6 r* U, f: r1 Z$ g. ~9 |) n0 K108 100{FUNCTION_A参数起始地址}3 A) H v. n, i5 u/ c+ s
112 ×××{FUNCTION_A返回的时候的地址} ) n" ]7 ~+ L. d 3 r1 y) K, l9 u, W1 E/ i3 Z好了,我们一直执行指令,直到05(sub;)。这个时候堆栈上有了x+1和x-1两个数:7 k7 w) H- K7 m. l; S, h5 b Z
# ~) h) j, {* e4 ~
地址 内容 4 U; n/ h& Z$ A( n* w; Z<以前的内容> 9 I1 Q% J$ B* z100 5{x}$ r1 [1 }, D+ E6 \& A& S
104 0{result变量}7 G. X$ z' ?( @$ d" G
108 100{FUNCTION_A参数起始地址}9 ~+ k& k* V0 c, T5 Y2 `- ]) L! r
112 ×××{FUNCTION_A返回的时候的地址} 6 M8 I8 X- e# M/ X5 I' L5 L116 6: _8 a% l% K3 t6 [7 \) f9 {
120 4- E- e1 R/ s+ K% |6 D1 u2 K: _$ I0 h7 H
+ t5 ?$ w& s- m, G
现在执行06(call FUNCTION_B;),堆栈变成这样: 1 f/ q6 \: f U' d+ R1 N$ @7 `$ d
地址 内容 ) M& p$ P/ a: _3 E<以前的内容>: U& \/ l5 q4 d1 {6 J: J
100 5{x} 3 w- p2 n7 r7 U/ y P104 0{result变量} ; |/ E' t5 E* N+ M' G Q108 100{FUNCTION_A参数起始地址}8 b5 v6 u2 r5 x8 g
112 ×××{FUNCTION_A返回的时候的地址} - K; _% P1 W4 t t
116 66 |, n" Y) P# B! p1 n; _$ F
120 4- @' E) S, G' v$ b; ]2 x8 Q
124 0{新的result 变量}; H; w2 b& U# g+ G$ [
128 116{FUNCTION_B参数起始地址} [0 N d) F; ?- K132 07{FUNCTION_B返回的时候的地址,指向pushref result;指令} 0 f$ C+ f- K, x% f0 x/ ^! h! N2 F. k
然后一直执行,终于FUNCTION_B执行完了,到了15(ret 2)。 ! x( I0 K5 ]+ r t4 _) v; v) f$ z- G, q4 i" p* d0 d/ z: e9 _! _. ]
地址 内容 4 X3 B W8 ^& v7 R2 Z: W0 z, Y$ B<以前的内容>! C ~4 |) I0 `$ Z% G; J. @
100 5{x} ! Q7 c% W: U( ~) R- c2 A104 0{result变量} * y& i6 ?8 ^" F0 e108 100{FUNCTION_A参数起始地址} : e9 T: @. j6 C112 ×××{FUNCTION_A返回的时候的地址} : I) o: Z& ` @: |' e4 T, @/ N
116 6& Y( l' H+ L, J7 t
120 4 : x% L' y" x0 R; |124 24{新的result 变量,被更改}! k! S, [0 O8 @. {6 D- H
128 116{FUNCTION_B参数起始地址} / F, v3 o* ~1 i3 J6 c4 ~132 07{FUNCTION_B返回的时候的地址,指向pushref result;指令}, p2 n/ E- j: S4 M
0 ], }) {* s/ g. s j$ `
于是执行15(ret 2)。ret 2的意思是属于FUNCTION_B的参数和变量一共有2个。虚拟机寻找有没有字符串和数组,发现没有。这时,虚拟机将132处的返回地址07拿出来,并将124处的函数返回值24保存好,最后将堆栈顶部重新指向116,并push函数返回值。这个时候堆栈如下:5 L& B- C0 [' W
+ ]7 s# C/ R0 {3 d地址 内容 ' L: g9 o' p% }, S+ a# h<以前的内容>! ]. K7 }. O0 K: J
100 5{x} 6 @+ j) m8 | q8 k' c104 0{result变量}" B; U. n1 m! L0 e
108 100{FUNCTION_A参数起始地址} 8 Y- M. k1 Q4 T$ F+ B112 ×××{FUNCTION_A返回的时候的地址} ( S0 G/ u8 `7 Y7 z
116 24{函数执行结果}% P/ C- }0 n' g4 K3 X$ H- r R
$ P: W6 l x# {/ k+ _
这就是一次函数调用和函数返回之后堆栈中数据的变动了。当然,我们可以加入新的指令以调整result变量、函数参数、起始地址以及返回地址的位置,让call和ret指令轻松一些,效率也提高一些。不过这是后话了。事实上上述指令中ret指令的参数是需要一个函数的参数表和变量表才能正确工作的。不同的解决方案中的ret有不同的意义。 6 g9 }+ K! `% ~! U" S4 M6 {, ]& s" W& u: _; Q+ g
这篇文章就到此为止了。刚刚开始实习,杂七杂八的事情比较多,因此写文章的速度会慢一些。下一批文章将讲述如何对我们构造的一门脚本语言进行语法分析以及语义分析。语法分析和语义分析主要还是用来分析代码并检查语法错误的,并附带给出一个描述语言的数据结构,用于接下来的代码生成等问题。 ) }' l+ d9 L5 Q' v( w3 ^# a