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

[svn:parrot] r34273 - trunk/languages/pipp/src

From:
bernhard
Date:
December 23, 2008 05:47
Subject:
[svn:parrot] r34273 - trunk/languages/pipp/src
Message ID:
20081223134742.D5389CBA12@x12.develooper.com
Author: bernhard
Date: Tue Dec 23 05:47:42 2008
New Revision: 34273

Modified:
   trunk/languages/pipp/src/pipp.pir

Log:
[Pipp] Move some internal functions into the '_pipp' hll root namespace.


Modified: trunk/languages/pipp/src/pipp.pir
==============================================================================
--- trunk/languages/pipp/src/pipp.pir	(original)
+++ trunk/languages/pipp/src/pipp.pir	Tue Dec 23 05:47:42 2008
@@ -28,8 +28,7 @@
 
 =cut
 
-# TODO: .HLL '_pipp'
-.namespace [ 'Pipp' ]
+.HLL '_pipp'
 
 .const string VERSION = "0.0.1"
 
@@ -56,7 +55,8 @@
 
     # determine location of libs from the Parrot config
     .local pmc cfg
-    cfg  = _config()
+    $P0 = get_root_global ['parrot'], '_config'
+    cfg  = $P0()
     .local string lib_dir, pbc_fn
     lib_dir = cfg['build_dir']
     lib_dir .= '/languages/pipp/src/common'
@@ -113,7 +113,8 @@
 
     # config stuff
     .local pmc cfg
-    cfg  = _config()
+    $P0 = get_root_global ['parrot'], '_config'
+    cfg  = $P0()
     .local string build_dir
     build_dir = cfg['build_dir']
 
@@ -169,7 +170,8 @@
 
     # config stuff
     .local pmc cfg
-    cfg  = _config()
+    $P0 = get_root_global ['parrot'], '_config'
+    cfg  = $P0()
     .local string build_dir
     build_dir = cfg['build_dir']
 
@@ -339,6 +341,8 @@
 
 .end
 
+.HLL 'parrot'
+
 .include 'src/pct/gen_grammar.pir'
 .include 'src/pct/gen_actions.pir'
 .include 'src/pct/quote_expression.pir'



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