Author: bernhard
Date: Thu Feb 2 11:18:27 2006
New Revision: 11406
Modified:
trunk/languages/bc/grammar/antlr_3/antlr_past2pir_past.g
Log:
Parrot bc: Quote '$' in ANTLR3 actions with '\$' instead of
the unwieldly \u0024.
Modified: trunk/languages/bc/grammar/antlr_3/antlr_past2pir_past.g
==============================================================================
--- trunk/languages/bc/grammar/antlr_3/antlr_past2pir_past.g (original)
+++ trunk/languages/bc/grammar/antlr_3/antlr_past2pir_past.g Thu Feb 2
11:18:27 2006
@@ -43,8 +43,8 @@ gen_pir_past
+ " ostbuilder = ostgrammar.apply(stmts)\n"
+ " .local pmc ost\n"
+ " ost = ostbuilder.get('result')\n"
- + " \u0024I0 = defined ost\n"
- + " unless \u0024I0 goto err_no_ost # if OST fails stop\n"
+ + " \$I0 = defined ost\n"
+ + " unless \$I0 goto err_no_ost # if OST fails stop\n"
+ "\n"
+ " # Compile the OST down to PIR\n"
+ " .local string pir_tg_source\n"
@@ -94,55 +94,55 @@ gen_pir_past
+ " .local pmc filehandle\n"
+ " filehandle = open filename, '<'\n"
+ " unless filehandle goto err_no_file\n"
- + " \u0024S1 = read filehandle, 65535\n"
+ + " \$S1 = read filehandle, 65535\n"
+ " close filehandle\n"
- + " .return (\u0024S1)\n"
+ + " .return (\$S1)\n"
+ " err_no_file:\n"
+ " print 'Unable to open file: '\n"
+ " print filename\n"
+ " end\n"
+ ".end\n";
String pirDummy
- = " \u0024P10 = new 'PAST::Val' \n"
- + " \u0024P10.set_node( '1', 0, '1' ) \n"
- + " \u0024P10.valtype( 'num' ) \n"
- + " \u0024P20 = new 'PAST::Exp' \n"
- + " \u0024P21 = new PerlArray \n"
- + " push \u0024P21, \u0024P10 \n"
- + " \u0024P20.set_node('1', 1, \u0024P21) \n"
- + " \u0024P30 = new 'PAST::Op' \n"
- + " \u0024P31 = new PerlArray \n"
- + " push \u0024P31, \u0024P20 \n"
- + " \u0024P30.set_node('1', 1, 'print' ,\u0024P31) \n"
- + " \u0024P40 = new 'PAST::Exp' \n"
- + " \u0024P41 = new PerlArray \n"
- + " push \u0024P41, \u0024P30 \n"
- + " \u0024P40.set_node('1', 1, \u0024P41) \n"
- + " \u0024P50 = new 'PAST::Stmt' \n"
- + " \u0024P51 = new PerlArray \n"
- + " push \u0024P51, \u0024P40 \n"
- + " \u0024P50.set_node('1', 1 ,\u0024P51) \n"
- + " push stmts_children, \u0024P50 \n"
- + " \u0024P60 = new 'PAST::Val' \n"
- + " \u0024P60.set_node( '1', 0, '\\n' ) \n"
- + " \u0024P60.valtype( 'strqq' ) \n"
- + " \u0024P70 = new 'PAST::Exp' \n"
- + " \u0024P71 = new PerlArray \n"
- + " push \u0024P71, \u0024P60 \n"
- + " \u0024P70.set_node('1', 1, \u0024P71) \n"
- + " \u0024P80 = new 'PAST::Op' \n"
- + " \u0024P81 = new PerlArray \n"
- + " push \u0024P81, \u0024P70 \n"
- + " \u0024P80.set_node('1', 1, 'print' ,\u0024P81) \n"
- + " \u0024P90 = new 'PAST::Exp' \n"
- + " \u0024P91 = new PerlArray \n"
- + " push \u0024P91, \u0024P80 \n"
- + " \u0024P90.set_node('1', 1, \u0024P91) \n"
- + " \u0024P100 = new 'PAST::Stmt' \n"
- + " \u0024P101 = new PerlArray \n"
- + " push \u0024P101, \u0024P90 \n"
- + " \u0024P100.set_node('1', 1 ,\u0024P101) \n"
- + " push stmts_children, \u0024P100 \n";
+ = " \$P10 = new 'PAST::Val' \n"
+ + " \$P10.set_node( '1', 0, '1' ) \n"
+ + " \$P10.valtype( 'num' ) \n"
+ + " \$P20 = new 'PAST::Exp' \n"
+ + " \$P21 = new PerlArray \n"
+ + " push \$P21, \$P10 \n"
+ + " \$P20.set_node('1', 1, \$P21) \n"
+ + " \$P30 = new 'PAST::Op' \n"
+ + " \$P31 = new PerlArray \n"
+ + " push \$P31, \$P20 \n"
+ + " \$P30.set_node('1', 1, 'print' ,\$P31) \n"
+ + " \$P40 = new 'PAST::Exp' \n"
+ + " \$P41 = new PerlArray \n"
+ + " push \$P41, \$P30 \n"
+ + " \$P40.set_node('1', 1, \$P41) \n"
+ + " \$P50 = new 'PAST::Stmt' \n"
+ + " \$P51 = new PerlArray \n"
+ + " push \$P51, \$P40 \n"
+ + " \$P50.set_node('1', 1 ,\$P51) \n"
+ + " push stmts_children, \$P50 \n"
+ + " \$P60 = new 'PAST::Val' \n"
+ + " \$P60.set_node( '1', 0, '\\n' ) \n"
+ + " \$P60.valtype( 'strqq' ) \n"
+ + " \$P70 = new 'PAST::Exp' \n"
+ + " \$P71 = new PerlArray \n"
+ + " push \$P71, \$P60 \n"
+ + " \$P70.set_node('1', 1, \$P71) \n"
+ + " \$P80 = new 'PAST::Op' \n"
+ + " \$P81 = new PerlArray \n"
+ + " push \$P81, \$P70 \n"
+ + " \$P80.set_node('1', 1, 'print' ,\$P81) \n"
+ + " \$P90 = new 'PAST::Exp' \n"
+ + " \$P91 = new PerlArray \n"
+ + " push \$P91, \$P80 \n"
+ + " \$P90.set_node('1', 1, \$P91) \n"
+ + " \$P100 = new 'PAST::Stmt' \n"
+ + " \$P101 = new PerlArray \n"
+ + " push \$P101, \$P90 \n"
+ + " \$P100.set_node('1', 1 ,\$P101) \n"
+ + " push stmts_children, \$P100 \n";
System.out.print( pirBefore + pirDummy + pirAfter );
}
;
