cs-mic/src/core/InputInterpreter.cs

using System.Runtime.CompilerServices;
using System.Text;
using System.IO;

namespace csmic
{
    public class InputInterpreter
    {
        #region Members

        private decimal numericValue = 0;
        private string stringValue = string.Empty;
        private TimeSpan lastExecutionTime = TimeSpan.Zero;

        // Variable stores
        private readonly Dictionary<string, decimal> numericVariables;
        private readonly Dictionary<string, decimal[]> numericArrayVariables;
        private readonly Dictionary<string, string> expressionVariables;

        // Function registry
        private readonly Dictionary<string, ICodedFunction> functions;

        #endregion

        #region Constructors

        public InputInterpreter()
        {
            numericVariables = new(StringComparer.Ordinal);
            numericArrayVariables = new(StringComparer.Ordinal);
            expressionVariables = new(StringComparer.Ordinal);
            functions = new(StringComparer.Ordinal);
        }

        // Internal constructor to create a child interpreter that shares stores
        internal InputInterpreter(InputInterpreter parent)
        {
            this.numericVariables = parent.numericVariables;
            this.numericArrayVariables = parent.numericArrayVariables;
            this.expressionVariables = parent.expressionVariables;
            this.functions = parent.functions;
        }

        #endregion

        #region Properties

        public decimal NumericValue => numericValue;
        public string StringValue => stringValue;

        public TimeSpan LastExecutionTime => lastExecutionTime;

        #endregion

        #region Output Plumbing

        internal void ProduceOutput(decimal numericValue, string stringValue)
        {
            this.numericValue = numericValue;
            this.stringValue = stringValue;
        }

        internal void ProduceOutput(FunctionValue functionValue)
        {
            switch (functionValue.Type)
            {
                case ValueType.Numeric:
                    decimal numericValue = Convert.ToDecimal(functionValue.Value);
                    ProduceOutput(numericValue, string.Empty);
                    break;
                case ValueType.String:
                    if (functionValue.Value is string s)
                        ProduceOutput(0, s);
                    else
                        ProduceOutput(0, string.Empty);
                    break;
                case ValueType.None:
                default:
                    ProduceOutput(0, string.Empty);
                    break;
            }
        }

        #endregion

        #region Variable APIs

        internal bool TryGetNumeric(string name, out decimal value)
            => numericVariables.TryGetValue(name, out value);

        internal bool TryGetNumericArray(string name, out decimal[] values)
            => numericArrayVariables.TryGetValue(name, out values!);

        internal bool TryGetExpression(string name, out string expr)
            => expressionVariables.TryGetValue(name, out expr!);

        internal void AssignNumeric(string name, decimal value)
        {
            numericVariables[name] = value;
            // Remove conflicting bindings
            expressionVariables.Remove(name);
        }

        internal void AssignNumericArray(string name, decimal[] values)
        {
            numericArrayVariables[name] = values;
        }

        internal void AssignExpression(string name, string expressionText)
        {
            expressionVariables[name] = expressionText;
            // Remove conflicting numeric value
            numericVariables.Remove(name);
        }

        #endregion

        #region Expression Evaluation

        internal FunctionValue EvaluateExpression(string expressionText)
        {
            // Create a child interpreter sharing stores, so ProduceOutput doesn't affect parent state
            var child = new InputInterpreter(this);
            using var ms = new MemoryStream(Encoding.UTF8.GetBytes(expressionText));
            var scanner = new csmic.Interpreter.Scanner(ms);
            var parser = new csmic.Interpreter.Parser(scanner)
            {
                Interpreter = child
            };
            parser.Parse();
            return parser.Result;
        }

        // Primary developer-facing API: interpret input and return numeric result
        public decimal Interpret(string input)
        {
            DateTime start = DateTime.Now;
            try
            {
                using var ms = new MemoryStream(Encoding.UTF8.GetBytes(input ?? string.Empty));
                var scanner = new csmic.Interpreter.Scanner(ms);
                var parser = new csmic.Interpreter.Parser(scanner)
                {
                    Interpreter = this
                };
                parser.Parse();

                if (parser.errors.count > 0)
                {
                    // Soft error: set numeric to 0 and report a parse error message
                    ProduceOutput(0m, parser.errors.errMsgFormat);
                }
                else
                {
                    ProduceOutput(parser.Result);
                }
            }
            catch (Exception ex)
            {
                // Soft error: never throw, capture message
                ProduceOutput(0m, ex.Message);
            }
            finally
            {
                DateTime end = DateTime.Now;
                lastExecutionTime = end - start;
            }

            return this.numericValue;
        }

        #endregion

        #region Functions

        internal void RegisterFunction(string name, ICodedFunction function)
        {
            functions[name] = function;
        }

        internal FunctionValue ExecuteFunction(string name, params FunctionArgument[] args)
        {
            if (functions.TryGetValue(name, out var fn))
            {
                try
                {
                    return fn.Execute(args);
                }
                catch
                {
                    return new FunctionValue(ValueType.None, null);
                }
            }
            return new FunctionValue(ValueType.None, null);
        }

        #endregion
    }
}