src/Boo.Lang.Compiler/TypeSystem/InternalCallableType.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 InternalCallableType : InternalClass, ICallableType
  34         {
  35                 CallableSignature _signature;
  36
  37                 internal InternalCallableType(TypeSystemServices typeSystemServices, TypeDefinition typeDefinition) :
  38                         base(typeSystemServices, typeDefinition)
  39                 {
  40                 }
  41
  42                 public CallableSignature GetSignature()
  43                 {
  44                         if (null == _signature)
  45                         {
  46                                 IMethod invoke = GetInvokeMethod();
  47                                 if (null == invoke) return null;
  48                                 _signature = invoke.CallableType.GetSignature();
  49                         }
  50                         return _signature;
  51                 }
  52
  53                 protected override IType CreateConstructedType(IType[] arguments)
  54                 {
  55                         return new GenericConstructedCallableType(_typeSystemServices, this, arguments);
  56                 }
  57
  58                 public IMethod GetInvokeMethod()
  59                 {
  60                         return (IMethod)_typeDefinition.Members["Invoke"].Entity;
  61                 }
  62
  63                 public IMethod GetEndInvokeMethod()
  64                 {
  65                         return (IMethod)_typeDefinition.Members["EndInvoke"].Entity;
  66                 }
  67
  68                 override public bool IsAssignableFrom(IType other)
  69                 {
  70                         return _typeSystemServices.IsCallableTypeAssignableFrom(this, other);
  71                 }
  72
  73                 override public string ToString()
  74                 {
  75                         CallableSignature signature = GetSignature();
  76                         if (null == signature) return base.ToString();
  77                         return signature.ToString();
  78                 }
  79         }
  80 }