namespace Mono.CSharp
{
- public class ReflectionImporter : MetadataImporter
+#if STATIC
+ public class ReflectionImporter
{
- public ReflectionImporter (BuildinTypes buildin)
+ public ReflectionImporter (ModuleContainer module, BuiltinTypes builtin)
+ {
+ throw new NotSupportedException ();
+ }
+
+ public void ImportAssembly (Assembly assembly, RootNamespace targetNamespace)
+ {
+ throw new NotSupportedException ();
+ }
+
+ public ImportedModuleDefinition ImportModule (Module module, RootNamespace targetNamespace)
+ {
+ throw new NotSupportedException ();
+ }
+
+ public TypeSpec ImportType (Type type)
+ {
+ throw new NotSupportedException ();
+ }
+ }
+#else
+ public sealed class ReflectionImporter : MetadataImporter
+ {
+ public ReflectionImporter (ModuleContainer module, BuiltinTypes builtin)
+ : base (module)
+ {
+ Initialize (builtin);
+ }
+
+ public override void AddCompiledType (TypeBuilder builder, TypeSpec spec)
{
- Initialize (buildin);
}
protected override MemberKind DetermineKindFromBaseType (Type baseType)
return MemberKind.Class;
}
- protected override bool HasVolatileModifier (FieldInfo field)
+ protected override bool HasVolatileModifier (Type[] modifiers)
{
- var reqs = field.GetRequiredCustomModifiers ();
- if (reqs.Length > 0) {
- foreach (var t in reqs) {
- if (t == typeof (IsVolatile))
- return true;
- }
+ foreach (var t in modifiers) {
+ if (t == typeof (IsVolatile))
+ return true;
}
return false;
}
- void Initialize (BuildinTypes buildin)
+ public void ImportAssembly (Assembly assembly, RootNamespace targetNamespace)
+ {
+ // It can be used more than once when importing same assembly
+ // into 2 or more global aliases
+ GetAssemblyDefinition (assembly);
+
+ //
+ // This part tries to simulate loading of top-level
+ // types only, any missing dependencies are ignores here.
+ // Full error report is reported later when the type is
+ // actually used
+ //
+ Type[] all_types;
+ try {
+ all_types = assembly.GetTypes ();
+ } catch (ReflectionTypeLoadException e) {
+ all_types = e.Types;
+ }
+
+ ImportTypes (all_types, targetNamespace, true);
+ }
+
+ public ImportedModuleDefinition ImportModule (Module module, RootNamespace targetNamespace)
+ {
+ var module_definition = new ImportedModuleDefinition (module);
+ module_definition.ReadAttributes ();
+
+ Type[] all_types;
+ try {
+ all_types = module.GetTypes ();
+ } catch (ReflectionTypeLoadException e) {
+ all_types = e.Types;
+ }
+
+ ImportTypes (all_types, targetNamespace, false);
+
+ return module_definition;
+ }
+
+ void Initialize (BuiltinTypes builtin)
{
//
// Setup mapping for build-in types to avoid duplication of their definition
//
- buildin_types.Add (typeof (object), buildin.Object);
- buildin_types.Add (typeof (System.ValueType), buildin.ValueType);
- buildin_types.Add (typeof (System.Attribute), buildin.Attribute);
-
- buildin_types.Add (typeof (int), buildin.Int);
- buildin_types.Add (typeof (long), buildin.Long);
- buildin_types.Add (typeof (uint), buildin.UInt);
- buildin_types.Add (typeof (ulong), buildin.ULong);
- buildin_types.Add (typeof (byte), buildin.Byte);
- buildin_types.Add (typeof (sbyte), buildin.SByte);
- buildin_types.Add (typeof (short), buildin.Short);
- buildin_types.Add (typeof (ushort), buildin.UShort);
-
- buildin_types.Add (typeof (System.Collections.IEnumerator), buildin.IEnumerator);
- buildin_types.Add (typeof (System.Collections.IEnumerable), buildin.IEnumerable);
- buildin_types.Add (typeof (System.IDisposable), buildin.IDisposable);
-
- buildin_types.Add (typeof (char), buildin.Char);
- buildin_types.Add (typeof (string), buildin.String);
- buildin_types.Add (typeof (float), buildin.Float);
- buildin_types.Add (typeof (double), buildin.Double);
- buildin_types.Add (typeof (decimal), buildin.Decimal);
- buildin_types.Add (typeof (bool), buildin.Bool);
- buildin_types.Add (typeof (System.IntPtr), buildin.IntPtr);
- buildin_types.Add (typeof (System.UIntPtr), buildin.UIntPtr);
-
- buildin_types.Add (typeof (System.MulticastDelegate), buildin.MulticastDelegate);
- buildin_types.Add (typeof (System.Delegate), buildin.Delegate);
- buildin_types.Add (typeof (System.Enum), buildin.Enum);
- buildin_types.Add (typeof (System.Array), buildin.Array);
- buildin_types.Add (typeof (void), buildin.Void);
- buildin_types.Add (typeof (System.Type), buildin.Type);
- buildin_types.Add (typeof (System.Exception), buildin.Exception);
- buildin_types.Add (typeof (System.RuntimeFieldHandle), buildin.RuntimeFieldHandle);
- buildin_types.Add (typeof (System.RuntimeTypeHandle), buildin.RuntimeTypeHandle);
+ compiled_types.Add (typeof (object), builtin.Object);
+ compiled_types.Add (typeof (System.ValueType), builtin.ValueType);
+ compiled_types.Add (typeof (System.Attribute), builtin.Attribute);
+
+ compiled_types.Add (typeof (int), builtin.Int);
+ compiled_types.Add (typeof (long), builtin.Long);
+ compiled_types.Add (typeof (uint), builtin.UInt);
+ compiled_types.Add (typeof (ulong), builtin.ULong);
+ compiled_types.Add (typeof (byte), builtin.Byte);
+ compiled_types.Add (typeof (sbyte), builtin.SByte);
+ compiled_types.Add (typeof (short), builtin.Short);
+ compiled_types.Add (typeof (ushort), builtin.UShort);
+
+ compiled_types.Add (typeof (System.Collections.IEnumerator), builtin.IEnumerator);
+ compiled_types.Add (typeof (System.Collections.IEnumerable), builtin.IEnumerable);
+ compiled_types.Add (typeof (System.IDisposable), builtin.IDisposable);
+
+ compiled_types.Add (typeof (char), builtin.Char);
+ compiled_types.Add (typeof (string), builtin.String);
+ compiled_types.Add (typeof (float), builtin.Float);
+ compiled_types.Add (typeof (double), builtin.Double);
+ compiled_types.Add (typeof (decimal), builtin.Decimal);
+ compiled_types.Add (typeof (bool), builtin.Bool);
+ compiled_types.Add (typeof (System.IntPtr), builtin.IntPtr);
+ compiled_types.Add (typeof (System.UIntPtr), builtin.UIntPtr);
+
+ compiled_types.Add (typeof (System.MulticastDelegate), builtin.MulticastDelegate);
+ compiled_types.Add (typeof (System.Delegate), builtin.Delegate);
+ compiled_types.Add (typeof (System.Enum), builtin.Enum);
+ compiled_types.Add (typeof (System.Array), builtin.Array);
+ compiled_types.Add (typeof (void), builtin.Void);
+ compiled_types.Add (typeof (System.Type), builtin.Type);
+ compiled_types.Add (typeof (System.Exception), builtin.Exception);
+ compiled_types.Add (typeof (System.RuntimeFieldHandle), builtin.RuntimeFieldHandle);
+ compiled_types.Add (typeof (System.RuntimeTypeHandle), builtin.RuntimeTypeHandle);
+ }
+ }
+
+ [System.Runtime.InteropServices.StructLayout (System.Runtime.InteropServices.LayoutKind.Explicit)]
+ struct SingleConverter
+ {
+ [System.Runtime.InteropServices.FieldOffset (0)]
+ int i;
+
+#pragma warning disable 414
+ [System.Runtime.InteropServices.FieldOffset (0)]
+ float f;
+#pragma warning restore 414
+
+ public static int SingleToInt32Bits (float v)
+ {
+ SingleConverter c = new SingleConverter ();
+ c.f = v;
+ return c.i;
}
}
+#endif
+
+ public class AssemblyDefinitionDynamic : AssemblyDefinition
+ {
+ //
+ // In-memory only assembly container
+ //
+ public AssemblyDefinitionDynamic (ModuleContainer module, string name)
+ : base (module, name)
+ {
+ }
+
+ //
+ // Assembly container with file output
+ //
+ public AssemblyDefinitionDynamic (ModuleContainer module, string name, string fileName)
+ : base (module, name, fileName)
+ {
+ }
+
+ public Module IncludeModule (string moduleFile)
+ {
+ return builder_extra.AddModule (moduleFile);
+ }
+
+#if !STATIC
+ public override ModuleBuilder CreateModuleBuilder ()
+ {
+ if (file_name == null)
+ return Builder.DefineDynamicModule (Name, false);
+
+ return base.CreateModuleBuilder ();
+ }
+#endif
+ //
+ // Initializes the code generator
+ //
+ public bool Create (AppDomain domain, AssemblyBuilderAccess access)
+ {
+#if STATIC || FULL_AOT_RUNTIME
+ throw new NotSupportedException ();
+#else
+ ResolveAssemblySecurityAttributes ();
+ var an = CreateAssemblyName ();
+
+ Builder = file_name == null ?
+ domain.DefineDynamicAssembly (an, access) :
+ domain.DefineDynamicAssembly (an, access, Dirname (file_name));
+
+ module.Create (this, CreateModuleBuilder ());
+ builder_extra = new AssemblyBuilderMonoSpecific (Builder, Compiler);
+ return true;
+#endif
+ }
+
+ static string Dirname (string name)
+ {
+ int pos = name.LastIndexOf ('/');
+
+ if (pos != -1)
+ return name.Substring (0, pos);
+
+ pos = name.LastIndexOf ('\\');
+ if (pos != -1)
+ return name.Substring (0, pos);
+
+ return ".";
+ }
+
+#if !STATIC
+ protected override void SaveModule (PortableExecutableKinds pekind, ImageFileMachine machine)
+ {
+ try {
+ var module_only = typeof (AssemblyBuilder).GetProperty ("IsModuleOnly", BindingFlags.Instance | BindingFlags.Public | BindingFlags.NonPublic);
+ var set_module_only = module_only.GetSetMethod (true);
+
+ set_module_only.Invoke (Builder, new object[] { true });
+ } catch {
+ base.SaveModule (pekind, machine);
+ }
+
+ Builder.Save (file_name, pekind, machine);
+ }
+#endif
+ }
+
//
// Extension to System.Reflection.Emit.AssemblyBuilder to have fully compatible
// compiler
{
static MethodInfo adder_method;
static MethodInfo add_permission;
- static MethodInfo set_module_only;
static MethodInfo add_type_forwarder;
static MethodInfo win32_icon_define;
static FieldInfo assembly_version;
base.SetVersion (version, loc);
}
}
-
- public override void SetModuleTarget ()
- {
- try {
- if (set_module_only == null) {
- var module_only = typeof (AssemblyBuilder).GetProperty ("IsModuleOnly", BindingFlags.Instance | BindingFlags.Public | BindingFlags.NonPublic);
- set_module_only = module_only.GetSetMethod (true);
- }
-
- set_module_only.Invoke (builder, new object[] { true });
- } catch {
- base.SetModuleTarget ();
- }
- }
}
//
public DynamicLoader (ReflectionImporter importer, CompilerContext compiler)
: base (compiler)
{
+ paths.Add (GetSystemDir ());
+
this.importer = importer;
}
}
}
- public override bool HasObjectType (Assembly assembly)
- {
- return assembly.GetType (compiler.BuildinTypes.Object.FullName) != null;
- }
-
protected override string[] GetDefaultReferences ()
{
//
default_references.Add ("System.Windows.Browser");
#endif
- if (RootContext.Version > LanguageVersion.ISO_2)
+ if (compiler.Settings.Version > LanguageVersion.ISO_2)
default_references.Add ("System.Core");
- if (RootContext.Version > LanguageVersion.V_3)
+ if (compiler.Settings.Version > LanguageVersion.V_3)
default_references.Add ("Microsoft.CSharp");
return default_references.ToArray ();
}
- public override Assembly LoadAssemblyFile (string fileName)
+ //
+ // Returns the directory where the system assemblies are installed
+ //
+ static string GetSystemDir ()
+ {
+ return Path.GetDirectoryName (typeof (object).Assembly.Location);
+ }
+
+ public override bool HasObjectType (Assembly assembly)
{
- return LoadAssemblyFile (fileName, false);
+ return assembly.GetType (compiler.BuiltinTypes.Object.FullName) != null;
}
- Assembly LoadAssemblyFile (string assembly, bool soft)
+ public override Assembly LoadAssemblyFile (string assembly, bool isImplicitReference)
{
Assembly a = null;
- string total_log = "";
try {
try {
a = Assembly.Load (ass);
}
} catch (FileNotFoundException) {
- bool err = !soft;
+ bool err = !isImplicitReference;
foreach (string dir in paths) {
string full_path = Path.Combine (dir, assembly);
if (!assembly.EndsWith (".dll") && !assembly.EndsWith (".exe"))
a = Assembly.LoadFrom (full_path);
err = false;
break;
- } catch (FileNotFoundException ff) {
- if (soft)
- return a;
- total_log += ff.FusionLog;
+ } catch (FileNotFoundException) {
}
}
+
if (err) {
Error_FileNotFound (assembly);
return a;
return a;
}
- public override Assembly LoadAssemblyDefault (string fileName)
- {
- return LoadAssemblyFile (fileName, true);
- }
-
- void LoadModule (AssemblyDefinition assembly, string module)
+ Module LoadModuleFile (AssemblyDefinitionDynamic assembly, string module)
{
string total_log = "";
try {
try {
- assembly.AddModule (module);
+ return assembly.IncludeModule (module);
} catch (FileNotFoundException) {
bool err = true;
foreach (string dir in paths) {
full_path += ".netmodule";
try {
- assembly.AddModule (full_path);
- err = false;
- break;
+ return assembly.IncludeModule (full_path);
} catch (FileNotFoundException ff) {
total_log += ff.FusionLog;
}
}
if (err) {
Error_FileNotFound (module);
- return;
+ return null;
}
}
} catch (BadImageFormatException) {
Error_FileCorrupted (module);
}
+
+ return null;
}
- public void LoadModules (AssemblyDefinition assembly)
+ public void LoadModules (AssemblyDefinitionDynamic assembly, RootNamespace targetNamespace)
{
- if (RootContext.Modules.Count == 0)
- return;
+ foreach (var moduleName in compiler.Settings.Modules) {
+ var m = LoadModuleFile (assembly, moduleName);
+ if (m == null)
+ continue;
- foreach (var module in RootContext.Modules) {
- LoadModule (assembly, module);
+ var md = importer.ImportModule (m, targetNamespace);
+ assembly.AddModule (md);
}
}
}
}
}
-}
\ No newline at end of file
+}