public Reply Resolve(CoreControl.Controller controller)
{
return(new Reply
{
RootId = controller.Declare(CoreControl.EntityFactory.ENTITY.CONTEXT, 0, ProjectName, CoreControl.EntityFactory.VISIBILITY.PUBLIC)
});
}
public void TestInvalidFile()
{
var ctrl = new CoreControl.Controller();
try
{
ctrl.LoadFrom("astar.dnai");
}
catch (InvalidDataException)
{
/* succed */
}
}
private void testMoreOrLess(CoreControl.Controller controller, uint play, uint COMPARISON)
{
int mystery_number = 47;
int i = 0;
Dictionary <string, dynamic> args = new Dictionary <string, dynamic>
{
{ "lastResult", (System.Int64)controller.GetEnumerationValue(COMPARISON, "NONE") }
};
Dictionary <string, dynamic> returns;
do
{
returns = controller.CallFunction(play, args);
string toprint = "IA give: " + returns["result"].ToString();
System.Diagnostics.Debug.WriteLine(toprint);
if (returns["result"] > mystery_number)
{
args["lastResult"] = (System.Int64)controller.GetEnumerationValue(COMPARISON, "LESS");
System.Diagnostics.Debug.WriteLine("==> It's less");
}
else if (returns["result"] < mystery_number)
{
args["lastResult"] = (System.Int64)controller.GetEnumerationValue(COMPARISON, "MORE");
System.Diagnostics.Debug.WriteLine("==> It's more");
}
else
{
break;
}
++i;
} while (returns["result"] != mystery_number && i < 10);
if (i == 10)
{
throw new Exception("Failed to reach mystery number in less that 10 times");
}
else
{
System.Diagnostics.Debug.Write("AI found the mystery number: " + mystery_number.ToString());
}
}
/// <summary>
/// Converts an Entity to a serializable string, aka
/// a fully qualified type as you would see it in source code.
/// </summary>
/// <param name="entity">The entity.</param>
/// <param name="controller">The controller where the entity is stored.</param>
/// <returns>The serializable string.</returns>
public static string ToSerialString(this Entity entity, CoreControl.Controller controller)
{
var type = controller.GetEntityType(entity.Id);
if (type == ENTITY.ENUM_TYPE)
{
var ret = "";
ret += $"enum {entity.Name} {{";
foreach (var v in controller.GetEnumerationValues(entity.Id))
{
ret += $"{v} = {controller.GetEnumerationValue(entity.Id, v)},";
}
ret += "}";
return(ret);
}
//var t = controller.GetVariableType(entity.Id);
var value = controller.GetVariableValue(entity.Id);
return($"{value.GetType()} {entity.Name}");
}
public void ControllerMoreOrLess()
{
CoreControl.Controller controller = new CoreControl.Controller();
List <uint> empty = new List <uint>();
uint integer = (uint)CoreControl.EntityFactory.BASE_ID.INTEGER_TYPE;
//declaring moreOrLess context in global context
uint ctx = controller.Declare(ENTITY.CONTEXT, 0, "moreOrLess", VISIBILITY.PUBLIC);
//declaring global variables min, max and lastGiven in moreOrLess context
uint min = controller.Declare(ENTITY.VARIABLE, ctx, "min", VISIBILITY.PRIVATE);
controller.SetVariableType(min, integer);
controller.SetVariableValue(min, 0);
uint max = controller.Declare(ENTITY.VARIABLE, ctx, "max", VISIBILITY.PRIVATE);
controller.SetVariableType(max, integer);
controller.SetVariableValue(max, 100);
uint lastGiven = controller.Declare(ENTITY.VARIABLE, ctx, "lastGiven", VISIBILITY.PRIVATE);
controller.SetVariableType(lastGiven, integer);
controller.SetVariableValue(lastGiven, -1);
//declaring enumeration COMPARISON in moreOrLess context
uint COMPARISON = controller.Declare(ENTITY.ENUM_TYPE, ctx, "COMPARISON", VISIBILITY.PUBLIC);
controller.SetEnumerationValue(COMPARISON, "MORE", 0);
controller.SetEnumerationValue(COMPARISON, "LESS", 1);
controller.SetEnumerationValue(COMPARISON, "NONE", 2);
//declaring function play in moreOrLess context
uint play = controller.Declare(ENTITY.FUNCTION, ctx, "Play", VISIBILITY.PUBLIC);
//declaring parameter lastResult in play function
uint play_lastResult = controller.Declare(ENTITY.VARIABLE, play, "lastResult", VISIBILITY.PUBLIC);
controller.SetFunctionParameter(play, "lastResult");
controller.SetVariableType(play_lastResult, COMPARISON);
controller.SetVariableValue(play_lastResult, controller.GetEnumerationValue(COMPARISON, "NONE"));
//declaring return result in play function
uint play_result = controller.Declare(ENTITY.VARIABLE, play, "result", VISIBILITY.PUBLIC);
controller.SetFunctionReturn(play, "result");
controller.SetVariableType(play_result, integer);
uint split_COMPARISON = controller.AddInstruction(play, INSTRUCTION_ID.ENUM_SPLITTER, new List <uint> {
COMPARISON
});
uint get_last_result = controller.AddInstruction(play, INSTRUCTION_ID.GETTER, new List <uint> {
play_lastResult
});
//if (lastResult == COMPARISION::MORE)
uint lr_eq_more = controller.AddInstruction(play, INSTRUCTION_ID.EQUAL, new List <uint> {
COMPARISON, COMPARISON
});
controller.LinkInstructionData(play, split_COMPARISON, "MORE", lr_eq_more, "LeftOperand");
controller.LinkInstructionData(play, get_last_result, "reference", lr_eq_more, "RightOperand");
uint if_lr_eq_more = controller.AddInstruction(play, INSTRUCTION_ID.IF, empty);
controller.LinkInstructionData(play, lr_eq_more, "result", if_lr_eq_more, "condition");
//min = lastGiven
uint get_lastGiven = controller.AddInstruction(play, INSTRUCTION_ID.GETTER, new List <uint> {
lastGiven
});
uint set_min = controller.AddInstruction(play, INSTRUCTION_ID.SETTER, new List <uint> {
min
});
controller.LinkInstructionData(play, get_lastGiven, "reference", set_min, "value");
//if (lastResult == COMPARISON::LESS)
uint lr_eq_less = controller.AddInstruction(play, INSTRUCTION_ID.EQUAL, new List <uint> {
COMPARISON, COMPARISON
});
controller.LinkInstructionData(play, get_last_result, "reference", lr_eq_less, "LeftOperand");
controller.LinkInstructionData(play, split_COMPARISON, "LESS", lr_eq_less, "RightOperand");
uint if_lr_eq_less = controller.AddInstruction(play, INSTRUCTION_ID.IF, empty);
controller.LinkInstructionData(play, lr_eq_less, "result", if_lr_eq_less, "condition");
//max = lastGiven
uint set_max = controller.AddInstruction(play, INSTRUCTION_ID.SETTER, new List <uint> {
max
});
controller.LinkInstructionData(play, get_lastGiven, "reference", set_max, "value");
//min / 2
uint get_min = controller.AddInstruction(play, INSTRUCTION_ID.GETTER, new List <uint> {
min
});
uint min_half = controller.AddInstruction(play, INSTRUCTION_ID.DIV, new List <uint> {
integer, integer, integer
});
controller.LinkInstructionData(play, get_min, "reference", min_half, "LeftOperand");
controller.SetInstructionInputValue(play, min_half, "RightOperand", 2);
//max / 2
uint get_max = controller.AddInstruction(play, INSTRUCTION_ID.GETTER, new List <uint> {
max
});
uint max_half = controller.AddInstruction(play, INSTRUCTION_ID.DIV, new List <uint> {
integer, integer, integer
});
controller.LinkInstructionData(play, get_max, "reference", max_half, "LeftOperand");
controller.SetInstructionInputValue(play, max_half, "RightOperand", 2);
//min / 2 + max / 2
uint min_half_plus_max_half = controller.AddInstruction(play, INSTRUCTION_ID.ADD, new List <uint> {
integer, integer, integer
});
controller.LinkInstructionData(play, min_half, "result", min_half_plus_max_half, "LeftOperand");
controller.LinkInstructionData(play, max_half, "result", min_half_plus_max_half, "RightOperand");
//result = min / 2 + max / 2
uint result_calculation = controller.AddInstruction(play, INSTRUCTION_ID.SETTER, new List <uint> {
play_result
});
controller.LinkInstructionData(play, min_half_plus_max_half, "result", result_calculation, "value");
//result == lastGiven
uint get_result = controller.AddInstruction(play, INSTRUCTION_ID.GETTER, new List <uint> {
play_result
});
uint res_eq_last_given = controller.AddInstruction(play, INSTRUCTION_ID.EQUAL, new List <uint> {
integer, integer
});
controller.LinkInstructionData(play, get_lastGiven, "reference", res_eq_last_given, "LeftOperand");
controller.LinkInstructionData(play, get_result, "reference", res_eq_last_given, "RightOperand");
//if (result == lastGiven)
uint if_res_eq_last_given = controller.AddInstruction(play, INSTRUCTION_ID.IF, empty);
controller.LinkInstructionData(play, res_eq_last_given, "result", if_res_eq_last_given, "condition");
//lastResult == MORE
uint last_result_eq_more = controller.AddInstruction(play, INSTRUCTION_ID.EQUAL, new List <uint> {
COMPARISON, COMPARISON
});
controller.LinkInstructionData(play, get_last_result, "reference", last_result_eq_more, "LeftOperand");
controller.LinkInstructionData(play, split_COMPARISON, "MORE", last_result_eq_more, "RightOperand");
//if (lastResult == MORE)
uint if_last_result_eq_more = controller.AddInstruction(play, INSTRUCTION_ID.IF, empty);
controller.LinkInstructionData(play, last_result_eq_more, "result", if_last_result_eq_more, "condition");
//result + 1
uint result_pp = controller.AddInstruction(play, INSTRUCTION_ID.ADD, new List <uint> {
integer, integer, integer
});
controller.LinkInstructionData(play, get_result, "reference", result_pp, "LeftOperand");
controller.SetInstructionInputValue(play, result_pp, "RightOperand", 1);
//result = result + 1
uint set_result_pp = controller.AddInstruction(play, INSTRUCTION_ID.SETTER, new List <uint> {
play_result
});
controller.LinkInstructionData(play, result_pp, "result", set_result_pp, "value");
//result - 1
uint result_mm = controller.AddInstruction(play, INSTRUCTION_ID.SUB, new List <uint> {
integer, integer, integer
});
controller.LinkInstructionData(play, get_result, "reference", result_mm, "LeftOperand");
controller.SetInstructionInputValue(play, result_mm, "RightOperand", 1);
//result = result - 1
uint set_result_mm = controller.AddInstruction(play, INSTRUCTION_ID.SETTER, new List <uint> {
play_result
});
controller.LinkInstructionData(play, result_mm, "result", set_result_mm, "value");
//lastGiven = result
uint set_last_given = controller.AddInstruction(play, INSTRUCTION_ID.SETTER, new List <uint> {
lastGiven
});
controller.LinkInstructionData(play, get_result, "reference", set_last_given, "value");
/*
* if (lastResult == More)
* {
* min = lastGiven
* }
* else
* {
* if (lastResult == LESS)
* {
* max = lastGiven
* }
* }
*
* result = min / 2 + max / 2
*
* if (number == lastGiven)
* {
* if (lastResult == MORE)
* {
* number = number + 1;
* }
* else
* {
* number = number - 1;
* }
* }
*
* lastGiven = number
*/
controller.LinkInstructionExecution(play, if_lr_eq_more, (uint)If.ConditionIndexes.OnTrue, set_min);
controller.LinkInstructionExecution(play, if_lr_eq_more, (uint)If.ConditionIndexes.OnFalse, if_lr_eq_less);
controller.LinkInstructionExecution(play, set_min, 0, result_calculation);
controller.LinkInstructionExecution(play, if_lr_eq_less, (uint)If.ConditionIndexes.OnTrue, set_max);
controller.LinkInstructionExecution(play, if_lr_eq_less, (uint)If.ConditionIndexes.OnFalse, result_calculation);
controller.LinkInstructionExecution(play, set_max, 0, result_calculation);
controller.LinkInstructionExecution(play, result_calculation, 0, if_res_eq_last_given);
controller.LinkInstructionExecution(play, if_res_eq_last_given, (uint)If.ConditionIndexes.OnTrue, if_last_result_eq_more);
controller.LinkInstructionExecution(play, if_res_eq_last_given, (uint)If.ConditionIndexes.OnFalse, set_last_given);
controller.LinkInstructionExecution(play, if_last_result_eq_more, (uint)If.ConditionIndexes.OnTrue, set_result_pp);
controller.LinkInstructionExecution(play, if_last_result_eq_more, (uint)If.ConditionIndexes.OnFalse, set_result_mm);
controller.LinkInstructionExecution(play, set_result_pp, 0, set_last_given);
controller.LinkInstructionExecution(play, set_result_mm, 0, set_last_given);
controller.SetFunctionEntryPoint(play, if_lr_eq_more);
testMoreOrLess(controller, play, COMPARISON);
controller.SaveTo("toto.dnai");
controller.Reset();
controller.Declare(ENTITY.CONTEXT, 0, "Coucou", VISIBILITY.PUBLIC);
controller.Declare(ENTITY.CONTEXT, 0, "Coucou1", VISIBILITY.PUBLIC);
controller.Declare(ENTITY.CONTEXT, 0, "Coucou2", VISIBILITY.PUBLIC);
controller.Declare(ENTITY.CONTEXT, 0, "Coucou3", VISIBILITY.PUBLIC);
controller.LoadFrom("toto.dnai");
play = controller.FindEntity("/moreOrLess/Play");
COMPARISON = controller.FindEntity("/moreOrLess/COMPARISON");
testMoreOrLess(controller, play, COMPARISON);
}
public void TestCoverage()
{
CoreControl.Controller controller = new CoreControl.Controller();
uint integer = (uint)CoreControl.EntityFactory.BASE_ID.INTEGER_TYPE;
uint floating = (uint)CoreControl.EntityFactory.BASE_ID.FLOATING_TYPE;
uint ctx = controller.Declare(ENTITY.CONTEXT, 0, "Ctoto", VISIBILITY.PRIVATE);
uint fnt = controller.Declare(ENTITY.FUNCTION, 0, "Ftoto", VISIBILITY.PRIVATE);
uint var = controller.Declare(ENTITY.VARIABLE, 0, "Vtoto", VISIBILITY.PRIVATE);
uint enu = controller.Declare(ENTITY.ENUM_TYPE, 0, "Etoto", VISIBILITY.PRIVATE);
uint obj = controller.Declare(ENTITY.OBJECT_TYPE, 0, "tata", VISIBILITY.PRIVATE);
uint lst = controller.Declare(ENTITY.LIST_TYPE, 0, "tutu", VISIBILITY.PRIVATE);
//context
controller.SetContextParent(ctx, 0);
//variable
controller.SetVariableType(var, integer);
Assert.IsTrue(controller.GetVariableType(var) == integer);
controller.SetVariableValue(var, 42);
Assert.IsTrue(controller.GetVariableValue(var) == 42);
//enum
controller.SetEnumerationType(enu, floating);
controller.SetEnumerationValue(enu, "TUTU", 43.2);
Assert.IsTrue(controller.GetEnumerationValue(enu, "TUTU") == 43.2);
controller.RemoveEnumerationValue(enu, "TUTU");
//class
controller.AddClassAttribute(obj, "posX", integer, VISIBILITY.PUBLIC);
controller.AddClassAttribute(obj, "posY", integer, VISIBILITY.PUBLIC);
controller.RenameClassAttribute(obj, "posX", "posZ");
controller.RemoveClassAttribute(obj, "posY");
//uncomment it when object will be implemented
//controller.addClassMemberFunction(obj, "Unitarize", AccessMode.EXTERNAL);
//list
controller.SetListType(lst, floating);
//function
controller.SetVariableType(var, floating);
uint entry = controller.AddInstruction(fnt, INSTRUCTION_ID.SETTER, new List <uint> {
var
});
controller.SetInstructionInputValue(fnt, entry, "value", 3.14);
controller.SetFunctionEntryPoint(fnt, entry);
controller.CallFunction(fnt, new Dictionary <string, dynamic> {
});
Assert.IsTrue(controller.GetVariableValue(var) == 3.14);
uint val = controller.Declare(ENTITY.VARIABLE, fnt, "value", VISIBILITY.PUBLIC);
controller.SetFunctionParameter(fnt, "value");
controller.SetVariableType(val, floating);
uint get_value = controller.AddInstruction(fnt, INSTRUCTION_ID.GETTER, new List <uint> {
val
});
controller.LinkInstructionData(fnt, get_value, "reference", entry, "value");
controller.CallFunction(fnt, new Dictionary <string, dynamic> {
{ "value", 42.3 }
});
Assert.IsTrue(controller.GetVariableValue(var) == 42.3);
uint res = controller.Declare(ENTITY.VARIABLE, fnt, "res", VISIBILITY.PUBLIC);
controller.SetFunctionReturn(fnt, "res");
controller.SetVariableType(res, floating);
controller.RemoveFunctionInstruction(fnt, entry);
entry = controller.AddInstruction(fnt, INSTRUCTION_ID.SETTER, new List <uint> {
res
});
controller.SetFunctionEntryPoint(fnt, entry);
controller.LinkInstructionData(fnt, get_value, "reference", entry, "value");
controller.CallFunction(fnt, new Dictionary <string, dynamic> {
{ "value", 56.3 }
});
Assert.IsTrue(controller.GetVariableValue(res) == 56.3);
controller.UnlinkInstructionInput(fnt, entry, "value");
controller.SetInstructionInputValue(fnt, entry, "value", 71.2);
controller.CallFunction(fnt, new Dictionary <string, dynamic> {
{ "value", 31.2 }
});
Assert.IsTrue(controller.GetVariableValue(res) == 71.2);
uint new_set = controller.AddInstruction(fnt, INSTRUCTION_ID.SETTER, new List <uint> {
val
});
controller.LinkInstructionData(fnt, get_value, "reference", new_set, "value");
controller.LinkInstructionExecution(fnt, entry, 0, new_set);
controller.CallFunction(fnt, new Dictionary <string, dynamic> {
{ "value", 32.2 }
});
Assert.IsTrue(controller.GetVariableValue(val) == 32.2);
controller.UnlinkInstructionFlow(fnt, entry, 0);
controller.CallFunction(fnt, new Dictionary <string, dynamic> {
{ "value", 32.2 }
});
Assert.IsTrue(controller.GetVariableValue(res) == 71.2);
Assert.IsTrue(controller.GetFunctionParameters(fnt).Count == 1);
Assert.IsTrue(controller.GetFunctionReturns(fnt).Count == 1);
// declarators
controller.ChangeVisibility(0, "Ctoto", VISIBILITY.PUBLIC);
controller.ChangeVisibility(0, "Ftoto", VISIBILITY.PUBLIC);
controller.ChangeVisibility(0, "Vtoto", VISIBILITY.PUBLIC);
controller.ChangeVisibility(0, "Etoto", VISIBILITY.PUBLIC);
controller.ChangeVisibility(0, "tata", VISIBILITY.PUBLIC);
controller.ChangeVisibility(0, "tutu", VISIBILITY.PUBLIC);
uint cnt = controller.Declare(ENTITY.CONTEXT, 0, "Container", VISIBILITY.PUBLIC);
controller.Move(0, cnt, "Ctoto");
controller.Move(0, cnt, "Ftoto");
controller.Move(0, cnt, "Vtoto");
controller.Move(0, cnt, "Etoto");
controller.Move(0, cnt, "tata");
controller.Move(0, cnt, "tutu");
controller.Rename(cnt, "Ctoto", "Ctiti");
controller.Rename(cnt, "Ftoto", "Ftiti");
controller.Rename(cnt, "Vtoto", "Vtiti");
controller.Rename(cnt, "Etoto", "Etiti");
controller.Rename(cnt, "tata", "toto");
controller.Rename(cnt, "tutu", "tata");
List <Entity> ret = controller.GetEntitiesOfType(ENTITY.CONTEXT, cnt);
Assert.IsTrue(ret.Count == 1);
Assert.IsTrue(controller.GetEntitiesOfType(ENTITY.VARIABLE, cnt).Count == 1);
Assert.IsTrue(controller.GetEntitiesOfType(ENTITY.FUNCTION, cnt).Count == 1);
Assert.IsTrue(controller.GetEntitiesOfType(ENTITY.DATA_TYPE, cnt).Count == 3);
controller.Remove(cnt, "Ctiti");
controller.Remove(cnt, "Ftiti");
controller.Remove(cnt, "Vtiti");
controller.Remove(cnt, "Etiti");
controller.Remove(cnt, "toto");
controller.Remove(cnt, "tata");
}
