Пример #1
0
        public IEnumerable <Instruction> ProvideValue(IElementNode node, ModuleDefinition module, ILContext context, out TypeReference memberRef)
        {
            var typeNode    = node.Properties[new XmlName("", "Type")] as IElementNode;
            var typeTypeRef = context.TypeExtensions[typeNode];

            memberRef = typeTypeRef.MakeArrayType();
            return(ProvideValue(typeTypeRef, node.CollectionItems, module, context));
        }
Пример #2
0
        IEnumerable <Instruction> ProvideValue(TypeReference typeTypeRef, IReadOnlyList <INode> items, ModuleDefinition module, ILContext context)
        {
            var n = items.Count;

            yield return(Instruction.Create(OpCodes.Ldc_I4, n));

            yield return(Instruction.Create(OpCodes.Newarr, typeTypeRef));

            for (var i = 0; i < n; i++)
            {
                var vardef = context.Variables[items[i] as IElementNode];
                if (typeTypeRef.IsValueType)
                {
                    yield return(Instruction.Create(OpCodes.Dup));

                    yield return(Instruction.Create(OpCodes.Ldc_I4, i));

                    yield return(Instruction.Create(OpCodes.Ldelema, typeTypeRef));

                    foreach (var instruction in vardef.LoadAs(typeTypeRef, module))
                    {
                        yield return(instruction);
                    }
                    yield return(Instruction.Create(OpCodes.Stobj, typeTypeRef));
                }
                else
                {
                    yield return(Instruction.Create(OpCodes.Dup));

                    yield return(Instruction.Create(OpCodes.Ldc_I4, i));

                    foreach (var instruction in vardef.LoadAs(typeTypeRef, module))
                    {
                        yield return(instruction);
                    }
                    yield return(Instruction.Create(OpCodes.Stelem_Ref));
                }
            }
        }
Пример #3
0
        public static bool MatchXArguments(this MethodDefinition methodDef, ElementNode enode, TypeReference declaringTypeRef, ModuleDefinition module, ILContext context)
        {
            if (!enode.Properties.ContainsKey(XmlName.xArguments))
            {
                return(!methodDef.HasParameters);
            }

            var arguments = new List <INode>();
            var node      = enode.Properties[XmlName.xArguments] as ElementNode;

            if (node != null)
            {
                arguments.Add(node);
            }

            var list = enode.Properties[XmlName.xArguments] as ListNode;

            if (list != null)
            {
                foreach (var n in list.CollectionItems)
                {
                    arguments.Add(n);
                }
            }

            if (methodDef.Parameters.Count != arguments.Count)
            {
                return(false);
            }

            for (var i = 0; i < methodDef.Parameters.Count; i++)
            {
                var paramType = methodDef.Parameters[i].ParameterType;
                var genParam  = paramType as GenericParameter;
                if (genParam != null)
                {
                    var index = genParam.DeclaringType.GenericParameters.IndexOf(genParam);
                    paramType = (declaringTypeRef as GenericInstanceType).GenericArguments[index];
                }
                var argType = context.Variables [arguments [i] as IElementNode].VariableType;
                if (!argType.InheritsFromOrImplements(paramType))
                {
                    return(false);
                }
            }
            return(true);
        }
Пример #4
0
        public IEnumerable <Instruction> ProvideValue(IElementNode node, ModuleDefinition module, ILContext context, out TypeReference memberRef)
        {
            INode ntype;

            if (!node.Properties.TryGetValue(new XmlName("", "Member"), out ntype))
            {
                ntype = node.CollectionItems[0];
            }
            var member = ((ValueNode)ntype).Value as string;

            if (IsNullOrEmpty(member) || !member.Contains("."))
            {
                throw new XamlParseException("Syntax for x:Static is [Member=][prefix:]typeName.staticMemberName", node as IXmlLineInfo);
            }

            var dotIdx     = member.LastIndexOf('.');
            var typename   = member.Substring(0, dotIdx);
            var membername = member.Substring(dotIdx + 1);

            var typeRef     = module.ImportReference(XmlTypeExtensions.GetTypeReference(typename, module, node as BaseNode));
            var fieldRef    = GetFieldReference(typeRef, membername, module);
            var propertyDef = GetPropertyDefinition(typeRef, membername, module);

            if (fieldRef == null && propertyDef == null)
            {
                throw new XamlParseException($"x:Static: unable to find a public -- or accessible internal -- static field, static property, const or enum value named {membername} in {typename}", node as IXmlLineInfo);
            }

            var fieldDef = fieldRef?.Resolve();

            if (fieldRef != null)
            {
                memberRef = fieldRef.FieldType;
                if (!fieldDef.HasConstant)
                {
                    return new[] { Instruction.Create(OpCodes.Ldsfld, fieldRef) }
                }
                ;

                //Constants can be numbers, Boolean values, strings, or a null reference. (https://msdn.microsoft.com/en-us/library/e6w8fe1b.aspx)
                if (TypeRefComparer.Default.Equals(memberRef, module.TypeSystem.Boolean))
                {
                    return new[] { Instruction.Create(((bool)fieldDef.Constant) ? OpCodes.Ldc_I4_1 : OpCodes.Ldc_I4_0) }
                }
                ;
                if (TypeRefComparer.Default.Equals(memberRef, module.TypeSystem.String))
                {
                    return new[] { Instruction.Create(OpCodes.Ldstr, (string)fieldDef.Constant) }
                }
                ;
                if (fieldDef.Constant == null)
                {
                    return new[] { Instruction.Create(OpCodes.Ldnull) }
                }
                ;
                if (TypeRefComparer.Default.Equals(memberRef, module.TypeSystem.Char))
                {
                    return new[] { Instruction.Create(OpCodes.Ldc_I4, (char)fieldDef.Constant) }
                }
                ;
                if (TypeRefComparer.Default.Equals(memberRef, module.TypeSystem.Single))
                {
                    return new[] { Instruction.Create(OpCodes.Ldc_R4, (float)fieldDef.Constant) }
                }
                ;
                if (TypeRefComparer.Default.Equals(memberRef, module.TypeSystem.Double))
                {
                    return new[] { Instruction.Create(OpCodes.Ldc_R8, (double)fieldDef.Constant) }
                }
                ;
                if (TypeRefComparer.Default.Equals(memberRef, module.TypeSystem.Byte) || TypeRefComparer.Default.Equals(memberRef, module.TypeSystem.Int16) || TypeRefComparer.Default.Equals(memberRef, module.TypeSystem.Int32))
                {
                    return new[] { Instruction.Create(OpCodes.Ldc_I4, (int)fieldDef.Constant) }
                }
                ;
                if (TypeRefComparer.Default.Equals(memberRef, module.TypeSystem.SByte) || TypeRefComparer.Default.Equals(memberRef, module.TypeSystem.UInt16) || TypeRefComparer.Default.Equals(memberRef, module.TypeSystem.UInt32))
                {
                    return new[] { Instruction.Create(OpCodes.Ldc_I4, (uint)fieldDef.Constant) }
                }
                ;
                if (TypeRefComparer.Default.Equals(memberRef, module.TypeSystem.Int64))
                {
                    return new[] { Instruction.Create(OpCodes.Ldc_I8, (long)fieldDef.Constant) }
                }
                ;
                if (TypeRefComparer.Default.Equals(memberRef, module.TypeSystem.UInt64))
                {
                    return new[] { Instruction.Create(OpCodes.Ldc_I8, (ulong)fieldDef.Constant) }
                }
                ;

                //enum values
                if (memberRef.ResolveCached().IsEnum)
                {
                    if (fieldDef.Constant is long)
                    {
                        return new[] { Instruction.Create(OpCodes.Ldc_I8, (long)fieldDef.Constant) }
                    }
                    ;

                    if (fieldDef.Constant is ulong)
                    {
                        return new[] { Instruction.Create(OpCodes.Ldc_I8, (ulong)fieldDef.Constant) }
                    }
                    ;
                    if (fieldDef.Constant is uint)
                    {
                        return new[] { Instruction.Create(OpCodes.Ldc_I4, (uint)fieldDef.Constant) }
                    }
                    ;
                    //everything else will cast just fine to an int
                    return(new[] { Instruction.Create(OpCodes.Ldc_I4, (int)fieldDef.Constant) });
                }
            }

            memberRef = propertyDef.PropertyType;
            var getterDef = module.ImportReference(propertyDef.GetMethod);

            return(new[] { Instruction.Create(OpCodes.Call, getterDef) });
        }
Пример #5
0
        public IEnumerable <Instruction> ProvideValue(IElementNode node, ModuleDefinition module, ILContext context, out TypeReference typeRef)
        {
            typeRef = module.ImportReference(("System.Maui.Core", "System.Maui", "DataTemplate"));
            var name = new XmlName("", "TypeName");

            if (!node.Properties.TryGetValue(name, out INode typeNameNode) && node.CollectionItems.Any())
            {
                typeNameNode = node.CollectionItems[0];
            }

            if (!(typeNameNode is ValueNode valueNode))
            {
                throw new XamlParseException("TypeName isn't set.", node as XmlLineInfo);
            }

            var contentTypeRef = module.ImportReference(XmlTypeExtensions.GetTypeReference(valueNode.Value as string, module, node as BaseNode))
                                 ?? throw new XamlParseException($"Can't resolve type `{valueNode.Value}'.", node as IXmlLineInfo);

            var dataTemplateCtor = module.ImportCtorReference(typeRef, new[] { module.ImportReference(("mscorlib", "System", "Type")) });
Пример #6
0
        public IEnumerable <Instruction> ProvideValue(IElementNode node, ModuleDefinition module, ILContext context, out TypeReference memberRef)
        {
            memberRef = module.ImportReference(("mscorlib", "System", "Type"));
            var name = new XmlName("", "TypeName");

            if (!node.Properties.TryGetValue(name, out INode typeNameNode) && node.CollectionItems.Any())
            {
                typeNameNode = node.CollectionItems[0];
            }

            if (!(typeNameNode is ValueNode valueNode))
            {
                throw new XamlParseException("TypeName isn't set.", node as XmlLineInfo);
            }

            if (!node.Properties.ContainsKey(name))
            {
                node.Properties[name] = typeNameNode;
                node.CollectionItems.Clear();
            }

            var typeref = module.ImportReference(XmlTypeExtensions.GetTypeReference(valueNode.Value as string, module, node as BaseNode));

            context.TypeExtensions[node] = typeref ?? throw new XamlParseException($"Can't resolve type `{valueNode.Value}'.", node as IXmlLineInfo);

            return(new List <Instruction> {
                Create(Ldtoken, module.ImportReference(typeref)),
                Create(Call, module.ImportMethodReference(("mscorlib", "System", "Type"),
                                                          methodName: "GetTypeFromHandle",
                                                          parameterTypes: new[] { ("mscorlib", "System", "RuntimeTypeHandle") },
Пример #7
0
 public SetFieldVisitor(ILContext context)
 {
     Context = context;
 }
Пример #8
0
 public SetResourcesVisitor(ILContext context)
 {
     Context = context;
     Module  = context.Body.Method.Module;
 }
 public SetNamescopesAndRegisterNamesVisitor(ILContext context) => Context = context;