src/Boo.Lang.Compiler/TypeSystem/InternalInterface.cs

   1 #region license
   2 // Copyright (c) 2004, 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 namespace Boo.Lang.Compiler.TypeSystem
  30 {
  31         using Boo.Lang.Compiler.Ast;
  32
  33         public class InternalInterface : AbstractInternalType
  34         {
  35                 int _typeDepth = -1;
  36
  37                 internal InternalInterface(TypeSystemServices manager, TypeDefinition typeDefinition) :
  38                         base(manager, typeDefinition)
  39                 {
  40                 }
  41
  42                 override public IType BaseType
  43                 {
  44                         get
  45                         {
  46                                 return _typeSystemServices.ObjectType;
  47                         }
  48                 }
  49
  50                 override public bool Resolve(List targetList, string name, EntityType flags)
  51                 {
  52                         bool found = base.Resolve(targetList, name, flags);
  53
  54                         foreach (TypeReference baseType in _typeDefinition.BaseTypes)
  55                         {
  56                                 if (TypeSystemServices.GetType(baseType).Resolve(targetList, name, flags))
  57                                 {
  58                                         found = true;
  59                                 }
  60                         }
  61
  62                         if (!found)
  63                         {
  64                                 // also look in System.Object
  65                                 if (_typeSystemServices.ObjectType.Resolve(targetList, name, flags))
  66                                 {
  67                                         found = true;
  68                                 }
  69                         }
  70                         return found;
  71                 }
  72
  73                 override public int GetTypeDepth()
  74                 {
  75                         if (-1 == _typeDepth)
  76                         {
  77                                 _typeDepth = 1+GetMaxBaseInterfaceDepth();
  78                         }
  79                         return _typeDepth;
  80                 }
  81
  82                 override public bool IsSubclassOf(IType type)
  83                 {
  84                         foreach (TypeReference baseTypeReference in _typeDefinition.BaseTypes)
  85                         {
  86                                 IType baseType = TypeSystemServices.GetType(baseTypeReference);
  87                                 if (type == baseType || baseType.IsSubclassOf(type))
  88                                 {
  89                                         return true;
  90                                 }
  91                         }
  92                         return _typeSystemServices.IsSystemObject(type);
  93                 }
  94
  95                 int GetMaxBaseInterfaceDepth()
  96                 {
  97                         int max = 0;
  98                         foreach (TypeReference baseType in _typeDefinition.BaseTypes)
  99                         {
 100                                 IType tag = TypeSystemServices.GetType(baseType);
 101                                 int depth = tag.GetTypeDepth();
 102                                 if (depth > max)
 103                                 {
 104                                         max = depth;
 105                                 }
 106                         }
 107                         return max;
 108                 }
 109         }
 110 }