[svn:parrot] r33890 - trunk/languages/jako/lib/Jako/Construct/Block

[fperrad]

Author: fperrad
Date: Sun Dec 14 08:44:54 2008
New Revision: 33890

Modified:
   trunk/languages/jako/lib/Jako/Construct/Block/Bare.pm
   trunk/languages/jako/lib/Jako/Construct/Block/Conditional.pm
   trunk/languages/jako/lib/Jako/Construct/Block/Loop.pm

Log:
[jako]
- remove .namespace/.endnamespace

Modified: trunk/languages/jako/lib/Jako/Construct/Block/Bare.pm
==============================================================================
--- trunk/languages/jako/lib/Jako/Construct/Block/Bare.pm       (original)
+++ trunk/languages/jako/lib/Jako/Construct/Block/Bare.pm       Sun Dec 14 
08:44:54 2008
@@ -30,11 +30,9 @@
     my $namespace = "BARE";    # TODO: Don't we need to do better than this?
 
     if ( $self->content ) {
-        $compiler->emit(".namespace ${namespace}");
         $compiler->indent;
         $self->SUPER::compile($compiler);
         $compiler->outdent;
-        $compiler->emit(".endnamespace ${namespace}");
     }
 
     return 1;

Modified: trunk/languages/jako/lib/Jako/Construct/Block/Conditional.pm
==============================================================================
--- trunk/languages/jako/lib/Jako/Construct/Block/Conditional.pm        
(original)
+++ trunk/languages/jako/lib/Jako/Construct/Block/Conditional.pm        Sun Dec 
14 08:44:54 2008
@@ -66,11 +66,9 @@
         $compiler->emit("${prefix}_THEN:");
 
         if ( $self->content ) {
-            $compiler->emit(".namespace ${namespace}_THEN");
             $compiler->indent;
             $self->SUPER::compile($compiler);
             $compiler->outdent;
-            $compiler->emit(".endnamespace ${namespace}_THEN");
         }
 
         $compiler->emit("  goto ${prefix}_LAST");
@@ -79,11 +77,9 @@
         $compiler->emit("${prefix}_ELSE:");
 
         if ( $self->content ) {
-            $compiler->emit(".namespace ${namespace}_ELSE");
             $compiler->indent;
             $self->SUPER::compile($compiler);
             $compiler->outdent;
-            $compiler->emit(".endnamespace ${namespace}_ELSE");
         }
 
         $compiler->emit("${prefix}_LAST:");

Modified: trunk/languages/jako/lib/Jako/Construct/Block/Loop.pm
==============================================================================
--- trunk/languages/jako/lib/Jako/Construct/Block/Loop.pm       (original)
+++ trunk/languages/jako/lib/Jako/Construct/Block/Loop.pm       Sun Dec 14 
08:44:54 2008
@@ -55,22 +55,18 @@
         $compiler->emit("${prefix}_REDO:");
 
         if ( $self->content ) {
-            $compiler->emit(".namespace ${namespace}");
             $compiler->indent;
             $self->SUPER::compile($compiler);
             $compiler->outdent;
-            $compiler->emit(".endnamespace ${namespace}");
         }
     }
     elsif ( $kind eq 'continue' ) {
         $compiler->emit("${prefix}_CONT:");
 
         if ( $self->content ) {
-            $compiler->emit(".namespace ${namespace}_CONT");
             $compiler->indent;
             $self->SUPER::compile($compiler);
             $compiler->outdent;
-            $compiler->emit(".endnamespace ${namespace}_CONT");
         }
 
         $compiler->emit("  goto ${prefix}_NEXT");