MSingle.cs

Go to the documentation of this file.

using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
using Wolfram.NETLink;

namespace PolyLink
{
    public sealed class MSingle
    {
        //Singleton code
        private static readonly Lazy<MSingle> Lazy =  new Lazy<MSingle>(() => new MSingle());

        public static MSingle Instance
        {
            get { return Lazy.Value; }
        }

        public static IKernelLink Kernel
        {
            get { return Instance.KernelLink; }
        }

        public IKernelLink KernelLink
        {
            get { return _kernelLink; }
        }

        //Other stuff
        private readonly IKernelLink _kernelLink;

        private MSingle()
        {

            if (((int) System.Environment.OSVersion.Platform).EqualsAny(4,6,128))
            {
                _kernelLink = MathLinkFactory.CreateKernelLink(
                    "-linkmode launch -linkname '\"/Applications/Mathematica.app/Contents/MacOS/MathKernel\" -mathlink'");
            }
            else
            {
                _kernelLink = MathLinkFactory.CreateKernelLink();
            }
            _kernelLink.WaitAndDiscardAnswer();
        }

        public static Expr Eval(String s, params object[] args)
        {
            string sf;
            if (args ==null || !args.Any())
            {
                sf = s;
            }
            else
            {
                sf = String.Format(s, args);
            }
            Kernel.Evaluate(sf);
            Kernel.WaitForAnswer();
            var e = Kernel.GetExpr();
            return e;
        }

        public static Expr EvalFunction(String functionName, IEnumerable<Expr> args)
        {
            return Eval("{0}[{1}]", functionName, String.Join(",", args));
        }

        public static bool EvalBool(String s, params object[] args)
        {
            string sf;
            if (args == null || !args.Any())
            {
                sf = s;
            }
            else
            {
                sf = String.Format(s, args);
            }
            Kernel.Evaluate(sf);
            Kernel.WaitForAnswer();
            var e = Kernel.GetBoolean();
            return e;
        }
    }

    public static class MSingleExtensions
    {
        public static int CompareTo(this Expr e0, Expr e1 = null)
        {
            if (e1 == null)
            {
                e1 = "0".MsEvalWith();
            }
            if (MSingle.EvalBool("{0} > {1}", e0, e1))
            {
                return 1;
            }
            if (MSingle.EvalBool("{0} < {1}", e0, e1))
            {
                return -1;
            }
            if (MSingle.EvalBool("{0} == {1}", e0, e1))
            {
                return 0;
            }
            throw new Exception("These two expressions are not comparable");
        }

        public static Expr MsEvalWith(this String s, params object[] args)
        {
            return MSingle.Eval(s, args);
        }

        public static Expr MsBracket(this String s, IEnumerable<Expr> args)
        {
            return MSingle.EvalFunction(s, args);
        }

        public static Expr MsBracket(this String s, Expr arg)
        {
            return s.MsBracket(new[]{arg});
        }

       /* This was creating a strange bug!!
        * 
        * 
        * 
        public static Expr MsBracket(this String s, params Expr[] args)
        {
            return s.MsBracket(args);
        }
        */
    }
}