コード例 #1
0
 // installation hook to re-direct the output to some
 // arbitrary location
 public void redirect(LineConsumer redirection)
 {
     lock (line)
     {
         this.redirection = redirection;
     }
 }
コード例 #2
0
 public void Redirect(LineConsumer r)
 {
     lock (line)
     {
         this.redirection = r;
     }
 }
コード例 #3
0
ファイル: TEST_EvalLines.cs プロジェクト: loki3/loki-pl1
        public void TestSingleLine()
        {
            {	// simple int
                string[] strings = { "5" };
                LineConsumer lines = new LineConsumer(strings);
                IScope scope = CreateScope();
                Value value = EvalLines.Do(lines, scope);
                Assert.AreEqual(5, value.AsInt);
            }

            {	// function
                string[] strings = { "subtract [ 7 4 ]" };
                LineConsumer lines = new LineConsumer(strings);
                IScope scope = CreateScope();
                Value value = EvalLines.Do(lines, scope);
                Assert.AreEqual(3, value.AsInt);
            }

            #if false
            {	// functions
                string[] strings = { "subtract [ 7 subtract [ 15 11 ] ]" };
                LineConsumer lines = new LineConsumer(strings);
                IScope scope = CreateScope();
                Value value = EvalLines.Do(lines, scope);
                Assert.AreEqual(3, value.AsInt);
            }
            #endif
        }
コード例 #4
0
ファイル: TEST_EvalLines.cs プロジェクト: loki3/loki-pl1
 public void TestNestedBodies()
 {
     {	// 5 + (3 + 4) + 7
         string[] strings = { "add", " 5", " add", "  3", "  4", " 7" };
         LineConsumer lines = new LineConsumer(strings);
         IScope scope = CreateScope();
         Value value = EvalLines.Do(lines, scope);
         Assert.AreEqual(19, value.AsInt);
     }
 }
コード例 #5
0
ファイル: TEST_EvalLines.cs プロジェクト: loki3/loki-pl1
 public void TestBody()
 {
     {
         string[] strings = { "add", " 5", " 4" };
         LineConsumer lines = new LineConsumer(strings);
         IScope scope = CreateScope();
         Value value = EvalLines.Do(lines, scope);
         Assert.AreEqual(9, value.AsInt);
     }
 }
コード例 #6
0
 public PrintStream(bool iserr) : base()
 {
     this.iserr       = iserr;
     this.line        = new System.Text.StringBuilder();
     this.redirection = null;
 }
コード例 #7
0
ファイル: TEST_EvalLines.cs プロジェクト: loki3/loki-pl1
 internal override Value Eval(Value arg, IScope scope)
 {
     List<DelimiterList> body = ValueFunction.ExtractBody(arg);
     LineConsumer consumer = new LineConsumer(body);
     int total = 0;
     while (consumer.HasCurrent())
     {
         Value value = EvalLines.DoOne(consumer, scope);
         total += value.AsInt;
     }
     return new ValueInt(total);
 }