Complement.cs

using System;
using Waher.Script.Abstraction.Elements;
using Waher.Script.Exceptions;
using Waher.Script.Model;
using Waher.Script.Objects;
 
namespace Waher.Script.Operators.Binary
{
    public class Complement : UnaryDoubleOperator
    {
        public Complement(ScriptNode Operand, int Start, int Length, Expression Expression)
            : base(Operand, Start, Length, Expression)
        {
        }
 
        public override IElement Evaluate(double Operand)
        {
            if (Operand != Math.Floor(Operand))
                throw new ScriptRuntimeException("Operands must be integer values.", this);
 
            if (Operand < 0)
            {
                if (Operand < long.MinValue)
                    throw new ScriptRuntimeException("Operand out of bounds.", this);
 
                return new DoubleNumber(~(long)Operand);
            }
            else
            {
                if (Operand > ulong.MaxValue)
                    throw new ScriptRuntimeException("Operand out of bounds.", this);
 
                return new DoubleNumber(~(ulong)Operand);
            }
        }
    }
}