private static void Serialise(SlangAssembly assembly, int entrypoint)
{
var targetAssembly = (SlangAssembly)Evaluate(assembly, entrypoint).Value;
using (var file = File.Create(".\\output.slbin"))
{
using (var writer = new BinaryWriter(file))
{
writer.Write(1);
//writer.Write(targetAssembly.EntryPoint);
writer.Write(targetAssembly.Program.Length);
foreach (var op in targetAssembly.Program)
{
writer.Write((int)op.Type);
writer.Write(op.Operands.Length);
foreach (var operand in op.Operands)
{
writer.Write(operand);
}
}
}
}
}
static void Main(string[] args)
{
var program = new Op[]
{
// 0
new Op
{
Type = OpType.Type,
Operands = new[] { 0 }
},
// 1
new Op
{
Type = OpType.Literal,
Operands = new[] { 0, 1234 }
},
// 2
new Op
{
Type = OpType.Add,
Operands = new[] { 1, 1 }
},
// 3
new Op
{
Type = OpType.MakeExpression,
Operands = new[] { 2 }
},
// 4
new Op
{
Type = OpType.InvokeExternal,
Operands = new[] { 1, 3 }
}
};
var assembly = new SlangAssembly(program, null);
Console.WriteLine(Evaluate(assembly, 4));
Console.ReadLine();
}
private static SlangValue Evaluate(SlangAssembly assembly, int entryPoint)
{
var op = assembly.Program[entryPoint];
switch (op.Type)
{
case OpType.Type:
return(new SlangValue
{
Type = SlangType.TypeDeclaration,
Value = Int32
});
case OpType.Literal:
return(new SlangValue
{
Type = (SlangType)Evaluate(assembly, op.Operands[0]).Value,
Value = op.Operands[1]
});
case OpType.MakeExpression:
return(new SlangValue
{
Type = SlangType.ExpressionTree,
Value = expressionBuilder.Build(assembly, op.Operands[0])
});
case OpType.Add:
var left = Evaluate(assembly, op.Operands[0]);
var right = Evaluate(assembly, op.Operands[1]);
return(new SlangValue
{
Type = left.Type,
Value = (int)left.Value + (int)right.Value
});
case OpType.InvokeExternal:
int result = 0;
switch (op.Operands[0])
{
case 0:
var expression = (SlangExpression)Evaluate(assembly, op.Operands[1]).Value;
//return Evaluate(expression.Program, expression.EntryPoint);
break;
case 1:
WriteToConsole(assembly, op.Operands[1]);
break;
case 2:
Serialise(assembly, op.Operands[1]);
break;
case 3:
return(new SlangValue
{
Type = SlangType.ExpressionTree,
Value = Deserialise()
});
default:
result = 1;
break;
}
return(new SlangValue
{
Type = Int32,
Value = result
});
}
throw new NotSupportedException();
}
private static void WriteToConsole(SlangAssembly assembly, int entryPoint)
{
Console.WriteLine(" > " + Evaluate(assembly, entryPoint).Value);
}