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

[svn:parrot] r32611 - trunk/languages/hq9plus

From:
bernhard
Date:
November 13, 2008 06:46
Subject:
[svn:parrot] r32611 - trunk/languages/hq9plus
Message ID:
20081113144550.E03B9CB9AF@x12.develooper.com
Author: bernhard
Date: Thu Nov 13 06:45:46 2008
New Revision: 32611

Modified:
   trunk/languages/hq9plus/hq9plus.pir

Log:
[HQ9plus] slight simplification of the driver


Modified: trunk/languages/hq9plus/hq9plus.pir
==============================================================================
--- trunk/languages/hq9plus/hq9plus.pir	(original)
+++ trunk/languages/hq9plus/hq9plus.pir	Thu Nov 13 06:45:46 2008
@@ -4,7 +4,7 @@
 
 =head2 Description
 
-This is the base file for the HQ9plus compiler.
+This is the driver for the HQ9plus compiler.
 
 This file includes the parsing and grammar rules from
 the src/ directory, loads the relevant PGE libraries,
@@ -26,11 +26,13 @@
 .sub 'onload' :anon :load :init
     load_bytecode 'PCT.pbc'
 
-    $P0 = get_hll_global ['PCT'], 'HLLCompiler'
-    $P1 = $P0.'new'()
+    $P1 = new ['PCT';'HLLCompiler']
+
     $P1.'language'('HQ9plus')
     $P1.'parsegrammar'('HQ9plus::Grammar')
     $P1.'parseactions'('HQ9plus::Grammar::Actions')
+
+    .return()
 .end
 
 =item main(args :slurpy)  :main
@@ -61,4 +63,3 @@
 #   fill-column: 100
 # End:
 # vim: expandtab shiftwidth=4 ft=pir:
-



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