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

[svn:parrot] r34272 - in trunk/languages/pipp/src: . common pct

From:
bernhard
Date:
December 23, 2008 05:30
Subject:
[svn:parrot] r34272 - in trunk/languages/pipp/src: . common pct
Message ID:
20081223133013.183E2CBA12@x12.develooper.com
Author: bernhard
Date: Tue Dec 23 05:30:10 2008
New Revision: 34272

Modified:
   trunk/languages/pipp/src/common/builtins.pir
   trunk/languages/pipp/src/common/eval.pir
   trunk/languages/pipp/src/common/php_ctype.pir
   trunk/languages/pipp/src/common/php_gmp.pir
   trunk/languages/pipp/src/common/php_pcre.pir
   trunk/languages/pipp/src/pct/actions.pm
   trunk/languages/pipp/src/pipp.pir

Log:
[Pipp] Avoid the implicit downcasing of the HLL name.
Prepare for using the '_pipp' hll root namespace for Pipp internals.


Modified: trunk/languages/pipp/src/common/builtins.pir
==============================================================================
--- trunk/languages/pipp/src/common/builtins.pir	(original)
+++ trunk/languages/pipp/src/common/builtins.pir	Tue Dec 23 05:30:10 2008
@@ -1,6 +1,6 @@
 # $Id$
 
-.HLL 'Pipp'
+.HLL 'pipp'
 
 .loadlib 'php_group'
 

Modified: trunk/languages/pipp/src/common/eval.pir
==============================================================================
--- trunk/languages/pipp/src/common/eval.pir	(original)
+++ trunk/languages/pipp/src/common/eval.pir	Tue Dec 23 05:30:10 2008
@@ -16,7 +16,7 @@
 
 =cut
 
-.HLL 'Pipp'
+.HLL 'pipp'
 
 .sub 'eval'
 

Modified: trunk/languages/pipp/src/common/php_ctype.pir
==============================================================================
--- trunk/languages/pipp/src/common/php_ctype.pir	(original)
+++ trunk/languages/pipp/src/common/php_ctype.pir	Tue Dec 23 05:30:10 2008
@@ -13,7 +13,7 @@
 
 =cut
 
-.HLL 'Pipp'
+.HLL 'pipp'
 
 .include 'languages/pipp/src/common/php_MACRO.pir'
 .include 'cclass.pasm'

Modified: trunk/languages/pipp/src/common/php_gmp.pir
==============================================================================
--- trunk/languages/pipp/src/common/php_gmp.pir	(original)
+++ trunk/languages/pipp/src/common/php_gmp.pir	Tue Dec 23 05:30:10 2008
@@ -17,7 +17,7 @@
 
 =cut
 
-.HLL 'Pipp'
+.HLL 'pipp'
 
 .include 'languages/pipp/src/common/php_MACRO.pir'
 

Modified: trunk/languages/pipp/src/common/php_pcre.pir
==============================================================================
--- trunk/languages/pipp/src/common/php_pcre.pir	(original)
+++ trunk/languages/pipp/src/common/php_pcre.pir	Tue Dec 23 05:30:10 2008
@@ -13,7 +13,7 @@
 
 =cut
 
-.HLL 'Pipp'
+.HLL 'pipp'
 
 .include 'languages/pipp/src/common/php_MACRO.pir'
 .include 'cclass.pasm'

Modified: trunk/languages/pipp/src/pct/actions.pm
==============================================================================
--- trunk/languages/pipp/src/pct/actions.pm	(original)
+++ trunk/languages/pipp/src/pct/actions.pm	Tue Dec 23 05:30:10 2008
@@ -22,7 +22,7 @@
 method TOP($/) {
     my $past := PAST::Block.new(
                     :node($/),
-                    :hll('Pipp')
+                    :hll('pipp')
                 );
     for $<sea_or_code> {
         $past.push( $($_) );

Modified: trunk/languages/pipp/src/pipp.pir
==============================================================================
--- trunk/languages/pipp/src/pipp.pir	(original)
+++ trunk/languages/pipp/src/pipp.pir	Tue Dec 23 05:30:10 2008
@@ -2,7 +2,7 @@
 
 =head1 NAME
 
-pipp.pir - driver for Pipp
+pipp.pir - driver program for Pipp
 
 =head1 SYNOPSIS
 
@@ -10,7 +10,7 @@
 
    make pipp
 
-   ./pipp t.php
+   ./pipp t/in_php/01_sea_only.t
 
 =head1 DESCRIPTION
 
@@ -28,8 +28,11 @@
 
 =cut
 
+# TODO: .HLL '_pipp'
 .namespace [ 'Pipp' ]
 
+.const string VERSION = "0.0.1"
+
 .sub '__onload' :anon :load :init
 
     # Pipp uses the Parrot Compiler Toolkit
@@ -39,13 +42,8 @@
     #  be used as a constant.  The 'e' flag indicates that the
     #  value must be quoted+escaped in PIR code.
     .local pmc valflags
-    valflags = get_hll_global ['PAST';'Compiler'], '%valflags'
+    valflags = get_root_global ['parrot';'PAST';'Compiler'], '%valflags'
     valflags['PhpString']   = 's~*e'
-.end
-
-.const string VERSION = "0.0.1"
-
-.sub '__onload' :load :init
 
     load_bytecode 'config.pbc'
 
@@ -77,7 +75,7 @@
     load_bytecode 'Getopt/Obj.pbc'
 
     # import PGE::Util::die into Pipp::Grammar
-    $P0 = get_hll_global ['PGE';'Util'], 'die'
+    $P0 = get_root_global ['parrot';'PGE';'Util'], 'die'
     set_hll_global ['Pipp';'Grammar'], 'die', $P0
     set_hll_global ['Pipp'], 'die', $P0
 
@@ -302,12 +300,12 @@
 
     # the superglobals _GET and _POST need to be set up
     .local pmc parse_get_sub, superglobal_GET
-    parse_get_sub       = get_hll_global [ 'CGI'; 'QueryHash' ], 'parse_get'
+    parse_get_sub       = get_root_global ['parrot';'CGI'; 'QueryHash'], 'parse_get'
     ( superglobal_GET ) = parse_get_sub()
     set_root_global ['pipp'], '$_GET', superglobal_GET
 
     .local pmc parse_post_sub, superglobal_POST
-    parse_post_sub       = get_hll_global [ 'CGI'; 'QueryHash' ], 'parse_post'
+    parse_post_sub       = get_root_global ['parrot';'CGI';'QueryHash'], 'parse_post'
     ( superglobal_POST ) = parse_post_sub()
     set_root_global ['pipp'], '$_POST', superglobal_POST
 



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