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
