Start implementing converting AST to Core

bacek · Dec 7, 2008 · 5107995 · 5107995
1 parent 3f3ec66
commit 5107995
Showing 1 changed file with 13 additions and 2 deletions.
diff --git a/XQuery/Core.pm b/XQuery/Core.pm
@@ -17,8 +17,19 @@ sub create_module($module) {
     create_expr($module<MainModule><QueryBody><Expr>);
 };
 
-sub create_expr($expr) {
-    XQuery::Core::Node.new();
+sub create_expr($expr, $pos = 0) {
+    return unless $expr<ExprSingle>[$pos];
+
+    my $expr_single = $expr<ExprSingle>[$pos];
+
+    # recursivly process ExprSingle.
+    create_expr_single($expr_single, create_expr($expr, ++$pos));
+};
+
+sub create_expr_single($ast, $left) {
+    XQuery::Core::FLWORExpr.new(
+        left => $left
+    );
 };
 
 # vim: ft=perl6