Switch rakudo to register itself as a compiler for 'perl6' (lowercase)

rakudo · May 18, 2009 · 1639d85 · 1639d85
1 parent f77ad8a
commit 1639d85
Show file tree

Hide file tree

Showing 6 changed files with 11 additions and 11 deletions.
diff --git a/perl6.pir b/perl6.pir
@@ -58,7 +58,7 @@ Creates the Perl 6 compiler by subclassing a C<PCT::HLLCompiler> object.
 
     load_bytecode 'config.pbc'
 
-    perl6.'language'('Perl6')
+    perl6.'language'('perl6')
     $P0 = get_hll_namespace ['Perl6';'Grammar']
     perl6.'parsegrammar'($P0)
     $P0 = get_hll_namespace ['Perl6';'Grammar';'Actions']
@@ -350,7 +350,7 @@ to the Perl 6 compiler.
     exit 0
   not_harness:
 
-    $P0 = compreg 'Perl6'
+    $P0 = compreg 'perl6'
     $P1 = $P0.'command_line'(args_str, 'encoding'=>'utf8', 'transcode'=>'ascii')
 
     .include 'iterator.pasm'

diff --git a/src/builtins/control.pir b/src/builtins/control.pir
@@ -369,7 +369,7 @@ on error.
     goto got_lang
   no_lang:
     push_eh catch
-    compiler = compreg 'Perl6'
+    compiler = compreg 'perl6'
   got_lang:
     invokable = compiler.'compile'(code)
 

diff --git a/src/builtins/eval.pir b/src/builtins/eval.pir
@@ -34,7 +34,7 @@ itself can be found in src/builtins/control.pir.
     lang = options['lang']
     if lang == 'Parrot' goto lang_parrot
     if lang goto lang_compile
-    lang = 'Perl6'
+    lang = 'perl6'
   lang_compile:
     .local pmc compiler
     compiler = compreg lang
@@ -129,7 +129,7 @@ itself can be found in src/builtins/control.pir.
     $P0 = new 'List'
     set_hll_global ['Perl6';'Grammar';'Actions'], '@?BLOCK', $P0
     inc_hash[name] = realfilename
-    result = 'evalfile'(realfilename, 'lang'=>'Perl6')
+    result = 'evalfile'(realfilename, 'lang'=>'perl6')
     set_hll_global ['Perl6';'Grammar';'Actions'], '@?NS', outer_ns_chain
     set_hll_global ['Perl6';'Grammar';'Actions'], '@?BLOCK', outer_blocks
 
@@ -158,7 +158,7 @@ itself can be found in src/builtins/control.pir.
     # See if we've had a namespace name passed in.
     .local pmc import_ns
     .local pmc compiler_obj
-    compiler_obj = compreg 'Perl6'
+    compiler_obj = compreg 'perl6'
     $P0 = options['import_to']
     if null $P0 goto use_caller_ns
     $S0 = $P0

diff --git a/src/builtins/guts.pir b/src/builtins/guts.pir
@@ -744,7 +744,7 @@ Add a trait with the given C<type> and C<name> to C<metaclass>.
 
   is:
     ##  get the (parrot)class object associated with name
-    $P0 = compreg 'Perl6'
+    $P0 = compreg 'perl6'
     $P0 = $P0.'parse_name'(name)
     $S0 = pop $P0
     $P0 = get_hll_global $P0, $S0
@@ -769,7 +769,7 @@ Add a trait with the given C<type> and C<name> to C<metaclass>.
 
   does:
     ##  get the Role object for the role to be composed
-    $P0 = compreg 'Perl6'
+    $P0 = compreg 'perl6'
     $P0 = $P0.'parse_name'(name)
     $S0 = pop $P0
     $P0 = get_hll_global $P0, $S0
@@ -971,7 +971,7 @@ and C<type>.
     .param pmc var
     .param string name
     .param pmc arg :slurpy
-    $P0 = compreg 'Perl6'
+    $P0 = compreg 'perl6'
     $P0 = $P0.'parse_name'(name)
     $S0 = pop $P0
     $P0 = get_hll_global $P0, $S0

diff --git a/src/parser/actions.pm b/src/parser/actions.pm
@@ -47,7 +47,7 @@ method TOP($/) {
     else {
         $main := PAST::Block.new( :pirflags(':main') );
         $main.loadinit().push(
-            PAST::Op.new( :inline('$P0 = compreg "Perl6"',
+            PAST::Op.new( :inline('$P0 = compreg "perl6"',
                                   'unless null $P0 goto have_perl6',
                                   'load_bytecode "perl6.pbc"',
                                   'have_perl6:')

diff --git a/src/parser/methods.pir b/src/parser/methods.pir
@@ -28,7 +28,7 @@ Registers a type in the namespace.
     # Parse name.
     .local pmc ns
     .local string short_name
-    $P0 = compreg 'Perl6'
+    $P0 = compreg 'perl6'
     ns = $P0.'parse_name'(name)
     short_name = pop ns