public XamlIlAstNewClrObjectNode(IXamlIlLineInfo lineInfo,
IXamlIlType type, IXamlIlConstructor ctor,
List <IXamlIlAstValueNode> arguments) : base(lineInfo)
{
Type = new XamlIlAstClrTypeReference(lineInfo, type);
Constructor = ctor;
Arguments = arguments;
}
void Track(OpCode code, IXamlIlMethod method = null, IXamlIlConstructor ctor = null)
{
if (_paused)
{
return;
}
if (code.FlowControl == FlowControl.Branch || code.FlowControl == FlowControl.Cond_Branch)
{
_hasBranches = true;
}
if (method != null && (code == OpCodes.Call || code == OpCodes.Callvirt))
{
StackBalance -= method.Parameters.Count + (method.IsStatic ? 0 : 1);
if (method.ReturnType.FullName != "System.Void")
{
StackBalance += 1;
}
}
else if (ctor != null && (code == OpCodes.Call || code == OpCodes.Newobj))
{
StackBalance -= ctor.Parameters.Count;
if (code == OpCodes.Newobj)
{
// New pushes a value to the stack
StackBalance += 1;
}
else
{
if (!ctor.IsStatic)
{
// base ctor pops this from the stack
StackBalance -= 1;
}
}
}
else
{
void Balance(StackBehaviour op)
{
if (s_balance.TryGetValue(op, out var balance))
{
StackBalance += balance;
}
else
{
throw new Exception("Don't know how to track stack for " + code);
}
}
Balance(code.StackBehaviourPop);
Balance(code.StackBehaviourPush);
}
}
private XamlIlContextDefinition(IXamlIlTypeBuilder parentBuilder,
IXamlIlTypeSystem typeSystem, XamlIlLanguageTypeMappings mappings)
{
var so = typeSystem.GetType("System.Object");
var builder = parentBuilder.DefineSubType(so, "Context", true);
builder.DefineGenericParameters(new[]
{
new KeyValuePair <string, XamlIlGenericParameterConstraint>("TTarget",
new XamlIlGenericParameterConstraint
{
IsClass = true
})
});
var rootObjectField = builder.DefineField(builder.GenericParameters[0], "RootObject", true, false);
_parentServiceProviderField = builder.DefineField(mappings.ServiceProvider, "_sp", false, false);
if (mappings.InnerServiceProviderFactoryMethod != null)
{
_innerServiceProviderField = builder.DefineField(mappings.ServiceProvider, "_innerSp", false, false);
}
var staticProvidersField = builder.DefineField(typeSystem.GetType("System.Object").MakeArrayType(1),
"_staticProviders", false, false);
var systemType = typeSystem.GetType("System.Type");
var systemUri = typeSystem.GetType("System.Uri");
var systemString = typeSystem.GetType("System.String");
var getServiceInterfaceMethod = mappings.ServiceProvider.FindMethod("GetService", so, false, systemType);
var ownServices = new List <IXamlIlType>();
var ctorCallbacks = new List <Action <IXamlIlEmitter> >();
if (mappings.RootObjectProvider != null)
{
builder.AddInterfaceImplementation(mappings.RootObjectProvider);
var rootGen = ImplementInterfacePropertyGetter(builder, mappings.RootObjectProvider, RootObjectFieldName)
.Generator;
var tryParent = rootGen.DefineLabel();
var fail = rootGen.DefineLabel();
var parentRootProvider = rootGen.DefineLocal(mappings.RootObjectProvider);
rootGen
// if(RootObject!=null) return RootObject;
.LdThisFld(rootObjectField)
.Box(rootObjectField.FieldType)
.Brfalse(tryParent)
.LdThisFld(rootObjectField)
.Box(rootObjectField.FieldType)
.Ret()
// if(_sp == null) goto fail;
.MarkLabel(tryParent)
.LdThisFld(_parentServiceProviderField)
.Brfalse(fail)
// parentProv = (IRootObjectProvider)_sp.GetService(typeof(IRootObjectProvider));
.LdThisFld(_parentServiceProviderField)
.Ldtype(mappings.RootObjectProvider)
.EmitCall(getServiceInterfaceMethod)
.Castclass(mappings.RootObjectProvider)
.Stloc(parentRootProvider)
// if(parentProv == null) goto fail;
.Ldloc(parentRootProvider)
.Brfalse(fail)
// return parentProv.Root;
.Ldloc(parentRootProvider)
.EmitCall(mappings.RootObjectProvider.FindMethod(m => m.Name == "get_RootObject"))
.Ret()
// fail:
.MarkLabel(fail)
.Ldnull()
.Ret();
ownServices.Add(mappings.RootObjectProvider);
}
if (mappings.ParentStackProvider != null)
{
builder.AddInterfaceImplementation(mappings.ParentStackProvider);
var objectListType = typeSystem.GetType("System.Collections.Generic.List`1")
.MakeGenericType(new[] { typeSystem.GetType("System.Object") });
ParentListField = builder.DefineField(objectListType, ParentListFieldName, true, false);
var enumerator = EmitParentEnumerable(typeSystem, parentBuilder, mappings);
CreateCallbacks.Add(enumerator.createCallback);
var parentStackEnumerableField = builder.DefineField(
typeSystem.GetType("System.Collections.Generic.IEnumerable`1").MakeGenericType(new[] { so }),
"_parentStackEnumerable", false, false);
ImplementInterfacePropertyGetter(builder, mappings.ParentStackProvider, "Parents")
.Generator.LdThisFld(parentStackEnumerableField).Ret();
ctorCallbacks.Add(g => g
.Emit(OpCodes.Ldarg_0)
.Emit(OpCodes.Newobj, objectListType.FindConstructor(new List <IXamlIlType>()))
.Emit(OpCodes.Stfld, ParentListField)
.Emit(OpCodes.Ldarg_0)
.LdThisFld(ParentListField)
.LdThisFld(_parentServiceProviderField)
.Emit(OpCodes.Newobj, enumerator.ctor)
.Emit(OpCodes.Stfld, parentStackEnumerableField));
ownServices.Add(mappings.ParentStackProvider);
}
ownServices.Add(EmitTypeDescriptorContextStub(typeSystem, builder, mappings));
if (mappings.ProvideValueTarget != null)
{
builder.AddInterfaceImplementation(mappings.ProvideValueTarget);
PropertyTargetObject = builder.DefineField(so, ProvideTargetObjectName, true, false);
PropertyTargetProperty = builder.DefineField(so, ProvideTargetPropertyName, true, false);
ImplementInterfacePropertyGetter(builder, mappings.ProvideValueTarget, "TargetObject")
.Generator.LdThisFld(PropertyTargetObject).Ret();
ImplementInterfacePropertyGetter(builder, mappings.ProvideValueTarget, "TargetProperty")
.Generator.LdThisFld(PropertyTargetProperty).Ret();
ownServices.Add(mappings.ProvideValueTarget);
}
IXamlIlField baseUriField = null;
if (mappings.UriContextProvider != null)
{
baseUriField = builder.DefineField(systemUri, "_baseUri", false, false);
builder.AddInterfaceImplementation(mappings.UriContextProvider);
var getter = builder.DefineMethod(systemUri, new IXamlIlType[0], "get_BaseUri", true, false, true);
var setter = builder.DefineMethod(typeSystem.GetType("System.Void"), new[] { systemUri },
"set_BaseUri", true, false, true);
getter.Generator
.LdThisFld(baseUriField)
.Ret();
setter.Generator
.Ldarg_0()
.Ldarg(1)
.Stfld(baseUriField)
.Ret();
builder.DefineProperty(systemUri, "BaseUri", setter, getter);
ownServices.Add(mappings.UriContextProvider);
}
builder.AddInterfaceImplementation(mappings.ServiceProvider);
var getServiceMethod = builder.DefineMethod(so,
new[] { systemType },
"GetService", true, false, true);
ownServices = ownServices.Where(s => s != null).ToList();
if (_innerServiceProviderField != null)
{
var next = getServiceMethod.Generator.DefineLabel();
var innerResult = getServiceMethod.Generator.DefineLocal(so);
getServiceMethod.Generator
//if(_inner == null) goto next;
.LdThisFld(_innerServiceProviderField)
.Brfalse(next)
// var innerRes = _inner.GetService(type);
.LdThisFld(_innerServiceProviderField)
.Ldarg(1)
.EmitCall(getServiceInterfaceMethod)
.Stloc(innerResult)
// if(innerRes == null) goto next;
.Ldloc(innerResult)
.Brfalse(next)
// return innerRes
.Ldloc(innerResult)
.Ret()
.MarkLabel(next);
}
var compare = systemType.FindMethod("Equals", typeSystem.GetType("System.Boolean"),
false, systemType);
var isAssignableFrom = systemType.FindMethod("IsAssignableFrom", typeSystem.GetType("System.Boolean"),
false, systemType);
var fromHandle = systemType.Methods.First(m => m.Name == "GetTypeFromHandle");
var getTypeFromObject = so.Methods.First(m => m.Name == "GetType" && m.Parameters.Count == 0);
if (ownServices.Count != 0)
{
for (var c = 0; c < ownServices.Count; c++)
{
var next = getServiceMethod.Generator.DefineLabel();
getServiceMethod.Generator
.Emit(OpCodes.Ldtoken, ownServices[c])
.EmitCall(fromHandle)
.Emit(OpCodes.Ldarg_1)
.Emit(OpCodes.Callvirt, compare)
.Emit(OpCodes.Brfalse, next)
.Emit(OpCodes.Ldarg_0)
.Emit(OpCodes.Ret)
.MarkLabel(next);
}
}
var staticProviderIndex = getServiceMethod.Generator.DefineLocal(typeSystem.GetType("System.Int32"));
var staticProviderNext = getServiceMethod.Generator.DefineLabel();
var staticProviderFailed = getServiceMethod.Generator.DefineLabel();
var staticProviderEnd = getServiceMethod.Generator.DefineLabel();
var staticProviderElement = getServiceMethod.Generator.DefineLocal(so);
getServiceMethod.Generator
//start: if(_staticProviders == null) goto: end
.LdThisFld(staticProvidersField)
.Brfalse(staticProviderEnd)
// var c = 0
.Ldc_I4(0)
.Stloc(staticProviderIndex)
// next:
.MarkLabel(staticProviderNext)
// if(c >= _staticProviders.Length) goto: end
.Ldloc(staticProviderIndex)
.LdThisFld(staticProvidersField)
.Ldlen()
.Bge(staticProviderEnd)
// var obj = _staticProviders[c]
.LdThisFld(staticProvidersField)
.Ldloc(staticProviderIndex)
.Ldelem_ref()
// dup
.Stloc(staticProviderElement)
.Ldarg(1)
.Ldloc(staticProviderElement)
// if(obj.GetType().Equals(arg1)) return obj; else goto failed;
.EmitCall(getTypeFromObject)
.EmitCall(isAssignableFrom)
.Brfalse(staticProviderFailed)
.Ldloc(staticProviderElement)
.Ret()
// failed:
.MarkLabel(staticProviderFailed)
// c++
.Ldloc(staticProviderIndex)
.Ldc_I4(1)
.Add()
.Stloc(staticProviderIndex)
// goto: start
.Br(staticProviderNext)
// end:
.MarkLabel(staticProviderEnd);
var noParentProvider = getServiceMethod.Generator.DefineLabel();
getServiceMethod.Generator
.LdThisFld(_parentServiceProviderField)
.Brfalse(noParentProvider)
.LdThisFld(_parentServiceProviderField)
.Ldarg(1)
.EmitCall(getServiceInterfaceMethod)
.Emit(OpCodes.Ret)
.MarkLabel(noParentProvider)
.Ldnull()
.Ret();
var ctor = builder.DefineConstructor(false,
mappings.ServiceProvider,
staticProvidersField.FieldType,
systemString);
ctor.Generator
.Emit(OpCodes.Ldarg_0)
.Emit(OpCodes.Call, so.Constructors.First())
.Emit(OpCodes.Ldarg_0)
.Emit(OpCodes.Ldarg_1)
.Emit(OpCodes.Stfld, _parentServiceProviderField)
.Emit(OpCodes.Ldarg_0)
.Emit(OpCodes.Ldarg_2)
.Emit(OpCodes.Stfld, staticProvidersField);
if (baseUriField != null)
{
var noUri = ctor.Generator.DefineLabel();
ctor.Generator
.Emit(OpCodes.Ldarg_3)
.Brfalse(noUri)
.Emit(OpCodes.Ldarg_0)
.Emit(OpCodes.Ldarg_3)
.Newobj(systemUri.FindConstructor(new List <IXamlIlType>
{
typeSystem.GetType("System.String")
}))
.Emit(OpCodes.Stfld, baseUriField)
.MarkLabel(noUri);
}
foreach (var feature in ctorCallbacks)
{
feature(ctor.Generator);
}
// We are calling this last to ensure that our own services are ready
if (_innerServiceProviderField != null)
{
ctor.Generator
// _innerSp = InnerServiceProviderFactory(this)
.Ldarg_0()
.Ldarg_0()
.EmitCall(mappings.InnerServiceProviderFactoryMethod)
.Stfld(_innerServiceProviderField);
}
ctor.Generator.Emit(OpCodes.Ret);
Constructor = ctor;
CreateCallbacks.Add(() => { parentBuilder.CreateType(); });
EmitPushPopParent(builder, typeSystem);
CreateAllTypes();
ContextType = builder.CreateType();
}
public static IXamlIlEmitter Newobj(this IXamlIlEmitter emitter, IXamlIlConstructor ctor) => emitter.Emit(OpCodes.Newobj, ctor);
public IXamlIlEmitter Emit(OpCode code, IXamlIlConstructor ctor)
{
_ilg.Emit(code, ((SreConstructor)ctor).Constuctor);
return(this);
}
public bool Equals(IXamlIlConstructor other) => ((SreConstructor)other)?.Constuctor.Equals(Constuctor) == true;
public IXamlIlEmitter Emit(OpCode code, IXamlIlConstructor ctor)
{
Track(code, ctor);
_inner.Emit(code, ctor);
return(this);
}
public bool Equals(IXamlIlConstructor other) => other is CecilConstructor cm &&
private XamlIlContext(IXamlIlTypeBuilder builder,
IXamlIlTypeSystem typeSystem, XamlIlLanguageTypeMappings mappings,
IXamlIlType rootType, IEnumerable <IXamlIlField> staticProviders, string baseUri)
{
RootObjectField = builder.DefineField(rootType, "RootObject", true, false);
_parentServiceProviderField = builder.DefineField(mappings.ServiceProvider, "_sp", false, false);
if (mappings.InnerServiceProviderFactoryMethod != null)
{
_innerServiceProviderField = builder.DefineField(mappings.ServiceProvider, "_innerSp", false, false);
}
var so = typeSystem.GetType("System.Object");
var systemType = typeSystem.GetType("System.Type");
var getServiceInterfaceMethod = mappings.ServiceProvider.FindMethod("GetService", so, false, systemType);
var ownServices = new List <IXamlIlType>();
var ctorCallbacks = new List <Action <IXamlIlEmitter> >();
if (mappings.RootObjectProvider != null)
{
builder.AddInterfaceImplementation(mappings.RootObjectProvider);
var rootGen = ImplementInterfacePropertyGetter(builder, mappings.RootObjectProvider, "RootObject")
.Generator;
var tryParent = rootGen.DefineLabel();
var fail = rootGen.DefineLabel();
var parentRootProvider = rootGen.DefineLocal(mappings.RootObjectProvider);
rootGen
// if(RootObject!=null) return RootObject;
.LdThisFld(RootObjectField)
.Brfalse(tryParent)
.LdThisFld(RootObjectField)
.Ret()
// if(_sp == null) goto fail;
.MarkLabel(tryParent)
.LdThisFld(_parentServiceProviderField)
.Brfalse(fail)
// parentProv = (IRootObjectProvider)_sp.GetService(typeof(IRootObjectProvider));
.LdThisFld(_parentServiceProviderField)
.Ldtype(mappings.RootObjectProvider)
.EmitCall(getServiceInterfaceMethod)
.Castclass(mappings.RootObjectProvider)
.Stloc(parentRootProvider)
// if(parentProv == null) goto fail;
.Ldloc(parentRootProvider)
.Brfalse(fail)
// return parentProv.Root;
.Ldloc(parentRootProvider)
.EmitCall(mappings.RootObjectProvider.FindMethod(m => m.Name == "get_RootObject"))
.Ret()
// fail:
.MarkLabel(fail)
.Ldnull()
.Ret();
ownServices.Add(mappings.RootObjectProvider);
}
if (mappings.ParentStackProvider != null)
{
builder.AddInterfaceImplementation(mappings.ParentStackProvider);
var objectListType = typeSystem.GetType("System.Collections.Generic.List`1")
.MakeGenericType(new[] { typeSystem.GetType("System.Object") });
ParentListField = builder.DefineField(objectListType, "ParentsStack", true, false);
var enumerator = EmitParentEnumerable(typeSystem, builder, mappings);
CreateCallbacks.Add(enumerator.createCallback);
_parentStackEnumerableField = builder.DefineField(
typeSystem.GetType("System.Collections.Generic.IEnumerable`1").MakeGenericType(new[] { so }),
"_parentStackEnumerable", false, false);
ImplementInterfacePropertyGetter(builder, mappings.ParentStackProvider, "Parents")
.Generator.LdThisFld(_parentStackEnumerableField).Ret();
ctorCallbacks.Add(g => g
.Emit(OpCodes.Ldarg_0)
.Emit(OpCodes.Newobj, objectListType.FindConstructor(new List <IXamlIlType>()))
.Emit(OpCodes.Stfld, ParentListField)
.Emit(OpCodes.Ldarg_0)
.Emit(OpCodes.Ldarg_0)
.Emit(OpCodes.Newobj, enumerator.ctor)
.Emit(OpCodes.Stfld, _parentStackEnumerableField));
ownServices.Add(mappings.ParentStackProvider);
}
ownServices.Add(EmitTypeDescriptorContextStub(typeSystem, builder, mappings));
if (mappings.ProvideValueTarget != null)
{
builder.AddInterfaceImplementation(mappings.ProvideValueTarget);
PropertyTargetObject = builder.DefineField(so, "ProvideTargetObject", true, false);
PropertyTargetProperty = builder.DefineField(so, "ProvideTargetProperty", true, false);
ImplementInterfacePropertyGetter(builder, mappings.ProvideValueTarget, "TargetObject")
.Generator.LdThisFld(PropertyTargetObject).Ret();
ImplementInterfacePropertyGetter(builder, mappings.ProvideValueTarget, "TargetProperty")
.Generator.LdThisFld(PropertyTargetProperty).Ret();
ownServices.Add(mappings.ProvideValueTarget);
}
if (mappings.UriContextProvider != null)
{
var systemUri = typeSystem.GetType("System.Uri");
var cached = builder.DefineField(systemUri, "_baseUri", false, false);
builder.AddInterfaceImplementation(mappings.UriContextProvider);
var getter = builder.DefineMethod(systemUri, new IXamlIlType[0], "get_BaseUri", true, false, true);
var setter = builder.DefineMethod(typeSystem.GetType("System.Void"), new[] { systemUri },
"set_BaseUri", true, false, true);
var noCache = getter.Generator.DefineLabel();
getter.Generator
.LdThisFld(cached)
.Brfalse(noCache)
.LdThisFld(cached)
.Ret()
.MarkLabel(noCache)
.Ldarg_0()
.Ldstr(baseUri)
.Newobj(systemUri.FindConstructor(new List <IXamlIlType>
{
typeSystem.GetType("System.String")
}))
.Stfld(cached)
.LdThisFld(cached)
.Ret();
setter.Generator
.Ldarg_0()
.Ldarg(1)
.Stfld(cached)
.Ret();
builder.DefineProperty(systemUri, "BaseUri", setter, getter);
ownServices.Add(mappings.UriContextProvider);
}
builder.AddInterfaceImplementation(mappings.ServiceProvider);
var getServiceMethod = builder.DefineMethod(so,
new[] { systemType },
"GetService", true, false, true);
ownServices = ownServices.Where(s => s != null).ToList();
if (_innerServiceProviderField != null)
{
var next = getServiceMethod.Generator.DefineLabel();
var innerResult = getServiceMethod.Generator.DefineLocal(so);
getServiceMethod.Generator
//if(_inner == null) goto next;
.LdThisFld(_innerServiceProviderField)
.Brfalse(next)
// var innerRes = _inner.GetService(type);
.LdThisFld(_innerServiceProviderField)
.Ldarg(1)
.EmitCall(getServiceInterfaceMethod)
.Stloc(innerResult)
// if(innerRes == null) goto next;
.Ldloc(innerResult)
.Brfalse(next)
// return innerRes
.Ldloc(innerResult)
.Ret()
.MarkLabel(next);
}
var compare = systemType.FindMethod("Equals", typeSystem.GetType("System.Boolean"),
false, systemType);
var fromHandle = systemType.Methods.First(m => m.Name == "GetTypeFromHandle");
if (ownServices.Count != 0)
{
for (var c = 0; c < ownServices.Count; c++)
{
var next = getServiceMethod.Generator.DefineLabel();
getServiceMethod.Generator
.Emit(OpCodes.Ldtoken, ownServices[c])
.Emit(OpCodes.Call, fromHandle)
.Emit(OpCodes.Ldarg_1)
.Emit(OpCodes.Callvirt, compare)
.Emit(OpCodes.Brfalse, next)
.Emit(OpCodes.Ldarg_0)
.Emit(OpCodes.Ret)
.MarkLabel(next);
}
}
if (staticProviders != null)
{
foreach (var sprov in staticProviders)
{
var next = getServiceMethod.Generator.DefineLabel();
getServiceMethod.Generator
.Ldtoken(sprov.FieldType)
.EmitCall(fromHandle)
.Ldarg(1)
.EmitCall(compare)
.Brfalse(next)
.Ldsfld(sprov)
.Ret()
.MarkLabel(next);
}
}
var noParentProvider = getServiceMethod.Generator.DefineLabel();
getServiceMethod.Generator
.LdThisFld(_parentServiceProviderField)
.Brfalse(noParentProvider)
.LdThisFld(_parentServiceProviderField)
.Ldarg(1)
.EmitCall(getServiceInterfaceMethod)
.Emit(OpCodes.Ret)
.MarkLabel(noParentProvider)
.Ldnull()
.Ret();
var ctor = builder.DefineConstructor(false, mappings.ServiceProvider);
ctor.Generator
.Emit(OpCodes.Ldarg_0)
.Emit(OpCodes.Call, so.Constructors.First())
.Emit(OpCodes.Ldarg_0)
.Emit(OpCodes.Ldarg_1)
.Emit(OpCodes.Stfld, _parentServiceProviderField);
foreach (var feature in ctorCallbacks)
{
feature(ctor.Generator);
}
// We are calling this last to ensure that our own services are ready
if (_innerServiceProviderField != null)
{
ctor.Generator
// _innerSp = InnerServiceProviderFactory(this)
.Ldarg_0()
.Ldarg_0()
.EmitCall(mappings.InnerServiceProviderFactoryMethod)
.Stfld(_innerServiceProviderField);
}
ctor.Generator.Emit(OpCodes.Ret);
Constructor = ctor;
CreateCallbacks.Add(() => { ContextType = builder.CreateType(); });
ContextType = builder;
}
public IXamlIlEmitter Emit(SreOpCode code, IXamlIlConstructor ctor) => Emit(Instruction.Create(Dic[code], M.ImportReference(((CecilConstructor)ctor).IlReference)));
