automated migration from XML-based XBGF to Rascal-based

shared/rascal/src/export/BNF.rsc

@@ -28,8 +28,8 @@ public str pp(terminal(str s)) = "\"<s>\"";
 public str pp(nonterminal(str s)) = "<s>";
 public str pp(selectable(s,e)) = "<s>::<ppost(e)>";
 public str pp(sequence(L)) = "(<pp(L)>)";
-public str pp(choice(L)) = "(<mapjoin(pp,es," | ")>)";
-public str pp(allof(L)) = "(<mapjoin(pp,es," & ")>)";
+public str pp(choice(L)) = "(<mapjoin(pp,L," | ")>)";
+public str pp(allof(L)) = "(<mapjoin(pp,L," & ")>)";
 public str pp(marked(e)) = "\<<pp(e)>\>";
 public str pp(optional(e)) = "<pppre(e)>?";
 public str pp(not(e)) = "¬<ppost(e)>";

shared/rascal/src/metarascal/XBGF2Rascal.rsc

@@ -0,0 +1,34 @@
+@contributor{Vadim Zaytsev - vadim@grammarware.net - SWAT, CWI}
+module metarascal::XBGF2Rascal
+
+import String;
+import IO;
+import io::ReadBGF;
+import io::ReadXBGF;
+import export::XBNF;
+
+public void main(list[str] args) = main(|cwd:///|+args[0]);
+
+public void main(loc x)
+{
+	xbgf = readXBGF(x);
+	writeFile(//|cwd:///Transformation.rsc|,
+	|project://slps/src/metarascal/Transformation.rsc|,
+	"@contributor{XBGF2Rascal}
+	'module Transformation // feel free to change that after moving the file
+	'
+	'import syntax::BGF;
+	'import syntax::XBGF;
+	'import transform::XBGF;
+	'import diff::GDT;
+	'
+	'BGFGrammar doTrafo(XBGFSequence x, BGFGrammar g)
+	'	= transform([<for(step <- xbgf){>
+	'		// <ppx(step)>
+	'		<step>,<}>
+	'		bypass()
+	'	],g);
+	'");
+}
+
+public void tst() = main(|home:///projects/slps/topics/island/csharp-ecma-334-1/adapt.using.xbgf|);