Changeset 5344

Timestamp:

06/18/09 22:51:36 (3 years ago)

Author:

azawawi

Message:

[Perl 6] add prefix PADRE_ to Padre::Constant-s

Location:

trunk/Padre-Plugin-Perl6/lib/Padre/Plugin/Perl6

Files:

• Perl6ColorizerTask.pm (modified) (1 diff)
• Perl6Document.pm (modified) (5 diffs)

trunk/Padre-Plugin-Perl6/lib/Padre/Plugin/Perl6/Perl6ColorizerTask.pm

@@ -43 +43 @@
 
 my %colors = (
-    'comp_unit'  => Padre::Constant::BLUE,
-    'scope_declarator' => Padre::Constant::RED,
-    'routine_declarator' => Padre::Constant::RED,
-    'regex_declarator' => Padre::Constant::RED,
-    'package_declarator' => Padre::Constant::RED,
-    'statement_control' => Padre::Constant::RED,
-    'block' => Padre::Constant::BLACK,
-    'regex_block' => Padre::Constant::BLACK,
-    'noun' => Padre::Constant::BLACK,
-    'sigil' => Padre::Constant::GREEN,
-    'variable' => Padre::Constant::GREEN,
-    'assertion' => Padre::Constant::GREEN,
-    'quote' => Padre::Constant::MAGENTA,
-    'number' => Padre::Constant::ORANGE,
-    'infix' => Padre::Constant::DIM_GRAY,
-    'methodop' => Padre::Constant::BLACK,
-    'pod_comment' => Padre::Constant::GREEN,
-    'param_var' => Padre::Constant::CRIMSON,
-    '_scalar' => Padre::Constant::RED,
-    '_array' => Padre::Constant::BROWN,
-    '_hash' => Padre::Constant::ORANGE,
-    '_comment' => Padre::Constant::GREEN,
+    'comp_unit'  => Padre::Constant::PADRE_BLUE,
+    'scope_declarator' => Padre::Constant::PADRE_RED,
+    'routine_declarator' => Padre::Constant::PADRE_RED,
+    'regex_declarator' => Padre::Constant::PADRE_RED,
+    'package_declarator' => Padre::Constant::PADRE_RED,
+    'statement_control' => Padre::Constant::PADRE_RED,
+    'block' => Padre::Constant::PADRE_BLACK,
+    'regex_block' => Padre::Constant::PADRE_BLACK,
+    'noun' => Padre::Constant::PADRE_BLACK,
+    'sigil' => Padre::Constant::PADRE_GREEN,
+    'variable' => Padre::Constant::PADRE_GREEN,
+    'assertion' => Padre::Constant::PADRE_GREEN,
+    'quote' => Padre::Constant::PADRE_MAGENTA,
+    'number' => Padre::Constant::PADRE_ORANGE,
+    'infix' => Padre::Constant::PADRE_DIM_GRAY,
+    'methodop' => Padre::Constant::PADRE_BLACK,
+    'pod_comment' => Padre::Constant::PADRE_GREEN,
+    'param_var' => Padre::Constant::PADRE_CRIMSON,
+    '_scalar' => Padre::Constant::PADRE_RED,
+    '_array' => Padre::Constant::PADRE_BROWN,
+    '_hash' => Padre::Constant::PADRE_ORANGE,
+    '_comment' => Padre::Constant::PADRE_GREEN,
 );
 

trunk/Padre-Plugin-Perl6/lib/Padre/Plugin/Perl6/Perl6Document.pm

@@ -17 +17 @@
 # used for coloring by parrot
 my %perl6_colors = (
-    quote_expression => Padre::Constant::BLUE,
+    quote_expression => Padre::Constant::PADRE_BLUE,
     parse            => undef,
     statement_block  => undef,
@@ -30 +30 @@
     quote_term => undef,
     quote_literal => undef,
-    post => Padre::Constant::MAGENTA,
+    post => Padre::Constant::PADRE_MAGENTA,
     dotty => undef,
     dottyop => undef,
-    methodop => Padre::Constant::GREEN,
-    name => Padre::Constant::GREEN,
+    methodop => Padre::Constant::PADRE_GREEN,
+    name => Padre::Constant::PADRE_GREEN,
     identifier => undef,
     term => undef,
@@ -42 +42 @@
     statement_control => undef,
     use_statement => undef,
-    sym => Padre::Constant::RED,
-    'infix:='  => Padre::Constant::GREEN,
-    'infix:+'  => Padre::Constant::GREEN,
-#   'infix:*'  => Padre::Constant::GREEN,
-#   'infix:/'  => Padre::Constant::GREEN,
-    'infix:,'  => Padre::Constant::GREEN,
+    sym => Padre::Constant::PADRE_RED,
+    'infix:='  => Padre::Constant::PADRE_GREEN,
+    'infix:+'  => Padre::Constant::PADRE_GREEN,
+#   'infix:*'  => Padre::Constant::PADRE_GREEN,
+#   'infix:/'  => Padre::Constant::PADRE_GREEN,
+    'infix:,'  => Padre::Constant::PADRE_GREEN,
     'infix:..' => undef,
     'prefix:=' => undef,
@@ -61 +61 @@
     variable_declarator => undef,
     declarator => undef,
-    variable => Padre::Constant::RED, #Padre::Constant::DIM_GRAY,
+    variable => Padre::Constant::PADRE_RED, #Padre::Constant::PADRE_DIM_GRAY,
     integer => undef,
-    number => Padre::Constant::BROWN,
+    number => Padre::Constant::PADRE_BROWN,
     circumfix => undef,
     param_sep => undef,
@@ -77 +77 @@
     for_statement => undef,
     xblock => undef,
-    lambda => Padre::Constant::GREEN,
+    lambda => Padre::Constant::PADRE_GREEN,
 );
 
-#    'regex_block' => Padre::Constant::BLACK,
-#    'number' => Padre::Constant::ORANGE,
-#    'param_var' => Padre::Constant::CRIMSON,
-#    '_hash' => Padre::Constant::ORANGE,
+#    'regex_block' => Padre::Constant::PADRE_BLACK,
+#    'number' => Padre::Constant::PADRE_ORANGE,
+#    'param_var' => Padre::Constant::PADRE_CRIMSON,
+#    '_hash' => Padre::Constant::PADRE_ORANGE,