X448.cs

using System;
using Waher.Script.Abstraction.Elements;
using Waher.Script.Model;
using Waher.Script.Objects;
using Waher.Security.EllipticCurves;
 
namespace Waher.Script.Cryptography.Functions.Ecc
{
    public class X448 : FunctionMultiVariate
    {
        public X448(int Start, int Length, Expression Expression)
            : base(new ScriptNode[0], argumentTypes0, Start, Length, Expression)
        {
        }
 
        public X448(ScriptNode PrivateKey, int Start, int Length, Expression Expression)
            : base(new ScriptNode[] { PrivateKey }, argumentTypes1Normal, Start, Length, Expression)
        {
        }
 
        public override string FunctionName => nameof(X448);
 
        public override string[] DefaultArgumentNames => new string[] { "PrivateKey" };
 
        public override IElement Evaluate(IElement[] Arguments, Variables Variables)
        {
            int c = Arguments.Length;
 
            if (c == 0)
                return new ObjectValue(new Curve448());
 
            object Obj = Arguments[0].AssociatedObjectValue;
            if (!(Obj is byte[] PrivateKey))
                PrivateKey = Convert.FromBase64String(Obj?.ToString());
 
            return new ObjectValue(new Curve448(PrivateKey));
        }
    }
}