private SLE.Expression Generate(MJCP.Expression Input)
{
Init ();
SLE.Expression result = null;
if (Input == null)
return null;
List<SLE.Expression> arguments;
List<SLE.Expression> initializers;
SLE.Expression right;
MJCP.BinaryOperatorExpression binOp;
switch (Input.Opcode) {
case MJCP.Expression.Operation.SyntaxError :
return null;//sample show null
case MJCP.Expression.Operation.@this :
//TODO this must not be a variable!
if (withinFunction > 1)//if this is call inside a function
result = SLE.Expression.Read (builder.CreateVariable (GetSymbolId(thisIdent), SLE.Variable.VariableKind.Global, null));
else {//if this is call ouside of function
arguments = new List<SLE.Expression> ();
arguments.Add (SLE.Expression.CodeContext ());
result = SLE.Expression.Call (typeof (MJR.JSOps).GetMethod ("GetGlobalObject"), arguments.ToArray ());
}
break;
case MJCP.Expression.Operation.@false :
result = SLE.Expression.False ();
break;
case MJCP.Expression.Operation.@true :
result = SLE.Expression.True ();
break;
case MJCP.Expression.Operation.Identifier :
Identifier id = ((MJCP.IdentifierExpression)Input).ID;//TODO make a tree of variable and allow to get it
result = SLE.Expression.Read (builder.CreateVariable (GetSymbolId(id), SLE.Variable.VariableKind.Global, null));
break;
case MJCP.Expression.Operation.NumericLiteral :
double val = 0;
try {
val = Double.Parse (((MJCP.NumericLiteralExpression)Input).Spelling);
result = SLE.Expression.Constant (val);
} catch {
//TODO
}
break;
case MJCP.Expression.Operation.HexLiteral :
result = SLE.Expression.Constant (((MJCP.HexLiteralExpression)Input).Value);
break;
case MJCP.Expression.Operation.OctalLiteral :
result = SLE.Expression.Constant (((MJCP.OctalLiteralExpression)Input).Value);
break;
case MJCP.Expression.Operation.RegularExpressionLiteral :
//TODO
throw new NotImplementedException ();
case MJCP.Expression.Operation.StringLiteral :
result = SLE.Expression.Constant (((MJCP.StringLiteralExpression)Input).Value);
break;
case MJCP.Expression.Operation.ArrayLiteral :
arguments = new List<SLE.Expression> ();
arguments.Add (SLE.Expression.CodeContext ());
initializers =new List<SLE.Expression> ();
foreach (MJCP.ExpressionListElement element in ((MJCP.ArrayLiteralExpression)Input).Elements)
initializers.Add (Generate (element.Value));
arguments.Add (SLE.Expression.NewArray (typeof (object []), initializers));
result = SLE.Expression.Call (typeof (CompilerHelpers).GetMethod ("ConstructArrayFromArrayLiteral"), arguments.ToArray ());
break;
case MJCP.Expression.Operation.ObjectLiteral :
arguments = new List<SLE.Expression> ();
arguments.Add (SLE.Expression.CodeContext ());
initializers = new List<SLE.Expression> ();
List<SLE.Expression> initializers2 = new List<SLE.Expression> ();
foreach (MJCP.ObjectLiteralElement element in ((MJCP.ObjectLiteralExpression)Input).Elements) {
initializers.Add (Generate (element.Name));
initializers2.Add (Generate (element.Value));
}
arguments.Add (SLE.Expression.NewArray (typeof (object[]), initializers));
arguments.Add (SLE.Expression.NewArray (typeof (object[]), initializers2));
result = SLE.Expression.Call (typeof (CompilerHelpers).GetMethod ("ConstructObjectFromLiteral"), arguments.ToArray ());
break;
case MJCP.Expression.Operation.Parenthesized :
result = Generate (((MJCP.UnaryOperatorExpression)Input).Operand);
break;
case MJCP.Expression.Operation.Invocation :
arguments = new List<SLE.Expression> ();
//TODO fill arguments
//args = new List<SLE.Arg> ();
foreach (MJCP.ExpressionListElement element in ((MJCP.InvocationExpression)Input).Arguments.Arguments)
arguments.Add (Generate (element.Value));
SLE.Expression instance = Generate (((MJCP.InvocationExpression)Input).Target);
//(Expression instance,) MethodInfo method, params Expression[] arguments
//TODO MethodInfo!
result = SLE.Expression.Call (instance, null, arguments.ToArray ());
break;
case MJCP.Expression.Operation.Subscript :
arguments = new List<SLE.Expression> ();
//TODO fill arguments and type result
result = SLE.Expression.Action.Operator (MSO.GetItem, null, arguments.ToArray());
break;
case MJCP.Expression.Operation.Qualified :
arguments = new List<SLE.Expression> ();
//TODO fill arguments and type result
result = SLE.Expression.Action.GetMember (GetSymbolId (((MJCP.QualifiedExpression)Input).Qualifier), null, arguments.ToArray());
break;
case MJCP.Expression.Operation.@new :
SLE.Expression constructor = Generate (((MJCP.InvocationExpression)Input).Target);
arguments = new List<SLE.Expression> ();
foreach (MJCP.ExpressionListElement element in ((MJCP.InvocationExpression)Input).Arguments.Arguments)
arguments.Add (Generate(element.Value));
//todo fill the type result
result = SLE.Expression.Action.Create (null, arguments.ToArray());
break;
case MJCP.Expression.Operation.Function :
result = GenerateFunction (((MJCP.FunctionExpression)Input).Function);
//the statement and expression is not the same
result = SLE.Expression.Assign (GetVar (((MJCP.FunctionExpression)Input).Function.Name), result);
break;
case MJCP.Expression.Operation.delete :
arguments = new List<SLE.Expression> ();
//TODO fill arguments
result = SLE.Expression.Call (typeof (CompilerHelpers).GetMethod ("Delete"), arguments.ToArray ());
break;
case MJCP.Expression.Operation.@void :
arguments = new List<SLE.Expression> ();
//TODO fill arguments
result = SLE.Expression.Call (typeof (CompilerHelpers).GetMethod ("Void"), arguments.ToArray ());
break;
case MJCP.Expression.Operation.@typeof :
arguments = new List<SLE.Expression> ();
//TODO fill arguments
result = SLE.Expression.Call (typeof (CompilerHelpers).GetMethod ("TypeOf"), arguments.ToArray ());
break;
case MJCP.Expression.Operation.PrefixPlusPlus :
//
break;
case MJCP.Expression.Operation.PrefixMinusMinus :
//
break;
case MJCP.Expression.Operation.PrefixPlus :
arguments = new List<SLE.Expression> ();
//TODO fill arguments
result = SLE.Expression.Call (typeof (CompilerHelpers).GetMethod ("Positive"), arguments.ToArray());
break;
case MJCP.Expression.Operation.PrefixMinus :
arguments = new List<SLE.Expression> ();
//TODO fill arguments
result = SLE.Expression.Call (typeof (CompilerHelpers).GetMethod ("Negate"), arguments.ToArray());
break;
case MJCP.Expression.Operation.Tilda :
arguments = new List<SLE.Expression> ();
//TODO fill arguments
result = SLE.Expression.Call (typeof (CompilerHelpers).GetMethod ("OnesComplement"), arguments.ToArray());
break;
case MJCP.Expression.Operation.Bang :
arguments = new List<SLE.Expression> ();
//TODO fill arguments
result = SLE.Expression.Call (typeof (CompilerHelpers).GetMethod ("Not"), arguments.ToArray());
break;
case MJCP.Expression.Operation.PostfixPlusPlus :
//TODO
break;
case MJCP.Expression.Operation.PostfixMinusMinus :
MJCP.UnaryOperatorExpression expr = (MJCP.UnaryOperatorExpression)Input;
//TODO
break;
case MJCP.Expression.Operation.Comma :
binOp = (MJCP.BinaryOperatorExpression)Input;
arguments = new List<SLE.Expression> ();
arguments.Add (Generate (binOp.Left));
arguments.Add (Generate (binOp.Right));
result = SLE.Expression.Comma (arguments);
break;
case MJCP.Expression.Operation.Equal :
binOp = (MJCP.BinaryOperatorExpression)Input;
result = GenerateBoundAssignment (binOp.Left, binOp.Right);
break;
case MJCP.Expression.Operation.StarEqual :
binOp = (MJCP.BinaryOperatorExpression)Input;
right = SLE.Expression.Multiply (Generate(binOp.Left), Generate(binOp.Right));
result = GenerateBoundAssignment (binOp.Left, right);
break;
case MJCP.Expression.Operation.DivideEqual :
binOp = (MJCP.BinaryOperatorExpression)Input;
right = SLE.Expression.Multiply (Generate(binOp.Left), Generate(binOp.Right));
result = GenerateBoundAssignment (binOp.Left, right);
break;
case MJCP.Expression.Operation.PercentEqual :
binOp = (MJCP.BinaryOperatorExpression)Input;
right = SLE.Expression.Modulo (Generate(binOp.Left), Generate(binOp.Right));
result = GenerateBoundAssignment (binOp.Left, right);
break;
case MJCP.Expression.Operation.PlusEqual :
binOp = (MJCP.BinaryOperatorExpression)Input;
right = SLE.Expression.Add (Generate(binOp.Left), Generate(binOp.Right));
result = GenerateBoundAssignment (binOp.Left, right);
break;
case MJCP.Expression.Operation.MinusEqual:
binOp = (MJCP.BinaryOperatorExpression)Input;
right = SLE.Expression.Subtract (Generate(binOp.Left), Generate(binOp.Right));
result = GenerateBoundAssignment (binOp.Left, right);
break;
case MJCP.Expression.Operation.LessLessEqual:
binOp = (MJCP.BinaryOperatorExpression)Input;
right = SLE.Expression.LeftShift (Generate(binOp.Left), Generate(binOp.Right));
result = GenerateBoundAssignment (binOp.Left, right);
break;
case MJCP.Expression.Operation.GreaterGreaterEqual:
binOp = (MJCP.BinaryOperatorExpression)Input;
right = SLE.Expression.RightShift (Generate(binOp.Left), Generate(binOp.Right));
result = GenerateBoundAssignment (binOp.Left, right);
break;
case MJCP.Expression.Operation.GreaterGreaterGreaterEqual:
binOp = (MJCP.BinaryOperatorExpression)Input;//TODO right shift unsigned
right = SLE.Expression.RightShift (Generate(binOp.Left), Generate(binOp.Right));
result = GenerateBoundAssignment (binOp.Left, right);
break;
case MJCP.Expression.Operation.AmpersandEqual:
binOp = (MJCP.BinaryOperatorExpression)Input;
right = SLE.Expression.And (Generate(binOp.Left), Generate(binOp.Right));
result = GenerateBoundAssignment (binOp.Left, right);
break;
case MJCP.Expression.Operation.CircumflexEqual:
binOp = (MJCP.BinaryOperatorExpression)Input;
right = SLE.Expression.ExclusiveOr (Generate(binOp.Left), Generate(binOp.Right));
result = GenerateBoundAssignment (binOp.Left, right);
break;
case MJCP.Expression.Operation.BarEqual:
binOp = (MJCP.BinaryOperatorExpression)Input;
right = SLE.Expression.Or (Generate(binOp.Left), Generate(binOp.Right));
result = GenerateBoundAssignment (binOp.Left, right);
break;
case MJCP.Expression.Operation.BarBar :
result = SLE.Expression.OrElse (Generate (((MJCP.BinaryOperatorExpression)Input).Left), Generate (((MJCP.BinaryOperatorExpression)Input).Right));
break;
case MJCP.Expression.Operation.AmpersandAmpersand :
result = SLE.Expression.AndAlso (Generate (((MJCP.BinaryOperatorExpression)Input).Left), Generate (((MJCP.BinaryOperatorExpression)Input).Right));
break;
case MJCP.Expression.Operation.Bar:
binOp = (MJCP.BinaryOperatorExpression)Input;
result = SLE.Expression.Or (Generate(binOp.Left), Generate(binOp.Right));
break;
case MJCP.Expression.Operation.Circumflex:
binOp = (MJCP.BinaryOperatorExpression)Input;
result = SLE.Expression.ExclusiveOr (Generate(binOp.Left), Generate(binOp.Right));
break;
case MJCP.Expression.Operation.Ampersand:
binOp = (MJCP.BinaryOperatorExpression)Input;
result = SLE.Expression.And (Generate(binOp.Left), Generate(binOp.Right));
break;
case MJCP.Expression.Operation.EqualEqual:
binOp = (MJCP.BinaryOperatorExpression)Input;
result = SLE.Expression.Equal (Generate(binOp.Left), Generate(binOp.Right));
break;
case MJCP.Expression.Operation.BangEqual:
binOp = (MJCP.BinaryOperatorExpression)Input;
result = SLE.Expression.NotEqual (Generate(binOp.Left), Generate(binOp.Right));
break;
case MJCP.Expression.Operation.EqualEqualEqual:
arguments = new List<SLE.Expression> ();
//TODO fill arguments
result = SLE.Expression.Call (typeof (CompilerHelpers).GetMethod ("Is"), arguments.ToArray());
break;
case MJCP.Expression.Operation.BangEqualEqual:
arguments = new List<SLE.Expression> ();
//TODO fill arguments
result = SLE.Expression.Call (typeof (CompilerHelpers).GetMethod ("IsNot"), arguments.ToArray());
break;
case MJCP.Expression.Operation.Less:
binOp = (MJCP.BinaryOperatorExpression)Input;
result = SLE.Expression.LessThan (Generate(binOp.Left), Generate(binOp.Right));
break;
case MJCP.Expression.Operation.Greater:
binOp = (MJCP.BinaryOperatorExpression)Input;
result = SLE.Expression.GreaterThan (Generate(binOp.Left), Generate(binOp.Right));
break;
case MJCP.Expression.Operation.LessEqual:
binOp = (MJCP.BinaryOperatorExpression)Input;
result = SLE.Expression.LessThanEquals (Generate(binOp.Left), Generate(binOp.Right));
break;
case MJCP.Expression.Operation.GreaterEqual:
binOp = (MJCP.BinaryOperatorExpression)Input;
result = SLE.Expression.GreaterThanEquals (Generate(binOp.Left), Generate(binOp.Right));
break;
case MJCP.Expression.Operation.instanceof:
arguments = new List<SLE.Expression> ();
//TODO fill arguments
result = SLE.Expression.Call (typeof (CompilerHelpers).GetMethod ("InstanceOf"), arguments.ToArray());
break;
case MJCP.Expression.Operation.@in:
arguments = new List<SLE.Expression> ();
//TODO fill arguments
result = SLE.Expression.Call (typeof (CompilerHelpers).GetMethod ("In"), arguments.ToArray());
break;
case MJCP.Expression.Operation.LessLess:
binOp = (MJCP.BinaryOperatorExpression)Input;
result = SLE.Expression.LeftShift (Generate(binOp.Left), Generate(binOp.Right));
break;
case MJCP.Expression.Operation.GreaterGreater:
binOp = (MJCP.BinaryOperatorExpression)Input;
result = SLE.Expression.RightShift (Generate(binOp.Left), Generate(binOp.Right));
break;
case MJCP.Expression.Operation.GreaterGreaterGreater:
arguments = new List<SLE.Expression> ();
arguments.Add (Generate (((MJCP.BinaryOperatorExpression)Input).Left));
arguments.Add (Generate (((MJCP.BinaryOperatorExpression)Input).Right));
//TODO type result
result = SLE.Expression.Action.Operator (MSO.RightShiftUnsigned, null, arguments.ToArray());
break;
case MJCP.Expression.Operation.Plus:
binOp = (MJCP.BinaryOperatorExpression)Input;
result = SLE.Expression.Add (Generate(binOp.Left), Generate(binOp.Right));
break;
case MJCP.Expression.Operation.Minus:
binOp = (MJCP.BinaryOperatorExpression)Input;
result = SLE.Expression.Subtract (Generate(binOp.Left), Generate(binOp.Right));
break;
case MJCP.Expression.Operation.Star:
binOp = (MJCP.BinaryOperatorExpression)Input;
result = SLE.Expression.Multiply (Generate(binOp.Left), Generate(binOp.Right));
break;
case MJCP.Expression.Operation.Divide:
binOp = (MJCP.BinaryOperatorExpression)Input;
result = SLE.Expression.Divide (Generate(binOp.Left), Generate(binOp.Right));
break;
case MJCP.Expression.Operation.Percent:
binOp = (MJCP.BinaryOperatorExpression)Input;
result = SLE.Expression.Modulo (Generate(binOp.Left), Generate(binOp.Right));
break;
case MJCP.Expression.Operation.Question:
result = SLE.Expression.Condition (Generate (((MJCP.TernaryOperatorExpression)Input).First),
Generate (((MJCP.TernaryOperatorExpression)Input).Second),
Generate (((MJCP.TernaryOperatorExpression)Input).Third));
break;
case MJCP.Expression.Operation.@null:
result = SLE.Expression.Null ();
break;
}
//seems to have disappear now
//result.SetLoc (GetRowanTextSpan (Input.Location));
return result;
}