public object Run(params object[] parameters)
{
var envStack = new EnvironmentStack();
envStack.PushNew(); // Global env
envStack.Set(Symbol.fromString("sys:args"), new Variable(CliToVm(parameters)));
int ip = 0;
var valueStack = new ValueStack();
var callStack = new CallStack();
for (var current = Statements[ip]; !(current is EndStatement); current = Statements[ip])
{
//System.Diagnostics.Debug.Print("0x" + ip.ToString("x4") + ": " + current);
current.Execute(ref ip, valueStack, envStack, callStack);
}
if (envStack.Count() == 0) throw new exceptions.RuntimeException("Bad program: Global environment deleted!");
if (envStack.Count() > 1) throw new exceptions.RuntimeException("Bad program: Environment stack not cleaned up");
if (callStack.Count() > 1) throw new exceptions.RuntimeException("Bad program: Call stack not cleaned up");
if (valueStack.Count() == 0) throw new exceptions.RuntimeException("Bad program: Value stack empty after running");
if (valueStack.Count() > 1) throw new exceptions.RuntimeException("Bad program: Value stack not cleaned up");
return valueStack.Pop();
}
internal override void Execute(ref int ip, ValueStack valueStack, EnvironmentStack envStack, CallStack callStack)
{
if (callStack.GetLastNumberOfParameters() != NumberOfParameters)
throw new exceptions.RuntimeException(Symbol + ": Invalid parameter count");
envStack.PushNew();
ip += Length;
}
internal override void Execute(ref int ip, ValueStack valueStack, EnvironmentStack envStack, CallStack callStack)
{
int provided = callStack.GetLastNumberOfParameters();
if (provided < NumberOfParameters - 1) // -1 as there may be an empty list as rest parameter
throw new exceptions.RuntimeException(Symbol + ": Invalid parameter count");
object restParameter = Nil.GetInstance();
for (int i = 0; i < NumberOfParametersToSkip; ++i) skipStack.Push(valueStack.Pop());
int numberOfValuesForRestParameter = 1 + provided - NumberOfParameters;
for (int i = 0; i < numberOfValuesForRestParameter; ++i) restParameter = new Pair(valueStack.Pop(), restParameter);
valueStack.Push(restParameter);
for (int i = 0; i < NumberOfParametersToSkip; ++i) valueStack.Push(skipStack.Pop());
envStack.PushNew();
ip += Length;
}