using System;
using System.Collections;
using System.Reflection;
+using System.Security;
namespace Mono.ILASM {
- public class ExternTable {
+ public interface IScope {
+ ExternTypeRef GetTypeRef (string full_name, bool is_valuetype, ExternTable table);
+ PEAPI.ClassRef GetType (string full_name, bool is_valuetype);
+ }
+
+ public abstract class ExternRef : ICustomAttrTarget, IScope {
- protected class ExternAssembly {
+ protected string name;
+ protected Hashtable class_table;
+ protected Hashtable typeref_table;
+ protected ArrayList customattr_list;
+ protected bool is_resolved;
- public PEAPI.AssemblyRef AssemblyRef;
- protected Hashtable type_table;
- protected string name;
+ public abstract void Resolve (CodeGen codegen);
+ public abstract PEAPI.IExternRef GetExternRef ();
- public ExternAssembly (string name, AssemblyName asmb_name)
- {
- this.name = name;
- type_table = new Hashtable ();
- }
+ public ExternRef (string name)
+ {
+ this.name = name;
+ typeref_table = new Hashtable ();
+ class_table = new Hashtable ();
+ }
+
+ public string Name {
+ get { return name; }
+ }
- public void Resolve (CodeGen code_gen)
- {
- AssemblyRef = code_gen.PEFile.AddExternAssembly (name);
- }
+ public void AddCustomAttribute (CustomAttr customattr)
+ {
+ if (customattr_list == null)
+ customattr_list = new ArrayList ();
- public PEAPI.ClassRef GetType (string name_space, string name)
- {
- string full_name = String.Format ("{0}.{1}",
- name_space, name);
- PEAPI.ClassRef klass = type_table[full_name] as PEAPI.ClassRef;
+ customattr_list.Add (customattr);
+ }
- if (klass != null)
- return klass;
+ public ExternTypeRef GetTypeRef (string full_name, bool is_valuetype, ExternTable table)
+ {
+ string first= full_name;
+ string rest = "";
+ int slash = full_name.IndexOf ('/');
+ if (slash > 0) {
+ first = full_name.Substring (0, slash);
+ rest = full_name.Substring (slash + 1);
+ }
+
+ ExternTypeRef type_ref = typeref_table [first] as ExternTypeRef;
+
+ if (type_ref != null) {
+ if (is_valuetype && rest == "")
+ type_ref.MakeValueClass ();
+ } else {
+ type_ref = new ExternTypeRef (this, first, is_valuetype, table);
+ typeref_table [first] = type_ref;
+ }
- klass = (PEAPI.ClassRef) AssemblyRef.AddClass (name_space, name);
- type_table[full_name] = klass;
+ return (rest == "" ? type_ref : type_ref.GetTypeRef (rest, is_valuetype, table));
+ }
+ public PEAPI.ClassRef GetType (string full_name, bool is_valuetype)
+ {
+ PEAPI.ClassRef klass = class_table[full_name] as PEAPI.ClassRef;
+
+ if (klass != null)
return klass;
- }
- public PEAPI.ClassRef GetValueType (string name_space, string name)
- {
- string full_name = String.Format ("{0}.{1}",
- name_space, name);
- PEAPI.ClassRef klass = type_table[full_name] as PEAPI.ClassRef;
+ string name_space, name;
+ ExternTable.GetNameAndNamespace (full_name, out name_space, out name);
- if (klass != null)
- return klass;
+ if (is_valuetype)
+ klass = (PEAPI.ClassRef) GetExternRef ().AddValueClass (name_space, name);
+ else
+ klass = (PEAPI.ClassRef) GetExternRef ().AddClass (name_space, name);
- klass = (PEAPI.ClassRef) AssemblyRef.AddValueClass (name_space, name);
- type_table[full_name] = klass;
+ class_table [full_name] = klass;
+ return klass;
+ }
- return klass;
- }
+ }
+
+ public class ExternModule : ExternRef {
+
+ public PEAPI.ModuleRef ModuleRef;
+
+ public ExternModule (string name) : base (name)
+ {
}
- Hashtable assembly_table;
+ public override void Resolve (CodeGen codegen)
+ {
+ if (is_resolved)
+ return;
+
+ ModuleRef = codegen.PEFile.AddExternModule (name);
+ if (customattr_list != null)
+ foreach (CustomAttr customattr in customattr_list)
+ customattr.AddTo (codegen, ModuleRef);
+
+ is_resolved = true;
+ }
+
+
+ public override PEAPI.IExternRef GetExternRef ()
+ {
+ return ModuleRef;
+ }
+ }
+
+ public class ExternAssembly : ExternRef, IDeclSecurityTarget {
+
+ public PEAPI.AssemblyRef AssemblyRef;
+
+ private int major, minor, build, revision;
+ private byte [] public_key;
+ private byte [] public_key_token;
+ private string locale;
+ private byte [] hash;
+ private DeclSecurity decl_sec;
+
+ public ExternAssembly (string name, AssemblyName asmb_name) : base (name)
+ {
+ this.name = name;
+ major = minor = build = revision = -1;
+ }
+
+ public override void Resolve (CodeGen code_gen)
+ {
+ if (is_resolved)
+ return;
+
+ AssemblyRef = code_gen.PEFile.AddExternAssembly (name);
+ if (major != -1)
+ AssemblyRef.AddVersionInfo (major, minor, build, revision);
+ if (public_key != null)
+ AssemblyRef.AddKey (public_key);
+ if (public_key_token != null)
+ AssemblyRef.AddKeyToken (public_key_token);
+ if (locale != null)
+ AssemblyRef.AddCulture (locale);
+ if (hash != null)
+ AssemblyRef.AddHash (hash);
+
+ if (customattr_list != null)
+ foreach (CustomAttr customattr in customattr_list)
+ customattr.AddTo (code_gen, AssemblyRef);
+
+ if (decl_sec != null)
+ decl_sec.AddTo (code_gen, AssemblyRef);
+
+ class_table = new Hashtable ();
+
+ is_resolved = true;
+ }
+
+ public override PEAPI.IExternRef GetExternRef ()
+ {
+ return AssemblyRef;
+ }
+
+ public void AddPermissionSet (PEAPI.SecurityAction sec_action, PermissionSet ps)
+ {
+ if (decl_sec == null)
+ decl_sec = new DeclSecurity ();
+
+ decl_sec.AddPermissionSet (sec_action, ps);
+ }
+
+ public void AddPermission (PEAPI.SecurityAction sec_action, IPermission iper)
+ {
+ if (decl_sec == null)
+ decl_sec = new DeclSecurity ();
+
+ decl_sec.AddPermission (sec_action, iper);
+ }
+
+ public void SetVersion (int major, int minor, int build, int revision)
+ {
+ this.major = major;
+ this.minor = minor;
+ this.build = build;
+ this.revision = revision;
+ }
+
+ public void SetPublicKey (byte [] public_key)
+ {
+ this.public_key = public_key;
+ }
- public ExternTable ()
+ public void SetPublicKeyToken (byte [] public_key_token)
+ {
+ this.public_key_token = public_key_token;
+ }
+
+ public void SetLocale (string locale)
+ {
+ this.locale = locale;
+ }
+
+ public void SetHash (byte [] hash)
+ {
+ this.hash = hash;
+ }
+
+ }
+
+
+ public class ExternTable {
+
+ Hashtable assembly_table;
+ Hashtable module_table;
+ bool is_resolved;
+
+ public void AddCorlib ()
{
// Add mscorlib
string mscorlib_name = "mscorlib";
assembly_table["corlib"] = assembly_table["mscorlib"];
}
- public void AddAssembly (string name, AssemblyName asmb_name)
+ public ExternAssembly AddAssembly (string name, AssemblyName asmb_name)
{
+ ExternAssembly ea = null;
+
if (assembly_table == null) {
assembly_table = new Hashtable ();
- } else if (assembly_table.Contains (name)) {
- // Maybe this is an error??
- return;
+ } else {
+ ea = assembly_table [name] as ExternAssembly;
+ if (ea != null)
+ return ea;
}
- assembly_table[name] = new ExternAssembly (name, asmb_name);
- }
+ ea = new ExternAssembly (name, asmb_name);
- public void Resolve (CodeGen code_gen)
- {
- foreach (ExternAssembly ext in assembly_table.Values)
- ext.Resolve (code_gen);
- }
+ assembly_table [name] = ea;
- public PEAPI.ClassRef GetClass (string asmb_name, string name_space, string name)
+ return ea;
+ }
+
+ public ExternModule AddModule (string name)
{
- ExternAssembly ext_asmb;
- ext_asmb = assembly_table[asmb_name] as ExternAssembly;
+ ExternModule em = null;
+
+ if (module_table == null) {
+ module_table = new Hashtable ();
+ } else {
+ em = module_table [name] as ExternModule;
+ if (em != null)
+ return em;
+ }
- if (ext_asmb == null)
- throw new Exception (String.Format ("Assembly {0} not defined.", asmb_name));
+ em = new ExternModule (name);
+
+ module_table [name] = em;
- return ext_asmb.GetType (name_space, name);
+ return em;
}
- public PEAPI.ClassRef GetClass (string asmb_name, string full_name)
+ public void Resolve (CodeGen code_gen)
{
- ExternAssembly ext_asmb;
- ext_asmb = assembly_table[asmb_name] as ExternAssembly;
-
- if (ext_asmb == null)
- throw new Exception (String.Format ("Assembly {0} not defined.", asmb_name));
-
- string name_space, name;
+ if (is_resolved)
+ return;
- GetNameAndNamespace (full_name, out name_space, out name);
+ if (assembly_table != null)
+ foreach (ExternAssembly ext in assembly_table.Values)
+ ext.Resolve (code_gen);
+ if (module_table == null)
+ return;
+ foreach (ExternModule ext in module_table.Values)
+ ext.Resolve (code_gen);
- return ext_asmb.GetType (name_space, name);
+ is_resolved = true;
}
- public PEAPI.ClassRef GetValueClass (string asmb_name, string full_name)
+ public ExternTypeRef GetTypeRef (string asmb_name, string full_name, bool is_valuetype)
{
- ExternAssembly ext_asmb;
- ext_asmb = assembly_table[asmb_name] as ExternAssembly;
+ ExternAssembly ext_asmb = null;
+ if (assembly_table == null && (asmb_name == "mscorlib" || asmb_name == "corlib"))
+ /* AddCorlib if mscorlib is being referenced but
+ we haven't encountered a ".assembly 'name'" as yet. */
+ AddCorlib ();
+ if (assembly_table != null)
+ ext_asmb = assembly_table[asmb_name] as ExternAssembly;
if (ext_asmb == null)
throw new Exception (String.Format ("Assembly {0} not defined.", asmb_name));
- string name_space, name;
+ return ext_asmb.GetTypeRef (full_name, is_valuetype, this);
+ }
+
+ public ExternTypeRef GetModuleTypeRef (string mod_name, string full_name, bool is_valuetype)
+ {
+ ExternModule mod;
+ mod = module_table [mod_name] as ExternModule;
- GetNameAndNamespace (full_name, out name_space, out name);
+ if (mod == null)
+ throw new Exception (String.Format ("Module {0} not defined.", mod_name));
- return ext_asmb.GetValueType (name_space, name);
+ return mod.GetTypeRef (full_name, is_valuetype, this);
}
public static void GetNameAndNamespace (string full_name,
projects / mono.git / blobdiff