1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
|
//
// Mono.ILASM.ExternTypeRef
//
// Author(s):
// Jackson Harper (Jackson@LatitudeGeo.com)
//
// (C) 2003 Jackson Harper, All rights reserved
//
using System;
using System.Collections;
namespace Mono.ILASM {
/// <summary>
/// A reference to a type in another assembly
/// </summary>
public class ExternTypeRef : BaseClassRef , IScope {
private IScope extern_ref;
private Hashtable nestedtypes_table;
private Hashtable nestedclass_table;
public ExternTypeRef (IScope extern_ref, string full_name, bool is_valuetype)
: this (extern_ref, full_name, is_valuetype, null, null)
{
}
private ExternTypeRef (IScope extern_ref, string full_name,
bool is_valuetype, ArrayList conv_list, string sig_mod)
: base (full_name, is_valuetype, conv_list, sig_mod)
{
this.extern_ref = extern_ref;
nestedclass_table = new Hashtable ();
nestedtypes_table = new Hashtable ();
}
public override BaseTypeRef Clone ()
{
return new ExternTypeRef (extern_ref, full_name, is_valuetype,
(ArrayList) ConversionList.Clone (), sig_mod);
}
public override string FullName {
get {
if (extern_ref == null)
return full_name + sig_mod;
else
return extern_ref.FullName + (extern_ref is ExternTypeRef ? "/" : "") + full_name + sig_mod;
}
}
public string Name {
get { return full_name + sig_mod; }
}
public IScope ExternRef {
get { return extern_ref; }
}
public override void Resolve (CodeGen code_gen)
{
if (is_resolved)
return;
ExternTypeRef etr = extern_ref as ExternTypeRef;
if (etr != null)
//This is a nested class, so resolve parent
etr.Resolve (code_gen);
type = extern_ref.GetType (full_name, is_valuetype);
type = Modify (code_gen, type);
is_resolved = true;
}
protected override BaseMethodRef CreateMethodRef (BaseTypeRef ret_type, PEAPI.CallConv call_conv,
string name, BaseTypeRef[] param, int gen_param_count)
{
return new ExternMethodRef (this, ret_type, call_conv, name, param, gen_param_count);
}
protected override IFieldRef CreateFieldRef (BaseTypeRef ret_type, string name)
{
return new ExternFieldRef (this, ret_type, name);
}
public ExternTypeRef GetTypeRef (string _name, bool is_valuetype)
{
string first= _name;
string rest = "";
int slash = _name.IndexOf ('/');
if (slash > 0) {
first = _name.Substring (0, slash);
rest = _name.Substring (slash + 1);
}
ExternTypeRef ext_typeref = nestedtypes_table [first] as ExternTypeRef;
if (ext_typeref != null) {
if (is_valuetype && rest == "")
ext_typeref.MakeValueClass ();
} else {
ext_typeref = new ExternTypeRef (this, first, is_valuetype);
nestedtypes_table [first] = ext_typeref;
}
return (rest == "" ? ext_typeref : ext_typeref.GetTypeRef (rest, is_valuetype));
}
public PEAPI.IExternRef GetExternTypeRef ()
{
//called by GetType for a nested type
//should this cant be 'modified' type, so it should
//be ClassRef
return (PEAPI.ClassRef) type;
}
public PEAPI.ClassRef GetType (string _name, bool is_valuetype)
{
PEAPI.ClassRef klass = nestedclass_table [_name] as PEAPI.ClassRef;
if (klass != null)
return klass;
string name_space, name;
ExternTable.GetNameAndNamespace (_name, out name_space, out name);
if (is_valuetype)
klass = (PEAPI.ClassRef) GetExternTypeRef ().AddValueClass (name_space, name);
else
klass = (PEAPI.ClassRef) GetExternTypeRef ().AddClass (name_space, name);
nestedclass_table [_name] = klass;
return klass;
}
public System.Type GetReflectedType ()
{
ExternRef er = extern_ref as ExternRef;
if (er != null) {
ExternAssembly ea = er as ExternAssembly;
if (ea != null) {
System.Reflection.Assembly asm = System.Reflection.Assembly.Load (ea.Name);
//Type name required here, so don't use FullName
return asm.GetType (Name);
}/* else ExternModule */
} /*else - nested type? */
return null;
}
}
}
|
