Ejemplo n.º 1
0
        static void Main(string[] args)
        {
            // long result;
            // Stopwatch stop;

            var interpreter = new DyalogInterpreter();

            interpreter.SingleThreaded = true;
            interpreter.DeleteOnUnload = true;

            var calc = new Calculator(interpreter);

            // Test good old exit specification (xs)
            // calc.SetStopThis("Sum");
            try {
                var resultUpper = calc.Upper("TestSystemErrors");
                var result      = calc.Sum(new int[0]);
            } catch (AplExitSpecificationException ex) {
                Console.WriteLine("Exception: " + ex.Message);
            }

            // Test Dyalog APL system error - DOMAIN ERROR
            try {
                var result2 = calc.Divide(4, 0);
            } catch (AplDomainErrorException ex) {
                Console.WriteLine("Exception: " + ex.Message);
            }

            var interpreter2 = new DyalogInterpreter();

            interpreter2.SingleThreaded = true;

            using (var test = new ClassWithDispose(interpreter)) {
                // test.SetStopThis("Divide");
                try {
                    var result = test.Divide(4, 0);
                } catch (AplDomainErrorException ex) {
                    Console.WriteLine("Exception: " + ex.Message);
                }
            }
            var test2 = new ClassWithDispose(interpreter2);
            // test.SetStopThis("MakeBigVar");
            var newClass = test2.GetNewInstance(99);

            Console.WriteLine("[]WA: " + test2.WsAwail());
            //test2.ExecuteExpr("#.BigVar←1000 1000⍴⊂'Trala'");
            //var bigvar = test2.ExecuteExprWithResult("#.BigVar");
            //test2.ExecuteExpr("⎕EX'#.BigVar'");
            test2.MakeBigVar(1000, 1000, "Tralala");

            interpreter.Unload();
            (test2 as IDisposable)?.Dispose();
            interpreter2.Unload();
            Console.WriteLine("Press any key to stop...");
            Console.ReadKey();
        }
Ejemplo n.º 2
0
        public void SetAndGetData()
        {
            var interpreter = new DyalogInterpreter();

            interpreter.SingleThreaded = true;
            interpreter.DeleteOnUnload = true;
            try {
                using (var test = new ClassWithDispose(interpreter)) {
                    test.MakeBigVar(1000, 1000, "Tralala");
                    var bigvar = test.GetBigVar();
                    var rank   = ((object[, ])bigvar).Rank;
                    Assert.AreEqual(2, rank);
                }
            } finally {
                interpreter.Unload();
            }
        }
Ejemplo n.º 3
0
        public void WSFullTest()
        {
            Dictionary <string, string> confSettings = new Dictionary <string, string>();

            confSettings.Add("maxws", "512K");

            var interpreter = new DyalogInterpreter(null, confSettings);

            interpreter.SingleThreaded = true;
            interpreter.DeleteOnUnload = true;
            using (var test = new ClassWithDispose(interpreter)) {
                try {
                    test.MakeBigVar(1000, 1000, "Tralala");
                    var bigvar = test.GetBigVar();
                } finally {
                    interpreter.Unload();
                }
            }
        }