extras/MonoDevelop.Debugger.Mdb/Mono.Debugging.Server.Mdb/LiteralValueReference.cs

   1 // LiteralValueReference.cs
   2 //
   3 // Author:
   4 //   Lluis Sanchez Gual <lluis@novell.com>
   5 //
   6 // Copyright (c) 2008 Novell, Inc (http://www.novell.com)
   7 //
   8 // Permission is hereby granted, free of charge, to any person obtaining a copy
   9 // of this software and associated documentation files (the "Software"), to deal
  10 // in the Software without restriction, including without limitation the rights
  11 // to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
  12 // copies of the Software, and to permit persons to whom the Software is
  13 // furnished to do so, subject to the following conditions:
  14 //
  15 // The above copyright notice and this permission notice shall be included in
  16 // all copies or substantial portions of the Software.
  17 //
  18 // THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
  19 // IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
  20 // FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
  21 // AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
  22 // LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
  23 // OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
  24 // THE SOFTWARE.
  25 //
  26 //
  27
  28 using System;
  29 using Mono.Debugger;
  30 using Mono.Debugger.Languages;
  31 using Mono.Debugging.Client;
  32
  33 namespace DebuggerServer
  34 {
  35         public class LiteralValueReference: ValueReference
  36         {
  37                 string name;
  38                 TargetObject value;
  39                 TargetType type;
  40                 object objValue;
  41                 bool objLiteral;
  42
  43                 public LiteralValueReference (EvaluationContext ctx, string name, TargetObject value): base (ctx)
  44                 {
  45                         this.name = name;
  46                         this.value = ObjectUtil.GetRealObject (ctx, value);
  47                         this.type = value.Type;
  48                 }
  49
  50                 public LiteralValueReference (EvaluationContext ctx, string name, object value): base (ctx)
  51                 {
  52                         this.name = name;
  53                         this.objValue = value;
  54                         objLiteral = true;
  55                 }
  56
  57                 public override object ObjectValue {
  58                         get {
  59                                 if (objLiteral)
  60                                         return objValue;
  61                                 else
  62                                         return value;
  63                         }
  64                 }
  65
  66                 public override TargetObject Value {
  67                         get {
  68                                 if (value == null && objLiteral) {
  69                                         if (objValue == null)
  70                                                 value = ObjectUtil.GetRealObject (Context, Context.Frame.Language.CreateNullObject (Context.Thread, null));
  71                                         else
  72                                                 value = ObjectUtil.GetRealObject (Context, Context.Frame.Language.CreateInstance (Context.Thread, objValue));
  73                                 }
  74                                 return value;
  75                         }
  76                         set {
  77                                 throw new NotSupportedException ();
  78                         }
  79                 }
  80
  81                 public override string Name {
  82                         get {
  83                                 return name;
  84                         }
  85                 }
  86
  87                 public override Mono.Debugger.Languages.TargetType Type {
  88                         get {
  89                                 if (type == null && objLiteral)
  90                                         type = Value.Type;
  91                                 return type;
  92                         }
  93                 }
  94
  95                 public override ObjectValueFlags Flags {
  96                         get {
  97                                 return ObjectValueFlags.Field | ObjectValueFlags.ReadOnly;
  98                         }
  99                 }
 100         }
 101 }