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