~ubuntu-branches/ubuntu/oneiric/monodevelop/oneiric

« back to all changes in this revision

Viewing changes to contrib/Mono.Cecil/Mono.Cecil/Mono.Cecil.Signatures/SignatureReader.cs

  • Committer: Bazaar Package Importer
  • Author(s): Jo Shields
  • Date: 2011-06-27 17:03:13 UTC
  • mto: (1.8.1 upstream)
  • mto: This revision was merged to the branch mainline in revision 54.
  • Revision ID: james.westby@ubuntu.com-20110627170313-6cvz3s19x6e9hqe9
ImportĀ upstreamĀ versionĀ 2.5.92+dfsg

Show diffs side-by-side

added added

removed removed

Lines of Context:
1
 
//
2
 
// SignatureReader.cs
3
 
//
4
 
// Author:
5
 
//   Jb Evain (jbevain@gmail.com)
6
 
//
7
 
// (C) 2005 - 2007 Jb Evain
8
 
//
9
 
// Permission is hereby granted, free of charge, to any person obtaining
10
 
// a copy of this software and associated documentation files (the
11
 
// "Software"), to deal in the Software without restriction, including
12
 
// without limitation the rights to use, copy, modify, merge, publish,
13
 
// distribute, sublicense, and/or sell copies of the Software, and to
14
 
// permit persons to whom the Software is furnished to do so, subject to
15
 
// the following conditions:
16
 
//
17
 
// The above copyright notice and this permission notice shall be
18
 
// included in all copies or substantial portions of the Software.
19
 
//
20
 
// THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
21
 
// EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
22
 
// MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
23
 
// NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
24
 
// LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
25
 
// OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
26
 
// WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
27
 
//
28
 
 
29
 
namespace Mono.Cecil.Signatures {
30
 
 
31
 
        using System;
32
 
        using System.Collections;
33
 
        using System.IO;
34
 
        using System.Text;
35
 
 
36
 
        using Mono.Cecil;
37
 
        using Mono.Cecil.Metadata;
38
 
 
39
 
        internal sealed class SignatureReader : BaseSignatureVisitor {
40
 
 
41
 
                MetadataRoot m_root;
42
 
                ReflectionReader m_reflectReader;
43
 
                byte [] m_blobData;
44
 
 
45
 
                IDictionary m_signatures;
46
 
 
47
 
                IAssemblyResolver AssemblyResolver {
48
 
                        get { return m_reflectReader.Module.Assembly.Resolver; }
49
 
                }
50
 
 
51
 
                public SignatureReader (MetadataRoot root, ReflectionReader reflectReader)
52
 
                {
53
 
                        m_root = root;
54
 
                        m_reflectReader = reflectReader;
55
 
 
56
 
                        m_blobData = m_root.Streams.BlobHeap != null ? m_root.Streams.BlobHeap.Data : new byte [0];
57
 
 
58
 
                        m_signatures = new Hashtable ();
59
 
                }
60
 
 
61
 
                public FieldSig GetFieldSig (uint index)
62
 
                {
63
 
                        FieldSig f = m_signatures [index] as FieldSig;
64
 
                        if (f == null) {
65
 
                                f = new FieldSig (index);
66
 
                                f.Accept (this);
67
 
                                m_signatures [index] = f;
68
 
                        }
69
 
                        return f;
70
 
                }
71
 
 
72
 
                public PropertySig GetPropSig (uint index)
73
 
                {
74
 
                        PropertySig p = m_signatures [index] as PropertySig;
75
 
                        if (p == null) {
76
 
                                p = new PropertySig (index);
77
 
                                p.Accept (this);
78
 
                                m_signatures [index] = p;
79
 
                        }
80
 
                        return p;
81
 
                }
82
 
 
83
 
                public MethodDefSig GetMethodDefSig (uint index)
84
 
                {
85
 
                        MethodDefSig m = m_signatures [index] as MethodDefSig;
86
 
                        if (m == null) {
87
 
                                m = new MethodDefSig (index);
88
 
                                m.Accept (this);
89
 
                                m_signatures [index] = m;
90
 
                        }
91
 
                        return m;
92
 
                }
93
 
 
94
 
                public MethodRefSig GetMethodRefSig (uint index)
95
 
                {
96
 
                        MethodRefSig m = m_signatures [index] as MethodRefSig;
97
 
                        if (m == null) {
98
 
                                m = new MethodRefSig (index);
99
 
                                m.Accept (this);
100
 
                                m_signatures [index] = m;
101
 
                        }
102
 
                        return m;
103
 
                }
104
 
 
105
 
                public TypeSpec GetTypeSpec (uint index)
106
 
                {
107
 
                        TypeSpec ts = m_signatures [index] as TypeSpec;
108
 
 
109
 
                        if (ts == null) {
110
 
                                ts = ReadTypeSpec (m_blobData, (int) index);
111
 
                                m_signatures [index] = ts;
112
 
                        }
113
 
 
114
 
                        return ts;
115
 
                }
116
 
 
117
 
                public MethodSpec GetMethodSpec (uint index)
118
 
                {
119
 
                        MethodSpec ms = m_signatures [index] as MethodSpec;
120
 
 
121
 
                        if (ms == null) {
122
 
                                ms = ReadMethodSpec (m_blobData, (int) index);
123
 
                                m_signatures [index] = ms;
124
 
                        }
125
 
 
126
 
                        return ms;
127
 
                }
128
 
 
129
 
                public LocalVarSig GetLocalVarSig (uint index)
130
 
                {
131
 
                        LocalVarSig lv = m_signatures [index] as LocalVarSig;
132
 
                        if (lv == null) {
133
 
                                lv = new LocalVarSig (index);
134
 
                                lv.Accept (this);
135
 
                                m_signatures [index] = lv;
136
 
                        }
137
 
                        return lv;
138
 
                }
139
 
 
140
 
                public CustomAttrib GetCustomAttrib (uint index, MethodReference ctor)
141
 
                {
142
 
                        return GetCustomAttrib (index, ctor, false);
143
 
                }
144
 
 
145
 
                public CustomAttrib GetCustomAttrib (uint index, MethodReference ctor, bool resolve)
146
 
                {
147
 
                        return ReadCustomAttrib ((int) index, ctor, resolve);
148
 
                }
149
 
 
150
 
                public CustomAttrib GetCustomAttrib (byte [] data, MethodReference ctor)
151
 
                {
152
 
                        return GetCustomAttrib (data, ctor, false);
153
 
                }
154
 
 
155
 
                public CustomAttrib GetCustomAttrib (byte [] data, MethodReference ctor, bool resolve)
156
 
                {
157
 
                        BinaryReader br = new BinaryReader (new MemoryStream (data));
158
 
                        return ReadCustomAttrib (br, data, ctor, resolve);
159
 
                }
160
 
 
161
 
                public Signature GetMemberRefSig (TokenType tt, uint index)
162
 
                {
163
 
                        int start, callconv;
164
 
                        Utilities.ReadCompressedInteger (m_blobData, (int) index, out start);
165
 
                        callconv = m_blobData [start];
166
 
                        if ((callconv & 0x5) == 0x5 || (callconv & 0x10) == 0x10) // vararg || generic?
167
 
                                return GetMethodDefSig (index);
168
 
                        if ((callconv & 0x6) != 0) // field ?
169
 
                                return GetFieldSig (index);
170
 
 
171
 
                        switch (tt) {
172
 
                        case TokenType.TypeDef :
173
 
                        case TokenType.TypeRef :
174
 
                        case TokenType.TypeSpec :
175
 
                                return GetMethodRefSig (index);
176
 
                        case TokenType.ModuleRef :
177
 
                        case TokenType.Method :
178
 
                                return GetMethodDefSig (index);
179
 
                        }
180
 
                        return null;
181
 
                }
182
 
 
183
 
                public MarshalSig GetMarshalSig (uint index)
184
 
                {
185
 
                        MarshalSig ms = m_signatures [index] as MarshalSig;
186
 
                        if (ms == null) {
187
 
                                byte [] data = m_root.Streams.BlobHeap.Read (index);
188
 
                                ms = ReadMarshalSig (data);
189
 
                                m_signatures [index] = ms;
190
 
                        }
191
 
                        return ms;
192
 
                }
193
 
 
194
 
                public MethodSig GetStandAloneMethodSig (uint index)
195
 
                {
196
 
                        byte [] data = m_root.Streams.BlobHeap.Read (index);
197
 
                        int start;
198
 
                        if ((data [0] & 0x5) > 0) {
199
 
                                MethodRefSig mrs = new MethodRefSig (index);
200
 
                                ReadMethodRefSig (mrs, data, 0, out start);
201
 
                                return mrs;
202
 
                        } else {
203
 
                                MethodDefSig mds = new MethodDefSig (index);
204
 
                                ReadMethodDefSig (mds, data, 0, out start);
205
 
                                return mds;
206
 
                        }
207
 
                }
208
 
 
209
 
                public override void VisitMethodDefSig (MethodDefSig methodDef)
210
 
                {
211
 
                        int start;
212
 
                        ReadMethodDefSig (methodDef, m_root.Streams.BlobHeap.Read (methodDef.BlobIndex), 0, out start);
213
 
                }
214
 
 
215
 
                public override void VisitMethodRefSig (MethodRefSig methodRef)
216
 
                {
217
 
                        int start;
218
 
                        ReadMethodRefSig (methodRef, m_root.Streams.BlobHeap.Read (methodRef.BlobIndex), 0, out start);
219
 
                }
220
 
 
221
 
                public override void VisitFieldSig (FieldSig field)
222
 
                {
223
 
                        int start;
224
 
                        Utilities.ReadCompressedInteger (m_blobData, (int) field.BlobIndex, out start);
225
 
                        field.CallingConvention = m_blobData [start];
226
 
                        field.Field = (field.CallingConvention & 0x6) != 0;
227
 
                        field.CustomMods = ReadCustomMods (m_blobData, start + 1, out start);
228
 
                        field.Type = ReadType (m_blobData, start, out start);
229
 
                }
230
 
 
231
 
                public override void VisitPropertySig (PropertySig property)
232
 
                {
233
 
                        int start;
234
 
                        Utilities.ReadCompressedInteger (m_blobData, (int) property.BlobIndex, out start);
235
 
                        property.CallingConvention = m_blobData [start];
236
 
                        property.Property = (property.CallingConvention & 0x8) != 0;
237
 
                        property.ParamCount = Utilities.ReadCompressedInteger (m_blobData, start + 1, out start);
238
 
                        property.CustomMods = ReadCustomMods (m_blobData, start, out start);
239
 
                        property.Type = ReadType (m_blobData, start, out start);
240
 
                        property.Parameters = ReadParameters (property.ParamCount, m_blobData, start, out start);
241
 
                }
242
 
 
243
 
                public override void VisitLocalVarSig (LocalVarSig localvar)
244
 
                {
245
 
                        int start;
246
 
                        Utilities.ReadCompressedInteger (m_blobData, (int) localvar.BlobIndex, out start);
247
 
                        localvar.CallingConvention = m_blobData [start];
248
 
                        localvar.Local = (localvar.CallingConvention & 0x7) != 0;
249
 
                        localvar.Count = Utilities.ReadCompressedInteger (m_blobData, start + 1, out start);
250
 
                        localvar.LocalVariables = ReadLocalVariables (localvar.Count, m_blobData, start);
251
 
                }
252
 
 
253
 
                void ReadMethodDefSig (MethodDefSig methodDef, byte [] data, int pos, out int start)
254
 
                {
255
 
                        methodDef.CallingConvention = data [pos];
256
 
                        start = pos + 1;
257
 
                        methodDef.HasThis = (methodDef.CallingConvention & 0x20) != 0;
258
 
                        methodDef.ExplicitThis = (methodDef.CallingConvention & 0x40) != 0;
259
 
                        if ((methodDef.CallingConvention & 0x5) != 0)
260
 
                                methodDef.MethCallConv |= MethodCallingConvention.VarArg;
261
 
                        else if ((methodDef.CallingConvention & 0x10) != 0) {
262
 
                                methodDef.MethCallConv |= MethodCallingConvention.Generic;
263
 
                                methodDef.GenericParameterCount = Utilities.ReadCompressedInteger (data, start, out start);
264
 
                        } else
265
 
                                methodDef.MethCallConv |= MethodCallingConvention.Default;
266
 
 
267
 
                        methodDef.ParamCount = Utilities.ReadCompressedInteger (data, start, out start);
268
 
                        methodDef.RetType = ReadRetType (data, start, out start);
269
 
                        int sentpos;
270
 
                        methodDef.Parameters = ReadParameters (methodDef.ParamCount, data, start, out start, out sentpos);
271
 
                        methodDef.Sentinel = sentpos;
272
 
                }
273
 
 
274
 
                void ReadMethodRefSig (MethodRefSig methodRef, byte [] data, int pos, out int start)
275
 
                {
276
 
                        methodRef.CallingConvention = data [pos];
277
 
                        start = pos + 1;
278
 
                        methodRef.HasThis = (methodRef.CallingConvention & 0x20) != 0;
279
 
                        methodRef.ExplicitThis = (methodRef.CallingConvention & 0x40) != 0;
280
 
                        if ((methodRef.CallingConvention & 0x1) != 0)
281
 
                                methodRef.MethCallConv |= MethodCallingConvention.C;
282
 
                        else if ((methodRef.CallingConvention & 0x2) != 0)
283
 
                                methodRef.MethCallConv |= MethodCallingConvention.StdCall;
284
 
                        else if ((methodRef.CallingConvention & 0x3) != 0)
285
 
                                methodRef.MethCallConv |= MethodCallingConvention.ThisCall;
286
 
                        else if ((methodRef.CallingConvention & 0x4) != 0)
287
 
                                methodRef.MethCallConv |= MethodCallingConvention.FastCall;
288
 
                        else if ((methodRef.CallingConvention & 0x5) != 0)
289
 
                                methodRef.MethCallConv |= MethodCallingConvention.VarArg;
290
 
                        else
291
 
                                methodRef.MethCallConv |= MethodCallingConvention.Default;
292
 
                        methodRef.ParamCount = Utilities.ReadCompressedInteger (data, start, out start);
293
 
                        methodRef.RetType = ReadRetType (data, start, out start);
294
 
                        int sentpos;
295
 
                        methodRef.Parameters = ReadParameters (methodRef.ParamCount, data, start, out start, out sentpos);
296
 
                        methodRef.Sentinel = sentpos;
297
 
                }
298
 
 
299
 
                LocalVarSig.LocalVariable [] ReadLocalVariables (int length, byte [] data, int pos)
300
 
                {
301
 
                        int start = pos;
302
 
                        LocalVarSig.LocalVariable [] types = new LocalVarSig.LocalVariable [length];
303
 
                        for (int i = 0; i < length; i++)
304
 
                                types [i] = ReadLocalVariable (data, start, out start);
305
 
                        return types;
306
 
                }
307
 
 
308
 
                LocalVarSig.LocalVariable ReadLocalVariable (byte [] data, int pos, out int start)
309
 
                {
310
 
                        start = pos;
311
 
                        LocalVarSig.LocalVariable lv = new LocalVarSig.LocalVariable ();
312
 
                        lv.ByRef = false;
313
 
                        int cursor;
314
 
                        while (true) {
315
 
                                lv.CustomMods = ReadCustomMods (data, start, out start);
316
 
                                cursor = start;
317
 
                                int current = Utilities.ReadCompressedInteger (data, start, out start);
318
 
                                if (current == (int) ElementType.Pinned) // the only possible constraint
319
 
                                        lv.Constraint |= Constraint.Pinned;
320
 
                                else if (current == (int) ElementType.ByRef) {
321
 
                                        lv.ByRef = true;
322
 
 
323
 
                                        if (lv.CustomMods == null || lv.CustomMods.Length == 0)
324
 
                                                lv.CustomMods = ReadCustomMods (data, start, out start);
325
 
                                } else {
326
 
                                        lv.Type = ReadType (data, cursor, out start);
327
 
                                        break;
328
 
                                }
329
 
                        }
330
 
                        return lv;
331
 
                }
332
 
 
333
 
                TypeSpec ReadTypeSpec (byte [] data, int pos)
334
 
                {
335
 
                        int start = pos;
336
 
                        Utilities.ReadCompressedInteger (data, start, out start);
337
 
                        TypeSpec ts = new TypeSpec ();
338
 
                        ts.CustomMods = ReadCustomMods (data, start, out start);
339
 
                        ts.Type = ReadType (data, start, out start);
340
 
                        return ts;
341
 
                }
342
 
 
343
 
                MethodSpec ReadMethodSpec (byte [] data, int pos)
344
 
                {
345
 
                        int start = pos;
346
 
 
347
 
                        Utilities.ReadCompressedInteger (data, start, out start);
348
 
                        if (Utilities.ReadCompressedInteger (data, start, out start) != 0x0a)
349
 
                                throw new ReflectionException ("Invalid MethodSpec signature");
350
 
 
351
 
                        return new MethodSpec (ReadGenericInstSignature (data, start, out start));
352
 
                }
353
 
 
354
 
                RetType ReadRetType (byte [] data, int pos, out int start)
355
 
                {
356
 
                        RetType rt = new RetType ();
357
 
                        start = pos;
358
 
                        rt.CustomMods = ReadCustomMods (data, start, out start);
359
 
                        int curs = start;
360
 
                        ElementType flag = (ElementType) Utilities.ReadCompressedInteger (data, start, out start);
361
 
                        switch (flag) {
362
 
                        case ElementType.Void :
363
 
                                rt.ByRef = rt.TypedByRef = false;
364
 
                                rt.Void = true;
365
 
                                break;
366
 
                        case ElementType.TypedByRef :
367
 
                                rt.ByRef = rt.Void = false;
368
 
                                rt.TypedByRef = true;
369
 
                                break;
370
 
                        case ElementType.ByRef :
371
 
                                rt.TypedByRef = rt.Void = false;
372
 
                                rt.ByRef = true;
373
 
                                rt.CustomMods = CombineCustomMods(rt.CustomMods, ReadCustomMods (data, start, out start));
374
 
                                rt.Type = ReadType (data, start, out start);
375
 
                                break;
376
 
                        default :
377
 
                                rt.TypedByRef = rt.Void = rt.ByRef = false;
378
 
                                rt.Type = ReadType (data, curs, out start);
379
 
                                break;
380
 
                        }
381
 
 
382
 
                        return rt;
383
 
                }
384
 
 
385
 
                static CustomMod [] CombineCustomMods (CustomMod [] original, CustomMod [] next)
386
 
                {
387
 
                        if (next == null || next.Length == 0)
388
 
                                return original;
389
 
 
390
 
                        CustomMod [] mods = new CustomMod [original.Length + next.Length];
391
 
                        Array.Copy (original, mods, original.Length);
392
 
                        Array.Copy (next, 0, mods, original.Length, next.Length);
393
 
                        return mods;
394
 
                }
395
 
 
396
 
                Param [] ReadParameters (int length, byte [] data, int pos, out int start)
397
 
                {
398
 
                        Param [] ret = new Param [length];
399
 
                        start = pos;
400
 
                        for (int i = 0; i < length; i++)
401
 
                                ret [i] = ReadParameter (data, start, out start);
402
 
                        return ret;
403
 
                }
404
 
 
405
 
                Param [] ReadParameters (int length, byte [] data, int pos, out int start, out int sentinelpos)
406
 
                {
407
 
                        Param [] ret = new Param [length];
408
 
                        start = pos;
409
 
                        sentinelpos = -1;
410
 
 
411
 
                        for (int i = 0; i < length; i++) {
412
 
                                int curs = start;
413
 
                                int flag = Utilities.ReadCompressedInteger (data, start, out start);
414
 
 
415
 
                                if (flag == (int) ElementType.Sentinel) {
416
 
                                        sentinelpos = i;
417
 
                                        curs = start;
418
 
                                }
419
 
 
420
 
                                ret [i] = ReadParameter (data, curs, out start);
421
 
                        }
422
 
 
423
 
                        return ret;
424
 
                }
425
 
 
426
 
                Param ReadParameter (byte [] data, int pos, out int start)
427
 
                {
428
 
                        Param p = new Param ();
429
 
                        start = pos;
430
 
 
431
 
                        p.CustomMods = ReadCustomMods (data, start, out start);
432
 
                        int curs = start;
433
 
                        ElementType flag = (ElementType) Utilities.ReadCompressedInteger (data, start, out start);
434
 
                        switch (flag) {
435
 
                        case ElementType.TypedByRef :
436
 
                                p.TypedByRef = true;
437
 
                                p.ByRef = false;
438
 
                                break;
439
 
                        case ElementType.ByRef :
440
 
                                p.TypedByRef = false;
441
 
                                p.ByRef = true;
442
 
 
443
 
                                if (p.CustomMods == null || p.CustomMods.Length == 0)
444
 
                                        p.CustomMods = ReadCustomMods (data, start, out start);
445
 
 
446
 
                                p.Type = ReadType (data, start, out start);
447
 
                                break;
448
 
                        default :
449
 
                                p.TypedByRef = false;
450
 
                                p.ByRef = false;
451
 
                                p.Type = ReadType (data, curs, out start);
452
 
                                break;
453
 
                        }
454
 
                        return p;
455
 
                }
456
 
 
457
 
                SigType ReadType (byte [] data, int pos, out int start)
458
 
                {
459
 
                        start = pos;
460
 
                        ElementType element = (ElementType) Utilities.ReadCompressedInteger (data, start, out start);
461
 
                        switch (element) {
462
 
                        case ElementType.ValueType :
463
 
                                VALUETYPE vt = new VALUETYPE ();
464
 
                                vt.Type = Utilities.GetMetadataToken (CodedIndex.TypeDefOrRef,
465
 
                                        (uint) Utilities.ReadCompressedInteger (data, start, out start));
466
 
                                return vt;
467
 
                        case ElementType.Class :
468
 
                                CLASS c = new CLASS ();
469
 
                                c.Type = Utilities.GetMetadataToken (CodedIndex.TypeDefOrRef,
470
 
                                        (uint) Utilities.ReadCompressedInteger (data, start, out start));
471
 
                                return c;
472
 
                        case ElementType.Ptr :
473
 
                                PTR p = new PTR ();
474
 
                                int buf = start;
475
 
                                int flag = Utilities.ReadCompressedInteger (data, start, out start);
476
 
                                p.Void = flag == (int) ElementType.Void;
477
 
                                if (p.Void)
478
 
                                        return p;
479
 
                                start = buf;
480
 
                                p.CustomMods = ReadCustomMods (data, start, out start);
481
 
                                p.PtrType = ReadType (data, start, out start);
482
 
                                return p;
483
 
                        case ElementType.FnPtr :
484
 
                                FNPTR fp = new FNPTR ();
485
 
                                if ((data [start] & 0x5) != 0) {
486
 
                                        MethodRefSig mr = new MethodRefSig ((uint) start);
487
 
                                        ReadMethodRefSig (mr, data, start, out start);
488
 
                                        fp.Method = mr;
489
 
                                } else {
490
 
                                        MethodDefSig md = new MethodDefSig ((uint) start);
491
 
                                        ReadMethodDefSig (md, data, start, out start);
492
 
                                        fp.Method = md;
493
 
                                }
494
 
                                return fp;
495
 
                        case ElementType.Array :
496
 
                                ARRAY ary = new ARRAY ();
497
 
                                ary.CustomMods = ReadCustomMods (data, start, out start);
498
 
                                ArrayShape shape = new ArrayShape ();
499
 
                                ary.Type = ReadType (data, start, out start);
500
 
                                shape.Rank = Utilities.ReadCompressedInteger (data, start, out start);
501
 
                                shape.NumSizes = Utilities.ReadCompressedInteger (data, start, out start);
502
 
                                shape.Sizes = new int [shape.NumSizes];
503
 
                                for (int i = 0; i < shape.NumSizes; i++)
504
 
                                        shape.Sizes [i] = Utilities.ReadCompressedInteger (data, start, out start);
505
 
                                shape.NumLoBounds = Utilities.ReadCompressedInteger (data, start, out start);
506
 
                                shape.LoBounds = new int [shape.NumLoBounds];
507
 
                                for (int i = 0; i < shape.NumLoBounds; i++)
508
 
                                        shape.LoBounds [i] = Utilities.ReadCompressedInteger (data, start, out start);
509
 
                                ary.Shape = shape;
510
 
                                return ary;
511
 
                        case ElementType.SzArray :
512
 
                                SZARRAY sa = new SZARRAY ();
513
 
                                sa.CustomMods = ReadCustomMods (data, start, out start);
514
 
                                sa.Type = ReadType (data, start, out start);
515
 
                                return sa;
516
 
                        case ElementType.Var:
517
 
                                return new VAR (Utilities.ReadCompressedInteger (data, start, out start));
518
 
                        case ElementType.MVar:
519
 
                                return new MVAR (Utilities.ReadCompressedInteger (data, start, out start));
520
 
                        case ElementType.GenericInst:
521
 
                                GENERICINST ginst = new GENERICINST ();
522
 
 
523
 
                                ginst.ValueType = ((ElementType) Utilities.ReadCompressedInteger (
524
 
                                        data, start, out start)) == ElementType.ValueType;
525
 
 
526
 
                                ginst.Type = Utilities.GetMetadataToken (CodedIndex.TypeDefOrRef,
527
 
                                        (uint) Utilities.ReadCompressedInteger (data, start, out start));
528
 
 
529
 
                                ginst.Signature = ReadGenericInstSignature (data, start, out start);
530
 
 
531
 
                                return ginst;
532
 
                        default :
533
 
                                return new SigType (element);
534
 
                        }
535
 
                }
536
 
 
537
 
                GenericInstSignature ReadGenericInstSignature (byte [] data, int pos, out int start)
538
 
                {
539
 
                        start = pos;
540
 
                        GenericInstSignature gis = new GenericInstSignature ();
541
 
                        gis.Arity = Utilities.ReadCompressedInteger (data, start, out start);
542
 
                        gis.Types = new GenericArg [gis.Arity];
543
 
                        for (int i = 0; i < gis.Arity; i++)
544
 
                                gis.Types [i] = ReadGenericArg (data, start, out start);
545
 
 
546
 
                        return gis;
547
 
                }
548
 
 
549
 
                GenericArg ReadGenericArg (byte[] data, int pos, out int start)
550
 
                {
551
 
                        start = pos;
552
 
                        CustomMod [] mods = ReadCustomMods (data, start, out start);
553
 
                        GenericArg arg = new GenericArg (ReadType (data, start, out start));
554
 
                        arg.CustomMods = mods;
555
 
                        return arg;
556
 
                }
557
 
 
558
 
                CustomMod [] ReadCustomMods (byte [] data, int pos, out int start)
559
 
                {
560
 
                        ArrayList cmods = null;
561
 
                        start = pos;
562
 
                        while (true) {
563
 
                                int buf = start;
564
 
                                if (buf >= data.Length - 1)
565
 
                                        break;
566
 
 
567
 
                                ElementType flag = (ElementType) Utilities.ReadCompressedInteger (data, start, out start);
568
 
                                start = buf;
569
 
                                if (!((flag == ElementType.CModOpt) || (flag == ElementType.CModReqD)))
570
 
                                        break;
571
 
 
572
 
                                if (cmods == null)
573
 
                                        cmods = new ArrayList (2);
574
 
 
575
 
                                cmods.Add (ReadCustomMod (data, start, out start));
576
 
                        }
577
 
 
578
 
                        return cmods == null ? CustomMod.EmptyCustomMod : cmods.ToArray (typeof (CustomMod)) as CustomMod [];
579
 
                }
580
 
 
581
 
                CustomMod ReadCustomMod (byte [] data, int pos, out int start)
582
 
                {
583
 
                        CustomMod cm = new CustomMod ();
584
 
                        start = pos;
585
 
                        ElementType cmod = (ElementType) Utilities.ReadCompressedInteger (data, start, out start);
586
 
                        if (cmod == ElementType.CModOpt)
587
 
                                cm.CMOD = CustomMod.CMODType.OPT;
588
 
                        else if (cmod == ElementType.CModReqD)
589
 
                                cm.CMOD = CustomMod.CMODType.REQD;
590
 
                        else
591
 
                                cm.CMOD = CustomMod.CMODType.None;
592
 
                        cm.TypeDefOrRef = Utilities.GetMetadataToken (CodedIndex.TypeDefOrRef,
593
 
                                (uint) Utilities.ReadCompressedInteger (data, start, out start));
594
 
                        return cm;
595
 
                }
596
 
 
597
 
                CustomAttrib ReadCustomAttrib (int pos, MethodReference ctor, bool resolve)
598
 
                {
599
 
                        int start, length = Utilities.ReadCompressedInteger (m_blobData, pos, out start);
600
 
                        byte [] data = new byte [length];
601
 
                        Buffer.BlockCopy (m_blobData, start, data, 0, length);
602
 
                        try {
603
 
                                return ReadCustomAttrib (new BinaryReader (
604
 
                                        new MemoryStream (data)), data, ctor, resolve);
605
 
                        } catch {
606
 
                                CustomAttrib ca = new CustomAttrib (ctor);
607
 
                                ca.Read = false;
608
 
                                return ca;
609
 
                        }
610
 
                }
611
 
 
612
 
                CustomAttrib ReadCustomAttrib (BinaryReader br, byte [] data, MethodReference ctor, bool resolve)
613
 
                {
614
 
                        CustomAttrib ca = new CustomAttrib (ctor);
615
 
                        if (data.Length == 0) {
616
 
                                ca.FixedArgs = CustomAttrib.FixedArg.Empty;
617
 
                                ca.NamedArgs = CustomAttrib.NamedArg.Empty;
618
 
                                return ca;
619
 
                        }
620
 
 
621
 
                        bool read = true;
622
 
 
623
 
                        ca.Prolog = br.ReadUInt16 ();
624
 
                        if (ca.Prolog != CustomAttrib.StdProlog)
625
 
                                throw new MetadataFormatException ("Non standard prolog for custom attribute");
626
 
 
627
 
                        if (ctor.HasParameters) {
628
 
                                ca.FixedArgs = new CustomAttrib.FixedArg [ctor.Parameters.Count];
629
 
                                for (int i = 0; i < ca.FixedArgs.Length && read; i++)
630
 
                                        ca.FixedArgs [i] = ReadFixedArg (data, br,
631
 
                                                ctor.Parameters [i].ParameterType, ref read, resolve);
632
 
                        } else {
633
 
                                ca.FixedArgs = CustomAttrib.FixedArg.Empty;
634
 
                        }
635
 
 
636
 
                        if (br.BaseStream.Position == br.BaseStream.Length)
637
 
                                read = false;
638
 
 
639
 
                        if (!read) {
640
 
                                ca.Read = read;
641
 
                                return ca;
642
 
                        }
643
 
 
644
 
                        ca.NumNamed = br.ReadUInt16 ();
645
 
                        if (ca.NumNamed > 0) {
646
 
                                ca.NamedArgs = new CustomAttrib.NamedArg [ca.NumNamed];
647
 
                                for (int i = 0; i < ca.NumNamed && read; i++)
648
 
                                        ca.NamedArgs [i] = ReadNamedArg (data, br, ref read, resolve);
649
 
                        } else {
650
 
                                ca.NamedArgs = CustomAttrib.NamedArg.Empty;
651
 
                        }
652
 
 
653
 
                        ca.Read = read;
654
 
                        return ca;
655
 
                }
656
 
 
657
 
                CustomAttrib.FixedArg ReadFixedArg (byte [] data, BinaryReader br,
658
 
                        TypeReference param, ref bool read, bool resolve)
659
 
                {
660
 
                        CustomAttrib.FixedArg fa = new CustomAttrib.FixedArg ();
661
 
                        if (param is ArrayType) {
662
 
                                param = ((ArrayType) param).ElementType;
663
 
                                fa.SzArray = true;
664
 
                                fa.NumElem = br.ReadUInt32 ();
665
 
 
666
 
                                if (fa.NumElem == 0 || fa.NumElem == 0xffffffff) {
667
 
                                        fa.Elems = new CustomAttrib.Elem [0];
668
 
                                        fa.NumElem = 0;
669
 
                                        return fa;
670
 
                                }
671
 
 
672
 
                                fa.Elems = new CustomAttrib.Elem [fa.NumElem];
673
 
                                for (int i = 0; i < fa.NumElem; i++)
674
 
                                        fa.Elems [i] = ReadElem (data, br, param, ref read, resolve);
675
 
                        } else
676
 
                                fa.Elems = new CustomAttrib.Elem [] { ReadElem (data, br, param, ref read, resolve) };
677
 
 
678
 
                        return fa;
679
 
                }
680
 
 
681
 
                TypeReference CreateEnumTypeReference (string enumName)
682
 
                {
683
 
                        string asmName = null;
684
 
                        int asmStart = enumName.IndexOf (',');
685
 
                        if (asmStart != -1) {
686
 
                                asmName = enumName.Substring (asmStart + 1);
687
 
                                enumName = enumName.Substring (0, asmStart);
688
 
                        }
689
 
                        // Inner class style is reflection style.
690
 
                        enumName = enumName.Replace ('+', '/');
691
 
                        AssemblyNameReference asm;
692
 
                        if (asmName == null) {
693
 
                                // If no assembly is given then the ECMA standard says the
694
 
                                // assembly is either the current one or mscorlib.
695
 
                                if (m_reflectReader.Module.Types.Contains (enumName))
696
 
                                        return m_reflectReader.Module.Types [enumName];
697
 
 
698
 
                                asm = m_reflectReader.Corlib;
699
 
                        } else
700
 
                                asm = AssemblyNameReference.Parse (asmName);
701
 
 
702
 
                        string [] outers = enumName.Split ('/');
703
 
                        string outerfullname = outers [0];
704
 
                        string ns = null;
705
 
                        int nsIndex = outerfullname.LastIndexOf ('.');
706
 
                        if (nsIndex != -1)
707
 
                                ns = outerfullname.Substring (0, nsIndex);
708
 
                        string name = outerfullname.Substring (nsIndex + 1);
709
 
                        TypeReference decType = new TypeReference (name, ns, asm);
710
 
                        for (int i = 1; i < outers.Length; i++) {
711
 
                                TypeReference t = new TypeReference (outers [i], null, asm);
712
 
                                t.Module = m_reflectReader.Module;
713
 
                                t.DeclaringType = decType;
714
 
                                decType = t;
715
 
                        }
716
 
                        decType.Module = m_reflectReader.Module;
717
 
                        decType.IsValueType = true;
718
 
 
719
 
                        return decType;
720
 
                }
721
 
 
722
 
                TypeReference ReadTypeReference (byte [] data, BinaryReader br, out ElementType elemType)
723
 
                {
724
 
                        bool array = false;
725
 
                        elemType = (ElementType) br.ReadByte ();
726
 
                        if (elemType == ElementType.SzArray) {
727
 
                                elemType = (ElementType) br.ReadByte ();
728
 
                                array = true;
729
 
                        }
730
 
 
731
 
                        TypeReference res;
732
 
                        if (elemType == ElementType.Enum)
733
 
                                res = CreateEnumTypeReference (ReadUTF8String (data, br));
734
 
                        else
735
 
                                res = TypeReferenceFromElemType (elemType);
736
 
 
737
 
                        if (array)
738
 
                                res = new ArrayType (res);
739
 
 
740
 
                        return res;
741
 
                }
742
 
 
743
 
                TypeReference TypeReferenceFromElemType (ElementType elemType)
744
 
                {
745
 
                        switch (elemType) {
746
 
                        case ElementType.Boxed :
747
 
                        case ElementType.Object:
748
 
                                return m_reflectReader.SearchCoreType (Constants.Object);
749
 
                        case ElementType.String :
750
 
                                return m_reflectReader.SearchCoreType (Constants.String);
751
 
                        case ElementType.Type :
752
 
                                return m_reflectReader.SearchCoreType (Constants.Type);
753
 
                        case ElementType.Boolean :
754
 
                                return m_reflectReader.SearchCoreType (Constants.Boolean);
755
 
                        case ElementType.Char :
756
 
                                return m_reflectReader.SearchCoreType (Constants.Char);
757
 
                        case ElementType.R4 :
758
 
                                return m_reflectReader.SearchCoreType (Constants.Single);
759
 
                        case ElementType.R8 :
760
 
                                return m_reflectReader.SearchCoreType (Constants.Double);
761
 
                        case ElementType.I1 :
762
 
                                return m_reflectReader.SearchCoreType (Constants.SByte);
763
 
                        case ElementType.I2 :
764
 
                                return m_reflectReader.SearchCoreType (Constants.Int16);
765
 
                        case ElementType.I4 :
766
 
                                return m_reflectReader.SearchCoreType (Constants.Int32);
767
 
                        case ElementType.I8 :
768
 
                                return m_reflectReader.SearchCoreType (Constants.Int64);
769
 
                        case ElementType.U1 :
770
 
                                return m_reflectReader.SearchCoreType (Constants.Byte);
771
 
                        case ElementType.U2 :
772
 
                                return m_reflectReader.SearchCoreType (Constants.UInt16);
773
 
                        case ElementType.U4 :
774
 
                                return m_reflectReader.SearchCoreType (Constants.UInt32);
775
 
                        case ElementType.U8 :
776
 
                                return m_reflectReader.SearchCoreType (Constants.UInt64);
777
 
                        default :
778
 
                                throw new MetadataFormatException ("Non valid type in CustomAttrib.Elem: 0x{0}",
779
 
                                        ((byte) elemType).ToString("x2"));
780
 
                        }
781
 
                }
782
 
 
783
 
                internal CustomAttrib.NamedArg ReadNamedArg (byte [] data, BinaryReader br, ref bool read, bool resolve)
784
 
                {
785
 
                        CustomAttrib.NamedArg na = new CustomAttrib.NamedArg ();
786
 
                        byte kind = br.ReadByte ();
787
 
                        if (kind == 0x53) { // field
788
 
                                na.Field = true;
789
 
                                na.Property = false;
790
 
                        } else if (kind == 0x54) { // property
791
 
                                na.Field = false;
792
 
                                na.Property = true;
793
 
                        } else
794
 
                                throw new MetadataFormatException ("Wrong kind of namedarg found: 0x" + kind.ToString("x2"));
795
 
 
796
 
                        TypeReference elemType = ReadTypeReference (data, br, out na.FieldOrPropType);
797
 
                        na.FieldOrPropName = ReadUTF8String (data, br);
798
 
                        na.FixedArg = ReadFixedArg (data, br, elemType, ref read, resolve);
799
 
 
800
 
                        return na;
801
 
                }
802
 
 
803
 
                CustomAttrib.Elem ReadElem (byte [] data, BinaryReader br, TypeReference elemType, ref bool read, bool resolve)
804
 
                {
805
 
                        CustomAttrib.Elem elem = new CustomAttrib.Elem ();
806
 
 
807
 
                        string elemName = elemType.FullName;
808
 
 
809
 
                        if (elemName == Constants.Object) {
810
 
                                elemType = ReadTypeReference (data, br, out elem.FieldOrPropType);
811
 
                                if (elemType is ArrayType) {
812
 
                                        read = false; // Don't know how to represent arrays as an object value.
813
 
                                        return elem;
814
 
                                } else if (elemType.FullName == Constants.Object)
815
 
                                        throw new MetadataFormatException ("Non valid type in CustomAttrib.Elem after boxed prefix: 0x{0}",
816
 
                                                ((byte) elem.FieldOrPropType).ToString ("x2"));
817
 
 
818
 
                                elem = ReadElem (data, br, elemType, ref read, resolve);
819
 
                                elem.String = elem.Simple = elem.Type = false;
820
 
                                elem.BoxedValueType = true;
821
 
                                return elem;
822
 
                        }
823
 
 
824
 
                        elem.ElemType = elemType;
825
 
 
826
 
                        if (elemName == Constants.Type || elemName == Constants.String) {
827
 
                                switch (elemType.FullName) {
828
 
                                case Constants.String:
829
 
                                        elem.String = true;
830
 
                                        elem.BoxedValueType = elem.Simple = elem.Type = false;
831
 
                                        break;
832
 
                                case Constants.Type:
833
 
                                        elem.Type = true;
834
 
                                        elem.BoxedValueType = elem.Simple = elem.String = false;
835
 
                                        break;
836
 
                                }
837
 
 
838
 
                                if (data [br.BaseStream.Position] == 0xff) { // null
839
 
                                        elem.Value = null;
840
 
                                        br.BaseStream.Position++;
841
 
                                } else {
842
 
                                        elem.Value = ReadUTF8String (data, br);
843
 
                                }
844
 
                                return elem;
845
 
                        }
846
 
 
847
 
                        elem.String = elem.Type = elem.BoxedValueType = false;
848
 
                        if (!ReadSimpleValue (br, ref elem, elem.ElemType)) {
849
 
                                if (!resolve) { // until enums writing is implemented
850
 
                                        read = false;
851
 
                                        return elem;
852
 
                                }
853
 
                                TypeReference typeRef = GetEnumUnderlyingType (elem.ElemType, resolve);
854
 
                                if (typeRef == null || !ReadSimpleValue (br, ref elem, typeRef))
855
 
                                        read = false;
856
 
                        }
857
 
 
858
 
                        return elem;
859
 
                }
860
 
 
861
 
                TypeReference GetEnumUnderlyingType (TypeReference enumType, bool resolve)
862
 
                {
863
 
                        TypeDefinition type = enumType as TypeDefinition;
864
 
                        if (type == null && resolve && AssemblyResolver != null) {
865
 
                                if (enumType.Scope is ModuleDefinition)
866
 
                                        throw new NotSupportedException ();
867
 
 
868
 
                                AssemblyDefinition asm = AssemblyResolver.Resolve (
869
 
                                        ((AssemblyNameReference) enumType.Scope).FullName);
870
 
 
871
 
                                if (asm != null)
872
 
                                        type = asm.MainModule.Types [enumType.FullName];
873
 
                        }
874
 
 
875
 
                        if (type != null && type.IsEnum)
876
 
                                return type.Fields.GetField ("value__").FieldType;
877
 
 
878
 
                        return null;
879
 
                }
880
 
 
881
 
                bool ReadSimpleValue (BinaryReader br, ref CustomAttrib.Elem elem, TypeReference type)
882
 
                {
883
 
                        switch (type.FullName) {
884
 
                        case Constants.Boolean :
885
 
                                elem.Value = br.ReadByte () == 1;
886
 
                                break;
887
 
                        case Constants.Char :
888
 
                                elem.Value = (char) br.ReadUInt16 ();
889
 
                                break;
890
 
                        case Constants.Single :
891
 
                                elem.Value = br.ReadSingle ();
892
 
                                break;
893
 
                        case Constants.Double :
894
 
                                elem.Value = br.ReadDouble ();
895
 
                                break;
896
 
                        case Constants.Byte :
897
 
                                elem.Value = br.ReadByte ();
898
 
                                break;
899
 
                        case Constants.Int16 :
900
 
                                elem.Value = br.ReadInt16 ();
901
 
                                break;
902
 
                        case Constants.Int32 :
903
 
                                elem.Value = br.ReadInt32 ();
904
 
                                break;
905
 
                        case Constants.Int64 :
906
 
                                elem.Value = br.ReadInt64 ();
907
 
                                break;
908
 
                        case Constants.SByte :
909
 
                                elem.Value = br.ReadSByte ();
910
 
                                break;
911
 
                        case Constants.UInt16 :
912
 
                                elem.Value = br.ReadUInt16 ();
913
 
                                break;
914
 
                        case Constants.UInt32 :
915
 
                                elem.Value = br.ReadUInt32 ();
916
 
                                break;
917
 
                        case Constants.UInt64 :
918
 
                                elem.Value = br.ReadUInt64 ();
919
 
                                break;
920
 
                        default : // enum
921
 
                                return false;
922
 
                        }
923
 
                        elem.Simple = true;
924
 
                        return true;
925
 
                }
926
 
 
927
 
                MarshalSig ReadMarshalSig (byte [] data)
928
 
                {
929
 
                        int start;
930
 
                        MarshalSig ms = new MarshalSig ((NativeType) Utilities.ReadCompressedInteger (data, 0, out start));
931
 
                        switch (ms.NativeInstrinsic) {
932
 
                        case NativeType.ARRAY:
933
 
                                MarshalSig.Array ar = new MarshalSig.Array ();
934
 
                                ar.ArrayElemType = (NativeType) Utilities.ReadCompressedInteger (data, start, out start);
935
 
                                if (start < data.Length)
936
 
                                        ar.ParamNum = Utilities.ReadCompressedInteger (data, start, out start);
937
 
                                if (start < data.Length)
938
 
                                        ar.NumElem = Utilities.ReadCompressedInteger (data, start, out start);
939
 
                                if (start < data.Length)
940
 
                                        ar.ElemMult = Utilities.ReadCompressedInteger (data, start, out start);
941
 
                                ms.Spec = ar;
942
 
                                break;
943
 
                        case NativeType.CUSTOMMARSHALER:
944
 
                                MarshalSig.CustomMarshaler cm = new MarshalSig.CustomMarshaler ();
945
 
                                cm.Guid = ReadUTF8String (data, start, out start);
946
 
                                cm.UnmanagedType = ReadUTF8String (data, start, out start);
947
 
                                cm.ManagedType = ReadUTF8String (data, start, out start);
948
 
                                cm.Cookie = ReadUTF8String (data, start, out start);
949
 
                                ms.Spec = cm;
950
 
                                break;
951
 
                        case NativeType.FIXEDARRAY:
952
 
                                MarshalSig.FixedArray fa = new MarshalSig.FixedArray ();
953
 
                                fa.NumElem = Utilities.ReadCompressedInteger (data, start, out start);
954
 
                                if (start < data.Length)
955
 
                                        fa.ArrayElemType = (NativeType) Utilities.ReadCompressedInteger (data, start, out start);
956
 
                                ms.Spec = fa;
957
 
                                break;
958
 
                        case NativeType.SAFEARRAY:
959
 
                                MarshalSig.SafeArray sa = new MarshalSig.SafeArray ();
960
 
                                if (start < data.Length)
961
 
                                        sa.ArrayElemType = (VariantType) Utilities.ReadCompressedInteger (data, start, out start);
962
 
                                ms.Spec = sa;
963
 
                                break;
964
 
                        case NativeType.FIXEDSYSSTRING:
965
 
                                MarshalSig.FixedSysString fss = new MarshalSig.FixedSysString ();
966
 
                                if (start < data.Length)
967
 
                                        fss.Size = Utilities.ReadCompressedInteger (data, start, out start);
968
 
                                ms.Spec = fss;
969
 
                                break;
970
 
                        }
971
 
                        return ms;
972
 
                }
973
 
 
974
 
                static internal string ReadUTF8String (byte [] data, BinaryReader br)
975
 
                {
976
 
                        int start = (int)br.BaseStream.Position;
977
 
                        string val = ReadUTF8String (data, start, out start);
978
 
                        br.BaseStream.Position = start;
979
 
                        return val;
980
 
                }
981
 
 
982
 
                static internal string ReadUTF8String (byte [] data, int pos, out int start)
983
 
                {
984
 
                        int length = Utilities.ReadCompressedInteger (data, pos, out start);
985
 
                        pos = start;
986
 
                        start += length;
987
 
                        // COMPACT FRAMEWORK NOTE: Encoding.GetString (byte[]) is not supported.
988
 
                        return Encoding.UTF8.GetString (data, pos, length);
989
 
                }
990
 
        }
991
 
}