ShiftLeft.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 ShiftLeft : BinaryDoubleOperator
    {
        public ShiftLeft(ScriptNode Left, ScriptNode Right, int Start, int Length, Expression Expression)
            : base(Left, Right, Start, Length, Expression)
        {
        }
 
        public override IElement Evaluate(double Left, double Right)
        {
            sbyte R;
 
            if (Left != Math.Floor(Left) || Right != Math.Floor(Right))
                throw new ScriptRuntimeException("Operands must be integer values.", this);
 
            if (Right < sbyte.MinValue || Right > sbyte.MaxValue)
                throw new ScriptRuntimeException("Operand out of bounds.", this);
 
            R = (sbyte)Right;
 
            if (Left < 0)
            {
                if (Left < long.MinValue)
                    throw new ScriptRuntimeException("Operand out of bounds.", this);
 
                return new DoubleNumber(((long)Left) << R);
            }
            else
            {
                if (Left > ulong.MaxValue)
                    throw new ScriptRuntimeException("Operand out of bounds.", this);
 
                return new DoubleNumber(((ulong)Left) << R);
            }
        }
    }
}