3062ed700fa8f10b30dcb016bfebb73dc6ed3e9c
[mono.git] / mcs / ilasm / parser / ILParser.jay
1 %{\r
2 // Mono::ILASM::ILParser\r
3 //\r
4 // (C) Sergey Chaban (serge@wildwestsoftware.com)\r
5 \r
6 using PEAPI;\r
7 using System;\r
8 using System.Collections;\r
9 \r
10 namespace Mono.ILASM {\r
11 \r
12         public class ILParser {\r
13 \r
14                 private CodeGen codegen;\r
15 \r
16                 public ILParser (CodeGen codegen) {\r
17                         this.codegen = codegen;\r
18                 }\r
19 \r
20                 public CodeGen CodeGen {\r
21                         get { return codegen; }\r
22                 }\r
23                 \r
24 %}\r
25 \r
26 %token EOF\r
27 \r
28 /* ID - alpha-numeric identifier */\r
29 %token ID\r
30 \r
31 /* QSTRING - quoted string */\r
32 %token QSTRING\r
33 \r
34 /* SQSTRING - single quoted string */\r
35 %token SQSTRING\r
36 \r
37 /* INT32 - 32 bit integer */\r
38 %token INT32\r
39 \r
40 /* INT64 - 64 bit integer */\r
41 %token INT64\r
42 \r
43 /* FLOAT64 - floating point number */\r
44 %token FLOAT64\r
45 \r
46 \r
47 \r
48 /* Punctuation */\r
49 %token DOT           "."\r
50 %token OPEN_BRACE    "{"\r
51 %token CLOSE_BRACE   "}"\r
52 %token OPEN_BRACKET  "["\r
53 %token CLOSE_BRACKET "]"\r
54 %token OPEN_PARENS   "("\r
55 %token CLOSE_PARENS  ")"\r
56 %token COMMA         ","\r
57 %token COLON         ":"\r
58 %token DOUBLE_COLON  "::"\r
59 %token SEMICOLON     ";"\r
60 %token ASSIGN        "="\r
61 %token STAR          "*"\r
62 %token AMPERSAND     "&"\r
63 %token PLUS          "+"\r
64 %token SLASH         "/"\r
65 %token BANG          "!"\r
66 %token ELLIPSIS      "..."\r
67 %token DASH          "-"\r
68 \r
69 \r
70 \r
71 \r
72 %token UNKNOWN\r
73 \r
74 \r
75 /* INSTR_* instruction types */\r
76 %token INSTR_NONE\r
77 %token INSTR_VAR\r
78 %token INSTR_I\r
79 %token INSTR_I8\r
80 %token INSTR_R\r
81 %token INSTR_BRTARGET\r
82 %token INSTR_METHOD\r
83 %token INSTR_NEWOBJ\r
84 %token INSTR_FIELD\r
85 %token INSTR_TYPE\r
86 %token INSTR_STRING\r
87 %token INSTR_SIG\r
88 %token INSTR_RVA\r
89 %token INSTR_TOK\r
90 %token INSTR_SWITCH\r
91 %token INSTR_PHI\r
92 \r
93 \r
94 \r
95 \r
96 \r
97 \r
98 \r
99 /* Mechanically generated  - DO NOT EDIT! */\r
100 \r
101 \r
102 /* Directives */\r
103 %token D_ADDON\r
104 %token D_ALGORITHM\r
105 %token D_ASSEMBLY\r
106 %token D_BACKING\r
107 %token D_BLOB\r
108 %token D_CAPABILITY\r
109 %token D_CCTOR\r
110 %token D_CLASS\r
111 %token D_COMTYPE\r
112 %token D_CONFIG\r
113 %token D_CORFLAGS\r
114 %token D_CTOR\r
115 %token D_CUSTOM\r
116 %token D_DATA\r
117 %token D_EMITBYTE\r
118 %token D_ENTRYPOINT\r
119 %token D_EVENT\r
120 %token D_EXELOC\r
121 %token D_EXPORT\r
122 %token D_FIELD\r
123 %token D_FILE\r
124 %token D_FIRE\r
125 %token D_GET\r
126 %token D_HASH\r
127 %token D_IMPLICITCOM\r
128 %token D_LANGUAGE\r
129 %token D_LINE\r
130 %token D_XLINE\r
131 %token D_LOCALE\r
132 %token D_LOCALS\r
133 %token D_MANIFESTRES\r
134 %token D_MAXSTACK\r
135 %token D_METHOD\r
136 %token D_MIME\r
137 %token D_MODULE\r
138 %token D_MRESOURCE\r
139 %token D_NAMESPACE\r
140 %token D_ORIGINATOR\r
141 %token D_OS\r
142 %token D_OTHER\r
143 %token D_OVERRIDE\r
144 %token D_PACK\r
145 %token D_PARAM\r
146 %token D_PERMISSION\r
147 %token D_PERMISSIONSET\r
148 %token D_PROCESSOR\r
149 %token D_PROPERTY\r
150 %token D_PUBLICKEY\r
151 %token D_PUBLICKEYTOKEN\r
152 %token D_REMOVEON\r
153 %token D_SET\r
154 %token D_SIZE\r
155 %token D_SUBSYSTEM\r
156 %token D_TITLE\r
157 %token D_TRY\r
158 %token D_VER\r
159 %token D_VTABLE\r
160 %token D_VTENTRY\r
161 %token D_VTFIXUP\r
162 %token D_ZEROINIT\r
163 \r
164 \r
165 /* Keywords */\r
166 %token K_AT\r
167 %token K_AS\r
168 %token K_IMPLICITCOM\r
169 %token K_IMPLICITRES\r
170 %token K_NOAPPDOMAIN\r
171 %token K_NOPROCESS\r
172 %token K_NOMACHINE\r
173 %token K_EXTERN\r
174 %token K_INSTANCE\r
175 %token K_EXPLICIT\r
176 %token K_DEFAULT\r
177 %token K_VARARG\r
178 %token K_UNMANAGED\r
179 %token K_CDECL\r
180 %token K_STDCALL\r
181 %token K_THISCALL\r
182 %token K_FASTCALL\r
183 %token K_MARSHAL\r
184 %token K_IN\r
185 %token K_OUT\r
186 %token K_OPT\r
187 %token K_LCID\r
188 %token K_RETVAL\r
189 %token K_STATIC\r
190 %token K_PUBLIC\r
191 %token K_PRIVATE\r
192 %token K_FAMILY\r
193 %token K_INITONLY\r
194 %token K_RTSPECIALNAME\r
195 %token K_SPECIALNAME\r
196 %token K_ASSEMBLY\r
197 %token K_FAMANDASSEM\r
198 %token K_FAMORASSEM\r
199 %token K_PRIVATESCOPE\r
200 %token K_LITERAL\r
201 %token K_NOTSERIALIZED\r
202 %token K_VALUE\r
203 %token K_NOT_IN_GC_HEAP\r
204 %token K_INTERFACE\r
205 %token K_SEALED\r
206 %token K_ABSTRACT\r
207 %token K_AUTO\r
208 %token K_SEQUENTIAL\r
209 %token K_ANSI\r
210 %token K_UNICODE\r
211 %token K_AUTOCHAR\r
212 %token K_IMPORT\r
213 %token K_SERIALIZABLE\r
214 %token K_NESTED\r
215 %token K_LATEINIT\r
216 %token K_EXTENDS\r
217 %token K_IMPLEMENTS\r
218 %token K_FINAL\r
219 %token K_VIRTUAL\r
220 %token K_HIDEBYSIG\r
221 %token K_NEWSLOT\r
222 %token K_UNMANAGEDEXP\r
223 %token K_PINVOKEIMPL\r
224 %token K_NOMANGLE\r
225 %token K_OLE\r
226 %token K_LASTERR\r
227 %token K_WINAPI\r
228 %token K_NATIVE\r
229 %token K_IL\r
230 %token K_CIL\r
231 %token K_OPTIL\r
232 %token K_MANAGED\r
233 %token K_FORWARDREF\r
234 %token K_RUNTIME\r
235 %token K_INTERNALCALL\r
236 %token K_SYNCHRONIZED\r
237 %token K_NOINLINING\r
238 %token K_CUSTOM\r
239 %token K_FIXED\r
240 %token K_SYSSTRING\r
241 %token K_ARRAY\r
242 %token K_VARIANT\r
243 %token K_CURRENCY\r
244 %token K_SYSCHAR\r
245 %token K_VOID\r
246 %token K_BOOL\r
247 %token K_INT8\r
248 %token K_INT16\r
249 %token K_INT32\r
250 %token K_INT64\r
251 %token K_FLOAT32\r
252 %token K_FLOAT64\r
253 %token K_ERROR\r
254 %token K_UNSIGNED\r
255 %token K_DECIMAL\r
256 %token K_DATE\r
257 %token K_BSTR\r
258 %token K_LPSTR\r
259 %token K_LPWSTR\r
260 %token K_LPTSTR\r
261 %token K_OBJECTREF\r
262 %token K_IUNKNOWN\r
263 %token K_IDISPATCH\r
264 %token K_STRUCT\r
265 %token K_SAFEARRAY\r
266 %token K_INT\r
267 %token K_BYVALSTR\r
268 %token K_TBSTR\r
269 %token K_LPVOID\r
270 %token K_ANY\r
271 %token K_FLOAT\r
272 %token K_LPSTRUCT\r
273 %token K_NULL\r
274 %token K_PTR\r
275 %token K_VECTOR\r
276 %token K_HRESULT\r
277 %token K_CARRAY\r
278 %token K_USERDEFINED\r
279 %token K_RECORD\r
280 %token K_FILETIME\r
281 %token K_BLOB\r
282 %token K_STREAM\r
283 %token K_STORAGE\r
284 %token K_STREAMED_OBJECT\r
285 %token K_STORED_OBJECT\r
286 %token K_BLOB_OBJECT\r
287 %token K_CF\r
288 %token K_CLSID\r
289 %token K_METHOD\r
290 %token K_CLASS\r
291 %token K_PINNED\r
292 %token K_MODREQ\r
293 %token K_MODOPT\r
294 %token K_TYPEDREF\r
295 %token K_WCHAR\r
296 %token K_CHAR\r
297 %token K_FROMUNMANAGED\r
298 %token K_CALLMOSTDERIVED\r
299 %token K_BYTEARRAY\r
300 %token K_WITH\r
301 %token K_INIT\r
302 %token K_TO\r
303 %token K_CATCH\r
304 %token K_FILTER\r
305 %token K_FINALLY\r
306 %token K_FAULT\r
307 %token K_HANDLER\r
308 %token K_TLS\r
309 %token K_FIELD\r
310 %token K_REQUEST\r
311 %token K_DEMAND\r
312 %token K_ASSERT\r
313 %token K_DENY\r
314 %token K_PERMITONLY\r
315 %token K_LINKCHECK\r
316 %token K_INHERITCHECK\r
317 %token K_REQMIN\r
318 %token K_REQOPT\r
319 %token K_REQREFUSE\r
320 %token K_PREJITGRANT\r
321 %token K_PREJITDENY\r
322 %token K_NONCASDEMAND\r
323 %token K_NONCASLINKDEMAND\r
324 %token K_NONCASINHERITANCE\r
325 %token K_READONLY\r
326 %token K_NOMETADATA\r
327 %token K_ALGORITHM\r
328 %token K_FULLORIGIN\r
329 %token K_NAN\r
330 %token K_INF\r
331 %token K_PUBLICKEY\r
332 %token K_ENABLEJITTRACKING\r
333 %token K_DISABLEJITOPTIMIZER\r
334 %token K_PRESERVESIG\r
335 %token K_BEFOREFIELDINIT\r
336 %token K_ALIGNMENT\r
337 %token K_NULLREF\r
338 %token K_VALUETYPE\r
339 %token K_COMPILERCONTROLLED\r
340 %token K_REQSECOBJ\r
341 %token K_ENUM\r
342 %token K_OBJECT\r
343 %token K_STRING\r
344 %token K_TRUE\r
345 %token K_FALSE\r
346 \r
347 /* end generated */\r
348 \r
349 \r
350 \r
351 \r
352 \r
353 %start il_file\r
354 \r
355 %%\r
356 \r
357 il_file                 : decls\r
358                         ;      \r
359 \r
360 decls                   : /* EMPTY */\r
361                         | decls decl                                            \r
362                         ;\r
363 \r
364 decl                    : classAll\r
365                         | nameSpaceHead OPEN_BRACE decls CLOSE_BRACE { codegen.CurrentNameSpace = String.Empty; }\r
366                         | methodAll\r
367                         | fieldDecl\r
368                         | dataDecl\r
369                         | vtableDecl\r
370                         | vtfixupDecl\r
371                         | extSourceSpec\r
372                         | fileDecl\r
373                         | assemblyHead OPEN_BRACE assemblyDecls CLOSE_BRACE \r
374                         | assemblyRefHead OPEN_BRACE assemblyRefDecls CLOSE_BRACE \r
375                         | comtypeHead OPEN_BRACE comtypeDecls CLOSE_BRACE \r
376                         | manifestResHead OPEN_BRACE manifestResDecls CLOSE_BRACE \r
377                         | moduleHead\r
378                         | secDecl\r
379                         | customAttrDecl\r
380                         | D_SUBSYSTEM int32     \r
381                         | D_CORFLAGS int32      \r
382                         | D_FILE K_ALIGNMENT int32      \r
383                         | languageDecl\r
384                         ;\r
385 \r
386 compQstring             : QSTRING \r
387                         | compQstring PLUS QSTRING {$$ = ($1 as string) + ($3 as string);}\r
388                         ;\r
389 \r
390 languageDecl            : D_LANGUAGE SQSTRING   \r
391                         | D_LANGUAGE SQSTRING COMMA SQSTRING    \r
392                         | D_LANGUAGE SQSTRING COMMA SQSTRING COMMA SQSTRING     \r
393                         ;\r
394 \r
395 customAttrDecl          : D_CUSTOM customType \r
396                         | D_CUSTOM customType ASSIGN compQstring \r
397                         | customHead bytes CLOSE_PARENS \r
398                         | D_CUSTOM OPEN_PARENS customType CLOSE_PARENS customType \r
399                         | D_CUSTOM OPEN_PARENS customType CLOSE_PARENS customType ASSIGN compQstring \r
400                         | customHeadWithOwner bytes CLOSE_PARENS \r
401                         ;\r
402 \r
403 moduleHead              : D_MODULE \r
404                         | D_MODULE name1 \r
405                         | D_MODULE K_EXTERN name1       \r
406                         ;\r
407 \r
408 vtfixupDecl             : D_VTFIXUP OPEN_BRACKET int32 CLOSE_BRACKET vtfixupAttr K_AT id \r
409                         ;\r
410 \r
411 vtfixupAttr             : /* EMPTY */ \r
412                         | vtfixupAttr K_INT32 \r
413                         | vtfixupAttr K_INT64 \r
414                         | vtfixupAttr K_FROMUNMANAGED \r
415                         | vtfixupAttr K_CALLMOSTDERIVED \r
416                         ;\r
417 \r
418 vtableDecl              : vtableHead bytes CLOSE_PARENS \r
419                         ;\r
420 \r
421 vtableHead              : D_VTABLE ASSIGN OPEN_PARENS \r
422                         ;\r
423 \r
424 nameSpaceHead           : D_NAMESPACE name1 \r
425                         {\r
426                                 codegen.CurrentNameSpace = (string) $2;\r
427                         }\r
428                         ;\r
429 \r
430 classHead               : D_CLASS type_attr id extendsClause implClause\r
431                         {\r
432                                 if ($4 != null) {\r
433                                         codegen.AddClass ((TypeAttr) $2, (string) $3, \r
434                                                 ((TypeRef)$4).Type as Class, null);\r
435                                 } else {\r
436                                         codegen.AddClass ((TypeAttr)$2, (string) $3, null);\r
437                                 }\r
438                                 \r
439                                 ArrayList impl_list = (ArrayList) $5;\r
440                                 if (impl_list != null) {\r
441                                         foreach (TypeRef type_ref in impl_list)\r
442                                                 codegen.CurrentClass.AddImplementedInterface (type_ref.Type as Class);\r
443                                 }\r
444                         }\r
445                         ;\r
446 \r
447 type_attr               : /* EMPTY */                           { $$ = new TypeAttr (); }\r
448                         | type_attr K_PUBLIC                    { $$ = (TypeAttr)$1 | TypeAttr.Public; }\r
449                         | type_attr K_PRIVATE                   { $$ = (TypeAttr)$1 | TypeAttr.Private; }\r
450                         | type_attr K_INTERFACE                 { $$ = (TypeAttr)$1 | TypeAttr.Interface; }\r
451                         | type_attr K_SEALED                    { $$ = (TypeAttr)$1 | TypeAttr.Sealed; }\r
452                         | type_attr K_ABSTRACT                  { $$ = (TypeAttr)$1 | TypeAttr.Abstract; }\r
453                         | type_attr K_AUTO                      { /* */ }\r
454                         | type_attr K_SEQUENTIAL                { $$ = (TypeAttr)$1 | TypeAttr.SequentialLayout; }\r
455                         | type_attr K_EXPLICIT                  { $$ = (TypeAttr)$1 | TypeAttr.ExplicitLayout; }\r
456                         | type_attr K_ANSI                      { /*  */ }\r
457                         | type_attr K_UNICODE                   { $$ = (TypeAttr)$1 | TypeAttr.UnicodeClass; }\r
458                         | type_attr K_AUTOCHAR                  { $$ = (TypeAttr)$1 | TypeAttr.AutoClass; }\r
459                         | type_attr K_IMPORT                    { $$ = (TypeAttr)$1 | TypeAttr.Import; }\r
460                         | type_attr K_SERIALIZABLE              { $$ = (TypeAttr)$1 | TypeAttr.Serializable; }\r
461                         | type_attr K_NESTED K_PUBLIC           { $$ = (TypeAttr)$1 | TypeAttr.NestedPublic; }\r
462                         | type_attr K_NESTED K_PRIVATE          { $$ = (TypeAttr)$1 | TypeAttr.NestedPrivate; }\r
463                         | type_attr K_NESTED K_FAMILY           { $$ = (TypeAttr)$1 | TypeAttr.NestedFamily; }\r
464                         | type_attr K_NESTED K_ASSEMBLY         { $$ = (TypeAttr)$1 | TypeAttr.NestedAssembly; }\r
465                         | type_attr K_NESTED K_FAMANDASSEM      { $$ = (TypeAttr)$1 | TypeAttr.NestedFamAndAssem; }\r
466                         | type_attr K_NESTED K_FAMORASSEM       { $$ = (TypeAttr)$1 | TypeAttr.NestedFamOrAssem; }\r
467                         | type_attr K_BEFOREFIELDINIT           { $$ = (TypeAttr)$1 | TypeAttr.BeforeFieldInit; }\r
468                         | type_attr K_SPECIALNAME               { $$ = (TypeAttr)$1 | TypeAttr.SpecialName; }\r
469                         | type_attr K_RTSPECIALNAME             { $$ = (TypeAttr)$1 | TypeAttr.RTSpecialName; }\r
470                         ;\r
471 \r
472 classAttr               : /* EMPTY */ \r
473                         | classAttr K_PUBLIC                    { /* currentTypeAttrs |= TypeAttributes.Public; */}\r
474                         | classAttr K_PRIVATE                   { /* currentTypeAttrs &= ~TypeAttributes.Public; */}\r
475                         | classAttr K_VALUE                     { /* FIXME */ }\r
476                         | classAttr K_ENUM                      { /* FIXME */ }\r
477                         | classAttr K_INTERFACE                 { /* currentTypeAttrs |= TypeAttributes.Interface; */ }\r
478                         | classAttr K_SEALED                    { /* currentTypeAttrs |= TypeAttributes.Sealed; */ }\r
479                         | classAttr K_ABSTRACT                  { /* currentTypeAttrs |= TypeAttributes.Abstract; */ }\r
480                         | classAttr K_AUTO                      { /* currentTypeAttrs |= TypeAttributes.AutoLayout; */ }\r
481                         | classAttr K_SEQUENTIAL                { /* currentTypeAttrs |= TypeAttributes.SequentialLayout; */ }\r
482                         | classAttr K_EXPLICIT                  { /* currentTypeAttrs |= TypeAttributes.ExplicitLayout; */ }\r
483                         | classAttr K_ANSI                      { /* currentTypeAttrs |= TypeAttributes.AnsiClass; */ }\r
484                         | classAttr K_UNICODE                   { /* currentTypeAttrs |= TypeAttributes.UnicodeClass; */ }\r
485                         | classAttr K_AUTOCHAR                  { /* currentTypeAttrs |= TypeAttributes.AutoClass; */ }\r
486                         | classAttr K_IMPORT                    { /* currentTypeAttrs |= TypeAttributes.Import; */ }\r
487                         | classAttr K_SERIALIZABLE              { /* currentTypeAttrs |= TypeAttributes.Serializable; */ }\r
488                         | classAttr K_NESTED K_PUBLIC           { /* currentTypeAttrs |= TypeAttributes.NestedPublic; */ }\r
489                         | classAttr K_NESTED K_PRIVATE          { /* currentTypeAttrs |= TypeAttributes.NestedPrivate; */ }\r
490                         | classAttr K_NESTED K_FAMILY           { /* currentTypeAttrs |= TypeAttributes.NestedFamily; */ }\r
491                         | classAttr K_NESTED K_ASSEMBLY         { /* currentTypeAttrs |= TypeAttributes.NestedAssembly; */ }\r
492                         | classAttr K_NESTED K_FAMANDASSEM      { /* currentTypeAttrs |= TypeAttributes.NestedFamANDAssem; */ }\r
493                         | classAttr K_NESTED K_FAMORASSEM       { /* currentTypeAttrs |= TypeAttributes.NestedFamORAssem; */ }\r
494                         | classAttr K_BEFOREFIELDINIT           { /* currentTypeAttrs |= TypeAttributes.BeforeFieldInit; */ }\r
495                         | classAttr K_SPECIALNAME               { /* currentTypeAttrs |= TypeAttributes.SpecialName; */ }\r
496                         | classAttr K_RTSPECIALNAME             { /* currentTypeAttrs |= TypeAttributes.RTSpecialName; */ }\r
497                         ;\r
498 \r
499 extendsClause           : /* EMPTY */                                           \r
500                         | K_EXTENDS class_ref   {$$ = $2;}\r
501                         ;\r
502 \r
503 implClause              : /* EMPTY */\r
504                         | K_IMPLEMENTS classNames       {$$ = $2; }\r
505                         ;\r
506 \r
507 classNames              : classNames COMMA class_ref\r
508                           {\r
509                                 ArrayList class_list = (ArrayList) $1;\r
510                                 class_list.Add ($3);\r
511                           }\r
512                         | class_ref\r
513                           {\r
514                                 ArrayList class_list = new ArrayList ();\r
515                                 class_list.Add ($1);\r
516                                 $$ = class_list;\r
517                           }\r
518                         ;\r
519 \r
520 classDecls              : /* EMPTY */\r
521                         | classDecls classDecl\r
522                         ;\r
523 \r
524 \r
525 classAll                : classHead OPEN_BRACE classDecls CLOSE_BRACE\r
526                         {\r
527                                 /*\r
528                                 codegen.AddClass (currentClass);\r
529                                 currentClass = null;\r
530                                 */\r
531                         }\r
532                         ;\r
533 \r
534 \r
535 classDecl               : methodAll\r
536                         | classAll\r
537                         | eventHead OPEN_BRACE eventDecls CLOSE_BRACE \r
538                         | propHead OPEN_BRACE propDecls CLOSE_BRACE \r
539                         | fieldDecl\r
540                         | dataDecl\r
541                         | secDecl\r
542                         | extSourceSpec\r
543                         | customAttrDecl\r
544                         | D_SIZE int32 \r
545                         | D_PACK int32 \r
546                         | exportHead OPEN_BRACE comtypeDecls CLOSE_BRACE \r
547                         | D_OVERRIDE typeSpec DOUBLE_COLON methodName K_WITH callConv type typeSpec DOUBLE_COLON methodName OPEN_PARENS sigArgs0 CLOSE_PARENS \r
548                         | languageDecl\r
549                         ;\r
550 \r
551 fieldDecl               : D_FIELD repeatOpt fieldAttr type_ref id atOpt initOpt \r
552                           {\r
553                                 codegen.CurrentClass.AddField ((FieldAttr) $3, \r
554                                         (string) $5, ((TypeRef) $4).Type);\r
555                           }\r
556                         ;\r
557 \r
558 type_ref                : primative_type_ref\r
559                         | internal_type_ref\r
560                         | external_type_ref\r
561                         ;\r
562 \r
563 class_ref               : internal_type_ref\r
564                         | external_type_ref\r
565                         ;\r
566 \r
567 primative_type_ref      : K_CHAR                \r
568                           {$$ = new TypeRef (PrimitiveType.Char, "System.Char"); }\r
569                         | K_VOID                \r
570                           {$$ = new TypeRef (PrimitiveType.Void, "System.Void"); }\r
571                         | K_BOOL                \r
572                           {$$ = new TypeRef (PrimitiveType.Boolean, "System.Bool"); }\r
573                         | K_INT8                \r
574                           {$$ = new TypeRef (PrimitiveType.Int8, "System.Int8"); }\r
575                         | K_INT16               \r
576                           {$$ = new TypeRef (PrimitiveType.Int16, "System.Int16"); }\r
577                         | K_INT32               \r
578                           {$$ = new TypeRef (PrimitiveType.Int32, "System.Int32"); }\r
579                         | K_INT64               \r
580                           {$$ = new TypeRef (PrimitiveType.Int64, "System.Int64"); }\r
581                         | K_FLOAT32             \r
582                           {$$ = new TypeRef (PrimitiveType.Float32, "System.Float32"); }\r
583                         | K_FLOAT64             \r
584                           {$$ = new TypeRef (PrimitiveType.Float64, "System.Float64"); }\r
585                         | K_UNSIGNED K_INT8     \r
586                           {$$ = new TypeRef (PrimitiveType.UInt8, "System.UInt8"); }\r
587                         | K_UNSIGNED K_INT16    \r
588                           {$$ = new TypeRef (PrimitiveType.UInt16, "System.UInt16"); }\r
589                         | K_UNSIGNED K_INT32    \r
590                           {$$ = new TypeRef (PrimitiveType.UInt32, "System.UInt32"); }\r
591                         | K_UNSIGNED K_INT64    \r
592                           {$$ = new TypeRef (PrimitiveType.UInt64, "System.UInt64"); }\r
593                         | K_STRING              \r
594                           {$$ = new TypeRef (PrimitiveType.String, "System.String"); }\r
595                         ;\r
596 \r
597 internal_type_ref       : name1\r
598                           {\r
599                                 $$ = new TypeRef (codegen.ClassTable.GetReference ((string) $1, null),\r
600                                         (string) $1);\r
601                           }\r
602                         ;\r
603 \r
604 external_type_ref       : assembly_name namespace_name DOT id\r
605                           {\r
606                                 $$ = new TypeRef (codegen.ExternTable.GetClass ($1 as string, \r
607                                         $2 as string, $4 as string), String.Format ("{0}.{1}", $2, $4));\r
608                           }\r
609                         ;\r
610 \r
611 namespace_name          : /* EMPTY */\r
612                         | id\r
613                         | namespace_name DOT id {$$ = String.Format ("{0}.{1}", $1, $3); }\r
614                         ;\r
615 \r
616 atOpt                   : /* EMPTY */  \r
617                         | K_AT id \r
618                         ;\r
619 \r
620 initOpt                 : /* EMPTY */ \r
621                         | ASSIGN fieldInit \r
622                         ;\r
623 \r
624 repeatOpt               : /* EMPTY */ \r
625                         | OPEN_BRACKET int32 CLOSE_BRACKET \r
626                         ;\r
627 \r
628 customHead              : D_CUSTOM customType ASSIGN OPEN_PARENS \r
629                         ;\r
630 \r
631 customHeadWithOwner     : D_CUSTOM OPEN_PARENS customType CLOSE_PARENS customType ASSIGN OPEN_PARENS \r
632                         ;\r
633 \r
634 customType              : typeSpec \r
635                         | callConv type typeSpec DOUBLE_COLON methodName OPEN_PARENS sigArgs0 CLOSE_PARENS \r
636                         | callConv type methodName OPEN_PARENS sigArgs0 CLOSE_PARENS \r
637                         ;\r
638 \r
639 eventHead               : D_EVENT eventAttr typeSpec id \r
640                         | D_EVENT eventAttr id \r
641                         ;\r
642 \r
643 \r
644 eventAttr               : /* EMPTY */ \r
645                         | eventAttr K_RTSPECIALNAME /**/\r
646                         | eventAttr K_SPECIALNAME \r
647                         ;\r
648 \r
649 eventDecls              : /* EMPTY */\r
650                         | eventDecls eventDecl\r
651                         ;\r
652 \r
653 eventDecl               : D_ADDON callConv type typeSpec DOUBLE_COLON methodName OPEN_PARENS sigArgs0 CLOSE_PARENS \r
654                         | D_ADDON callConv type methodName OPEN_PARENS sigArgs0 CLOSE_PARENS \r
655                         | D_REMOVEON callConv type typeSpec DOUBLE_COLON methodName OPEN_PARENS sigArgs0 CLOSE_PARENS \r
656                         | D_REMOVEON callConv type methodName OPEN_PARENS sigArgs0 CLOSE_PARENS \r
657                         | D_FIRE callConv type typeSpec DOUBLE_COLON methodName OPEN_PARENS sigArgs0 CLOSE_PARENS \r
658                         | D_FIRE callConv type methodName OPEN_PARENS sigArgs0 CLOSE_PARENS \r
659                         | D_OTHER callConv type typeSpec DOUBLE_COLON methodName OPEN_PARENS sigArgs0 CLOSE_PARENS \r
660                         | D_OTHER callConv type methodName OPEN_PARENS sigArgs0 CLOSE_PARENS \r
661                         | extSourceSpec\r
662                         | customAttrDecl\r
663                         | languageDecl\r
664                         ;\r
665 \r
666 propHead                : D_PROPERTY propAttr callConv type id OPEN_PARENS sigArgs0 CLOSE_PARENS initOpt \r
667                         ;\r
668 \r
669 propAttr                : /* EMPTY */ \r
670                         | propAttr K_RTSPECIALNAME /**/\r
671                         | propAttr K_SPECIALNAME \r
672                         ;\r
673 \r
674 propDecls               : /* EMPTY */\r
675                         | propDecls propDecl\r
676                         ;\r
677 \r
678 \r
679 propDecl                : D_SET callConv type typeSpec DOUBLE_COLON methodName OPEN_PARENS sigArgs0 CLOSE_PARENS \r
680                         | D_SET callConv type methodName OPEN_PARENS sigArgs0 CLOSE_PARENS \r
681                         | D_GET callConv type typeSpec DOUBLE_COLON methodName OPEN_PARENS sigArgs0 CLOSE_PARENS \r
682                         | D_GET callConv type methodName OPEN_PARENS sigArgs0 CLOSE_PARENS \r
683                         | D_OTHER callConv type typeSpec DOUBLE_COLON methodName OPEN_PARENS sigArgs0 CLOSE_PARENS \r
684                         | D_OTHER callConv type methodName OPEN_PARENS sigArgs0 CLOSE_PARENS \r
685                         | customAttrDecl\r
686                         | extSourceSpec\r
687                         | languageDecl\r
688                         ;\r
689 \r
690 method_ref              : internal_method_ref\r
691                         | external_method_ref\r
692                         ;\r
693 \r
694 internal_method_ref     : type_ref internal_type_ref DOUBLE_COLON name1 OPEN_PARENS arg_list CLOSE_PARENS\r
695                           {     \r
696                                 TypeRef parent, return_type;\r
697                                 parent = (TypeRef) $2;\r
698                                 return_type = (TypeRef) $1;\r
699 \r
700                                 Param[] param_array;\r
701                                 TypeRef[] typeref_array;\r
702                                 if ($6 != null) {\r
703                                         ArrayList param_list = $6 as ArrayList;\r
704                                         int index = 0;\r
705                                         param_array = new Param[param_list.Count];\r
706                                         typeref_array = new TypeRef[param_list.Count];\r
707                                         foreach (DictionaryEntry entry in param_list) {\r
708                                                 param_array[index] = entry.Key as Param;\r
709                                                 typeref_array[index] = entry.Value as TypeRef;\r
710                                                 index++;\r
711                                         }\r
712                                 } else {\r
713                                         param_array = new Param[0];\r
714                                         typeref_array = new TypeRef[0];\r
715                                 }\r
716                         \r
717                                 $$ = codegen.GetMethodRef (parent, (string) $4, return_type, param_array, \r
718                                         typeref_array, null);\r
719                           }\r
720                         ;                       \r
721 \r
722 \r
723 methodHead              : D_METHOD methAttr callConv type_ref methodName \r
724                                 OPEN_PARENS arg_list CLOSE_PARENS implAttr OPEN_BRACE \r
725                         {\r
726                                 Param[] param_array;\r
727                                 TypeRef[] typeref_array;\r
728                                 if ($7 != null) {\r
729                                         ArrayList param_list = $7 as ArrayList;\r
730                                         int index = 0;\r
731                                         param_array = new Param[param_list.Count];\r
732                                         typeref_array = new TypeRef[param_list.Count];\r
733                                         foreach (DictionaryEntry entry in param_list) {\r
734                                                 param_array[index] = entry.Key as Param;\r
735                                                 typeref_array[index] = entry.Value as TypeRef;\r
736                                                 index++;\r
737                                         }\r
738                                 } else {\r
739                                         param_array = new Param[0];\r
740                                         typeref_array = new TypeRef[0];\r
741                                 }\r
742                                 \r
743                                 codegen.AddMethod ((MethAttr) $2, (ImplAttr) $9, (CallConv) $3, (string) $5, \r
744                                         (TypeRef) $4, param_array, typeref_array, null);\r
745                         }\r
746                         | D_METHOD methAttr callConv paramAttr type K_MARSHAL OPEN_PARENS nativeType CLOSE_PARENS methodName OPEN_PARENS sigArgs0 CLOSE_PARENS implAttr OPEN_BRACE\r
747                         ;\r
748 \r
749 \r
750 methodAll               : methodHead methodDecls CLOSE_BRACE\r
751                         {\r
752                                 /*\r
753                                 // Console.WriteLine (method);\r
754                                 currentClass.AddMethod (method);\r
755                                 */\r
756                         }\r
757                         ;\r
758 \r
759 \r
760 methAttr                : /* EMPTY */                   { $$ = MethAttr.Default; }\r
761                         | methAttr K_STATIC             { $$ = (MethAttr) $1 | MethAttr.Static; }\r
762                         | methAttr K_PUBLIC             { $$ = (MethAttr) $1 | MethAttr.Public; }\r
763                         | methAttr K_PRIVATE            { $$ = (MethAttr) $1 | MethAttr.Private; }\r
764                         | methAttr K_FAMILY             { $$ = (MethAttr) $1 | MethAttr.Family; }\r
765                         | methAttr K_FINAL              { $$ = (MethAttr) $1 | MethAttr.Final; }\r
766                         | methAttr K_SPECIALNAME        { $$ = (MethAttr) $1 | MethAttr.SpecialName; }\r
767                         | methAttr K_VIRTUAL            { $$ = (MethAttr) $1 | MethAttr.Virtual; }\r
768                         | methAttr K_ABSTRACT           { $$ = (MethAttr) $1 | MethAttr.Abstract; }\r
769                         | methAttr K_ASSEMBLY           { $$ = (MethAttr) $1 | MethAttr.Assembly; }\r
770                         | methAttr K_FAMANDASSEM        { $$ = (MethAttr) $1 | MethAttr.FamAndAssem; }\r
771                         | methAttr K_FAMORASSEM         { $$ = (MethAttr) $1 | MethAttr.FamOrAssem; }\r
772                         | methAttr K_COMPILERCONTROLLED {/* FIXME */}\r
773                         | methAttr K_HIDEBYSIG          { $$ = (MethAttr) $1 | MethAttr.HideBySig; }\r
774                         | methAttr K_NEWSLOT            { $$ = (MethAttr) $1 | MethAttr.NewSlot; }\r
775                         | methAttr K_RTSPECIALNAME      { $$ = (MethAttr) $1 | MethAttr.RTSpecialName; }\r
776                         | methAttr K_UNMANAGEDEXP       {/* FIXME */}\r
777                         | methAttr K_REQSECOBJ          { $$ = (MethAttr) $1 | MethAttr.RequireSecObject; }\r
778                         /*\r
779                         | methAttr K_PINVOKEIMPL OPEN_PARENS compQstring K_AS compQstring pinvAttr CLOSE_PARENS { }\r
780                         | methAttr K_PINVOKEIMPL OPEN_PARENS compQstring  pinvAttr CLOSE_PARENS                 { }\r
781                         | methAttr K_PINVOKEIMPL OPEN_PARENS pinvAttr CLOSE_PARENS                              { }\r
782                         */\r
783                         ;\r
784 \r
785 pinvAttr                : /* EMPTY */ \r
786                         | pinvAttr K_NOMANGLE \r
787                         | pinvAttr K_ANSI \r
788                         | pinvAttr K_UNICODE \r
789                         | pinvAttr K_AUTOCHAR \r
790                         | pinvAttr K_LASTERR \r
791                         | pinvAttr K_WINAPI \r
792                         | pinvAttr K_CDECL \r
793                         | pinvAttr K_STDCALL \r
794                         | pinvAttr K_THISCALL \r
795                         | pinvAttr K_FASTCALL \r
796                         ;\r
797 \r
798 methodName              : D_CTOR\r
799                         | D_CCTOR\r
800                         | name1\r
801                         ;\r
802 \r
803 paramAttr               : /* EMPTY */                                   {$$ = ParamAttr.Default; }\r
804                         | paramAttr OPEN_BRACKET K_IN CLOSE_BRACKET     {$$ = (ParamAttr) $1 | ParamAttr.In; }\r
805                         | paramAttr OPEN_BRACKET K_OUT CLOSE_BRACKET    {$$ = (ParamAttr) $1 | ParamAttr.Out; }\r
806                         | paramAttr OPEN_BRACKET K_OPT CLOSE_BRACKET    {$$ = (ParamAttr) $1 | ParamAttr.Opt; }\r
807                         /* | paramAttr OPEN_BRACKET int32 CLOSE_BRACKET  */\r
808                         ;\r
809         \r
810 fieldAttr               : /* EMPTY */                   {$$ = FieldAttr.Default; }\r
811                         | fieldAttr K_STATIC            {$$ = FieldAttr.Static; }\r
812                         | fieldAttr K_PUBLIC            {$$ = FieldAttr.Public; }\r
813                         | fieldAttr K_PRIVATE           {$$ = FieldAttr.Private; }\r
814                         | fieldAttr K_FAMILY            {$$ = FieldAttr.Family; }\r
815                         | fieldAttr K_INITONLY          {$$ = FieldAttr.Initonly; }\r
816                         | fieldAttr K_RTSPECIALNAME     {$$ = FieldAttr.RTSpecialName; }\r
817                         | fieldAttr K_SPECIALNAME       {$$ = FieldAttr.SpecialName; }\r
818                                 /* commented out because PInvoke for fields is not supported by EE\r
819                         | fieldAttr K_PINVOKEIMPL OPEN_PARENS compQstring K_AS compQstring pinvAttr CLOSE_PARENS \r
820                         | fieldAttr K_PINVOKEIMPL OPEN_PARENS compQstring  pinvAttr CLOSE_PARENS \r
821                         | fieldAttr K_PINVOKEIMPL OPEN_PARENS pinvAttr CLOSE_PARENS \r
822                                 \r
823                         | fieldAttr K_MARSHAL OPEN_PARENS nativeType CLOSE_PARENS \r
824                                 */\r
825                         | fieldAttr K_ASSEMBLY          {$$ = FieldAttr.Assembly; }\r
826                         | fieldAttr K_FAMANDASSEM       {$$ = FieldAttr.FamAndAssem; }\r
827                         | fieldAttr K_FAMORASSEM        {$$ = FieldAttr.FamOrAssem; }\r
828                 /*      | fieldAttr K_COMPILERCONTROLLED {$$ = FieldAttr. */\r
829                         | fieldAttr K_LITERAL           {$$ = FieldAttr.Literal; }\r
830                         | fieldAttr K_NOTSERIALIZED     {$$ = FieldAttr.Notserialized; }\r
831                         ;\r
832 \r
833 \r
834 implAttr                : /* empty */           {$$ = new ImplAttr (); }\r
835                         | implAttr K_NATIVE     {$$ = (ImplAttr) $1 | ImplAttr.Native; }\r
836                         | implAttr K_IL         {$$ = (ImplAttr) $1 | ImplAttr.IL; }\r
837                         | implAttr K_CIL        { /* Do nothing */ }\r
838                         | implAttr K_OPTIL      {$$ = (ImplAttr) $1 | ImplAttr.Optil; }\r
839                         | implAttr K_MANAGED    { /* Do nothing */ }\r
840                         | implAttr K_UNMANAGED  {$$ = (ImplAttr) $1 | ImplAttr.Unmanaged; }\r
841                         | implAttr K_FORWARDREF {$$ = (ImplAttr) $1 | ImplAttr.ForwardRef; }\r
842                         | implAttr K_PRESERVESIG {$$ = (ImplAttr) $1 | ImplAttr.PreserveSig; }\r
843                         | implAttr K_RUNTIME    {$$ = (ImplAttr) $1 | ImplAttr.PreserveSig; }\r
844                         | implAttr K_INTERNALCALL {$$ = (ImplAttr) $1 | ImplAttr.InternalCall; }\r
845                         | implAttr K_SYNCHRONIZED {$$ = (ImplAttr) $1 | ImplAttr.Synchronized; }\r
846                         | implAttr K_NOINLINING {$$ = (ImplAttr) $1 | ImplAttr.NoInLining; }\r
847                         ;\r
848 \r
849 localsHead              : D_LOCALS\r
850                         ;\r
851 \r
852                                         \r
853 methodDecl              : D_EMITBYTE int32 \r
854                         | sehBlock \r
855                         | D_MAXSTACK int32 \r
856                           {\r
857                                 codegen.CurrentMethod.SetMaxStack ((int) $2);\r
858                           }\r
859                         | localsHead OPEN_PARENS sigArgs0 CLOSE_PARENS \r
860                         | localsHead K_INIT OPEN_PARENS named_arg_list CLOSE_PARENS  \r
861                                 {\r
862                                         /*\r
863                                         ArrayList arg_list = $4 as ArrayList;\r
864                                         \r
865                                         if (arg_list != null) {\r
866                                                 foreach (DictionaryEntry local in arg_list) {\r
867                                                         method.AddLocal (local);\r
868                                                 }\r
869                                         }\r
870                                         */\r
871                                 }\r
872                         | D_ENTRYPOINT          \r
873                           { \r
874                                 codegen.CurrentMethod.DeclareEntryPoint ();\r
875                           }\r
876                         | D_ZEROINIT \r
877                         | dataDecl\r
878                         | instr {\r
879                                 /*      method.AddInstruction (currentInstr); */\r
880                                 }\r
881                         | id COLON \r
882                         | secDecl\r
883                         | extSourceSpec\r
884                         | languageDecl\r
885                         | customAttrDecl\r
886                         | D_EXPORT OPEN_BRACKET int32 CLOSE_BRACKET     \r
887                         | D_EXPORT OPEN_BRACKET int32 CLOSE_BRACKET     K_AS id \r
888                         | D_VTENTRY int32 COLON int32 \r
889                         | D_OVERRIDE typeSpec DOUBLE_COLON methodName \r
890                         | scopeBlock\r
891                         | D_PARAM OPEN_BRACKET int32 CLOSE_BRACKET initOpt \r
892                         ;\r
893 \r
894 scopeBlock              : scopeOpen methodDecls CLOSE_BRACE \r
895                         ;\r
896 \r
897 scopeOpen               : OPEN_BRACE \r
898                         ;\r
899 \r
900 sehBlock                : tryBlock sehClauses\r
901                         ;\r
902 \r
903 sehClauses              : sehClause sehClauses\r
904                         | sehClause\r
905                         ;\r
906 \r
907 tryBlock                : tryHead scopeBlock \r
908                         | tryHead id K_TO id \r
909                         | tryHead int32 K_TO int32 \r
910                         ;\r
911 \r
912 tryHead                 : D_TRY \r
913                         ;\r
914 \r
915 \r
916 sehClause               : catchClause handlerBlock \r
917                         | filterClause handlerBlock \r
918                         | finallyClause handlerBlock \r
919                         | faultClause handlerBlock \r
920                         ;\r
921 \r
922          \r
923 filterClause            : filterHead scopeBlock \r
924                         | filterHead id \r
925                         | filterHead int32 \r
926                         ;\r
927 \r
928 filterHead              : K_FILTER  \r
929                         ;\r
930 \r
931 catchClause             : K_CATCH className \r
932                         ;\r
933 \r
934 finallyClause           : K_FINALLY \r
935                         ;\r
936 \r
937 faultClause             : K_FAULT \r
938                         ;\r
939 \r
940 handlerBlock            : scopeBlock                  \r
941                         | K_HANDLER id K_TO id \r
942                         | K_HANDLER int32 K_TO int32 \r
943                         ;\r
944 \r
945 \r
946 methodDecls             : /* EMPTY */\r
947                         | methodDecls methodDecl\r
948                         ;\r
949 \r
950 dataDecl                : ddHead ddBody\r
951                         ;\r
952 \r
953 ddHead                  : D_DATA tls id ASSIGN \r
954                         | D_DATA tls  \r
955                         ;\r
956 \r
957 tls                     : /* EMPTY */ \r
958                         | K_TLS \r
959                         ;\r
960 \r
961 ddBody                  : OPEN_BRACE ddItemList CLOSE_BRACE\r
962                         | ddItem\r
963                         ;\r
964 \r
965 ddItemList              : ddItem COMMA ddItemList\r
966                         | ddItem\r
967                         ;\r
968 \r
969 ddItemCount             : /* EMPTY */ \r
970                         | OPEN_BRACKET int32 CLOSE_BRACKET \r
971                         ;\r
972 \r
973 ddItem                  : K_CHAR STAR OPEN_PARENS compQstring CLOSE_PARENS \r
974                         | AMPERSAND OPEN_PARENS id CLOSE_PARENS \r
975                         | bytearrayhead bytes CLOSE_PARENS \r
976                         | K_FLOAT32 OPEN_PARENS float64 CLOSE_PARENS ddItemCount \r
977                         | K_FLOAT64 OPEN_PARENS float64 CLOSE_PARENS ddItemCount \r
978                         | K_INT64 OPEN_PARENS int64 CLOSE_PARENS ddItemCount  \r
979                         | K_INT32 OPEN_PARENS int32 CLOSE_PARENS ddItemCount  \r
980                         | K_INT16 OPEN_PARENS int32 CLOSE_PARENS ddItemCount \r
981                         | K_INT8 OPEN_PARENS int32 CLOSE_PARENS ddItemCount \r
982                         | K_FLOAT32 ddItemCount \r
983                         | K_FLOAT64 ddItemCount \r
984                         | K_INT64 ddItemCount  \r
985                         | K_INT32 ddItemCount  \r
986                         | K_INT16 ddItemCount \r
987                         | K_INT8 ddItemCount \r
988                         ;\r
989 \r
990 fieldInit               : K_FLOAT32 OPEN_PARENS float64 CLOSE_PARENS \r
991                         | K_FLOAT64 OPEN_PARENS float64 CLOSE_PARENS \r
992                         | K_FLOAT32 OPEN_PARENS int64 CLOSE_PARENS \r
993                         | K_FLOAT64 OPEN_PARENS int64 CLOSE_PARENS \r
994                         | K_INT64 OPEN_PARENS int64 CLOSE_PARENS  \r
995                         | K_INT32 OPEN_PARENS int64 CLOSE_PARENS \r
996                         | K_INT16 OPEN_PARENS int64 CLOSE_PARENS \r
997                         | K_CHAR OPEN_PARENS int64 CLOSE_PARENS \r
998                         | K_INT8 OPEN_PARENS int64 CLOSE_PARENS \r
999                         | K_BOOL OPEN_PARENS truefalse CLOSE_PARENS \r
1000                         | compQstring \r
1001                         | bytearrayhead bytes CLOSE_PARENS \r
1002                         | K_NULLREF \r
1003                         ;\r
1004 \r
1005 bytearrayhead           : K_BYTEARRAY OPEN_PARENS \r
1006                         ;\r
1007 \r
1008 \r
1009 hexbyte                 : INT32\r
1010                         | id\r
1011                         ;\r
1012 \r
1013 bytes                   : /* EMPTY */ \r
1014                         | hexbytes \r
1015                         ;\r
1016 \r
1017 hexbytes                : hexbyte \r
1018                         | hexbytes hexbyte \r
1019                         ;\r
1020 \r
1021 instr_r_head            : INSTR_R OPEN_PARENS \r
1022                         ;\r
1023 \r
1024 methodSpec              : K_METHOD \r
1025                         ;\r
1026 \r
1027 instr                   : INSTR_NONE            \r
1028                           { \r
1029                                 codegen.CodeBuffer.Inst ((Op) $1); \r
1030                           }\r
1031                         | INSTR_VAR int32       {/* currentInstr = new InstrVar ((OpCode) $1, $2);*/}\r
1032                         | INSTR_VAR id          {/* currentInstr = new InstrVar ((OpCode) $1, $2); */}\r
1033                         | INSTR_I int32         \r
1034                           {\r
1035                                 codegen.CodeBuffer.IntInst ((IntOp) $1, (int) $2); \r
1036                           }\r
1037                         | INSTR_I8 int64        {/* currentInstr = new InstrI8 ((OpCode) $1, (Int64) $2);*/}\r
1038                         | INSTR_R float64       {/* currentInstr = new InstrR ((OpCode) $1, (Double) $2);*/}\r
1039                         | INSTR_R int64         {/* currentInstr = new InstrR ((OpCode) $1, (Int64) $2);*/}\r
1040                         | instr_r_head bytes CLOSE_PARENS \r
1041                         | INSTR_BRTARGET int32  \r
1042                         | INSTR_BRTARGET id \r
1043                         | INSTR_METHOD method_ref \r
1044                           {\r
1045                                 codegen.CodeBuffer.MethInst ((MethodOp) $1, (Method) $2);               \r
1046                           }\r
1047 \r
1048                                         \r
1049                         | INSTR_METHOD callConv type methodName OPEN_PARENS sigArgs0 CLOSE_PARENS \r
1050                                                 {\r
1051                 \r
1052                                                 }\r
1053                         | INSTR_NEWOBJ callConv type assembly_name name1 DOUBLE_COLON call_name OPEN_PARENS signature_args CLOSE_PARENS\r
1054                                                 { \r
1055                                                         \r
1056                                                 }\r
1057                         | INSTR_FIELD type typeSpec DOUBLE_COLON id \r
1058                         | INSTR_FIELD type id \r
1059                         | INSTR_TYPE type_ref\r
1060                           {\r
1061                                 TypeRef type_ref = (TypeRef) $2;\r
1062                                 codegen.CodeBuffer.TypeInst ((TypeOp) $1, type_ref.Type); \r
1063                           }\r
1064                         | INSTR_STRING compQstring \r
1065                                 {\r
1066                                 /*      currentInstr = new InstrString ((OpCode) $1, $2 as string); */\r
1067                                 }\r
1068                         | INSTR_STRING bytearrayhead bytes CLOSE_PARENS \r
1069                         | INSTR_SIG callConv type OPEN_PARENS sigArgs0 CLOSE_PARENS \r
1070                         | INSTR_RVA id \r
1071                         | INSTR_RVA int32 \r
1072                         | INSTR_TOK methodSpec callConv type typeSpec DOUBLE_COLON methodName OPEN_PARENS sigArgs0 CLOSE_PARENS \r
1073                         | INSTR_TOK methodSpec callConv type methodName OPEN_PARENS sigArgs0 CLOSE_PARENS \r
1074                         | INSTR_TOK K_FIELD type typeSpec DOUBLE_COLON id \r
1075                         | INSTR_TOK K_FIELD type id \r
1076                         | INSTR_TOK typeSpec \r
1077                         | INSTR_SWITCH OPEN_PARENS labels CLOSE_PARENS \r
1078                         | INSTR_PHI int16s \r
1079                         ;\r
1080 \r
1081 param_name              : /* EMPTY */\r
1082                         | name1\r
1083                         ;\r
1084 \r
1085 arg_list \r
1086         : /* EMPTY */\r
1087         | paramAttr type_ref param_name\r
1088           {\r
1089                 ArrayList arg_list = new ArrayList ();\r
1090                 Param param = new Param ((ParamAttr) $1, $3 as string, ((TypeRef) $2).Type);\r
1091                 DictionaryEntry entry = new DictionaryEntry (param, $2);\r
1092 \r
1093                 arg_list.Add (entry);           \r
1094                 $$ = arg_list;\r
1095           }\r
1096         | arg_list COMMA paramAttr type_ref param_name\r
1097           {\r
1098                 ArrayList arg_list = (ArrayList) $1;\r
1099                 Param param = new Param ((ParamAttr) $3, $5 as string, ((TypeRef) $4).Type);\r
1100                 DictionaryEntry entry = new DictionaryEntry (param, $4);\r
1101 \r
1102                 arg_list.Add (entry);\r
1103                 $$ = arg_list;\r
1104           }\r
1105         ;\r
1106 \r
1107 param_name              : /* EMPTY */\r
1108                         | name1\r
1109                         ;\r
1110 \r
1111 named_arg\r
1112         : type_ref ID\r
1113           {\r
1114                 $$ = new DictionaryEntry ((string) $1, (string) $2);\r
1115           }\r
1116         ;\r
1117 \r
1118 named_arg_list          \r
1119         : /* EMPTY */\r
1120         | named_arg\r
1121           {\r
1122                 ArrayList arg_list = new ArrayList ();\r
1123                 arg_list.Add ($1);\r
1124 \r
1125                 $$ = arg_list;                                  \r
1126           }\r
1127         | named_arg_list COMMA named_arg \r
1128           {\r
1129                 ArrayList arg_list = (ArrayList) $1;\r
1130                 arg_list.Add ($3);\r
1131                                 \r
1132                 $$ = arg_list;\r
1133           }\r
1134         ;           \r
1135 \r
1136         \r
1137 signature_args          : /* EMPTY */\r
1138                         | type\r
1139                         | type COMMA signature_args\r
1140                         ;\r
1141 \r
1142 binding_flags           : /* EMPTY */\r
1143                         | K_INSTANCE\r
1144                         ;\r
1145 \r
1146 sigArgs0                : /* EMPTY */ \r
1147                         | sigArgs1 \r
1148                         ;\r
1149 \r
1150 sigArgs1                : sigArg \r
1151                         | sigArgs1 COMMA sigArg { $$ = String.Format ("{0},{1}", $1, $2); }\r
1152                         ;\r
1153 \r
1154 sigArg                  : ELLIPSIS              \r
1155                         | paramAttr type_ref \r
1156                         | paramAttr type id { $$ = String.Format ("{0} {1}", $2, $3); }\r
1157                         | paramAttr type K_MARSHAL OPEN_PARENS nativeType CLOSE_PARENS \r
1158                         | paramAttr type K_MARSHAL OPEN_PARENS nativeType CLOSE_PARENS id \r
1159                         ;\r
1160                         \r
1161 \r
1162 dottedName              : id DOT id     {$$ = ($1 as string) + "." + ($3 as string);}\r
1163                         ;\r
1164 \r
1165 \r
1166 name1                   : id\r
1167                         | dottedName\r
1168                         | name1 DOT name1       {$$ = String.Format ("{0}.{1}", $1, $3); }\r
1169                         ;\r
1170 \r
1171 call_name               : \r
1172                         | id\r
1173                         | D_CTOR\r
1174                         | D_CCTOR\r
1175                         ;\r
1176                         \r
1177 assembly_ref            : id\r
1178                         | id DASH id {$$ = String.Format ("{0}-{1}", $1, $3);}\r
1179                         | id DASH assembly_ref {$$ = String.Format ("{0}-{1}", $1, $3);}\r
1180                         ;\r
1181 \r
1182 assembly_name           : OPEN_BRACKET assembly_ref CLOSE_BRACKET {$$ = ($2 as string);}\r
1183                         ;\r
1184 \r
1185 className               : OPEN_BRACKET name1 CLOSE_BRACKET slashedName \r
1186                         | OPEN_BRACKET D_MODULE name1 CLOSE_BRACKET slashedName \r
1187                         | slashedName \r
1188                         ;\r
1189 \r
1190 slashedName             : name1\r
1191                         | slashedName SLASH name1       {$$ = ($1 as string) + "/" + ($3 as string);}\r
1192                         ;\r
1193 \r
1194 typeSpec                : className \r
1195                         | OPEN_BRACKET name1 CLOSE_BRACKET \r
1196                         | OPEN_BRACKET D_MODULE name1 CLOSE_BRACKET \r
1197                         | type \r
1198                         ;\r
1199 \r
1200 callConv                : K_INSTANCE callConv   { $$ = (CallConv) $1 | CallConv.Instance; }\r
1201                         | K_EXPLICIT callConv   { $$ = (CallConv) $1 | CallConv.InstanceExplicit; }\r
1202                         | callKind \r
1203                         ;\r
1204 \r
1205 callKind                : /* EMPTY */           { $$ = CallConv.Default; }\r
1206                         | K_DEFAULT             { $$ = (CallConv) $1 | CallConv.Default; }\r
1207                         | K_VARARG              { $$ = (CallConv) $1 | CallConv.Vararg; }\r
1208                         | K_UNMANAGED K_CDECL   { $$ = (CallConv) $1 | CallConv.Cdecl; }\r
1209                         | K_UNMANAGED K_STDCALL { $$ = (CallConv) $1 | CallConv.Stdcall; }\r
1210                         | K_UNMANAGED K_THISCALL { $$ = (CallConv) $1 | CallConv.Thiscall; }\r
1211                         | K_UNMANAGED K_FASTCALL { $$ = (CallConv) $1 | CallConv.Fastcall; }\r
1212                         ;\r
1213 \r
1214 nativeType              : /* EMPTY */  \r
1215                         | K_CUSTOM OPEN_PARENS compQstring COMMA compQstring COMMA compQstring COMMA compQstring CLOSE_PARENS \r
1216                         | K_CUSTOM OPEN_PARENS compQstring COMMA compQstring CLOSE_PARENS \r
1217                         | K_FIXED K_SYSSTRING OPEN_BRACKET int32 CLOSE_BRACKET \r
1218                         | K_FIXED K_ARRAY OPEN_BRACKET int32 CLOSE_BRACKET \r
1219                         | K_VARIANT \r
1220                         | K_CURRENCY \r
1221                         | K_SYSCHAR \r
1222                         | K_VOID \r
1223                         | K_BOOL \r
1224                         | K_INT8 \r
1225                         | K_INT16 \r
1226                         | K_INT32 \r
1227                         | K_INT64 \r
1228                         | K_FLOAT32 \r
1229                         | K_FLOAT64 \r
1230                         | K_ERROR \r
1231                         | K_UNSIGNED K_INT8 \r
1232                         | K_UNSIGNED K_INT16 \r
1233                         | K_UNSIGNED K_INT32 \r
1234                         | K_UNSIGNED K_INT64 \r
1235                         | nativeType STAR \r
1236                         | nativeType OPEN_BRACKET CLOSE_BRACKET \r
1237                         | nativeType OPEN_BRACKET int32 CLOSE_BRACKET \r
1238                         | nativeType OPEN_BRACKET int32 PLUS int32 CLOSE_BRACKET \r
1239                         | nativeType OPEN_BRACKET PLUS int32 CLOSE_BRACKET \r
1240                         | K_DECIMAL \r
1241                         | K_DATE \r
1242                         | K_BSTR \r
1243                         | K_LPSTR \r
1244                         | K_LPWSTR \r
1245                         | K_LPTSTR \r
1246                         | K_OBJECTREF \r
1247                         | K_IUNKNOWN \r
1248                         | K_IDISPATCH \r
1249                         | K_STRUCT \r
1250                         | K_INTERFACE \r
1251                         | K_SAFEARRAY variantType \r
1252                         | K_INT \r
1253                         | K_UNSIGNED K_INT \r
1254                         | K_NESTED K_STRUCT \r
1255                         | K_BYVALSTR \r
1256                         | K_ANSI K_BSTR \r
1257                         | K_TBSTR \r
1258                         | K_VARIANT K_BOOL \r
1259                         | methodSpec \r
1260                         | K_AS K_ANY \r
1261                         | K_LPSTRUCT \r
1262                         ;\r
1263 \r
1264 variantType             : /* EMPTY */ \r
1265                         | K_NULL \r
1266                         | K_VARIANT \r
1267                         | K_CURRENCY \r
1268                         | K_VOID \r
1269                         | K_BOOL \r
1270                         | K_INT8 \r
1271                         | K_INT16 \r
1272                         | K_INT32 \r
1273                         | K_INT64 \r
1274                         | K_FLOAT32 \r
1275                         | K_FLOAT64 \r
1276                         | K_UNSIGNED K_INT8 \r
1277                         | K_UNSIGNED K_INT16 \r
1278                         | K_UNSIGNED K_INT32 \r
1279                         | K_UNSIGNED K_INT64 \r
1280                         | STAR \r
1281                         | variantType OPEN_BRACKET CLOSE_BRACKET \r
1282                         | variantType K_VECTOR \r
1283                         | variantType AMPERSAND \r
1284                         | K_DECIMAL \r
1285                         | K_DATE \r
1286                         | K_BSTR \r
1287                         | K_LPSTR \r
1288                         | K_LPWSTR \r
1289                         | K_IUNKNOWN \r
1290                         | K_IDISPATCH \r
1291                         | K_SAFEARRAY \r
1292                         | K_INT \r
1293                         | K_UNSIGNED K_INT \r
1294                         | K_ERROR \r
1295                         | K_HRESULT \r
1296                         | K_CARRAY \r
1297                         | K_USERDEFINED \r
1298                         | K_RECORD \r
1299                         | K_FILETIME \r
1300                         | K_BLOB \r
1301                         | K_STREAM \r
1302                         | K_STORAGE \r
1303                         | K_STREAMED_OBJECT \r
1304                         | K_STORED_OBJECT \r
1305                         | K_BLOB_OBJECT \r
1306                         | K_CF \r
1307                         | K_CLSID \r
1308                         ;\r
1309 \r
1310 type                    : K_CLASS className \r
1311                         | K_OBJECT  \r
1312                         | K_STRING  \r
1313                         | K_VALUE K_CLASS className  \r
1314                         | K_VALUETYPE className  \r
1315                         | type OPEN_BRACKET CLOSE_BRACKET  \r
1316                         | type OPEN_BRACKET bounds1 CLOSE_BRACKET  \r
1317                         /* uncomment when and if this type is supported by the Runtime\r
1318                         | type K_VALUE OPEN_BRACKET int32 CLOSE_BRACKET \r
1319                         */\r
1320                         | type AMPERSAND \r
1321                         | type STAR \r
1322                         | type K_PINNED \r
1323                         | type K_MODREQ OPEN_PARENS className CLOSE_PARENS \r
1324                         | type K_MODOPT OPEN_PARENS className CLOSE_PARENS \r
1325                         | BANG int32 \r
1326                         | methodSpec callConv type STAR OPEN_PARENS sigArgs0 CLOSE_PARENS \r
1327                         | K_TYPEDREF \r
1328                         | K_CHAR \r
1329                         | K_VOID \r
1330                         | K_BOOL \r
1331                         | K_INT8 \r
1332                         | K_INT16 \r
1333                         | K_INT32 \r
1334                         | K_INT64 \r
1335                         | K_FLOAT32 \r
1336                         | K_FLOAT64 \r
1337                         | K_UNSIGNED K_INT8     {$$ = "uint8";}\r
1338                         | K_UNSIGNED K_INT16    {$$ = "uint16";}\r
1339                         | K_UNSIGNED K_INT32    {$$ = "uint32";}\r
1340                         | K_UNSIGNED K_INT64    {$$ = "uint64";}\r
1341                         | K_NATIVE K_INT \r
1342                         | K_NATIVE K_UNSIGNED K_INT \r
1343                         | K_NATIVE K_FLOAT \r
1344                         ;\r
1345 \r
1346 bounds1                 : bound \r
1347                         | bounds1 COMMA bound \r
1348                         ;\r
1349 \r
1350 bound                   : /* EMPTY */ \r
1351                         | ELLIPSIS \r
1352                         | int32  \r
1353                         | int32 ELLIPSIS int32    \r
1354                         | int32 ELLIPSIS  \r
1355                         ;\r
1356 \r
1357 labels                  : /* empty */ \r
1358                         | id COMMA labels \r
1359                         | int32 COMMA labels \r
1360                         | id \r
1361                         | int32 \r
1362                         ;\r
1363 \r
1364 \r
1365 id                      : ID \r
1366                         | SQSTRING \r
1367                         ;\r
1368 \r
1369 int16s                  : /* EMPTY */ \r
1370                         | int16s int32 \r
1371                         ;\r
1372                                 \r
1373 int32                   : INT32 /* NOTE: it's INT64 in docs */\r
1374                         ;\r
1375 \r
1376 int64                   : INT64 \r
1377                         ;\r
1378 \r
1379 float64                 : FLOAT64 \r
1380                         | K_FLOAT32 OPEN_PARENS int32 CLOSE_PARENS \r
1381                         | K_FLOAT64 OPEN_PARENS int64 CLOSE_PARENS \r
1382                         ;\r
1383 \r
1384 secDecl                 : D_PERMISSION secAction typeSpec OPEN_PARENS nameValPairs CLOSE_PARENS \r
1385                         | D_PERMISSION secAction typeSpec \r
1386                         | psetHead bytes CLOSE_PARENS \r
1387                         ;\r
1388 \r
1389 psetHead                : D_PERMISSIONSET secAction ASSIGN OPEN_PARENS \r
1390                         ;\r
1391 \r
1392 nameValPairs            : nameValPair \r
1393                         | nameValPair COMMA nameValPairs \r
1394                         ;\r
1395 \r
1396 nameValPair             : compQstring ASSIGN caValue \r
1397                         ;\r
1398 \r
1399 truefalse               : K_TRUE \r
1400                         | K_FALSE \r
1401                         ;\r
1402 \r
1403 caValue                 : truefalse \r
1404                         | int32 \r
1405                         | K_INT32 OPEN_PARENS int32 CLOSE_PARENS \r
1406                         | compQstring \r
1407                         | className OPEN_PARENS K_INT8 COLON int32 CLOSE_PARENS \r
1408                         | className OPEN_PARENS K_INT16 COLON int32 CLOSE_PARENS \r
1409                         | className OPEN_PARENS K_INT32 COLON int32 CLOSE_PARENS \r
1410                         | className OPEN_PARENS int32 CLOSE_PARENS \r
1411                         ;\r
1412 \r
1413 secAction               : K_REQUEST \r
1414                         | K_DEMAND \r
1415                         | K_ASSERT \r
1416                         | K_DENY \r
1417                         | K_PERMITONLY \r
1418                         | K_LINKCHECK \r
1419                         | K_INHERITCHECK \r
1420                         | K_REQMIN \r
1421                         | K_REQOPT \r
1422                         | K_REQREFUSE \r
1423                         | K_PREJITGRANT \r
1424                         | K_PREJITDENY \r
1425                         | K_NONCASDEMAND \r
1426                         | K_NONCASLINKDEMAND \r
1427                         | K_NONCASINHERITANCE \r
1428                         ;\r
1429 \r
1430 extSourceSpec           : D_LINE int32 SQSTRING \r
1431                         | D_LINE int32 \r
1432                         | D_XLINE int32 QSTRING \r
1433                         ;\r
1434 \r
1435 fileDecl                : D_FILE fileAttr name1 fileEntry hashHead bytes CLOSE_PARENS fileEntry \r
1436                         | D_FILE fileAttr name1 fileEntry \r
1437                         ;\r
1438 \r
1439 fileAttr                : /* EMPTY */ \r
1440                         | fileAttr K_NOMETADATA \r
1441                         ;\r
1442 \r
1443 fileEntry               : /* EMPTY */ \r
1444                         | D_ENTRYPOINT \r
1445                         ;\r
1446 \r
1447 hashHead                : D_HASH ASSIGN OPEN_PARENS \r
1448                         ;\r
1449 \r
1450 assemblyHead            : D_ASSEMBLY asmAttr name1\r
1451                         {\r
1452                                 /*\r
1453                                 // TODO: set assembly attrs\r
1454                                 codegen.SetName ($3 as string);\r
1455                                 */\r
1456                         }\r
1457                         ;\r
1458 \r
1459 asmAttr                 : /* EMPTY */ \r
1460                         | asmAttr K_NOAPPDOMAIN \r
1461                         | asmAttr K_NOPROCESS \r
1462                         | asmAttr K_NOMACHINE \r
1463                         ;\r
1464 \r
1465 assemblyDecls           : /* EMPTY */\r
1466                         | assemblyDecls assemblyDecl\r
1467                         ;\r
1468 \r
1469 assemblyDecl            : D_HASH K_ALGORITHM int32 \r
1470                         | secDecl\r
1471                         | asmOrRefDecl\r
1472                         ;\r
1473 \r
1474 asmOrRefDecl            : publicKeyHead bytes CLOSE_PARENS \r
1475                         | D_VER int32 COLON int32 COLON int32 COLON int32 \r
1476                         | D_LOCALE compQstring \r
1477                         | localeHead bytes CLOSE_PARENS \r
1478                         | D_PROCESSOR int32 \r
1479                         | D_OS int32 D_VER int32 COLON int32 \r
1480                         | customAttrDecl\r
1481                         ;\r
1482 \r
1483 publicKeyHead           : D_PUBLICKEY ASSIGN OPEN_PARENS \r
1484                         ;\r
1485 \r
1486 publicKeyTokenHead      : D_PUBLICKEYTOKEN ASSIGN OPEN_PARENS \r
1487                         ;\r
1488 \r
1489 localeHead              : D_LOCALE ASSIGN OPEN_PARENS \r
1490                         ;\r
1491 \r
1492 assemblyRefHead         : D_ASSEMBLY K_EXTERN name1 \r
1493                           {\r
1494                                 System.Reflection.AssemblyName asmb_name = \r
1495                                         new System.Reflection.AssemblyName ();\r
1496                                 asmb_name.Name = (string) $3;\r
1497                                 codegen.ExternTable.AddAssembly ((string) $3, asmb_name);\r
1498                           }\r
1499                         ;\r
1500 \r
1501 assemblyRefDecls        : /* EMPTY */\r
1502                         | assemblyRefDecls assemblyRefDecl\r
1503                         ;\r
1504 \r
1505 assemblyRefDecl         : hashHead bytes CLOSE_PARENS \r
1506                         | asmOrRefDecl\r
1507                         | publicKeyTokenHead bytes CLOSE_PARENS \r
1508                         ;\r
1509 \r
1510 comtypeHead             : D_CLASS K_EXTERN comtAttr name1  \r
1511                         ;\r
1512 \r
1513 exportHead              : D_EXPORT comtAttr name1 \r
1514                         ;\r
1515 \r
1516 comtAttr                : /* EMPTY */ \r
1517                         | comtAttr K_PRIVATE \r
1518                         | comtAttr K_PUBLIC \r
1519                         | comtAttr K_NESTED K_PUBLIC \r
1520                         | comtAttr K_NESTED K_PRIVATE \r
1521                         | comtAttr K_NESTED K_FAMILY \r
1522                         | comtAttr K_NESTED K_ASSEMBLY \r
1523                         | comtAttr K_NESTED K_FAMANDASSEM \r
1524                         | comtAttr K_NESTED K_FAMORASSEM \r
1525                         ;\r
1526 \r
1527 comtypeDecls            : /* EMPTY */\r
1528                         | comtypeDecls comtypeDecl\r
1529                         ;\r
1530 \r
1531 comtypeDecl             : D_FILE name1 \r
1532                         | D_CLASS K_EXTERN name1 \r
1533                         | D_CLASS  int32 \r
1534                         | customAttrDecl\r
1535                         ;\r
1536 \r
1537 manifestResHead         : D_MRESOURCE manresAttr name1 \r
1538                         ;\r
1539 \r
1540 manresAttr              : /* EMPTY */ \r
1541                         | manresAttr K_PUBLIC \r
1542                         | manresAttr K_PRIVATE \r
1543                         ;\r
1544 \r
1545 manifestResDecls        : /* EMPTY */\r
1546                         | manifestResDecls manifestResDecl\r
1547                         ;\r
1548 \r
1549 manifestResDecl         : D_FILE name1 K_AT int32 \r
1550                         | D_ASSEMBLY K_EXTERN name1 \r
1551                         | customAttrDecl\r
1552                         ;\r
1553 \r
1554 \r
1555 \r
1556 %%\r
1557 \r
1558 } // namespace Mono.ILASM\r