ParameterScriptOptions.cs

using System.Collections;
using System.Collections.Generic;
using System.Threading.Tasks;
using System.Xml;
using Waher.Runtime.Collections;
using Waher.Script;
using Waher.Script.Abstraction.Elements;
using Waher.Script.Model;
 
namespace Waher.Reports.Files.Model.Parameters
{
    public class ParameterScriptOptions : IParameterOptions
    {
        private readonly string script;
        private readonly Expression parsed;
 
        public ParameterScriptOptions(XmlElement Xml)
            : base()
        {
            this.script = Xml.InnerText;
            this.parsed = new Expression(this.script);
        }
 
        public async Task<KeyValuePair<string, string>[]> GetOptions(Variables Variables)
        {
            ChunkedList<KeyValuePair<string, string>> Result = new ChunkedList<KeyValuePair<string, string>>();
            object Obj = await this.parsed.EvaluateAsync(Variables);
            string s;
 
            if (Obj is IEnumerable<KeyValuePair<string, object>> Options)
            {
                foreach (KeyValuePair<string, object> P in Options)
                    Result.Add(new KeyValuePair<string, string>(P.Key, P.Value?.ToString() ?? string.Empty));
            }
            else if (Obj is IEnumerable<KeyValuePair<string, IElement>> Options2)
            {
                foreach (KeyValuePair<string, IElement> P in Options2)
                    Result.Add(new KeyValuePair<string, string>(P.Key, ScriptNode.ToString(P.Value) ?? string.Empty));
            }
            else if (Obj is IEnumerable Enumerable)
            {
                IEnumerator e = Enumerable.GetEnumerator();
 
                while (e.MoveNext())
                {
                    object Item = e.Current;
 
                    if (Item is KeyValuePair<string, object> P)
                        Result.Add(new KeyValuePair<string, string>(P.Key, P.Value?.ToString() ?? string.Empty));
                    else if (Item is KeyValuePair<string, string> P2)
                        Result.Add(P2);
                    else if (Item is KeyValuePair<string, IElement> P3)
                        Result.Add(new KeyValuePair<string, string>(P3.Key, ScriptNode.ToString(P3.Value) ?? string.Empty));
                    else
                    {
                        s = Item?.ToString() ?? string.Empty;
                        Result.Add(new KeyValuePair<string, string>(s, s));
                    }
                }
            }
            else
            {
                s = Obj?.ToString() ?? string.Empty;
                Result.Add(new KeyValuePair<string, string>(s, s));
            }
 
            return Result.ToArray();
        }
 
    }
}