Malical 2.0的头文件

diameter

Malical.h当前进度

1. 
   
2. #define TOKEN_BUFFER_SIZE 256
   
3. #define SYMBOL_BUFFER_SZIE 32
   
4. #define STACK_SIZE 64
   
5. int MalicalError (char *);
   
6. int MalicalTokenError ();
   
7. typedef enum
   
8. {
   
9.     B_NO,
   
10.     B_IF,
    
11.     B_OT
    
12. } BLOCK;
    
13. typedef enum
    
14. {
    
15.     TT_NUM=1,
    
16.     TT_NIL,
    
17.     TT_BOOL,
    
18.     TT_STR,
    
19.     TT_SYM,
    
20.     TT_SIGN
    
21.    
    
22. } TOKEN_TYPE;
    
23. extern char token[];
    
24. extern char line[];
    
25. typedef enum
    
26. {
    
27.     SIGN_ADD = 256,
    
28.     SIGN_SUB,
    
29.     SIGN_MUL,
    
30.     SIGN_DIV,
    
31.     SIGN_POW,
    
32.     SIGN_BLK,
    
33.     SIGN_BRK,
    
34.     SIGN_AND,
    
35.     SIGN_OR ,
    
36.     SIGN_NOT,
    
37.     SIGN_EQ ,
    
38.     SIGN_NEQ,
    
39.     SIGN_BT ,
    
40.     SIGN_BE ,
    
41.     SIGN_LT ,
    
42.     SIGN_LE
    
43. } SIGN;
    
44. int GetToken (char *context,int pos,TOKEN_TYPE *type);
    
45. int SignToValue (char *sign);
    
46. typedef union
    
47. {
    
48.     int        b;
    
49.     char    *str;
    
50.     double    n;
    
51. }Value;
    
52. typedef enum
    
53. {
    
54.     VT_NIL,
    
55.     VT_BOOL,
    
56.     VT_STR,
    
57.     VT_NUM
    
58. }Type;
    
59. typedef struct
    
60. {
    
61.     Type    tag;
    
62.     Value    value;
    
63. }Object;
    
64. void           obj_ini (Object *d);
    
65. void           obj_clear (Object *d);
    
66. Object*        obj_copy (Object *d,const Object *s);
    
67. Object*        obj_create (Object *d,Type tag,void *value);
    
68. char*          obj_to_str(Object *s, char *str);
    
69. int EvalExpr (char *expr,Object *objr);
    

复制代码

object的实现借鉴了lua源码的思路
这次为了实现bool、string、double变量，采用了大量函数拷贝……
C语言没有class，又不让用C++，每次initi.alize、delete都要手动调用……
在9860上运行可能会变慢

diameter

我不得不这么写

1. Object l,r,result;
   
2. SIGN p_s;
   
3. obj_ini(&l);
   
4. obj_ini(&r);
   
5. obj_ini(&result);
   
6. p_s = sstk[--stop];
   
7. objs_pop(&obj_stk,&r);
   
8. objs_pop(&obj_stk,&l);
   
9. EvalLR(&l,&r,p_s,&result);
   
10. //puts(obj_to_str(&result,buf));
    
11. objs_push(&obj_stk,&result);
    
12. obj_clear(&l);
    
13. obj_clear(&r);
    
14. obj_clear(&result);

复制代码

要不然到时候l、r是字符串的话没有free掉heap memory一切就杯具了

hcz

支持一个。。。看上去定义很全

diameter

没法看了……

1. #define TOKEN_BUFFER_SIZE 256
   
2. #define SYMBOL_BUFFER_SZIE 32
   
3. #define STRING_BUFFER_SIZE 128
   
4. #define STACK_SIZE 64
   
5. #define NAME_LENGTH 12
   
6. 
   
7. extern const char *TYPE_TEXT[];
   
8. 
   
9. int MalicalError (const char *);
   
10. int MalicalTokenError ();
    
11. 
    
12. typedef enum
    
13. {
    
14. B_NO,
    
15. B_IF,
    
16. B_OT
    
17. } BLOCK;
    
18. 
    
19. typedef enum
    
20. {
    
21. TT_NUM=1,
    
22. TT_NIL,
    
23. TT_BOOL,
    
24. TT_STR,
    
25. TT_SYM,
    
26. TT_SIGN,
    
27. TT_BK,
    
28. TT_REF
    
29. } TOKEN_TYPE;
    
30. 
    
31. extern char token[];
    
32. extern char line[];
    
33. 
    
34. typedef enum
    
35. {
    
36. SIGN_ADD = 256,
    
37. SIGN_SUB,
    
38. SIGN_MUL,
    
39. SIGN_DIV,
    
40. SIGN_POW,
    
41. SIGN_BLK,
    
42. SIGN_BRK,
    
43. SIGN_AND,
    
44. SIGN_OR ,
    
45. SIGN_NOT,
    
46. SIGN_EQ ,
    
47. SIGN_NEQ,
    
48. SIGN_BT ,
    
49. SIGN_BE ,
    
50. SIGN_LT ,
    
51. SIGN_LE ,
    
52. SIGN_STO
    
53. } SIGN;
    
54. 
    
55. typedef struct
    
56. {
    
57. char *name;
    
58. SIGN value;
    
59. }SIGNVALUE;
    
60. 
    
61. int GetToken (char *context,int pos,TOKEN_TYPE *type);
    
62. int Match (char *text,char *find,TOKEN_TYPE type,int pl);
    
63. int GetTokenE (char *text,char l,char r,int pl);
    
64. int GetLine(char *text,int p);
    
65. int LineEmpty (int p);
    
66. int SignToValue (char *sign);
    
67. 
    
68. typedef union
    
69. {
    
70. int b;
    
71. char *str;
    
72. double n;
    
73. void *ref;
    
74. }Value;
    
75. 
    
76. typedef enum
    
77. {
    
78. VT_NIL,
    
79. VT_BOOL,
    
80. VT_STR,
    
81. VT_NUM,
    
82. VT_REF
    
83. }Type;
    
84. 
    
85. typedef struct
    
86. {
    
87. Type tag;
    
88. Value value;
    
89. }Object;
    
90. 
    
91. typedef struct
    
92. {
    
93. Object *stk[STACK_SIZE];
    
94. int size;
    
95. }ObjectStack;
    
96. 
    
97. void obj_ini (Object *d);
    
98. void obj_clear (Object *d);
    
99. Object* obj_copy (Object *d,const Object *s);
    
100. Object* obj_create (Object *d,Type tag,void *value);
     
101. char* obj_to_str(Object *s, char *str);
     
102. 
     
103. void objs_push (ObjectStack *s,Object *n_o);
     
104. void objs_pop (ObjectStack *s,Object *n_o);
     
105. void objs_clear (ObjectStack *s);
     
106. 
     
107. #define o_is_num(o) ((o)->tag==VT_NUM)
     
108. #define o_is_bool(o) ((o)->tag==VT_BOOL)
     
109. #define o_is_str(o) ((o)->tag==VT_STR)
     
110. 
     
111. 
     
112. int EvalExpr (char *expr,Object *objr);
     
113. 
     
114. typedef struct
     
115. {
     
116. char name[NAME_LENGTH];
     
117. Object obj;
     
118. }Variable;
     
119. 
     
120. typedef struct
     
121. {
     
122. Variable *vars[STACK_SIZE];
     
123. int size;
     
124. }VarStack;
     
125. 
     
126. void var_copy (Variable *d,Variable *s);
     
127. void var_create (Variable *v,const char *name,Object *obj);
     
128. void var_stk_push (VarStack * vs,Variable *v);
     
129. void var_stk_clear (VarStack * vs);
     
130. 
     
131. 
     
132. extern VarStack GlobalVar;
     
133. 
     
134. extern VarStack *LocalVar[];
     
135. extern int LocalTop;
     
136. 
     
137. void new_local_var_stack ();
     
138. void delete_local_var_stack ();
     
139. 
     
140. Variable* find_var (char *name);
     
141. 
     
142. typedef struct
     
143. {
     
144. char name[NAME_LENGTH];
     
145. int pos;
     
146. }FUNCTION;
     
147. 
     
148. void func_push (const char *name,int pos);
     
149. int find_func (const char *name);
     
150. 
     
151. // parser
     
152. void CallFun (const char *name,ObjectStack*);
     
153. int RunIfBlock (int p,int todo,int _todo);
     
154. int RunWhileBlock (int b,char *expr,int _todo);
     
155. int RunFunction (int p,int todo,int is_block);
     
156. int MalicalPrescan ();
     
157. int RunFile (char* file_name);
     
158. 
     
159. extern Object ReturnObject;
     

复制代码