sort.sca

一个简易的C编译器

1:/********************************************************

2:**　文件名：sort.c

3:**  作者：　何林强

4:**  描述：　这是hc-语言的一个示例程序，从三个字符中选出最大的一

5:**          一个打印出来。主要展示了hc-语言在函数调用方面的能力。

6:****************************************************************/

7:char max(char i,char j){
7  reserved word: char
7  ID, name=max
7  (
7  reserved word: char
7  ID, name=i
7  ,
7  reserved word: char
7  ID, name=j
7  )
7  {

8:	if(i>j){
8  reserved word: if
8  (
8  ID, name=i
8  >
8  ID, name=j
8  )
8  {

9:		return i;
9  reserved word: return
9  ID, name=i
9  ;

10:	}
10  }

11:	else{
11  reserved word: else
11  {

12:		return j;
12  reserved word: return
12  ID, name=j
12  ;

13:	}
13  }

14:}
14  }

15:

16:int chartmp(char i,char j){
16  reserved word: int
16  ID, name=chartmp
16  (
16  reserved word: char
16  ID, name=i
16  ,
16  reserved word: char
16  ID, name=j
16  )
16  {

17:	if(i==j){
17  reserved word: if
17  (
17  ID, name=i
17  ==
17  ID, name=j
17  )
17  {

18:		return 1;
18  reserved word: return
18  NUM, val=1
18  ;

19:	}
19  }

20:	else{ 
20  reserved word: else
20  {

21:		return 0;
21  reserved word: return
21  NUM, val=0
21  ;

22:	}
22  }

23:}
23  }

24:

25:void main(){
25  reserved word: void
25  ID, name=main
25  (
25  )
25  {

26:	char i1; char i2; char i3; char temp;
26  reserved word: char
26  ID, name=i1
26  ;
26  reserved word: char
26  ID, name=i2
26  ;
26  reserved word: char
26  ID, name=i3
26  ;
26  reserved word: char
26  ID, name=temp
26  ;

27:	int judge;
27  reserved word: int
27  ID, name=judge
27  ;

28:	i1='b'; 
28  ID, name=i1
28  =
28  char, val=b
28  ;

29:	i2='a'; 
29  ID, name=i2
29  =
29  char, val=a
29  ;

30:	i3='o';
30  ID, name=i3
30  =
30  char, val=o
30  ;

31:	temp=max(i1,i2);
31  ID, name=temp
31  =
31  ID, name=max
31  (
31  ID, name=i1
31  ,
31  ID, name=i2
31  )
31  ;

32:	judge=chartmp(temp,i1);
32  ID, name=judge
32  =
32  ID, name=chartmp
32  (
32  ID, name=temp
32  ,
32  ID, name=i1
32  )
32  ;

33:	if(judge){
33  reserved word: if
33  (
33  ID, name=judge
33  )
33  {

34:		temp=max(i1,i3);
34  ID, name=temp
34  =
34  ID, name=max
34  (
34  ID, name=i1
34  ,
34  ID, name=i3
34  )
34  ;

35:	}
35  }

36:	else{
36  reserved word: else
36  {

37:		temp=max(i2,i3);
37  ID, name=temp
37  =
37  ID, name=max
37  (
37  ID, name=i2
37  ,
37  ID, name=i3
37  )
37  ;

38:	}
38  }

39:	writeb(temp);
39  reserved word: writeb
39  (
39  ID, name=temp
39  )
39  ;

40:}
40  }

41:

41  EOF