grammar lutte.testDSL.DSL with org.eclipse.xtext.xbase.annotations.XbaseWithAnnotations

generate dSL "htt_p://www.testDSL.lutte/DSL"
import "htt_p://www.eclipse.org/xtext/xbase/Xbase" as xbase

Model:
	imports = XImportDeclaration?
	greetings+=Greeting*;
	
Greeting:
	annotations += XAnnotation*
	'Hello' name=ID '!'
	body = MyBlockExpression
	;
	
MyBlockExpression returns xbase::XBlockExpression:
	{MyBlockExpression}
	'{'
		(expressions+=MyExpressionInsideBlock(';')?)*
	'}'
;

MyExpressionInsideBlock returns xbase::XExpression:
	XExpressionInsideBlock|MyLog
;

MyLog returns xbase::XExpression:
	{MyLog}
	'Log :' '('log += XStringLiteral*')'  <--- Here I would like to enter expressions
;

Hello Lutte!
{
  val echo = new StringBuilder ('Echo')
  Log ('I am logging: ', echo.toString) 
}

MyLog returns xbase::XExpression:
	{MyLog}
	'Log :' '('log = XExpression')' 
;

Hello Lutte!
{
  val test = new String("Hello")
  Log : (test.length)
  return ""
}

...
override protected doInternalToJavaStatement (XExpression expr, ITreeAppendable it, boolean isReferenced) {
  switch (expr)
  {
...
     MyLog : {
	newLine.append ('''System.out.println ("logging in "+MN+" -> "''')
	super.doInternalToJavaStatement(expr.log, it, true)
	append(''');''')
    }
....

java.lang.IllegalStateException: name may not be null
	at org.eclipse.xtext.xbase.compiler.AbstractXbaseCompiler.getFavoriteVariableName(AbstractXbaseCompiler.java:472)
	at org.eclipse.xtext.xbase.compiler.AbstractXbaseCompiler.declareFreshLocalVariable(AbstractXbaseCompiler.java:533)
	at org.eclipse.xtext.xbase.compiler.FeatureCallCompiler._toJavaStatement(FeatureCallCompiler.java:176)
	at org.eclipse.xtext.xbase.compiler.FeatureCallCompiler._toJavaStatement(FeatureCallCompiler.java:251)

class MyDslCompiler extends XbaseCompiler {
	@Inject extension JvmTypesBuilder
	
	override protected doInternalToJavaStatement (XExpression expr, ITreeAppendable it, boolean isReferenced) {
		switch (expr)
		{
			MyBlockExpression:
			{
				val greeting = EcoreUtil2::getContainerOfType(expr, Greeting)
				if (greeting != null)
				{
					newLine.append('''final String MN = "«greeting.name»";''')
					newLine.append('''System.out.println("entering <«greeting.name»>");''')
				}
				super.doInternalToJavaStatement(expr as XBlockExpression, it, isReferenced)
			}
			MyLog : {
				_toJavaStatement(expr, it, isReferenced)
			}
			default : super.doInternalToJavaStatement(expr, it, isReferenced)
		}
	}

	def void _toJavaStatement(MyLog expr, ITreeAppendable b, boolean isReferenced) {
		val it = b.trace(expr, false);
		if (expr.getExpressions().isEmpty())
			return;
		if (isReferenced)
			declareSyntheticVariable(expr, it);
		newLine().append("if (1==1) {//trace is enabled")
		increaseIndentation();
		openPseudoScope();
		val expressions = expr.getExpressions();
		for (ex:expressions)
		{
			if (ex == expressions.last)
			{
				internalMyLogToJavaStatement(ex, it);
				if (isReferenced) {
					newLine().append(getVarName(expr, it)).append(" = ");
					internalToConvertedExpression(ex, it, getType(expr));
					append(";");
				}
			} else
			{
				internalMyLogToJavaStatement(ex, it)
			}
		}
		newLine.append ('''System.out.println ("logging in "+MN+" -> "«FOR varName :expressions.map[ex|ex.getVarName(it)]»+«varName»«ENDFOR»);''')
		it.closeScope();
		it.decreaseIndentation()
		newLine().append("}");
	}
	
	def void internalMyLogToJavaStatement (XExpression expr, ITreeAppendable it)
	{
		switch (expr)
		{
			XStringLiteral : declareFreshLocalVariable(expr, it, [append('''«_toJavaExpression(expr, it)»''')])
			XAbstractFeatureCall:{
				declareFreshLocalVariable(expr, it, [append('''«featureCalltoJavaExpression(expr, it, true)»''')])
			}
			default : internalToJavaStatement(expr, it, true)
		}
	}
}

...
XPrimaryExpression returns xbase::XExpression:
	XConstructorCall |
	XBlockExpression |
	XSwitchExpression |
	XFeatureCall |
	XLiteral |
	XIfExpression |
	XForLoopExpression |
	XWhileExpression |
	XDoWhileExpression |
	XThrowExpression |
	XReturnExpression |
	XTryCatchFinallyExpression |
	XParenthesizedExpression|
	MyLog;
...