public static void SetupMacroArgs(ConsNode definedArgs, FunctionInvocation call, Scope newScope)
{
int i = 1;
//todo: verify arg list, only identifiers allowed
//setup local args
for (int argIndex = 0; argIndex < definedArgs.Args.Count; argIndex++)
{
var arg = definedArgs.Args[argIndex] as SymbolNode;
string argName = arg.Name;
if (argName == "&optional") {}
else if (argName == "&rest")
{
argIndex++;
var restArg = definedArgs.Args[argIndex] as SymbolNode;
string restName = restArg.Name;
ConsNode restCons = NewCons(call.StackFrame.Root);
restCons.Args = call.Args.Skip(i).ToList();
newScope.PushSymbol(restName).Value = restCons;
}
else
{
Symbol symbol = newScope.PushSymbol(argName);
object bodyArg = call.Args[i];
symbol.Value = bodyArg;
}
i++;
}
}
public StackFrame(StackFrame previousStackFrame, ConsNode cons)
{
PreviousStackFrame = previousStackFrame;
Cons = cons;
if (previousStackFrame != null)
{
Root = previousStackFrame.Root;
Scope = previousStackFrame.Scope;
}
}
public Scope(Scope previousScope)
{
Symbols = new Dictionary<string, Symbol>(10);
PreviousScope = previousScope;
}
public static void SetupArgs(ConsNode definedArgs, FunctionInvocation call, Scope newScope)
{
int i = 1;
//todo: verify arg list, only identifiers allowed
//setup local args
for (int argIndex = 0; argIndex < definedArgs.Args.Count; argIndex ++)
{
var arg = definedArgs.Args[argIndex] as SymbolNode;
string argName = arg.Name;
if (argName == "&optional") {}
else if (argName == "&rest")
{
argIndex ++;
var restArg = definedArgs.Args[argIndex] as SymbolNode;
string restName = restArg.Name;
ConsNode restCons = NewCons(call.StackFrame.Root);
restCons.Args = call.EvalArgs(i);
newScope.PushSymbol(restName).Value = restCons;
}
else if (argName[0] == '*')
{
//ref symbol
var argId = call.Args[i] as SymbolNode;
argName = argName.Substring(1);
if (argId == null)
{
throw new Exception(
string.Format("Argument '{0}' is defined as a pointer, but passed as a value", argName));
}
Symbol sourceVar = argId.GetSymbol(call.StackFrame);
newScope.DeclareRef(argName, sourceVar);
}
else if (argName[0] == '!')
{
argName = argName.Substring(1);
newScope.PushSymbol(argName);
var bodyArg = call.Args[i] as ValueNode;
newScope.SetSymbolValue(argName, bodyCall => bodyArg.Eval(call.StackFrame));
}
else if (argName[0] == '#')
{
argName = argName.Substring(1);
Symbol symbol = newScope.PushSymbol(argName);
object bodyArg = call.Args[i];
symbol.Value = bodyArg;
}
else if (argName[0] == ':')
{
var argId = call.Args[i] as SymbolNode;
argName = argName.Substring(1);
if (argId == null)
{
throw new Exception(
string.Format("Argument '{0}' is defined as a verbatim, but passed as a value", argName));
}
if (argId.Name != argName)
{
throw new Exception(string.Format("Argument '{0}' is defined as a verbatim, but passed as {1}",
argName, argId.Name));
}
}
else if (argName[0] == '@')
{
var argId = call.Args[i] as SymbolNode;
object argValue = argId.Name;
argName = argName.Substring(1);
newScope.PushSymbol(argName).Value = argValue;
}
else
{
//normal var
object argValue = Eval(call.StackFrame, call.Args[i]);
newScope.PushSymbol(argName).Value = argValue;
}
i++;
}
//for (int j = i; j < call.Args.Count; j++)
//{
// ValueNode node = call.Args[j];
// string argName = string.Format("arg{0}", j);
// object argValue = node.GetValue(stack);
// stack.PushSymbol(argName);
// stack.Scope.SetSymbolValue(argName, argValue);
//}
}
