ToIntegerLiteral.cs

using System.Numerics;
using Waher.Content.Semantic.Model.Literals;
using Waher.Script.Abstraction.Elements;
using Waher.Script.Model;
 
namespace Waher.Script.Persistence.SPARQL.Functions.TypeConversion
{
    public class ToIntegerLiteral : SemanticConversionFunction
    {
        public ToIntegerLiteral()
            : base()
        {
        }
 
        public ToIntegerLiteral(ScriptNode Argument, int Start, int Length, Expression Expression)
            : base(Argument, Start, Length, Expression)
        {
        }
 
        public override ScriptNode CreateFunction(ScriptNode Argument, int Start, int Length, Expression Expression)
        {
            return new ToIntegerLiteral(Argument, Start, Length, Expression);
        }
 
        public override string FunctionName => IntegerLiteral.TypeUri;
 
        public override IElement Convert(object Value)
        {
            if (Value is BigInteger i)
                return new IntegerLiteral(i);
            else if (Value is double d)
                return new IntegerLiteral((BigInteger)d);
            else if (Value is bool b)
                return new IntegerLiteral(b ? 1 : 0);
            else if (Value is string s)
            {
                if (BigInteger.TryParse(s, out i))
                    return new IntegerLiteral(i);
            }
            else if (Value is Complex z)
            {
                if (z.Imaginary == 0)
                    return new IntegerLiteral((BigInteger)z.Real);
            }
            
            long l = System.Convert.ToInt64(Value);
            return new IntegerLiteral(l);
        }
    }
}