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
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
|
//
// Context.cs
//
// Author:
// Jean-Philippe Bruyère <jp.bruyere@hotmail.com>
//
// Copyright (c) 2016 jp
//
// This program is free software: you can redistribute it and/or modify
// it under the terms of the GNU General Public License as published by
// the Free Software Foundation, either version 3 of the License, or
// (at your option) any later version.
//
// This program is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
// GNU General Public License for more details.
//
// You should have received a copy of the GNU General Public License
// along with this program. If not, see <http://www.gnu.org/licenses/>.
using System;
using System.Collections.Generic;
using System.Reflection;
using System.Reflection.Emit;
using System.Xml;
namespace Crow.IML
{
public class DataSourceBinding {
public bool TwoWay;
public MemberAddress Source;
public string DataSourceMember;
}
/// <summary>
/// Context while parsing IML, this will store what's needed only while parsing and not during instancing
/// </summary>
public class Context
{
public XmlTextReader reader = null;
public Type RootType = null;
public DynamicMethod dm = null;
public ILGenerator il = null;
//public SubNodeType curSubNodeType;
public NodeStack nodesStack = new NodeStack ();
/// <summary> store addresses of named node for name resolution at end of parsing </summary>
public Dictionary<string, List<NodeAddress>> Names = new Dictionary<string, List<NodeAddress>>();
/// <summary> Store non datasource binding (in tree and template) by origine and orig member </summary>
public Dictionary<NodeAddress, Dictionary<string, List<MemberAddress>>> Bindings =
new Dictionary<NodeAddress, Dictionary<string, List<MemberAddress>>>();
/// <summary> Store binding with name in target, will be resolved at end of parsing </summary>
public List<BindingDefinition> UnresolvedTargets = new List<BindingDefinition>();
public Context (Type rootType)
{
RootType = rootType;
dm = new DynamicMethod ("dyn_instantiator",
CompilerServices.TObject, new Type [] { typeof (Instantiator), typeof (Interface) }, true);
il = dm.GetILGenerator (256);
il.DeclareLocal (typeof (GraphicObject));
il.Emit (OpCodes.Nop);
//set local GraphicObject to root object
il.Emit (OpCodes.Newobj, rootType.GetConstructors () [0]);
il.Emit (OpCodes.Stloc_0);
CompilerServices.emitSetCurInterface (il);
}
public NodeAddress CurrentNodeAddress {
get {
Node[] n = nodesStack.ToArray ();
Array.Reverse (n);
return new NodeAddress(n);
}
}
public Type CurrentNodeType {
get { return nodesStack.Peek().CrowType; }
}
public void StorePropertyBinding(NodeAddress origNA, string origMember, NodeAddress destNA, string destMember){
Dictionary<string, List<MemberAddress>> nodeBindings = null;
if (Bindings.ContainsKey (origNA))
nodeBindings = Bindings [origNA];
else {
nodeBindings = new Dictionary<string, List<MemberAddress>> ();
Bindings [origNA] = nodeBindings;
}
if (!nodeBindings.ContainsKey (origMember))
nodeBindings [origMember] = new List<MemberAddress> ();
nodeBindings [origMember].Add (new MemberAddress (destNA, destMember));
}
public void StorePropertyBinding(BindingDefinition bindDef){
if (bindDef.HasUnresolvedTargetName) {
UnresolvedTargets.Add (bindDef);
return;
}
StorePropertyBinding (bindDef.TargetNA, bindDef.TargetMember, bindDef.SourceNA, bindDef.SourceMember);
if (bindDef.TwoWay)
StorePropertyBinding (bindDef.SourceNA, bindDef.SourceMember, bindDef.TargetNA, bindDef.TargetMember);
}
public void StoreCurrentName(string name){
if (!Names.ContainsKey(name))
Names[name] = new List<NodeAddress>();
Names[name].Add(CurrentNodeAddress);
}
public void ResolveNamedTargets(){//TODO:methodinfo fetching is redundant with early parsing
foreach (BindingDefinition bd in UnresolvedTargets) {
if (bd.HasUnresolvedTargetName) {
try {
ResolveName (bd);
} catch (Exception ex) {
System.Diagnostics.Debug.WriteLine (ex.ToString ());
continue;
}
}
if (bd is EventBinding) {
emitHandlerMethodAddition (bd as EventBinding);
continue;
}
MemberInfo miSource = bd.SourceMemberAddress.member;
if (miSource == null)
throw new Exception ("Source member '" + bd.SourceMember + "' not found");
StorePropertyBinding (bd);
}
}
public void ResolveName (BindingDefinition bd){
if (!Names.ContainsKey (bd.TargetName))
throw new Exception ("Target Name '" + bd.TargetName + "' not found");
NodeAddress resolvedNA = null;
foreach (NodeAddress na in Names[bd.TargetName]) {
bool naMatch = true;
for (int i = 0; i < bd.TargetNA.Count; i++) {
if (bd.TargetNA [i] != na [i]) {
naMatch = false;
break;
}
}
if (naMatch) {
resolvedNA = na;
break;
}
}
if (resolvedNA == null)
throw new Exception ("Target Name '" + bd.TargetName + "' not found");
bd.ResolveTargetName (resolvedNA);
}
/// <summary>
/// Emits cached delegate handler addition in the context of instantiator (ctx)
/// </summary>
public void emitCachedDelegateHandlerAddition(int index, EventInfo evt, NodeAddress address = null){
il.Emit(OpCodes.Ldloc_0);//load ref to current graphic object
CompilerServices.emitGetInstance (il, address);
il.Emit(OpCodes.Ldarg_0);//load ref to this instanciator onto the stack
il.Emit(OpCodes.Ldfld, CompilerServices.fiCachedDel);
il.Emit(OpCodes.Ldc_I4, index);//load delegate index
il.Emit(OpCodes.Callvirt, CompilerServices.miGetDelegateListItem);
il.Emit(OpCodes.Callvirt, evt.AddMethod);//call add event
}
/// <summary>
/// Emits the handler method addition, done at end of parsing, Loc_0 is root node instance
/// </summary>
/// <param name="bd">Bd.</param>
/// <param name="evt">passed as arg to prevent refetching it for the 3rd time</param>
public void emitHandlerMethodAddition(EventBinding bd){
//fetch source instance with address for handler addition (as 1st arg of handler.add)
il.Emit (OpCodes.Ldloc_0);//push root
CompilerServices.emitGetInstance (il, bd.SourceNA);
//load handlerType of sourceEvent to create handler delegate (1st arg)
il.Emit (OpCodes.Ldtoken, bd.SourceEvent.EventHandlerType);
il.Emit (OpCodes.Call, CompilerServices.miGetTypeFromHandle);
//load target the where the method is defined (2nd arg)
il.Emit (OpCodes.Ldloc_0);
CompilerServices.emitGetInstance (il, bd.TargetNA);
//load methodInfo (3rd arg)
il.Emit (OpCodes.Ldstr, bd.TargetMember);
il.Emit (OpCodes.Callvirt, CompilerServices.miCreateDel);
il.Emit (OpCodes.Callvirt, bd.SourceEvent.AddMethod);//call add event
}
}
}
|
