develooper Front page | perl.cvs.parrot | Postings from December 2008

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

From:
fperrad
Date:
December 14, 2008 08:45
Subject:
[svn:parrot] r33890 - trunk/languages/jako/lib/Jako/Construct/Block
Message ID:
20081214164454.B01C5CBA12@x12.develooper.com
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");



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About