public void TestMapParams()
{
ScopeChain scope = new ScopeChain();
scope.SetValue("+", new TestSum());
ValueDelimiter square = new ValueDelimiter("]", DelimiterType.AsArray);
scope.SetValue("[", square);
ValueDelimiter curly = new ValueDelimiter("}", DelimiterType.AsArray, new CreateMap());
scope.SetValue("{", curly);
{ // create postfix function that takes { :a :b }
Map map = new Map();
map["a"] = PatternData.Single("a", ValueType.Int);
map["b"] = PatternData.Single("b", ValueType.Int);
ValueMap vMap = new ValueMap(map);
List<string> body = new List<string>();
body.Add("a + b");
CreateFunction.Do(scope, "add", null, vMap, body);
}
{ // try out the function
DelimiterList list = ParseLine.Do("add { :a 2 :b 5 }", scope);
Value value = EvalList.Do(list.Nodes, scope);
Assert.AreEqual(7, value.AsInt);
}
{ // try it as a partial
DelimiterList list = ParseLine.Do("add { :a 2 } { :b 5 }", scope);
Value value = EvalList.Do(list.Nodes, scope);
Assert.AreEqual(7, value.AsInt);
}
}
static IScope CreateScope()
{
ScopeChain scope = new ScopeChain();
scope.SetValue("subtract", new SubtractArray());
scope.SetValue("add", new AddUpBody());
ValueDelimiter square = new ValueDelimiter("]", DelimiterType.AsArray);
scope.SetValue("[", square);
return scope;
}
static IScope CreateScope()
{
ScopeChain scope = new ScopeChain();
scope.SetValue("subtract-array", new SubtractArray());
scope.SetValue("subtract-map", new SubtractMap());
scope.SetValue("create-map", new CreateMap());
ValueDelimiter square = new ValueDelimiter("]", DelimiterType.AsArray);
scope.SetValue("[", square);
ValueDelimiter curly = new ValueDelimiter("}", DelimiterType.AsArray, new CreateMap());
scope.SetValue("{", curly);
return scope;
}
public void TestPartialIn()
{
ScopeChain scope = new ScopeChain();
scope.SetValue("+", new TestSum());
scope.SetValue("(", new ValueDelimiter(")", DelimiterType.AsValue));
// create infix function because we're testing that CreateFunction.UserFunction.Eval
// knows how to create partial functions
List<string> body = new List<string>();
body.Add("x + y");
CreateFunction.Do(scope, "add", new ValueString("x"), new ValueString("y"), body);
{ // test that it creates a prefix function when only the post parameter is specified
DelimiterList list = ParseLine.Do("(add 3)", scope);
Value value = EvalList.Do(list.Nodes, scope);
Assert.AreEqual(ValueType.Function, value.Type);
Map meta = value.Metadata;
Assert.IsTrue(meta.ContainsKey(ValueFunction.keyPreviousPattern));
Assert.IsFalse(meta.ContainsKey(ValueFunction.keyNextPattern));
}
{
DelimiterList list = ParseLine.Do("2 (add 3)", scope);
Value value = EvalList.Do(list.Nodes, scope);
Assert.AreEqual(5, value.AsInt);
}
{ // test that it creates a postfix function when only the pre parameter is specified
DelimiterList list = ParseLine.Do("(4 add)", scope);
Value value = EvalList.Do(list.Nodes, scope);
Assert.AreEqual(ValueType.Function, value.Type);
Map meta = value.Metadata;
Assert.IsFalse(meta.ContainsKey(ValueFunction.keyPreviousPattern));
Assert.IsTrue(meta.ContainsKey(ValueFunction.keyNextPattern));
}
{
DelimiterList list = ParseLine.Do("(4 add) 5", scope);
Value value = EvalList.Do(list.Nodes, scope);
Assert.AreEqual(9, value.AsInt);
}
}
public void TestArrayParams()
{
ScopeChain scope = new ScopeChain();
scope.SetValue("+", new TestSum());
ValueDelimiter square = new ValueDelimiter("]", DelimiterType.AsArray);
scope.SetValue("[", square);
{ // create postfix function that takes [ a b ]
List<Value> list = new List<Value>();
list.Add(PatternData.Single("a", ValueType.Int));
list.Add(PatternData.Single("b", ValueType.Int));
ValueArray array = new ValueArray(list);
List<string> body = new List<string>();
body.Add("a + b");
CreateFunction.Do(scope, "add", null, array, body);
}
{ // try out the function
DelimiterList list = ParseLine.Do("add [ 2 5 ]", scope);
Value value = EvalList.Do(list.Nodes, scope);
Assert.AreEqual(7, value.AsInt);
}
}
public void TestSimple()
{
ScopeChain scope = new ScopeChain();
scope.SetValue("+", new TestSum());
{ // create postfix function
List<string> body = new List<string>();
body.Add("x + 5");
CreateFunction.Do(scope, "5+", null, new ValueString("x"), body);
}
{
DelimiterList list = ParseLine.Do("5+ 3", scope);
Value value = EvalList.Do(list.Nodes, scope);
Assert.AreEqual(8, value.AsInt);
}
{ // create prefix function
List<string> body = new List<string>();
body.Add("5 + x");
CreateFunction.Do(scope, "+5", new ValueString("x"), null, body);
}
{
DelimiterList list = ParseLine.Do("4 +5", scope);
Value value = EvalList.Do(list.Nodes, scope);
Assert.AreEqual(9, value.AsInt);
}
{ // test both
DelimiterList list = ParseLine.Do("5+ 2 +5", scope);
Value value = EvalList.Do(list.Nodes, scope);
Assert.AreEqual(12, value.AsInt);
}
}
