Compiler rewritten by nqprx can almost comiple now.

But I don't know how to adjust the 'quote_EXPR' method. So none of the tests
will pass right now.

cardinal.pir

@@ -34,58 +34,43 @@ object.
 .sub 'onload' :anon :load :init
     load_bytecode 'HLL.pbc'
     .local pmc hllns, parrotns, imports
-    hllns    = get_hll_namespace
+    hllns = get_hll_namespace
     parrotns = get_root_namespace ['parrot']
-    imports  = split ' ', 'PAST PCT HLL Regex Hash'
+    imports = split ' ', 'PAST PCT HLL Regex Hash'
     parrotns.'export_to'(hllns, imports)
 .end
 
 .include 'src/gen_grammar.pir'
 .include 'src/parser/quote_expression.pir'
 .include 'src/gen_actions.pir'
+.include 'src/gen_compiler.pir'
 .namespace [ 'cardinal';'Compiler' ]
 
 #no caridinal_group found on my machine
 #.loadlib 'cardinal_group'
 
-=begin comment
-
 .sub 'onload' :anon :load :init
-    .local pmc cardinalmeta, compilerclass, compiler
-    cardinalmeta = get_hll_global ['CardinalObject'], '!CARDINALMETA'
-    compilerclass = cardinalmeta.'new_class'('cardinal::Compiler', 'parent'=>'PCT::HLLCompiler')
-
     $P2 = new 'CardinalString'
     $P2 = ""
     set_hll_global '$,', $P2
 
-    compiler = compilerclass.'new'()
-    compiler.'language'('cardinal')
-    $P0 = get_hll_namespace ['cardinal';'Grammar']
-    compiler.'parsegrammar'($P0)
-    $P0 = get_hll_namespace ['cardinal';'Grammar';'Actions']
-    compiler.'parseactions'($P0)
-
-    compiler.'commandline_banner'("Cardinal - Ruby for the Parrot VM\n\n")
-    compiler.'commandline_prompt'('crb(main):001:0> ')
-
-     ##  create a list of END blocks to be run
+    ##  create a list of END blocks to be run
     $P0 = new 'CardinalArray'
     set_hll_global ['cardinal'], '@?END_BLOCKS', $P0
 
     $P0 = new 'CardinalArray'
-    set_hll_global ['cardinal';'Grammar';'Actions'], '@?BLOCK', $P0
+    set_hll_global ['cardinal';'Actions'], '@?BLOCK', $P0
 
     $P1 = get_hll_global ['PAST';'Compiler'], '%valflags'
     $P1['CardinalString'] = 'e'
 .end
 
- =item main(args :slurpy)  :main
+=item main(args :slurpy)  :main
 
 Start compilation by passing any command line C<args>
 to the cardinal compiler.
 
- =cut
+=cut
 
 .sub 'main' :main
     .param pmc args_str
@@ -141,8 +126,6 @@ to the cardinal compiler.
     .return (retval)
 .end
 
-=end comment
-
 =back
 
 =cut

src/compiler.pm

@@ -4,4 +4,8 @@ INIT {
     cardinal::Compiler.language('cardinal');
     cardinal::Compiler.parsegrammar(cardinal::Grammar);
     cardinal::Compiler.parseactions(cardinal::Actions);
+    cardinal::Compiler.commandline_banner("Cardinal - Ruby for the Parrot VM\n\n");
+    cardinal::Compiler.commandline_prompt('crb(main):001:0> ');
 }
+
+# vim: sw=4 ts=4 ft=perl6 expandtab

src/parser/quote_expression.pir

@@ -26,7 +26,7 @@
 .end
 
 
-.sub 'quote_expression' :method
+.sub 'quote_EXPR' :method
     .param string flags
     .param pmc options         :slurpy :named
 
@@ -175,9 +175,9 @@
     pos += stoplen
     mob.'to'(pos)
     if null action goto succeed_done
-    $I0 = can action, 'quote_expression'
+    $I0 = can action, 'quote_EXPR'
     unless $I0 goto succeed_done
-    action.'quote_expression'(mob, key)
+    action.'quote_EXPR'(mob, key)
   succeed_done:
     .return (mob)
   fail: