Defaults.cs

Go to the documentation of this file.

using Mercury.Exceptions;
using Mercury.Interpreting;
using Mercury.Nucleus.Trees;
using Mercury.Syntax;
using System;
using System.Collections.Generic;
using System.IO;
using System.Linq;

namespace Mercury
{
    public static class Defaults
    {
        //--[  Private and internal stuff  ]-----------------------------------

        private  static string epsilon  = "e";
        private  static string root     = "S";
        private  static char[] alpha    = new[] { '@', '_' };
        internal static string alphastr = new string(alpha);

        // ParameterType to ArgumentType translation table
        private  static IReadOnlyDictionary<ParameterType, ArgumentType> typeMap
            = new Dictionary<ParameterType, ArgumentType>
            {
                { ParameterType.IntegralConstant, ArgumentType.Integer | ArgumentType.Real },
                { ParameterType.RealConstant,     ArgumentType.Real                        },
                { ParameterType.StringConstant,   ArgumentType.String                      },
                { ParameterType.BooleanConstant,  ArgumentType.Boolean                     },
                { ParameterType.Variable,         ArgumentType.Symbol  | ArgumentType.Tree },
            };

        // .NET type to ArgumentType translation table
        private static Dictionary<Type, ArgumentType> rtmap = new Dictionary<Type, ArgumentType>
        {
            { typeof(int),          ArgumentType.Integer }, 
            { typeof(double),       ArgumentType.Real    },
            { typeof(string),       ArgumentType.String  },
            { typeof(bool),         ArgumentType.Boolean },
            { typeof(Symbol),       ArgumentType.Symbol  },
            { typeof(Tree<Symbol>), ArgumentType.Tree    },
            { typeof(object),       ArgumentType.Any     },
        };

        //--[  Properties  ]---------------------------------------------------

        public static string Epsilon { get { return epsilon; } }

        public static string Root    { get { return root; } }

        public static ArgumentType ParamToArgType(ParameterType ptype)
        { return ptype == ParameterType.ActionCall ? ArgumentType.None : typeMap[ptype]; }

        public static ArgumentType TypeToArgType<T,U>()
        {
            Type tpt = typeof(T);
            Type tpu = typeof(U);

            ArgumentType rargt = ArgumentType.None;
            if (!rtmap.TryGetValue(tpu, out rargt) || tpu.Equals(tpt))
                rargt |= ArgumentType.TValue;

            return rargt;
        }

    }
}

---

Generated on Sun May 18 2014 20:57:49 for Mercury library by   1.8.7