GetTabIDs.cs

using System;
using System.Collections.Generic;
using Waher.Script;
using Waher.Script.Abstraction.Elements;
using Waher.Script.Exceptions;
using Waher.Script.Model;
using Waher.Script.Objects.VectorSpaces;
using Waher.Security;
 
namespace Waher.IoTGateway.ScriptExtensions.Functions
{
    public class GetTabIDs : FunctionMultiVariate
    {
        public GetTabIDs(int Start, int Length, Expression Expression)
            : base(new ScriptNode[0], argumentTypes0, Start, Length, Expression)
        {
        }
 
        public GetTabIDs(ScriptNode Page, int Start, int Length, Expression Expression)
            : base(new ScriptNode[] { Page }, argumentTypes1Normal, Start, Length, Expression)
        {
        }
 
        public GetTabIDs(ScriptNode Page, ScriptNode QueryFilter, int Start, int Length, Expression Expression)
            : base(new ScriptNode[] { Page, QueryFilter }, argumentTypes2Scalar, Start, Length, Expression)
        {
        }
 
        public override string FunctionName => nameof(GetTabIDs);
 
        public override string[] DefaultArgumentNames => new string[] { "Page", "QueryFilter" };
 
        public override IElement Evaluate(IElement[] Arguments, Variables Variables)
        {
            return new ObjectVector(GetTabs(Arguments, this));
        }
 
        public static string[] GetTabs(IElement[] Arguments, ScriptNode Node)
        { 
            switch (Arguments.Length)
            {
                case 0:
                    return ClientEvents.GetTabIDs();
 
                case 1:
                    object Obj = Arguments[0].AssociatedObjectValue;
                    if (Obj is Array A)
                    {
                        if (!(A is string[] Pages))
                            Pages = (string[])Expression.ConvertTo(A, typeof(string[]), Node);
 
                        return ClientEvents.GetTabIDsForLocations(Pages);
                    }
                    else if (Obj is IUser User)
                        return ClientEvents.GetTabIDsForUser(User);
                    else if (Obj is null)
                        return new string[0];
                    else
                        return ClientEvents.GetTabIDsForLocation(Obj?.ToString());
 
                case 2:
                    return ClientEvents.GetTabIDsForLocation(Arguments[0].AssociatedObjectValue?.ToString(),
                        GetQueryFilter(Arguments[1], Node));
 
                default:
                    return new string[0];
            }
        }
 
        private static KeyValuePair<string, string>[] GetQueryFilter(IElement Argument, ScriptNode Node)
        {
            if (!(Argument.AssociatedObjectValue is IDictionary<string, IElement> Obj))
                throw new ScriptRuntimeException("Query filter must be an object ex nihilo.", Node);
 
            List<KeyValuePair<string, string>> Result = new List<KeyValuePair<string, string>>();
 
            foreach (KeyValuePair<string, IElement> P in Obj)
                Result.Add(new KeyValuePair<string, string>(P.Key, P.Value.AssociatedObjectValue?.ToString()));
 
            return Result.ToArray();
        }
    }
}