using System.Globalization;
namespace System.Reflection.Emit {
+#if NET_2_0
+ [ComVisible (true)]
+ [ClassInterfaceAttribute (ClassInterfaceType.None)]
+ [ComDefaultInterfaceAttribute (typeof (_ModuleBuilder))]
+#endif
public class ModuleBuilder : Module {
#region Sync with reflection.h
private IntPtr dynamic_image;
bool transient;
ModuleBuilderTokenGenerator token_gen;
ArrayList resource_writers = null;
+ ISymbolWriter symbolWriter;
[MethodImplAttribute(MethodImplOptions.InternalCall)]
private static extern void basic_init (ModuleBuilder ab);
name_cache = new Hashtable ();
basic_init (this);
+
+ CreateGlobalType ();
+
+ if (emitSymbolInfo) {
+ Assembly asm = Assembly.LoadWithPartialName ("Mono.CompilerServices.SymbolWriter");
+ Type t = asm.GetType ("Mono.CompilerServices.SymbolWriter.SymbolWriterImpl");
+ if (t != null) {
+ symbolWriter = (ISymbolWriter) Activator.CreateInstance (t, new object[] { this });
+ string fileName = fqname;
+ if (assemblyb.AssemblyDir != null)
+ fileName = Path.Combine (assemblyb.AssemblyDir, fileName);
+ symbolWriter.Initialize (IntPtr.Zero, fileName, true);
+ }
+ }
}
public override string FullyQualifiedName {get { return fqname;}}
}
public TypeBuilder DefineType (string name, TypeAttributes attr) {
+ if ((attr & TypeAttributes.Interface) != 0)
+ return DefineType (name, attr, null, null);
return DefineType (name, attr, typeof(object), null);
}
return DefineType (name, attr, parent, null);
}
- private TypeBuilder DefineType (string name, TypeAttributes attr, Type parent, Type[] interfaces, PackingSize packsize, int typesize) {
- if (name_cache.Contains (name))
- throw new ArgumentException ("Duplicate type name within an assembly.");
-
- TypeBuilder res = new TypeBuilder (this, name, attr, parent, interfaces, packsize, typesize, null);
+ private void AddType (TypeBuilder tb)
+ {
if (types != null) {
if (types.Length == num_types) {
TypeBuilder[] new_types = new TypeBuilder [types.Length * 2];
} else {
types = new TypeBuilder [1];
}
- types [num_types] = res;
+ types [num_types] = tb;
num_types ++;
+ }
+
+ private TypeBuilder DefineType (string name, TypeAttributes attr, Type parent, Type[] interfaces, PackingSize packsize, int typesize) {
+ if (name_cache.Contains (name))
+ throw new ArgumentException ("Duplicate type name within an assembly.");
+
+ TypeBuilder res = new TypeBuilder (this, name, attr, parent, interfaces, packsize, typesize, null);
+ AddType (res);
name_cache.Add (name, res);
return res;
}
name_cache.Add (name, tb);
}
+#if NET_2_0
+ [ComVisible (true)]
+#endif
public TypeBuilder DefineType (string name, TypeAttributes attr, Type parent, Type[] interfaces) {
return DefineType (name, attr, parent, interfaces, PackingSize.Unspecified, TypeBuilder.UnspecifiedTypeSize);
}
}
public EnumBuilder DefineEnum( string name, TypeAttributes visibility, Type underlyingType) {
+ if (name_cache.Contains (name))
+ throw new ArgumentException ("Duplicate type name within an assembly.");
+
EnumBuilder eb = new EnumBuilder (this, name, visibility, underlyingType);
+ TypeBuilder res = eb.GetTypeBuilder ();
+ AddType (res);
+ name_cache.Add (name, res);
return eb;
}
+#if NET_2_0
+ [ComVisible (true)]
+#endif
public override Type GetType( string className) {
return GetType (className, false, false);
}
+#if NET_2_0
+ [ComVisible (true)]
+#endif
public override Type GetType( string className, bool ignoreCase) {
return GetType (className, false, ignoreCase);
}
}
return null;
}
-
+
+#if NET_2_0
+ [ComVisible (true)]
+#endif
public override Type GetType (string className, bool throwOnError, bool ignoreCase) {
int subt;
string orig = className;
cattrs [0] = customBuilder;
}
}
+
+#if NET_2_0
+ [ComVisible (true)]
+#endif
public void SetCustomAttribute( ConstructorInfo con, byte[] binaryAttribute) {
SetCustomAttribute (new CustomAttributeBuilder (con, binaryAttribute));
}
public ISymbolWriter GetSymWriter () {
- return null;
+ return symbolWriter;
}
- public ISymbolDocumentWriter DefineDocument (string url, Guid language, Guid languageVendor, Guid documentType) {
- return null;
+ public ISymbolDocumentWriter DefineDocument (string url, Guid language, Guid languageVendor, Guid documentType)
+ {
+ if (symbolWriter != null)
+ return symbolWriter.DefineDocument (url, language, languageVendor, documentType);
+ else
+ return null;
}
public override Type [] GetTypes ()
if (types == null)
return new TypeBuilder [0];
- int n = types.Length;
+ int n = num_types;
TypeBuilder [] copy = new TypeBuilder [n];
Array.Copy (types, copy, n);
return GetMethodToken (GetArrayMethod (arrayClass, methodName, callingConvention, returnType, parameterTypes));
}
-
+#if NET_2_0
+ [ComVisible (true)]
+#endif
public MethodToken GetConstructorToken (ConstructorInfo con)
{
if (con == null)
private static extern void build_metadata (ModuleBuilder mb);
[MethodImplAttribute(MethodImplOptions.InternalCall)]
- private static extern int getDataChunk (ModuleBuilder mb, byte[] buf, int offset);
+ private extern void WriteToFile (IntPtr handle);
internal void Save ()
{
if (transient && !is_main)
return;
+
+ if (types != null) {
+ for (int i = 0; i < num_types; ++i)
+ if (!types [i].is_created)
+ throw new NotSupportedException ("Type '" + types [i].FullName + "' was not completed.");
+ }
+
if ((global_type != null) && (global_type_created == null))
global_type_created = global_type.CreateType ();
string fileName = fqname;
if (assemblyb.AssemblyDir != null)
- fileName = System.IO.Path.Combine (assemblyb.AssemblyDir, fileName);
-
- byte[] buf = new byte [65536];
- FileStream file;
- int count, offset;
-
- file = new FileStream (fileName, FileMode.Create, FileAccess.Write);
-
- offset = 0;
- while ((count = getDataChunk (this, buf, offset)) != 0) {
- file.Write (buf, 0, count);
- offset += count;
- }
- file.Close ();
-
+ fileName = Path.Combine (assemblyb.AssemblyDir, fileName);
+
+ using (FileStream file = new FileStream (fileName, FileMode.Create, FileAccess.Write))
+ WriteToFile (file.Handle);
+
//
// The constant 0x80000000 is internal to Mono, it means `make executable'
//
File.SetAttributes (fileName, (FileAttributes) (unchecked ((int) 0x80000000)));
+
+ if (types != null && symbolWriter != null) {
+ for (int i = 0; i < num_types; ++i)
+ types [i].GenerateDebugInfo (symbolWriter);
+ symbolWriter.Close ();
+ }
}
internal string FileName {
}
}
+ internal void CreateGlobalType () {
+ if (global_type == null)
+ global_type = new TypeBuilder (this, 0);
+ }
+
internal static Guid Mono_GetGuid (ModuleBuilder mb)
{
return new Guid (mb.guid);
}
}
}
+
projects / mono.git / blobdiff