/src/Boo.Lang/Runtime/PropertyDispatcherFactory.cs
C# | 111 lines | 74 code | 12 blank | 25 comment | 16 complexity | 347478df9643b824a3364ae65da222cf MD5 | raw file
Possible License(s): GPL-2.0
- #region license
- // Copyright (c) 2003, 2004, 2005 Rodrigo B. de Oliveira (rbo@acm.org)
- // All rights reserved.
- //
- // Redistribution and use in source and binary forms, with or without modification,
- // are permitted provided that the following conditions are met:
- //
- // * Redistributions of source code must retain the above copyright notice,
- // this list of conditions and the following disclaimer.
- // * Redistributions in binary form must reproduce the above copyright notice,
- // this list of conditions and the following disclaimer in the documentation
- // and/or other materials provided with the distribution.
- // * Neither the name of Rodrigo B. de Oliveira nor the names of its
- // contributors may be used to endorse or promote products derived from this
- // software without specific prior written permission.
- //
- // THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND
- // ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
- // WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
- // DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE
- // FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
- // DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
- // SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
- // CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
- // OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
- // THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
- #endregion
-
-
- using System;
- using System.Collections.Generic;
- using System.Reflection;
-
- namespace Boo.Lang.Runtime
- {
- public class PropertyDispatcherFactory : AbstractDispatcherFactory
- {
- public PropertyDispatcherFactory(ExtensionRegistry extensions, object target, Type type, string name, params object[] arguments) : base(extensions, target, type, name, arguments)
- {
- }
-
- public Dispatcher CreateSetter()
- {
- return Create(SetOrGet.Set);
- }
-
- public Dispatcher CreateGetter()
- {
- return Create(SetOrGet.Get);
- }
-
- private Dispatcher Create(SetOrGet gos)
- {
- MemberInfo[] candidates = _type.GetMember(_name, MemberTypes.Property|MemberTypes.Field, RuntimeServices.DefaultBindingFlags);
- if (candidates.Length == 0) return FindExtension(GetCandidateExtensions(gos));
- if (candidates.Length > 1) throw new AmbiguousMatchException(Builtins.join(candidates, ", "));
- return EmitDispatcherFor(candidates[0], gos);
- }
-
- private Dispatcher FindExtension(IEnumerable<MethodInfo> candidates)
- {
- CandidateMethod found = ResolveExtension(candidates);
- if (null != found) return EmitExtensionDispatcher(found);
- throw MissingField();
- }
-
- private IEnumerable<MethodInfo> GetCandidateExtensions(SetOrGet gos)
- {
- foreach (PropertyInfo p in GetExtensions<PropertyInfo>(MemberTypes.Property))
- {
- MethodInfo m = Accessor(p, gos);
- if (null == m) continue;
- yield return m;
- }
- }
-
- private static MethodInfo Accessor(PropertyInfo p, SetOrGet gos)
- {
- return gos == SetOrGet.Get ? p.GetGetMethod(true) : p.GetSetMethod(true);
- }
-
- private Dispatcher EmitDispatcherFor(MemberInfo info, SetOrGet gos)
- {
- switch (info.MemberType)
- {
- case MemberTypes.Property:
- return EmitPropertyDispatcher((PropertyInfo) info, gos);
- default:
- return EmitFieldDispatcher((FieldInfo) info, gos);
- }
- }
-
- private Dispatcher EmitFieldDispatcher(FieldInfo field, SetOrGet gos)
- {
- return SetOrGet.Get == gos
- ? new GetFieldEmitter(field).Emit()
- : new SetFieldEmitter(field, GetArgumentTypes()[0]).Emit();
- }
-
- private Dispatcher EmitPropertyDispatcher(PropertyInfo property, SetOrGet gos)
- {
- Type[] argumentTypes = GetArgumentTypes();
- MethodInfo accessor = Accessor(property, gos);
- if (null == accessor) throw MissingField();
- CandidateMethod found = ResolveMethod(argumentTypes, new MethodInfo[] { accessor });
- if (null == found) throw MissingField();
- if (SetOrGet.Get == gos) return new MethodDispatcherEmitter(_type, found, argumentTypes).Emit();
- return new SetPropertyEmitter(_type, found, argumentTypes).Emit();
- }
- }
- }