DefaultPropertyEnumerator.cs

using System;
using System.Collections.Generic;
using System.Reflection;
using Waher.Runtime.Inventory;
using Waher.Script.Abstraction.Elements;
using Waher.Script.Model;
using Waher.Script.Objects.Matrices;
using Waher.Script.Objects;
using System.Threading.Tasks;
 
namespace Waher.Script.Functions.Runtime.PropertyEnumerators
{
    public class DefaultPropertyEnumerator : IPropertyEnumerator
    {
        public DefaultPropertyEnumerator()
        {
        }
 
        public async Task<IElement> EnumerateProperties(object Object)
        {
            List<IElement> Elements = new List<IElement>();
            Type T = Object.GetType();
            IElement Value;
 
            foreach (PropertyInfo PI in T.GetRuntimeProperties())
            {
                if (!PI.CanRead || !PI.GetMethod.IsPublic || PI.GetIndexParameters().Length > 0)
                    continue;
 
                Elements.Add(new StringValue(PI.Name));
 
                try
                {
                    Value = Expression.Encapsulate(await ScriptNode.WaitPossibleTask(PI.GetValue(Object)));
                }
                catch (Exception ex)
                {
                    Value = new ObjectValue(ex);
                }
 
                Elements.Add(Value);
            }
 
            ObjectMatrix M = new ObjectMatrix(Elements.Count / 2, 2, Elements)
            {
                ColumnNames = new string[] { "Name", "Value" }
            };
 
            return M;
        }
 
        public Grade Supports(Type Object)
        {
            return Grade.Barely;
        }
    }
}