src/Boo.Lang.Compiler/TypeSystem/InternalField.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 InternalField : IInternalEntity, IField
  34         {
  35                 Field _field;
  36                 object _staticValue;
  37
  38                 public InternalField(Field field)
  39                 {
  40                         _field = field;
  41                 }
  42
  43                 public string Name
  44                 {
  45                         get
  46                         {
  47                                 return _field.Name;
  48                         }
  49                 }
  50
  51                 public string FullName
  52                 {
  53                         get
  54                         {
  55                                 return _field.DeclaringType.FullName + "." + _field.Name;
  56                         }
  57                 }
  58
  59                 public bool IsStatic
  60                 {
  61                         get
  62                         {
  63                                 return _field.IsStatic;
  64                         }
  65                 }
  66
  67                 public bool IsPublic
  68                 {
  69                         get
  70                         {
  71                                 return _field.IsPublic;
  72                         }
  73                 }
  74
  75                 public bool IsProtected
  76                 {
  77                         get
  78                         {
  79                                 return _field.IsProtected;
  80                         }
  81                 }
  82
  83                 public bool IsPrivate
  84                 {
  85                         get
  86                         {
  87                                 return _field.IsPrivate;
  88                         }
  89                 }
  90
  91                 public bool IsInternal
  92                 {
  93                         get
  94                         {
  95                                 return _field.IsInternal;
  96                         }
  97                 }
  98
  99                 public EntityType EntityType
 100                 {
 101                         get
 102                         {
 103                                 return EntityType.Field;
 104                         }
 105                 }
 106
 107                 public IType Type
 108                 {
 109                         get
 110                         {
 111                                 return null != _field.Type
 112                                         ? TypeSystemServices.GetType(_field.Type)
 113                                         : Unknown.Default;
 114                         }
 115                 }
 116
 117                 public IType DeclaringType
 118                 {
 119                         get
 120                         {
 121                                 return (IType)TypeSystemServices.GetEntity(_field.ParentNode);
 122                         }
 123                 }
 124
 125                 public bool IsLiteral
 126                 {
 127                         get
 128                         {
 129                                 //return IsStatic && IsInitOnly && TypeSystemServices.IsPrimitiveTypeOrString(Type);
 130                                 return null != _staticValue;
 131                         }
 132                 }
 133
 134                 public bool IsInitOnly
 135                 {
 136                         get
 137                         {
 138                                 return _field.IsFinal;
 139                         }
 140                 }
 141
 142                 public object StaticValue
 143                 {
 144                         get
 145                         {
 146                                 return _staticValue;
 147                         }
 148
 149                         set
 150                         {
 151                                 _staticValue = value;
 152                         }
 153                 }
 154
 155                 public Node Node
 156                 {
 157                         get
 158                         {
 159                                 return _field;
 160                         }
 161                 }
 162
 163                 public Field Field
 164                 {
 165                         get
 166                         {
 167                                 return _field;
 168                         }
 169                 }
 170
 171                 override public string ToString()
 172                 {
 173                         return FullName;
 174                 }
 175
 176                 public bool IsDuckTyped
 177                 {
 178                         get { return false; }
 179                 }
 180         }
 181 }