Nand.cs

using System;
using Waher.Script.Abstraction.Elements;
using Waher.Script.Exceptions;
using Waher.Script.Model;
using Waher.Script.Objects;
using Waher.Script.Objects.VectorSpaces;
 
namespace Waher.Script.Functions.Vectors
{
    public class Nand : FunctionOneVectorVariable
    {
        public Nand(ScriptNode Argument, int Start, int Length, Expression Expression)
            : base(Argument, Start, Length, Expression)
        {
        }
 
        public override string FunctionName => nameof(Nand);
 
        public override IElement EvaluateVector(IVector Argument, Variables Variables)
        {
            throw new ScriptRuntimeException("Expected a double or boolean vector.", this);
        }
 
        public override IElement EvaluateVector(DoubleVector Argument, Variables Variables)
        {
            return new DoubleNumber(CalcNand(Argument.Values, this));
        }
 
        public static double CalcNand(double[] Values, ScriptNode Node)
        {
            double d;
            ulong Result;
            int i, c = Values.Length;
            bool Signed = false;
 
            if (c == 0)
                throw new ScriptRuntimeException("Empty set of values.", Node);
 
            d = Values[0];
            if (d < long.MinValue || d > ulong.MaxValue || d != Math.Truncate(d))
                throw new ScriptRuntimeException("Values must be integers.", Node);
 
            if (d < 0)
            {
                Result = (ulong)((long)d);
                Signed = true;
            }
            else
            {
                Result = (ulong)d;
                if (Result == 0)
                    return 0xffffffffffffffff;
            }
 
            for (i = 1; i < c; i++)
            {
                d = Values[i];
                if (d < long.MinValue || d > ulong.MaxValue || d != Math.Truncate(d))
                    throw new ScriptRuntimeException("Values must be integers.", Node);
 
                if (d < 0)
                {
                    Result = (ulong)(((long)Result) & ((long)Result));
                    Signed = true;
                }
                else
                    Result &= (ulong)d;
 
                if (Result == 0)
                {
                    if (Signed)
                        return -1;
                    else
                        return 0xffffffffffffffff;
                }
            }
 
            if (Signed)
            {
                if (Result > long.MaxValue)
                    throw new ScriptRuntimeException("Overflow.", Node);
                else
                    return ~(long)Result;
            }
            else
                return ~Result;
        }
 
        public override IElement EvaluateVector(BooleanVector Argument, Variables Variables)
        {
            return new BooleanValue(CalcNand(Argument.Values, this));
        }
 
        public static bool CalcNand(bool[] Values, ScriptNode Node)
        {
            int i, c = Values.Length;
 
            if (c == 0)
                throw new ScriptRuntimeException("Empty set of values.", Node);
 
            for (i = 0; i < c; i++)
            {
                if (!Values[i])
                    return true;
            }
 
            return false;
        }
 
    }
}