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

   1 // VariableReference.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.Languages;
  30 using Mono.Debugger;
  31 using DC = Mono.Debugging.Client;
  32
  33 namespace DebuggerServer
  34 {
  35         public class VariableReference: ValueReference
  36         {
  37                 TargetVariable var;
  38                 DC.ObjectValueFlags flags;
  39
  40                 public VariableReference (EvaluationContext ctx, TargetVariable var, DC.ObjectValueFlags flags): base (ctx)
  41                 {
  42                         this.flags = flags;
  43                         this.var = var;
  44                         if (!var.CanWrite)
  45                                 flags |= DC.ObjectValueFlags.ReadOnly;
  46                 }
  47
  48                 public override TargetObject Value {
  49                         get {
  50                                 TargetObject val = var.GetObject (Context.Frame);
  51                                 return ObjectUtil.GetRealObject (Context, val);
  52                         }
  53                         set {
  54                                 var.SetObject (Context.Frame, value);
  55                         }
  56                 }
  57
  58                 public override string Name {
  59                         get {
  60                                 return var.Name;
  61                         }
  62                 }
  63
  64                 public override TargetType Type {
  65                         get {
  66                                 return var.Type;
  67                         }
  68                 }
  69
  70                 public override DC.ObjectValueFlags Flags {
  71                         get {
  72                                 return flags;
  73                         }
  74                 }
  75         }
  76 }