2 // Copyright (C) 2004 Novell, Inc (http://www.novell.com)
4 // Permission is hereby granted, free of charge, to any person obtaining
5 // a copy of this software and associated documentation files (the
6 // "Software"), to deal in the Software without restriction, including
7 // without limitation the rights to use, copy, modify, merge, publish,
8 // distribute, sublicense, and/or sell copies of the Software, and to
9 // permit persons to whom the Software is furnished to do so, subject to
10 // the following conditions:
12 // The above copyright notice and this permission notice shall be
13 // included in all copies or substantial portions of the Software.
15 // THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
16 // EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
17 // MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
18 // NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
19 // LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
20 // OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
21 // WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
25 // System.Reflection.Emit/ModuleBuilder.cs
28 // Paolo Molaro (lupus@ximian.com)
30 // (C) 2001 Ximian, Inc. http://www.ximian.com
35 using System.Reflection;
36 using System.Collections;
37 using System.Collections.Generic;
38 using System.Runtime.CompilerServices;
39 using System.Runtime.InteropServices;
40 using System.Diagnostics.SymbolStore;
42 using System.Resources;
43 using System.Globalization;
45 namespace System.Reflection.Emit {
47 [ComDefaultInterface (typeof (_ModuleBuilder))]
48 [ClassInterface (ClassInterfaceType.None)]
49 [StructLayout (LayoutKind.Sequential)]
50 public class ModuleBuilder : Module, _ModuleBuilder {
52 #pragma warning disable 169, 414
53 #region Sync with object-internals.h
54 private UIntPtr dynamic_image; /* GC-tracked */
55 private int num_types;
56 private TypeBuilder[] types;
57 private CustomAttributeBuilder[] cattrs;
59 private int table_idx;
60 internal AssemblyBuilder assemblyb;
61 private MethodBuilder[] global_methods;
62 private FieldBuilder[] global_fields;
64 private MonoResource[] resources;
65 private IntPtr unparented_classes;
67 #pragma warning restore 169, 414
69 private TypeBuilder global_type;
70 private Type global_type_created;
71 // name_cache keys are display names
72 Dictionary<TypeName, TypeBuilder> name_cache;
73 Dictionary<string, int> us_string_cache;
74 private int[] table_indexes;
76 ModuleBuilderTokenGenerator token_gen;
77 Hashtable resource_writers;
78 ISymbolWriter symbolWriter;
80 static bool has_warned_about_symbolWriter;
82 [MethodImplAttribute(MethodImplOptions.InternalCall)]
83 private static extern void basic_init (ModuleBuilder ab);
85 [MethodImplAttribute(MethodImplOptions.InternalCall)]
86 private static extern void set_wrappers_type (ModuleBuilder mb, Type ab);
88 internal ModuleBuilder (AssemblyBuilder assb, string name, string fullyqname, bool emitSymbolInfo, bool transient) {
89 this.name = this.scopename = name;
90 this.fqname = fullyqname;
91 this.assembly = this.assemblyb = assb;
92 this.transient = transient;
93 // to keep mcs fast we do not want CryptoConfig wo be involved to create the RNG
94 guid = Guid.FastNewGuidArray ();
95 // guid = Guid.NewGuid().ToByteArray ();
96 table_idx = get_next_table_index (this, 0x00, true);
97 name_cache = new Dictionary<TypeName, TypeBuilder> ();
98 us_string_cache = new Dictionary<string, int> (512);
105 TypeBuilder tb = new TypeBuilder (this, TypeAttributes.Abstract, 0xFFFFFF); /*last valid token*/
106 Type type = tb.CreateType ();
107 set_wrappers_type (this, type);
110 if (emitSymbolInfo) {
111 Assembly asm = Assembly.LoadWithPartialName ("Mono.CompilerServices.SymbolWriter");
115 t = asm.GetType ("Mono.CompilerServices.SymbolWriter.SymbolWriterImpl");
118 WarnAboutSymbolWriter ("Failed to load the default Mono.CompilerServices.SymbolWriter assembly");
121 symbolWriter = (ISymbolWriter) Activator.CreateInstance (t, new object[] { this });
122 } catch (System.MissingMethodException) {
123 WarnAboutSymbolWriter ("The default Mono.CompilerServices.SymbolWriter is not available on this platform");
128 string fileName = fqname;
129 if (assemblyb.AssemblyDir != null)
130 fileName = Path.Combine (assemblyb.AssemblyDir, fileName);
131 symbolWriter.Initialize (IntPtr.Zero, fileName, true);
135 static void WarnAboutSymbolWriter (string message)
137 if (has_warned_about_symbolWriter)
140 has_warned_about_symbolWriter = true;
141 Console.Error.WriteLine ("WARNING: {0}", message);
144 public override string FullyQualifiedName {get { return fqname;}}
146 public bool IsTransient () {
150 public void CreateGlobalFunctions ()
152 if (global_type_created != null)
153 throw new InvalidOperationException ("global methods already created");
154 if (global_type != null)
155 global_type_created = global_type.CreateType ();
158 public FieldBuilder DefineInitializedData( string name, byte[] data, FieldAttributes attributes) {
160 throw new ArgumentNullException ("data");
162 var maskedAttributes = attributes & ~FieldAttributes.ReservedMask;
163 FieldBuilder fb = DefineDataImpl (name, data.Length, maskedAttributes | FieldAttributes.HasFieldRVA);
164 fb.SetRVAData (data);
169 public FieldBuilder DefineUninitializedData (string name, int size, FieldAttributes attributes)
171 return DefineDataImpl (name, size, attributes & ~FieldAttributes.ReservedMask);
174 private FieldBuilder DefineDataImpl (string name, int size, FieldAttributes attributes)
177 throw new ArgumentNullException ("name");
178 if (name == String.Empty)
179 throw new ArgumentException ("name cannot be empty", "name");
180 if (global_type_created != null)
181 throw new InvalidOperationException ("global fields already created");
182 if ((size <= 0) || (size >= 0x3f0000))
183 throw new ArgumentException ("Data size must be > 0 and < 0x3f0000", null as string);
187 string typeName = "$ArrayType$" + size;
188 Type datablobtype = GetType (typeName, false, false);
189 if (datablobtype == null) {
190 TypeBuilder tb = DefineType (typeName,
191 TypeAttributes.Public|TypeAttributes.ExplicitLayout|TypeAttributes.Sealed,
192 assemblyb.corlib_value_type, null, PackingSize.Size1, size);
196 FieldBuilder fb = global_type.DefineField (name, datablobtype, attributes|FieldAttributes.Static);
198 if (global_fields != null) {
199 FieldBuilder[] new_fields = new FieldBuilder [global_fields.Length+1];
200 System.Array.Copy (global_fields, new_fields, global_fields.Length);
201 new_fields [global_fields.Length] = fb;
202 global_fields = new_fields;
204 global_fields = new FieldBuilder [1];
205 global_fields [0] = fb;
210 private void addGlobalMethod (MethodBuilder mb) {
211 if (global_methods != null) {
212 MethodBuilder[] new_methods = new MethodBuilder [global_methods.Length+1];
213 System.Array.Copy (global_methods, new_methods, global_methods.Length);
214 new_methods [global_methods.Length] = mb;
215 global_methods = new_methods;
217 global_methods = new MethodBuilder [1];
218 global_methods [0] = mb;
222 public MethodBuilder DefineGlobalMethod (string name, MethodAttributes attributes, Type returnType, Type[] parameterTypes)
224 return DefineGlobalMethod (name, attributes, CallingConventions.Standard, returnType, parameterTypes);
227 public MethodBuilder DefineGlobalMethod (string name, MethodAttributes attributes, CallingConventions callingConvention, Type returnType, Type[] parameterTypes) {
228 return DefineGlobalMethod (name, attributes, callingConvention, returnType, null, null, parameterTypes, null, null);
231 public MethodBuilder DefineGlobalMethod (string name, MethodAttributes attributes, CallingConventions callingConvention, Type returnType, Type[] requiredReturnTypeCustomModifiers, Type[] optionalReturnTypeCustomModifiers, Type[] parameterTypes, Type[][] requiredParameterTypeCustomModifiers, Type[][] optionalParameterTypeCustomModifiers)
234 throw new ArgumentNullException ("name");
235 if ((attributes & MethodAttributes.Static) == 0)
236 throw new ArgumentException ("global methods must be static");
237 if (global_type_created != null)
238 throw new InvalidOperationException ("global methods already created");
240 MethodBuilder mb = global_type.DefineMethod (name, attributes, callingConvention, returnType, requiredReturnTypeCustomModifiers, optionalReturnTypeCustomModifiers, parameterTypes, requiredParameterTypeCustomModifiers, optionalParameterTypeCustomModifiers);
242 addGlobalMethod (mb);
246 public MethodBuilder DefinePInvokeMethod (string name, string dllName, MethodAttributes attributes, CallingConventions callingConvention, Type returnType, Type[] parameterTypes, CallingConvention nativeCallConv, CharSet nativeCharSet) {
247 return DefinePInvokeMethod (name, dllName, name, attributes, callingConvention, returnType, parameterTypes, nativeCallConv, nativeCharSet);
250 public MethodBuilder DefinePInvokeMethod (string name, string dllName, string entryName, MethodAttributes attributes, CallingConventions callingConvention, Type returnType, Type[] parameterTypes, CallingConvention nativeCallConv, CharSet nativeCharSet) {
252 throw new ArgumentNullException ("name");
253 if ((attributes & MethodAttributes.Static) == 0)
254 throw new ArgumentException ("global methods must be static");
255 if (global_type_created != null)
256 throw new InvalidOperationException ("global methods already created");
258 MethodBuilder mb = global_type.DefinePInvokeMethod (name, dllName, entryName, attributes, callingConvention, returnType, parameterTypes, nativeCallConv, nativeCharSet);
260 addGlobalMethod (mb);
264 public TypeBuilder DefineType (string name) {
265 return DefineType (name, 0);
268 public TypeBuilder DefineType (string name, TypeAttributes attr) {
269 if ((attr & TypeAttributes.Interface) != 0)
270 return DefineType (name, attr, null, null);
271 return DefineType (name, attr, typeof(object), null);
274 public TypeBuilder DefineType (string name, TypeAttributes attr, Type parent) {
275 return DefineType (name, attr, parent, null);
278 private void AddType (TypeBuilder tb)
281 if (types.Length == num_types) {
282 TypeBuilder[] new_types = new TypeBuilder [types.Length * 2];
283 System.Array.Copy (types, new_types, num_types);
287 types = new TypeBuilder [1];
289 types [num_types] = tb;
293 private TypeBuilder DefineType (string name, TypeAttributes attr, Type parent, Type[] interfaces, PackingSize packingSize, int typesize) {
295 throw new ArgumentNullException ("fullname");
296 TypeIdentifier ident = TypeIdentifiers.FromInternal (name);
297 if (name_cache.ContainsKey (ident))
298 throw new ArgumentException ("Duplicate type name within an assembly.");
299 TypeBuilder res = new TypeBuilder (this, name, attr, parent, interfaces, packingSize, typesize, null);
302 name_cache.Add (ident, res);
307 internal void RegisterTypeName (TypeBuilder tb, TypeName name)
309 name_cache.Add (name, tb);
312 internal TypeBuilder GetRegisteredType (TypeName name)
314 TypeBuilder result = null;
315 name_cache.TryGetValue (name, out result);
320 public TypeBuilder DefineType (string name, TypeAttributes attr, Type parent, Type[] interfaces) {
321 return DefineType (name, attr, parent, interfaces, PackingSize.Unspecified, TypeBuilder.UnspecifiedTypeSize);
324 public TypeBuilder DefineType (string name, TypeAttributes attr, Type parent, int typesize) {
325 return DefineType (name, attr, parent, null, PackingSize.Unspecified, typesize);
328 public TypeBuilder DefineType (string name, TypeAttributes attr, Type parent, PackingSize packsize) {
329 return DefineType (name, attr, parent, null, packsize, TypeBuilder.UnspecifiedTypeSize);
332 public TypeBuilder DefineType (string name, TypeAttributes attr, Type parent, PackingSize packingSize, int typesize) {
333 return DefineType (name, attr, parent, null, packingSize, typesize);
336 public MethodInfo GetArrayMethod( Type arrayClass, string methodName, CallingConventions callingConvention, Type returnType, Type[] parameterTypes) {
337 return new MonoArrayMethod (arrayClass, methodName, callingConvention, returnType, parameterTypes);
340 public EnumBuilder DefineEnum( string name, TypeAttributes visibility, Type underlyingType) {
341 TypeIdentifier ident = TypeIdentifiers.FromInternal (name);
342 if (name_cache.ContainsKey (ident))
343 throw new ArgumentException ("Duplicate type name within an assembly.");
345 EnumBuilder eb = new EnumBuilder (this, name, visibility, underlyingType);
346 TypeBuilder res = eb.GetTypeBuilder ();
348 name_cache.Add (ident, res);
353 public override Type GetType( string className) {
354 return GetType (className, false, false);
358 public override Type GetType( string className, bool ignoreCase) {
359 return GetType (className, false, ignoreCase);
362 private TypeBuilder search_in_array (TypeBuilder[] arr, int validElementsInArray, TypeName className) {
364 for (i = 0; i < validElementsInArray; ++i) {
365 if (String.Compare (className.DisplayName, arr [i].FullName, true, CultureInfo.InvariantCulture) == 0) {
372 private TypeBuilder search_nested_in_array (TypeBuilder[] arr, int validElementsInArray, TypeName className) {
374 for (i = 0; i < validElementsInArray; ++i) {
375 if (String.Compare (className.DisplayName, arr [i].Name, true, CultureInfo.InvariantCulture) == 0)
381 private TypeBuilder GetMaybeNested (TypeBuilder t, IEnumerable<TypeName> nested) {
382 TypeBuilder result = t;
384 foreach (TypeName pname in nested) {
385 if (result.subtypes == null)
387 result = search_nested_in_array(result.subtypes, result.subtypes.Length, pname);
395 public override Type GetType (string className, bool throwOnError, bool ignoreCase)
397 if (className == null)
398 throw new ArgumentNullException ("className");
399 if (className.Length == 0)
400 throw new ArgumentException ("className");
402 TypeBuilder result = null;
404 if (types == null && throwOnError)
405 throw new TypeLoadException (className);
407 TypeSpec ts = TypeSpec.Parse (className);
410 var displayNestedName = ts.TypeNameWithoutModifiers();
411 name_cache.TryGetValue (displayNestedName, out result);
414 result = search_in_array (types, num_types, ts.Name);
415 if (!ts.IsNested && result != null) {
416 result = GetMaybeNested (result, ts.Nested);
419 if ((result == null) && throwOnError)
420 throw new TypeLoadException (className);
421 if (result != null && (ts.HasModifiers || ts.IsByRef)) {
423 if (result is TypeBuilder) {
424 var tb = result as TypeBuilder;
426 mt = tb.CreateType ();
428 foreach (var mod in ts.Modifiers) {
429 if (mod is PointerSpec)
430 mt = mt.MakePointerType ();
431 else if (mod is ArraySpec) {
432 var spec = mod as ArraySpec;
436 mt = mt.MakeArrayType ();
438 mt = mt.MakeArrayType (spec.Rank);
442 mt = mt.MakeByRefType ();
443 result = mt as TypeBuilder;
447 if (result != null && result.is_created)
448 return result.CreateType ();
453 internal int get_next_table_index (object obj, int table, bool inc) {
454 if (table_indexes == null) {
455 table_indexes = new int [64];
456 for (int i=0; i < 64; ++i)
457 table_indexes [i] = 1;
458 /* allow room for .<Module> in TypeDef table */
459 table_indexes [0x02] = 2;
461 // Console.WriteLine ("getindex for table "+table.ToString()+" got "+table_indexes [table].ToString());
463 return table_indexes [table]++;
464 return table_indexes [table];
467 public void SetCustomAttribute( CustomAttributeBuilder customBuilder) {
468 if (cattrs != null) {
469 CustomAttributeBuilder[] new_array = new CustomAttributeBuilder [cattrs.Length + 1];
470 cattrs.CopyTo (new_array, 0);
471 new_array [cattrs.Length] = customBuilder;
474 cattrs = new CustomAttributeBuilder [1];
475 cattrs [0] = customBuilder;
480 public void SetCustomAttribute( ConstructorInfo con, byte[] binaryAttribute) {
481 SetCustomAttribute (new CustomAttributeBuilder (con, binaryAttribute));
484 public ISymbolWriter GetSymWriter () {
488 public ISymbolDocumentWriter DefineDocument (string url, Guid language, Guid languageVendor, Guid documentType)
490 if (symbolWriter != null)
491 return symbolWriter.DefineDocument (url, language, languageVendor, documentType);
496 public override Type [] GetTypes ()
499 return Type.EmptyTypes;
502 Type [] copy = new Type [n];
503 Array.Copy (types, copy, n);
505 // MS replaces the typebuilders with their created types
506 for (int i = 0; i < copy.Length; ++i)
507 if (types [i].is_created)
508 copy [i] = types [i].CreateType ();
513 public IResourceWriter DefineResource (string name, string description, ResourceAttributes attribute)
516 throw new ArgumentNullException ("name");
517 if (name == String.Empty)
518 throw new ArgumentException ("name cannot be empty");
520 throw new InvalidOperationException ("The module is transient");
521 if (!assemblyb.IsSave)
522 throw new InvalidOperationException ("The assembly is transient");
523 ResourceWriter writer = new ResourceWriter (new MemoryStream ());
524 if (resource_writers == null)
525 resource_writers = new Hashtable ();
526 resource_writers [name] = writer;
528 // The data is filled out later
529 if (resources != null) {
530 MonoResource[] new_r = new MonoResource [resources.Length + 1];
531 System.Array.Copy(resources, new_r, resources.Length);
534 resources = new MonoResource [1];
536 int p = resources.Length - 1;
537 resources [p].name = name;
538 resources [p].attrs = attribute;
543 public IResourceWriter DefineResource (string name, string description)
545 return DefineResource (name, description, ResourceAttributes.Public);
549 public void DefineUnmanagedResource (byte[] resource)
551 if (resource == null)
552 throw new ArgumentNullException ("resource");
554 throw new NotImplementedException ();
558 public void DefineUnmanagedResource (string resourceFileName)
560 if (resourceFileName == null)
561 throw new ArgumentNullException ("resourceFileName");
562 if (resourceFileName == String.Empty)
563 throw new ArgumentException ("resourceFileName");
564 if (!File.Exists (resourceFileName) || Directory.Exists (resourceFileName))
565 throw new FileNotFoundException ("File '" + resourceFileName + "' does not exist or is a directory.");
567 throw new NotImplementedException ();
570 public void DefineManifestResource (string name, Stream stream, ResourceAttributes attribute) {
572 throw new ArgumentNullException ("name");
573 if (name == String.Empty)
574 throw new ArgumentException ("name cannot be empty");
576 throw new ArgumentNullException ("stream");
578 throw new InvalidOperationException ("The module is transient");
579 if (!assemblyb.IsSave)
580 throw new InvalidOperationException ("The assembly is transient");
582 if (resources != null) {
583 MonoResource[] new_r = new MonoResource [resources.Length + 1];
584 System.Array.Copy(resources, new_r, resources.Length);
587 resources = new MonoResource [1];
589 int p = resources.Length - 1;
590 resources [p].name = name;
591 resources [p].attrs = attribute;
592 resources [p].stream = stream;
596 public void SetSymCustomAttribute (string name, byte[] data)
598 throw new NotImplementedException ();
602 public void SetUserEntryPoint (MethodInfo entryPoint)
604 if (entryPoint == null)
605 throw new ArgumentNullException ("entryPoint");
606 if (entryPoint.DeclaringType.Module != this)
607 throw new InvalidOperationException ("entryPoint is not contained in this module");
608 throw new NotImplementedException ();
611 public MethodToken GetMethodToken (MethodInfo method)
614 throw new ArgumentNullException ("method");
616 return new MethodToken (GetToken (method));
619 public MethodToken GetMethodToken (MethodInfo method, IEnumerable<Type> optionalParameterTypes)
622 throw new ArgumentNullException ("method");
624 return new MethodToken (GetToken (method, optionalParameterTypes));
627 public MethodToken GetArrayMethodToken (Type arrayClass, string methodName, CallingConventions callingConvention, Type returnType, Type[] parameterTypes)
629 return GetMethodToken (GetArrayMethod (arrayClass, methodName, callingConvention, returnType, parameterTypes));
633 public MethodToken GetConstructorToken (ConstructorInfo con)
636 throw new ArgumentNullException ("con");
638 return new MethodToken (GetToken (con));
641 public MethodToken GetConstructorToken (ConstructorInfo constructor, IEnumerable<Type> optionalParameterTypes)
643 if (constructor == null)
644 throw new ArgumentNullException ("constructor");
646 return new MethodToken (GetToken (constructor, optionalParameterTypes));
649 public FieldToken GetFieldToken (FieldInfo field)
652 throw new ArgumentNullException ("field");
654 return new FieldToken (GetToken (field));
658 public SignatureToken GetSignatureToken (byte[] sigBytes, int sigLength)
660 throw new NotImplementedException ();
663 public SignatureToken GetSignatureToken (SignatureHelper sigHelper)
665 if (sigHelper == null)
666 throw new ArgumentNullException ("sigHelper");
667 return new SignatureToken (GetToken (sigHelper));
670 public StringToken GetStringConstant (string str)
673 throw new ArgumentNullException ("str");
674 return new StringToken (GetToken (str));
677 public TypeToken GetTypeToken (Type type)
680 throw new ArgumentNullException ("type");
682 throw new ArgumentException ("type can't be a byref type", "type");
683 if (!IsTransient () && (type.Module is ModuleBuilder) && ((ModuleBuilder)type.Module).IsTransient ())
684 throw new InvalidOperationException ("a non-transient module can't reference a transient module");
685 return new TypeToken (GetToken (type));
688 public TypeToken GetTypeToken (string name)
690 return GetTypeToken (GetType (name));
693 [MethodImplAttribute(MethodImplOptions.InternalCall)]
694 private static extern int getUSIndex (ModuleBuilder mb, string str);
696 [MethodImplAttribute(MethodImplOptions.InternalCall)]
697 private static extern int getToken (ModuleBuilder mb, object obj, bool create_open_instance);
699 [MethodImplAttribute(MethodImplOptions.InternalCall)]
700 private static extern int getMethodToken (ModuleBuilder mb, MethodBase method,
701 Type[] opt_param_types);
703 internal int GetToken (string str)
706 if (!us_string_cache.TryGetValue (str, out result)) {
707 result = getUSIndex (this, str);
708 us_string_cache [str] = result;
714 static int typeref_tokengen = 0x01ffffff;
715 static int typedef_tokengen = 0x02ffffff;
716 static int typespec_tokengen = 0x1bffffff;
717 static int memberref_tokengen = 0x0affffff;
718 static int methoddef_tokengen = 0x06ffffff;
719 Dictionary<MemberInfo, int> inst_tokens, inst_tokens_open;
722 // Assign a pseudo token to the various TypeBuilderInst objects, so the runtime
723 // doesn't have to deal with them.
724 // For Save assemblies, the tokens will be fixed up later during Save ().
725 // For Run assemblies, the tokens will not be fixed up, so the runtime will
726 // still encounter these objects, it will resolve them by calling their
727 // RuntimeResolve () methods.
729 int GetPseudoToken (MemberInfo member, bool create_open_instance)
732 var dict = create_open_instance ? inst_tokens_open : inst_tokens;
734 dict = new Dictionary<MemberInfo, int> (ReferenceEqualityComparer<MemberInfo>.Instance);
735 if (create_open_instance)
736 inst_tokens_open = dict;
739 } else if (dict.TryGetValue (member, out token)) {
743 // Count backwards to avoid collisions with the tokens
744 // allocated by the runtime
745 if (member is TypeBuilderInstantiation || member is SymbolType)
746 token = typespec_tokengen --;
747 else if (member is FieldOnTypeBuilderInst)
748 token = memberref_tokengen --;
749 else if (member is ConstructorOnTypeBuilderInst)
750 token = memberref_tokengen --;
751 else if (member is MethodOnTypeBuilderInst)
752 token = memberref_tokengen --;
753 else if (member is FieldBuilder)
754 token = memberref_tokengen --;
755 else if (member is TypeBuilder) {
756 if (create_open_instance && (member as TypeBuilder).ContainsGenericParameters)
757 token = typespec_tokengen --;
758 else if (member.Module == this)
759 token = typedef_tokengen --;
761 token = typeref_tokengen --;
762 } else if (member is EnumBuilder) {
763 token = GetPseudoToken ((member as EnumBuilder).GetTypeBuilder(), create_open_instance);
764 dict[member] = token;
765 // n.b. don't register with the runtime, the TypeBuilder already did it.
767 } else if (member is ConstructorBuilder) {
768 if (member.Module == this && !(member as ConstructorBuilder).TypeBuilder.ContainsGenericParameters)
769 token = methoddef_tokengen --;
771 token = memberref_tokengen --;
772 } else if (member is MethodBuilder) {
773 var mb = member as MethodBuilder;
774 if (member.Module == this && !mb.TypeBuilder.ContainsGenericParameters && !mb.IsGenericMethodDefinition)
775 token = methoddef_tokengen --;
777 token = memberref_tokengen --;
778 } else if (member is GenericTypeParameterBuilder) {
779 token = typespec_tokengen --;
781 throw new NotImplementedException ();
783 dict [member] = token;
784 RegisterToken (member, token);
788 internal int GetToken (MemberInfo member) {
789 if (member is ConstructorBuilder || member is MethodBuilder)
790 return GetPseudoToken (member, false);
791 return getToken (this, member, true);
794 internal int GetToken (MemberInfo member, bool create_open_instance) {
795 if (member is TypeBuilderInstantiation || member is FieldOnTypeBuilderInst || member is ConstructorOnTypeBuilderInst || member is MethodOnTypeBuilderInst || member is SymbolType || member is FieldBuilder || member is TypeBuilder || member is ConstructorBuilder || member is MethodBuilder || member is GenericTypeParameterBuilder ||
796 member is EnumBuilder)
797 return GetPseudoToken (member, create_open_instance);
798 return getToken (this, member, create_open_instance);
801 internal int GetToken (MethodBase method, IEnumerable<Type> opt_param_types) {
802 if (method is ConstructorBuilder || method is MethodBuilder)
803 return GetPseudoToken (method, false);
805 if (opt_param_types == null)
806 return getToken (this, method, true);
808 var optParamTypes = new List<Type> (opt_param_types);
809 return getMethodToken (this, method, optParamTypes.ToArray ());
812 internal int GetToken (MethodBase method, Type[] opt_param_types) {
813 if (method is ConstructorBuilder || method is MethodBuilder)
814 return GetPseudoToken (method, false);
815 return getMethodToken (this, method, opt_param_types);
818 internal int GetToken (SignatureHelper helper) {
819 return getToken (this, helper, true);
823 * Register the token->obj mapping with the runtime so the Module.Resolve...
824 * methods will work for obj.
826 [MethodImplAttribute(MethodImplOptions.InternalCall)]
827 internal extern void RegisterToken (object obj, int token);
830 * Returns MemberInfo registered with the given token.
832 [MethodImplAttribute(MethodImplOptions.InternalCall)]
833 internal extern object GetRegisteredToken (int token);
835 internal TokenGenerator GetTokenGenerator () {
836 if (token_gen == null)
837 token_gen = new ModuleBuilderTokenGenerator (this);
841 // Called from the runtime to return the corresponding finished reflection object
842 internal static object RuntimeResolve (object obj) {
843 if (obj is MethodBuilder)
844 return (obj as MethodBuilder).RuntimeResolve ();
845 if (obj is ConstructorBuilder)
846 return (obj as ConstructorBuilder).RuntimeResolve ();
847 if (obj is FieldBuilder)
848 return (obj as FieldBuilder).RuntimeResolve ();
849 if (obj is GenericTypeParameterBuilder)
850 return (obj as GenericTypeParameterBuilder).RuntimeResolve ();
851 if (obj is FieldOnTypeBuilderInst)
852 return (obj as FieldOnTypeBuilderInst).RuntimeResolve ();
853 if (obj is MethodOnTypeBuilderInst)
854 return (obj as MethodOnTypeBuilderInst).RuntimeResolve ();
855 if (obj is ConstructorOnTypeBuilderInst)
856 return (obj as ConstructorOnTypeBuilderInst).RuntimeResolve ();
858 return (obj as Type).RuntimeResolve ();
859 throw new NotImplementedException (obj.GetType ().FullName);
862 [MethodImplAttribute(MethodImplOptions.InternalCall)]
863 private static extern void build_metadata (ModuleBuilder mb);
865 [MethodImplAttribute(MethodImplOptions.InternalCall)]
866 private extern void WriteToFile (IntPtr handle);
868 void FixupTokens (Dictionary<int, int> token_map, Dictionary<int, MemberInfo> member_map, Dictionary<MemberInfo, int> inst_tokens,
870 foreach (var v in inst_tokens) {
872 var old_token = v.Value;
873 MemberInfo finished = null;
875 // Construct the concrete reflection object corresponding to the
876 // TypeBuilderInst object, and request a token for it instead.
877 if (member is TypeBuilderInstantiation || member is SymbolType) {
878 finished = (member as Type).RuntimeResolve ();
879 } else if (member is FieldOnTypeBuilderInst) {
880 finished = (member as FieldOnTypeBuilderInst).RuntimeResolve ();
881 } else if (member is ConstructorOnTypeBuilderInst) {
882 finished = (member as ConstructorOnTypeBuilderInst).RuntimeResolve ();
883 } else if (member is MethodOnTypeBuilderInst) {
884 finished = (member as MethodOnTypeBuilderInst).RuntimeResolve ();
885 } else if (member is FieldBuilder) {
886 finished = (member as FieldBuilder).RuntimeResolve ();
887 } else if (member is TypeBuilder) {
888 finished = (member as TypeBuilder).RuntimeResolve ();
889 } else if (member is EnumBuilder) {
890 finished = (member as EnumBuilder).RuntimeResolve ();
891 } else if (member is ConstructorBuilder) {
892 finished = (member as ConstructorBuilder).RuntimeResolve ();
893 } else if (member is MethodBuilder) {
894 finished = (member as MethodBuilder).RuntimeResolve ();
895 } else if (member is GenericTypeParameterBuilder) {
896 finished = (member as GenericTypeParameterBuilder).RuntimeResolve ();
898 throw new NotImplementedException ();
901 int new_token = GetToken (finished, open);
902 token_map [old_token] = new_token;
903 member_map [old_token] = finished;
904 // Replace the token mapping in the runtime so it points to the new object
905 RegisterToken (finished, old_token);
910 // Fixup the pseudo tokens assigned to the various SRE objects
914 var token_map = new Dictionary<int, int> ();
915 var member_map = new Dictionary<int, MemberInfo> ();
916 if (inst_tokens != null)
917 FixupTokens (token_map, member_map, inst_tokens, false);
918 if (inst_tokens_open != null)
919 FixupTokens (token_map, member_map, inst_tokens_open, true);
921 // Replace the tokens in the IL stream
923 for (int i = 0; i < num_types; ++i)
924 types [i].FixupTokens (token_map, member_map);
928 internal void Save ()
930 if (transient && !is_main)
934 for (int i = 0; i < num_types; ++i)
935 if (!types [i].is_created)
936 throw new NotSupportedException ("Type '" + types [i].FullName + "' was not completed.");
941 if ((global_type != null) && (global_type_created == null))
942 global_type_created = global_type.CreateType ();
944 if (resources != null) {
945 for (int i = 0; i < resources.Length; ++i) {
946 IResourceWriter rwriter;
947 if (resource_writers != null && (rwriter = resource_writers [resources [i].name] as IResourceWriter) != null) {
948 ResourceWriter writer = (ResourceWriter)rwriter;
950 MemoryStream mstream = (MemoryStream)writer._output;
951 resources [i].data = new byte [mstream.Length];
952 mstream.Seek (0, SeekOrigin.Begin);
953 mstream.Read (resources [i].data, 0, (int)mstream.Length);
956 Stream stream = resources [i].stream;
958 // According to MSDN docs, the stream is read during assembly save, not earlier
959 if (stream != null) {
961 long len = stream.Length;
962 resources [i].data = new byte [len];
963 stream.Seek (0, SeekOrigin.Begin);
964 stream.Read (resources [i].data, 0, (int)len);
972 build_metadata (this);
974 string fileName = fqname;
975 if (assemblyb.AssemblyDir != null)
976 fileName = Path.Combine (assemblyb.AssemblyDir, fileName);
979 // We mmap the file, so unlink the previous version since it may be in use
980 File.Delete (fileName);
982 // We can safely ignore
984 using (FileStream file = new FileStream (fileName, FileMode.Create, FileAccess.Write))
985 WriteToFile (file.Handle);
988 // The constant 0x80000000 is internal to Mono, it means `make executable'
990 File.SetAttributes (fileName, (FileAttributes) (unchecked ((int) 0x80000000)));
992 if (types != null && symbolWriter != null) {
993 for (int i = 0; i < num_types; ++i)
994 types [i].GenerateDebugInfo (symbolWriter);
995 symbolWriter.Close ();
999 internal string FileName {
1005 internal bool IsMain {
1011 internal void CreateGlobalType () {
1012 if (global_type == null)
1013 global_type = new TypeBuilder (this, 0, 1);
1016 internal override Guid GetModuleVersionId ()
1018 return new Guid (guid);
1021 // Used by mcs, the symbol writer, and mdb through reflection
1022 internal static Guid Mono_GetGuid (ModuleBuilder mb)
1024 return mb.GetModuleVersionId ();
1027 void _ModuleBuilder.GetIDsOfNames ([In] ref Guid riid, IntPtr rgszNames, uint cNames, uint lcid, IntPtr rgDispId)
1029 throw new NotImplementedException ();
1032 void _ModuleBuilder.GetTypeInfo (uint iTInfo, uint lcid, IntPtr ppTInfo)
1034 throw new NotImplementedException ();
1037 void _ModuleBuilder.GetTypeInfoCount (out uint pcTInfo)
1039 throw new NotImplementedException ();
1042 void _ModuleBuilder.Invoke (uint dispIdMember, [In] ref Guid riid, uint lcid, short wFlags, IntPtr pDispParams, IntPtr pVarResult, IntPtr pExcepInfo, IntPtr puArgErr)
1044 throw new NotImplementedException ();
1047 public override Assembly Assembly {
1048 get { return assemblyb; }
1051 public override string Name {
1052 get { return name; }
1055 public override string ScopeName {
1056 get { return name; }
1059 public override Guid ModuleVersionId {
1061 return GetModuleVersionId ();
1065 //XXX resource modules can't be defined with ModuleBuilder
1066 public override bool IsResource ()
1071 protected override MethodInfo GetMethodImpl (string name, BindingFlags bindingAttr, Binder binder, CallingConventions callConvention, Type[] types, ParameterModifier[] modifiers)
1073 if (global_type_created == null)
1076 return global_type_created.GetMethod (name);
1077 return global_type_created.GetMethod (name, bindingAttr, binder, callConvention, types, modifiers);
1080 public override FieldInfo ResolveField (int metadataToken, Type [] genericTypeArguments, Type [] genericMethodArguments) {
1081 ResolveTokenError error;
1083 IntPtr handle = ResolveFieldToken (_impl, metadataToken, ptrs_from_types (genericTypeArguments), ptrs_from_types (genericMethodArguments), out error);
1084 if (handle == IntPtr.Zero)
1085 throw resolve_token_exception (metadataToken, error, "Field");
1087 return FieldInfo.GetFieldFromHandle (new RuntimeFieldHandle (handle));
1090 public override MemberInfo ResolveMember (int metadataToken, Type [] genericTypeArguments, Type [] genericMethodArguments) {
1092 ResolveTokenError error;
1094 MemberInfo m = ResolveMemberToken (_impl, metadataToken, ptrs_from_types (genericTypeArguments), ptrs_from_types (genericMethodArguments), out error);
1096 throw resolve_token_exception (metadataToken, error, "MemberInfo");
1101 internal MemberInfo ResolveOrGetRegisteredToken (int metadataToken, Type [] genericTypeArguments, Type [] genericMethodArguments)
1103 ResolveTokenError error;
1104 MemberInfo m = ResolveMemberToken (_impl, metadataToken, ptrs_from_types (genericTypeArguments), ptrs_from_types (genericMethodArguments), out error);
1108 m = GetRegisteredToken (metadataToken) as MemberInfo;
1110 throw resolve_token_exception (metadataToken, error, "MemberInfo");
1115 public override MethodBase ResolveMethod (int metadataToken, Type [] genericTypeArguments, Type [] genericMethodArguments) {
1116 ResolveTokenError error;
1118 IntPtr handle = ResolveMethodToken (_impl, metadataToken, ptrs_from_types (genericTypeArguments), ptrs_from_types (genericMethodArguments), out error);
1119 if (handle == IntPtr.Zero)
1120 throw resolve_token_exception (metadataToken, error, "MethodBase");
1122 return MethodBase.GetMethodFromHandleNoGenericCheck (new RuntimeMethodHandle (handle));
1125 public override string ResolveString (int metadataToken) {
1126 ResolveTokenError error;
1128 string s = ResolveStringToken (_impl, metadataToken, out error);
1130 throw resolve_token_exception (metadataToken, error, "string");
1135 public override byte[] ResolveSignature (int metadataToken) {
1136 ResolveTokenError error;
1138 byte[] res = ResolveSignature (_impl, metadataToken, out error);
1140 throw resolve_token_exception (metadataToken, error, "signature");
1145 public override Type ResolveType (int metadataToken, Type [] genericTypeArguments, Type [] genericMethodArguments) {
1146 ResolveTokenError error;
1148 IntPtr handle = ResolveTypeToken (_impl, metadataToken, ptrs_from_types (genericTypeArguments), ptrs_from_types (genericMethodArguments), out error);
1149 if (handle == IntPtr.Zero)
1150 throw resolve_token_exception (metadataToken, error, "Type");
1152 return Type.GetTypeFromHandle (new RuntimeTypeHandle (handle));
1155 public override bool Equals (object obj)
1157 return base.Equals (obj);
1160 public override int GetHashCode ()
1162 return base.GetHashCode ();
1165 public override bool IsDefined (Type attributeType, bool inherit)
1167 return base.IsDefined (attributeType, inherit);
1170 public override object[] GetCustomAttributes (bool inherit)
1172 return base.GetCustomAttributes (inherit);
1175 public override object[] GetCustomAttributes (Type attributeType, bool inherit)
1177 return base.GetCustomAttributes (attributeType, inherit);
1180 public override FieldInfo GetField (string name, BindingFlags bindingAttr)
1182 return base.GetField (name, bindingAttr);
1185 public override FieldInfo[] GetFields (BindingFlags bindingFlags)
1187 return base.GetFields (bindingFlags);
1190 public override MethodInfo[] GetMethods (BindingFlags bindingFlags)
1192 return base.GetMethods (bindingFlags);
1195 public override int MetadataToken {
1197 return base.MetadataToken;
1202 internal class ModuleBuilderTokenGenerator : TokenGenerator {
1204 private ModuleBuilder mb;
1206 public ModuleBuilderTokenGenerator (ModuleBuilder mb) {
1210 public int GetToken (string str) {
1211 return mb.GetToken (str);
1214 public int GetToken (MemberInfo member, bool create_open_instance) {
1215 return mb.GetToken (member, create_open_instance);
1218 public int GetToken (MethodBase method, Type[] opt_param_types) {
1219 return mb.GetToken (method, opt_param_types);
1222 public int GetToken (SignatureHelper helper) {
1223 return mb.GetToken (helper);