VisualPascalABCNETLinux/MonoDebugging/Evaluation/RemoteRawValue.cs - master - n-dimens/pascalabcnet

VisualPascalABCNETLinux/MonoDebugging/Evaluation/RemoteRawValue.cs
245 строк7 KB
Ivan Bondarev
linux debugger: improvements in watch
17 сен 2023, 21:08
17 сен 2023, 21:0880904b2
// 
// RemoteRawValue.cs
//  
// Author:
//       Lluis Sanchez Gual <lluis@novell.com>
// 
// Copyright (c) 2010 Novell, Inc (http://www.novell.com)
// 
// Permission is hereby granted, free of charge, to any person obtaining a copy
// of this software and associated documentation files (the "Software"), to deal
// in the Software without restriction, including without limitation the rights
// to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
// copies of the Software, and to permit persons to whom the Software is
// furnished to do so, subject to the following conditions:
// 
// The above copyright notice and this permission notice shall be included in
// all copies or substantial portions of the Software.
// 
// THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
// IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
// FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
// AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
// LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
// OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
// THE SOFTWARE.

using System;
using Mono.Debugging.Backend;
using System.Collections;
using Mono.Debugging.Client;

namespace Mono.Debugging.Evaluation
{
	class RemoteRawValue: RemoteFrameObject, IRawValue
	{
		readonly EvaluationContext ctx;
		readonly IObjectSource source;
		readonly object targetObject;

		public RemoteRawValue (EvaluationContext gctx, IObjectSource source, object targetObject)
		{
			this.ctx = gctx.Clone ();
			ctx.Options.AllowTargetInvoke = true;
			ctx.Options.AllowMethodEvaluation = true;
			this.targetObject = targetObject;
			this.source = source;
			Connect ();
		}
		
		public object TargetObject {
			get { return targetObject; }
		}

		public IObjectSource Source
        {
			get { return source; }
		}
		#region IRawValue implementation
		public object CallMethod (string name, object[] parameters, EvaluationOptions options)
		{
			object[] outArgs;
			return CallMethod (name, parameters, false, out outArgs, options);
		}

		public object CallMethod (string name, object[] parameters, out object[] outArgs, EvaluationOptions options)
		{
			return CallMethod (name, parameters, true, out outArgs, options);
		}

		private object CallMethod (string name, object[] parameters, bool enableOutArgs, out object[] outArgs, EvaluationOptions options)
		{
			var localContext = ctx.WithOptions (options);
			
			var argValues = new object [parameters.Length];
			var argTypes = new object [parameters.Length];

			for (int n = 0; n < argValues.Length; n++) {
				argValues[n] = localContext.Adapter.FromRawValue (localContext, parameters[n]);
				argTypes[n] = localContext.Adapter.GetValueType (localContext, argValues[n]);
			}

			var type = localContext.Adapter.GetValueType (localContext, targetObject);
			if (enableOutArgs) {
				object[] outArgsTemp;
				var res = localContext.Adapter.RuntimeInvoke (localContext, type, targetObject, name, null, argTypes, argValues, out outArgsTemp);
				outArgs = new object[outArgsTemp.Length];
				for (int i = 0; i < outArgs.Length; i++) {
					outArgs [i] = localContext.Adapter.ToRawValue (localContext, null, outArgsTemp [i]);
				}
				return localContext.Adapter.ToRawValue (localContext, null, res);
			} else {
				outArgs = null;
				var res = localContext.Adapter.RuntimeInvoke (localContext, type, targetObject, name, argTypes, argValues);
				return localContext.Adapter.ToRawValue (localContext, null, res);
			}
		}
		
		public object GetMemberValue (string name, EvaluationOptions options)
		{
			var localContext = ctx.WithOptions (options);
			var type = localContext.Adapter.GetValueType (localContext, targetObject);
			var val = localContext.Adapter.GetMember (localContext, source, type, targetObject, name);

			if (val == null)
				throw new EvaluatorException ("Member '{0}' not found", name);

			return localContext.Adapter.ToRawValue (localContext, val, val.Value);
		}
		
		public void SetMemberValue (string name, object value, EvaluationOptions options)
		{
			var localContext = ctx.WithOptions (options);
			var type = localContext.Adapter.GetValueType (localContext, targetObject);
			var val = localContext.Adapter.GetMember (localContext, source, type, targetObject, name);

			if (val == null)
				throw new EvaluatorException ("Member '{0}' not found", name);

			val.Value = localContext.Adapter.FromRawValue (localContext, value);
		}
		
		#endregion
	}
	
	class RemoteRawValueArray: RemoteFrameObject, IRawValueArray
	{
		readonly ICollectionAdaptor targetArray;
		readonly EvaluationContext ctx;
		readonly IObjectSource source;
		readonly object targetObject;

		public RemoteRawValueArray (EvaluationContext ctx, IObjectSource source, ICollectionAdaptor targetArray, object targetObject)
		{
			this.ctx = ctx;
			this.targetArray = targetArray;
			this.targetObject = targetObject;
			this.source = source;
			Connect ();
		}
		
		public object TargetObject {
			get { return targetObject; }
		}
		
		public object GetValue (int[] index)
		{
			return ctx.Adapter.ToRawValue (ctx, source, targetArray.GetElement (index));
		}

		public Array GetValues (int[] index, int count)
		{
			var values = targetArray.GetElements (index, count);
			var idx = new int[index.Length];
			var array = new ArrayList ();

			for (int i = 0; i < index.Length; i++)
				idx[i] = index[i];

			Type commonType = null;
			for (int i = 0; i < count; i++) {
				var rv = ctx.Adapter.ToRawValue (ctx, new ArrayObjectSource (targetArray, idx), values.GetValue (i));
				if (commonType == null)
					commonType = rv.GetType ();
				else if (commonType != rv.GetType ())
					commonType = typeof (void);
				array.Add (rv);

				idx[idx.Length - 1]++;
			}

			if (array.Count > 0 && commonType != typeof (void))
				return array.ToArray (commonType);

			return array.ToArray ();
		}
		
		public void SetValue (int[] index, object value)
		{
			targetArray.SetElement (index, ctx.Adapter.FromRawValue (ctx, value));
		}
		
		public int[] Dimensions {
			get {
				return targetArray.GetDimensions ();
			}
		}
		
		public Array ToArray ()
		{
			int[] dims = targetArray.GetDimensions ();
			var array = new ArrayList ();

			if (dims.Length != 1)
				throw new NotSupportedException ();

			var idx = new int [1];
			Type commonType = null;
			for (int n = 0; n < dims[0]; n++) {
				idx[0] = n;

				var rv = ctx.Adapter.ToRawValue (ctx, new ArrayObjectSource (targetArray, idx), targetArray.GetElement (idx));
				if (commonType == null)
					commonType = rv.GetType ();
				else if (commonType != rv.GetType ())
					commonType = typeof(void);
				array.Add (rv);
			}

			if (array.Count > 0 && commonType != typeof(void))
				return array.ToArray (commonType);

			return array.ToArray ();
		}
	}
	
	class RemoteRawValueString: RemoteFrameObject, IRawValueString
	{
		readonly IStringAdaptor targetString;
		readonly object targetObject;

		public RemoteRawValueString (IStringAdaptor targetString, object targetObject)
		{
			this.targetString = targetString;
			this.targetObject = targetObject;
			Connect ();
		}
		
		public object TargetObject {
			get { return targetObject; }
		}
		
		public int Length {
			get { return targetString.Length; }
		}
		
		public string Value {
			get { return targetString.Value; }
		}
		
		public string Substring (int index, int length)
		{
			return targetString.Substring (index, length);
		}
	}
}