src/Boo.Lang/Runtime/PropertyDispatcherFactory.cs

   1 #region license
   2 // Copyright (c) 2003, 2004, 2005 Rodrigo B. de Oliveira (rbo@acm.org)
   3 // All rights reserved.
   4 //
   5 // Redistribution and use in source and binary forms, with or without modification,
   6 // are permitted provided that the following conditions are met:
   7 //
   8 //     * Redistributions of source code must retain the above copyright notice,
   9 //     this list of conditions and the following disclaimer.
  10 //     * Redistributions in binary form must reproduce the above copyright notice,
  11 //     this list of conditions and the following disclaimer in the documentation
  12 //     and/or other materials provided with the distribution.
  13 //     * Neither the name of Rodrigo B. de Oliveira nor the names of its
  14 //     contributors may be used to endorse or promote products derived from this
  15 //     software without specific prior written permission.
  16 //
  17 // THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND
  18 // ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
  19 // WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
  20 // DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE
  21 // FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  22 // DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
  23 // SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
  24 // CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
  25 // OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
  26 // THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
  27 #endregion
  28
  29
  30 using System;
  31 using System.Collections.Generic;
  32 using System.Reflection;
  33
  34 namespace Boo.Lang.Runtime
  35 {
  36         public class PropertyDispatcherFactory : AbstractDispatcherFactory
  37         {
  38                 public PropertyDispatcherFactory(ExtensionRegistry extensions, object target, Type type, string name, params object[] arguments) : base(extensions, target, type, name, arguments)
  39                 {
  40                 }
  41
  42                 public Dispatcher CreateSetter()
  43                 {
  44                         return Create(SetOrGet.Set);
  45                 }
  46
  47                 public Dispatcher CreateGetter()
  48                 {
  49                         return Create(SetOrGet.Get);
  50                 }
  51
  52                 private Dispatcher Create(SetOrGet gos)
  53                 {
  54                         MemberInfo[] candidates = _type.GetMember(_name, MemberTypes.Property|MemberTypes.Field, RuntimeServices.DefaultBindingFlags);
  55                         if (candidates.Length == 0) return FindExtension(GetCandidateExtensions(gos));
  56                         if (candidates.Length > 1) throw new AmbiguousMatchException(Builtins.join(candidates, ", "));
  57                         return EmitDispatcherFor(candidates[0], gos);
  58                 }
  59
  60                 private Dispatcher FindExtension(IEnumerable<MethodInfo> candidates)
  61                 {
  62                         CandidateMethod found = ResolveExtension(candidates);
  63                         if (null != found) return EmitExtensionDispatcher(found);
  64                         throw MissingField();
  65                 }
  66
  67                 private IEnumerable<MethodInfo> GetCandidateExtensions(SetOrGet gos)
  68                 {
  69                         foreach (PropertyInfo p in GetExtensions<PropertyInfo>(MemberTypes.Property))
  70                         {
  71                                 MethodInfo m = Accessor(p, gos);
  72                                 if (null == m) continue;
  73                                 yield return m;
  74                         }
  75                 }
  76
  77                 private static MethodInfo Accessor(PropertyInfo p, SetOrGet gos)
  78                 {
  79                         return gos == SetOrGet.Get ? p.GetGetMethod(true) : p.GetSetMethod(true);
  80                 }
  81
  82                 private Dispatcher EmitDispatcherFor(MemberInfo info, SetOrGet gos)
  83                 {
  84                         switch (info.MemberType)
  85                         {
  86                                 case MemberTypes.Property:
  87                                         return EmitPropertyDispatcher((PropertyInfo) info, gos);
  88                                 default:
  89                                         return EmitFieldDispatcher((FieldInfo) info, gos);
  90                         }
  91                 }
  92
  93                 private Dispatcher EmitFieldDispatcher(FieldInfo field, SetOrGet gos)
  94                 {
  95                         return SetOrGet.Get == gos
  96                                 ? new GetFieldEmitter(field).Emit()
  97                                 : new SetFieldEmitter(field, GetArgumentTypes()[0]).Emit();
  98                 }
  99
 100                 private Dispatcher EmitPropertyDispatcher(PropertyInfo property, SetOrGet gos)
 101                 {
 102                         Type[] argumentTypes = GetArgumentTypes();
 103                         MethodInfo accessor = Accessor(property, gos);
 104                         if (null == accessor) throw MissingField();
 105                         CandidateMethod found = ResolveMethod(argumentTypes, new MethodInfo[] { accessor });
 106                         if (null == found) throw MissingField();
 107                         if (SetOrGet.Get == gos) return new MethodDispatcherEmitter(_type, found, argumentTypes).Emit();
 108                         return new SetPropertyEmitter(_type, found, argumentTypes).Emit();
 109                 }
 110         }
 111 }